涳夢 发表于 2013-7-30 20:31 ![]() 5 X9 A3 S7 Q( `; y
神经网络系数？有这种系数吗？可不可以具体一点儿，给出原问题或更具体点呗
(* Content-type: application/mathematica *)/ d9 b, w& ~* q0 p+ N0 d
' i- b& d. C8 w! E% h+ [(*** Wolfram Notebook File ***)
4 m, [! w ^' f4 ]* Z _(* http://www.wolfram.com/nb *)1 ~2 X5 f( `3 Q" [% h. j: {
! ~- i2 t6 `, w3 @& a2 S$ A
(* CreatedBy='Mathematica 7.0' *)$ g: s. P6 ]: X' M( N8 W
( w" s5 n+ g1 ]* \( L# O(*CacheID: 234*)
_0 { H' a! n, I5 X2 y2 \- {7 ](* Internal cache information:
8 `2 n- ]5 Z# p Z) hNotebookFileLineBreakTest$ O: Y1 V t2 T7 s* M
NotebookFileLineBreakTest
/ @9 S; i3 j2 f% [) DNotebookDataPosition[ 145, 7]
+ B2 {+ w- C2 z, hNotebookDataLength[ 423629, 11534]
d, w2 S) P. D4 G3 GNotebookOptionsPosition[ 412607, 11173]6 z" K G I/ D' Z- R
NotebookOutlinePosition[ 412953, 11188]
1 C3 Z/ s' i5 Y! b( SCellTagsIndexPosition[ 412910, 11185]
Q9 b& g3 @1 i0 M6 mWindowFrame->Normal*)( Z5 P" N1 o! C
8 V! Y: y# E! I9 T6 }(* Beginning of Notebook Content *)$ b6 j, `* s: z6 y% F7 s
Notebook[{- M' X) q2 k, b
& r9 l& G6 v* { y( ` b7 {
Cell[CellGroupData[{
2 W3 B1 l9 p! {3 CCell[BoxData[4 J& y% i8 t$ S& N- _# ~+ |4 {
RowBox[{"Data", "=", 0 l( \1 C$ A* T- L9 J0 S3 P' a3 f
RowBox[{"{", 7 T/ z( U/ e3 u, ~4 ~4 l' V h
RowBox[{: h* a* c V3 g0 \, G* }) _
RowBox[{"{", % D( ~3 b5 Q# Q! ]& Y8 H1 d. g! f
RowBox[{
$ q( ]4 a4 y6 J( c1 l "0.304348", ",", "0.552818", ",", "0.330370", ",", "0.025823", ",",
7 V: y5 s+ k# L( R! q; n# y "0.538462", ",", "0.752072", ",", "0.408943", ",", "0.504532", ",",
& W% }9 G0 { T "0.000000", ",", "0.277091", ",", "0.873239"}], "}"}], ",", " ", 6 N! a. ` ~8 K$ b& F
RowBox[{"{", 1 A# v U' ~* l$ c! d+ y& I: M9 W4 k
RowBox[{
( P% D3 j0 C6 n, `% ]& x( s$ w "0.565217", ",", "0.346857", ",", "0.393585", ",", "0.118785", ",",
% }: g* u$ C# B3 b. ]1 O: D% s2 X "0.349650", ",", "0.370761", ",", "0.413008", ",", "0.502518", ",",
4 \2 `1 L) i A- i( ?6 |- T- h* a "0.000000", ",", "0.220259", ",", "0.464789"}], "}"}], ",", " ",
8 O% h6 x: L- k/ l5 m* y( N RowBox[{"{",
# O$ c" }! A! Z RowBox[{
}: k" \, R# z6 [ "0.608696", ",", "0.339186", ",", "0.494300", ",", "0.099338", ",",
- c8 e9 F) ^( ~' \. P7 }3 | "0.321678", ",", "0.375283", ",", "0.000000", ",", "0.505539", ",", : G/ O o! {0 u0 @- O" g
"0.000000", ",", "0.899882", ",", "0.492958"}], "}"}], ",", " ", 7 |0 i! S9 O( j" b$ l
RowBox[{"{", ( ~; d# C9 z1 {6 x" E1 @' L
RowBox[{
V# z: w S r& q "0.521739", ",", "0.334022", ",", "0.355500", ",", "0.025156", ",", , W" v$ R7 @0 x S* a
"0.489510", ",", "0.376790", ",", "0.411382", ",", "0.000000", ",", & n: p) B" l- ]0 W8 K: i% S: O. i
"0.000000", ",", "0.265607", ",", "0.774648"}], "}"}], ",", " ", 2 N, _6 C. e- l( Y( t
RowBox[{"{", ( H& I# z& K _$ B- L
RowBox[{
/ w/ Y2 V4 R- r# _ "0.565217", ",", "0.346931", ",", "0.218229", ",", "0.043639", ",", * a r$ b! ]. o5 y* H- I
"0.503497", ",", "0.761115", ",", "0.415447", ",", "0.503525", ",",
% T$ } R& P' g7 @" \( C# h "0.000000", ",", "0.642226", ",", "0.380282"}], "}"}], ",", " ",
4 g3 h3 P: X9 w; Z8 V0 J* `. w$ Z RowBox[{"{", ; r9 v7 {4 j% e5 Y- Q9 f/ t
RowBox[{8 C- l3 E; x% h& d) j) ]; J
"0.478261", ",", "0.293154", ",", "0.259368", ",", "0.026688", ",", 9 R. x* y2 O0 ]! C
"0.587413", ",", "0.755840", ",", "0.409756", ",", "0.498489", ",", 9 ~. L: q/ r ]8 v8 T* \1 c
"0.000000", ",", "0.306243", ",", "0.647887"}], "}"}], ",", " ",
4 W( S- [- F( f/ E n: o RowBox[{"{",
+ r, ?. y0 _" `0 U% F# ]6 u RowBox[{
3 ~; w- F, a, D l! s- Y "0.347826", ",", "0.359693", ",", "0.614393", ",", "0.081521", ",",
9 T6 R8 g' L* q* P "0.258741", ",", "0.367747", ",", "0.410569", ",", "0.499496", ",", + E$ T' e2 U9 }+ ?
"0.000000", ",", "0.186985", ",", "0.563380"}], "}"}], ",", " ",
. i& e0 t. i/ `$ ~. @9 Z RowBox[{"{",
( `; t2 Z ^9 Q. b RowBox[{
W W D- p3 m; B& z "0.565217", ",", "0.705518", ",", "0.510223", ",", "0.066892", ",",
5 o( g, K$ D3 {6 Q# { ~ "0.244755", ",", "0.748304", ",", "0.000000", ",", "0.000000", ",",
9 C% Q$ s) O) @2 C2 C: i) \ "0.243032", ",", "0.175501", ",", "0.295775"}], "}"}], ",", " ", 7 ? D% K, f! b; ^8 e3 T! _+ B
RowBox[{"{",
5 J* Y3 J6 y) z8 v5 ?, L% I' B RowBox[{5 m# y. S( m1 ?$ A5 L8 M
"0.565217", ",", "0.710460", ",", "0.649730", ",", "0.119897", ",",
! ^% k" H( u9 H9 V6 o4 m% G "0.468531", ",", "0.000000", ",", "0.636585", ",", "0.000000", ",",
" P4 n: j2 B1 u# N "0.766748", ",", "0.147821", ",", "0.338028"}], "}"}], ",", " ", F! h3 |1 j: ]! Y: L+ y/ N$ I. J
RowBox[{"{", 9 Z6 ?; S" I7 b L: M2 W7 w* F
RowBox[{ G( J( `* g. ^
"0.565217", ",", "0.697772", ",", "0.171587", ",", "0.028566", ",",
7 o) X" N) }8 k "0.363636", ",", "0.449887", ",", "0.408130", ",", "0.000000", ",",
" F# W6 Z7 [7 j6 V7 {/ J C "0.000000", ",", "0.352768", ",", "0.211268"}], "}"}], ",", " ", ' p7 n8 j* ]$ `1 h$ G
RowBox[{"{", ( Y/ E, p) s. |( i
RowBox[{
# t6 O6 p7 l' I. _ "0.282609", ",", "0.660888", ",", "0.460064", ",", "0.110334", ",", ) z( n9 \+ H5 x4 e& v, A
"0.475524", ",", "0.000000", ",", "0.545528", ",", "0.000000", ",", " F7 L" K% a* j m! p% ?
"0.551100", ",", "0.238810", ",", "0.690141"}], "}"}], ",", " ",
t. v6 M% r* A6 u, d RowBox[{"{", * |) A! y$ |2 g/ S( \4 a* ?
RowBox[{
3 p! V! A. v7 D1 A- n "0.130435", ",", "0.682724", ",", "0.258697", ",", "0.019299", ",", ) z& e. I8 S" F2 N6 \
"0.510490", ",", "0.420497", ",", "0.535772", ",", "0.000000", ",", 5 j$ @! ^' ?9 Y, Q0 c% v$ L
"0.494866", ",", "0.095701", ",", "0.436620"}], "}"}], ",", " ",
& Y, a" \$ o. F) p+ u+ J RowBox[{"{",
( [2 H0 P/ t0 K3 A N w RowBox[{
9 |" K4 I- y7 ?: i* e "0.347826", ",", "0.697772", ",", "0.108288", ",", "0.022413", ",",
8 |7 \2 F0 @& ?' c4 v, s8 c "0.356643", ",", "0.247928", ",", "0.908130", ",", "0.000000", ",", / n; h& \" R* I1 b2 @
"0.383374", ",", "0.162839", ",", "0.000000"}], "}"}], ",", " ", $ P: i' F- U/ y0 ]9 l- c
RowBox[{"{",
7 Y6 ]( I+ P' r. T: u. x2 a RowBox[{& {$ @) X5 `$ @7 _ I
"0.695652", ",", "0.718280", ",", "0.339730", ",", "0.110285", ",", 7 R* g8 M' {& N5 ~: c) D
"0.335664", ",", "0.000000", ",", "0.636585", ",", "0.780463", ",",
. C4 e! y9 x$ h" y {" a "0.000000", ",", "0.335395", ",", "0.267606"}], "}"}], ",", " ", 3 S' a) V8 g" }6 |* G
RowBox[{"{", 9 i* _" E+ H! p' S
RowBox[{
) `- j! T1 b2 G5 ? "0.652174", ",", "0.569711", ",", "0.414297", ",", "0.175398", ",",
4 B Y, C( ~8 W# n8 A5 C, f "0.167832", ",", "0.000000", ",", "0.544715", ",", "0.000000", ",",
# f* ]8 f, G& z& a "0.000000", ",", "0.160483", ",", "0.211268"}], "}"}], ",", " ", . T1 l3 U [7 S3 r2 a5 T8 ~. v/ z
RowBox[{"{", " E+ ?9 Q) R* U
RowBox[{# ~# [4 F n" u
"0.000000", ",", "0.395544", ",", "0.027011", ",", "0.048087", ",", 5 T( M# J1 v/ B0 G+ t7 n
"0.496503", ",", "0.000000", ",", "0.452033", ",", "0.000000", ",", 9 s4 y$ F/ \/ J& y; B2 i M7 ~
"0.278729", ",", "0.398115", ",", "0.408451"}], "}"}], ",", " ",
- v/ L) p( c1 V5 M RowBox[{"{",
! ^: r |. \3 d8 X; n, g; X RowBox[{
( F1 G5 B+ b7 F9 d p "0.608696", ",", "0.425199", ",", "0.012979", ",", "0.000000", ",", : W6 ?3 Q& H; C* Z
"0.482517", ",", "0.509420", ",", "0.406504", ",", "0.000000", ",", ; P% P3 ~" T, [; c
"0.000000", ",", "0.157833", ",", "0.478873"}], "}"}], ",", " ",
; h: d* H. I* V/ |3 m+ a RowBox[{"{",
# ~5 H2 j C$ O& t& v ^. ~ RowBox[{
! s' l( T' e- D "0.608696", ",", "0.577973", ",", "0.213587", ",", "0.030889", ",", ! }7 a: e3 Z1 k/ V( E
"0.370629", ",", "0.000000", ",", "0.452846", ",", "0.000000", ",",
( g( \- n# F) [2 ]& e3 G! T- F "0.000000", ",", "0.315665", ",", "0.380282"}], "}"}], ",", " ", 1 f1 K3 I; ?; }3 w" A( @. K
RowBox[{"{",
) @6 \& s' U5 v5 [, v* B RowBox[{0 d# B" J4 A" V7 B
"0.565217", ",", "0.572293", ",", "0.655012", ",", "0.281852", ",", 5 E7 l5 u: L, p- Y2 j
"0.000000", ",", "0.000000", ",", "0.000000", ",", "0.000000", ",", 6 i2 A# g" q. G, q( u
"0.000000", ",", "0.492344", ",", "0.211268"}], "}"}], ",", " ",
4 W8 X6 N& F( p( @3 u8 i* Q RowBox[{"{", % e# F1 E- `* J2 d
RowBox[{
& ~( m1 a/ c. q/ y/ y) l "0.130435", ",", "0.562039", ",", "0.331662", ",", "0.032643", ",", : G% @ O @' @( ^, h* h
"0.314685", ",", "0.414469", ",", "0.275610", ",", "0.000000", ",",
( w/ h& f( ]% C8 c" z- A& F "0.000000", ",", "0.638398", ",", "0.436620"}], "}"}], ",", " ", 9 h0 ?( K' w6 @
RowBox[{"{", 8 ?9 k6 z. H: H
RowBox[{
V$ Z1 o/ J( H6 L' Q% O "0.717391", ",", "0.736205", ",", "0.267704", ",", "0.036152", ",",
. `2 i1 `% ]3 ?$ G6 l "0.307692", ",", "0.000000", ",", "0.000000", ",", "0.000000", ",", 2 ?1 o$ {' e# A( ?& ^, n6 M" Y7 z
"0.000000", ",", "0.392521", ",", "0.478873"}], "}"}], ",", " ",
& a9 G( p, {0 ], f- ?5 e RowBox[{"{",
3 C; G7 `: O# G& {! f* j; n RowBox[{
/ b V# b4 Y& N+ @( c1 W- V. w$ ~2 d5 e "0.608696", ",", "0.769475", ",", "0.289283", ",", "0.022882", ",",
) q7 I. S1 v, S/ \8 H "0.321678", ",", "0.000000", ",", "0.274797", ",", "0.333333", ",", . Y- j9 H y! I3 Q
"0.000000", ",", "0.362191", ",", "0.295775"}], "}"}], ",", " ",
6 {$ Q' o3 M; ]4 K RowBox[{"{",
! X* c Q* O8 \& S) C) G RowBox[{
! s A1 m# x/ D- x9 G: w: G "0.913043", ",", "0.170478", ",", "0.000000", ",", "0.012973", ",",
& a" A" z8 I/ L# `# b, |4 k "0.293706", ",", "0.000000", ",", "0.000000", ",", "0.672709", ",", - h0 G- l- O: r+ B9 Y3 y
"0.000000", ",", "0.114252", ",", "0.028169"}], "}"}], ",", " ",
% w+ o' X+ z2 z; ^! h9 ]# v RowBox[{"{", 7 s' q% c, b! b2 q4 ~ x0 S c
RowBox[{( `" t7 e; f) P) K
"0.739130", ",", "0.193199", ",", "0.160584", ",", "0.037907", ",",
8 I, M. [" V# {& f "0.461538", ",", "0.000000", ",", "0.684553", ",", "0.000000", ",",
* R& ?" p& t' g: @5 h/ | "0.000000", ",", "0.401355", ",", "0.436620"}], "}"}], ",", " ", " q5 H i0 |/ Y1 q
RowBox[{"{", ! d/ g9 g8 }: o4 q3 ?
RowBox[{
# {: ~* T4 v) L "0.826087", ",", "0.203969", ",", "0.234619", ",", "0.272240", ",", 4 X$ [& e4 i9 T* F3 J1 O% J
"0.265734", ",", "0.000000", ",", "0.000000", ",", "0.000000", ",", 2 R# r! g/ c" A: |" l% \5 X. q( l
"0.000000", ",", "0.827444", ",", "0.394366"}], "}"}], ",", " ",
1 n8 a% B' A& O. M- l+ @ h: M( t RowBox[{"{",
) I0 b9 `: @+ M: b RowBox[{4 E) c4 V2 {) ]3 z I, ?5 c
"1.000000", ",", "0.199248", ",", "0.295044", ",", "0.041613", ",",
! ^* }4 {- C! m "0.209790", ",", "0.000000", ",", "0.000000", ",", "0.000000", ",",
/ }. L" A, E! g "0.000000", ",", "0.676973", ",", "0.295775"}], "}"}], ",", " ",
2 C) u" b$ \2 ^6 Z$ Y& o+ y RowBox[{"{",
$ ?$ K, ^0 h% N2 c RowBox[{
9 P- Z# B( v7 P8 V' }2 W) e1 \$ M6 } "0.869565", ",", "0.180363", ",", "0.243056", ",", "0.098349", ",",
+ b% X2 a- j5 z* v: D "0.265734", ",", "0.503391", ",", "0.000000", ",", "0.000000", ",",
; A u, w- \: @/ v. u# a! p "0.000000", ",", "0.331272", ",", "0.830986"}], "}"}], ",", " ", ) @ L& L" t4 U7 Z+ W2 ?
RowBox[{"{", % R3 g# W7 w% E; M$ c: E4 l
RowBox[{
( C$ i6 C4 V' F n" f, C, q "0.695652", ",", "0.551785", ",", "0.326201", ",", "0.253608", ",", 1 ~$ t* W" G' T2 |( m
"0.195804", ",", "0.000000", ",", "0.000000", ",", "0.000000", ",",
7 _0 A# d6 G5 d. F( s* r& z "0.000000", ",", "0.845701", ",", "0.169014"}], "}"}], ",", " ",
' S$ R# t$ Z' U1 ^; `% ?2 v RowBox[{"{", ! ]1 T. m9 E1 I1 ]# U9 g/ G |/ J1 {
RowBox[{2 I% d F; _) `2 \4 a7 b0 r0 Y% q, B
"0.652174", ",", "0.572293", ",", "0.111511", ",", "0.035584", ",", 6 [0 Q+ Q: g6 ?
"0.405594", ",", "0.249435", ",", "0.544715", ",", "0.000000", ",", 8 O5 l2 W- L( R2 l) M: N) J" b# l
"0.000000", ",", "0.287102", ",", "0.366197"}], "}"}], ",", " ",
( ?) n2 m' R' e% {+ [ o- Z( [ RowBox[{"{", 5 A+ C5 c2 c+ G4 b
RowBox[{+ m9 G* T* G4 i
"0.652174", ",", "0.562039", ",", "0.336155", ",", "0.014604", ",", 9 u6 B1 ]3 I5 g0 Y2 d. w
"0.174825", ",", "0.244160", ",", "0.000000", ",", "0.000000", ",", % C0 h" U F4 V
"0.000000", ",", "0.000000", ",", "0.309859"}], "}"}], ",", " ",
0 j1 V; e: g$ q" { RowBox[{"{", + Q- {' h$ s5 K, t! u5 @7 _3 l3 |
RowBox[{( v+ c g) Q0 v( {- M9 @4 C7 @
"0.565217", ",", "0.577383", ",", "0.155870", ",", "0.030963", ",",
. s" a- t- x! [! T1 e "0.258741", ",", "0.000000", ",", "0.000000", ",", "0.000000", ",", 0 S0 Y1 z9 A4 v7 O
"0.000000", ",", "0.050059", ",", "0.352113"}], "}"}], ",", " ", ) y+ H7 n. Q. W9 S4 @
RowBox[{"{",
. [6 c) [: _ _2 l RowBox[{
; z L0 y3 A T9 v# ]4 b8 N" A "0.565217", ",", "0.613234", ",", "0.232956", ",", "0.053870", ",", 8 G. Y+ R* C8 {0 ]7 D
"0.230769", ",", "0.000000", ",", "0.000000", ",", "0.000000", ",", 7 `- _! u/ A3 }" w% n! c, l2 \
"0.000000", ",", "0.254122", ",", "0.309859"}], "}"}], ",", " ", ; m* H6 c. G6 N+ _6 l9 n, q) o3 A+ s
RowBox[{"{", / h2 R+ U% G' O1 D
RowBox[{
. G3 m! U8 Q$ j. ]" G "0.565217", ",", "0.559531", ",", "0.493262", ",", "0.046209", ",",
* v+ l- b; s/ g% v& M- p "0.293706", ",", "0.000000", ",", "0.000000", ",", "0.000000", ",",
" H) k; F" @9 a$ q "0.000000", ",", "0.086867", ",", "0.774648"}], "}"}], ",", " ",
: Q {4 }7 T \7 M2 B# ^! b RowBox[{"{",
; w' E9 e1 v p1 Z- k5 O RowBox[{
1 h6 Y3 I) B. T2 I: l "0.608696", ",", "0.569711", ",", "0.111932", ",", "0.013542", ",",
( J3 V2 X+ w, n1 r5 W4 Q# O$ }" x "0.335664", ",", "0.000000", ",", "0.000000", ",", "0.000000", ",",
5 }' @$ X+ Q+ u m+ D "0.168704", ",", "0.659894", ",", "0.422535"}], "}"}], ",", " ",
* x% V& {" B/ X: X RowBox[{"{", % @* i4 U# g7 R+ o5 R$ `5 }
RowBox[{
) h& N' g, ]0 I. h4 p% q "0.608696", ",", "0.564547", ",", "0.329844", ",", "0.202036", ",",
: ^& b2 t* m* i& K- C9 Q "0.510490", ",", "0.000000", ",", "0.000000", ",", "0.000000", ",", ; E% b# u) n: v3 n1 J
"0.000000", ",", "0.317138", ",", "0.887324"}], "}"}], ",", " ", ; X o% ^; v! N# l; B9 g9 r% ?
RowBox[{"{",
% o; l5 Q5 H/ i7 f0 V RowBox[{
) z) B2 p$ z9 n8 ]; g "0.521739", ",", "0.546695", ",", "0.165788", ",", "0.029431", ",", 5 n" ~' ~4 ?$ h# a
"0.510490", ",", "0.000000", ",", "0.000000", ",", "0.000000", ",",
- }. X3 r. j/ y0 p/ A9 X0 T "0.000000", ",", "0.605124", ",", "0.887324"}], "}"}], ",", " ", & t* M6 a) z( [0 g/ X- P
RowBox[{"{", % c& _) _5 Z0 j% y9 m; u) o
RowBox[{ i0 v# u# V! q% s5 }
"0.521739", ",", "0.564178", ",", "0.400518", ",", "0.045023", ",", 5 a5 q& F. c* q
"0.615385", ",", "0.368500", ",", "0.660163", ",", "0.301108", ",", ' o- d3 `; e6 O# ]0 d9 a" t) [
"0.000000", ",", "0.321260", ",", "0.859155"}], "}"}], ",", " ", 3 H1 W% q, T1 G; z9 G* E2 A2 w2 ^
RowBox[{"{",
6 _3 q0 C7 X9 F+ ^* k/ w9 p RowBox[{
& t9 T; y5 k: O* n* _( H T* \8 a "0.413043", ",", "0.551859", ",", "0.544826", ",", "0.230503", ",", j8 l/ O) W% F0 v% g& Y
"0.244755", ",", "0.530520", ",", "0.819512", ",", "0.000000", ",", : d/ W1 j4 n: f. h( Q
"0.000000", ",", "0.595406", ",", "0.239437"}], "}"}], ",", " ", + a; ^: Q2 g2 R. Y" ?
RowBox[{"{",
2 t! A7 X) D; b1 \( A RowBox[{
3 y% O2 `- _* {1 z "0.652174", ",", "0.549277", ",", "0.257578", ",", "0.058688", ",",
2 Z u% B$ ]$ V7 _& j% Z3 s1 e "0.356643", ",", "0.000000", ",", "0.817886", ",", "0.000000", ",",
3 }2 h1 C4 J# J W, n# Q "0.000000", ",", "0.555359", ",", "0.295775"}], "}"}], ",", " ", 4 H) ?* X$ v1 g; J) o; O
RowBox[{"{", 2 m0 D. S' S& M( x) U
RowBox[{
* c- e8 B1 _+ k "0.695652", ",", "0.549277", ",", "0.572308", ",", "0.082411", ",",
+ d, R% g/ F) t% ?: b$ j "0.461538", ",", "0.528259", ",", "0.819512", ",", "0.000000", ",",
8 _, j1 r+ C2 x: m2 y* O; V "0.000000", ",", "0.333333", ",", "0.746479"}], "}"}], ",", " ",
; n- C% T. x7 O Z RowBox[{"{", $ f# E; K8 t: G' V3 N) Z# M
RowBox[{; ]# F% h; v% w5 }8 W* I. u
"0.434783", ",", "0.551785", ",", "0.530346", ",", "0.151651", ",",
4 O4 H& j* R, n- B) P @ "0.790210", ",", "0.529013", ",", "0.409756", ",", "0.000000", ",",
4 q4 D5 o' U4 N( _ "1.000000", ",", "0.149588", ",", "1.000000"}], "}"}], ",", " ",
- z/ y1 R6 N M5 w2 C4 A# T RowBox[{"{", " r% x6 r) k! P' V: m _( R6 ?: r
RowBox[{
9 `( W$ E4 [8 I9 ^ N5 ~ "0.282609", ",", "0.531278", ",", "0.321428", ",", "0.228625", ",", * r6 T6 S" b5 |- W( I3 G9 r3 z
"0.594406", ",", "0.530520", ",", "0.410569", ",", "0.000000", ",",
% }6 g6 k2 \- @! F s0 v5 b" | "0.757457", ",", "0.493522", ",", "0.549296"}], "}"}], ",", " ", 2 U, L* d, [! n1 {- M/ g! h
RowBox[{"{", 3 C8 J: G6 V' _( v/ u- N
RowBox[{4 y% |; ^: z5 ^" _
"0.347826", ",", "0.705444", ",", "0.109343", ",", "0.072008", ",",
7 B7 N; ~: @0 d "0.496503", ",", "0.000000", ",", "0.000000", ",", "0.000000", ",",
" a' M' d% {7 l1 e; m( L3 X "0.752567", ",", "0.224676", ",", "0.366197"}], "}"}], ",", " ", I$ Y8 R* A6 W- H
RowBox[{"{",
0 ^* q# t2 j$ s8 t. d RowBox[{- m3 u9 v1 b8 t: a6 q: P& @8 F3 t
"0.391304", ",", "0.705444", ",", "0.045908", ",", "0.073120", ",", . x% T5 D x u# N" V F! ]# V
"0.622378", ",", "0.000000", ",", "0.000000", ",", "0.000000", ",",
+ Q1 _# E$ {" E" H7 x* E "0.496333", ",", "0.410188", ",", "0.549296"}], "}"}], ",", " ", , b! `( v5 t4 E( g: N" k# z6 x
RowBox[{"{",
+ ]5 C' H# q6 p" b1 V RowBox[{+ M0 N1 G% \6 F3 X
"0.282609", ",", "0.661921", ",", "0.344992", ",", "0.085178", ",", ( P7 Q5 T5 U6 w7 `' k
"0.293706", ",", "0.000000", ",", "0.000000", ",", "0.000000", ",", 9 a0 h2 Y0 Q( z2 h* b9 T" G% u& k
"0.000000", ",", "0.668139", ",", "0.577465"}], "}"}], ",", " ", * ?) H& W; C! C6 Y, }& Q
RowBox[{"{",
, f* N1 L5 A1 c4 r2 \- @0 T( V RowBox[{0 Q2 I; F4 N& _. i5 ]
"0.478261", ",", "0.661921", ",", "0.644209", ",", "0.077296", ",",
. l: {, J$ I1 ~, L/ u4 r* M "0.412587", ",", "0.000000", ",", "0.413008", ",", "0.502518", ",",
} V6 ~* F9 |( P" Q W: T. q "0.000000", ",", "0.102179", ",", "0.690141"}], "}"}], ",", " ",
9 o' R5 ]& @6 B5 n& Q RowBox[{"{",
8 X7 q2 f o% a$ W2 U RowBox[{8 `5 c! ]3 L5 ?2 W9 |) G
"0.173913", ",", "0.984656", ",", "0.420753", ",", "0.137022", ",",
8 i) O" V- G5 s* g! V8 S2 c "0.321678", ",", "0.000000", ",", "0.000000", ",", "0.000000", ",",
8 b* k N9 B/ L5 g% v1 C* F "0.000000", ",", "0.380742", ",", "0.718310"}], "}"}], ",", " ",
$ h; s% x! @9 l+ y8 u RowBox[{"{", / T! m$ |) D9 m
RowBox[{
3 q. o3 E& ~5 x* f4 J "0.500000", ",", "0.984656", ",", "0.288432", ",", "0.047692", ",",
# P2 [, K @7 K6 b9 T "0.279720", ",", "0.000000", ",", "0.821138", ",", "0.510574", ",", ; W0 s0 v4 S. O3 I& S1 s2 P
"0.000000", ",", "0.319494", ",", "0.521127"}], "}"}], ",", " ",
* I+ r$ ^# l4 l) p M RowBox[{"{",
4 ~8 G0 W1 Q; `) } RowBox[{
9 }0 e9 f8 D3 ~( r( G' o "0.391304", ",", "1.000000", ",", "0.452931", ",", "0.150909", ",",
& W6 \* i) {% B4 W+ y "0.342657", ",", "0.370761", ",", "0.000000", ",", "0.509567", ",", U! R3 E/ ]. H
"0.000000", ",", "0.031508", ",", "0.929577"}], "}"}], ",", " ", 5 A, I/ ^+ `% ^1 E5 z& K+ L
RowBox[{"{", V# W! L, d0 o. l- X* G! F2 @
RowBox[{/ [, M! B7 u! ?. a
"0.739130", ",", "0.774639", ",", "0.175120", ",", "0.036498", ",",
9 V& o$ O+ t3 N- P. R! A9 g, y "0.391608", ",", "0.739261", ",", "0.408943", ",", "0.553877", ",", + f2 [+ f& z/ m
"0.000000", ",", "0.292108", ",", "0.521127"}], "}"}], ",", " ", / o# o1 ^) J8 F; U- M
RowBox[{"{",
1 @- W& @( I9 d, e, E& K( D! y1 @ RowBox[{
( i. x1 o7 _0 t: w, J "0.586957", ",", "0.982074", ",", "0.158462", ",", "0.063902", ",",
; V/ K+ B7 a9 |* `' O, e, D "0.321678", ",", "0.000000", ",", "0.000000", ",", "0.000000", ",",
1 a, Z& g. b' V0 V, f( B "0.000000", ",", "0.329505", ",", "0.338028"}], "}"}], ",", " ",
: X5 n* ^* s* M1 H" A RowBox[{"{",
. D4 u, `. w8 Q! H7 _: j RowBox[{) c. |4 z U5 U8 o! b
"0.543478", ",", "0.982074", ",", "0.306872", ",", "0.041934", ",", 3 y# j$ r, w: i& N# ]" Z- M: L5 X
"0.426573", ",", "0.380558", ",", "0.414634", ",", "0.506546", ",", n1 B; o! Q% W! Q; ?8 b* X
"0.000000", ",", "0.337456", ",", "0.380282"}], "}"}], ",", " ",
% y; n6 R3 S$ i: [6 `/ L RowBox[{"{", 7 a0 q" l8 y0 d O% I) |
RowBox[{
7 `1 q- d+ l1 G5 p3 O "0.739130", ",", "0.997418", ",", "0.170143", ",", "0.058268", ",",
2 J; m. T6 z' ^$ h% z6 E* O$ a "0.538462", ",", "0.248681", ",", "0.000000", ",", "0.339376", ",", 4 F* D+ k6 y B' s( Y" u9 f
"0.000000", ",", "0.766784", ",", "0.676056"}], "}"}], ",", " ",
. g- V) a3 W+ F5 k RowBox[{"{", , z7 w; \. c, l" Y
RowBox[{
1 u0 X& f) P1 ]1 D# _. @ "0.695652", ",", "0.700428", ",", "0.139361", ",", "0.182169", ",",
1 n% Q9 ^. T6 Y: ^ "0.412587", ",", "0.243406", ",", "0.000000", ",", "0.000000", ",", 0 S. Y; H- C% ]7 x
"0.136919", ",", "0.676678", ",", "0.591549"}], "}"}], ",", " ",
# @" m8 M( y+ k% f RowBox[{"{",
\9 q1 {+ C8 R; B RowBox[{
6 ]2 i/ I3 B% O, ~$ y {' N& p. G "0.782609", ",", "0.751623", ",", "0.177646", ",", "0.350845", ",", 1 s: @2 V6 ?* a" K; ], r" [- t
"0.412587", ",", "0.502638", ",", "0.000000", ",", "0.000000", ",",
" Q" H% O# P( u4 r$ | "0.178973", ",", "0.541519", ",", "0.464789"}], "}"}], ",", " ", " e$ y7 W6 p: i/ j( j9 S8 `" C
RowBox[{"{", F0 J6 T& v! s
RowBox[{: G2 {( t6 u' \' P2 o
"0.652174", ",", "0.751623", ",", "0.355593", ",", "0.039883", ",", ! @; Z3 q0 e4 _% ~* M
"0.195804", ",", "0.000000", ",", "0.000000", ",", "0.000000", ",",
6 y; Q" ^" ]# t7 M$ n2 |" U "0.000000", ",", "0.064488", ",", "0.295775"}], "}"}], ",", " ",
4 h5 r o% P$ P+ J1 X RowBox[{"{",
* v P- l5 u4 ~8 {6 t8 ^- Z RowBox[{ }% f% s4 O1 T" Z5 D( Y
"0.521739", ",", "0.679847", ",", "0.152375", ",", "0.030048", ",",
, M2 U j* h% s: g" V "0.363636", ",", "0.000000", ",", "0.271545", ",", "0.000000", ",", ' Q1 }0 ^1 I& [; `! a5 P% @. O$ w f
"0.000000", ",", "0.463192", ",", "0.380282"}], "}"}], ",", " ", & ]+ t0 D& m# {
RowBox[{"{", - b3 M L8 f5 l- J2 l
RowBox[{
! w# {% t# s( ` L2 j) R) b/ l0 a "0.434783", ",", "0.728533", ",", "0.186830", ",", "0.129510", ",", 5 g' A3 v- f: |9 T
"0.195804", ",", "0.000000", ",", "0.269919", ",", "0.000000", ",",
7 D# W( d" I0 [& J8 F "0.326650", ",", "0.388398", ",", "0.211268"}], "}"}], ",", " ",
; D3 R# x) S& a* H# } RowBox[{"{",
+ }- q* j! i! _2 { RowBox[{8 d @2 \" z' e! ^
"0.608696", ",", "0.606152", ",", "0.158058", ",", "0.090170", ",", ) S; b6 m( S5 V7 c/ c' T ?
"1.000000", ",", "0.166541", ",", "0.278049", ",", "0.000000", ",", . Q7 D) w- g/ k
"0.236675", ",", "0.262367", ",", "0.253521"}], "}"}], ",", " ",
# { J1 q7 }! f( B$ v RowBox[{"{",
0 B, ?# L' _" L$ I" f) d RowBox[{( y# Z" s" L% E3 w+ G
"0.608696", ",", "0.633742", ",", "0.322697", ",", "0.068597", ",", ! H; |* e' {6 f1 _; a. z2 b. R: }
"0.328671", ",", "0.000000", ",", "0.000000", ",", "0.000000", ",",
* S9 ~ f* k0 k6 I1 W "0.287042", ",", "0.290931", ",", "0.281690"}], "}"}], ",", " ", & w' E# y; U9 z
RowBox[{"{",
1 ?* O6 P j- D0 c+ y1 c RowBox[{1 A. n, O5 N# @9 s$ ?
"0.478261", ",", "0.539023", ",", "0.412108", ",", "0.107566", ",", 7 E F) W) @1 k+ A
"0.237762", ",", "0.000000", ",", "0.000000", ",", "0.000000", ",",
# y: d: r L. t( `$ s6 c "0.000000", ",", "0.380742", ",", "0.507042"}], "}"}], ",", " ", $ _0 e0 K8 S+ _/ C
RowBox[{"{", ' o; r/ H8 a& b! h3 g
RowBox[{
" K/ x% @& s% O: |5 |7 T( U "0.608696", ",", "0.551859", ",", "0.176821", ",", "0.076332", ",",
9 b. t* W4 [, V6 Z" e "0.265734", ",", "0.000000", ",", "0.000000", ",", "0.000000", ",", 2 O% H3 C( V. S, d& X0 @) [! _
"0.000000", ",", "0.429034", ",", "0.239437"}], "}"}], ",", " ", , J, Z! E% X9 H5 l" j$ _
RowBox[{"{",
K7 N# c4 Z2 I% a) n) q RowBox[{8 `6 N! y+ V( R3 T) E N" U
"0.652174", ",", "0.551859", ",", "0.033549", ",", "0.018459", ",", $ u5 A7 l8 K: u" e; q* v
"0.573427", ",", "0.000000", ",", "0.553659", ",", "0.000000", ",", 5 M6 T; ^, N5 t/ @& q6 c
"0.404890", ",", "0.193168", ",", "0.394366"}], "}"}], ",", " ", 5 Q. l! y2 J* ]) p/ o" K0 o. j
RowBox[{"{",
2 N* N, g/ Z, q9 C$ | RowBox[{
' Q$ k5 v' D, L "0.695652", ",", "0.595382", ",", "0.277493", ",", "0.100326", ",",
1 Q& Z# \" W z/ }5 l "0.286713", ",", "0.000000", ",", "0.000000", ",", "0.000000", ",", 7 Y, I, B( x7 Q
"0.000000", ",", "0.448763", ",", "0.338028"}], "}"}], ",", " ", 2 ^6 u9 x- p: J- f4 A8 {( e6 K# a4 q
RowBox[{"{", & b) M+ q( ?7 T5 s4 ]' o1 C6 O6 d% w( I
RowBox[{" A/ N* Y* e, U5 p
"0.565217", ",", "0.559531", ",", "0.422669", ",", "0.078111", ",", $ B* G2 l6 R0 A3 t7 d. l
"0.286713", ",", "0.000000", ",", "0.000000", ",", "0.000000", ",",
& Z& q2 B& b: x. Y& u0 r! G "0.000000", ",", "0.442285", ",", "0.394366"}], "}"}], ",", " ",
6 g+ c# Q$ }9 F# F' I9 F RowBox[{"{", 3 n2 y9 e2 W$ p; `; [% _
RowBox[{
( _4 G) J, N/ m$ c "0.586957", ",", "0.398126", ",", "0.140619", ",", "0.069116", ",",
' l2 Y+ X# e3 C8 g2 s1 k6 b( O6 O "0.461538", ",", "0.000000", ",", "0.000000", ",", "0.000000", ",", - S+ z% r) P# N3 {* S
"0.000000", ",", "0.575383", ",", "0.154930"}], "}"}], ",", " ", 4 s9 N& {% R+ \9 I3 z
RowBox[{"{", 9 V2 A% b0 D( w/ U
RowBox[{% `( i+ X8 y5 ]+ Q0 S5 P/ Z8 v) ?/ `
"0.695652", ",", "0.398126", ",", "0.019829", ",", "0.041366", ",",
/ g- e5 |" }$ }2 c: E3 I0 O$ p/ Q "0.552448", ",", "0.244160", ",", "0.000000", ",", "0.000000", ",",
9 X* I9 a8 Y# R& i "0.000000", ",", "0.515607", ",", "0.591549"}], "}"}], ",", " ",
& ^; y5 i8 ^7 Z4 F7 ? RowBox[{"{", 6 ?9 g; B# g5 R8 o" Z6 k' E
RowBox[{7 N/ \7 Y1 r7 r- V" x7 J: k
"0.695652", ",", "0.700354", ",", "0.422467", ",", "0.068128", ",", % U4 A8 n. g# B0 F2 j
"0.209790", ",", "0.000000", ",", "0.000000", ",", "0.500504", ",", 3 J! o' h* }4 T; T
"0.000000", ",", "0.057715", ",", "0.408451"}], "}"}], ",", " ",
& ]: v1 E1 \5 K, w+ O RowBox[{"{", 1 k7 K/ o Y9 H R9 g5 _
RowBox[{
1 v8 L- P( U9 e" j+ [0 ~ "0.521739", ",", "0.193125", ",", "0.210582", ",", "0.110433", ",", & _; `- \, w# O& G8 y
"0.447552", ",", "0.382065", ",", "0.413008", ",", "0.498489", ",", 1 N" ^! n# x" ^
"0.000000", ",", "0.174617", ",", "0.295775"}], "}"}], ",", " ", 7 d9 s2 H3 S+ l2 [7 L; n1 i
RowBox[{"{", . |9 x7 N$ g+ _* x$ z0 |* y" L
RowBox[{7 |7 k) V- g8 k
"0.347826", ",", "0.063588", ",", "0.830527", ",", "1.000000", ",",
3 [/ o# Y) \- _, r, B7 g5 j "0.111888", ",", "0.000000", ",", "0.410569", ",", "0.000000", ",", + p" V5 y% V+ ]
"0.000000", ",", "0.667550", ",", "0.661972"}], "}"}], ",", " ",
/ O; s- F, q# z; X* S e8 |6 _, U- }- { RowBox[{"{", ( {, D5 j9 E3 v o! `
RowBox[{2 N( y6 a0 I8 t2 F9 n$ I, P
"0.521739", ",", "0.188109", ",", "1.000000", ",", "0.785485", ",", 2 p/ U/ S' C% Z# |6 @8 C9 E
"0.342657", ",", "0.373775", ",", "0.406504", ",", "1.000000", ",",
$ S6 L; o% l5 s "0.000000", ",", "0.371025", ",", "0.774648"}], "}"}], ",", " ",
1 e+ S( z& G( q2 Y& l. p# V RowBox[{"{",
% c l; V& Q0 t, k2 }6 { RowBox[{
# Q' [! U. e) E% H$ g "0.695652", ",", "0.188404", ",", "0.088836", ",", "0.059504", ",", # g1 z2 ]1 L0 |1 g3 K3 L6 ]/ j" H8 a
"0.706294", ",", "0.376790", ",", "0.000000", ",", "0.000000", ",",
4 t0 Y, O+ n, q2 j "0.000000", ",", "0.570966", ",", "0.746479"}], "}"}], ",", " ", B8 F. A" H- K1 r
RowBox[{"{",
6 k4 H) q) s; N8 t RowBox[{5 k G8 T- B9 i- `) w
"0.695652", ",", "0.057465", ",", "0.316316", ",", "0.151280", ",",
$ b4 f2 O# g# h! V7 n3 K8 [( x7 P p+ f "0.615385", ",", "0.371515", ",", "0.412195", ",", "0.500504", ",", 3 J& ^! D5 z; k7 }/ w
"0.000000", ",", "0.468198", ",", "0.887324"}], "}"}], ",", " ",
* O) \' `! m) X$ g RowBox[{"{",
- @5 L( k. l* y8 i4 } RowBox[{3 ^ V0 {" O7 ^' @
"0.608696", ",", "0.011360", ",", "0.295586", ",", "0.113892", ",", 5 m5 m8 w; i( U w
"0.580420", ",", "0.746044", ",", "0.405691", ",", "0.501511", ",",
& o* M( }$ d7 D2 E7 s( ?- Q- R2 H "0.000000", ",", "0.414016", ",", "0.845070"}], "}"}], ",", " ", : i' k3 s, Z) H/ Z
RowBox[{"{",
8 M v3 ]1 }0 A4 D# N' M% ]2 v RowBox[{
6 E# V1 \- J. k "0.608696", ",", "0.364783", ",", "0.130582", ",", "0.020214", ",",
) Y$ {7 W% _& b& e4 U% E "0.356643", ",", "0.379804", ",", "0.000000", ",", "0.000000", ",",
) g4 [; o3 Y: ?# B5 h7 F8 H "0.000000", ",", "0.186690", ",", "0.704225"}], "}"}], ",", " ", 0 p, ^6 Y7 A7 J. s8 o7 x
RowBox[{"{", # L( E/ ]. G8 t1 d" ^; X
RowBox[{
% Z+ o. L3 V! C; K+ h& b "0.608696", ",", "0.193199", ",", "0.112690", ",", "0.036152", ",",
e: `* D5 ~# u" S) ~% w% C/ [ "0.636364", ",", "0.382065", ",", "0.409756", ",", "0.495468", ",", 3 J2 k8 V$ z9 D' J
"0.000000", ",", "0.442874", ",", "0.760563"}], "}"}], ",", " ",
4 u; j9 r: h- _+ `; x RowBox[{"{", ; M, b% |) J" X) w0 Y
RowBox[{3 z' T, b7 h( r% ? `8 c
"0.739130", ",", "0.328932", ",", "0.246779", ",", "0.126520", ",", 4 h5 {: W( ^3 A
"0.454545", ",", "0.000000", ",", "0.495122", ",", "0.000000", ",", 6 A0 `6 x1 [( G$ V8 Y. G
"0.414181", ",", "0.686690", ",", "0.436620"}], "}"}], ",", " ", 9 d3 s9 g/ Q' \ N
RowBox[{"{", 2 R0 q. O- X. L( b& }
RowBox[{
5 l ^6 U, u C3 h5 ~ "0.739130", ",", "0.341767", ",", "0.362090", ",", "0.183528", ",", ! J ]0 o$ U# y2 {) I1 x
"0.573427", ",", "0.413715", ",", "0.454472", ",", "0.661631", ",", ' r/ _4 p9 _& T. d: ~: B
"0.000000", ",", "0.244111", ",", "0.633803"}], "}"}], ",", " ",
; R* `7 T$ e) \' M9 S- Z8 p3 ~ RowBox[{"{", + v: P& L- d% q/ V0 G2 S
RowBox[{
- W( C" e+ U/ @0 [% V "0.695652", ",", "0.187076", ",", "0.279724", ",", "0.006252", ",",
' Z" y8 O& z9 u& y/ E8 P0 d/ J4 T "0.405594", ",", "0.418237", ",", "0.544715", ",", "0.000000", ",",
: @; H) s: e% m% g+ K9 q+ E% L0 I "0.000000", ",", "1.000000", ",", "0.422535"}], "}"}], ",", " ",
3 p8 N9 A% U# l# B RowBox[{"{",
& {9 Q1 l& S3 x3 d) j% U, ?/ A- s4 H; i RowBox[{! H; i( ]5 g( w2 I3 y
"1.000000", ",", "0.333948", ",", "0.064750", ",", "0.065855", ",",
$ @; t- |( K# g. c "0.342657", ",", "0.000000", ",", "0.408130", ",", "0.000000", ",", c8 k1 K' i* k, i7 I/ h3 n C4 M
"0.000000", ",", "0.957892", ",", "0.295775"}], "}"}], ",", " ",
. x) j9 K( g* X& x. x5 k$ D6 a RowBox[{"{", 3 [1 f, k# P& B" a8 v! `+ j
RowBox[{
6 j3 x7 s% \/ @) `- x. Q "0.739130", ",", "0.305400", ",", "0.374567", ",", "0.132870", ",",
7 i9 e6 Y, F# c8 M# M% p "0.258741", ",", "0.834966", ",", "0.000000", ",", "0.000000", ",", $ c+ o( K A( }. b) w* F% Q
"0.272861", ",", "0.266784", ",", "0.309859"}], "}"}], ",", " ",
+ ^+ \) c$ _. ?0 _) ?) t RowBox[{"{", / O, l) o* q0 v4 D
RowBox[{6 J# H8 t9 A( {& z& }2 K
"0.826087", ",", "0.151962", ",", "0.360280", ",", "0.221632", ",", 3 `" l3 d+ H5 K
"0.447552", ",", "0.584778", ",", "0.457724", ",", "0.000000", ",", ! O: t; G9 M% p, H) k' k
"0.000000", ",", "0.826855", ",", "0.408451"}], "}"}], ",", " ", # t; ^* a; n/ S8 Q: z
RowBox[{"{",
- t l5 E) C% |' t- M RowBox[{5 C7 j, g, x1 ^! c
"0.565217", ",", "0.047212", ",", "0.233154", ",", "0.121528", ",", ! ?5 }9 [, O9 ?# h0 H5 g
"0.314685", ",", "0.417483", ",", "0.546341", ",", "0.000000", ",", 6 l0 v) w( B" D
"0.669438", ",", "0.341873", ",", "0.197183"}], "}"}], ",", " ",
$ }& e8 @1 k8 `" V, h! A RowBox[{"{",
) D4 y) B& y' u! ?$ H RowBox[{" M* S7 y' N+ {
"0.826087", ",", "0.034376", ",", "0.690349", ",", "0.512380", ",", 9 }) W+ `# ^% u+ H& n1 U8 Q1 Q
"0.685315", ",", "1.000000", ",", "1.000000", ",", "0.000000", ",",
" R6 S9 d: {% c% W6 G1 `, z; z( W' x "0.556479", ",", "0.412544", ",", "0.732394"}], "}"}], ",", " ", + x" w3 `' R0 ^
RowBox[{"{",
' i/ H, m* `6 K RowBox[{; C6 K# H; t) v
"0.652174", ",", "0.000000", ",", "0.374417", ",", "0.188075", ",",
" m9 X# c2 ^$ u( r) w; O "0.706294", ",", "0.498116", ",", "0.729268", ",", "0.000000", ",", 6 [" F! m q1 E7 ~* T) m
"0.454279", ",", "0.322144", ",", "0.802817"}], "}"}], ",", " ", , _. z4 Z$ { S
RowBox[{"{",
8 b2 t( \% |' p3 z5 O2 q+ n RowBox[{
0 |% n/ h( x: e0 a; \, P7 f" J "0.782609", ",", "0.180363", ",", "0.237142", ",", "0.054809", ",",
8 |9 k2 q/ b: o. \5 ] "0.629371", ",", "0.373775", ",", "0.247967", ",", "0.000000", ",", j8 I3 I- A9 _. @6 o
"0.163814", ",", "0.370436", ",", "0.746479"}], "}"}], ",", " ", 2 W, I5 B8 f% W! _/ j0 t
RowBox[{"{",
( Q6 q: W6 F! _, {& M RowBox[{
# h$ }/ Q+ s/ u* b) F4 j2 C9 M "0.608696", ",", "0.169150", ",", "0.368148", ",", "0.393768", ",",
, d" B p5 b& f/ g; s5 r "0.440559", ",", "0.995479", ",", "0.545528", ",", "0.000000", ",",
9 J2 C5 h. [0 F* \5 p9 w "0.565770", ",", "0.333039", ",", "0.380282"}], "}"}], ",", " ",
5 k; h1 P0 b# R8 L RowBox[{"{",
7 { F; Y5 _; Z! S9 H RowBox[{. V G6 x5 ?% V: t; R1 u& d
"0.695652", ",", "0.390454", ",", "0.186683", ",", "0.039439", ",",
3 f; q: P, H: ^ ^0 o' ` "0.482517", ",", "0.497362", ",", "0.415447", ",", "0.508560", ",", 7 g+ m% r8 \. e
"0.000000", ",", "0.390754", ",", "0.563380"}], "}"}], ",", " ", 9 d) N) @; k. @$ s
RowBox[{"{",
# V, V# A. X2 h" p- { RowBox[{
# ~; B: I9 y4 g7 n: N "0.739130", ",", "0.428888", ",", "0.082728", ",", "0.070154", ",",
* z1 j' t( K. u n0 P "0.279720", ",", "0.000000", ",", "0.000000", ",", "0.000000", ",", " t' Z0 S$ m1 i$ d. C0 Y4 U
"0.000000", ",", "0.694935", ",", "0.323944"}], "}"}]}], 0 J8 Z$ _; T$ F2 X C
"}"}]}]], "Input",& p" m9 k* Y7 n6 [6 |5 {* K+ n
CellChangeTimes->{3.5779587825701036`*^9}],
2 e. ~2 K g- X9 `1 X/ e
3 K& T8 G4 e' ]6 H' ]% HCell[BoxData[
8 c' P5 l% f* r2 o% z RowBox[{"{", 8 B2 ` W) Z- c2 i
RowBox[{
- {" m0 Y! n. m6 a RowBox[{"{", - B( p6 X4 s! K8 i( u* z+ F
RowBox[{
4 l) q! ~6 c' r: ^ "0.304348`", ",", "0.552818`", ",", "0.33037`", ",", "0.025823`", ",",
6 a1 Z* x% G' ^ "0.538462`", ",", "0.752072`", ",", "0.408943`", ",", "0.504532`", ",",
|( v! G& [( I. l% j7 g8 F "0.`", ",", "0.277091`", ",", "0.873239`"}], "}"}], ",", 2 u) ^/ E% ^4 D( N# ?# F, t) v0 C
RowBox[{"{", 3 A: W9 _ F. o! V( ~
RowBox[{7 |. a, O0 N5 c/ ?9 s
"0.565217`", ",", "0.346857`", ",", "0.393585`", ",", "0.118785`", ",",
& t2 o4 x2 e$ w+ O- F4 n "0.34965`", ",", "0.370761`", ",", "0.413008`", ",", "0.502518`", ",",
: h0 ~$ r z3 A) Z& d! r/ P9 h8 [6 L "0.`", ",", "0.220259`", ",", "0.464789`"}], "}"}], ",",
& R+ [* H* j1 J% c+ T0 c RowBox[{"{",
3 }, O% S0 v/ c+ \- H3 A8 J3 Q } RowBox[{& |, z. G9 q4 a2 N+ E8 X$ `
"0.608696`", ",", "0.339186`", ",", "0.4943`", ",", "0.099338`", ",",
. Y3 q |8 D5 E& a$ o% t' J "0.321678`", ",", "0.375283`", ",", "0.`", ",", "0.505539`", ",", "0.`",
) o+ p. L5 r8 }! a7 k8 B1 j1 I ",", "0.899882`", ",", "0.492958`"}], "}"}], ",", 2 W2 J0 z( p5 n2 j: F
RowBox[{"{",
- }, g6 h" N* p# w8 g' l RowBox[{
- r& O. y9 y) l, e+ _3 G "0.521739`", ",", "0.334022`", ",", "0.3555`", ",", "0.025156`", ",",
$ Q1 d" j5 b, `3 M "0.48951`", ",", "0.37679`", ",", "0.411382`", ",", "0.`", ",", "0.`",
* ~: X5 `4 c9 o% e" t1 z" v% A ",", "0.265607`", ",", "0.774648`"}], "}"}], ",",
* p, V5 a$ o+ e( F, r* a3 O/ j7 a RowBox[{"{", - V6 e! a# e, z. V
RowBox[{
+ M& t' V* ^% u# v# ?2 P "0.565217`", ",", "0.346931`", ",", "0.218229`", ",", "0.043639`", ",",
2 u' i# D6 y; ]2 s! I' y; Q "0.503497`", ",", "0.761115`", ",", "0.415447`", ",", "0.503525`", ",",
2 q) D; n: M4 P; ~1 w0 ~ "0.`", ",", "0.642226`", ",", "0.380282`"}], "}"}], ",", 4 K1 D4 _3 k. H
RowBox[{"{", 9 w5 `% a. }, s. D8 N# X; |
RowBox[{5 d" R/ h0 n8 I0 z
"0.478261`", ",", "0.293154`", ",", "0.259368`", ",", "0.026688`", ",",
; p* T/ `- Q1 i/ @/ z8 j "0.587413`", ",", "0.75584`", ",", "0.409756`", ",", "0.498489`", ",", 0 g. z! q+ C" V3 m" I* f- X. i
"0.`", ",", "0.306243`", ",", "0.647887`"}], "}"}], ",", % ` [. x- P" d- B7 w o X6 N$ p
RowBox[{"{",
5 p* Z/ j( }% V" ?5 G RowBox[{9 X/ B% K' A% T4 y; f% w+ f5 Z& I& x& W
"0.347826`", ",", "0.359693`", ",", "0.614393`", ",", "0.081521`", ",",
% g. k. `# G+ ~3 M% d! v# V; | "0.258741`", ",", "0.367747`", ",", "0.410569`", ",", "0.499496`", ",", * L! Q# ?: D j
"0.`", ",", "0.186985`", ",", "0.56338`"}], "}"}], ",", - B/ R0 U4 A6 t7 i+ z) q! W
RowBox[{"{", & _: J- A" R6 X% P% Z- K' W
RowBox[{3 u& J. Z( m% x* J, d0 T
"0.565217`", ",", "0.705518`", ",", "0.510223`", ",", "0.066892`", ",",
1 n! C5 P {& S" h% J1 y% o% u: d "0.244755`", ",", "0.748304`", ",", "0.`", ",", "0.`", ",", "0.243032`",
8 P& H( `5 e- M# z. B" _* q8 p ",", "0.175501`", ",", "0.295775`"}], "}"}], ",",
$ `/ ? z6 a$ O& f) \7 I1 ^ RowBox[{"{",
& c: s, d. B8 n- ` RowBox[{' X& t" ~% J5 C6 z! ^/ c# r& R g
"0.565217`", ",", "0.71046`", ",", "0.64973`", ",", "0.119897`", ",",
% b5 H/ j& R/ F( {. S "0.468531`", ",", "0.`", ",", "0.636585`", ",", "0.`", ",", "0.766748`",
- S& ]* b0 c. t0 H% G ",", "0.147821`", ",", "0.338028`"}], "}"}], ",", / h: ?! W- u* m! s5 x2 {
RowBox[{"{",
) @: M# u' k8 L* n- ?& l& k( Y RowBox[{
f' V4 A. |! w/ P- x: W "0.565217`", ",", "0.697772`", ",", "0.171587`", ",", "0.028566`", ",",
! @( {4 V+ z' S& o; `6 x "0.363636`", ",", "0.449887`", ",", "0.40813`", ",", "0.`", ",", "0.`", 8 k, c" f: l5 Q h! |; ]; `, z7 v: k% ]* r
",", "0.352768`", ",", "0.211268`"}], "}"}], ",",
8 k+ [* |) A: J$ f RowBox[{"{", - q* N2 a( k: \2 f) Y
RowBox[{
* R6 D8 a6 x4 }/ F "0.282609`", ",", "0.660888`", ",", "0.460064`", ",", "0.110334`", ",", 2 Z! Y/ k1 T/ I# L
"0.475524`", ",", "0.`", ",", "0.545528`", ",", "0.`", ",", "0.5511`", # Q8 g6 u+ f. D4 K" P7 i
",", "0.23881`", ",", "0.690141`"}], "}"}], ",",
8 l w, A- b" w2 F RowBox[{"{", : I" W3 O( e& \
RowBox[{
0 \' R8 L- t% U' L% l. F( `! H "0.130435`", ",", "0.682724`", ",", "0.258697`", ",", "0.019299`", ",",
, C/ i. m4 y+ ]* E# J "0.51049`", ",", "0.420497`", ",", "0.535772`", ",", "0.`", ",",
! Y! N/ B b8 `. Y. X# J "0.494866`", ",", "0.095701`", ",", "0.43662`"}], "}"}], ",", ) ]" C n4 d, r5 [( |
RowBox[{"{",
" v: i: `6 F" `' [ RowBox[{7 L: K2 m7 C# |* x {$ }) N: n' Y0 F4 _
"0.347826`", ",", "0.697772`", ",", "0.108288`", ",", "0.022413`", ",",
, |$ \9 |9 S4 G6 T& n/ ^ "0.356643`", ",", "0.247928`", ",", "0.90813`", ",", "0.`", ",",
- T3 P* q0 z3 A) y2 e "0.383374`", ",", "0.162839`", ",", "0.`"}], "}"}], ",",
$ \% M' x) R+ S RowBox[{"{",
/ S: b( A; K5 [/ p$ i RowBox[{
+ l# J; ]+ h* b7 S% _1 E1 k "0.695652`", ",", "0.71828`", ",", "0.33973`", ",", "0.110285`", ",",
* J5 E* U& `; e8 x "0.335664`", ",", "0.`", ",", "0.636585`", ",", "0.780463`", ",", "0.`", ; k: K; [# l# p) J
",", "0.335395`", ",", "0.267606`"}], "}"}], ",", 5 j# T+ u+ ?( F
RowBox[{"{", ) L& {8 n! X& f* E0 F
RowBox[{, P; Q: i+ a' O) y8 h+ m! G9 f% D
"0.652174`", ",", "0.569711`", ",", "0.414297`", ",", "0.175398`", ",", # U- g3 ?7 h9 M3 w+ p4 f. W
"0.167832`", ",", "0.`", ",", "0.544715`", ",", "0.`", ",", "0.`", ",",
I, ~& I) c* p2 Q# `) f "0.160483`", ",", "0.211268`"}], "}"}], ",", $ s6 [( ^' ~- Q# b6 w" w* l
RowBox[{"{", . `: t' P3 O( O: L* V
RowBox[{: m8 \9 \4 e; P& @; P, Q) i
"0.`", ",", "0.395544`", ",", "0.027011`", ",", "0.048087`", ",", . G/ i" d" Z: L: Y i# `* |
"0.496503`", ",", "0.`", ",", "0.452033`", ",", "0.`", ",", "0.278729`", / F5 d5 l, @/ x5 w
",", "0.398115`", ",", "0.408451`"}], "}"}], ",",
/ @( X3 _9 C, y. C$ J- t0 z/ q RowBox[{"{",
7 `% i, G+ X1 Q. O+ V RowBox[{8 x9 i2 R5 S5 ^" |; P$ [
"0.608696`", ",", "0.425199`", ",", "0.012979`", ",", "0.`", ",",
, l' `8 N% q% }* Z "0.482517`", ",", "0.50942`", ",", "0.406504`", ",", "0.`", ",", "0.`",
% f9 @$ r4 Y) L. {) R7 [. q2 L' l ",", "0.157833`", ",", "0.478873`"}], "}"}], ",", , p8 h$ f' [1 q5 l
RowBox[{"{",
) s* [$ v; \% S. t5 n' K RowBox[{
8 O! h/ { ^$ q: y. C "0.608696`", ",", "0.577973`", ",", "0.213587`", ",", "0.030889`", ",", I1 G1 r/ G" o. l
"0.370629`", ",", "0.`", ",", "0.452846`", ",", "0.`", ",", "0.`", ",",
6 [/ {2 Y* M A, u2 I "0.315665`", ",", "0.380282`"}], "}"}], ",", ' l( M2 Z" Z* v
RowBox[{"{",
( ^0 V6 T$ c! _9 r7 j! u+ L: [ RowBox[{ D- L! \- p9 S
"0.565217`", ",", "0.572293`", ",", "0.655012`", ",", "0.281852`", ",", ' X" L3 a& C* J& a: c: T7 b% w
"0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.492344`", ; V( m+ t( @ j% B) b
",", "0.211268`"}], "}"}], ",",
: ]7 F7 {$ |" F/ P+ l: I RowBox[{"{", # p0 H% x J5 i; ] V6 e
RowBox[{
1 d4 O. W) o# w "0.130435`", ",", "0.562039`", ",", "0.331662`", ",", "0.032643`", ",", 0 j8 S* |0 J6 f# i) O' x
"0.314685`", ",", "0.414469`", ",", "0.27561`", ",", "0.`", ",", "0.`", 9 S4 @' f9 f+ t3 ^; j, M: f
",", "0.638398`", ",", "0.43662`"}], "}"}], ",", 8 b$ S* c( s6 N$ X$ W3 q* s0 v
RowBox[{"{", - Q. Q R4 y0 o- p8 L. ~) d( T
RowBox[{
/ @8 y& D* w6 b& I+ w* C "0.717391`", ",", "0.736205`", ",", "0.267704`", ",", "0.036152`", ",",
3 a* Z& p/ x2 }5 Q* V' J: h* t1 X "0.307692`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 9 x8 c1 M; p" F" m) r6 ~/ i
"0.392521`", ",", "0.478873`"}], "}"}], ",", * I; X2 R# s0 O9 D: S: W
RowBox[{"{", 4 T' b: a' n, `6 P% S# Z
RowBox[{
$ z/ ^% B3 f( ^7 Z "0.608696`", ",", "0.769475`", ",", "0.289283`", ",", "0.022882`", ",", * ]3 l7 R$ m" P8 d' {
"0.321678`", ",", "0.`", ",", "0.274797`", ",", "0.333333`", ",", "0.`",
9 Y u8 L# \1 V- b& l; \ ",", "0.362191`", ",", "0.295775`"}], "}"}], ",",
1 a3 ^: e% m8 t# P7 u7 ~6 T w9 k RowBox[{"{",
* @1 b9 j4 w' E# B8 K0 H/ m RowBox[{$ N, c: b9 R1 b& A' O
"0.913043`", ",", "0.170478`", ",", "0.`", ",", "0.012973`", ",", / d) k3 F; k9 _4 D" e. S) F
"0.293706`", ",", "0.`", ",", "0.`", ",", "0.672709`", ",", "0.`", ",",
3 ^( d' F) w. r5 u# q "0.114252`", ",", "0.028169`"}], "}"}], ",", , k, T9 v k5 ^: k. N8 A# a7 f* `
RowBox[{"{", / p) S4 e; @ r" Y6 A( I
RowBox[{0 @( D8 C, Y+ z( k
"0.73913`", ",", "0.193199`", ",", "0.160584`", ",", "0.037907`", ",", 3 X/ r) W0 W. f% E, `: J/ i
"0.461538`", ",", "0.`", ",", "0.684553`", ",", "0.`", ",", "0.`", ",",
- u* A+ ^1 Z8 @9 S7 s5 p, F" ]* S "0.401355`", ",", "0.43662`"}], "}"}], ",", ! O' b6 { ~5 d$ F. i
RowBox[{"{",
7 }! n" N( C J0 z# l% E( C RowBox[{) g3 B0 f+ d; Y* k$ u* Q
"0.826087`", ",", "0.203969`", ",", "0.234619`", ",", "0.27224`", ",", % x# p! d) a1 u2 v# o9 V# P3 I
"0.265734`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", ! m. m( |% U) P# u
"0.827444`", ",", "0.394366`"}], "}"}], ",",
: `: q2 v' {- T: H RowBox[{"{", - s- L5 a; V$ |5 p: F
RowBox[{7 o- |( [! p2 n( b* o4 I, a
"1.`", ",", "0.199248`", ",", "0.295044`", ",", "0.041613`", ",",
+ K! J- _: `1 n: b" J1 z- z "0.20979`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
$ [9 W6 W! {! d5 F1 h "0.676973`", ",", "0.295775`"}], "}"}], ",", , d7 [: z! i2 V# C! J' l$ |6 L" l
RowBox[{"{",
6 Y- O; O) a* }2 t- s RowBox[{$ F* K0 ^1 Y! U9 j
"0.869565`", ",", "0.180363`", ",", "0.243056`", ",", "0.098349`", ",",
2 B* T, J1 ?0 N6 h5 g% ? "0.265734`", ",", "0.503391`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
4 M/ s- H: r# Q) E "0.331272`", ",", "0.830986`"}], "}"}], ",", ( W) z6 V+ m+ P* p! D' S
RowBox[{"{",
4 X H! t( n. M8 `% V RowBox[{% `5 q5 t! |4 q! {
"0.695652`", ",", "0.551785`", ",", "0.326201`", ",", "0.253608`", ",",
, B6 a7 `& ?5 R8 u "0.195804`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
9 ^9 R' ^; |; ?# h" f "0.845701`", ",", "0.169014`"}], "}"}], ",", 6 X( U. u7 ?1 X w0 m
RowBox[{"{",
; v7 S4 _5 X, L" l RowBox[{/ ~' ?% b6 |& X4 q! n% V+ ~
"0.652174`", ",", "0.572293`", ",", "0.111511`", ",", "0.035584`", ",",
# j9 r' x+ O& [ "0.405594`", ",", "0.249435`", ",", "0.544715`", ",", "0.`", ",", "0.`",
: B0 ?2 E) y5 K( \% F ",", "0.287102`", ",", "0.366197`"}], "}"}], ",",
& O: N! }, Z u$ O& M& u RowBox[{"{",
: |' U8 q/ M6 v7 ~' J% b6 r RowBox[{$ C. _4 _8 j0 B: P) X2 b
"0.652174`", ",", "0.562039`", ",", "0.336155`", ",", "0.014604`", ",",
* P$ W9 S) g4 n) m }) f8 | "0.174825`", ",", "0.24416`", ",", "0.`", ",", "0.`", ",", "0.`", ",", # Z5 P& t% L0 J* |% ]7 L# N
"0.`", ",", "0.309859`"}], "}"}], ",",
: K+ y; d8 S% y c+ Y. o: x4 z RowBox[{"{",
( Q1 A. |- m' }# T# U" J# u; O' ^ RowBox[{6 n4 f1 R5 v* S) Z* L* I
"0.565217`", ",", "0.577383`", ",", "0.15587`", ",", "0.030963`", ",", ) E# Q5 y* Q) K2 ]' L& o% E
"0.258741`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", S; L) u- e/ n9 a/ _
"0.050059`", ",", "0.352113`"}], "}"}], ",", 1 o* X& n# _0 ~1 z
RowBox[{"{", t+ N+ L/ @! t( v2 T2 H( A
RowBox[{
: @5 v! h7 S# G% j1 V3 Y; J "0.565217`", ",", "0.613234`", ",", "0.232956`", ",", "0.05387`", ",", : x6 M. O* P9 B# x
"0.230769`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
) F: }' y0 S' F0 t( Z: i: o/ c "0.254122`", ",", "0.309859`"}], "}"}], ",",
) h9 h( q; N( W RowBox[{"{",
, l$ t7 \% I/ F6 D5 k* T RowBox[{3 C8 ?1 {$ Z5 I; \6 o. S
"0.565217`", ",", "0.559531`", ",", "0.493262`", ",", "0.046209`", ",", 4 i' Z8 O/ L# X# g/ _# `; t: m
"0.293706`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 5 v$ k$ X8 i9 \ k) y* R% t
"0.086867`", ",", "0.774648`"}], "}"}], ",",
3 R, Z* x' T+ L5 J( A" ^5 o1 R RowBox[{"{",
( }! J8 {' ^" @3 V; T% d RowBox[{. @/ b* E* H$ f w( U5 v
"0.608696`", ",", "0.569711`", ",", "0.111932`", ",", "0.013542`", ",",
( s6 ~9 h/ ]: W* F$ B" y "0.335664`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.168704`", ",",
( L8 `+ D; y. \7 h: e! Y, C* }! m: v "0.659894`", ",", "0.422535`"}], "}"}], ",", 8 h! j& u+ ]1 [: i# A9 E
RowBox[{"{", 2 d8 z( m e* A5 i
RowBox[{
3 H" X& t! x& x3 D+ I" b' f8 [ "0.608696`", ",", "0.564547`", ",", "0.329844`", ",", "0.202036`", ",", 5 t* U8 b8 g$ T! M% [6 T) B
"0.51049`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", ' S0 t/ g, D7 r% i$ j* o0 {3 ^0 Y
"0.317138`", ",", "0.887324`"}], "}"}], ",", 6 z8 V! W9 ?. \0 m' P
RowBox[{"{", & |4 E9 I/ q& t' C7 l2 i) Z/ f* C
RowBox[{
0 w8 Z/ ~& q* g9 Q H "0.521739`", ",", "0.546695`", ",", "0.165788`", ",", "0.029431`", ",",
$ E$ J- Z4 a6 Y0 U* m- f' K6 e( \, H "0.51049`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
9 O5 e8 p! ?! Z% M6 x0 y( ^ "0.605124`", ",", "0.887324`"}], "}"}], ",", / ]9 R/ O2 {6 J) j, b4 s0 z6 l: y
RowBox[{"{",
+ d1 i. C5 }. b RowBox[{# t8 \4 S% D9 U
"0.521739`", ",", "0.564178`", ",", "0.400518`", ",", "0.045023`", ",", ( ~! J( s3 p8 t+ A8 Q. m0 S
"0.615385`", ",", "0.3685`", ",", "0.660163`", ",", "0.301108`", ",", - L5 k1 {: `! E4 t* u% ?* _5 G
"0.`", ",", "0.32126`", ",", "0.859155`"}], "}"}], ",", 9 \/ C" C/ G+ L S* L4 P I
RowBox[{"{", 1 R/ u$ P0 x( A
RowBox[{
3 l: H: z8 c9 c "0.413043`", ",", "0.551859`", ",", "0.544826`", ",", "0.230503`", ",", : Y0 m. m1 U: R/ n3 @ q3 H/ z( I
"0.244755`", ",", "0.53052`", ",", "0.819512`", ",", "0.`", ",", "0.`", 7 m; a, o6 V: w$ H
",", "0.595406`", ",", "0.239437`"}], "}"}], ",",
1 I) T1 @& W9 N4 \9 C' T RowBox[{"{", - [; k. X3 ^1 ]( ]: l
RowBox[{! S. Q9 t& v5 [8 C2 L/ r/ ?/ z& d
"0.652174`", ",", "0.549277`", ",", "0.257578`", ",", "0.058688`", ",", ' [, T4 D" ^; |# a
"0.356643`", ",", "0.`", ",", "0.817886`", ",", "0.`", ",", "0.`", ",",
5 ]# Z& X1 j% z/ k. a& ?. f- ^ "0.555359`", ",", "0.295775`"}], "}"}], ",", " m6 x, D3 j( ]0 j: }$ S0 p6 H6 i7 \$ x! T
RowBox[{"{",
( n2 L! m/ h0 h" v3 t2 |. J7 P d RowBox[{
6 i& K) [3 G" } "0.695652`", ",", "0.549277`", ",", "0.572308`", ",", "0.082411`", ",",
9 |; @1 _4 @2 e; l "0.461538`", ",", "0.528259`", ",", "0.819512`", ",", "0.`", ",", "0.`",
5 j7 a% ~6 s* M9 P3 ~6 y; N ",", "0.333333`", ",", "0.746479`"}], "}"}], ",", / _; J' z9 ^! l: c1 n; v" M4 r
RowBox[{"{",
* z" L' m. V3 F) Z RowBox[{! d/ o$ [# z2 d9 E3 H3 H
"0.434783`", ",", "0.551785`", ",", "0.530346`", ",", "0.151651`", ",",
8 x" M9 D- X4 k1 C "0.79021`", ",", "0.529013`", ",", "0.409756`", ",", "0.`", ",", "1.`",
9 u7 W9 C& s0 L: @6 X" H- J: c ",", "0.149588`", ",", "1.`"}], "}"}], ",",
# j" b% G4 @5 e H8 c RowBox[{"{",
$ M+ L; n0 _& _2 Z RowBox[{" k* Q4 E8 n+ L
"0.282609`", ",", "0.531278`", ",", "0.321428`", ",", "0.228625`", ",",
8 b' F2 E/ q8 v; l$ k "0.594406`", ",", "0.53052`", ",", "0.410569`", ",", "0.`", ",", $ T; d# L; b9 t* ~# ^
"0.757457`", ",", "0.493522`", ",", "0.549296`"}], "}"}], ",", 8 C" p$ C- \# H4 G
RowBox[{"{",
- ^0 b& {' |) h P( O$ P RowBox[{
- r3 L9 {+ n6 }, t6 A, ?5 v "0.347826`", ",", "0.705444`", ",", "0.109343`", ",", "0.072008`", ",", ' M& `9 K7 `: x+ ~5 P0 r
"0.496503`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.752567`", ",", 9 O B, }" K. j: d/ g
"0.224676`", ",", "0.366197`"}], "}"}], ",", 2 }/ ?- C' E R3 v P0 ~
RowBox[{"{", 1 F8 [5 [9 _% k8 l( T2 ^8 l" k5 K
RowBox[{
8 J' H) V6 m1 J4 g/ p8 | "0.391304`", ",", "0.705444`", ",", "0.045908`", ",", "0.07312`", ",",
: b$ Q- L0 u- L; t9 t. `- B "0.622378`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.496333`", ",", 2 d) g6 C0 U6 ?2 a
"0.410188`", ",", "0.549296`"}], "}"}], ",",
, R5 {4 Z1 C. n- y RowBox[{"{", & N, N3 ?0 E( W. z0 |
RowBox[{
9 a( Z$ U0 T: X& O1 W/ v) F+ K "0.282609`", ",", "0.661921`", ",", "0.344992`", ",", "0.085178`", ",",
7 e7 q' { n3 Z7 F "0.293706`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
. @# t4 n2 G$ j5 u. u "0.668139`", ",", "0.577465`"}], "}"}], ",",
P' f: ?$ A+ j# g0 P, `8 n RowBox[{"{", % V# L5 ]2 S5 }$ p u1 Q
RowBox[{& y) [% z" w0 T
"0.478261`", ",", "0.661921`", ",", "0.644209`", ",", "0.077296`", ",",
3 u+ W8 u! f2 V "0.412587`", ",", "0.`", ",", "0.413008`", ",", "0.502518`", ",", "0.`",
' t1 ^* }* u- n ",", "0.102179`", ",", "0.690141`"}], "}"}], ",", : T9 [% z3 T# {7 z8 \! s% V
RowBox[{"{",
* n) f: D9 ~0 S( V" V RowBox[{
' D5 c, S: E0 \+ u8 H "0.173913`", ",", "0.984656`", ",", "0.420753`", ",", "0.137022`", ",",
' _1 d! Z8 L; S& @+ @ ` "0.321678`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", + {+ u- P8 o8 t
"0.380742`", ",", "0.71831`"}], "}"}], ",",
2 s: i% y( R$ ` RowBox[{"{",
2 H9 B5 Q3 n: R, W3 B7 O6 Q RowBox[{ l$ G6 Z6 {; A" W/ g
"0.5`", ",", "0.984656`", ",", "0.288432`", ",", "0.047692`", ",", ! _) ]4 n S' J% z/ r" j
"0.27972`", ",", "0.`", ",", "0.821138`", ",", "0.510574`", ",", "0.`", 0 X3 y( V. R( g) t- O. T/ G. V5 r
",", "0.319494`", ",", "0.521127`"}], "}"}], ",",
& v/ J7 {) }1 d4 e RowBox[{"{", ' [' @) o9 `% j9 K& T
RowBox[{
& F& a2 l8 g9 s "0.391304`", ",", "1.`", ",", "0.452931`", ",", "0.150909`", ",", / I0 F, P6 c) o5 H2 T/ q- K; f6 `
"0.342657`", ",", "0.370761`", ",", "0.`", ",", "0.509567`", ",", "0.`",
# u# h3 F; _! w0 s ",", "0.031508`", ",", "0.929577`"}], "}"}], ",",
% m2 r+ ?% s" k RowBox[{"{", 3 e( D9 W% I$ o) M
RowBox[{& |" V* N7 L* \6 g6 I1 B
"0.73913`", ",", "0.774639`", ",", "0.17512`", ",", "0.036498`", ",",
5 Y" ?: b6 Y+ ]( K) Q4 X "0.391608`", ",", "0.739261`", ",", "0.408943`", ",", "0.553877`", ",",
: x9 g; |: c! B; o3 [, q "0.`", ",", "0.292108`", ",", "0.521127`"}], "}"}], ",",
# K# e! K! H8 S" @( {! n6 K RowBox[{"{", . V9 b( |4 i* q O2 D0 I9 _! }- a1 B
RowBox[{6 S6 _5 ?# w5 K4 o
"0.586957`", ",", "0.982074`", ",", "0.158462`", ",", "0.063902`", ",",
1 V# f( m$ ^/ } "0.321678`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", . ]" m1 h8 b' Q3 z m
"0.329505`", ",", "0.338028`"}], "}"}], ",",
% ^( \8 X4 H+ ~+ {% b, l/ g RowBox[{"{",
p/ E+ W6 M& E1 D9 O RowBox[{
! j* ^/ L. Z8 h "0.543478`", ",", "0.982074`", ",", "0.306872`", ",", "0.041934`", ",",
) _& T, u$ v% f% a" r "0.426573`", ",", "0.380558`", ",", "0.414634`", ",", "0.506546`", ",",
1 p3 |* g, y# ~ "0.`", ",", "0.337456`", ",", "0.380282`"}], "}"}], ",", ' q7 {" _8 r3 b
RowBox[{"{", * w8 x& S* `7 B3 S6 n3 E) ?
RowBox[{
+ B3 X; _- a2 E5 w "0.73913`", ",", "0.997418`", ",", "0.170143`", ",", "0.058268`", ",", 4 _( j# R& R, w% q$ R% S, W
"0.538462`", ",", "0.248681`", ",", "0.`", ",", "0.339376`", ",", "0.`", + i/ s0 v" E: `5 Q8 L9 Z
",", "0.766784`", ",", "0.676056`"}], "}"}], ",",
/ F/ x" G7 y+ {% _ RowBox[{"{", 9 w6 } c: n, n0 [
RowBox[{ _$ p; e1 x" m# ~7 m% l( I# g
"0.695652`", ",", "0.700428`", ",", "0.139361`", ",", "0.182169`", ",",
1 X) }- {' V2 E: c) ^ "0.412587`", ",", "0.243406`", ",", "0.`", ",", "0.`", ",", "0.136919`", 0 O) z! Z/ m# Z7 l( u! w
",", "0.676678`", ",", "0.591549`"}], "}"}], ",", & S$ F% r+ z, S/ b
RowBox[{"{",
. ^1 a6 ]' m7 R. G RowBox[{% C0 } C& E7 p' U! V4 K
"0.782609`", ",", "0.751623`", ",", "0.177646`", ",", "0.350845`", ",", ( ]( ~" F$ X( B/ Z" j) X& q
"0.412587`", ",", "0.502638`", ",", "0.`", ",", "0.`", ",", "0.178973`",
/ I" A: x' I# G" F$ ^9 O( u. ?, M ",", "0.541519`", ",", "0.464789`"}], "}"}], ",",
# Y) m O# S- k* l1 k+ | RowBox[{"{",
* k8 Z6 M6 H% m: _3 Q RowBox[{
- L0 K6 d* W6 k "0.652174`", ",", "0.751623`", ",", "0.355593`", ",", "0.039883`", ",",
; P7 P4 K1 s: L Z. B F- x4 m "0.195804`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
_+ D- a; G+ [+ Q8 H+ p "0.064488`", ",", "0.295775`"}], "}"}], ",",
) `2 n7 r" t2 ?6 T! v2 [ RowBox[{"{", $ d# E) b) ~+ O, j7 b
RowBox[{' E' I/ G7 m5 T
"0.521739`", ",", "0.679847`", ",", "0.152375`", ",", "0.030048`", ",", ! P0 G, a- l, ^) s% z/ m
"0.363636`", ",", "0.`", ",", "0.271545`", ",", "0.`", ",", "0.`", ",",
; a3 G! A- e8 N. E* a9 m. A "0.463192`", ",", "0.380282`"}], "}"}], ",",
" M& }) H& T% F+ l RowBox[{"{",
3 ?5 O$ W. F1 k' ~- h {: { RowBox[{
, N3 B/ Z1 R3 N: r" ^6 ^1 m "0.434783`", ",", "0.728533`", ",", "0.18683`", ",", "0.12951`", ",", & b0 ]0 S& {- W, {: c& |
"0.195804`", ",", "0.`", ",", "0.269919`", ",", "0.`", ",", "0.32665`",
2 k. M9 X& S j- e4 b( x# l% }* n ",", "0.388398`", ",", "0.211268`"}], "}"}], ",", 4 c; S6 b! c* J3 U; U) ~: U3 W
RowBox[{"{", 0 R T1 B. r8 Z! m+ T
RowBox[{9 \- c. N: \$ v+ Z0 l1 B
"0.608696`", ",", "0.606152`", ",", "0.158058`", ",", "0.09017`", ",", % |. T8 K& Z2 ]: Z8 P* m `' q
"1.`", ",", "0.166541`", ",", "0.278049`", ",", "0.`", ",", "0.236675`", 6 u/ D! q* }9 N. Z7 V6 b: c% z
",", "0.262367`", ",", "0.253521`"}], "}"}], ",", 9 Q1 a# C+ j+ E( p1 u
RowBox[{"{", . Y0 D! e7 @, b; L
RowBox[{% V! G% y. r9 r# {3 ~! k
"0.608696`", ",", "0.633742`", ",", "0.322697`", ",", "0.068597`", ",",
l7 T6 e. n( [7 U "0.328671`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.287042`", ",", : t! p. }/ q! m( B. w4 w% B
"0.290931`", ",", "0.28169`"}], "}"}], ",", ; u b/ E6 T) M3 O* K- d2 V
RowBox[{"{",
/ T- D# `2 j" l' ]4 v- x RowBox[{
! }2 h( d( f$ }& p "0.478261`", ",", "0.539023`", ",", "0.412108`", ",", "0.107566`", ",", ' i. Q" O* o' ~( d# s S8 X8 U
"0.237762`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
# h* k3 b( J- s+ E5 B z "0.380742`", ",", "0.507042`"}], "}"}], ",",
6 o9 y5 a+ g+ h7 u. j/ ?8 h RowBox[{"{",
$ _& b* [. q2 d4 R RowBox[{3 F# z! B4 F+ ^7 F6 L4 l" D- F6 g
"0.608696`", ",", "0.551859`", ",", "0.176821`", ",", "0.076332`", ",", , k0 d- L8 Y& P
"0.265734`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", . f1 M9 E7 H( T9 q; X
"0.429034`", ",", "0.239437`"}], "}"}], ",",
4 R z6 c( y! L3 E0 y, @ RowBox[{"{", 5 } A' t+ _8 n) {
RowBox[{
" N& A. b) T r6 j "0.652174`", ",", "0.551859`", ",", "0.033549`", ",", "0.018459`", ",", 8 i: a' F, j# z7 A
"0.573427`", ",", "0.`", ",", "0.553659`", ",", "0.`", ",", "0.40489`",
- Y$ K* V7 |, v, E6 C( t( S# T ",", "0.193168`", ",", "0.394366`"}], "}"}], ",",
1 L& ^8 u: S" L- Z RowBox[{"{", - e& U: K1 n) C: y2 Z
RowBox[{
4 @1 c! P+ y! v' M$ Z7 O "0.695652`", ",", "0.595382`", ",", "0.277493`", ",", "0.100326`", ",", - w+ J0 J5 B6 M; O2 H* _3 Y2 b" ]
"0.286713`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", ; J4 l! s6 A$ Y! x4 g
"0.448763`", ",", "0.338028`"}], "}"}], ",",
9 z; A1 I0 K8 L7 F: k RowBox[{"{", $ [$ T1 g. m# w
RowBox[{
8 x0 T: `/ O. t8 r) Z "0.565217`", ",", "0.559531`", ",", "0.422669`", ",", "0.078111`", ",", 3 A' s+ O" {- J' G
"0.286713`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", + W& K, B0 w9 ]/ s0 f' [; p; \
"0.442285`", ",", "0.394366`"}], "}"}], ",",
5 z! ]; a" p B) S RowBox[{"{", 9 l8 g, G. G5 G" D4 v! \
RowBox[{+ {; i; R' g: a6 h( F3 ^
"0.586957`", ",", "0.398126`", ",", "0.140619`", ",", "0.069116`", ",",
, I/ B/ G9 a/ K "0.461538`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", * ^. t$ V5 _' R `
"0.575383`", ",", "0.15493`"}], "}"}], ",",
) a* Z$ t: ^' `# T! \/ r, t- K RowBox[{"{",
& G) O) i( w4 r5 F3 j: a RowBox[{1 d; u+ ^ Z: @0 ? \$ Z0 Q
"0.695652`", ",", "0.398126`", ",", "0.019829`", ",", "0.041366`", ",",
, P3 @' `* S- r, r "0.552448`", ",", "0.24416`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
) b' `& B+ j7 B0 D$ f% M8 R "0.515607`", ",", "0.591549`"}], "}"}], ",",
% o- @( S* s" L+ e RowBox[{"{",
. o; ? E- o7 l9 u, J RowBox[{
* u) @& e0 ?' `1 C( M) p2 h "0.695652`", ",", "0.700354`", ",", "0.422467`", ",", "0.068128`", ",",
- m8 P! q; z+ \* K# b4 a! y "0.20979`", ",", "0.`", ",", "0.`", ",", "0.500504`", ",", "0.`", ",", 1 _! N& U& ^8 e8 b+ t
"0.057715`", ",", "0.408451`"}], "}"}], ",",
1 @3 X; U( E$ m6 U/ z& e& | RowBox[{"{", 6 w. X# J& @/ I
RowBox[{
: b( g0 b0 b% b. T+ a {1 W# K "0.521739`", ",", "0.193125`", ",", "0.210582`", ",", "0.110433`", ",",
% `$ {% p- a( [/ X& S' s/ e "0.447552`", ",", "0.382065`", ",", "0.413008`", ",", "0.498489`", ",",
! l4 | G/ u/ t+ k- a! ~ "0.`", ",", "0.174617`", ",", "0.295775`"}], "}"}], ",", \/ m& }; E( L& i0 Q
RowBox[{"{", % A8 h6 _. T- x
RowBox[{
$ N0 ?' Z2 x9 d "0.347826`", ",", "0.063588`", ",", "0.830527`", ",", "1.`", ",",
, j* L1 x; o: i3 s3 x) P) Q "0.111888`", ",", "0.`", ",", "0.410569`", ",", "0.`", ",", "0.`", ",",
( L9 D; M3 O# P. { "0.66755`", ",", "0.661972`"}], "}"}], ",",
# _+ }# v% B+ i7 @0 Z* H RowBox[{"{", / D" @0 v' }0 ~( u( Q2 \7 m
RowBox[{
5 U6 i3 ^, O4 } "0.521739`", ",", "0.188109`", ",", "1.`", ",", "0.785485`", ",",
! f" c7 D+ i5 b6 {. r9 G "0.342657`", ",", "0.373775`", ",", "0.406504`", ",", "1.`", ",", "0.`", 7 N# x6 Q4 A* l; y7 q) C& k4 c
",", "0.371025`", ",", "0.774648`"}], "}"}], ",",
6 D( c( ?! g1 L7 Q8 H2 f RowBox[{"{",
+ i4 H1 H' P U' k- } RowBox[{' ?5 g5 p/ t! q5 N9 o
"0.695652`", ",", "0.188404`", ",", "0.088836`", ",", "0.059504`", ",", " L9 @- X4 R5 q9 H7 l0 C; r! n
"0.706294`", ",", "0.37679`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
- U: G& ~( p5 l: \ "0.570966`", ",", "0.746479`"}], "}"}], ",",
7 A7 ]" a |: `% f1 Y( l RowBox[{"{",
8 w; z, K& i4 E- @( j- Q* T1 J RowBox[{
8 R; Q* Q7 B& O6 _) ^. E5 _( k( a "0.695652`", ",", "0.057465`", ",", "0.316316`", ",", "0.15128`", ",", , e: d% X) Q, h8 h) S
"0.615385`", ",", "0.371515`", ",", "0.412195`", ",", "0.500504`", ",",
" ]2 Z( B4 [- V$ q$ G. ? "0.`", ",", "0.468198`", ",", "0.887324`"}], "}"}], ",",
) a; P4 m$ G3 e; `/ I RowBox[{"{", / p& e/ }, n8 f. a4 F
RowBox[{
- a; g9 p( y! p$ s$ j4 }6 s" e "0.608696`", ",", "0.01136`", ",", "0.295586`", ",", "0.113892`", ",",
/ T( k0 j4 ?. v# d. Q4 w, r "0.58042`", ",", "0.746044`", ",", "0.405691`", ",", "0.501511`", ",", 1 x/ f$ L8 K+ W& P4 X# x
"0.`", ",", "0.414016`", ",", "0.84507`"}], "}"}], ",",
! M& ?1 E+ w: n% @) ~; [- P RowBox[{"{",
4 ^6 y7 v* y6 I8 A! L RowBox[{$ E) e+ ]6 O- Z. H2 A' j! G7 O
"0.608696`", ",", "0.364783`", ",", "0.130582`", ",", "0.020214`", ",",
0 z5 O7 N) w2 S5 X8 P1 s1 U5 `9 _ "0.356643`", ",", "0.379804`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
" q, ~8 J5 L9 n0 [ "0.18669`", ",", "0.704225`"}], "}"}], ",", 1 Y- g: O1 i: C% v c( @5 ?
RowBox[{"{", & w H! b$ o# k# j9 C: a
RowBox[{
8 M" \6 [) p1 z3 | "0.608696`", ",", "0.193199`", ",", "0.11269`", ",", "0.036152`", ",",
& n6 n1 ^1 \1 g( L; a g7 z! h "0.636364`", ",", "0.382065`", ",", "0.409756`", ",", "0.495468`", ",",
2 w# i0 `' _8 _ "0.`", ",", "0.442874`", ",", "0.760563`"}], "}"}], ",",
! r$ _" [; P( x! T9 u RowBox[{"{", $ n i: D# _4 r% q( k3 r
RowBox[{ P2 H- c; c7 C7 U
"0.73913`", ",", "0.328932`", ",", "0.246779`", ",", "0.12652`", ",", ' \8 N, U, t r q. ^
"0.454545`", ",", "0.`", ",", "0.495122`", ",", "0.`", ",", "0.414181`",
0 I4 a) q# U& H( M! k/ I, e$ P ",", "0.68669`", ",", "0.43662`"}], "}"}], ",",
' E1 @ b8 l: U8 j RowBox[{"{",
+ ?7 n/ Z2 ?% [) |9 w/ |; C5 F RowBox[{" [, A. G4 V# z5 G( S+ y+ C8 C: F
"0.73913`", ",", "0.341767`", ",", "0.36209`", ",", "0.183528`", ",",
& v' q5 O% T3 D7 Q6 W2 R "0.573427`", ",", "0.413715`", ",", "0.454472`", ",", "0.661631`", ",",
4 w b$ {- M! h$ V8 {1 A "0.`", ",", "0.244111`", ",", "0.633803`"}], "}"}], ",",
- R# y: ?/ u$ D" n/ k2 Q4 s) y' w+ | RowBox[{"{", E0 d- H' a: k
RowBox[{
: m' E3 i+ m8 {' ^8 o, A "0.695652`", ",", "0.187076`", ",", "0.279724`", ",", "0.006252`", ",", 7 b, [) B5 G9 C/ i0 G/ h
"0.405594`", ",", "0.418237`", ",", "0.544715`", ",", "0.`", ",", "0.`", . i+ H4 q' m6 o4 e7 D, w
",", "1.`", ",", "0.422535`"}], "}"}], ",", 8 w( X5 V* I2 `
RowBox[{"{",
7 F9 B7 T5 |, i! P RowBox[{: a L" W. J5 Y. I/ d. ~
"1.`", ",", "0.333948`", ",", "0.06475`", ",", "0.065855`", ",",
8 ~9 f8 e% R+ O6 X. e1 R7 Y "0.342657`", ",", "0.`", ",", "0.40813`", ",", "0.`", ",", "0.`", ",",
. |8 T b8 f' V {( T5 [3 X "0.957892`", ",", "0.295775`"}], "}"}], ",",
0 C9 x; |. R; ]' _; } RowBox[{"{", $ a% O# S) ~9 P" Y* R2 k, @
RowBox[{/ ?4 [, d: ^, f* a ~) ]6 z
"0.73913`", ",", "0.3054`", ",", "0.374567`", ",", "0.13287`", ",", ( e! w8 ?3 Q6 y# c3 j7 M% d3 U! L
"0.258741`", ",", "0.834966`", ",", "0.`", ",", "0.`", ",", "0.272861`",
! V* n$ u, y$ k, T/ i$ S ",", "0.266784`", ",", "0.309859`"}], "}"}], ",",
1 T0 v: q- R+ ] p6 C$ s RowBox[{"{",
" S& K/ u1 r8 K+ Y- _1 X RowBox[{3 ?6 {1 I+ P" M5 b9 j# V# `
"0.826087`", ",", "0.151962`", ",", "0.36028`", ",", "0.221632`", ",", $ W, i+ l& r+ n/ a
"0.447552`", ",", "0.584778`", ",", "0.457724`", ",", "0.`", ",", "0.`",
3 }. r& H5 O1 Q& p, Y4 k ",", "0.826855`", ",", "0.408451`"}], "}"}], ",",
" Z; |+ C+ ^7 Y- m. K5 _ RowBox[{"{", - n3 o: Z2 \7 E$ ]5 v! P* }
RowBox[{
$ J8 ?/ s, l; X8 h2 { "0.565217`", ",", "0.047212`", ",", "0.233154`", ",", "0.121528`", ",",
1 ^) @; C4 g; Y& u3 n0 j9 U# r "0.314685`", ",", "0.417483`", ",", "0.546341`", ",", "0.`", ",",
' E- U$ h; W. a! |4 t" c "0.669438`", ",", "0.341873`", ",", "0.197183`"}], "}"}], ",",
( Q3 S9 Z) O! B c( D RowBox[{"{",
, v+ X: ]" c1 T Y RowBox[{9 w4 j* r% d. }5 T
"0.826087`", ",", "0.034376`", ",", "0.690349`", ",", "0.51238`", ",", & C9 S" n8 Z9 ?% a9 E
"0.685315`", ",", "1.`", ",", "1.`", ",", "0.`", ",", "0.556479`", ",",
6 @0 N( D$ [, i: G5 s0 g/ e$ r7 | "0.412544`", ",", "0.732394`"}], "}"}], ",", ; g6 J1 ?9 {1 a! t7 p& s
RowBox[{"{", $ A! t7 e' J, x; @' C% ^1 }
RowBox[{9 `4 @: N. |. L7 [: T7 o8 P% `' ]
"0.652174`", ",", "0.`", ",", "0.374417`", ",", "0.188075`", ",",
, U, S, T2 v" r* e* S "0.706294`", ",", "0.498116`", ",", "0.729268`", ",", "0.`", ",", 4 i- A4 l% J; w: e4 B
"0.454279`", ",", "0.322144`", ",", "0.802817`"}], "}"}], ",", # M3 q* ], H8 k
RowBox[{"{",
' E C8 `/ ~) f RowBox[{
0 T* t- r, X. }; Q2 Z5 ^! g# g: H "0.782609`", ",", "0.180363`", ",", "0.237142`", ",", "0.054809`", ",", . l2 E5 {" X7 D0 F5 C
"0.629371`", ",", "0.373775`", ",", "0.247967`", ",", "0.`", ",",
+ w# H2 ]$ ]; w+ I: E' d5 ]. X% x @ "0.163814`", ",", "0.370436`", ",", "0.746479`"}], "}"}], ",",
" C/ r& y/ ^8 a7 w* G) U RowBox[{"{",
: w+ g2 Q9 B0 T0 l RowBox[{9 m' j: |* d8 ]
"0.608696`", ",", "0.16915`", ",", "0.368148`", ",", "0.393768`", ",",
7 p& b' N+ r; y$ u# R "0.440559`", ",", "0.995479`", ",", "0.545528`", ",", "0.`", ",",
9 l' {/ Q# y3 ]4 s! \5 U "0.56577`", ",", "0.333039`", ",", "0.380282`"}], "}"}], ",", ; P% [7 p0 U/ H0 K9 L7 l
RowBox[{"{",
3 e5 }1 B: V2 o/ V RowBox[{
7 h+ m" ^5 U8 X# s0 R% J9 N3 N { "0.695652`", ",", "0.390454`", ",", "0.186683`", ",", "0.039439`", ",", 9 W6 |% s2 {1 i1 Q0 Q; x
"0.482517`", ",", "0.497362`", ",", "0.415447`", ",", "0.50856`", ",",
8 Q& @4 B% v& K8 k "0.`", ",", "0.390754`", ",", "0.56338`"}], "}"}], ",",
2 p$ Q; m& e* J Q/ ^ RowBox[{"{", 0 i9 d! V; @9 t) ]3 K5 _* D
RowBox[{' e0 O/ R& l8 W7 g
"0.73913`", ",", "0.428888`", ",", "0.082728`", ",", "0.070154`", ",", 5 q2 G, q' k8 i; A
"0.27972`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
' p& j2 M1 x5 z% w4 W2 M "0.694935`", ",", "0.323944`"}], "}"}]}], "}"}]], "Output",
6 F V: t/ ~; U0 Q% k9 x+ N CellChangeTimes->{3.57795879182092*^9, 3.5779604974578943`*^9,
2 r! v* L& L7 f- m$ q 3.57801214396875*^9}]5 U6 R8 t9 k0 Z- g) T# U4 y
}, Open ]],
8 @0 N' Q$ L; H) u+ @
$ d3 {1 k: A. F- b* H4 m- GCell[CellGroupData[{
0 Z- N6 ]. W4 a: F( o( A0 A7 \% U- H" s9 ]7 v
Cell[BoxData[
( ?0 v. W7 @6 s8 u/ U( G RowBox[{"Array", "[",
# i! C2 \5 r% T [ RowBox[{"CM", ",",
3 U" U( h) k! h5 t9 Z5 R& n4 y; F' u5 V RowBox[{"{", $ X7 a$ }6 `% e4 B& d' n& N+ @
RowBox[{"80", ",", "9"}], "}"}]}], "]"}]], "Input",
# ]6 o) ~- m: a5 E1 k6 }. U CellChangeTimes->{{3.577844235859375*^9, 3.577844291953125*^9}}],
2 c! x; `3 j4 j. p- K. q. x) R; S, `8 m- @
Cell[BoxData[
$ Q6 V1 k, t% y) N RowBox[{"{", 6 f0 W; @# s. q6 b, \0 v
RowBox[{
& E" f( F# S0 ?3 G6 Z/ R RowBox[{"{", 1 o9 X+ C9 `7 \9 z; ^
RowBox[{
( F0 ^) Y. J( [3 \- R D; O! F8 J RowBox[{"CM", "[", 9 l% k. ~# \' k6 L/ M; n; u% S" u
RowBox[{"1", ",", "1"}], "]"}], ",", 0 c# T6 Z+ A% b. \5 w
RowBox[{"CM", "[", " ?; d3 T! M) q5 t# i+ Q
RowBox[{"1", ",", "2"}], "]"}], ",", ' D6 h$ x' [' M; ~/ }/ x$ k" F
RowBox[{"CM", "[", * u; x7 y# }# b! ^
RowBox[{"1", ",", "3"}], "]"}], ",", & i, Q! E+ ^% g! I
RowBox[{"CM", "[", : j1 d7 j" G% C9 v$ V2 Y
RowBox[{"1", ",", "4"}], "]"}], ",", ]& k! j. s5 o X3 g: X
RowBox[{"CM", "[", $ Y9 G( b+ g( o- x
RowBox[{"1", ",", "5"}], "]"}], ",",
! J+ P2 Z/ u6 {, j- q3 e' Y r% P RowBox[{"CM", "[", $ Y6 }+ \! e7 t8 {$ J
RowBox[{"1", ",", "6"}], "]"}], ",", 6 f5 X, E6 g! l. s. c4 c
RowBox[{"CM", "[",
E5 e! u0 O' f: e" O RowBox[{"1", ",", "7"}], "]"}], ",",
) q& k% p# c+ M% `! V+ j RowBox[{"CM", "[", ' K3 ^- J1 m3 B4 }% o) s
RowBox[{"1", ",", "8"}], "]"}], ",", 7 W" ?8 i2 r6 C3 m
RowBox[{"CM", "[",
" R% A. l" g- {- k' y! k RowBox[{"1", ",", "9"}], "]"}]}], "}"}], ",", 8 c( \0 e" t; ~ I" j: Z( ~0 y
RowBox[{"{", 3 Z. E& R/ d1 j `. Q p
RowBox[{
* \- K5 R/ z9 u# x2 I) Y/ j r RowBox[{"CM", "[",
0 \, e8 e* J1 l& B- U RowBox[{"2", ",", "1"}], "]"}], ",", , F) M: [6 t2 m, `+ r/ g
RowBox[{"CM", "[",
; @; K2 _1 X- Q, J" ]% b RowBox[{"2", ",", "2"}], "]"}], ",",
* y$ w) R$ H/ ]" B c N RowBox[{"CM", "[",
! T! b& x& j9 k* K5 T: Q* J$ I. H RowBox[{"2", ",", "3"}], "]"}], ",", " Y9 c- r% @9 m5 U+ O2 s2 s
RowBox[{"CM", "[",
! e6 ^7 k( {2 S, ]" ~( \' @ RowBox[{"2", ",", "4"}], "]"}], ",", - l( l; G/ T7 g
RowBox[{"CM", "[", & g; a# i; E! T ~* \3 h
RowBox[{"2", ",", "5"}], "]"}], ",", 9 E# m4 u: T& }1 ]
RowBox[{"CM", "[", " l5 }. i- N2 W+ T w9 O( A
RowBox[{"2", ",", "6"}], "]"}], ",", ( L' x# ?' v6 L s
RowBox[{"CM", "[", : ` X$ A! {( n6 b
RowBox[{"2", ",", "7"}], "]"}], ",", 1 m8 Y7 m/ x9 S% K
RowBox[{"CM", "[", / h$ r, w3 F" c! S8 ^0 J; k9 ~
RowBox[{"2", ",", "8"}], "]"}], ",", * ?& u" r. N9 _& ?( f$ _' n6 _3 M: e
RowBox[{"CM", "[", ) G3 e3 H* H; t8 {. Y @
RowBox[{"2", ",", "9"}], "]"}]}], "}"}], ",", + Z9 z) k& X' H& \, d* N
RowBox[{"{",
3 H) r% p2 |8 a% U# E8 i% i. K, o RowBox[{
9 o; K. t" G- b" _) { RowBox[{"CM", "[", 2 `4 G( n3 I5 y2 R, ?4 ^
RowBox[{"3", ",", "1"}], "]"}], ",",
/ b2 f( P. y* {: V2 h% z RowBox[{"CM", "[", y3 }; c& T" @/ Q7 P) n
RowBox[{"3", ",", "2"}], "]"}], ",", \! r2 p/ b. A' ], ? R4 J
RowBox[{"CM", "[",
4 U: u5 u+ H9 {4 J RowBox[{"3", ",", "3"}], "]"}], ",",
5 @( r6 {4 {8 {' ~4 a# R9 u3 r3 | RowBox[{"CM", "[", ) p" q2 Y4 J# z7 J
RowBox[{"3", ",", "4"}], "]"}], ",", ) l! l5 q4 r, u& ^3 w1 _+ \
RowBox[{"CM", "[",
1 r+ o' J4 w9 ?7 }9 J1 h; q; { RowBox[{"3", ",", "5"}], "]"}], ",",
' E' F! k0 E. C4 G$ p" p1 l( J) ` RowBox[{"CM", "[",
0 {$ s6 {6 K0 C4 @5 i RowBox[{"3", ",", "6"}], "]"}], ",", 2 N3 Z( x2 t, c% v( V* t8 o! f
RowBox[{"CM", "[",
) C8 c8 [% e) O* \ RowBox[{"3", ",", "7"}], "]"}], ",", + h& S& A" J/ P _, j7 q3 a# @
RowBox[{"CM", "[", 1 B$ {; F% ~) Q& r k! G) k( b
RowBox[{"3", ",", "8"}], "]"}], ",", + _/ n8 M p# f' D$ H/ R" z
RowBox[{"CM", "[", # O; K! |! n; H9 }" S( ?
RowBox[{"3", ",", "9"}], "]"}]}], "}"}], ",",
! I5 n, v5 Q: t7 u) d3 { RowBox[{"{", * F% o; k1 x6 Q) J- {4 }0 g
RowBox[{0 m1 m- F" g- Q p5 P
RowBox[{"CM", "[", " e4 m/ z! Y9 n" y& k' l- j; v
RowBox[{"4", ",", "1"}], "]"}], ",",
0 U$ e6 ]3 }' X% @$ m6 o RowBox[{"CM", "[",
5 j2 b. d8 k X3 f RowBox[{"4", ",", "2"}], "]"}], ",",
: G0 M) ]% n1 J- r3 k; H ? RowBox[{"CM", "[", 7 q& ^, D) |# I9 L$ D m& T) j
RowBox[{"4", ",", "3"}], "]"}], ",",
5 g! k* d H+ @6 B8 K) }- r. k& p RowBox[{"CM", "[",
+ g) Q0 a. h! k; X" Z RowBox[{"4", ",", "4"}], "]"}], ",",
, f) g" G. F( x3 }4 L RowBox[{"CM", "[", ! X' ^4 n7 U+ C) q8 Q+ q1 [5 [
RowBox[{"4", ",", "5"}], "]"}], ",",
* m2 \. W9 [( ~4 I! @ RowBox[{"CM", "[", 5 C* {1 h5 G/ u3 N, Z6 b; s
RowBox[{"4", ",", "6"}], "]"}], ",",
0 }' P& V/ n" r$ G! P RowBox[{"CM", "[",
$ D$ [! o, _5 p3 u1 B4 f- o' C- x RowBox[{"4", ",", "7"}], "]"}], ",", 2 b/ w/ {% |0 W& u
RowBox[{"CM", "[", 8 O4 H5 J7 t; {+ Y3 n
RowBox[{"4", ",", "8"}], "]"}], ",",
t3 c0 U' K$ ]0 Y9 j- g* { RowBox[{"CM", "[", W0 Q h" S7 k0 O/ D5 o" g+ X- ^" Z
RowBox[{"4", ",", "9"}], "]"}]}], "}"}], ",", : i# i* i% U) j4 b1 @: N( R" ?$ U
RowBox[{"{", , S, V; F8 r+ C' H" q8 H! i3 }5 g/ b
RowBox[{
. W/ X& l' o1 J2 N! q! E5 n2 L( o RowBox[{"CM", "[",
* [/ F2 U( h9 [# f RowBox[{"5", ",", "1"}], "]"}], ",", 3 M4 I* d% r, l z
RowBox[{"CM", "[", 7 r# g9 c, S3 y; \
RowBox[{"5", ",", "2"}], "]"}], ",",
1 B2 [7 c+ Q- r. m4 y RowBox[{"CM", "[", * N- `$ ]. W" H7 J+ ?
RowBox[{"5", ",", "3"}], "]"}], ",", h: f9 l9 r; m1 `* h0 E0 m
RowBox[{"CM", "[", ; H6 q. c; g$ g/ J# l
RowBox[{"5", ",", "4"}], "]"}], ",", / h8 r- G% U4 f8 L+ b- F( l1 L* f
RowBox[{"CM", "[",
) t8 _# k7 `% a; N0 ?& f( i RowBox[{"5", ",", "5"}], "]"}], ",", ; j0 R. z0 W2 K# K) {. t) a2 B/ S) J
RowBox[{"CM", "[", 9 m; w- T9 z& h. Z7 C
RowBox[{"5", ",", "6"}], "]"}], ",", ; B( P2 w& B D+ o7 d7 z
RowBox[{"CM", "[",
. x% |; N! n5 k RowBox[{"5", ",", "7"}], "]"}], ",", 6 e" y3 |+ m: K
RowBox[{"CM", "[",
; C/ J& x* c H' W RowBox[{"5", ",", "8"}], "]"}], ",",
; b) @' e7 _6 ]/ @2 t RowBox[{"CM", "[",
/ c9 i8 B8 Z3 L# w RowBox[{"5", ",", "9"}], "]"}]}], "}"}], ",",
# |9 K' G, [" B( L RowBox[{"{",
0 e4 ]3 {) d& h7 N RowBox[{
% G+ G& r7 j3 j7 ]/ \4 ] RowBox[{"CM", "[",
7 U# i- b/ M9 R, z' p& F RowBox[{"6", ",", "1"}], "]"}], ",",
9 V% w" k) q5 s3 l& ?/ R' j RowBox[{"CM", "[",
* i' Q6 h& B, J. ]% J3 i RowBox[{"6", ",", "2"}], "]"}], ",",
; e# G* |3 i& Q. G4 q4 j1 { RowBox[{"CM", "[", 5 @) D t- Y9 J( X# O' N* h
RowBox[{"6", ",", "3"}], "]"}], ",",
# @4 I2 U0 {6 o RowBox[{"CM", "[", 9 z" A5 N3 |6 v- v4 X% t
RowBox[{"6", ",", "4"}], "]"}], ",",
+ i- G. O& X+ C0 \: @ RowBox[{"CM", "[", 4 E: C% I' N s1 t+ C! I, t
RowBox[{"6", ",", "5"}], "]"}], ",",
, b, t3 l3 ]1 E3 E& h* a& a: { RowBox[{"CM", "[", 2 `& f5 @) G! e- R6 S/ f4 s
RowBox[{"6", ",", "6"}], "]"}], ",", 3 c$ d: B. w9 ?* D
RowBox[{"CM", "[",
+ b8 [, d: n$ X RowBox[{"6", ",", "7"}], "]"}], ",", 8 U( Z0 D7 r1 l0 a- R+ X1 q# H
RowBox[{"CM", "[", ( N9 \% i9 O7 a5 W: _
RowBox[{"6", ",", "8"}], "]"}], ",",
# _7 c8 t. B9 Z4 S8 t RowBox[{"CM", "[",
# f( K2 S7 D+ e. @( V/ q* H- x2 q3 d RowBox[{"6", ",", "9"}], "]"}]}], "}"}], ",",
: L. w" h0 p4 y1 J' l RowBox[{"{",
5 s1 [6 H4 b% R RowBox[{
* f% D7 G; V @0 W6 ~7 ` RowBox[{"CM", "[", 8 I* r' a# z( ^# t
RowBox[{"7", ",", "1"}], "]"}], ",", + p0 I( ^& B% Q0 W, o B: \
RowBox[{"CM", "[",
& z3 c- r, \& U# W; {# u8 x, _3 U RowBox[{"7", ",", "2"}], "]"}], ",",
- a' x3 k7 _3 ?# f; E& k( F RowBox[{"CM", "[",
5 u6 h* x1 E( j! H+ U RowBox[{"7", ",", "3"}], "]"}], ",",
# E, R* ?, p+ ]' z* S5 n RowBox[{"CM", "[",
& u: @' l w# S3 v/ u3 B RowBox[{"7", ",", "4"}], "]"}], ",",
4 ^& T; o% i. ` RowBox[{"CM", "[", 9 H+ } z0 t6 w, ] u
RowBox[{"7", ",", "5"}], "]"}], ",",
+ j8 ]' z; q: @- b$ R5 M RowBox[{"CM", "[", 6 q5 K, A1 Q/ d. `' V
RowBox[{"7", ",", "6"}], "]"}], ",",
+ j7 g3 R: P3 m% Z. L! P9 q: b RowBox[{"CM", "[", 2 Q6 H8 W$ M1 w, y0 P* V
RowBox[{"7", ",", "7"}], "]"}], ",",
! [+ C4 V c. A k0 H' p' ^ RowBox[{"CM", "[",
! q( E$ I+ q( J3 @ RowBox[{"7", ",", "8"}], "]"}], ",", 1 e; w: K8 h% R- q( G9 u0 J
RowBox[{"CM", "[", ( ]( F! I& b- k1 v' ^9 b# f
RowBox[{"7", ",", "9"}], "]"}]}], "}"}], ",", * I" E, X; r( |' }
RowBox[{"{",
; O. m; Y @2 [9 o6 i RowBox[{; C4 `- d( Y8 l: S' \
RowBox[{"CM", "[",
: ~/ L0 J) k$ i( L9 D& J RowBox[{"8", ",", "1"}], "]"}], ",",
" b7 R- G6 E" } A, H9 d RowBox[{"CM", "[",
& m3 R- b8 i" @+ r5 c& F5 w* e+ @4 S6 f RowBox[{"8", ",", "2"}], "]"}], ",",
$ Q7 {% P* r$ ?; }" j RowBox[{"CM", "[", ) v/ h8 I: S* V& c/ y! M
RowBox[{"8", ",", "3"}], "]"}], ",",
$ c: ?3 b! J& R& @% ?' j4 o RowBox[{"CM", "[",
3 V& \8 n: I) D) c4 T" x. q RowBox[{"8", ",", "4"}], "]"}], ",", ) F$ P# w* q8 |9 X# M. b
RowBox[{"CM", "[", : C( X% x! R- @! [' a: E! C
RowBox[{"8", ",", "5"}], "]"}], ",",
, ?6 Y6 ^, ~$ B RowBox[{"CM", "[", 2 W Z8 W8 c# Y* Y8 K3 G8 X, D
RowBox[{"8", ",", "6"}], "]"}], ",",
2 H# q6 H+ X* n' N RowBox[{"CM", "[", - N; f' n( r, p1 A0 c' a: j! e
RowBox[{"8", ",", "7"}], "]"}], ",",
! y0 F+ s1 q2 V' R RowBox[{"CM", "[", " f( m. V( u0 S
RowBox[{"8", ",", "8"}], "]"}], ",",
/ `" v/ d, c9 s9 N2 H- j2 T$ S& I4 n RowBox[{"CM", "[", 9 k- W% N& C O2 X8 V9 \0 ?. U
RowBox[{"8", ",", "9"}], "]"}]}], "}"}], ",", " w N* s r9 N4 e
RowBox[{"{",
2 y5 h. r9 b+ B+ o6 F RowBox[{
B/ R% O9 L' g- _" C RowBox[{"CM", "[",
% O6 M% g6 o" R- Z$ P3 o0 [ RowBox[{"9", ",", "1"}], "]"}], ",", ; L* l/ T; w! b
RowBox[{"CM", "[",
- e7 W, X3 N0 z, V. t h RowBox[{"9", ",", "2"}], "]"}], ",", ( I% {- ^4 [' I& S! D: R& a
RowBox[{"CM", "[",
$ z- P4 H# M5 g% }+ L RowBox[{"9", ",", "3"}], "]"}], ",",
" c7 h. Y' w$ f Z; Z" q" F' Q) r RowBox[{"CM", "[",
/ m. m* o$ ^: d7 n: e RowBox[{"9", ",", "4"}], "]"}], ",", * U9 L2 }4 G$ {5 N3 j
RowBox[{"CM", "[",
- S% x6 \2 l7 A. f RowBox[{"9", ",", "5"}], "]"}], ",",
5 p+ |! P2 \( Q7 g) g1 R8 }& u RowBox[{"CM", "[", ) `# A2 L6 P) o) C, ], H n) y8 F
RowBox[{"9", ",", "6"}], "]"}], ",",
, U% d4 x, t, o8 z$ S7 | RowBox[{"CM", "[", . c, j' H! i4 |" ]' _" r
RowBox[{"9", ",", "7"}], "]"}], ",",
/ l; d) C1 Z0 X$ @( O RowBox[{"CM", "[",
! u0 R' V+ @( O RowBox[{"9", ",", "8"}], "]"}], ",",
5 |: Y5 Q' v5 k5 X5 }& j _% e RowBox[{"CM", "[", ) i, Y3 G4 C* u/ G4 p; Q$ E
RowBox[{"9", ",", "9"}], "]"}]}], "}"}], ",",
! V' p* I7 B Y' v4 {: ^' i RowBox[{"{", 6 h3 N1 R; a2 @5 F. K
RowBox[{
6 I, @$ l# B# J D RowBox[{"CM", "[",
6 E+ a Y; H( W. R* R! }- H RowBox[{"10", ",", "1"}], "]"}], ",", . J6 D( S* W4 x! J1 C+ g" I4 \
RowBox[{"CM", "[", 1 ~- i" f- Y% [2 a# D
RowBox[{"10", ",", "2"}], "]"}], ",", - A, y9 u4 b5 N' M, U
RowBox[{"CM", "[", , m, _- ^, ? e# e( q& `9 V
RowBox[{"10", ",", "3"}], "]"}], ",", 5 |. n7 Z8 E7 C- ]
RowBox[{"CM", "[", 6 l# b9 b0 S) f9 v! v8 g
RowBox[{"10", ",", "4"}], "]"}], ",", ) Z; H3 s! z1 a( C( f% c
RowBox[{"CM", "[",
' k% n% E- D& ?2 [# k RowBox[{"10", ",", "5"}], "]"}], ",", 6 _* j( o- l3 Y2 Q j
RowBox[{"CM", "[",
. \5 Q d# l+ m9 X. } RowBox[{"10", ",", "6"}], "]"}], ",", 2 [& I$ Z4 D* L: ?! U
RowBox[{"CM", "[",
( a' P( c. i" Q( R3 j4 T) Y/ x RowBox[{"10", ",", "7"}], "]"}], ",", 6 d# m6 e6 {& i% A
RowBox[{"CM", "[", 5 {/ L Q4 n4 q3 X6 w9 j H
RowBox[{"10", ",", "8"}], "]"}], ",", , [9 X9 ?9 N3 q3 A! G/ O! m1 T
RowBox[{"CM", "[", , q3 D& y9 V8 }: s( p
RowBox[{"10", ",", "9"}], "]"}]}], "}"}], ",", 3 {4 `, t& ` T7 C
RowBox[{"{", 0 T* n$ h$ ?- }0 O- _/ \( j
RowBox[{
( g& \# n0 z$ u" B( m! d5 F RowBox[{"CM", "[", * a( q0 Q% ]( o5 ~, A& d+ A& L w
RowBox[{"11", ",", "1"}], "]"}], ",", 1 N; k3 {" I- x
RowBox[{"CM", "[",
$ q0 E6 E( u, X. l2 w6 z RowBox[{"11", ",", "2"}], "]"}], ",", 2 N6 f- e' o5 h& _6 f2 w
RowBox[{"CM", "[", 2 y/ K2 T9 a H+ P
RowBox[{"11", ",", "3"}], "]"}], ",",
* B! g0 B8 n$ \/ V3 G& G RowBox[{"CM", "[",
8 p% l* R& c7 e: u RowBox[{"11", ",", "4"}], "]"}], ",",
( L* N0 p; X$ ^# M/ w- w RowBox[{"CM", "[", F/ t) y$ d; U4 k6 j
RowBox[{"11", ",", "5"}], "]"}], ",", 6 s& J, d* F# G9 `8 E: Q9 V
RowBox[{"CM", "[", . B8 Q" q# d o* H. ~$ }
RowBox[{"11", ",", "6"}], "]"}], ",",
E( v u# g8 y' H1 r: B RowBox[{"CM", "[", % O2 L2 _6 N' A1 M2 ]
RowBox[{"11", ",", "7"}], "]"}], ",", , A/ f& V5 B" X1 D% t; |3 e
RowBox[{"CM", "[",
/ v& I, S. |0 X4 `9 X5 E RowBox[{"11", ",", "8"}], "]"}], ",",
4 `* ]& o0 r$ u- N/ }& D RowBox[{"CM", "[", 4 q. r# y9 h9 I$ _, Q2 F# O
RowBox[{"11", ",", "9"}], "]"}]}], "}"}], ",", ) \! \: E& c4 |% `
RowBox[{"{",
; g: \( G, I# l) k H1 c+ x RowBox[{
$ r( L5 ]& R l$ ^: I9 I RowBox[{"CM", "[", " s, Z; r% ?; s2 r: t+ L& Q; Y& W' v
RowBox[{"12", ",", "1"}], "]"}], ",",
* z, g5 h7 `5 O+ j, z RowBox[{"CM", "[",
) ?* C$ q5 H! \: @8 g9 X; ? RowBox[{"12", ",", "2"}], "]"}], ",",
9 M. b! F2 C9 U# W# Q J C RowBox[{"CM", "[", C5 O7 W, v! K: k$ R; @
RowBox[{"12", ",", "3"}], "]"}], ",",
3 Z8 B3 X6 t/ C# r3 I5 f6 Z RowBox[{"CM", "[",
7 {; v$ z% A& ^) Y% d- W RowBox[{"12", ",", "4"}], "]"}], ",",
' ~: b8 n( Q+ t2 e9 z8 S" f2 [2 G RowBox[{"CM", "[", 5 \7 O5 N4 M$ W/ @+ L3 w9 b- a
RowBox[{"12", ",", "5"}], "]"}], ",",
H( e, s' X e6 A- H9 \ RowBox[{"CM", "[", 3 ^! j' b' o |- u# k
RowBox[{"12", ",", "6"}], "]"}], ",", 6 k$ g7 W: s: h, Q! n0 X
RowBox[{"CM", "[", 2 k0 {) v! i0 k) [' C+ u6 I2 y
RowBox[{"12", ",", "7"}], "]"}], ",",
' W! }0 B2 X5 P2 l& k/ _ RowBox[{"CM", "[",
! M' Z- p I9 w! t RowBox[{"12", ",", "8"}], "]"}], ",", + k+ p. ]* N# D7 S
RowBox[{"CM", "[", ! s2 S3 R& _( _6 ]7 k6 f. Q# b
RowBox[{"12", ",", "9"}], "]"}]}], "}"}], ",",
- K _" e2 l" N0 ?/ P' l RowBox[{"{",
; c" d9 L( O3 V4 p( E9 v RowBox[{
7 U% r6 A* R$ Q' d5 Y RowBox[{"CM", "[",
; D2 X5 f# `+ k8 F RowBox[{"13", ",", "1"}], "]"}], ",", y* F% G6 K5 U1 M1 Z) L; p" q
RowBox[{"CM", "[", ) d) t q+ P( V' s& J8 @7 {
RowBox[{"13", ",", "2"}], "]"}], ",", 4 u* o5 W r) k1 B' m6 \, z
RowBox[{"CM", "[",
$ I6 R, p" i1 P; k1 |% |2 W RowBox[{"13", ",", "3"}], "]"}], ",", ) C: H7 f9 A6 @1 z0 F; \* a! z
RowBox[{"CM", "[", ( h# Y8 d$ n$ j5 r2 S
RowBox[{"13", ",", "4"}], "]"}], ",", - F2 K0 X& k4 ^3 P
RowBox[{"CM", "[", & X* l% C: }2 @( ^. }
RowBox[{"13", ",", "5"}], "]"}], ",",
2 W) h4 j. h2 r% @; R/ j RowBox[{"CM", "[", 9 \% [: ^4 H, x
RowBox[{"13", ",", "6"}], "]"}], ",",
2 i+ ^3 t4 ]$ y% M6 Z/ { RowBox[{"CM", "[",
! a; w( E$ r/ K6 y. q' { RowBox[{"13", ",", "7"}], "]"}], ",",
' M2 t6 c3 r4 [# w. p& y8 a RowBox[{"CM", "[", 4 Z5 ~/ p5 b7 a0 u) P, j$ @3 X
RowBox[{"13", ",", "8"}], "]"}], ",", 3 r2 K- U( f* W
RowBox[{"CM", "[",
/ R5 t. f% u/ o' d) O1 K RowBox[{"13", ",", "9"}], "]"}]}], "}"}], ",",
' D! x* ?( C+ X( \& \# w) k RowBox[{"{",
1 E, m; K! L7 H/ } RowBox[{' y$ u. M9 h( ?$ l( W
RowBox[{"CM", "[", q! t( J, w ^# u
RowBox[{"14", ",", "1"}], "]"}], ",", 9 g( X+ t5 D& G" L$ U; p8 `" W1 `1 j
RowBox[{"CM", "[", 1 `8 Y1 g- D, C: k/ o; i, m9 L! |$ S
RowBox[{"14", ",", "2"}], "]"}], ",", + w0 ~# z3 ?& t* Q! H# G* D
RowBox[{"CM", "[",
" j; X& f. l7 j$ T* C1 l: r RowBox[{"14", ",", "3"}], "]"}], ",", # ~0 _: r$ {: F/ h: B$ T( O
RowBox[{"CM", "[",
; c$ p# E+ v9 a8 n- l5 \ RowBox[{"14", ",", "4"}], "]"}], ",", - x) ]4 P2 s& Z* h
RowBox[{"CM", "[", & @% f& g [- j+ T7 ]$ r: p0 u
RowBox[{"14", ",", "5"}], "]"}], ",",
7 s6 g0 T9 t6 X9 {6 x RowBox[{"CM", "[", & I- D( [2 b) J/ Z, |6 R' D1 b
RowBox[{"14", ",", "6"}], "]"}], ",", 3 ]. d+ J# ?! t( J$ @( t2 _9 s
RowBox[{"CM", "[", ! |: `& o/ T; ]% F6 z. J
RowBox[{"14", ",", "7"}], "]"}], ",",
; F* S: R" S4 X3 G3 d( E% O RowBox[{"CM", "[",
+ O. a9 O8 e; K RowBox[{"14", ",", "8"}], "]"}], ",",
! u& x+ s* Z5 J& v RowBox[{"CM", "[",
% T9 T. H7 I& @! f" f RowBox[{"14", ",", "9"}], "]"}]}], "}"}], ",", , h6 |; D, Q. D) k" R
RowBox[{"{",
& M9 N, B* N6 \5 e# n5 i0 r RowBox[{, e. y2 w5 @" c6 i) f- B8 X
RowBox[{"CM", "[",
1 J5 J8 A+ l- k, s RowBox[{"15", ",", "1"}], "]"}], ",", ' I! P& a) \9 n8 B
RowBox[{"CM", "[",
0 n3 l4 H! s" x b6 E RowBox[{"15", ",", "2"}], "]"}], ",", 6 m/ D! X, p+ w
RowBox[{"CM", "[",
$ x$ f& F) D! u( ` RowBox[{"15", ",", "3"}], "]"}], ",", % W4 W2 q. {; m; S4 {3 V
RowBox[{"CM", "[", 0 Z. v) _2 U3 b4 E% j
RowBox[{"15", ",", "4"}], "]"}], ",",
- l% {6 h9 ^. `$ r( A5 \ RowBox[{"CM", "[",
' Q) b3 ~1 ~/ L' w1 g! K- r8 v S RowBox[{"15", ",", "5"}], "]"}], ",", , F! Z. Q5 z+ h$ g) }3 w+ d8 [. Y
RowBox[{"CM", "[",
; K2 d7 d$ Z" X, q( r% C3 d RowBox[{"15", ",", "6"}], "]"}], ",", % @) W- Z. l# P, x" p5 u
RowBox[{"CM", "[", $ \8 O7 P9 T1 A6 x) ~$ K
RowBox[{"15", ",", "7"}], "]"}], ",",
1 o* `& @8 w- w' r n: a RowBox[{"CM", "[", ; S, K' p }8 Y6 B. y$ `6 z, h
RowBox[{"15", ",", "8"}], "]"}], ",", * J# L1 j, u4 o& F3 C
RowBox[{"CM", "[",
0 o% w, z% b- R4 x5 Y0 I# |: k RowBox[{"15", ",", "9"}], "]"}]}], "}"}], ",", 4 X% W9 n4 [ \4 H4 B2 G
RowBox[{"{",
; n. |5 F5 g5 ^; f! X1 X& ~ RowBox[{
/ P- a& `6 T9 ~, N6 r. M RowBox[{"CM", "[",
! }; u) ^% K( `7 w% R6 d" Y! u. F1 ? RowBox[{"16", ",", "1"}], "]"}], ",", " r5 @1 v A! X, Y
RowBox[{"CM", "[",
2 P) B6 C4 U9 ~3 F) c7 T6 X RowBox[{"16", ",", "2"}], "]"}], ",", & G1 E$ O: P0 F
RowBox[{"CM", "[",
# q; m! ]! j% ~( w* E0 D" ~& N RowBox[{"16", ",", "3"}], "]"}], ",", 6 k5 `- q O% ]+ ]
RowBox[{"CM", "[",
7 j) H, Z# S* R# f RowBox[{"16", ",", "4"}], "]"}], ",", / J- ~7 H4 b) `, q
RowBox[{"CM", "[",
/ J7 [; A/ Y/ h9 q+ C3 M Q RowBox[{"16", ",", "5"}], "]"}], ",", 7 A3 a3 [. Q' q: Z4 f( D) ]& X2 \
RowBox[{"CM", "[",
& E7 }4 b4 [+ f* S$ _" p1 t; E RowBox[{"16", ",", "6"}], "]"}], ",", 5 m' H* H9 t: D4 m
RowBox[{"CM", "[", / i4 ]9 S& V6 i/ X) W5 y5 [3 s
RowBox[{"16", ",", "7"}], "]"}], ",", ' W% X1 F, a' H( ~! l2 j, R6 c& G
RowBox[{"CM", "[", }5 u* y/ b7 i. M3 }! j
RowBox[{"16", ",", "8"}], "]"}], ",", ( k; z9 A! F# y
RowBox[{"CM", "[", 3 ~7 `, F% Z3 A* ?: |* r
RowBox[{"16", ",", "9"}], "]"}]}], "}"}], ",", 3 B; q( Y- D( C# i
RowBox[{"{", 1 g8 ?/ L; L: T( }& e
RowBox[{
L; T) ^2 m7 G3 g4 I RowBox[{"CM", "[", ! x& n+ t$ I! B; u, l( I3 L
RowBox[{"17", ",", "1"}], "]"}], ",",
e' ?& x$ h4 l) e RowBox[{"CM", "[", `' C* i) ~9 K9 }0 g1 ~
RowBox[{"17", ",", "2"}], "]"}], ",", : ]) t) o0 n: x o: d# I, A7 O
RowBox[{"CM", "[",
0 t6 ^8 K# D- \& Y. U8 i- { RowBox[{"17", ",", "3"}], "]"}], ",", 6 d4 m8 Q0 a2 M) G# Q; u( h# E
RowBox[{"CM", "[",
' |$ C" a0 j4 O1 J" |9 V) G RowBox[{"17", ",", "4"}], "]"}], ",",
7 B1 ]" ]& s* R. r9 Z/ Z RowBox[{"CM", "[",
- d- m- {$ L u3 X* [5 L" y RowBox[{"17", ",", "5"}], "]"}], ",",
9 Y$ M; S4 K. g6 ~2 p9 N RowBox[{"CM", "[",
; o$ q- _0 x, u/ l* I7 N RowBox[{"17", ",", "6"}], "]"}], ",", - n" t/ R9 f% M; @
RowBox[{"CM", "[", - d* ~! r5 Z2 e6 \7 J
RowBox[{"17", ",", "7"}], "]"}], ",",
: g; `& B2 a2 ~ RowBox[{"CM", "[", S" A9 H/ ~# |7 y0 b
RowBox[{"17", ",", "8"}], "]"}], ",", E1 P( e+ P$ a* i `; F( i
RowBox[{"CM", "[", 5 U: e' q( Q6 N
RowBox[{"17", ",", "9"}], "]"}]}], "}"}], ",",
! s% M. Y Z0 e$ l4 i8 V RowBox[{"{", 4 Q1 H! i7 ?( C- f# ?: j: a
RowBox[{ E% [4 U- Q) Z
RowBox[{"CM", "[",
/ m$ A$ w+ F/ N* O8 n$ s RowBox[{"18", ",", "1"}], "]"}], ",",
, z2 \) ]3 v% {4 d- W7 v RowBox[{"CM", "[",
* z9 c) {. f% \# G& E RowBox[{"18", ",", "2"}], "]"}], ",",
7 \/ W' R( h1 _& x5 m& J5 [0 @ RowBox[{"CM", "[", ' C# s0 X5 _; v$ Z; d
RowBox[{"18", ",", "3"}], "]"}], ",",
* C y/ _5 D0 F5 b* `+ b RowBox[{"CM", "[",
# e- D4 y, R% ^' g# R, V RowBox[{"18", ",", "4"}], "]"}], ",", * f' V( r" ^' S* i5 i3 E, b% b% A
RowBox[{"CM", "[", 3 Y+ ? i0 V% V! w+ {+ K1 m( r
RowBox[{"18", ",", "5"}], "]"}], ",",
2 u1 {) g$ E. m# R Y, n7 B! y RowBox[{"CM", "[", / g; x$ U5 M( K: P8 ~
RowBox[{"18", ",", "6"}], "]"}], ",",
3 F$ G0 a7 C0 `4 g RowBox[{"CM", "[", & y ^# l# U, Q) `0 o
RowBox[{"18", ",", "7"}], "]"}], ",",
: y' g7 J& n: p, P* Z' Y: S RowBox[{"CM", "[",
9 \# \$ N! P- M5 y RowBox[{"18", ",", "8"}], "]"}], ",",
0 ]0 P" z/ T2 [3 M w RowBox[{"CM", "[", / z9 ]8 a/ d6 W5 K- u0 ]+ m' F, A
RowBox[{"18", ",", "9"}], "]"}]}], "}"}], ",",
4 ~$ Y4 l' F' Z9 {. h4 r RowBox[{"{",
) @+ T& B4 k# \, X RowBox[{
0 ^$ l+ n8 C. C7 c RowBox[{"CM", "[", $ Z' t, |4 ]0 b+ J
RowBox[{"19", ",", "1"}], "]"}], ",",
) |$ Z3 P( \; `6 r9 T- R7 w RowBox[{"CM", "[",
4 z3 x% ~& Y9 i E- g3 Q! _# a RowBox[{"19", ",", "2"}], "]"}], ",",
- H5 K/ W3 F5 j RowBox[{"CM", "[",
8 o8 r1 ^8 y2 c% m1 p RowBox[{"19", ",", "3"}], "]"}], ",", / \8 k+ w$ _2 w$ x4 V( V7 G
RowBox[{"CM", "[", / H/ ~" ~5 D6 p7 x( l9 J2 z ?
RowBox[{"19", ",", "4"}], "]"}], ",", / P9 `5 J4 R! S
RowBox[{"CM", "[", ) P$ M- ~$ B" N% J* q5 ?) |# ^
RowBox[{"19", ",", "5"}], "]"}], ",",
; r* P7 v7 t1 T. n+ ]9 q$ r/ j RowBox[{"CM", "[", 6 L% U% b/ Y3 I0 D
RowBox[{"19", ",", "6"}], "]"}], ",",
( W% C( s# B6 ^* t$ R5 p$ v RowBox[{"CM", "[",
* m4 l! d# g8 l) _3 j- M! I4 y2 d0 ^ RowBox[{"19", ",", "7"}], "]"}], ",", 2 l- m6 |3 Q: r: I1 w
RowBox[{"CM", "[", ; \3 o( j) B% n& ]5 ?. p
RowBox[{"19", ",", "8"}], "]"}], ",", 7 W9 i4 g8 }: y( N" n1 J6 h! Q
RowBox[{"CM", "[", ; a+ J: x) c5 o
RowBox[{"19", ",", "9"}], "]"}]}], "}"}], ",",
+ Z% {7 k1 _5 s) s RowBox[{"{", 6 O" V( Y! r3 C) J" ?$ E! p
RowBox[{" D. O2 y5 }. k$ y! y
RowBox[{"CM", "[", 3 y9 V/ C9 Q1 k3 J7 n4 K
RowBox[{"20", ",", "1"}], "]"}], ",",
- ~- Y; H, e' g; \ RowBox[{"CM", "[", / o1 K& E1 M0 e. {* `, ?% h2 @; q9 H
RowBox[{"20", ",", "2"}], "]"}], ",",
- f4 h+ j. ~2 U) \% R RowBox[{"CM", "[",
X1 u: z7 ^7 o1 @. U2 ^ RowBox[{"20", ",", "3"}], "]"}], ",", 2 x# B' M2 E' ~( ^; W" l1 b
RowBox[{"CM", "[", % R# j7 E4 V4 s* w+ h( u& S
RowBox[{"20", ",", "4"}], "]"}], ",",
) V" e0 Z+ J7 z" ` RowBox[{"CM", "[",
0 g: n' ~6 n$ J1 n# f8 o RowBox[{"20", ",", "5"}], "]"}], ",", 5 c- |: w e. N' _+ C2 H& r
RowBox[{"CM", "[", " N' G5 { P( q# P2 A2 O' H: A
RowBox[{"20", ",", "6"}], "]"}], ",", 3 S& {' ]- d3 w* M& Y+ ^
RowBox[{"CM", "[",
% D" G- f) ?% q# S8 ?9 {8 r RowBox[{"20", ",", "7"}], "]"}], ",",
k/ _; l; z6 w/ _' O* X RowBox[{"CM", "[",
6 Y' R) q+ h% B w9 W9 } RowBox[{"20", ",", "8"}], "]"}], ",",
6 v! t# Q) P5 ^6 l( W" J- g RowBox[{"CM", "[", 4 Z' I! i9 u# x, I8 W% ~1 R" l
RowBox[{"20", ",", "9"}], "]"}]}], "}"}], ",", ) \) c. B; P. x9 v% n$ S
RowBox[{"{",
( k. o2 q" U% [' M1 ~ RowBox[{9 i% K w% C. ^% N7 u0 o
RowBox[{"CM", "[",
) {# h; n8 r+ f RowBox[{"21", ",", "1"}], "]"}], ",",
: ?7 K6 `7 g5 K4 S' d1 w RowBox[{"CM", "[", 4 [/ u+ a* N- O' o0 g1 C9 V5 z
RowBox[{"21", ",", "2"}], "]"}], ",", " G0 u a3 z2 q4 ]9 Y
RowBox[{"CM", "[", 1 ^$ Y3 O2 g% T0 J
RowBox[{"21", ",", "3"}], "]"}], ",", ( Q5 c. _. _6 o N9 h# a" `
RowBox[{"CM", "[", , I: G8 j; |0 }1 v& w G0 L
RowBox[{"21", ",", "4"}], "]"}], ",", 6 |. W9 }8 }3 W- \
RowBox[{"CM", "[",
; J% A4 W$ i0 L) l) q- f RowBox[{"21", ",", "5"}], "]"}], ",", : Y8 W+ t3 P1 }. ]
RowBox[{"CM", "[", 7 c" I" x( G! M
RowBox[{"21", ",", "6"}], "]"}], ",", ! B. F( o- F1 l! P! @5 N9 [9 M2 q+ N& \
RowBox[{"CM", "[", " T7 a$ Q& f8 [/ q
RowBox[{"21", ",", "7"}], "]"}], ",",
. x% j0 G1 z, L2 E; J# J0 x5 s1 g RowBox[{"CM", "[", 5 l0 W% q' ^0 Z. Q# S9 G0 S
RowBox[{"21", ",", "8"}], "]"}], ",",
6 t/ {* ~4 e' M/ [5 [& k: g1 c RowBox[{"CM", "[", , S4 l- _* ]0 D+ Q/ W) O6 C0 \
RowBox[{"21", ",", "9"}], "]"}]}], "}"}], ",", : }0 b9 j2 |3 X, J. J+ B G5 T
RowBox[{"{",
6 @/ C- l, Z) {' K1 Q% p RowBox[{
" t6 V0 T( H" F( p( z; N RowBox[{"CM", "[", 8 y5 {! i( c' S$ J2 U
RowBox[{"22", ",", "1"}], "]"}], ",", / i5 H" @) o3 t& Y
RowBox[{"CM", "[", N' j6 d: c% K9 U& L$ P
RowBox[{"22", ",", "2"}], "]"}], ",",
" b" Z+ {& _3 U9 o9 Q3 v8 K RowBox[{"CM", "[",
3 s6 h# [ {3 W RowBox[{"22", ",", "3"}], "]"}], ",",
% X/ z" f$ [3 n% h0 n6 N% b& }* y RowBox[{"CM", "[", & @' N' x, K7 F- r
RowBox[{"22", ",", "4"}], "]"}], ",",
8 W t) \; h. r6 X# y; I RowBox[{"CM", "[",
( k; j! l3 X W* U RowBox[{"22", ",", "5"}], "]"}], ",",
0 c* @0 e$ G% | RowBox[{"CM", "[",
# G' S( Z; f1 h$ ] RowBox[{"22", ",", "6"}], "]"}], ",",
4 D5 D6 y2 F! w! C2 w- s RowBox[{"CM", "[", 6 ]) I6 z/ w8 Z8 z/ q5 H; ~$ Z
RowBox[{"22", ",", "7"}], "]"}], ",", * }% N/ \# _. U0 B4 _
RowBox[{"CM", "[", , w7 f! k5 M! A1 M
RowBox[{"22", ",", "8"}], "]"}], ",",
9 J6 I2 I; g, {( W RowBox[{"CM", "[", , k9 w* m$ ] }! h0 ?' J. }6 a
RowBox[{"22", ",", "9"}], "]"}]}], "}"}], ",",
" u6 V Z. [4 P3 K! ^; G0 C RowBox[{"{",
' ?; l( i+ l8 w9 o" \% X; X. N2 Y, M RowBox[{& s1 a' F; n) k0 W6 F" @$ v5 E
RowBox[{"CM", "[", / p0 q7 Q: y" U7 N& j, C5 K) M1 _
RowBox[{"23", ",", "1"}], "]"}], ",", ! h* q7 J7 o5 t* z' s
RowBox[{"CM", "[",
% r' N; y% j1 c; ]' @% Q# m RowBox[{"23", ",", "2"}], "]"}], ",",
) N Q: y( h! x" r0 Q ]/ ^) s RowBox[{"CM", "[",
! e/ f9 ^, a8 v7 L RowBox[{"23", ",", "3"}], "]"}], ",",
+ T6 V; e/ z9 v: ~0 b* n1 {. l RowBox[{"CM", "[", : G5 q! P6 }, \1 b O V) l
RowBox[{"23", ",", "4"}], "]"}], ",",
6 G6 c( H9 Z& j, B RowBox[{"CM", "[",
& t5 Z3 d* G- R' U RowBox[{"23", ",", "5"}], "]"}], ",",
/ g3 z6 ^& [7 h RowBox[{"CM", "[", $ A' z! U" }3 u s$ r: o: p
RowBox[{"23", ",", "6"}], "]"}], ",", ' w. d o" v# Q7 P* P
RowBox[{"CM", "[", 5 b8 x. l; `8 \6 Q
RowBox[{"23", ",", "7"}], "]"}], ",", 1 s' ?, `) j" }5 V& V
RowBox[{"CM", "[",
1 } S. U2 \. h5 e3 g7 K# d" p RowBox[{"23", ",", "8"}], "]"}], ",", , C9 ~8 N/ ?! u* |, T; F
RowBox[{"CM", "[",
; _- N7 N- N8 G* _( ] _ RowBox[{"23", ",", "9"}], "]"}]}], "}"}], ",",
$ m: R, H+ T/ @7 B; \7 B3 Z RowBox[{"{",
* \: N& x7 D' g( O ~$ a- @' V RowBox[{
6 z& s+ T/ X7 [/ \" }! D RowBox[{"CM", "[",
: {* F* w5 W" G RowBox[{"24", ",", "1"}], "]"}], ",", ' R0 n* u j+ v% m' I$ `: v3 U
RowBox[{"CM", "[",
# l1 d6 [$ p4 u+ ^4 f RowBox[{"24", ",", "2"}], "]"}], ",",
& j: z" m2 z$ G' U& L$ T RowBox[{"CM", "[",
8 [; S: G2 U) D( c& Q RowBox[{"24", ",", "3"}], "]"}], ",", 2 B( _' p9 y( B- Y
RowBox[{"CM", "[",
0 D0 {! }/ U) _$ o3 P' p( B% E# @ RowBox[{"24", ",", "4"}], "]"}], ",", 4 i7 N3 D; K$ G6 g. o0 d- T
RowBox[{"CM", "[", 8 D z5 K |6 |6 I ~+ Q4 `
RowBox[{"24", ",", "5"}], "]"}], ",", ! n0 t* u% L' D, V2 C6 v3 U0 Z0 W3 \7 y
RowBox[{"CM", "[",
! c2 t% {( ]* U8 R RowBox[{"24", ",", "6"}], "]"}], ",",
# M0 f# I% L: U4 T4 d9 a5 U RowBox[{"CM", "[", $ H8 ?' Y( U9 d8 `3 X
RowBox[{"24", ",", "7"}], "]"}], ",",
! _$ G6 J) \0 q3 e RowBox[{"CM", "[",
1 R; x+ v: H3 y9 M RowBox[{"24", ",", "8"}], "]"}], ",",
/ y+ g: m- M& s5 ~7 |. i* g RowBox[{"CM", "[",
6 M9 H4 f0 f% ?/ b' q, K RowBox[{"24", ",", "9"}], "]"}]}], "}"}], ",", % W/ ]" ^4 W/ Q# m* R
RowBox[{"{", ; }' I" o6 I* v* A* B, K6 f
RowBox[{2 c7 e1 L( ~* n7 n
RowBox[{"CM", "[",
, B$ Y5 ~8 ^( I1 E$ m( K& _) T RowBox[{"25", ",", "1"}], "]"}], ",",
; U& ]$ F8 q9 m7 C- B2 s0 d RowBox[{"CM", "[",
3 l9 _* x0 y; e RowBox[{"25", ",", "2"}], "]"}], ",", : t* g7 ~ n p4 J. l
RowBox[{"CM", "[",
7 I9 U6 \ {: W G! U: t, H. I# [ RowBox[{"25", ",", "3"}], "]"}], ",",
( ~2 m( U" C9 v: x! F9 o RowBox[{"CM", "[", : _- h0 q2 N! i1 n8 J* R
RowBox[{"25", ",", "4"}], "]"}], ",",
' x# g0 K- x3 b2 v6 g0 ^ RowBox[{"CM", "[",
2 u/ h1 l; B9 Y, l RowBox[{"25", ",", "5"}], "]"}], ",",
; l; f$ z1 b! v7 U! K! h5 } RowBox[{"CM", "[", 0 b5 M( Q }1 y L5 H
RowBox[{"25", ",", "6"}], "]"}], ",", . V% o9 v- d2 `% Y* T" ]2 g: x P! _
RowBox[{"CM", "[",
$ d/ R2 {- w9 s RowBox[{"25", ",", "7"}], "]"}], ",", # M) {% e9 O: B. G' g0 C$ V' ^
RowBox[{"CM", "[",
6 X- \$ |; t* W; _ RowBox[{"25", ",", "8"}], "]"}], ",",
1 n V2 |9 |& a7 T& U RowBox[{"CM", "[", U; M0 s0 F6 R0 P8 X; _: K! Z" c
RowBox[{"25", ",", "9"}], "]"}]}], "}"}], ",", , H" Z( G, u& P, W1 E4 A
RowBox[{"{",
8 O- o+ e! M, t9 f# k! e RowBox[{+ O: _- r4 T0 U4 ^6 z( m
RowBox[{"CM", "[", & x- ]- Q) I1 i
RowBox[{"26", ",", "1"}], "]"}], ",",
7 o9 _3 Z: H. l9 r- @ RowBox[{"CM", "[", ; e' J4 R( |9 e9 D( w
RowBox[{"26", ",", "2"}], "]"}], ",",
. ^. y, O) N* p. {+ ]6 d7 ?$ [ RowBox[{"CM", "[", + w8 ~5 V% w# B% g3 q9 C. w2 N
RowBox[{"26", ",", "3"}], "]"}], ",", ) `8 I) Y* d; ?/ R" e3 U
RowBox[{"CM", "[", - w* A1 X% B- T) H$ S+ z% l4 B
RowBox[{"26", ",", "4"}], "]"}], ",",
" V7 a4 C- `& G0 W) K% V RowBox[{"CM", "[",
; N, Y z$ `/ ?6 k7 @- b9 K# Q, @ RowBox[{"26", ",", "5"}], "]"}], ",",
' I" v# u9 A6 n# Q RowBox[{"CM", "[", & I" L; l9 R* j7 `8 ~+ x
RowBox[{"26", ",", "6"}], "]"}], ",", # n6 e' j% r' Z6 X( }. ]
RowBox[{"CM", "[",
7 |6 r8 I2 W2 Y: x RowBox[{"26", ",", "7"}], "]"}], ",", + Y5 Y4 |2 g) c
RowBox[{"CM", "[",
! L7 p2 s: D) C2 q y2 w* Z RowBox[{"26", ",", "8"}], "]"}], ",", : E; i! K5 G9 D2 x% L! z* b* P
RowBox[{"CM", "[", . `4 F$ D7 \+ e5 V4 ]7 [
RowBox[{"26", ",", "9"}], "]"}]}], "}"}], ",",
9 w1 `3 O' w5 M5 ]$ g5 c& _/ O RowBox[{"{",
8 `6 o q4 n( r% r2 \2 m! s7 C+ c- L ? RowBox[{
+ k9 l6 u; ^0 }1 j) f, e RowBox[{"CM", "[",
- q/ ?9 n/ |1 c* v! H RowBox[{"27", ",", "1"}], "]"}], ",",
8 k) h- ^7 c" N- q# } RowBox[{"CM", "[", 9 v2 r* T: ?% ^* v/ a6 F# n- }
RowBox[{"27", ",", "2"}], "]"}], ",",
+ c) }, y# D$ m8 _/ E% N, J RowBox[{"CM", "[",
4 P) u; p! k: y2 m# b+ r RowBox[{"27", ",", "3"}], "]"}], ",",
+ z. c& a) r& ^9 E RowBox[{"CM", "[", ' [7 C3 K( h1 Z2 w
RowBox[{"27", ",", "4"}], "]"}], ",", ; t( i" l! I* t% |% y
RowBox[{"CM", "[",
% E$ @4 U0 Q' |, [& L' o7 R c: g' m RowBox[{"27", ",", "5"}], "]"}], ",", $ C$ `- ~/ w5 A; C
RowBox[{"CM", "[",
/ w8 i1 _" j1 ~( X- m+ `. [; ? RowBox[{"27", ",", "6"}], "]"}], ",", . Y3 g+ j7 `% z# @2 o
RowBox[{"CM", "[",
2 K! C5 Y5 H' F& L' p9 w RowBox[{"27", ",", "7"}], "]"}], ",", 6 @1 G% C' _' Z' P* t- Q$ ~) S
RowBox[{"CM", "[",
& _, b2 K6 }3 D& g+ v. c8 s RowBox[{"27", ",", "8"}], "]"}], ",", ' T- h% r1 d( A# N* ^
RowBox[{"CM", "[",
% @. e6 A, C- W+ I6 W RowBox[{"27", ",", "9"}], "]"}]}], "}"}], ",",
5 @6 K/ }. B# ^' e# l9 E RowBox[{"{",
8 i/ l/ f3 V' Q, [, D RowBox[{1 ~. L. F: I' @" ?- A1 O
RowBox[{"CM", "[",
' t* e+ d7 |# R* j1 S0 s* z RowBox[{"28", ",", "1"}], "]"}], ",",
! V" I* o+ ^. }4 T RowBox[{"CM", "[",
" _$ E+ G( H# y% ] V$ ~" q RowBox[{"28", ",", "2"}], "]"}], ",", I. [; x5 b0 ^5 ~2 J6 m
RowBox[{"CM", "[",
- R6 x* |$ x: |- f {3 x' n6 O6 M RowBox[{"28", ",", "3"}], "]"}], ",",
$ }9 V% U' m$ n3 i( P- w1 r RowBox[{"CM", "[",
* i0 Z+ K* l) K) I" G. t# b RowBox[{"28", ",", "4"}], "]"}], ",",
; l: j$ n& Y) S% `. L8 J* L2 v RowBox[{"CM", "[", * z5 M+ b) d2 ]7 v+ a6 \9 F4 r- P
RowBox[{"28", ",", "5"}], "]"}], ",", 2 b# p+ C9 g6 H1 ]% Z
RowBox[{"CM", "[", : f X8 d4 c8 J; y0 m0 f, {
RowBox[{"28", ",", "6"}], "]"}], ",",
7 L2 H3 G* T% Y0 W; Q4 p RowBox[{"CM", "[",
8 X/ z; c/ Q9 ]) k# D RowBox[{"28", ",", "7"}], "]"}], ",", . e3 i) Y( s, |
RowBox[{"CM", "[",
3 y$ v; D& M! Y) G/ j, }& d( V7 y RowBox[{"28", ",", "8"}], "]"}], ",",
" t" c6 W# P; D5 X2 y" B RowBox[{"CM", "[", ' K2 [! r$ R+ X! Y
RowBox[{"28", ",", "9"}], "]"}]}], "}"}], ",", T$ w: ?3 x- ~. x; _: J9 d) F
RowBox[{"{",
/ k3 p Y8 R# g% | RowBox[{5 I( s9 N9 H5 E( C/ c" K, a
RowBox[{"CM", "[",
3 J8 \# h. M" M. Q. l+ r$ r! e RowBox[{"29", ",", "1"}], "]"}], ",",
" w8 m7 x5 L, i RowBox[{"CM", "[", 1 [) \ `& X5 K5 v3 k+ G6 W, G. s
RowBox[{"29", ",", "2"}], "]"}], ",", 4 D6 k' \' E5 M& X) u) U
RowBox[{"CM", "[", & G0 V* t+ ?: t1 @ u+ w. Z0 _& }
RowBox[{"29", ",", "3"}], "]"}], ",", . x! A, J0 a( c! W+ ]! |
RowBox[{"CM", "[",
2 L1 U; ^# U% ~: A6 q9 {% _+ N RowBox[{"29", ",", "4"}], "]"}], ",", 3 L: n, G C1 T
RowBox[{"CM", "[", ) K @3 T% o. s+ a# G$ [
RowBox[{"29", ",", "5"}], "]"}], ",",
; B; q0 K4 m. w+ d RowBox[{"CM", "[", 7 d$ V0 r: H& g, w
RowBox[{"29", ",", "6"}], "]"}], ",", , n- w: c+ V+ f0 u6 Y& g/ [
RowBox[{"CM", "[", + E7 K( L; Q7 J1 U$ p
RowBox[{"29", ",", "7"}], "]"}], ",", 9 `+ E! f1 Y* ~
RowBox[{"CM", "[", # @, d* z& Z1 ~' V) E( J3 ~
RowBox[{"29", ",", "8"}], "]"}], ",", 8 Z+ j" j1 G- [8 p" j/ I
RowBox[{"CM", "[",
5 ^2 ^7 r# g1 {% Z5 a RowBox[{"29", ",", "9"}], "]"}]}], "}"}], ",",
0 D( o- S6 a) e q+ A& Z6 P RowBox[{"{",
! A; A3 b% b1 ]2 d# D1 V# k& g RowBox[{
7 ]3 n5 ?/ X: s5 r( j RowBox[{"CM", "[",
6 \6 T: C) g+ u& s! p RowBox[{"30", ",", "1"}], "]"}], ",",
9 {! E0 I7 L+ W5 g6 x( D RowBox[{"CM", "[",
s4 @4 v$ h& ~/ Q; v, n RowBox[{"30", ",", "2"}], "]"}], ",",
$ G/ ?# k% l# m9 Y: m7 b- _ RowBox[{"CM", "[", # j. `1 S5 C+ t5 q
RowBox[{"30", ",", "3"}], "]"}], ",", ; l( V3 c6 X1 r3 x1 w' o" W& @
RowBox[{"CM", "[", : g3 O$ A) t5 l/ C8 T
RowBox[{"30", ",", "4"}], "]"}], ",",
/ k: y6 X, M' A2 b3 X6 s RowBox[{"CM", "[",
8 [" s& h+ l# J2 W, W/ z- m5 @ RowBox[{"30", ",", "5"}], "]"}], ",",
+ G7 q! f+ h. f* ?0 O RowBox[{"CM", "[",
# p4 I4 {4 O4 ~ r( S# f2 @1 b& H8 w* ? RowBox[{"30", ",", "6"}], "]"}], ",", 6 A6 d% H5 q& x% H* X! E3 I v! ?: o$ O
RowBox[{"CM", "[", ( p, N& A9 g- h& ?3 b! _ K
RowBox[{"30", ",", "7"}], "]"}], ",",
5 J/ f r9 G: @ RowBox[{"CM", "[",
2 n6 T! C4 N! M/ t0 L% l RowBox[{"30", ",", "8"}], "]"}], ",", / ] O( K1 m- j- h& g
RowBox[{"CM", "[",
# ^+ ~3 |9 h$ d' _ RowBox[{"30", ",", "9"}], "]"}]}], "}"}], ",", 2 t; h# X0 y* k. W, F
RowBox[{"{", 6 @2 i4 w" i0 H/ p8 J' G& v9 i
RowBox[{' W) C" I$ l' L1 [3 k5 c
RowBox[{"CM", "[",
% r& I F. P7 _9 n+ Y, p6 B+ Z, F" e RowBox[{"31", ",", "1"}], "]"}], ",", / r* T! o9 }9 z& e) v) R6 h- @
RowBox[{"CM", "[", ) T" H6 D2 h, A2 P
RowBox[{"31", ",", "2"}], "]"}], ",",
! U; x$ d8 R4 `8 B y RowBox[{"CM", "[",
$ n% g- D' X: k! I) K# x/ ] RowBox[{"31", ",", "3"}], "]"}], ",",
) C+ K% t+ [+ I$ q RowBox[{"CM", "[",
+ _, }, A' L: ^ RowBox[{"31", ",", "4"}], "]"}], ",",
$ a) T0 }+ j2 u/ P2 b RowBox[{"CM", "[", * g; m+ E8 n1 y* d8 h
RowBox[{"31", ",", "5"}], "]"}], ",",
3 L2 j* P+ z8 Y8 m- e RowBox[{"CM", "[", 8 [. v+ T2 s2 _1 Y1 P( U8 {7 K
RowBox[{"31", ",", "6"}], "]"}], ",",
k# E% X1 G' ?- | RowBox[{"CM", "[",
/ a4 R+ p: D) m RowBox[{"31", ",", "7"}], "]"}], ",", ; b" ^- I+ e! _! E4 J4 i& u; a/ R
RowBox[{"CM", "[", ! A6 F" d3 g6 z8 |% b( |2 g2 X, n3 Y/ ?
RowBox[{"31", ",", "8"}], "]"}], ",",
) j8 ^% O3 H, [1 E7 X' ] RowBox[{"CM", "[", 0 U4 ?8 ]$ N) n4 Q U
RowBox[{"31", ",", "9"}], "]"}]}], "}"}], ",", g1 O1 R$ T7 E
RowBox[{"{", & v: \$ b8 U4 J) R; {8 W' b
RowBox[{4 m. F% [" j; ]$ P- y4 ]
RowBox[{"CM", "[", , R7 |4 f3 Z5 d3 y# y1 f% U- E
RowBox[{"32", ",", "1"}], "]"}], ",",
5 l5 s0 `6 a; j7 K( W7 y3 L RowBox[{"CM", "[",
: }' e4 S9 ]5 K$ Q RowBox[{"32", ",", "2"}], "]"}], ",", $ ]+ w- A2 c, T
RowBox[{"CM", "[", 6 P9 o6 K" y" P1 g# [! r
RowBox[{"32", ",", "3"}], "]"}], ",",
, z3 }3 }% X( c& b RowBox[{"CM", "[",
6 i0 X3 E( F& d* Z% @# p- D% { RowBox[{"32", ",", "4"}], "]"}], ",",
- t/ S7 H: K1 }" N1 u2 P RowBox[{"CM", "[",
7 x% H$ \9 K2 d, n+ H RowBox[{"32", ",", "5"}], "]"}], ",",
0 V* P5 h( U3 {$ u4 L RowBox[{"CM", "[",
" T2 J2 J: g; f `( C RowBox[{"32", ",", "6"}], "]"}], ",", * E; S( M2 h# n. s) i. y
RowBox[{"CM", "[", / W" W( E# H8 D" P0 n3 b0 B* M9 ^
RowBox[{"32", ",", "7"}], "]"}], ",",
# u8 a4 b4 L! ^. l) Z RowBox[{"CM", "[",
; |3 o+ L a1 P$ X) ^ RowBox[{"32", ",", "8"}], "]"}], ",",
% m1 @ o h) _/ q5 \ RowBox[{"CM", "[", * K6 l# [$ i" w0 f3 B6 l' [
RowBox[{"32", ",", "9"}], "]"}]}], "}"}], ",", 7 g$ k5 `- P. |, v
RowBox[{"{", * Q( X3 Q- h/ G: h( n$ E
RowBox[{
/ U: [) x1 J" S RowBox[{"CM", "[",
2 Y. t6 I% \ L; p RowBox[{"33", ",", "1"}], "]"}], ",",
Y% a) ^& l* x# {2 C# A RowBox[{"CM", "[", * P& H: q$ S- f. m d5 x' y
RowBox[{"33", ",", "2"}], "]"}], ",", ) [& S# ?& K7 Z9 V- A
RowBox[{"CM", "[", & v" `3 ?, Y7 w7 [5 v1 Z
RowBox[{"33", ",", "3"}], "]"}], ",", & @9 W) s& M" _
RowBox[{"CM", "[", " _6 ?' T* \5 j# l8 t
RowBox[{"33", ",", "4"}], "]"}], ",", & T; K5 P0 a i
RowBox[{"CM", "[", $ ]+ Y& @5 y1 H- |; M+ }
RowBox[{"33", ",", "5"}], "]"}], ",", ( \4 N; {' [, L+ v' V) u
RowBox[{"CM", "[",
* f, [) N; ?6 ]3 e: Z% S RowBox[{"33", ",", "6"}], "]"}], ",",
4 j! Z5 k: s8 a' W+ x) g; f RowBox[{"CM", "[",
4 k4 U- q. y1 V RowBox[{"33", ",", "7"}], "]"}], ",",
/ E/ i+ u. h' B& y) X0 V! B3 X9 K1 w RowBox[{"CM", "[",
( _; k; G: V1 _! n7 A RowBox[{"33", ",", "8"}], "]"}], ",",
/ G9 Q& D3 B! f& ^' A4 z! T+ p RowBox[{"CM", "[", l }0 H' K7 ?; N! _2 G2 x, L
RowBox[{"33", ",", "9"}], "]"}]}], "}"}], ",", ) c% A$ \4 k8 d% I7 \# L* {
RowBox[{"{",
5 ]& t( S5 a. h0 d RowBox[{& B# `3 a# F7 M1 i4 q
RowBox[{"CM", "[", ( ~. x7 ~9 c' g' Q5 z4 O$ K$ k8 ?
RowBox[{"34", ",", "1"}], "]"}], ",",
: c) h0 f1 {; G2 ~/ T7 s5 D RowBox[{"CM", "[", 7 w! S" z- A3 b3 R/ c9 w4 j. O5 j, ~
RowBox[{"34", ",", "2"}], "]"}], ",", ' N" |7 I/ F3 S. L! u5 ^. R0 n
RowBox[{"CM", "[", 9 ?( K" X- w# i5 y. e0 c% {4 N
RowBox[{"34", ",", "3"}], "]"}], ",",
* q' K& \5 n9 S* ~# I RowBox[{"CM", "[",
9 `2 |+ h/ Z G t3 z RowBox[{"34", ",", "4"}], "]"}], ",", . X" U, d; s( V
RowBox[{"CM", "[",
: y3 ?" A( v/ R. s t8 c RowBox[{"34", ",", "5"}], "]"}], ",", " X& x. i+ g" ` X- f
RowBox[{"CM", "[",
1 \" t! N4 |5 E- D RowBox[{"34", ",", "6"}], "]"}], ",", - C* [* @! w- V3 u
RowBox[{"CM", "[",
% A0 L( ]) @. z0 B) i# V) { RowBox[{"34", ",", "7"}], "]"}], ",",
+ a( K9 r: \" q6 [ RowBox[{"CM", "[",
! J% O4 ?* R9 S$ ^! F% v RowBox[{"34", ",", "8"}], "]"}], ",",
6 X, w0 P! C" ^# \. l: L7 h3 t RowBox[{"CM", "[", $ ^7 I. _ p% o, ]8 M
RowBox[{"34", ",", "9"}], "]"}]}], "}"}], ",", @5 ?! S7 L: j2 y+ {- u
RowBox[{"{", 9 I! w$ c5 z( [% a6 T
RowBox[{
0 K/ P7 H2 B* p7 `+ _ RowBox[{"CM", "[",
; j# |' ?1 k/ L% Q; y# p2 q RowBox[{"35", ",", "1"}], "]"}], ",",
7 |" M; t: T) w% I, p: l' u& r3 F RowBox[{"CM", "[",
6 `: c% h- |( P8 P7 M9 F- E RowBox[{"35", ",", "2"}], "]"}], ",", 0 K6 a# Q1 G1 A
RowBox[{"CM", "[", 2 V8 ^$ I3 r8 t4 L2 V0 O6 [. R
RowBox[{"35", ",", "3"}], "]"}], ",", 8 t/ l! Q2 }7 C# w0 L+ O1 i" W
RowBox[{"CM", "[",
- T5 M8 v; O7 z9 X- _$ _ RowBox[{"35", ",", "4"}], "]"}], ",",
4 ]0 f+ Q2 q1 t RowBox[{"CM", "[",
( g' t1 I' O0 f9 Y RowBox[{"35", ",", "5"}], "]"}], ",", # f: {8 g0 Y M& a" t
RowBox[{"CM", "[", : p4 Q' g5 P4 ^9 R4 K& {' ]. _4 W
RowBox[{"35", ",", "6"}], "]"}], ",",
) ?+ f/ b v/ j- }; t RowBox[{"CM", "[",
! N: E$ {/ [3 b { RowBox[{"35", ",", "7"}], "]"}], ",",
% U+ ]% b: R- D E RowBox[{"CM", "[", % P2 F+ H$ F7 n0 |8 u
RowBox[{"35", ",", "8"}], "]"}], ",",
5 ? ~+ R5 R( z( @( M4 h0 ?* Y RowBox[{"CM", "[",
& _8 M+ P! Y* Z* w5 x2 m RowBox[{"35", ",", "9"}], "]"}]}], "}"}], ",",
( S3 T) ~! n4 @; q0 Z4 E RowBox[{"{", ) N4 J, [" o7 a7 k7 u+ f
RowBox[{
0 ^. i1 o; V0 u; o$ _/ L RowBox[{"CM", "[", $ H8 f/ y4 |& w4 [
RowBox[{"36", ",", "1"}], "]"}], ",", 0 Q, Y, C6 Y' `; Z2 K4 R U
RowBox[{"CM", "[", $ s6 S5 J ]3 n1 D7 I! \
RowBox[{"36", ",", "2"}], "]"}], ",",
6 o* J: S6 O5 d% ` RowBox[{"CM", "[",
, T# G( W; E- Y$ p B. J5 f/ W; x5 d RowBox[{"36", ",", "3"}], "]"}], ",",
! ?! t+ @ u+ ^' X& o5 ?: k RowBox[{"CM", "[", & ?! i% L* T3 E1 ^1 h, Z/ ~
RowBox[{"36", ",", "4"}], "]"}], ",",
: K1 }; Y% z0 D- F w- a RowBox[{"CM", "[", " P8 W: J, L% e
RowBox[{"36", ",", "5"}], "]"}], ",", ( n, d, \* u9 l Y& t2 n, T* y+ Q9 C
RowBox[{"CM", "[", & j' P0 S1 R) v: f
RowBox[{"36", ",", "6"}], "]"}], ",", D q8 [4 C- g7 x( P
RowBox[{"CM", "[",
& L" i( T% k6 w/ s$ g& c' j# h RowBox[{"36", ",", "7"}], "]"}], ",", - N! s/ d, K( @4 p5 D0 R6 i
RowBox[{"CM", "[",
! a& D ?, @% Y& p, t! U2 X) V RowBox[{"36", ",", "8"}], "]"}], ",",
! M0 K2 C1 ^" r7 n! ^1 T/ A: z- f RowBox[{"CM", "[", * b" S! p) z5 q
RowBox[{"36", ",", "9"}], "]"}]}], "}"}], ",", , }, y% r0 z# N5 Y+ E
RowBox[{"{",
. ?) Q' q: k+ G1 Z+ U- H8 ^ RowBox[{
! {& R* H3 S. @ t" a6 D RowBox[{"CM", "[",
1 G0 p6 \4 r* W2 D. ?9 H3 l8 x RowBox[{"37", ",", "1"}], "]"}], ",",
) J/ L. P( A, A RowBox[{"CM", "[",
* z) W: r- }3 Y' T1 l2 W4 [ RowBox[{"37", ",", "2"}], "]"}], ",",
9 r* ?* d( y5 _+ o' _+ k& O RowBox[{"CM", "[", ) W; m; `0 l6 h
RowBox[{"37", ",", "3"}], "]"}], ",",
1 H) U# k$ \& f RowBox[{"CM", "[",
' m1 m5 `8 Q3 F9 }( L RowBox[{"37", ",", "4"}], "]"}], ",",
" s% X+ b2 w; D" Z3 ? RowBox[{"CM", "[",
* E3 A( f6 E+ ? RowBox[{"37", ",", "5"}], "]"}], ",",
0 |! z: n. `! @: Y RowBox[{"CM", "[",
+ K5 R3 ^6 w) S( o6 k3 y RowBox[{"37", ",", "6"}], "]"}], ",",
( K y! g' E9 R6 f RowBox[{"CM", "[",
1 P4 J6 i2 I* W6 p8 p+ M RowBox[{"37", ",", "7"}], "]"}], ",",
: Q7 r. U# g! n' F, _- x RowBox[{"CM", "[",
) J$ O% n" b# \ l RowBox[{"37", ",", "8"}], "]"}], ",", + N- U- ^. V* N. Q
RowBox[{"CM", "[", # B0 |9 x1 R$ j$ D4 t" }1 n
RowBox[{"37", ",", "9"}], "]"}]}], "}"}], ",", 4 H5 H, K6 O6 u6 {& S8 M
RowBox[{"{",
% L9 v. [/ ` x! A4 w RowBox[{$ m! L0 f4 D* T, Q( c
RowBox[{"CM", "[", 4 u6 \' A- g' X" j! y0 k3 s$ Q
RowBox[{"38", ",", "1"}], "]"}], ",", 4 U7 ~- m. B2 N% Z2 F0 F$ { r
RowBox[{"CM", "[",
5 G! s% e K$ s/ g RowBox[{"38", ",", "2"}], "]"}], ",", 5 `5 \' ?' I- ]0 q
RowBox[{"CM", "[", : D" n5 i7 W+ e. Z" I0 T/ [
RowBox[{"38", ",", "3"}], "]"}], ",", - r- k" u; C3 J" C; {/ Q* p
RowBox[{"CM", "[",
. u, k; _0 R2 I0 F RowBox[{"38", ",", "4"}], "]"}], ",",
& j1 `' U9 m1 I RowBox[{"CM", "[", 3 y6 k# U3 j( S5 N
RowBox[{"38", ",", "5"}], "]"}], ",",
7 G6 Q7 l* v' |4 t RowBox[{"CM", "[",
8 E' H" j! |( M- v f RowBox[{"38", ",", "6"}], "]"}], ",",
+ G% u' r) I7 `9 I RowBox[{"CM", "[",
; p3 s/ Y& q; W% o/ }! j @8 v RowBox[{"38", ",", "7"}], "]"}], ",",
1 c5 }+ L( J6 M: `, T2 e RowBox[{"CM", "[",
5 o$ v% g1 h- W. p RowBox[{"38", ",", "8"}], "]"}], ",",
( _% |$ K& w0 Q" D4 _ S RowBox[{"CM", "[", 9 m) \& N3 @3 p% i
RowBox[{"38", ",", "9"}], "]"}]}], "}"}], ",",
1 h1 X, y9 j* u2 z RowBox[{"{", 9 A7 \/ x) A! j+ g2 @
RowBox[{
" d8 J5 G% v0 B( Q1 _ RowBox[{"CM", "[", $ B0 A) q7 U# {7 `: P
RowBox[{"39", ",", "1"}], "]"}], ",", * g6 N4 F8 ~8 z9 p. i* w
RowBox[{"CM", "[", + z, X' h9 X# R7 y
RowBox[{"39", ",", "2"}], "]"}], ",", , W3 X. p: Y3 N: y+ D) O5 J1 k
RowBox[{"CM", "[",
+ H( s0 d/ |. i; n! j& |1 F' ~5 e RowBox[{"39", ",", "3"}], "]"}], ",",
7 O7 C; o! n- W5 q4 @. j RowBox[{"CM", "[", 5 A: K7 j+ g2 L. l! x
RowBox[{"39", ",", "4"}], "]"}], ",", ) _5 p; U4 Q' m4 q i# _6 X6 q
RowBox[{"CM", "[", 0 q, u- j: l; @4 i3 a8 X
RowBox[{"39", ",", "5"}], "]"}], ",",
0 J# Y }0 C. Y RowBox[{"CM", "[", 3 O' H3 O) K0 |- y, f4 u
RowBox[{"39", ",", "6"}], "]"}], ",", 1 t+ D+ @, m# ?; B/ v3 Q# N' z/ Y
RowBox[{"CM", "[", 0 _& E+ I; \6 V
RowBox[{"39", ",", "7"}], "]"}], ",", 8 b2 w9 c' R* K
RowBox[{"CM", "[",
6 Q' A3 ]1 f# a7 g* c) h8 M RowBox[{"39", ",", "8"}], "]"}], ",",
- W2 R% I- ?) j Z+ R RowBox[{"CM", "[",
; _ o1 `! u/ g7 x) @ RowBox[{"39", ",", "9"}], "]"}]}], "}"}], ",", & I2 Q1 }6 g7 H
RowBox[{"{",
7 O# y% K5 u- T RowBox[{) z7 g, I# s' L8 `0 @5 B
RowBox[{"CM", "[",
& D( w9 L8 m$ Z RowBox[{"40", ",", "1"}], "]"}], ",", ^0 J* w" i1 t+ P: a2 v
RowBox[{"CM", "[",
% Z7 A' U h4 V' \9 h RowBox[{"40", ",", "2"}], "]"}], ",",
1 U* O4 X/ ?* A# I8 @0 l RowBox[{"CM", "[",
% C4 F, W& e5 d3 O2 M RowBox[{"40", ",", "3"}], "]"}], ",",
& k0 L8 `+ C; \ RowBox[{"CM", "[",
4 ]& M( y5 u6 ~ RowBox[{"40", ",", "4"}], "]"}], ",",
R1 C7 f0 b: m X$ D5 K/ ]+ x RowBox[{"CM", "[", % R" t1 i. E8 M8 b1 Y
RowBox[{"40", ",", "5"}], "]"}], ",", + o' r; a! i( \1 e: ^: U
RowBox[{"CM", "[",
# a' z2 g5 p, l RowBox[{"40", ",", "6"}], "]"}], ",", 7 r6 J9 T+ b0 T2 t3 X; ?
RowBox[{"CM", "[",
v5 W+ |% I% t9 T4 ?+ k* L RowBox[{"40", ",", "7"}], "]"}], ",", 0 M& @2 V, e0 a# W
RowBox[{"CM", "[",
; {( ^) q+ ?. k( L; ]/ I RowBox[{"40", ",", "8"}], "]"}], ",", + D1 N1 |4 j) D- _' y5 D2 Y3 Y8 |
RowBox[{"CM", "[", 8 r% l4 i- f9 l3 Q4 Y. C8 ]$ V) V9 C
RowBox[{"40", ",", "9"}], "]"}]}], "}"}], ",", 9 v$ R) i0 A5 H; M% U" H
RowBox[{"{", 7 D# Z$ I/ ]7 ?6 u/ h
RowBox[{
; F9 t/ h$ N/ @- `! l2 { RowBox[{"CM", "[", 7 m: p! x4 G, I3 r% a+ N; M! L
RowBox[{"41", ",", "1"}], "]"}], ",",
# a6 [* ^4 ~9 U7 V% M7 h RowBox[{"CM", "[",
, L4 [4 h/ k1 Y+ | }9 { RowBox[{"41", ",", "2"}], "]"}], ",",
! o) [% d; t3 k# f2 A' g9 Z RowBox[{"CM", "[",
& t: l p% b) e5 _! ]8 Z. _ RowBox[{"41", ",", "3"}], "]"}], ",",
# S4 I8 a& N9 V$ c* @9 S- H6 S RowBox[{"CM", "[", 4 `9 E! x; _3 P
RowBox[{"41", ",", "4"}], "]"}], ",",
' v( r$ Q C$ R: W& ~ RowBox[{"CM", "[", & X# J. V! t9 c* ?/ k
RowBox[{"41", ",", "5"}], "]"}], ",", ; ]# n% v! f6 O- ~0 |
RowBox[{"CM", "[",
; B) o3 T, m5 K RowBox[{"41", ",", "6"}], "]"}], ",", : ?+ G& P/ P8 x$ r: a
RowBox[{"CM", "[",
% k0 s2 h4 q$ y RowBox[{"41", ",", "7"}], "]"}], ",", " ^1 o; T1 h7 [, \ G
RowBox[{"CM", "[", ( a5 R( M( n$ ]& v2 ^$ g1 h
RowBox[{"41", ",", "8"}], "]"}], ",",
& ~. a; W2 h0 N0 D& V7 B RowBox[{"CM", "[",
* v, G- H0 a$ t& @& E" I- [' p RowBox[{"41", ",", "9"}], "]"}]}], "}"}], ",", . `1 S1 S7 W9 u" F! Q% J, ~* A7 L
RowBox[{"{",
/ d6 P5 H$ ^- Q' K- ~ RowBox[{+ F& R) j( E3 i* e
RowBox[{"CM", "[", & ]' f& Q( K4 F+ F4 m
RowBox[{"42", ",", "1"}], "]"}], ",",
2 T3 l( Q* e3 X/ M7 k S RowBox[{"CM", "[", . l6 `8 g8 m0 I) }& O) @
RowBox[{"42", ",", "2"}], "]"}], ",", 4 d; w" ]2 R, {, U( d, E, g6 }% J
RowBox[{"CM", "[",
) q3 G6 |5 L( t S2 I, U RowBox[{"42", ",", "3"}], "]"}], ",",
+ _+ f! |2 \5 T d( Y8 O RowBox[{"CM", "[", 8 ^1 D# t5 z: R5 P0 u8 H
RowBox[{"42", ",", "4"}], "]"}], ",",
0 g* k8 o8 G4 O! l RowBox[{"CM", "[", " k6 `: l, m4 [0 u) s# D7 e
RowBox[{"42", ",", "5"}], "]"}], ",",
) Z" f3 U4 Y0 x. n9 Z$ M+ i' r RowBox[{"CM", "[", 9 K9 u; R2 h' f. j$ y: h' Q
RowBox[{"42", ",", "6"}], "]"}], ",",
# _: F5 f% J8 z+ _, `- C RowBox[{"CM", "[",
4 D6 ^$ f2 A4 ^" U. I RowBox[{"42", ",", "7"}], "]"}], ",",
" v) R8 A o4 d6 E) Y( z& {# m5 K RowBox[{"CM", "[",
. j2 P! N& I$ H RowBox[{"42", ",", "8"}], "]"}], ",",
' b. \8 r2 z* U! p- V% e RowBox[{"CM", "[",
+ n) H1 x# @; ?/ g7 E; P RowBox[{"42", ",", "9"}], "]"}]}], "}"}], ",",
8 h7 c1 _/ k& \) A2 b RowBox[{"{", , a9 A. j) {$ I1 Z
RowBox[{/ ^* ^0 l2 l4 _
RowBox[{"CM", "[", ) @! w G: `4 C( a I' S6 G$ K
RowBox[{"43", ",", "1"}], "]"}], ",",
( _- e! B, B$ _3 D9 K6 ? RowBox[{"CM", "[", # r+ J6 c$ Z( o2 r3 _. @
RowBox[{"43", ",", "2"}], "]"}], ",", . a% w1 y$ v( J: u; e7 w3 K
RowBox[{"CM", "[", 9 L+ i4 y6 @& }
RowBox[{"43", ",", "3"}], "]"}], ",", & @/ s* Y8 ]0 s' W# t4 w
RowBox[{"CM", "[",
. {# `1 P6 ^0 \" k7 J5 X RowBox[{"43", ",", "4"}], "]"}], ",",
6 }! s% G7 \ T* j% S: B2 A RowBox[{"CM", "[",
2 V. r( b B) D, s9 M. ` RowBox[{"43", ",", "5"}], "]"}], ",",
. l% H6 c2 X8 f6 Q- h7 w RowBox[{"CM", "[", # L b, X; ]( o" B
RowBox[{"43", ",", "6"}], "]"}], ",",
0 r) @, Y2 U& I' x/ a4 s RowBox[{"CM", "[",
/ n( b% ?0 K4 H' c1 c2 b RowBox[{"43", ",", "7"}], "]"}], ",", 5 ?& H+ q& r" y. _' i% `/ H5 N
RowBox[{"CM", "[",
: y7 O# b/ \& w9 i" W RowBox[{"43", ",", "8"}], "]"}], ",", % d* a5 ?+ x3 f
RowBox[{"CM", "[",
5 J. v, ?0 Q D- |7 }* N a$ ? RowBox[{"43", ",", "9"}], "]"}]}], "}"}], ",", & S0 ^, K9 Y2 Q
RowBox[{"{",
! [# j( q5 s( q, ]& H: `* G7 } RowBox[{
% B4 v4 ^6 i! e/ |6 u- Z RowBox[{"CM", "[", 4 F7 @/ P3 H3 ?
RowBox[{"44", ",", "1"}], "]"}], ",", : o- r5 K6 o, w3 l, j4 O
RowBox[{"CM", "[", $ J3 a* P* Q" p
RowBox[{"44", ",", "2"}], "]"}], ",",
* m2 Z3 k% X# k" z RowBox[{"CM", "[", . t& Y' ^+ S; e$ q; t
RowBox[{"44", ",", "3"}], "]"}], ",", w$ H( }6 C w \8 i' K w
RowBox[{"CM", "[", ( v2 x$ a+ m7 [: ], K/ X# ]
RowBox[{"44", ",", "4"}], "]"}], ",",
4 w0 X( \2 G2 X1 j& Y+ K) p RowBox[{"CM", "[", ) M( Q' m: B+ b# O g) J3 m
RowBox[{"44", ",", "5"}], "]"}], ",",
( Y q3 R: z4 |- W1 x- v& @ RowBox[{"CM", "[", " [ l$ H$ m% D( t0 K, | |
RowBox[{"44", ",", "6"}], "]"}], ",", * g: `* p; ^- k; P
RowBox[{"CM", "[", . h: Q6 R$ e& D) ^' M
RowBox[{"44", ",", "7"}], "]"}], ",",
?" T" q1 R& u$ [6 T \ RowBox[{"CM", "[", ' Z; u. c/ b3 r
RowBox[{"44", ",", "8"}], "]"}], ",", , w2 x A7 p7 P7 B/ ~
RowBox[{"CM", "[",
) f* M* a0 J- ^) A, r }& S RowBox[{"44", ",", "9"}], "]"}]}], "}"}], ",",
. p; u' \5 |. o8 y. n RowBox[{"{", $ E- ~% [! u% o
RowBox[{
. y7 n; c6 ^' Q/ u) `$ q8 z$ {& M RowBox[{"CM", "[", " K% {3 h+ c- I3 U0 B7 u9 Y
RowBox[{"45", ",", "1"}], "]"}], ",", 5 Z0 L% v4 W4 n' R
RowBox[{"CM", "[", - h a: g- s; I4 Z0 _) x3 P
RowBox[{"45", ",", "2"}], "]"}], ",",
4 p# b/ R9 Z4 a: p6 S. p, n6 ` RowBox[{"CM", "[",
! y! P7 z" w: H* G RowBox[{"45", ",", "3"}], "]"}], ",", ! z4 K" |) {# P. \( [* ^
RowBox[{"CM", "[", 9 ]. ]0 D5 ?+ M: S& i, G
RowBox[{"45", ",", "4"}], "]"}], ",", - ~) i5 V4 ]3 P1 Q
RowBox[{"CM", "[",
! l" F% s: `( M RowBox[{"45", ",", "5"}], "]"}], ",",
: _% J# u" I4 m2 ^ RowBox[{"CM", "[", " H" \: L. x4 T; `- W- a( z# o
RowBox[{"45", ",", "6"}], "]"}], ",", 3 D' F" {+ [2 l
RowBox[{"CM", "[", F8 s- @. [+ v2 D* m9 R
RowBox[{"45", ",", "7"}], "]"}], ",",
* X+ O$ q+ U3 | p+ ~ RowBox[{"CM", "[", 4 X ?* ]& ]/ f# ^ N4 W
RowBox[{"45", ",", "8"}], "]"}], ",", W% Q2 E9 F' ?* ]
RowBox[{"CM", "[", + R/ r( _" B& e: S8 f
RowBox[{"45", ",", "9"}], "]"}]}], "}"}], ",", " O. n; w3 F8 [: J7 J
RowBox[{"{",
3 h; I7 @3 a, D RowBox[{9 I! d% I J/ i+ f! B& d+ {/ Y
RowBox[{"CM", "[", . P2 W- Z5 P+ h1 k Q1 K* O. |
RowBox[{"46", ",", "1"}], "]"}], ",",
) c% r5 p% W0 v) `1 s0 W. ?6 c* d RowBox[{"CM", "[", ' g1 s2 Q6 a3 c8 }9 [5 m
RowBox[{"46", ",", "2"}], "]"}], ",",
$ V0 m7 G! T. d* s& I7 \/ C v! T RowBox[{"CM", "[",
% \) \1 L3 a7 X RowBox[{"46", ",", "3"}], "]"}], ",", 4 C7 d. S% ?! F, y4 l
RowBox[{"CM", "[",
3 i) |0 W& E8 f. L$ h7 V RowBox[{"46", ",", "4"}], "]"}], ",",
# J4 T) o# n& s0 T) W RowBox[{"CM", "[",
) G1 i; \9 q @& \) f RowBox[{"46", ",", "5"}], "]"}], ",",
; g( S' C/ N7 p+ ?/ F- s RowBox[{"CM", "[",
' Y6 f; S/ \0 r: k; E& } RowBox[{"46", ",", "6"}], "]"}], ",",
7 x( s1 p8 r9 D4 Z$ l; j RowBox[{"CM", "[", ( z% j3 U# \; l6 L5 @
RowBox[{"46", ",", "7"}], "]"}], ",", 0 G( u! Q1 ~8 }4 u6 N& {1 e/ N. ^
RowBox[{"CM", "[", 4 U; H( O; ^) G' A t
RowBox[{"46", ",", "8"}], "]"}], ",", 7 r4 a3 X* H3 W$ |! B1 ?
RowBox[{"CM", "[",
% f R) |' U/ \$ b RowBox[{"46", ",", "9"}], "]"}]}], "}"}], ",", ; M; F# z2 d; o. h( T
RowBox[{"{", : H; J9 G" b6 t7 Z6 t
RowBox[{- u; N7 K3 M. p' k
RowBox[{"CM", "[", Q! _% X- j8 o- I
RowBox[{"47", ",", "1"}], "]"}], ",",
( k& F$ o# P3 \4 }7 @, B RowBox[{"CM", "[", % q+ F# n& A5 P* k( S- z
RowBox[{"47", ",", "2"}], "]"}], ",", [7 |; S$ `+ n5 r# _+ H
RowBox[{"CM", "[", 2 e' K$ x; B) l4 x. S2 a' J6 g s5 k; T
RowBox[{"47", ",", "3"}], "]"}], ",", * ?1 T3 H: Z3 t: A' g/ y+ H
RowBox[{"CM", "[",
! _$ c' ?1 F% t6 U8 k RowBox[{"47", ",", "4"}], "]"}], ",", 9 h9 `# h$ Q/ Y
RowBox[{"CM", "[", ) J0 D f" L" W7 i4 ^& l5 n9 X
RowBox[{"47", ",", "5"}], "]"}], ",",
! Z( L- W8 U+ M, H( k RowBox[{"CM", "[", ' \; z& Q4 E5 D* D
RowBox[{"47", ",", "6"}], "]"}], ",", - J8 E8 M. J- L9 L4 i
RowBox[{"CM", "[",
% I8 t9 } }# {% w7 x RowBox[{"47", ",", "7"}], "]"}], ",", 7 l) Z0 w) _( K9 o0 a
RowBox[{"CM", "[",
& E8 f( G- B9 c* m: \2 F# S/ ?" ^/ P RowBox[{"47", ",", "8"}], "]"}], ",",
9 \/ W; b0 D. F RowBox[{"CM", "[",
0 M$ K% W8 T# z0 E7 [ RowBox[{"47", ",", "9"}], "]"}]}], "}"}], ",", 8 Q7 `) b' H9 c* c' J. {$ [
RowBox[{"{", 9 @2 D5 v+ ?3 z' {+ X3 d
RowBox[{0 z8 u4 L6 Y1 z G* M
RowBox[{"CM", "[", , ^. X* d3 t" T1 P
RowBox[{"48", ",", "1"}], "]"}], ",", 3 |! g4 @+ v8 S& a) b8 k$ n
RowBox[{"CM", "[", % U3 a7 F" C# H4 r% ~1 u, ]
RowBox[{"48", ",", "2"}], "]"}], ",", + N5 X. ?/ }1 w6 R- o
RowBox[{"CM", "[",
& n4 |. V+ [' k4 R/ J RowBox[{"48", ",", "3"}], "]"}], ",", ; ^ u0 }* I7 w! S8 `0 {
RowBox[{"CM", "[",
+ s5 x+ [( d7 b+ x, a RowBox[{"48", ",", "4"}], "]"}], ",", ) x& P- C5 P$ G9 z- f: O: L' M3 t9 H
RowBox[{"CM", "[",
$ x N* s+ E6 I2 g. e. C RowBox[{"48", ",", "5"}], "]"}], ",", / @! v0 r: ^3 k% ^ D/ a
RowBox[{"CM", "[",
# G0 g) S& |4 R, S" Z5 j RowBox[{"48", ",", "6"}], "]"}], ",", 5 V& Y9 m/ I( y) E$ B
RowBox[{"CM", "[",
( Q& E( S* t) R$ X( e+ |8 I$ t [ RowBox[{"48", ",", "7"}], "]"}], ",",
0 I- }2 T' _. n( n RowBox[{"CM", "[", 2 H" N+ T4 e: C2 |: d
RowBox[{"48", ",", "8"}], "]"}], ",",
0 {! \7 j8 \ Z+ d RowBox[{"CM", "[", 4 k9 g j/ F/ B$ ]$ R1 I
RowBox[{"48", ",", "9"}], "]"}]}], "}"}], ",",
P4 d( v& F, \7 b' ~ RowBox[{"{",
( V* k8 r% E9 @ RowBox[{6 Y, O2 A2 Y$ ?6 I2 q$ s4 w+ ]
RowBox[{"CM", "[", & D2 V9 w! G! t# S
RowBox[{"49", ",", "1"}], "]"}], ",", 6 E/ W' w& w" m+ ^
RowBox[{"CM", "[",
& k3 z+ h2 S9 F' ?' Z$ @" T. @ RowBox[{"49", ",", "2"}], "]"}], ",", $ T; K9 Y! O1 \; f3 s3 Z3 M) l8 }, X
RowBox[{"CM", "[",
# p! |% k( K# o& O' { RowBox[{"49", ",", "3"}], "]"}], ",",
2 q$ t! ^1 B6 r& B$ _, y9 p. o u( l# K RowBox[{"CM", "[",
+ h3 x; `6 K4 p8 m2 o4 V" A& ]- U RowBox[{"49", ",", "4"}], "]"}], ",", / \ I' h$ |% B
RowBox[{"CM", "[", ! d/ D K: Q% u" P* t/ B
RowBox[{"49", ",", "5"}], "]"}], ",",
5 l( h% c3 H5 B% y- B! F" J RowBox[{"CM", "[", " z) V( n8 R/ @! z# n- n
RowBox[{"49", ",", "6"}], "]"}], ",", ; N' A) ~% k* f/ d
RowBox[{"CM", "[",
* w: o% X' [8 ~$ p5 l6 Q* g. N RowBox[{"49", ",", "7"}], "]"}], ",", . V" b( c/ z& _+ ~
RowBox[{"CM", "[", & b, H5 X( v* f
RowBox[{"49", ",", "8"}], "]"}], ",", 8 h; D: m w* J& ~- o" ]% Z
RowBox[{"CM", "[", 2 t1 w5 x* G6 p
RowBox[{"49", ",", "9"}], "]"}]}], "}"}], ",",
9 v% T" Q0 j, _" ` RowBox[{"{", 0 u) Y2 o/ n0 S/ I: P* s' S5 u$ x
RowBox[{. U' w6 Z6 ?9 A9 O6 f
RowBox[{"CM", "[",
! l( B: T, y0 R RowBox[{"50", ",", "1"}], "]"}], ",", ) [- l! Q5 `( h- s- j7 r; y9 v
RowBox[{"CM", "[", 1 m q( H% L' o# K; h P7 m
RowBox[{"50", ",", "2"}], "]"}], ",",
, Y* T" ~5 M2 a* q5 _9 X' J RowBox[{"CM", "[", ; Q2 R5 n2 @' w4 y# ~) G' K( i9 B
RowBox[{"50", ",", "3"}], "]"}], ",", 0 K1 M, C$ O* H' ?& ]$ T
RowBox[{"CM", "[", ( [7 R$ H4 B2 v% m9 `4 q
RowBox[{"50", ",", "4"}], "]"}], ",", # \/ p4 h5 ?, b! d2 a: v8 i. @7 Q
RowBox[{"CM", "[", : t# Z% {" H0 g: X! [8 p
RowBox[{"50", ",", "5"}], "]"}], ",", : u# ~5 U' ]9 W2 H( U
RowBox[{"CM", "[",
s# d% j5 a& ^& ]1 A: T RowBox[{"50", ",", "6"}], "]"}], ",", 7 I0 u9 _5 B; S M
RowBox[{"CM", "[",
& h& N" D% W# B- P RowBox[{"50", ",", "7"}], "]"}], ",", ' C0 A8 U9 a. \) t" K% a4 c
RowBox[{"CM", "[",
" T" B$ f% {3 X$ O- l RowBox[{"50", ",", "8"}], "]"}], ",", + `) l$ n* a1 T9 @( P6 _ D# W
RowBox[{"CM", "[", 5 k1 S( j& g) e, U% ~3 s: X
RowBox[{"50", ",", "9"}], "]"}]}], "}"}], ",", & c$ J) Q; z1 s+ O# {
RowBox[{"{", & s8 h- L; a& U
RowBox[{
8 `1 g* K, x' @ RowBox[{"CM", "[",
9 d3 |8 Z! A5 [2 O$ E9 b# | RowBox[{"51", ",", "1"}], "]"}], ",",
* Z& b3 }1 s2 ? RowBox[{"CM", "[", + Q$ N2 U( ]7 p* O6 u: j$ Q6 ]
RowBox[{"51", ",", "2"}], "]"}], ",", 2 K1 j' v/ B- u+ h+ O# w7 ]7 l5 s% S
RowBox[{"CM", "[", ) z$ }, T6 B- n/ N6 L; R# c1 Y! h
RowBox[{"51", ",", "3"}], "]"}], ",",
$ F7 S; \+ k, P RowBox[{"CM", "[", 8 e, X' j$ V) I
RowBox[{"51", ",", "4"}], "]"}], ",",
) B# H' |9 h. l( e: ] RowBox[{"CM", "[",
L; U) o3 S4 _3 G RowBox[{"51", ",", "5"}], "]"}], ",", % V2 a7 K; h) R+ a/ b6 n, S$ f9 k
RowBox[{"CM", "[",
$ g* Y0 p$ n. g RowBox[{"51", ",", "6"}], "]"}], ",", 2 j* }1 p5 I& l4 F6 ?, I3 L9 r
RowBox[{"CM", "[",
" w1 P1 `9 }. ?" _- Z8 L C; S RowBox[{"51", ",", "7"}], "]"}], ",", 7 m& u$ {. V2 T% ]8 [" m! R
RowBox[{"CM", "[",
% D) K+ A1 d+ D5 y0 J+ n1 | RowBox[{"51", ",", "8"}], "]"}], ",",
* B: D# ~3 w9 N& S4 _' G5 u# i" ? RowBox[{"CM", "[", ! ^5 I3 Y W; w0 d
RowBox[{"51", ",", "9"}], "]"}]}], "}"}], ",",
, N7 X8 S+ w3 \! V* o RowBox[{"{",
# C2 Q+ Q; ]4 {/ K( I RowBox[{
' e* ], d" g# e" e0 }5 L' {9 L RowBox[{"CM", "[", & z1 ], m6 |. i6 \3 l
RowBox[{"52", ",", "1"}], "]"}], ",", & M8 M+ G. a6 j$ h* v
RowBox[{"CM", "[", 5 M) E: w8 s5 v k; r
RowBox[{"52", ",", "2"}], "]"}], ",", - G6 N. i( o' g2 [; }2 s; v i
RowBox[{"CM", "[", 2 m# S+ \6 }$ R6 B5 ~& Y$ f
RowBox[{"52", ",", "3"}], "]"}], ",",
$ L, l4 H2 W. X2 c RowBox[{"CM", "[",
; ], d2 j7 B" n( m( [6 T, y) P RowBox[{"52", ",", "4"}], "]"}], ",", # v4 k0 f/ F; {
RowBox[{"CM", "[", # \& M( P9 O1 Q2 w$ |- _' b
RowBox[{"52", ",", "5"}], "]"}], ",",
/ l% p) A' k5 S. p& Z( j+ n RowBox[{"CM", "[",
; }8 b. u3 l2 p1 L* d# e7 \# n% d RowBox[{"52", ",", "6"}], "]"}], ",", # C+ v. B& H0 r2 z- [: h- W: N+ ?
RowBox[{"CM", "[", + o K4 s [* N0 ]3 S
RowBox[{"52", ",", "7"}], "]"}], ",",
2 G, M+ Y7 m/ z8 f* ]$ w% V$ H) M RowBox[{"CM", "[",
% _! N! U5 i ~8 { RowBox[{"52", ",", "8"}], "]"}], ",", 0 D2 ]1 X$ A' v& j9 [
RowBox[{"CM", "[", 5 d2 m1 c4 @2 E6 c, w% n2 G
RowBox[{"52", ",", "9"}], "]"}]}], "}"}], ",",
, T' G9 b+ y- V RowBox[{"{",
0 w1 I! v, n- n d% U1 u RowBox[{
- M. l! a$ w, d3 M- N7 h RowBox[{"CM", "[",
: @1 b( g. Y: q. R, k RowBox[{"53", ",", "1"}], "]"}], ",", $ @1 i2 n) A: F( Q
RowBox[{"CM", "[",
% y( A* f4 {2 ~4 t- c RowBox[{"53", ",", "2"}], "]"}], ",", ; B) Q& ^5 \8 P6 A- L
RowBox[{"CM", "[",
* w9 B" s0 Y* B6 C3 h* \) E4 s+ w RowBox[{"53", ",", "3"}], "]"}], ",",
h3 f# |8 s1 d RowBox[{"CM", "[", ( q5 y/ A( P/ F7 e
RowBox[{"53", ",", "4"}], "]"}], ",",
' D. w4 f7 _2 T; A: u2 @, J$ {( a( e RowBox[{"CM", "[",
$ f. [2 l! i+ S$ ?/ J: S9 R) R RowBox[{"53", ",", "5"}], "]"}], ",",
' I3 w" N& L8 A2 S8 K RowBox[{"CM", "[",
r% l! b' q6 t/ F5 j4 M RowBox[{"53", ",", "6"}], "]"}], ",",
5 L. `, \8 l; W' J b% q; g) g RowBox[{"CM", "[",
: W7 c* H1 W$ h9 B* ]$ p RowBox[{"53", ",", "7"}], "]"}], ",", $ o+ [2 b! S' O' i# H
RowBox[{"CM", "[",
2 H/ ?* n: P5 z0 ` RowBox[{"53", ",", "8"}], "]"}], ",",
) j) Z9 a$ G7 W r2 t RowBox[{"CM", "[",
5 j& A* C& Q, j) U RowBox[{"53", ",", "9"}], "]"}]}], "}"}], ",", ! [( p7 I& w% v
RowBox[{"{",
. U9 j& t0 C6 X6 h0 J& F! ?! \ RowBox[{: u+ y& o" M. w9 c
RowBox[{"CM", "[", 7 \7 _. ]" e( B* f. J
RowBox[{"54", ",", "1"}], "]"}], ",", ' E4 m9 O5 |/ y& M! u' d
RowBox[{"CM", "[",
; i* ^4 M5 R2 R% ~! h4 e& [- k RowBox[{"54", ",", "2"}], "]"}], ",",
! j6 o* B" [; T; a0 E$ ] RowBox[{"CM", "[", 0 r/ [9 M8 ~) [8 \5 Z
RowBox[{"54", ",", "3"}], "]"}], ",",
3 Q3 y7 ^+ u3 @& }& t; | RowBox[{"CM", "[",
5 \! d' O6 z% Q$ v! K RowBox[{"54", ",", "4"}], "]"}], ",", @6 T5 x, z& X: y
RowBox[{"CM", "[",
$ q) e4 p4 M( l/ r RowBox[{"54", ",", "5"}], "]"}], ",", / s& b A2 f: F" r. v* M6 J3 r
RowBox[{"CM", "[", 8 D, S5 P3 V; B4 R
RowBox[{"54", ",", "6"}], "]"}], ",",
( \$ u x! K: r. j( _ @ RowBox[{"CM", "[", 0 Q( `: q; p2 O0 [3 ?$ p
RowBox[{"54", ",", "7"}], "]"}], ",", ) r7 r1 ?( |: J
RowBox[{"CM", "[", $ k6 H; j: J- A4 f4 o! T
RowBox[{"54", ",", "8"}], "]"}], ",",
* o' l4 z% |: z5 R$ T6 N7 u; W RowBox[{"CM", "[",
3 B1 C4 K C/ q' Y* X RowBox[{"54", ",", "9"}], "]"}]}], "}"}], ",",
5 s7 f$ m* I9 z$ Q3 e& h( A RowBox[{"{",
' P2 l. g) @ ^! j) n& T RowBox[{( n& F% `. j; _2 Q2 w
RowBox[{"CM", "[", - t4 k: V% U% D! c1 Z8 W
RowBox[{"55", ",", "1"}], "]"}], ",", 7 L' R$ I0 e* W9 g2 \" x8 a
RowBox[{"CM", "[", 3 B: s. `2 h0 V' s$ Q: u+ y
RowBox[{"55", ",", "2"}], "]"}], ",", ) w* C6 k, A" o4 y- R# Q# v
RowBox[{"CM", "[", % f: I. A* M6 Z7 [2 j& ~' p
RowBox[{"55", ",", "3"}], "]"}], ",", % t. Y3 h y" a3 ^3 t& c
RowBox[{"CM", "[",
" r$ c. L4 u& Y/ g RowBox[{"55", ",", "4"}], "]"}], ",",
( p3 _4 F1 c7 F# x, _ RowBox[{"CM", "[", . b5 @: c0 ^- c
RowBox[{"55", ",", "5"}], "]"}], ",", : X4 p- D q5 e1 V2 n: I ?2 m% g
RowBox[{"CM", "[", 8 `4 n3 R4 K1 \3 l$ Y7 Z! m
RowBox[{"55", ",", "6"}], "]"}], ",",
/ g+ Z4 T, U/ h7 x& F& }$ m$ P* L RowBox[{"CM", "[", # }0 Z! g, X; n6 H4 w
RowBox[{"55", ",", "7"}], "]"}], ",", ! C4 U( ?0 N- s; `: V) S2 w
RowBox[{"CM", "[",
5 q9 u6 s2 ^4 Q- F RowBox[{"55", ",", "8"}], "]"}], ",", - q2 r5 @- r% g R$ }1 k! D9 @, x
RowBox[{"CM", "[",
- K/ M6 I: \+ r- o" G! O$ ]4 g5 t RowBox[{"55", ",", "9"}], "]"}]}], "}"}], ",",
! [& J& P$ ]) V4 h' e9 ]* u" U: R4 N RowBox[{"{", & r- R' h- w1 A+ h/ D
RowBox[{
8 ?1 C% T7 f/ v0 O' K; \) x* P RowBox[{"CM", "[", ; Y5 V5 v6 l$ A+ I7 P% T: a
RowBox[{"56", ",", "1"}], "]"}], ",", & w% A5 `: k4 t$ E8 ?4 Y
RowBox[{"CM", "[",
4 q: U. n( s! c" j* i6 V+ g RowBox[{"56", ",", "2"}], "]"}], ",", ! `$ P, H$ N, I0 K
RowBox[{"CM", "[", # H: w& Y T& _/ ?4 c, c
RowBox[{"56", ",", "3"}], "]"}], ",",
8 r5 u' T! v" P! K RowBox[{"CM", "[", & M. [2 f( F- E) H& e* }
RowBox[{"56", ",", "4"}], "]"}], ",",
1 g+ q1 Q& @1 X$ b0 I RowBox[{"CM", "[", : y+ K. s; K- a6 v5 k* t; O
RowBox[{"56", ",", "5"}], "]"}], ",",
3 B+ \1 \1 r& P% `' ` RowBox[{"CM", "[",
9 [. i9 ~& ]+ Z9 b4 V RowBox[{"56", ",", "6"}], "]"}], ",", " n. U8 R5 ^, s
RowBox[{"CM", "[",
6 i( K: ^, T# I( _7 V! S. T RowBox[{"56", ",", "7"}], "]"}], ",",
5 a+ G3 i& y) E RowBox[{"CM", "[",
% ~* h4 y$ d5 ] @3 s) \& c RowBox[{"56", ",", "8"}], "]"}], ",", ' J) s2 x. j+ U5 p; d/ _2 D( d. p
RowBox[{"CM", "[", 8 V+ q* b! W% R: O* e6 M( @" s* q
RowBox[{"56", ",", "9"}], "]"}]}], "}"}], ",",
8 O( `; w5 J, o* Q5 s# k8 w RowBox[{"{", 8 m4 ]% \) e0 y5 b8 P* j& g" c, X* \
RowBox[{6 u! e9 I' F5 t3 ]! G
RowBox[{"CM", "[",
( U# h: \0 p+ a RowBox[{"57", ",", "1"}], "]"}], ",", 5 i* p$ h4 \+ y2 L' r
RowBox[{"CM", "[", 1 b. {# l5 y& P2 e% H! K3 a3 T
RowBox[{"57", ",", "2"}], "]"}], ",",
( h5 c' i+ T/ P7 R# X+ o RowBox[{"CM", "[",
' T. X# ^3 ?. k# F' q4 s RowBox[{"57", ",", "3"}], "]"}], ",", - Z' V! A9 e! u, ^
RowBox[{"CM", "[",
! w O" Y1 J" Q5 s+ D# y RowBox[{"57", ",", "4"}], "]"}], ",", % j( d4 G* s) D) }" w
RowBox[{"CM", "[",
}' j* j9 u; `6 g7 m8 C6 _ RowBox[{"57", ",", "5"}], "]"}], ",",
: K0 Y* ?% A; H' N8 g- A: U RowBox[{"CM", "[", ! S0 D* v8 i/ Z% d" |$ j
RowBox[{"57", ",", "6"}], "]"}], ",", y) e2 v$ ~+ y* s, j) H
RowBox[{"CM", "[",
9 G: s2 t, R& q9 ~/ [( O RowBox[{"57", ",", "7"}], "]"}], ",",
4 U3 R3 R5 J8 g% ~/ O- c RowBox[{"CM", "[",
- _5 L0 U W& n3 l* s0 P1 }8 x RowBox[{"57", ",", "8"}], "]"}], ",", 1 j+ [+ F; t! m7 j6 d% D" @
RowBox[{"CM", "[", 2 _9 E4 G6 e8 l
RowBox[{"57", ",", "9"}], "]"}]}], "}"}], ",", 1 f# t0 f( O: P* D+ p+ n7 v
RowBox[{"{", 7 w2 X4 y* y1 i4 n/ L: q
RowBox[{
2 ^0 s" N) m* s) j; O7 L RowBox[{"CM", "[", ' P: F/ y# e/ I5 G3 w' P2 T
RowBox[{"58", ",", "1"}], "]"}], ",", / k/ P* { g9 d( @' H, h4 I
RowBox[{"CM", "[", * C8 R: i# P0 ~; b# h& b& T
RowBox[{"58", ",", "2"}], "]"}], ",",
! a# {4 ^4 p# ^ K& j6 _8 P RowBox[{"CM", "[",
3 P6 ~8 ~* k2 e$ i1 f7 W! C6 ~ RowBox[{"58", ",", "3"}], "]"}], ",", & u* P" J1 v# U- _3 q# [8 e
RowBox[{"CM", "[",
% S5 o7 `% o! }8 P7 o" ] RowBox[{"58", ",", "4"}], "]"}], ",",
+ d/ f( U) F4 s RowBox[{"CM", "[", 4 v; ]2 L. B/ d2 u
RowBox[{"58", ",", "5"}], "]"}], ",", - W6 f6 m/ h; }0 U, t% T' ^1 j
RowBox[{"CM", "[", , y4 O9 M9 Z4 [% a4 W) Y- S, ]
RowBox[{"58", ",", "6"}], "]"}], ",", A4 H2 o/ U7 W) a7 E
RowBox[{"CM", "[", 0 O: u- j: z: j/ H8 q3 k
RowBox[{"58", ",", "7"}], "]"}], ",", 0 @. ?; }* n$ i+ f8 k% \5 f- _
RowBox[{"CM", "[", 4 s, v4 t R4 d F* u# |( l
RowBox[{"58", ",", "8"}], "]"}], ",",
1 ^8 a+ J" n* M* p RowBox[{"CM", "[", 6 h8 f$ K+ `# H: `1 `9 k
RowBox[{"58", ",", "9"}], "]"}]}], "}"}], ",",
$ t; ~/ k& {- H9 V3 m$ j8 m, p! r) d RowBox[{"{", $ ?% x4 R2 `+ |6 S5 ?4 S
RowBox[{
Z2 C6 D- A% q5 q RowBox[{"CM", "[",
* x; G$ k: g3 U, ^# ` RowBox[{"59", ",", "1"}], "]"}], ",", ) m3 N+ q+ x7 ~9 K- |
RowBox[{"CM", "[", % `- |: V( t! Q8 ^% i# D
RowBox[{"59", ",", "2"}], "]"}], ",",
, D/ |1 s3 y$ X7 a5 t8 H5 P" G/ ~4 Z RowBox[{"CM", "[",
5 E! o. W ^# R6 A { RowBox[{"59", ",", "3"}], "]"}], ",", : W& L+ i' V: ^
RowBox[{"CM", "[",
$ s9 I2 ]1 C, V) z/ a! d+ n" i RowBox[{"59", ",", "4"}], "]"}], ",", 7 [7 R7 i( a5 }$ {* v, a0 L
RowBox[{"CM", "[", 0 H- e6 ]( O& ]* X' D! Z' c
RowBox[{"59", ",", "5"}], "]"}], ",", # O: t# W! H* G% S, j4 c6 u- r
RowBox[{"CM", "[",
8 A% m7 e# B) J* v" q RowBox[{"59", ",", "6"}], "]"}], ",", ; e- N& V% E' G& m6 z
RowBox[{"CM", "[",
; n! e/ g/ b7 ^3 f/ _ RowBox[{"59", ",", "7"}], "]"}], ",", 9 d3 W. k% n0 W4 N" `
RowBox[{"CM", "[",
" z+ [, f2 N3 K7 u6 k6 `: L RowBox[{"59", ",", "8"}], "]"}], ",",
$ ^3 x9 Z7 ^3 Q/ ]' U0 ? RowBox[{"CM", "[",
$ X1 {. l! t9 W* }: C# w3 _/ a RowBox[{"59", ",", "9"}], "]"}]}], "}"}], ",",
7 p6 `) b: e" h" X+ s' h3 V RowBox[{"{",
, V( S% ?2 R) V; s8 j RowBox[{ ^. x+ I4 C) W0 D
RowBox[{"CM", "[",
: i3 W' t0 s b, i) E0 a7 K# D RowBox[{"60", ",", "1"}], "]"}], ",", / _' x2 p7 ]4 _! N
RowBox[{"CM", "[", ; l$ F& U0 V: ~5 E9 b
RowBox[{"60", ",", "2"}], "]"}], ",",
* `2 b& C( R, z, P) V" F/ u ` RowBox[{"CM", "[", / h0 k* T q; \! e0 o1 Q
RowBox[{"60", ",", "3"}], "]"}], ",",
* }6 P2 k2 D$ T# J/ ]( _1 ` RowBox[{"CM", "[", 5 F! P0 w) t; j h) z: Z8 G
RowBox[{"60", ",", "4"}], "]"}], ",", & w1 _. w* _+ \5 I- a
RowBox[{"CM", "[",
3 ^( ?6 e' _1 S7 L* Z1 [; b RowBox[{"60", ",", "5"}], "]"}], ",", " {, }5 i5 E! D, a3 I/ f, R+ Y
RowBox[{"CM", "[",
" n/ F1 P7 @5 @- B' O RowBox[{"60", ",", "6"}], "]"}], ",",
% F$ r+ X0 y0 k6 i7 ~* y; ^$ C+ e RowBox[{"CM", "[", 7 U1 w9 U \2 \0 {
RowBox[{"60", ",", "7"}], "]"}], ",", ) }! f& ]8 R* K) G5 r# B0 u
RowBox[{"CM", "[",
+ ]. m5 A4 h' A; g- `. \ RowBox[{"60", ",", "8"}], "]"}], ",", ) E' R7 c2 O) T1 s4 W
RowBox[{"CM", "[",
% ]9 k9 Y9 A1 ~8 z+ I6 D( h9 s RowBox[{"60", ",", "9"}], "]"}]}], "}"}], ",", / @$ i, [: O6 U2 b
RowBox[{"{",
7 Y" {9 f# a9 e( |* M RowBox[{
" z/ o5 t8 ?0 C+ s- W6 w RowBox[{"CM", "[",
5 o+ Z" ^' z. O/ q. v3 Z7 h2 G5 O RowBox[{"61", ",", "1"}], "]"}], ",", 3 s/ X7 S2 x) v' I
RowBox[{"CM", "[", % _$ R9 o% {, |; X
RowBox[{"61", ",", "2"}], "]"}], ",", * }) K# u) l# f8 [8 g8 l8 l
RowBox[{"CM", "[", 2 O$ n/ U5 H2 a/ k0 \* ? W
RowBox[{"61", ",", "3"}], "]"}], ",",
9 A" u$ i& v1 g) N RowBox[{"CM", "[", ! o* q( h. D7 q
RowBox[{"61", ",", "4"}], "]"}], ",",
) d0 K1 D9 H! _: a RowBox[{"CM", "[",
$ J; a- X# N9 v* Z3 N RowBox[{"61", ",", "5"}], "]"}], ",", # ?. P9 h1 {* X
RowBox[{"CM", "[",
% Z+ M0 Q' [+ I" e6 y O p RowBox[{"61", ",", "6"}], "]"}], ",", % x* C# O- W% R
RowBox[{"CM", "[",
" N8 S# ~4 T' l+ A- N RowBox[{"61", ",", "7"}], "]"}], ",",
/ B& | i3 F* @4 S' c( y' s RowBox[{"CM", "[",
- a6 |& }3 S; I7 U RowBox[{"61", ",", "8"}], "]"}], ",", 0 I2 A$ \8 {6 P4 B
RowBox[{"CM", "[",
( n& a( N7 E( V$ z: `; o% Z* z" ? RowBox[{"61", ",", "9"}], "]"}]}], "}"}], ",",
, |; C. O! [: l! I$ U7 B/ ] RowBox[{"{",
0 k$ h; B7 Y1 C RowBox[{' \0 j* H6 J5 u0 W1 A e3 @% E
RowBox[{"CM", "[",
1 X7 \2 K( s& u0 `, J! |( h8 ]4 m RowBox[{"62", ",", "1"}], "]"}], ",",
1 d9 a/ L9 c+ f RowBox[{"CM", "[", # n& o$ [. t# @
RowBox[{"62", ",", "2"}], "]"}], ",",
& a. I5 l% P8 i/ d7 h; v RowBox[{"CM", "[", : C8 V4 v: C5 n1 {5 f
RowBox[{"62", ",", "3"}], "]"}], ",", U) f# v+ \- P( Y- h
RowBox[{"CM", "[", & W2 [& h* y% @3 g
RowBox[{"62", ",", "4"}], "]"}], ",", 0 d5 l' N% F2 {2 T/ P! }2 s
RowBox[{"CM", "[",
& a: _+ h) }9 g5 `2 _% d t RowBox[{"62", ",", "5"}], "]"}], ",", : h0 I \) S4 p( B
RowBox[{"CM", "[", . B( n! o7 p; D
RowBox[{"62", ",", "6"}], "]"}], ",", , r. W$ c) ~. d* E }. g' e, Y% B0 l
RowBox[{"CM", "[",
4 c$ `3 L% c* n% K2 p RowBox[{"62", ",", "7"}], "]"}], ",", 5 F0 r, f1 v- \- {+ |% O3 D8 K
RowBox[{"CM", "[", 9 ~3 V) o0 o1 |8 k
RowBox[{"62", ",", "8"}], "]"}], ",",
# }0 H3 U2 }" H0 r RowBox[{"CM", "[",
: d4 N" U8 @- u3 C4 E RowBox[{"62", ",", "9"}], "]"}]}], "}"}], ",", 8 V7 f. _9 C% q, s: _
RowBox[{"{",
. b6 X2 _4 I8 v3 M RowBox[{
; m/ Z1 T; _/ v! n RowBox[{"CM", "[",
9 _8 D. W9 }& L A( `+ J5 I RowBox[{"63", ",", "1"}], "]"}], ",", : c9 p) A, n j R4 T$ y1 k
RowBox[{"CM", "[",
9 y& v$ w, B9 S7 k, g: w! | RowBox[{"63", ",", "2"}], "]"}], ",",
+ d; G/ @* S% A& s l' b2 h4 {2 \ RowBox[{"CM", "[", 5 R; X+ ^7 d5 O4 e4 e k
RowBox[{"63", ",", "3"}], "]"}], ",", 5 Z0 B+ O1 \) r3 M# P8 Q7 {' {
RowBox[{"CM", "[", + }, @+ w- ^9 P
RowBox[{"63", ",", "4"}], "]"}], ",",
9 H) _5 a7 h( G) r7 v RowBox[{"CM", "[", X& M8 }& v9 @8 d; o
RowBox[{"63", ",", "5"}], "]"}], ",",
j7 p& S: y. U5 J RowBox[{"CM", "[",
# q$ t6 X& i0 W RowBox[{"63", ",", "6"}], "]"}], ",",
) c* {+ k/ A0 |" E6 j: y$ f RowBox[{"CM", "[",
; O2 T1 {, Q& k& J% J" T RowBox[{"63", ",", "7"}], "]"}], ",",
0 t Z9 |4 E) A RowBox[{"CM", "[", * o% n) z; o) J3 }" T
RowBox[{"63", ",", "8"}], "]"}], ",", 0 R& k d% i& z5 z6 w, u
RowBox[{"CM", "[",
. F4 c B8 T" ~% Z RowBox[{"63", ",", "9"}], "]"}]}], "}"}], ",",
% F% O, g7 a- k8 v RowBox[{"{", & U1 y3 b8 [* R8 y( q3 q2 l) k. I
RowBox[{. ?( f) V4 j) _2 W# H
RowBox[{"CM", "[",
7 D" e! v; P9 G" h# w+ O: _ RowBox[{"64", ",", "1"}], "]"}], ",",
9 q G& U3 Y( R4 \9 M: V RowBox[{"CM", "[", * J. C F( m- J4 w
RowBox[{"64", ",", "2"}], "]"}], ",", , r- I. g5 a8 e
RowBox[{"CM", "[", + S4 P/ _4 o$ o6 h
RowBox[{"64", ",", "3"}], "]"}], ",", 2 Z3 l: I) O3 v4 K9 R( O* S
RowBox[{"CM", "[", $ H2 f7 E- ?# g
RowBox[{"64", ",", "4"}], "]"}], ",", * r- K' M0 w( K: I& A( c
RowBox[{"CM", "[", L9 I [, C% O _
RowBox[{"64", ",", "5"}], "]"}], ",", 3 S* D# K4 P4 M, Y. T
RowBox[{"CM", "[",
5 v8 S/ t0 U# _. c RowBox[{"64", ",", "6"}], "]"}], ",",
$ p" y4 F" \0 }. K. v W2 p/ A# T: l RowBox[{"CM", "[",
1 `2 x- H" {( v6 a RowBox[{"64", ",", "7"}], "]"}], ",",
; N' v4 g7 W, c" b, t7 _5 A5 A, w6 A RowBox[{"CM", "[",
6 K1 l; o( R* R; O) c RowBox[{"64", ",", "8"}], "]"}], ",",
- K- ^/ v a, f- { A RowBox[{"CM", "[",
9 @+ k& t' c% z( W RowBox[{"64", ",", "9"}], "]"}]}], "}"}], ",",
5 ~/ Y8 H; J* b1 q& F, b RowBox[{"{",
5 G2 I: ^) _9 t3 P7 ^$ [% E* } RowBox[{4 V8 E. B0 |2 R# u' m1 e8 k" L
RowBox[{"CM", "[", * J6 x3 i8 d" t# O7 U% ^ ^
RowBox[{"65", ",", "1"}], "]"}], ",", : j4 N/ f" Y ]5 d4 y' y9 ]+ A! L: ]
RowBox[{"CM", "[", ( E F* N j1 I! |. s1 L
RowBox[{"65", ",", "2"}], "]"}], ",",
( I b5 r: W5 y z: Y Q4 H' x RowBox[{"CM", "[", 2 a B# O% ~7 U9 l. w' e
RowBox[{"65", ",", "3"}], "]"}], ",",
* ] { t, J$ {: n9 N! H0 W RowBox[{"CM", "[",
2 [ E: T- \& {$ P% r RowBox[{"65", ",", "4"}], "]"}], ",",
' v: s# l( W( R4 n$ P- U& j8 F RowBox[{"CM", "[", 0 P. ~ K8 P# ~& |2 K% F ~. c8 b
RowBox[{"65", ",", "5"}], "]"}], ",",
9 a1 i9 q2 B V, M* Z RowBox[{"CM", "[", , P! [3 X' P' D, q2 P1 L! Y) T
RowBox[{"65", ",", "6"}], "]"}], ",",
( B, `. }, g# o' t( d RowBox[{"CM", "[", u' i& u5 r; G+ d) K
RowBox[{"65", ",", "7"}], "]"}], ",",
, Q# N( r/ B4 K1 E' t3 A4 A& d) P RowBox[{"CM", "[",
9 {8 Y# Q) V! r2 v RowBox[{"65", ",", "8"}], "]"}], ",",
$ i; q1 S, l2 F4 N RowBox[{"CM", "[", 5 T' C: P/ A# g
RowBox[{"65", ",", "9"}], "]"}]}], "}"}], ",", 9 a5 z/ J8 E/ \+ H
RowBox[{"{", % Z/ u# V) @. U/ }: A
RowBox[{
% {; @ i7 |, P+ C1 H' R4 \7 w5 i# F" W RowBox[{"CM", "[",
; {) i. P/ ^+ y" T( _8 g! {4 f RowBox[{"66", ",", "1"}], "]"}], ",", ( q8 ]# M% v9 A* l% h$ d
RowBox[{"CM", "[",
8 p; ~9 [- c% z& d5 U6 ^ RowBox[{"66", ",", "2"}], "]"}], ",",
' |8 L" |6 v3 Y$ K" c. D" { Q RowBox[{"CM", "[",
( K- V% M4 D/ R: N3 g. q RowBox[{"66", ",", "3"}], "]"}], ",",
4 {0 o2 V L x) k/ Q: B. p' w4 s# Q RowBox[{"CM", "[", 0 ]2 s4 y2 O( O* a. E, H
RowBox[{"66", ",", "4"}], "]"}], ",",
+ B2 |2 O4 A" k! I RowBox[{"CM", "[",
- l/ o4 j+ A% H0 o) z8 j RowBox[{"66", ",", "5"}], "]"}], ",", 3 w/ ?% B. c: u2 j$ v+ o, o; F% ]
RowBox[{"CM", "[",
W1 s1 Q0 s$ C N- R RowBox[{"66", ",", "6"}], "]"}], ",", 2 G1 T1 E' z, V0 U
RowBox[{"CM", "[",
6 r2 v$ }8 @) z& d" C! C RowBox[{"66", ",", "7"}], "]"}], ",", ( D' ~% o) _' M$ b5 C
RowBox[{"CM", "[", - S* N# K; V) j9 ~
RowBox[{"66", ",", "8"}], "]"}], ",", ) Q8 P3 S/ I. j
RowBox[{"CM", "[", * `, y7 V9 k% c1 ^% |0 r
RowBox[{"66", ",", "9"}], "]"}]}], "}"}], ",", 9 [7 @! h, y- B4 v H
RowBox[{"{", # `5 C9 ~6 {* A# ^- N
RowBox[{
, \. K1 m; y" m( p/ J. z" ~ RowBox[{"CM", "[", : f! ~# ^$ [3 m, e
RowBox[{"67", ",", "1"}], "]"}], ",", $ @5 t8 l. j+ y8 ?' H5 w" Y
RowBox[{"CM", "[", , a- ^" m' ]/ F, M3 h K0 N
RowBox[{"67", ",", "2"}], "]"}], ",", ( C2 K; T i" z+ z+ m4 j" g& a4 O- r
RowBox[{"CM", "[",
8 N6 O! K" N3 e# N RowBox[{"67", ",", "3"}], "]"}], ",",
2 d; f. x# T1 S- n: T. p1 k: \ RowBox[{"CM", "[",
' U/ ?9 y; M7 q2 g RowBox[{"67", ",", "4"}], "]"}], ",", 1 U& D3 P _0 A/ i
RowBox[{"CM", "[", % W1 S o U7 r6 ^, `5 L! t; d
RowBox[{"67", ",", "5"}], "]"}], ",",
, I/ w9 r0 a: `. g/ O* h9 G3 Y RowBox[{"CM", "[", ! d+ N+ s9 ]3 T
RowBox[{"67", ",", "6"}], "]"}], ",", 8 b* _; n) h4 o" {# v
RowBox[{"CM", "[",
) l) K2 x) r1 k' u) c/ F RowBox[{"67", ",", "7"}], "]"}], ",", o# k. s1 R, e( I( h
RowBox[{"CM", "[", : c9 ~# d+ R$ x3 T& L6 N
RowBox[{"67", ",", "8"}], "]"}], ",", A* ~. T0 {/ E! }+ b
RowBox[{"CM", "[", 4 G7 v# f: I2 l0 r b; M1 S
RowBox[{"67", ",", "9"}], "]"}]}], "}"}], ",",
0 r! Z8 [9 I7 n# q5 J8 E RowBox[{"{", 5 s& y2 q- @6 l/ D0 {
RowBox[{: D3 @$ J. m: A( @4 [4 b% }
RowBox[{"CM", "[",
8 O% F" v8 d% ~% i RowBox[{"68", ",", "1"}], "]"}], ",", " c% A4 H# s1 I) H
RowBox[{"CM", "[", 1 @5 j! y; G+ d
RowBox[{"68", ",", "2"}], "]"}], ",", ; }+ u1 W6 ~. }$ L
RowBox[{"CM", "[", * }2 s0 _* K0 ~6 W9 U
RowBox[{"68", ",", "3"}], "]"}], ",",
# L1 d2 k$ x- g: a6 e; Y RowBox[{"CM", "[",
; G+ G0 C$ P( h, e6 F RowBox[{"68", ",", "4"}], "]"}], ",",
4 K' x) V: |3 H. Q% Q5 ~ RowBox[{"CM", "[",
+ j# ]7 y; @, X A; x+ Y2 H7 ~, t5 l RowBox[{"68", ",", "5"}], "]"}], ",",
3 K3 T( r. J/ R9 \ RowBox[{"CM", "[", ! q. ^: v5 P" D5 l5 D2 E. p9 q% v$ k
RowBox[{"68", ",", "6"}], "]"}], ",", $ A: Q5 \# M) D3 D2 s
RowBox[{"CM", "[", $ Q0 m4 S j( f7 ` R
RowBox[{"68", ",", "7"}], "]"}], ",",
\" O5 ?* @5 @4 |2 |: U) Z6 S RowBox[{"CM", "[", - {# @6 }/ I3 a+ Z# w* S
RowBox[{"68", ",", "8"}], "]"}], ",", 0 B% o& g6 }# r9 d& Q2 Y3 n
RowBox[{"CM", "[", 7 m' O) O( q2 x, X
RowBox[{"68", ",", "9"}], "]"}]}], "}"}], ",", + {! S; A/ _2 Q% N( E( }
RowBox[{"{", , ^; P% Z0 b- n5 z$ u5 a+ G
RowBox[{
3 [1 N0 n+ @) h/ }8 [( c8 w RowBox[{"CM", "[",
- Z4 a% g @* I, h RowBox[{"69", ",", "1"}], "]"}], ",", A+ s6 I* E# x; a$ U9 [2 }. @' M, p
RowBox[{"CM", "[",
+ f* v8 u/ n' a3 J _5 P$ a/ n# P RowBox[{"69", ",", "2"}], "]"}], ",",
N' s; M ^& I) K" {- b RowBox[{"CM", "[",
0 J2 \3 s$ G2 S& R2 _) S+ W+ F6 _' X RowBox[{"69", ",", "3"}], "]"}], ",", S4 C* ]& U6 z% I7 S7 `
RowBox[{"CM", "[",
3 d/ Z$ p; i3 y9 l* v RowBox[{"69", ",", "4"}], "]"}], ",",
+ C. d1 D5 _. q) b" Y- n+ j' y RowBox[{"CM", "[",
2 e- k F+ l2 w RowBox[{"69", ",", "5"}], "]"}], ",", / T }$ r" n: i, }
RowBox[{"CM", "[", 1 p; R5 P/ _9 Z9 v
RowBox[{"69", ",", "6"}], "]"}], ",",
9 y2 Y( F2 b1 A) U RowBox[{"CM", "[", , l9 O, ~* ]* C3 u
RowBox[{"69", ",", "7"}], "]"}], ",",
# o; U( H+ ~ \5 A0 \& G5 | RowBox[{"CM", "[", ; G, E6 n# R& W+ {
RowBox[{"69", ",", "8"}], "]"}], ",", 7 W* z- r3 m( A, z, Y& V- `
RowBox[{"CM", "[", - c5 D0 L3 |/ d+ c T+ z
RowBox[{"69", ",", "9"}], "]"}]}], "}"}], ",", & y5 l7 a/ D" X5 C4 Z
RowBox[{"{",
/ v4 B! z( G5 v9 @6 H& _' ] RowBox[{
" T2 J4 g. `7 L+ z% h RowBox[{"CM", "[", 1 F4 x8 O2 F6 ^# D! i Y4 g+ c
RowBox[{"70", ",", "1"}], "]"}], ",",
! o/ s, l. }( K& z `7 I RowBox[{"CM", "[", & p1 J8 E! z9 c
RowBox[{"70", ",", "2"}], "]"}], ",",
: Q9 N: d' |% ?1 f1 T RowBox[{"CM", "[",
, {0 G k5 ~1 u( s RowBox[{"70", ",", "3"}], "]"}], ",", 5 R! K6 x8 a6 ~; R% e) e
RowBox[{"CM", "[", . m3 T: k* r2 w
RowBox[{"70", ",", "4"}], "]"}], ",", ! A& q2 d# y9 C7 `( t( ]; u
RowBox[{"CM", "[",
v" i& T- T$ A Z A+ M7 G6 T5 R RowBox[{"70", ",", "5"}], "]"}], ",", , C; `/ o8 A0 p
RowBox[{"CM", "[",
2 e! v I% _) p3 Y; t' ` RowBox[{"70", ",", "6"}], "]"}], ",",
( A, E m8 M/ L! L RowBox[{"CM", "[", ' C' s+ |3 X# r& l n
RowBox[{"70", ",", "7"}], "]"}], ",",
0 V' A1 ]- Q, D" L% O; f RowBox[{"CM", "[",
2 N2 L: x/ f" H- w2 H, X RowBox[{"70", ",", "8"}], "]"}], ",",
& K1 \7 u. s2 g% c RowBox[{"CM", "[",
3 k. D) T7 F, c8 W2 Z) m: m RowBox[{"70", ",", "9"}], "]"}]}], "}"}], ",", 1 y: v9 q) U) `4 D2 W
RowBox[{"{",
& P$ { \4 h; p2 V$ z- m RowBox[{1 D# k4 k( d* V
RowBox[{"CM", "[",
8 J. C: H" H# N2 c5 S9 x, g RowBox[{"71", ",", "1"}], "]"}], ",", ; `% }+ @4 G- ?; B- ]. d
RowBox[{"CM", "[",
% d7 ?8 Y* e" _& u) e2 { RowBox[{"71", ",", "2"}], "]"}], ",",
% P. C" M: `0 I/ S/ m! P- B RowBox[{"CM", "[",
% }9 ]# D6 x* _7 S RowBox[{"71", ",", "3"}], "]"}], ",",
2 c- B3 m2 m% f8 S# E4 l. H RowBox[{"CM", "[", z+ P% H" p' W
RowBox[{"71", ",", "4"}], "]"}], ",", 1 @8 M; ?& [# h3 B8 p8 N, J4 {
RowBox[{"CM", "[",
" X6 A0 L- W' {) N RowBox[{"71", ",", "5"}], "]"}], ",",
1 ]8 o( ^5 C) }- A, m- t RowBox[{"CM", "[", ) q" V2 h. s0 h" {) d# X/ i
RowBox[{"71", ",", "6"}], "]"}], ",",
7 C' j' q3 V+ c2 p RowBox[{"CM", "[", ( l4 Y8 {" t3 k( C
RowBox[{"71", ",", "7"}], "]"}], ",", 4 q# r: J* F) M! Q8 Y
RowBox[{"CM", "[", 1 x! V' C3 q! {
RowBox[{"71", ",", "8"}], "]"}], ",",
) X- y# s: {5 _$ j3 V+ Y RowBox[{"CM", "[",
M. \2 R+ ~4 @5 @( K: Z RowBox[{"71", ",", "9"}], "]"}]}], "}"}], ",",
+ K" j/ c6 x, \) _2 W1 r RowBox[{"{",
: F% z1 w/ C+ Q) w( t) ] RowBox[{1 e8 y& k; U% ]9 M2 M
RowBox[{"CM", "[", 0 m+ H4 r& F+ x+ ]
RowBox[{"72", ",", "1"}], "]"}], ",",
' _2 X* ]; D7 b8 A' K, o* P2 c RowBox[{"CM", "[", % b1 L3 g8 n7 E( F( p* r: q* K
RowBox[{"72", ",", "2"}], "]"}], ",", 7 q0 j6 r- D6 B0 o
RowBox[{"CM", "[",
$ U# H0 `6 L. I& K4 b) F5 d RowBox[{"72", ",", "3"}], "]"}], ",",
$ Y1 Q# d. R8 }" B# \ RowBox[{"CM", "[", ; }; B h9 u4 M! n
RowBox[{"72", ",", "4"}], "]"}], ",",
4 T# U5 l; n7 Y: f3 ?9 l# z RowBox[{"CM", "[",
, G7 s: k- s, n. A RowBox[{"72", ",", "5"}], "]"}], ",", 5 c# l2 d( l% G: |/ z
RowBox[{"CM", "[", , h3 n# w! p q
RowBox[{"72", ",", "6"}], "]"}], ",",
# X( c# W' e4 X# h. G! O; | RowBox[{"CM", "[",
' L; j$ a. Y# } RowBox[{"72", ",", "7"}], "]"}], ",", - ~* r9 I$ u6 j
RowBox[{"CM", "[", + H* F* u0 i4 e0 K) { R7 h3 ?' L/ |
RowBox[{"72", ",", "8"}], "]"}], ",", $ G+ A6 J5 b& p) ?
RowBox[{"CM", "[",
6 Q; L: _3 v$ ?" D) L1 r0 a RowBox[{"72", ",", "9"}], "]"}]}], "}"}], ",", : @6 V+ A, T& h# m4 J$ b
RowBox[{"{", ( p7 l* ], ]: u: @7 O) k6 x/ p3 @* ]
RowBox[{
9 j+ t V5 c* `* [ RowBox[{"CM", "[",
' [% N: C; n& D7 H1 B" P7 Y) T RowBox[{"73", ",", "1"}], "]"}], ",", $ Y0 |4 D h' @2 W& g
RowBox[{"CM", "[",
# f$ X. q/ r; H$ Q: d; K RowBox[{"73", ",", "2"}], "]"}], ",",
& i( J% ]. b+ P RowBox[{"CM", "[", ) P6 o7 ]* m9 H, ^2 P
RowBox[{"73", ",", "3"}], "]"}], ",",
% r3 }1 V# f+ y# m: B RowBox[{"CM", "[", # X) F- N: C$ A0 d9 s3 x
RowBox[{"73", ",", "4"}], "]"}], ",",
9 B9 S2 K' H. x5 Z RowBox[{"CM", "[", # g" r" ?3 j2 i+ m/ H8 v9 N
RowBox[{"73", ",", "5"}], "]"}], ",",
; Z4 y3 p1 I ? RowBox[{"CM", "[", 5 c* L+ _" k) w; w% F0 L) q# A& q6 N
RowBox[{"73", ",", "6"}], "]"}], ",", 4 L* }& i, F$ {) A/ ^! _- u1 s
RowBox[{"CM", "[",
# ]0 ?8 ~ Y3 n RowBox[{"73", ",", "7"}], "]"}], ",",
4 @ L* N! H: x RowBox[{"CM", "[",
8 X5 m& Y6 L/ p RowBox[{"73", ",", "8"}], "]"}], ",", : g3 G" o% G9 Z3 H
RowBox[{"CM", "[", ' m0 R& J, R; a+ [0 w. Y9 [
RowBox[{"73", ",", "9"}], "]"}]}], "}"}], ",", e' q3 ~+ z7 L+ g
RowBox[{"{", " {" A; v' i5 O2 } S3 X6 R
RowBox[{
' a/ B" m: I& @ RowBox[{"CM", "[",
3 p# _# v- M, C RowBox[{"74", ",", "1"}], "]"}], ",", + F i% V O$ a; S6 Q
RowBox[{"CM", "[",
7 S- A; m U& J( [* U7 g RowBox[{"74", ",", "2"}], "]"}], ",",
1 q+ d& r5 L' T |7 A RowBox[{"CM", "[", $ Y9 I9 v: k7 v2 e$ q
RowBox[{"74", ",", "3"}], "]"}], ",",
) \$ I8 }, o* F1 d RowBox[{"CM", "[", 4 s; W: s6 j. J2 ~
RowBox[{"74", ",", "4"}], "]"}], ",",
# P( {0 l8 O! b9 O RowBox[{"CM", "[",
+ X: z4 |% y( X9 H/ [7 H. u6 k RowBox[{"74", ",", "5"}], "]"}], ",",
! l- @! n" e: N% M RowBox[{"CM", "[",
9 C7 j; \$ N6 @. G RowBox[{"74", ",", "6"}], "]"}], ",",
7 b5 h( V. ?, Q5 }" S B( L/ g6 [ RowBox[{"CM", "[", 0 @9 q: s& K- ~7 N, h
RowBox[{"74", ",", "7"}], "]"}], ",", 3 z2 b [& p, h- w* q5 Q2 A- U
RowBox[{"CM", "[", ) h, P$ u2 H, Q& J" e. Z4 `
RowBox[{"74", ",", "8"}], "]"}], ",", 2 `8 l4 v7 t+ o6 F
RowBox[{"CM", "[", 2 u9 X$ P# n8 d9 h! i4 c
RowBox[{"74", ",", "9"}], "]"}]}], "}"}], ",", 1 ~5 w* G4 R4 s# K. L* F
RowBox[{"{",
) m M! ~" f6 K; s1 o: O RowBox[{
# B8 \$ D( z% g RowBox[{"CM", "[", % N: ^$ m# F( c9 W
RowBox[{"75", ",", "1"}], "]"}], ",",
+ J; Y+ v7 r0 \) D5 `2 Q$ ? RowBox[{"CM", "[", / D; O3 c9 t7 ~( I: ]
RowBox[{"75", ",", "2"}], "]"}], ",", * {0 O$ X! x1 T
RowBox[{"CM", "[", , T2 K; t& N( c0 Z7 E
RowBox[{"75", ",", "3"}], "]"}], ",", . {1 ], s( t. K) I- T: z
RowBox[{"CM", "[",
2 }* ?6 D2 ~' \ RowBox[{"75", ",", "4"}], "]"}], ",", 3 x" ]8 W- Z- b) R8 d
RowBox[{"CM", "[",
5 j" n/ z( ]8 D7 v7 ], |9 { RowBox[{"75", ",", "5"}], "]"}], ",", 3 n b/ E2 u- u' V s" K
RowBox[{"CM", "[", 2 \$ ^& Z% X# a/ u" h
RowBox[{"75", ",", "6"}], "]"}], ",", / `+ n$ r. t7 q# ]+ A
RowBox[{"CM", "[",
6 k3 f& Y, A" S' t5 T( O& ~% } RowBox[{"75", ",", "7"}], "]"}], ",", 5 Y, o i! z j3 z7 Z
RowBox[{"CM", "[",
9 y3 h. F* q" w/ k7 Q8 V5 d; p RowBox[{"75", ",", "8"}], "]"}], ",",
- _! k- c- ?8 o M; W RowBox[{"CM", "[", ; ^2 Y0 x4 O: U l+ o9 A
RowBox[{"75", ",", "9"}], "]"}]}], "}"}], ",", ( S5 ~; }* d1 b- U5 P4 k, A
RowBox[{"{", ' U: {; B8 u# U" F' x) ]
RowBox[{1 [- y8 T( Y8 l' e$ F2 S. _$ X
RowBox[{"CM", "[",
5 ?0 i3 Q9 X/ B, [) _ @ RowBox[{"76", ",", "1"}], "]"}], ",", . _& g$ `2 _ @0 d9 K2 d
RowBox[{"CM", "[",
2 @0 s, l. |! A, G6 R; X1 S RowBox[{"76", ",", "2"}], "]"}], ",", : [1 E9 l' j8 h2 |. j
RowBox[{"CM", "[",
) }& z: J( y7 y/ d RowBox[{"76", ",", "3"}], "]"}], ",", ( n. a& W/ [6 J; D6 D$ F
RowBox[{"CM", "[",
: P$ L5 ^; a' |$ o+ O RowBox[{"76", ",", "4"}], "]"}], ",",
9 R7 p2 V7 G" {9 v8 a: m RowBox[{"CM", "[", " k1 p; S0 U3 s- c% [, K. k
RowBox[{"76", ",", "5"}], "]"}], ",",
r1 y e1 d6 e1 ^ RowBox[{"CM", "[", : b- p' b6 i2 W4 C
RowBox[{"76", ",", "6"}], "]"}], ",", 9 ~$ p* d0 Q, K' P* L7 V
RowBox[{"CM", "[",
$ C; g' ?4 ~7 m RowBox[{"76", ",", "7"}], "]"}], ",", 8 W, X& f- @3 \# K) h
RowBox[{"CM", "[", , y: U6 \) w! Z
RowBox[{"76", ",", "8"}], "]"}], ",",
; w: \' J6 A5 v% h I. C3 G! f RowBox[{"CM", "[",
& P7 N0 y, t9 U, ~2 ], a% r RowBox[{"76", ",", "9"}], "]"}]}], "}"}], ",",
( R$ _% K- ~# j$ j; R( T RowBox[{"{", m4 k$ z+ U2 _2 m7 K2 ?
RowBox[{
, ?. `/ N+ A, o x, q/ E# x% t RowBox[{"CM", "[",
6 g. Q1 }( u1 a) m RowBox[{"77", ",", "1"}], "]"}], ",",
7 {% f) E5 l+ b5 A RowBox[{"CM", "[", , }! L }" |* C& W
RowBox[{"77", ",", "2"}], "]"}], ",",
0 H/ `) d4 h$ y. G; H RowBox[{"CM", "[", $ \# x! N& A6 {8 Z/ n
RowBox[{"77", ",", "3"}], "]"}], ",", ; n; B# @5 U" K/ z
RowBox[{"CM", "[", . c% J# E. k; v0 {/ |
RowBox[{"77", ",", "4"}], "]"}], ",", ( X* @. z' i# A( ^- E1 t& B
RowBox[{"CM", "[",
$ P4 X1 z- G! K5 t- B8 V RowBox[{"77", ",", "5"}], "]"}], ",",
% Q4 Y. l9 d7 g3 s+ ~5 U RowBox[{"CM", "[", " f" A2 d0 f) w( [: U
RowBox[{"77", ",", "6"}], "]"}], ",", 6 d- @. k W3 ^: `
RowBox[{"CM", "[", + F; F) A% K8 x! B
RowBox[{"77", ",", "7"}], "]"}], ",",
( w! v3 f8 r v) S3 T. d RowBox[{"CM", "[", % J) i1 S9 L t f% H4 I2 D3 h4 r
RowBox[{"77", ",", "8"}], "]"}], ",", % c* e$ ~+ S* G( D& s0 g
RowBox[{"CM", "[",
# p, Z0 V, |+ O% Z) C RowBox[{"77", ",", "9"}], "]"}]}], "}"}], ",",
! A% I8 A& K2 G4 Q$ Z1 ? RowBox[{"{",
- u% W/ i" l4 _+ I RowBox[{+ [/ D" ~6 j' G+ ~9 C. U
RowBox[{"CM", "[", + W9 F; ~, N' c: d* e7 k+ A: K
RowBox[{"78", ",", "1"}], "]"}], ",", 2 F8 L- r) x7 G; W8 I% V! ^9 D8 K, P
RowBox[{"CM", "[", ) T: I0 @0 K& K1 M$ i" `
RowBox[{"78", ",", "2"}], "]"}], ",", & q1 O$ |/ [$ u C1 q0 \& l+ K( l3 E
RowBox[{"CM", "[",
& H+ w6 `% a3 {4 z- M; w/ k( n; P RowBox[{"78", ",", "3"}], "]"}], ",", 9 H8 ^6 g+ i$ u; l; W! X, m
RowBox[{"CM", "[",
$ p$ y7 k8 k+ l" @7 ~ RowBox[{"78", ",", "4"}], "]"}], ",",
! Q3 O. j$ X* ] RowBox[{"CM", "[", K, r" r" S- X& w. m- ^& y! F0 f
RowBox[{"78", ",", "5"}], "]"}], ",",
/ q# y- Y c9 \$ I) j' G RowBox[{"CM", "[", : G7 a- B) D; `% K7 @9 Y
RowBox[{"78", ",", "6"}], "]"}], ",", D5 H7 v R5 N7 q! M& A+ S
RowBox[{"CM", "[",
! o/ A# x- {2 C! c; m G RowBox[{"78", ",", "7"}], "]"}], ",", ( w# F9 \% o) r+ v
RowBox[{"CM", "[",
9 I3 J) z+ {* e C- l RowBox[{"78", ",", "8"}], "]"}], ",", 2 g" E4 c5 I3 g$ V8 {7 V4 Z
RowBox[{"CM", "[",
% N5 C# {- j5 [# I RowBox[{"78", ",", "9"}], "]"}]}], "}"}], ",", 5 B0 w( u# z6 a' F* V
RowBox[{"{", . n- E# c. O* F$ {, m+ o
RowBox[{3 |3 X9 @% |- i7 m0 x
RowBox[{"CM", "[", 4 V( r! c" C. p& o% j0 D
RowBox[{"79", ",", "1"}], "]"}], ",", & z- `# [3 c+ L5 ?9 @% I' W
RowBox[{"CM", "[", 5 s/ G9 y9 ?! h7 Q& \/ |- C
RowBox[{"79", ",", "2"}], "]"}], ",", ( p( n) @8 M- |5 R* `
RowBox[{"CM", "[",
. D$ R4 O$ b- Q3 s, h0 L# t RowBox[{"79", ",", "3"}], "]"}], ",", 4 q* ~7 d6 r& Q6 w: T; q% ?
RowBox[{"CM", "[", 5 Y3 x1 D( n# U. ]: W, W( i" T: s
RowBox[{"79", ",", "4"}], "]"}], ",",
, L% k" `1 a& N( J3 w6 H RowBox[{"CM", "[",
0 {! `8 t1 m6 Z( G* \ RowBox[{"79", ",", "5"}], "]"}], ",",
/ y8 p3 f: g* t0 W# D7 b RowBox[{"CM", "[",
, {4 _$ T" d- f. m RowBox[{"79", ",", "6"}], "]"}], ",", . U! |8 y( C- D8 N; h
RowBox[{"CM", "[",
* \/ y5 M( q+ \: A; y RowBox[{"79", ",", "7"}], "]"}], ",", ( O) m$ X" U! j/ L" l4 X% V
RowBox[{"CM", "[", & Y6 _" T5 O9 N8 v2 s1 u
RowBox[{"79", ",", "8"}], "]"}], ",",
" c5 F* n- Y4 l% b RowBox[{"CM", "[",
+ g1 D4 j, ^* ~% `* A( z0 m& ] RowBox[{"79", ",", "9"}], "]"}]}], "}"}], ",",
8 @7 n- ?2 z- Q1 J6 v RowBox[{"{",
, Z2 Z4 d4 K9 | RowBox[{
9 h1 [0 W, G+ _, ]% A0 a+ f RowBox[{"CM", "[",
* N2 A6 q8 G' k+ g" r RowBox[{"80", ",", "1"}], "]"}], ",",
3 Z- F, b7 P; M7 Y- c) C RowBox[{"CM", "[",
" k9 F: Z1 a+ E \$ B RowBox[{"80", ",", "2"}], "]"}], ",", , k) E7 N" I) i: o; J
RowBox[{"CM", "[",
& |) i6 M- |$ } m2 Q* O6 |$ A RowBox[{"80", ",", "3"}], "]"}], ",",
# z1 _ D7 C; G% J/ { RowBox[{"CM", "[", 4 b6 k1 h5 ~; N+ n: K1 \
RowBox[{"80", ",", "4"}], "]"}], ",",
8 E; W% a4 ^$ v$ \/ o4 w. P6 O RowBox[{"CM", "[",
2 S8 B% X+ C1 r2 A/ B RowBox[{"80", ",", "5"}], "]"}], ",",
* m& e/ N c7 T- s& s RowBox[{"CM", "[", - p: h6 x3 B- F* t: n) u9 }, n2 T& v+ f
RowBox[{"80", ",", "6"}], "]"}], ",", ! G: X- Y, }! @7 p
RowBox[{"CM", "[", 2 a# `, z6 I" I$ a, @, y- T5 z2 U
RowBox[{"80", ",", "7"}], "]"}], ",", 4 i2 a, _+ c0 ~2 m0 t. |- [; I
RowBox[{"CM", "[",
B3 o" E0 X2 s1 q5 I1 ^ RowBox[{"80", ",", "8"}], "]"}], ",", ; ~7 x I- t2 c8 _3 B; H' j, M
RowBox[{"CM", "[", - ^7 @1 n4 k* s, U+ C( L
RowBox[{"80", ",", "9"}], "]"}]}], "}"}]}], "}"}]], "Output",2 \& L) u/ L L
CellChangeTimes->{3.577844244140625*^9, 3.57784429425*^9, 3.577847845125*^9,
& d1 r5 Q' k. p- H 3.57791322703125*^9, 3.577957088820712*^9, 3.5779605002346992`*^9, 7 g* s- l) X, T% V# f5 w
3.578012145828125*^9}]
% I+ b( T: C2 w; L6 r9 e}, Open ]],0 g; T2 E/ q3 v+ f, E" B
( M L; A. ]9 O7 Y5 v zCell[BoxData[: \, i$ b5 s+ J2 h# Q8 J7 |
RowBox[{"For", "[",
9 r ? f6 P A I, k5 ` RowBox[{
9 `' e% z( d6 `% i) H& H+ t9 z RowBox[{"i", "=", "1"}], ",", 5 K! H$ ]4 s M! a3 r0 R
RowBox[{"i", "\[LessEqual]", "9"}], ",", 3 n. v; K1 ]! M' C1 x8 |9 i; N6 g, J
RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", % w# y1 F( B& D; @0 {
RowBox[{"For", "[",
- s+ S) l w7 J. a) r: T RowBox[{# P( f! D' W6 C1 t7 j4 v2 n9 S
RowBox[{"j", "=", "1"}], ",", + R2 P; e2 }/ \
RowBox[{"j", "\[LessEqual]", "80"}], ",", $ j: y& s4 ~6 Q `$ X6 I8 x
RowBox[{"j", "++"}], ",", "\[IndentingNewLine]",
4 T$ p0 Q8 } e4 R5 u3 F) L RowBox[{
2 m- N t# s8 ~ RowBox[{
# j+ u9 b& w, G$ ]& t RowBox[{"CM", "[",
g7 _$ w1 N) U; |; X) N RowBox[{"j", ",", "i"}], "]"}], "=", "0.0"}], ";"}]}], ! p' p# r! y$ Q0 I% J6 l3 @% t% o
"\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", "]"}]], "Input",. ~/ W* G" E2 K2 U$ \1 t* H3 h
CellChangeTimes->{{3.5779132504375*^9, 3.577913285203125*^9}}],
8 C7 m: \$ |6 V& O& B; w
2 D2 V B8 p" e1 mCell[BoxData[2 E- w# P1 c! \& }: H1 y
RowBox[{"For", "[", 3 ?) d. o- Z% j7 R
RowBox[{, b, _" t! l' U
RowBox[{"i", "=", "1"}], ",",
6 q" q( H) P" K& y+ e6 z5 ` RowBox[{"i", "\[LessEqual]", "9"}], ",", 1 C4 a% \8 X4 W1 m9 R1 X7 f
RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", 3 @3 Z' r+ @- [8 F. J
RowBox[{5 N1 E1 i; ?, T# o: S
RowBox[{) {- e" k5 s) z+ }2 F/ K! b i! X
RowBox[{"CM", "[",
; r6 P% V/ i& t, j RowBox[{"1", ",", "i"}], "]"}], "=",
2 }6 q0 W& x# K9 e6 k @1 e9 V RowBox[{"Data", "[", 8 ^3 V! K, z% O. k8 _3 d' V+ l- Z; o
RowBox[{"[", % Y" d) F3 ^% ]) p; O4 k, y
RowBox[{"1", ",", "i"}], "]"}], "]"}]}], ";"}]}], . \8 a, x% ?2 e( Q: G8 K
"\[IndentingNewLine]", "]"}]], "Input",6 e7 ]1 Z4 `$ {; A
CellChangeTimes->{{3.577844179875*^9, 3.577844181703125*^9}, {
6 U, F; M3 D9 @+ \ 3.577844217765625*^9, 3.5778442320625*^9}, {3.57784429953125*^9, 0 n- Z" W. u8 g9 E) h3 o6 P
3.577844347875*^9}, 3.57791328640625*^9, 3.57791338828125*^9, ' n, J7 p/ \2 }4 s- j# q% O
3.57791344209375*^9, 3.5779588070933466`*^9}],. d6 }/ \9 u- f8 k
1 x8 ?! l7 r6 X" T' m* P' B* u* o. ^
Cell[CellGroupData[{
5 C1 C: D: z" B: n/ @6 K/ T# t# m! e2 R. D
Cell[BoxData[{+ Z# c: P0 j5 n/ J
RowBox[{"r0", "=", "0.2"}], "\[IndentingNewLine]",
; r/ e; @' J0 z# S8 i- g, g+ | RowBox[{"M1", "=", "1"}]}], "Input",
) i4 K/ M; w" [8 F" J CellChangeTimes->{{3.577844361578125*^9, 3.57784436678125*^9}, {1 Z2 ]) O( j& k6 Y8 Z4 N- n
3.5778457908125*^9, 3.57784580253125*^9}, {3.57784602534375*^9, 4 A6 L! w5 V3 i8 B
3.577846109453125*^9}, {3.57784617128125*^9, 3.57784619321875*^9}, {/ g; y; g: d$ f. n
3.577846583984375*^9, 3.577846620984375*^9}, {3.577846653203125*^9, ! w( T1 Y: y4 c7 }
3.577846691984375*^9}, {3.577846779953125*^9, 3.577846794921875*^9}, {7 F6 q( f3 f( I/ I- L9 D
3.5778470791875*^9, 3.577847088921875*^9}, 3.577847409671875*^9, {6 _9 q6 G% b5 @+ c/ W7 j$ y4 r
3.577847477203125*^9, 3.577847523203125*^9}, {3.577847586484375*^9, 5 M# r9 e# g4 e
3.577847600640625*^9}, {3.577847649140625*^9, 3.57784770196875*^9}, {& r0 x; Y3 v" Q/ g. Q$ r" N
3.57784774896875*^9, 3.57784776490625*^9}, 3.577847981546875*^9, {* A0 \- M" j: R, \. {
3.577913312890625*^9, 3.577913360109375*^9}, {3.577919262828125*^9, 5 y" Y& g; ^7 ~- E* R/ m& E. v( O
3.5779193133125*^9}, 3.577919388484375*^9, 3.5779605095479155`*^9}],
7 m9 V5 B+ Y) f$ o F7 i# g( ?* }/ N
Cell[BoxData["0.2`"], "Output",0 B8 x1 r" f4 E
CellChangeTimes->{
2 E$ s% o. H) Z; e& n 3.57784436821875*^9, 3.577845806375*^9, {3.57784603053125*^9,
8 k8 `& R( Q! Q& j/ c G( [3 Q 3.57784611128125*^9}, {3.577846174328125*^9, 3.57784619575*^9}, {4 H2 c4 @$ J W+ M' {4 r3 G# O
3.577846575515625*^9, 3.57784662446875*^9}, {3.577846655421875*^9, * G0 L4 h. z( C2 y
3.577846694828125*^9}, {3.577846773609375*^9, 3.577846802171875*^9}, {
- h& L4 |1 }3 s: |' K/ J 3.577847068765625*^9, 3.577847134203125*^9}, {3.577847398859375*^9,
0 g8 C7 v' j. Y$ @ 3.5778475331875*^9}, {3.577847581359375*^9, 3.577847611953125*^9}, {( n1 b5 J n5 \' |3 U, e8 Y$ m/ t
3.57784767515625*^9, 3.57784770903125*^9}, {3.577847751453125*^9,
& a: V k1 w+ O; X7 J3 k/ g 3.5778477734375*^9}, {3.577847849671875*^9, 3.577847869046875*^9}, {
. M5 ?6 P. g0 M+ [ 3.57784795690625*^9, 3.57784798321875*^9}, {3.5779132940625*^9,
! V5 D/ x$ y% q; K0 f' m$ A 3.57791340575*^9}, 3.5779134450625*^9, {3.577919266859375*^9, 6 }( V: K- \3 G7 ^/ s8 G! Q
3.5779193165*^9}, 3.577919391265625*^9, 3.577919455125*^9,
L+ i# a% i, D* ]. y+ o 3.577920297984375*^9, 3.5779570945615225`*^9, 3.5779588145501595`*^9, / j& ~8 ?1 ]9 h" z) i
3.577960510686717*^9, 3.578012149296875*^9}],
! ?: w- x, C! d) D! m) H) ]* j( k( m0 E& I3 P4 b- g+ @5 z9 v
Cell[BoxData["1"], "Output",. c% D' c; [/ W+ A+ k2 V
CellChangeTimes->{3 W" ~- f8 E V E5 b% ^, M6 O3 t+ ]
3.57784436821875*^9, 3.577845806375*^9, {3.57784603053125*^9, " ~' E7 a+ E4 r( Q5 n0 j1 p
3.57784611128125*^9}, {3.577846174328125*^9, 3.57784619575*^9}, {
! H* N: c2 f. Z& r0 Z: g; n1 B2 Z7 o 3.577846575515625*^9, 3.57784662446875*^9}, {3.577846655421875*^9,
$ S; _1 ~8 S, N, [ 3.577846694828125*^9}, {3.577846773609375*^9, 3.577846802171875*^9}, {& d# B6 i) s5 D% m9 @' O+ N. ?
3.577847068765625*^9, 3.577847134203125*^9}, {3.577847398859375*^9,
/ b' ~! q& w/ f, k/ ~3 C3 R 3.5778475331875*^9}, {3.577847581359375*^9, 3.577847611953125*^9}, {0 v* b7 M6 T8 d, z- }. w
3.57784767515625*^9, 3.57784770903125*^9}, {3.577847751453125*^9, 1 y: U0 J6 {1 [& ?) K5 h; i$ }, b
3.5778477734375*^9}, {3.577847849671875*^9, 3.577847869046875*^9}, {
# L9 J: `: A4 U) L, C6 B& | 3.57784795690625*^9, 3.57784798321875*^9}, {3.5779132940625*^9, ; F* \. c5 Q" g% T% [
3.57791340575*^9}, 3.5779134450625*^9, {3.577919266859375*^9, ( K1 i1 t0 e) @( ^1 W
3.5779193165*^9}, 3.577919391265625*^9, 3.577919455125*^9,
/ s/ U& p9 B1 s9 O+ T0 ` e 3.577920297984375*^9, 3.5779570945615225`*^9, 3.5779588145501595`*^9, 4 E) ^9 O5 ?2 t2 I6 ?) T
3.577960510686717*^9, 3.578012149296875*^9}]" @9 Y) t6 F, R& C) t+ }! p
}, Open ]],9 ]2 I$ V- Q ~* I) u" Q2 j
0 R3 o8 R0 {( P* R# `2 E6 r
Cell[BoxData[
i, K+ R: }' Q, { RowBox[{"For", "[", 8 c6 C7 }! z& P5 }9 a
RowBox[{
( T& d/ B: z. B. n4 ^, H RowBox[{"k", "=", "2"}], ",", * {6 U3 @3 h" h( G
RowBox[{"k", "\[LessEqual]", "60"}], ",",
) ? J/ `- K: ?- u! T1 R# ~ RowBox[{"k", "++"}], ",",
$ U' z7 W9 Q3 U+ [ RowBox[{"{", "\[IndentingNewLine]", ; a! U; K1 I& y$ ~
RowBox[{
1 R9 z; j' U% z RowBox[{"rmin", "=", "0.0"}], ";", "\[IndentingNewLine]", ! [: Y" U N9 C& ~% L9 r2 R2 M
RowBox[{"For", "[", * a; @: {7 }" z- q, ], e* P
RowBox[{9 G/ T% ~" g6 b! P- b$ b8 N
RowBox[{"j", "=", "1"}], ",",
, `1 q! x& P! t6 N) ?0 N( q RowBox[{"j", "\[LessEqual]", 2 Z; Z2 W( j% }% D6 ^
RowBox[{"k", "-", "1"}]}], ",",
/ { t2 y3 c8 ~5 ] RowBox[{"j", "++"}], ",",
/ R' n5 g2 Q7 v6 U/ j5 S- R3 J! b& Q RowBox[{"{", "\[IndentingNewLine]",
) i: U! |$ w7 i4 |0 Z' D5 _ RowBox[{ x9 f. W7 O6 I: n) @
RowBox[{"r1", "=", "0.0"}], ";", "\[IndentingNewLine]", / f5 { y6 L* g
RowBox[{"For", "[", * e; W# u# Z; t6 [1 S9 d4 g0 r# r
RowBox[{
1 _! Q! f/ Z* M RowBox[{"i", "=", "1"}], ",",
" n) I. h! k7 ^% ^9 P RowBox[{"i", "\[LessEqual]", "9"}], ",", 2 p( S# H- ^! g5 g
RowBox[{"i", "++"}], ",", "\[IndentingNewLine]",
! v/ Y& J1 y1 v8 J5 V5 M RowBox[{
# F9 j0 ]1 c/ E+ N% ^0 \- w% x RowBox[{"r1", "+=", 0 H7 A- e$ ?! d) A* x/ r0 D
RowBox[{
" N$ ^0 Q; N# Z) K6 [ J RowBox[{"(", ( ^& J* {# s( d4 C; q
RowBox[{
; [6 E) H. D, j: R5 r7 }8 y1 e RowBox[{"CM", "[", 6 T3 u7 x6 V' X* O+ d# |4 f7 A! @. _
RowBox[{"j", ",", "i"}], "]"}], "-", 4 m( r+ k6 a: q/ v) B
RowBox[{"Data", "[",
6 y. d/ i+ s2 h0 ] RowBox[{"[",
( k0 w4 a# N6 T) V/ s9 ~ RowBox[{"k", ",", "i"}], "]"}], "]"}]}], ")"}], "*",
, s+ E& a6 c% O/ L# q9 z" C2 ] RowBox[{"(", . w3 g" C& D: p0 Z& m( L- H
RowBox[{
; y; D2 H4 j# ~: l. Z RowBox[{"CM", "[",
P; Q% i, X/ R6 f. Y RowBox[{"j", ",", "i"}], "]"}], "-",
, G: v% x, ~- x1 `, k" \ o4 n1 B RowBox[{"Data", "[", & c; {! q& N, q. s1 J
RowBox[{"[",
5 o4 i! U+ q0 l RowBox[{"k", ",", "i"}], "]"}], "]"}]}], ")"}]}]}], ";"}]}],4 m$ m+ }0 b! t9 c$ k: Z
"\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]",
1 _4 c* w) Y Q4 o3 \ g9 N" ` RowBox[{"r1", "=",
" i* O. z" ^; k0 Y1 A4 Q5 q RowBox[{"Sqrt", "[",
$ C2 \* _6 P2 C% ?( W" D RowBox[{"r1", "/", "8"}], "]"}]}], ";", "\[IndentingNewLine]", : a' u- F8 \! a- ^! k# p4 G8 V
RowBox[{"If", "[", " ",
% v. n. q9 E6 F+ E RowBox[{6 w; G; X" j4 y9 n
RowBox[{"j", "\[Equal]", "1"}], ",", 4 t- p7 `2 E* s0 M W
RowBox[{"rmin", "=", "r1"}], ",", 5 e/ E( z& }5 @' ~% a# e, M2 b% }
RowBox[{"If", "[", 9 K4 O/ K5 ?; z
RowBox[{% }- P1 z9 A1 I7 R
RowBox[{"r1", "<", "rmin"}], ",", * ] m$ r2 J. `5 N
RowBox[{"rmin", "=", "r1"}], ",", ' o, [# d: A$ j& e
RowBox[{"i", "=", "i"}]}], "]"}]}], "]"}], ";"}],
/ _! C" S" n5 d* D6 v1 y# H( e3 C "\[IndentingNewLine]", "}"}]}], "\[IndentingNewLine]", "]"}], ";", 5 z _, l0 B; ]7 T
"\[IndentingNewLine]",
& i- h1 v; y4 S: N( n RowBox[{"If", "[",
, z6 R; f! w. h; u# t+ h( N2 Z, ] RowBox[{9 i! X; g! r5 y E; F; Z
RowBox[{"rmin", ">", "r0"}], ",", 1 D2 S8 x9 J& j" O5 J8 v$ j
RowBox[{"{", "\[IndentingNewLine]", + x& P* P) a5 U A* k% f
RowBox[{
" X8 P- f+ j' }% l3 N4 T2 s N RowBox[{"M1", "++"}], ";", "\[IndentingNewLine]", - B# J. L/ X- ~( Z5 L
RowBox[{"For", "[", : q2 A8 L1 [7 J# [
RowBox[{. W9 f* W- M& M. J
RowBox[{"i1", "=", "1"}], ",", : z/ ~# t2 e$ k
RowBox[{"i1", "\[LessEqual]", "9"}], ",",
) i1 N6 u; L9 v- Y5 o4 M$ x RowBox[{"i1", "++"}], ",", "\[IndentingNewLine]",
! A) A! Y& k D, }) [, w7 y5 u RowBox[{% h+ }: h. ~9 X2 q+ a; ^- }& L
RowBox[{
& K: @; {& @! G6 l9 X RowBox[{"CM", "[",
3 ]& t& \9 Z2 M/ e8 E. T% M RowBox[{"M1", ",", "i1"}], "]"}], "=",
' l) V2 m+ W; A) @# D RowBox[{"Data", "[",
% x4 U9 o6 K( B: A4 [ RowBox[{"[",
$ ]+ y. @5 q: @6 e- s1 x2 b RowBox[{"k", ",", "i1"}], "]"}], "]"}]}], ";"}]}], - e6 C: L+ q$ o1 D% h$ D0 Y* E6 R
"\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", "}"}], ",",
& C+ E# x% a4 e9 S RowBox[{"i", "=", "i"}]}], "\[IndentingNewLine]", "]"}]}],
9 J/ Z5 `5 ?0 H. @: \4 a7 J) i, V "\[IndentingNewLine]", "}"}]}], "\[IndentingNewLine]", "]"}]], "Input",, a5 b1 Q+ N% ?- V
CellChangeTimes->{{3.577844030515625*^9, 3.577844093140625*^9}, {, U8 i1 {1 D' x3 {0 `
3.577844374484375*^9, 3.577844448265625*^9}, {3.57784448490625*^9, i6 C- _; b% ~& T A
3.577844518609375*^9}, {3.577844553671875*^9, 3.577844611984375*^9}, {: z# Q" u* x4 ]3 ?1 `$ \# r8 h
3.57784478278125*^9, 3.5778448395*^9}, {3.57784493659375*^9,
6 \$ `- D# Z- T: b7 v0 ]+ D# P 3.577844964765625*^9}, {3.577845100328125*^9, 3.577845101921875*^9}, {/ m2 _$ f# N) ?7 c9 \
3.577845269609375*^9, 3.577845304125*^9}, {3.577845421203125*^9, # c( r! N3 W' U; G) X
3.57784542309375*^9}, {3.577845475359375*^9, 3.57784575834375*^9}, {0 Q7 x! _* g. p+ [3 i- G+ t+ W
3.5778458119375*^9, 3.57784582953125*^9}, {3.5778458803125*^9, ' Z9 R$ m/ J ^! O" X
3.57784594859375*^9}, {3.577845984984375*^9, 3.57784598753125*^9}, {1 J( V* G2 u, ~) N' D" {
3.577846034546875*^9, 3.577846038390625*^9}, {3.577846303984375*^9, 6 \; p- _1 Q( U) r) a* P
3.577846311921875*^9}, {3.57784637396875*^9, 3.57784644271875*^9}, {
( h( I8 D- b/ W, E" b+ q 3.57784649071875*^9, 3.577846495203125*^9}, {3.577846525859375*^9,
% J2 r. A# h7 A5 T 3.57784654409375*^9}, {3.577846732234375*^9, 3.577846764765625*^9}, {+ ]( L6 N' P) {) n" C. g0 S, a- T
3.577847031171875*^9, 3.577847033453125*^9}, {3.577847388296875*^9,
4 k7 i$ I" P, [0 I 3.57784739490625*^9}, {3.5778475661875*^9, 3.577847571375*^9}, {: `- w0 m0 n8 i8 `! \3 S& p
3.577847651921875*^9, 3.577847669046875*^9}, {3.57784793653125*^9, 8 _& S5 Q! m0 w: l' ^* O
3.5778479520625*^9}, 3.577920065921875*^9, {3.5779588175765653`*^9, * k# r L0 F3 x N {! L" ^
3.577958821991373*^9}}], u7 h Z# g1 I/ B, m5 ?& J
0 v3 d( n7 D+ e0 x& T% ACell[CellGroupData[{
, @& I5 L, R- t( j& m! t) k( \" D% [7 v- |" F$ Z/ \
Cell[BoxData["M1"], "Input",
h5 P$ X+ d1 Y+ o" B& _& x CellChangeTimes->{3.57784599821875*^9, 3.57784767159375*^9}],% D' K7 K/ e) l) a% f
" l7 p0 Y$ \4 ~, y) | o) G0 yCell[BoxData["21"], "Output",5 p' u0 K/ P6 V
CellChangeTimes->{( k3 R+ J" Y% ~+ c( Z' z" D* `
3.577845999015625*^9, {3.577846043078125*^9, 3.577846114078125*^9}, {
6 A( a- |- y2 |# p! k" s 3.57784617665625*^9, 3.577846198859375*^9}, {3.577846578203125*^9,
4 g& k3 W* t8 f, A8 X7 m5 w* h' l 3.57784669890625*^9}, {3.5778467768125*^9, 3.577846804546875*^9}, {
2 _2 s% |1 J+ t9 T0 r6 X 3.577847071859375*^9, 3.577847137234375*^9}, {3.577847401296875*^9,
! \# t1 d7 m( {. \ 3.57784753571875*^9}, {3.577847583625*^9, 3.577847614734375*^9}, {
- b2 R9 B# b' V0 n 3.5778476783125*^9, 3.577847711390625*^9}, {3.5778477535*^9, 7 q4 G1 k1 Y A0 F j3 n2 c0 o; l6 `
3.577847775859375*^9}, {3.577847852734375*^9, 3.57784787165625*^9}, {/ k' r* t* e+ l$ n& ~
3.577847966390625*^9, 3.577847986703125*^9}, {3.577913298203125*^9, + [# h j+ o) Y# n
3.577913408046875*^9}, 3.577913447296875*^9, {3.5779192700625*^9, , o1 @% k7 [ @6 B* [3 ?( ]
3.57791931975*^9}, 3.577919394140625*^9, 3.577919458796875*^9, + { h" U7 ] Z0 Z6 B
3.577920302703125*^9, 3.5779570980247283`*^9, 3.5779588282469835`*^9,
0 E& g9 @# I! C# L2 h 3.577960515600726*^9, 3.5780121541875*^9}]: R1 W9 \1 d q3 i
}, Open ]],
: m! G( n) n' ^) O+ U! A
$ q9 a9 n2 C. V' @Cell[BoxData[1 p! C8 W. Z z* x0 q3 x
RowBox[{
( I- q) j: S2 N( g* P RowBox[{"\:4ece21\:4e2a\:805a\:7c7b\:4e2d\:5fc3CM", "[", - Q8 J* ^1 }$ B! Y! r& D2 H T* b
RowBox[{"1", ",", "i"}], "]"}], 8 |( Z% Z5 |' [0 o0 X0 v
RowBox[{"\:5230CM", "[", 8 Q, Z- |/ q1 w
RowBox[{"21", ",", "i"}], "]"}], - z7 z& N [" k1 v* ^% ], b& t" i
"\:8fd0\:884c\:4e0b\:9762\:7a0b\:5e8f\:ff0c\:5f97\:5230\:9ad8\:65af\:6838\! X7 p$ E6 B$ w g
\:51fd\:6570u1\:5230u21"}]], "Input",
3 g6 }( \- L0 O, t# @2 a* { CellChangeTimes->{{3.57792097971875*^9, 3.57792107725*^9}, {
7 p+ K, K: R+ s* ?5 j7 t: P0 R% u 3.5779212193125*^9, 3.577921224546875*^9}, {3.5779605210919356`*^9, . l1 j7 T' u$ W
3.577960526583145*^9}}],
% V( o6 \, M N* p& O' B O+ C1 r, V% I
Cell[BoxData[- y0 F; b* M" P! Z& K5 D
RowBox[{"Clear", "[", "Delta", "]"}]], "Input",
* Q- ] P: h2 U* f% G a CellChangeTimes->{{3.57791779953125*^9, 3.57791780503125*^9}}],7 v: `0 I3 x( E3 u: M
6 j5 }4 _& {5 u) qCell[CellGroupData[{4 s9 W% |; f9 Q3 D& \) ^& Z
" ^- E. ]3 U7 pCell[BoxData[3 p6 R0 R# @0 ~2 R% q
RowBox[{"Xa", "=",
* {4 Y, ^+ v: {8 F" ]# \ RowBox[{"{", * X) u S! G+ a, Y, b5 o
RowBox[{( b# D0 o1 c: f; f8 s
"x1", ",", "x2", ",", "x3", ",", "x4", ",", "x5", ",", "x6", ",", "x7",
4 ?! l' A- m+ l% B3 v) V. L ",", "x8", ",", "x9"}], "}"}]}]], "Input",) ^& l0 b k) t9 E; L8 o: a
CellChangeTimes->{{3.577915885125*^9, 3.577915917671875*^9}}],
- U- f9 j* z9 F' E5 s7 ]7 {. ]1 ]; S# p& [" |
Cell[BoxData[
$ d6 @/ j; r" Z/ t RowBox[{"{",
1 q: C( c" R5 b" t, M; C6 H3 k2 | RowBox[{
- G X6 D# ~; m- f6 q3 D "x1", ",", "x2", ",", "x3", ",", "x4", ",", "x5", ",", "x6", ",", "x7", ",",
5 B! y& f M* ^, Z) j) I "x8", ",", "x9"}], "}"}]], "Output",
_, k9 [* G- c( `2 D CellChangeTimes->{
1 G5 S2 ]3 b0 q: d 3.577915921125*^9, 3.5779202114375*^9, 3.577920516515625*^9,
! h5 y9 x7 I0 o% K; X# X 3.577920662203125*^9, 3.57792077490625*^9, 3.57792090509375*^9, & t8 b% E- s/ _, L& }, x* N3 B
3.577921145078125*^9, 3.577921329484375*^9, 3.577921423265625*^9, 2 C0 O) s6 S: X# l9 f8 [' Q
3.577957103968339*^9, 3.5779572906382647`*^9, {3.577957337563146*^9,
0 A, B, U2 k: m, Z, k& k 3.5779573648007936`*^9}, 3.5779573998384547`*^9, 3.5779574405545254`*^9, {
! X. h1 q9 S, ^4 [, t0 k 3.5779574803345947`*^9, 3.5779575349346905`*^9}, 3.577958833036192*^9, ; [% e9 |4 N7 c. c, b
3.577960538064765*^9, {3.5779607232682877`*^9, 3.5779608705013447`*^9},
+ }( _( c0 j6 g3 S) E* ~ 3.577960901170998*^9, 3.577961447695015*^9, 3.5779616069712925`*^9, {
" V; i2 q. Z# C9 b- H* q3 L 3.577961638124547*^9, 3.5779616672029977`*^9}, 3.577961702599459*^9, {
% F3 L; x8 c7 `8 Z 3.5779617344391146`*^9, 3.5779617594615583`*^9}, {3.5779617927208166`*^9,
; k0 R+ ?4 s( R/ y# I3 @ 3.577961846057309*^9}, {3.5779618785053663`*^9, 3.5779619036214094`*^9}, 8 s" I. M; B) R& X: q% f
3.57801215725*^9}]& T( e% |% c$ A! ~% l
}, Open ]],8 T3 ], J3 p% `0 N, ]
! S) _7 X& e* n5 _' w( V
Cell[CellGroupData[{( z; P; K, Y: j# P
0 Q- s4 t5 C3 D7 p, w0 i
Cell[BoxData[
1 m8 S3 u( P* {: t' [# z% A RowBox[{"Ca", "=", 5 W; P$ @7 m3 _& e2 J9 n
RowBox[{"{",
G, Y. o' a' G N/ q5 h RowBox[{8 x) P7 ] I# n; a d! f, \! v3 ^
"c1", ",", "c2", ",", "c3", ",", "c4", ",", "c5", ",", "c6", ",", "c7",
; _- N% O! @% X( b8 r5 o9 I( J ",", "c8", ",", "c9"}], "}"}]}]], "Input",8 x" X/ _9 q% }8 J
CellChangeTimes->{{3.577915931921875*^9, 3.577915967953125*^9}}],
! ~# j K# Q C% \, m* V
6 D" `$ ?! H; s4 aCell[BoxData[
' R/ J7 H' O3 m+ f2 ]4 j RowBox[{"{", + c/ U b& Q# m
RowBox[{5 K& i/ Q7 M, i
"c1", ",", "c2", ",", "c3", ",", "c4", ",", "c5", ",", "c6", ",", "c7", ",",9 d& W5 x$ W/ S, ~2 x+ k' a( q
"c8", ",", "c9"}], "}"}]], "Output",
2 A& |9 n) g+ t2 H$ [- _/ D6 } CellChangeTimes->{
! h% q% M+ ]0 Z4 U 3.577915976625*^9, 3.577920215953125*^9, 3.577920310953125*^9, . e/ i% b$ x4 k* `$ ]' \# J! n$ j$ G2 |
3.577920517265625*^9, 3.577920663078125*^9, 3.577920775703125*^9,
4 q0 `5 B3 y' d: L, w1 X 3.577920905765625*^9, 3.57792114575*^9, 3.577921330125*^9,
9 ^) i) P( k& t# l y: y% \+ ?5 r 3.57792142384375*^9, 3.577957106386343*^9, 3.5779572916366663`*^9, {
6 C3 @# t, S) `9 K' }3 z4 N2 E# _ 3.577957338327547*^9, 3.577957365424795*^9}, 3.577957400743256*^9, * P3 _' |0 U8 |! g+ Y- @! f
3.577957441303327*^9, {3.577957481020996*^9, 3.577957535979892*^9},
& W# h7 d4 S( p6 O" y" p" O9 e( ] 3.5779588343153944`*^9, 3.577960599544472*^9, {3.577960723892289*^9,
+ z- ^5 h, y' o+ ^& Q: Z* b 3.577960871172146*^9}, 3.5779609019665995`*^9, 3.577961448365816*^9, , @, f2 X! _# j9 q9 U5 N" |
3.577961607517294*^9, {3.577961638935748*^9, 3.5779616678269987`*^9}, . W. p5 j' f$ b) A6 Y
3.577961703566661*^9, {3.577961735063116*^9, 3.5779617600699596`*^9}, {# b q5 x) l" }" U8 G
3.577961793391618*^9, 3.5779618468841105`*^9}, {3.5779618793477674`*^9, 0 I Z5 h' ~ }7 n8 Y, ]/ d
3.577961904604212*^9}, 3.578012158671875*^9}]9 [# I y- p6 b* T) S6 W
}, Open ]],
( ?, \0 f) G+ j# M6 X M8 O% Z) p$ u2 I/ i) X; g( I
Cell[BoxData[9 u2 [ Y$ d8 R2 B
RowBox[{"For", "[", . m, F/ C; A( U- U
RowBox[{
5 a1 o8 ~ ]4 o+ e1 V1 ~' T RowBox[{"i", "=", "1"}], ",",
4 P5 y7 c5 ~& X# r RowBox[{"i", "\[LessEqual]", "9"}], ",",
4 D4 t, s. P# ^5 `; x" M( R0 T RowBox[{"i", "++"}], ",", : j b3 ~- D/ F: H W
RowBox[{
* Z5 @ J) H( G9 D* q M% v7 m: } RowBox[{"Ca", "[", 3 f+ U# u) W+ t( }5 g+ E% m
RowBox[{"[", "i", "]"}], "]"}], "=", ( ~' ?4 }* _) J. w( C" l
RowBox[{"CM", "[",
# J" s+ R1 Y; b( j! p' u6 b0 _ RowBox[{"1", ",", "i"}], "]"}]}]}], "]"}]], "Input",
; R9 ~! _$ J K3 {* z! n9 [ CellChangeTimes->{{3.577915983546875*^9, 3.577916019953125*^9},
. K$ z5 G8 m, y D; O. l- M 3.57792022403125*^9, 3.57792052028125*^9, 3.5779206656875*^9,
$ F% V! }9 a; P* B 3.577920778296875*^9, 3.577920907875*^9, 3.577921140296875*^9, ; R2 k) Z) @, {9 U1 ~2 w
3.577921332234375*^9, 3.57792142584375*^9, 3.577957226662553*^9, & C5 E4 @; D* G5 o& u
3.5779572941638703`*^9, 3.577957335176342*^9, 3.577957367405998*^9, % f/ c. R$ ^$ _- a4 U# k# }
3.5779574034576607`*^9, 3.577957444064532*^9, {3.5779574828929996`*^9, ' t e \7 e" v( R- Z6 A/ [' }
3.577957538663097*^9}, 3.5779606027268777`*^9, {3.577960726232293*^9,
8 Q: C9 q( c( M3 R* s1 [ 3.577960872778949*^9}, 3.577960904415804*^9, {3.5779614517042217`*^9,
- g/ [5 ~) S* a7 p8 @, Z/ w& I6 S 3.5779614520474224`*^9}, 3.577961505836316*^9, {3.5779616092020965`*^9,
1 a) u7 e; Q9 @5 Z& y9 x/ B( r; c 3.5779616093892965`*^9}, {3.577961640604951*^9, 3.5779616696366014`*^9},
1 `7 L6 n% o) d 3.577961705345064*^9, {3.5779617369975195`*^9, 3.577961762113563*^9}, {
+ g5 ~4 F6 d! c& e" P8 y 3.5779617950764203`*^9, 3.577961851064918*^9}, {3.5779618822649727`*^9,
# x6 N; T" N9 H( O q" n 3.577961906897415*^9}, 3.578012176296875*^9}],- ]6 P3 @$ |) b5 Q3 W. t
7 T4 R' m. O% W: w* GCell[CellGroupData[{9 {2 x6 H: @0 f( L6 L+ `. k
- k* B0 }8 A0 w2 P5 q5 i( F: ?, m) t
Cell[BoxData[: H8 \# `( f& h7 T f& P
RowBox[{
. `* z8 z, Z9 H RowBox[{"(",
6 D9 t: W9 r$ E+ t4 ^ RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
' C7 ]; M4 C" b% q: Q: _6 F RowBox[{"(", ( I1 I* q& Y: _. R- @! ]/ u* w
RowBox[{"Xa", "-", "Ca"}], ")"}]}]], "Input"],
7 e" R3 i* ^9 i- i
! T- I- b6 J& j8 MCell[BoxData[8 _7 D5 C: R9 ^! K) c! G
RowBox[{3 a. S( x0 h7 W- M; X5 r; F) q" y6 K
SuperscriptBox[
# B' K: G+ U" m RowBox[{"(", . L p3 R$ l/ [7 b( y, g7 r, I0 `( f6 V
RowBox[{2 k( U$ H( j! d7 P% |; v6 _# Z8 h
RowBox[{"-", "0.304348`"}], "+", "x1"}], ")"}], "2"], "+",
2 F. h, n2 D6 }. C SuperscriptBox[' Q) `6 A5 | {/ P
RowBox[{"(",
7 {3 Y8 p( t2 L! A RowBox[{1 Q: M8 Q7 V6 C/ S3 h8 B4 [$ U
RowBox[{"-", "0.552818`"}], "+", "x2"}], ")"}], "2"], "+",
7 j1 Q/ @* s* k* P5 p* g8 t# ] SuperscriptBox[) x1 \( k: E- C% c" R* n2 `! a
RowBox[{"(",
. I+ v ]3 S; M RowBox[{
[; _/ V5 ?0 U' G$ _ RowBox[{"-", "0.33037`"}], "+", "x3"}], ")"}], "2"], "+", % c+ V2 ^4 X. T5 K6 t5 D; f- J/ |
SuperscriptBox[, |1 I. L! t2 K3 A! C
RowBox[{"(", : O/ L0 R, ^ G8 Z4 _0 ~
RowBox[{
3 D/ a7 b4 B; |: ^. b% K& }1 a" P RowBox[{"-", "0.025823`"}], "+", "x4"}], ")"}], "2"], "+",
* U& W& @2 B5 E7 v4 D# y" d% F SuperscriptBox[
' w! {8 f% R5 \& ` RowBox[{"(",
' v" v6 o8 K8 z, w1 m& b RowBox[{
( ~6 ^' r* W/ g5 a" v) l RowBox[{"-", "0.538462`"}], "+", "x5"}], ")"}], "2"], "+", 5 f; z+ E5 V0 B# e! F1 l
SuperscriptBox[( I/ J8 f! n1 G/ _7 b
RowBox[{"(",
; F& D x7 N' o0 y9 e RowBox[{
7 ^% n% u l" u RowBox[{"-", "0.752072`"}], "+", "x6"}], ")"}], "2"], "+", ' v' `+ e }( n( B/ Y' M
SuperscriptBox[0 P8 u* z" S; h6 b, z$ v9 E, q- ?
RowBox[{"(",
. H& K6 E" H& T8 @ RowBox[{4 \% m$ q! `: j1 r- g( ~. }
RowBox[{"-", "0.408943`"}], "+", "x7"}], ")"}], "2"], "+", + C/ t3 g$ {; Z0 J" m" u+ y
SuperscriptBox[
! t: [) {+ }- ~3 y# G" m: {" t( k RowBox[{"(", * F- A/ H# J+ u8 w( a
RowBox[{
/ X( a7 s$ V4 p# h1 @6 M RowBox[{"-", "0.504532`"}], "+", "x8"}], ")"}], "2"], "+",
( Y2 V& ~9 p$ u8 f, x SuperscriptBox[6 b! H0 T' T4 A$ s8 t
RowBox[{"(",
+ K$ c. R$ D$ u4 G& T/ O `: s2 q RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}]], "Output",
+ Y% ]9 n' h% ]/ X CellChangeTimes->{6 ]! V/ d7 l4 j& G
3.577920239578125*^9, {3.577920313765625*^9, 3.577920337375*^9}, , V# r ~, ?% d3 B! g; y8 X
3.577920523875*^9, 3.57792066971875*^9, 3.577920780875*^9,
+ ] ?3 M" j. a 3.577920912375*^9, 3.577921147703125*^9, 3.5779213341875*^9,
& u1 I1 ~0 Q8 Q. f: ?: q& d 3.577921427984375*^9, 3.5779571106607504`*^9, 3.5779572305781593`*^9,
: h @/ V! \6 F 3.577957296800275*^9, {3.577957340215151*^9, 3.577957369621202*^9}, 3 Y/ C- _2 W9 t$ L# C C( B
3.5779574064528666`*^9, 3.5779574463577356`*^9, {3.577957484733803*^9,
* S! G$ u2 ]$ c% k2 d 3.5779575407691*^9}, 3.5779588373105993`*^9, 3.577960607391286*^9, {
- d& @$ O: R5 f9 w$ \% B 3.577960728775098*^9, 3.5779608753061533`*^9}, 3.577960906849408*^9, : X4 P* w! `( t' @& C
3.5779614551050277`*^9, 3.577961509346322*^9, 3.5779616115109005`*^9, {( n# l( R+ V: W3 a: B: g8 ?( l: j- u; n/ V
3.5779616432101555`*^9, 3.5779616717114058`*^9}, 3.577961707607068*^9, {; x8 r* o% m5 M! e
3.5779617396339235`*^9, 3.5779617643131666`*^9}, {3.5779617971824245`*^9,
, m8 A2 s' K/ ^# u& n 3.5779618537169228`*^9}, {3.5779618846049767`*^9, - G# X" s) M- d. _" R$ X: R
3.5779619094246197`*^9}, {3.578012161203125*^9, 3.57801217953125*^9}}]
: U3 m1 C; T2 }( v. P4 l: M}, Open ]],
' o' Y, g1 G4 M; K1 \$ _6 E o) [# {& i5 p. R: N6 p9 |2 z" C- X
Cell[CellGroupData[{! h. k. w! g2 _* M1 E
% O. m# K, l1 b$ [* C/ S' q N: E# nCell[BoxData[
) `/ g, n7 ^: d: X" n RowBox[{* U3 X& K" C( c. v$ d
RowBox[{"Ca", "[",
7 }0 M# s+ V" f( M RowBox[{"[", "3", "]"}], "]"}], "=", "0"}]], "Input",
( J/ {3 s9 ?" z/ `7 ` CellChangeTimes->{3.5779574142996798`*^9, 3.577961516116734*^9, : T e A( y/ g' u+ o
3.5779616465173616`*^9}],- f9 b) G: H, X* |3 a( o
- Z0 `, S$ o0 g6 ]5 j( W i
Cell[BoxData["0"], "Output",
o# v* d! }# I CellChangeTimes->{3.5779574163276834`*^9, 3.5779615176611366`*^9, ! Z% K( a0 I$ x$ g4 V' H
3.5779616484049644`*^9}]
3 f% V$ N* I/ i! a) l}, Open ]],7 Z+ o+ p8 T* [2 Z
! F4 L# P, g) t4 e( |6 b, ICell[CellGroupData[{
, H/ K- V4 R; J+ P8 q+ X* ~
0 I _/ o# q4 R @2 U" jCell[BoxData[
1 I1 t" p( F4 h RowBox[{
, |3 H& n3 F/ x& V- a( t: m9 ?0 ] RowBox[{"Ca", "[",
2 B p$ |, ?% b$ o: Z/ s RowBox[{"[", "5", "]"}], "]"}], "=", "0"}]], "Input", G$ b8 m y% |9 F0 p
CellChangeTimes->{3.577957376235614*^9}],
3 M: @4 j5 \7 p, O8 A: m# u# M, R& }; q" c8 B3 z+ j- F
Cell[BoxData["0"], "Output",# P+ j; v' I: `: ]: p. V6 N
CellChangeTimes->{3.5779573779048166`*^9, 3.5779614600346365`*^9}]6 E: U2 `& ^* W! X8 l. d
}, Open ]],; F, p1 \/ w; R( o6 E
! ~# L; S$ w) ?" g$ S/ \' F6 k& KCell[CellGroupData[{
) p6 q( a8 X* k* p8 y7 ?
0 o3 ?7 B w9 d) kCell[BoxData[; j! j- S& Q& j8 O% k% ]
RowBox[{
7 l- z8 u. I& A2 ]6 M5 B9 A6 N4 h RowBox[{"Ca", "[",
% A+ m! f& Y( b- O; a RowBox[{"[", "6", "]"}], "]"}], "=", "0"}]], "Input",
% K* J1 |7 { J; j% B0 _; D* o CellChangeTimes->{3.5779573112927003`*^9}],
# F& e# M; L2 j: u8 {% b, |( h; Y1 G& N; h2 C
Cell[BoxData["0"], "Output",1 a* z2 [/ K& W( L! I
CellChangeTimes->{
* y+ [, I) Q9 {! l5 } 3.5779573131491036`*^9, 3.5779573438343573`*^9, 3.5779573794336195`*^9, * s9 ]0 s o+ r# L# ~# h
3.5779574208204913`*^9, 3.5779574530345473`*^9, 3.5779575154814568`*^9, " J+ u6 s" g7 | ]8 i, W
3.57796080484083*^9, {3.5779608543709164`*^9, 3.5779608784573584`*^9},
& e, O; U' z: w1 I: l4 V8 Q9 e 3.577960912044217*^9, 3.5779614619378395`*^9, 3.577961522372345*^9, & o" O" j5 H5 W8 ^( v, S
3.57796161703331*^9, {3.577961650978969*^9, 3.5779616775146155`*^9}, 7 B! f; H0 Q. m
3.5779617114602747`*^9, {3.577961801144831*^9, 3.5779618299268813`*^9}}]( G' F4 U0 j! m( _5 D! |4 j
}, Open ]],
* M, S/ X- v; R e+ I6 ^6 @. H4 A' V. Y3 [' V3 S% u. M+ f3 ^
Cell[CellGroupData[{
2 d5 X( K! } l& R
5 X/ g' M. H! N2 s! b, ECell[BoxData[
0 e/ k$ P" r6 r% u4 { RowBox[{
+ U$ v# ]* F' M RowBox[{"Ca", "[", ! I/ r- k- \% i$ p6 x& b
RowBox[{"[", "7", "]"}], "]"}], "=", "0"}]], "Input",
; r3 Z* f( a7 t# ^) ~& X+ a% j+ y! I CellChangeTimes->{3.577921461734375*^9}],1 ]/ w* K, v' C& A, P2 q4 o( a
1 o* G) {$ M! h, B+ h+ p& e
Cell[BoxData["0"], "Output",
# f" b2 i% _0 ~4 L4 Q+ E% o CellChangeTimes->{
1 b0 C8 ~. y6 C9 {( ]' X 3.57792149215625*^9, 3.5779571133283553`*^9, 3.5779573808844213`*^9,
8 V/ k6 N0 T+ r2 M+ f 3.5779574235192957`*^9, {3.577957489351411*^9, 3.5779575470715113`*^9},
" N J3 g5 N9 [6 w# }2 H1 h 3.5779588406958055`*^9, 3.577960732409904*^9, 3.577960778851185*^9, 3 E/ l3 V" J0 p
3.5779614640906434`*^9, 3.577961617641711*^9, 3.5779616533033733`*^9,
, G4 Q6 Y" s1 Z" M" F0 v6 J$ p8 L 3.5779617130982776`*^9, {3.5779618019560328`*^9, 3.577961888005782*^9}}]! n" y* i8 x- `9 {% T) |7 a& O2 t
}, Open ]],- p8 h) S! U6 p, A2 g( V3 ]) |
+ m, B$ M3 Z" Y z( W, }
Cell[CellGroupData[{
. f4 j. l3 N1 }" [- e: |( r+ ]$ \ x4 o2 J/ X) ~: p
Cell[BoxData[; |1 p6 S/ f# S" `- p8 u; o
RowBox[{
, z T ~( @: [$ n RowBox[{"Ca", "[", ' P" z! i1 J4 g
RowBox[{"[", "8", "]"}], "]"}], "=", "0"}]], "Input",
+ ]- G% `/ [% N/ a CellChangeTimes->{3.577957303118286*^9}],; f+ P" P0 B% e8 u x6 r
7 {, \& o# B) b" o& l# tCell[BoxData["0"], "Output",
& t6 ~9 h/ M; @5 x* t( d CellChangeTimes->{2 o* n1 `& j; Q8 k0 _! d
3.5779573073770933`*^9, 3.577957382647225*^9, 3.5779574565133533`*^9, {
8 ?2 a$ E1 ^) u+ p$ r$ t2 b" J 3.5779574910986137`*^9, 3.5779575189290624`*^9}, {3.577960756371546*^9,
+ M# d) J, }& _# T8 J7 D' l" m 3.5779608308772755`*^9}, 3.577960881717764*^9, 3.577960915320223*^9,
2 j5 L% g* r1 y0 P" k: Q. L 3.5779614659002466`*^9, 3.5779615232459464`*^9, 3.577961618671313*^9,
- W- a2 u) j/ U( X 3.5779616809778214`*^9, 3.5779617145334797`*^9, {3.5779617456243343`*^9,
( H% w" z6 N4 j0 z/ N 3.5779617686187744`*^9}, {3.577961803796836*^9, 3.5779618329844866`*^9}, {
6 m. O5 o1 e9 W' |: p$ d0 q 3.577961889378585*^9, 3.577961912965826*^9}}]
; d: h t1 d, ^8 v) T1 _' @8 o}, Open ]],
" w; T. M5 q! V& U7 c6 m( h( B
9 v1 L# Q8 ^7 ~/ V0 M& e& Q4 V1 JCell[CellGroupData[{
" L {; c/ y' ^( d, R
- q9 L7 v6 Q( s6 jCell[BoxData[
0 Q3 o' {. I) P3 r RowBox[{5 X. p( S8 b# r! [/ f4 a- i
RowBox[{"Ca", "[", 2 P8 \( R% m2 I
RowBox[{"[", "9", "]"}], "]"}], "=", "0"}]], "Input",6 S2 k7 ^3 n- a p4 O) c
CellChangeTimes->{{3.577916107859375*^9, 3.577916113453125*^9}, {
0 Y( S4 m- Q* |# I. T( X( I 3.577920324765625*^9, 3.577920332875*^9}, {3.5779205288125*^9,
8 ?& q' S2 F5 n( ` 3.577920534375*^9}, {3.57792067859375*^9, 3.577920688875*^9}, {
+ N8 I/ `5 t) s- W. v* k5 K6 u 3.57792078446875*^9, 3.577920797171875*^9}, {3.57792091940625*^9,
! _" F- m1 y7 e& K 3.577920923875*^9}, {3.577921154453125*^9, 3.577921160328125*^9}, {
. k. D, F) v/ r# |( O 3.577921339734375*^9, 3.577921348109375*^9}, {3.577921432890625*^9,
/ z. x% |% ]7 s 3.577921435703125*^9}}],
+ c; |$ k+ P' ]4 K0 l; M7 [& c5 }3 Z T8 a6 D6 X
Cell[BoxData["0"], "Output",, Y: w B* I* P
CellChangeTimes->{2 S4 v, s7 B& A# Z
3.57791611621875*^9, {3.57792032565625*^9, 3.57792033440625*^9}, {
3 X. E: U5 o# ~0 q& Z n/ X 3.577920530328125*^9, 3.577920535140625*^9}, {3.577920676546875*^9, 1 i5 U6 I, K& N
3.57792069140625*^9}, {3.577920785734375*^9, 3.577920798453125*^9}, {
. L' s5 Q" q# I 3.57792091690625*^9, 3.57792092634375*^9}, {3.57792115590625*^9, - G5 [- s2 I, a, W1 i" |
3.577921160984375*^9}, {3.577921341484375*^9, 3.577921348890625*^9}, {0 K o% [% R( N2 a. S/ i/ _
3.577921433703125*^9, 3.577921437140625*^9}, 3.577957114155156*^9, 3 H. h5 s5 D9 Z) Z- H6 ]
3.5779572385809736`*^9, 3.577957346314761*^9, 3.5779573843164277`*^9, 3 e0 m5 Z5 z* V
3.5779574262025003`*^9, 3.577957459134158*^9, 3.5779574929862175`*^9,
1 E" N, s) o0 @- _ 3.5779575497079163`*^9, 3.5779588425366087`*^9, 3.5779606144112983`*^9, {
/ L9 E- ~9 d0 e' J) R 3.5779607339075065`*^9, 3.577960757759948*^9}, {3.5779608577717223`*^9,
X* e9 D# P0 e8 C: e- _ 3.577960883308967*^9}, 3.577961466820648*^9, 3.577961619373314*^9, {! @: ~9 Z8 S# Z- E; [6 [8 i2 Q
3.5779616551441765`*^9, 3.577961682569024*^9}, 3.577961716046683*^9,
# N; Y6 e) X4 `& W9 o8 X 3.5779617465759363`*^9, {3.577961834419689*^9, 3.5779618634045396`*^9}}]5 s5 a/ q, [) x
}, Open ]],. Y7 t( w6 v& f: r0 T# E: {' z
% ^% H v, u( s) I- c' U, ]* Z2 ]. RCell[CellGroupData[{
, p% w$ {9 E& c0 O3 V: l" u' h- X: K5 {
Cell[BoxData[
2 Y$ Y* T0 S, c P8 O" {, u3 M RowBox[{"Delta1", "=", 4 F. o/ g2 @! E" s
RowBox[{
" V, o/ l, n# ?# U! ? SubsuperscriptBox["\[Integral]",
( H. W! F4 ]6 g) h RowBox[{"-", "\[Infinity]"}], "\[Infinity]"], 4 G$ p, Z' I8 `
RowBox[{; U1 v; z: B7 a+ v
SubsuperscriptBox["\[Integral]", * t$ C6 J; G( A7 G3 x- W
RowBox[{"-", "\[Infinity]"}], "\[Infinity]"], 0 N( X* q7 B) Z3 \' C
RowBox[{2 Y% ^5 j g, A
SubsuperscriptBox["\[Integral]",
! [, X, q: Z& H, X7 k: e3 M* U RowBox[{"-", "\[Infinity]"}], "\[Infinity]"], ' f2 c* |' x0 h- W
RowBox[{: k$ P" T* u. C7 s9 \0 N
SubsuperscriptBox["\[Integral]",
; m! V/ Z, `# d* w0 L RowBox[{"-", "\[Infinity]"}], "\[Infinity]"], 1 A/ t" d2 n! q D$ G# y
RowBox[{
, L& d# y$ f2 [3 ]' F& y SubsuperscriptBox["\[Integral]", , ^/ O9 V" f2 G$ d9 P2 b
RowBox[{"-", "\[Infinity]"}], "\[Infinity]"],
" I4 d! [) r, {5 t% b/ M RowBox[{+ R, K' Z- B; |; L& P4 J k: q% J
SubsuperscriptBox["\[Integral]",
, {! c/ h6 r& M0 f. {: j+ A7 E RowBox[{"-", "\[Infinity]"}], "\[Infinity]"], , h/ K D! ~6 n* L7 g5 V% `
RowBox[{
, E& y6 `; L3 j6 q" @7 N0 C SubsuperscriptBox["\[Integral]",
& c$ j& ?8 H% B# q( J RowBox[{"-", "\[Infinity]"}], "\[Infinity]"], ' _9 z; C, Q$ i% V2 H1 @1 E
RowBox[{
& A' m4 h# b+ x: S. }) ? SubsuperscriptBox["\[Integral]",
/ P+ {* \' ^0 D$ ? RowBox[{"-", "\[Infinity]"}], "\[Infinity]"], - c5 a+ ]3 h% `4 H# j, r, ~
RowBox[{
[; V' j3 Q7 T% ~- L3 d# j, Y. S SubsuperscriptBox["\[Integral]", % N- g3 `* @' q
RowBox[{"-", "\[Infinity]"}], "\[Infinity]"],
+ T- S7 ~2 A- ~ Q& S RowBox[{
- @$ F- a& G) Z5 P. F) ~0 b( N RowBox[{"Exp", "[",
% f' Z7 J+ K' g7 }& j6 L! s RowBox[{
B8 \4 ]: ?3 t4 C) ?% { RowBox[{9 w% x$ ^) f* d6 x4 i+ t2 X, T, G
RowBox[{"-",
* Q& O/ J: x, a. R2 x+ U* U RowBox[{0 j; z& o* k+ F3 t
RowBox[{"(",
! g8 \3 v8 s. _) Z- [. q+ X RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
y. `5 n9 H! e( _4 g I RowBox[{"(", & e6 Z0 S: x) v" k9 v2 k
RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/",
# V: v3 V/ z8 x, m! H: {% {, i "Delta"}], "]"}], , f. [$ o, w! `# [. J
RowBox[{"\[DifferentialD]", "x1"}], 5 G& _6 S3 ` Q! a, I
RowBox[{"\[DifferentialD]", "x2"}],
3 S: @3 P% i8 R% f" a4 q8 y RowBox[{"\[DifferentialD]", "x3"}], 7 T7 d+ x' B3 q
RowBox[{"\[DifferentialD]", "x4"}],
$ H; f+ |$ l0 g# D( v* ^( ?+ Z y RowBox[{"\[DifferentialD]", "x5"}], ) u! k# R* m( X) W0 f/ T# W2 t
RowBox[{"\[DifferentialD]", "x6"}],
8 M/ e5 P o4 Y6 p9 y RowBox[{"\[DifferentialD]", "x7"}], 3 N' M7 ]' j: }# M7 Z' Z1 R0 k1 n
RowBox[{"\[DifferentialD]", "x8"}], + A8 G6 u' f6 I3 z
RowBox[{"\[DifferentialD]", "x9"}]}]}]}]}]}]}]}]}]}]}]}]], "Input",
, a* O5 m* x( L CellChangeTimes->{{3.5779153084375*^9, 3.57791531240625*^9}, {
% T( r9 g. ~0 X. \. }! I( O/ ` 3.5779153614375*^9, 3.57791536246875*^9}, {3.57791678490625*^9, + Q4 N; G# s' G3 j: N
3.5779168805625*^9}, 3.577917071640625*^9, 3.57791718425*^9, {) u' W* R4 T0 L# M/ U" i* Y
3.57791733884375*^9, 3.57791734359375*^9}, {3.577917406875*^9,
- |# g% B. D; O, z. h6 `5 L, z 3.577917409*^9}, {3.577917781921875*^9, 3.577917795890625*^9}, {$ h9 Z% W& A) L! p# r) L
3.57791886146875*^9, 3.57791887259375*^9}, {3.57791891146875*^9, % |1 s, S; _9 ]0 a' E1 t% X
3.577918964453125*^9}}],
3 D# r& O+ T9 v9 A9 J$ z# x( [
E: p/ e y K9 j' I; QCell[BoxData[
7 f* v8 u+ S' p) b+ t RowBox[{"97.40909103400237`", " ",
( K5 `; F( l1 {/ I$ ]$ G SuperscriptBox["Delta", "8"], " ", 4 O" t2 L- |: J: t. e) g
RowBox[{"If", "[",
$ h$ H# }$ q% @9 Z4 Z) i0 D RowBox[{
2 L) d2 x/ J8 o! |3 Z RowBox[{% a2 Z& ~3 e/ s2 Y6 d) L% J
RowBox[{"Re", "[", # ^. I# O8 v e3 O3 Z5 l: u! R3 c
SuperscriptBox["Delta", "2"], "]"}], ">", "0"}], ",", ' J' x9 H% ]) B% G9 \! Y! z, S: T
FractionBox[# s! I! G, `, V+ ?" S6 t) w) a
RowBox[{"1.7724538509055159`", " ",
! y. C4 f& o- z SuperscriptBox["\[ExponentialE]", 3 d6 E3 U4 ~! Q1 G" u
FractionBox["1.1102230246251565`*^-16",
7 Z$ E' x3 S6 i! |; f! G( M SuperscriptBox["Delta", "2"]]]}],
C4 ` W' ~5 h5 P SqrtBox[
7 r8 T8 z \ Q0 ~3 j FractionBox["1", 6 {& ]; v- a: p5 g K# }4 f
SuperscriptBox["Delta", "2"]]]], ",",
4 J! N6 t7 J- I. L, Y4 } RowBox[{"Integrate", "[",
/ q2 w2 l7 ~" r: R, S/ O RowBox[{
_: B2 g0 N! N8 Q5 Q SuperscriptBox["\[ExponentialE]", ( l+ d; w/ l( b0 T
FractionBox[
' W5 I, m3 s$ P# I9 w RowBox[{"1.1102230246251565`*^-16", "-", 5 {3 o' {' t1 u/ ]- L5 |( f
RowBox[{"1.`", " ",
. ]) L& j. U' C m SuperscriptBox["x9", "2"]}]}],
0 B( S1 O* z3 E. |. x SuperscriptBox["Delta", "2"]]], ",",
; g2 F$ ^! J$ ^; p RowBox[{"{", 7 S; w7 a( h8 P- Z3 k v
RowBox[{"x9", ",",
4 A" @6 S3 y5 X# u: I" U RowBox[{"-", "\[Infinity]"}], ",", "\[Infinity]"}], "}"}], ",", B6 G9 x$ S; a7 K* ~" O4 f6 _+ g
RowBox[{"Assumptions", "\[Rule]", ( {, t: \6 P/ T2 R: R
RowBox[{# E+ o8 }9 K7 U- E, K8 v
RowBox[{"Re", "[", * S" G5 [) W/ o
SuperscriptBox["Delta", "2"], "]"}], "\[LessEqual]", "0"}]}]}],
8 q( M4 V6 L7 e8 e" S3 j "]"}]}], "]"}]}]], "Output",4 `: [9 @/ k: a; Y. Z# Z
CellChangeTimes->{3.577915314703125*^9, 3.57791536890625*^9,
7 H% b; k, z/ f% e6 k0 G 3.57791688871875*^9, 3.5779170798125*^9, 3.57791719340625*^9,
; |$ O4 c: ^% ~ 3.5779173640625*^9, 3.5779174255*^9, 3.57791786128125*^9, 4 b8 J7 C n# K; H
3.577918058328125*^9, 3.577918134703125*^9, 3.577919019796875*^9, 2 ], n) D# t7 V7 y$ a* G# Y
3.577920388796875*^9, 3.5779205859375*^9, 3.577920727078125*^9, 5 S- ?; ?5 Y2 w# k: H* D
3.57792083884375*^9, 3.577920979015625*^9, 3.5779212189375*^9, * h8 \1 K$ o3 L( V0 S, U! P3 q# }
3.57792139025*^9, 3.577921489421875*^9, 3.5779606695417943`*^9}]- C' f6 y7 T9 C# X9 ?% f# k$ K
}, Open ]],
6 Y+ f4 M( |; [/ o% z% [ J" H- b# Y/ |2 {; Q8 p
Cell[CellGroupData[{, \! k4 o" w5 r
" H$ u" `! k# {: l" t
Cell[BoxData[( ^) N: l5 k8 R- W- N' v
RowBox[{"Delta1", "=", ! y# ?. s; G1 ]) J' d* t' M2 c& t
StyleBox[3 k/ A' b: z0 R5 q9 ~6 Y
RowBox[{"97.40909103400237`", " ",
6 a; L+ F9 W' b4 {- J/ \; n SuperscriptBox["Delta", "8"], " ", ) Q1 k x$ d1 l1 j
FractionBox[
6 E ? ^ {& z/ W$ W RowBox[{"1.7724538509055159`", " ", 1 H' b( [$ }0 z3 A+ y
SuperscriptBox["\[ExponentialE]",
) q# ?) W! O4 M( ?% \ FractionBox["1.1102230246251565`*^-16",
( @3 F8 ]4 ]& Z1 D6 i: y SuperscriptBox["Delta", "2"]]]}], 3 H ~2 a5 z5 X- c
SqrtBox[1 t$ M& O* x" w6 r/ a6 q
FractionBox["1",
( E3 \" P% D, W8 V3 d6 B' w SuperscriptBox["Delta", "2"]]]]}],
- W1 x/ e7 d- v0 Q* u9 H6 l FontWeight->"Plain"]}]], "Input",$ |4 b- s& H6 \* I
CellChangeTimes->{{3.577919054890625*^9, 3.577919076328125*^9}, {% P' r$ x- b% Q6 M: V) J
3.577920422671875*^9, 3.57792044959375*^9}, {3.577920594890625*^9,
' _- R+ z0 i, T" F 3.5779205978125*^9}, {3.5779207405*^9, 3.57792074359375*^9}, {
) k$ ?# H* w3 n 3.577920846078125*^9, 3.57792084959375*^9}, 3.577921100453125*^9, 6 Y, P2 B- z; W
3.577921302609375*^9, {3.577921396640625*^9, 3.57792140075*^9}, * n1 s a! V2 {0 @% O! [3 ?
3.577921500234375*^9, {3.5779606881994267`*^9, 3.5779606915378323`*^9}}],
: k2 i5 P4 [8 _( B, N7 o f; x: l
6 p$ u4 q; e1 K7 `1 {Cell[BoxData[# T- W. }9 c& b) R7 o, t
FractionBox[
5 m; ~$ q3 E- W8 b% K3 I RowBox[{"172.65311851642346`", " ",
+ P0 S- s+ b0 W: t6 _) P8 I& |. q SuperscriptBox["Delta", "8"], " ", ' z1 u. Y2 T2 B y+ x4 x9 x
SuperscriptBox["\[ExponentialE]",
" K0 } f9 U; G }( s% d; k& E; g: L FractionBox["1.1102230246251565`*^-16", \* z5 }$ z2 F1 E
SuperscriptBox["Delta", "2"]]]}], / u, S$ [& {: H% q% {1 j# d' Y
SqrtBox[( w" K5 @! z% B& \- Y. b a7 g
FractionBox["1", , g5 C1 x1 ]6 X, t
SuperscriptBox["Delta", "2"]]]]], "Output",0 ~/ ?) F0 I5 F, C D
CellChangeTimes->{7 _- ^6 I' x: Z; R( g
3.577957275022637*^9, 3.57795735116637*^9, 3.577957388263234*^9, - }+ S5 V/ ?, a7 a! C h* v
3.577957429759307*^9, 3.5779574644225674`*^9, {3.577957495341821*^9, & [" Q; ?3 R" S% R
3.577957524966273*^9}, 3.577957555479926*^9, 3.5779606933318357`*^9, $ v; V& T0 J* v/ n4 Y) H
3.578012166234375*^9}]
/ Z9 B0 ~* r( K" x O; ^! s/ L% {}, Open ]],1 G0 A! Z% U+ m
# O- Q# }# L, n/ S* U. {0 A6 m6 k
Cell[CellGroupData[{
# v5 p0 |* U- U( o4 R; t1 O( Y9 c- V s6 n$ r" F6 H# l
Cell[BoxData[8 Q0 e! Y) q6 @. S; g. Y l& w
RowBox[{"DeltaX", "=",
6 r% A; F. I$ a& K' p' A/ { RowBox[{"FindRoot", "[",
8 v3 q3 E7 @! v1 w% l1 { RowBox[{3 m4 n2 ?$ U, n7 _/ z" j
RowBox[{"Delta1", "\[Equal]", "1"}], ",", - v6 V6 @9 P2 R
RowBox[{"{",
. ?, V6 n/ N4 v) I RowBox[{"Delta", ",", "0.1"}], "}"}]}], "]"}]}]], "Input",
" D8 Y$ V8 a+ k7 x- B3 C& ]4 F CellChangeTimes->{{3.577917987171875*^9, 3.577918019109375*^9}, {" `' x' Z; e( z' T
3.57791809359375*^9, 3.57791809525*^9}, {3.577918142421875*^9, & B2 N) J- D1 h; j) K% Y' e$ Q5 L
3.57791816790625*^9}, 3.57791913871875*^9, {3.577919206734375*^9, ( M% B9 \( N# f7 N) r$ J! a
3.57791921584375*^9}}],0 B' g {0 O$ r1 J! x; Q8 g
" Y& T( ?2 f- ]( Y0 j- M- t$ i
Cell[BoxData[
) V6 k8 q; p( W/ | RowBox[{"{", / }& C H+ e1 l) j( A
RowBox[{"Delta", "\[Rule]", "0.5641895835477563`"}], "}"}]], "Output",% A! [' j( u2 W* X4 x2 g" s
CellChangeTimes->{
2 c$ J5 I, u9 |( Q 3.577918020859375*^9, {3.577918138328125*^9, 3.5779181693125*^9},
: {+ R( ?( d8 A- j5 D4 Y4 q# o 3.57791914315625*^9, 3.5779192174375*^9, 3.577920459234375*^9, F; \$ ~0 K; b& g# q
3.577920625578125*^9, 3.577920748296875*^9, 3.577920852515625*^9,
' |, T! K% q/ g+ e 3.577921108140625*^9, 3.577921305546875*^9, 3.577921403703125*^9,
1 E s$ v; `) Y+ P/ A. ?' B 3.577921503515625*^9, {3.5779572551794024`*^9, 3.57795727691024*^9}, {
. m9 z s9 b2 {2 b) _# ~4 j% D% S B 3.5779573234295216`*^9, 3.577957352414372*^9}, 3.577957389792037*^9, # f. m4 _8 a* X6 i
3.5779574309761086`*^9, 3.5779574661853704`*^9, {3.577957497042224*^9,
/ W9 b( m% W, O" ` 3.5779575262922754`*^9}, 3.577957557071129*^9, 3.577958853019827*^9,
2 _1 }3 I( @2 P; a. [! A 3.57796070150625*^9, 3.578012167703125*^9}]# O8 @) l; H2 c. i1 L2 }
}, Open ]],' I# S! y& j1 `1 \) Y/ Y
3 H( Q4 A* D) B: S5 ^Cell[BoxData["\:805a\:7c7b\:4e2d\:5fc3C1\:5230C21\:3001\:9ad8\:65af\:6838\* n* }; a7 ?9 @+ T
\:51fd\:6570u1\:5230u21\:5982\:4e0b\:ff1a"], "Input",
( ~/ D2 m- d$ l u6 Q CellChangeTimes->{{3.57792124640625*^9, 3.577921284203125*^9}, {
$ E- z6 n7 j6 ^) E2 q. X 3.577960705312657*^9, 3.577960707621461*^9}}],
( O1 [ e7 d/ X& a2 t% @9 z8 e& ~+ T7 g- F0 a: b" r
Cell[CellGroupData[{
3 R( D7 W4 f% I& k" V0 g& Q0 C6 a: a; _9 [
Cell[BoxData[
3 T. J% S( B3 X- C' l RowBox[{"C1", "=", "Ca"}]], "Input",7 l+ W1 g' \. Y# k
CellChangeTimes->{{3.577920010125*^9, 3.5779200415*^9}}],
P% A( O, B2 `# h0 B7 \& V6 S: A: N' u& w: a! \
Cell[BoxData[, O& ]2 Y; c) B( S2 v
RowBox[{"{",
# P' m3 ]/ T% [* d1 g% v RowBox[{
5 {5 N0 L6 t! U* g0 q7 B) h: e! X: s "0.304348`", ",", "0.552818`", ",", "0.33037`", ",", "0.025823`", ",", $ ] m# G* ?4 a: S
"0.538462`", ",", "0.752072`", ",", "0.408943`", ",", "0.504532`", ",", 5 H) ]/ {! Q: n! K$ d' ?
"0.`"}], "}"}]], "Output",
/ i; g' G4 y% v( k: ~3 n CellChangeTimes->{3.5779200429375*^9, 3.577957279796245*^9,
5 N: X, p+ }. v0 t' f6 I$ [' v: f 3.577960710273465*^9, 3.5780121855*^9}]
; C5 [- l6 P) X3 w2 \" _3 J}, Open ]],
# j4 d0 o9 \7 R2 ^: P/ h% I
: D$ B* l( m, u2 ?3 F: FCell[CellGroupData[{: W$ A# g4 j) K
; ~- p/ y, u) i( m( F7 ~
Cell[BoxData[ X7 s4 W& U$ n: ?
RowBox[{"u1", "=", 8 Z3 s8 P5 h5 o+ \9 P
RowBox[{
: X: `# ]5 Q l RowBox[{"Exp", "[",
0 W4 I6 X/ X& g; ~$ z3 _1 j! i8 N RowBox[{
- p$ b4 k2 m1 H/ f5 _# h% X- V RowBox[{
/ f, t s( Y& Q- ~% K1 K RowBox[{"-", 4 @ E3 O- W0 C; [
RowBox[{$ a* q/ P/ p) }1 T
RowBox[{"(",
5 Q) o' L/ \. Q1 k5 |( p RowBox[{"Xa", "-", "Ca"}], ")"}], ".", 6 A0 Z, f0 K; S" x
RowBox[{"(",
9 T" T. K* v# X4 P- F6 \/ \+ [ RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
' Q4 Y7 D$ O, x "]"}], "/.", "DeltaX"}]}]], "Input",1 F/ g+ I$ H5 M1 a: w% t0 l
CellChangeTimes->{{3.577915830328125*^9, 3.57791584871875*^9}, {
6 Z! Z& w: q9 V+ g3 H( K7 I 3.57791608375*^9, 3.57791613809375*^9}, 3.577917047203125*^9, {' T- Y0 U4 e2 r8 X6 I
3.577919193484375*^9, 3.5779192326875*^9}}],: _5 N0 D/ \) P" ^9 N8 f
6 u* [) I% C, ]% c5 kCell[BoxData[& x2 U ?' H! s8 p& _$ L$ h: Q$ Z
SuperscriptBox["\[ExponentialE]", P6 b" R& B$ }+ @2 \
RowBox[{"3.141592653589793`", " ", - S# f9 f+ l# U' X& a8 w9 ^
RowBox[{"(", 3 J9 ?2 y# Y4 @0 m( X0 j
RowBox[{+ r! P9 s7 U0 w- K" @* J
RowBox[{"-",
( v3 |, J0 j" l _) J+ P' L) b& e SuperscriptBox[
; j. ^* F) F# x! r- ~ RowBox[{"(",
H! I$ K& o7 Z L8 [ RowBox[{
+ O( e) m }8 B9 |# k RowBox[{"-", "0.304348`"}], "+", "x1"}], ")"}], "2"]}], "-",
0 W( ]6 p, C( w% Y& j) s SuperscriptBox[ M! M1 e! D- h2 {) s; k& g
RowBox[{"(",
) |, v6 Q! B2 `2 h) t- V: p RowBox[{, s. Q. o8 v! A+ w( h/ ~( _! r$ k1 c
RowBox[{"-", "0.552818`"}], "+", "x2"}], ")"}], "2"], "-", 8 g) o2 Z# {' ~
SuperscriptBox[
- d9 N, ]5 I2 J: ~# h! V RowBox[{"(", ; A& ]* o" F8 n( |
RowBox[{
2 I3 `- I+ ~2 Y7 l8 Q5 W RowBox[{"-", "0.33037`"}], "+", "x3"}], ")"}], "2"], "-",
, S; A2 O6 p3 q( f3 B+ R* R5 }4 } SuperscriptBox[
4 {1 L9 I2 s( [! \8 ^* \4 d1 _ RowBox[{"(", 5 M* {9 r6 F5 b+ P8 V
RowBox[{
" ~" J" U) e9 }+ |- ~% { RowBox[{"-", "0.025823`"}], "+", "x4"}], ")"}], "2"], "-",
( Z3 d% R5 H, o+ q SuperscriptBox[; q: z* Q( r/ b) E) M
RowBox[{"(", + ~0 r0 x8 U, O6 g
RowBox[{: z2 t, n. F1 V" y, _4 [0 G
RowBox[{"-", "0.538462`"}], "+", "x5"}], ")"}], "2"], "-", ( z1 e/ Y( g- X" j3 b
SuperscriptBox[
# q8 R* G( M" l# T+ P RowBox[{"(", 7 l* Z5 @6 n1 x/ a2 o+ ?
RowBox[{, s' ^! \5 t! [' @
RowBox[{"-", "0.752072`"}], "+", "x6"}], ")"}], "2"], "-", * J: X" t$ r1 S: o1 m( z( p
SuperscriptBox[" H2 D( |3 H8 S) p
RowBox[{"(",
# ^' o6 Q9 g/ }. t+ s, F- Z RowBox[{2 W# d( s+ {- ^/ w4 ~& h3 s; ]7 i
RowBox[{"-", "0.408943`"}], "+", "x7"}], ")"}], "2"], "-",
9 _+ K \3 `$ }8 h# \ SuperscriptBox[
( D3 Q" k0 \' v \) r" ^ RowBox[{"(", % y- |2 t% o5 I" C! w" |. P. F% B8 h
RowBox[{
+ m; h5 O# y' \% s6 _/ x7 a RowBox[{"-", "0.504532`"}], "+", "x8"}], ")"}], "2"], "-",
1 y* F1 @* r" }. ~ SuperscriptBox[0 q" u+ E7 B# c T
RowBox[{"(",
' ?4 ^& v7 ^4 F5 P! l RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], * y2 `6 V9 a# U+ l* O
")"}]}]]], "Output",3 a2 p8 ?! D# M! M' f
CellChangeTimes->{3.57791618121875*^9, 3.577917049421875*^9, ( f- [$ x/ V0 F" p. i1 |. d9 y
3.577919237265625*^9, 3.577957283197051*^9, 3.577960712457469*^9,
; ? W) ^ B) s! T 3.578012187078125*^9}]
8 p1 ` g) ]; j0 m}, Open ]], d- @8 e2 r0 k4 b
5 V1 u6 M, E0 |7 K; o
Cell[CellGroupData[{
5 ?& D0 M6 W* t2 r! _# g* A, W; u+ ]4 T' J9 P. Y& F
Cell[BoxData[4 ?4 ~( `/ E9 r
RowBox[{"C2", "=", "Ca"}]], "Input",
& \' g$ K6 l2 i) e+ J- o CellChangeTimes->{3.57792047321875*^9}],
* k; o6 i, M2 K" J. i/ T
% Z7 U2 |* l6 n3 iCell[BoxData[
; o: q+ I) k! r- A; v% Z1 [% h RowBox[{"{",
& [7 j# p; Z D+ f& I RowBox[{; q$ h2 \. Z1 Z
"0.608696`", ",", "0.339186`", ",", "0.4943`", ",", "0.099338`", ",",
- l* b$ i4 d* Y- r% @ "0.321678`", ",", "0.375283`", ",", "0.`", ",", "0.505539`", ",", "0.`"}],
$ m7 r( E7 A9 X "}"}]], "Output",
8 u; E, z% A9 E2 K K) q CellChangeTimes->{3.577920475421875*^9, 3.5779573274855285`*^9,
6 M6 J/ ]+ h9 Z0 c+ | 3.5779607401163173`*^9, 3.578012204671875*^9}]
# k7 L: v0 y J2 V* O9 `}, Open ]],
; `# a% o6 o- r. e. Q, y1 Q2 S& m5 C. i; a
Cell[CellGroupData[{
1 q2 ~/ h' P' W3 v2 @
8 H3 ~0 b5 |1 F# I# W* Z2 jCell[BoxData[2 v' m( W/ [; U0 [+ @
RowBox[{"u2", "=",
( b/ Q, M, |, J3 ~7 k& t1 K RowBox[{# v/ _/ @! l) {6 r. ~/ C
RowBox[{"Exp", "[",
% e, k+ D' v( `: X/ N RowBox[{- g% O7 C! }8 }" {
RowBox[{
% C2 }3 d% C. `$ V9 g k. t' | RowBox[{"-",
6 t. x( c/ W) c V2 _ RowBox[{1 a% R4 W6 f; p9 C8 P! Q
RowBox[{"(",
. V1 \9 L0 v/ Z+ w$ b( i" {- H RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
4 ?0 q9 T' E/ c$ n; `/ |+ A g RowBox[{"(", / x; e% l; P/ Z" w
RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
) M& h6 P2 q$ ]0 W% U) @) y& g "]"}], "/.", "DeltaX"}]}]], "Input",
4 G& l' I' \% y8 ] CellChangeTimes->{3.577920484109375*^9}],- K8 u, n, v* j7 c8 c i' M9 D. z Z. g
+ X3 W4 ?- ^& V! [) m+ m4 Y% ~Cell[BoxData[
8 D- E/ R: \# f. d- F SuperscriptBox["\[ExponentialE]", 2 s- S1 f3 ~1 U& d7 N8 K9 z
RowBox[{"3.141592653589793`", " ", ) Z6 h- K3 t% O% p
RowBox[{"(",
- O7 C+ F, s: E, V4 ]/ g RowBox[{0 a& f' N& A2 b
RowBox[{"-", : @) g" F/ D3 r1 o+ u
SuperscriptBox[3 S% v* {! c; t4 R/ O
RowBox[{"(",
" Z; }8 M6 d2 N: ?- b RowBox[{
) Q9 @ q9 f8 ~* ~ V1 U0 d7 G RowBox[{"-", "0.608696`"}], "+", "x1"}], ")"}], "2"]}], "-", 3 i, d2 {/ D+ Q
SuperscriptBox[
7 ]* n5 d+ t5 O/ k RowBox[{"(", $ J8 l/ N, Z& L; q2 o( c4 X$ |' F
RowBox[{2 I8 c5 \' ]6 R' w
RowBox[{"-", "0.339186`"}], "+", "x2"}], ")"}], "2"], "-",
1 F3 F0 r' z3 L, B) |# w& `& Y; p SuperscriptBox[3 N& m( k. a! i
RowBox[{"(",
3 G/ f( [6 D+ j% E- T$ | RowBox[{ e& X. A! x* m$ {1 i
RowBox[{"-", "0.4943`"}], "+", "x3"}], ")"}], "2"], "-",
9 m& u8 |7 q7 }$ [# @; t+ R8 } SuperscriptBox[: |9 d. b3 R$ N( R+ j9 K* Q( P
RowBox[{"(",
: v7 E/ e: S9 y- W0 x4 o RowBox[{
, ^0 p$ o7 o7 J) Y- e- o% T RowBox[{"-", "0.099338`"}], "+", "x4"}], ")"}], "2"], "-",
, R5 m. a' v4 _. h SuperscriptBox[
~2 k! p: x/ B RowBox[{"(",
+ q7 C$ U9 |3 J- M. [$ F v. E RowBox[{6 X7 `4 {) s0 i9 \5 o
RowBox[{"-", "0.321678`"}], "+", "x5"}], ")"}], "2"], "-", 1 x' t( @9 ~2 g2 P" {; s( t
SuperscriptBox[0 ^8 B' S( h3 T9 x4 p! c
RowBox[{"(",
# x, }4 M& p. `) I; W% T4 Q RowBox[{
7 Y+ Q7 ]3 X$ Z4 I _ RowBox[{"-", "0.375283`"}], "+", "x6"}], ")"}], "2"], "-",
. W" Z& S- J, A! d) I SuperscriptBox[
/ _* l+ A& z y, ]' ?, V1 ^+ g/ B RowBox[{"(",
7 m, l) J% X1 k6 h8 e RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", ) a* p% n" o% L# a
SuperscriptBox[
/ Y0 |& y3 W. D* G RowBox[{"(",
5 ~* Z* z5 S# z$ _. D+ W% f3 g* W RowBox[{
% z9 _) {$ ^0 S$ M2 Q RowBox[{"-", "0.505539`"}], "+", "x8"}], ")"}], "2"], "-", ) ` Q3 \; A v* b; b, L
SuperscriptBox[4 l5 S+ {0 i7 R3 M9 J) {. H F
RowBox[{"(",
$ \% \. V/ G- B RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
7 |' _/ i e9 k+ p ~ ")"}]}]]], "Output",
! G9 Z( _6 F6 G! W CellChangeTimes->{3.57792048809375*^9, 3.577957329482332*^9,
( V0 f: A0 o. Q. I* J8 o$ o 3.5779607413955193`*^9, 3.578012205484375*^9}]# R( F1 ^6 o( D7 Y6 ^0 n" O
}, Open ]],( `& P3 u$ Y$ F. f; ~% O
# ^* J$ k( b3 z1 hCell[CellGroupData[{
! h; o; b7 U K4 Z/ c# t
6 k1 n; V! ]; w, d. a& s& f! SCell[BoxData[
+ j# _3 [5 B \& s9 A; P RowBox[{"C3", "=", "Ca"}]], "Input",
5 z M. J# X% N4 _& F8 k' U1 N CellChangeTimes->{3.57792064125*^9}],; P& U3 f7 K1 b [0 @% O% [
; G: y; _$ b/ V# x3 U
Cell[BoxData[
% M4 d! Z. f# v" f/ x RowBox[{"{",
; \. i3 T6 z- [5 {" [5 M% N3 ^: `2 w RowBox[{
3 g: ~* b c8 o9 a "0.521739`", ",", "0.334022`", ",", "0.3555`", ",", "0.025156`", ",", : F$ [7 {& S4 y1 A& O/ c8 m
"0.48951`", ",", "0.37679`", ",", "0.411382`", ",", "0.`", ",", "0.`"}],
1 P1 k6 y' f* _( v$ a) F" s "}"}]], "Output",
. V5 T0 m8 ^7 R( _8 @$ J CellChangeTimes->{3.5779206423125*^9, 3.5779573552067766`*^9,
4 P6 a$ `: R# m2 P9 @ 3.5779607642027593`*^9, 3.5780122103125*^9}]
0 _7 V1 } |1 g' N}, Open ]],1 P; p' V9 ?# W5 x
4 W3 Y& F0 v# F4 e" vCell[CellGroupData[{4 I0 I0 ~0 J, F8 e; f, b: }
# c* }& ]) j. v" h# e3 }Cell[BoxData[7 O( Q z+ B/ h' p
RowBox[{"u3", "=",
# {; l1 r0 {! k2 E/ j$ @3 | RowBox[{
6 @4 V3 p6 Y; L# ~1 o) b: ?5 }+ O: l+ V RowBox[{"Exp", "[",
% h5 ]* s' Z0 i: r RowBox[{5 t X( E* |4 e$ b9 _
RowBox[{
+ H2 I% Z) d9 y5 @ RowBox[{"-", ( q& o7 S5 x q8 U' q. x
RowBox[{4 X, O, k2 m) E' ?
RowBox[{"(", ; y1 ^' u" ?7 L' _, c& A% _0 @
RowBox[{"Xa", "-", "Ca"}], ")"}], ".", / o0 k2 G; r5 D( }4 F. Q
RowBox[{"(", * f' l- d* f h @1 N
RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
: t# ~/ W) ]; @9 U. l" w, }) B3 N "]"}], "/.", "DeltaX"}]}]], "Input",
; c% b! }. D1 K7 C4 l! ~6 q4 s) ` CellChangeTimes->{3.57792064921875*^9}],
# y/ K0 q1 z7 [( s3 @% K3 P/ H9 n- E, N! z# A/ A
Cell[BoxData[
( J# a8 }9 }5 ^3 `$ N+ J SuperscriptBox["\[ExponentialE]", ) G: z: d2 h9 \! F# l
RowBox[{"3.141592653589793`", " ", 7 J. @) p7 W( {# ]
RowBox[{"(",
) @( {2 ~" Q0 W, @& E/ }$ D RowBox[{9 |9 b }$ ]% w
RowBox[{"-", + I8 K1 K, p+ W- n4 f+ A
SuperscriptBox[8 n$ e/ p! N- l% l; N
RowBox[{"(", ; G+ h9 s% B3 w2 a3 o
RowBox[{* a$ q) U" B( U5 V4 ~
RowBox[{"-", "0.521739`"}], "+", "x1"}], ")"}], "2"]}], "-",
6 Y s2 H# `' w; n! c SuperscriptBox[6 ~- i$ N0 k* m$ w- _" U
RowBox[{"(", - R* o V3 \: F# Q! D" P6 w$ i+ u
RowBox[{
/ |* z3 A7 e& h9 s+ n0 ^8 X: O+ \ RowBox[{"-", "0.334022`"}], "+", "x2"}], ")"}], "2"], "-", 9 B8 R* v) c1 _7 w
SuperscriptBox[
; H4 o6 J" n' I# j+ Q/ z3 a8 o) m RowBox[{"(", 4 o% B* v, z5 M. J# I
RowBox[{
. d% [1 L2 S% `6 H5 x7 \ RowBox[{"-", "0.3555`"}], "+", "x3"}], ")"}], "2"], "-", & Z- g2 G$ ]7 D+ y) Y4 M$ {* b' C
SuperscriptBox[* [- Q4 |2 `: G- T( e
RowBox[{"(",
7 S( S& }& }1 |* E- @7 V4 p RowBox[{
k' ?/ E3 {( h8 O- [( ?6 G RowBox[{"-", "0.025156`"}], "+", "x4"}], ")"}], "2"], "-", " |& `+ G! {' D$ G( S- b; ~& D
SuperscriptBox[8 f1 \, F; q. f8 K
RowBox[{"(",
+ k4 c$ y$ G# I# Z: ] RowBox[{
. w/ e- S2 n& N& z, D RowBox[{"-", "0.48951`"}], "+", "x5"}], ")"}], "2"], "-", # Z* r9 V0 l/ s4 P- [: _
SuperscriptBox[
" Q( F' h9 a& q* o; O9 ?, L RowBox[{"(",
8 t, E1 k0 { C5 n1 G RowBox[{: v2 J. b r! b, S* t0 {
RowBox[{"-", "0.37679`"}], "+", "x6"}], ")"}], "2"], "-",
% s5 A- d7 J5 y* ~ SuperscriptBox[
[& D6 \2 ^1 b2 { RowBox[{"(",
# s) J9 }3 I! N1 V8 f RowBox[{
$ N7 L4 Y# h7 C0 f# o4 y( t RowBox[{"-", "0.411382`"}], "+", "x7"}], ")"}], "2"], "-",
6 L& n, |" {4 Y0 [- h. `3 p1 w SuperscriptBox[
7 d& b5 Y# s0 F: H4 x' a RowBox[{"(",
: Q/ e+ \" W9 v' Y# J RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", ' }9 `# z# l! Z& l- h
SuperscriptBox[, Y5 d+ o. d. ]" f) Y0 v
RowBox[{"(", " A# ~, Z3 c1 E- Z0 c
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
x& ~: U( T0 I( I" ]7 V ")"}]}]]], "Output",; b* l( _! S% i! X
CellChangeTimes->{3.57792065059375*^9, 3.5779573573283806`*^9, ) `8 C& `, P4 G- i; I. U
3.5779607654819613`*^9, 3.578012211515625*^9}]# k8 V1 e9 A& U3 S% Z% K7 G
}, Open ]],9 Q) D* R. S" N* }; X3 V
" S* b' a" O/ @/ c8 K5 x8 k% x; }. gCell[CellGroupData[{- ]' U. v- x& `0 X3 J
0 S! J" H R: F3 s8 F' I, p! LCell[BoxData[+ _# e# B7 P! f; r3 r9 E
RowBox[{"C4", "=", "Ca"}]], "Input",
$ Q+ \: S- t( M9 p1 b CellChangeTimes->{3.5779207559375*^9}],
' a& w8 G& y' K7 @1 C3 F3 |* y% ?8 o! q7 z1 B! l
Cell[BoxData[/ x1 P0 I5 @7 `0 r$ R# l3 Z
RowBox[{"{",
- ]8 |2 ] T# f4 p, y8 l RowBox[{
. {- x: O, `" @ "0.565217`", ",", "0.705518`", ",", "0.510223`", ",", "0.066892`", ",",
6 i6 }& ^( R# ? "0.244755`", ",", "0.748304`", ",", "0.`", ",", "0.`", ",", "0.243032`"}],
! [0 m4 X7 l$ k* | "}"}]], "Output",% k" W ^, M* B& P% R. b* \; x; n/ Q
CellChangeTimes->{3.577920757265625*^9, 3.5779573926780424`*^9,
]5 G- ?) N& _" u 3.5779607861363974`*^9, 3.578012216171875*^9}]
! W' Z# v) {, b0 F! [1 Y) _}, Open ]],6 M. L% O/ x# u$ ?) \! S# M
- ]; W/ h- O: f
Cell[CellGroupData[{
; D0 R) @9 Y% F* N) W
" O: g7 m5 b' B2 X# S, GCell[BoxData[6 k$ x6 u" p7 {/ k/ K" [
RowBox[{"u4", "=",
# Q, Z& a$ q. j5 a! p RowBox[{) `0 W8 G' m( P( K3 f
RowBox[{"Exp", "[", & m: }; y- {, d% _0 Q, W3 p
RowBox[{; W* I# Y/ R+ u; q
RowBox[{
0 u2 A* a& b" _7 E- a9 E8 ?+ E RowBox[{"-", ( E# M# @8 v# m
RowBox[{
2 R: J1 h0 L+ F, X& ~# C RowBox[{"(", ! t' @0 h: N: K3 c6 N. T& z: x8 F
RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
5 K& C" K8 P4 _% M" j# A2 t RowBox[{"(",
- m" ]8 F+ ~# O0 M* L4 [' r1 x) l RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}]," f" x/ r1 V7 a. j) U9 q) G
"]"}], "/.", "DeltaX"}]}]], "Input",
- A% `0 \5 @0 } CellChangeTimes->{3.57792076325*^9}],! {% T* c l7 a" t! H2 i
! Z/ K+ w0 c% C7 O) xCell[BoxData[
% H, [; c8 B1 ^. g i: Q0 _' r SuperscriptBox["\[ExponentialE]", - @8 J2 G3 C4 ^3 ~
RowBox[{"3.141592653589793`", " ", 9 d" G- I ^% ]6 d0 n+ q
RowBox[{"(", : L } g& r8 m- ^- n
RowBox[{
, Q8 H2 ]% ]0 l: V7 N0 i: o RowBox[{"-",
& e. t- x9 s5 M8 p/ L SuperscriptBox[& x* a3 b2 @$ w3 D9 N) Z
RowBox[{"(",
. H( s' F9 R, i) V) d/ \1 |5 f! x RowBox[{
9 S* j+ i I) p0 R) | RowBox[{"-", "0.565217`"}], "+", "x1"}], ")"}], "2"]}], "-",
9 O! r3 g7 o; X3 r+ |) \" p SuperscriptBox[ r( G5 z# }7 E# y& {. M) y- J6 r
RowBox[{"(", . U3 \- N& A9 _/ ], `5 T+ f: f: x
RowBox[{7 ~7 l8 f, N& A' C/ `8 I2 v) A; H: J
RowBox[{"-", "0.705518`"}], "+", "x2"}], ")"}], "2"], "-", # w/ O/ B1 y( B; _( {6 p, \
SuperscriptBox[3 j6 c" X% i& \& _' T
RowBox[{"(",
; O* W& e/ q( k RowBox[{- ]0 m$ a6 ~( ~6 g
RowBox[{"-", "0.510223`"}], "+", "x3"}], ")"}], "2"], "-",
3 M# Y8 _ S v0 q8 R5 s& o SuperscriptBox[; |* R2 Y" V. N3 Z- k! C
RowBox[{"(", 4 S- r% U8 Y% }; ?0 w
RowBox[{6 h0 k: P6 N# [% r: m
RowBox[{"-", "0.066892`"}], "+", "x4"}], ")"}], "2"], "-", 8 @: ~5 @4 P+ S! j. K+ a2 j8 |
SuperscriptBox[% j# ]5 C! ~# n: k! G1 [; B- h
RowBox[{"(", * G2 J7 ]* j% _4 k9 {
RowBox[{& D1 o' h( X, m- n+ F, J# ^6 @1 ?# z5 T
RowBox[{"-", "0.244755`"}], "+", "x5"}], ")"}], "2"], "-",
$ J2 C5 `' n: Z9 \3 I: O9 V SuperscriptBox[
* W& D4 N( n/ A" h& j( i: u RowBox[{"(", ; O* h" D4 h0 M- k0 _9 e- P
RowBox[{7 n1 P# C- k, [3 \( I/ J4 R
RowBox[{"-", "0.748304`"}], "+", "x6"}], ")"}], "2"], "-", & J( `1 L+ Q+ x& k P
SuperscriptBox[" i, X4 {6 S! Z- `. x4 i/ s* ^$ ]
RowBox[{"(",
6 g- t, P0 W) e RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", 4 w, ~! `( H! c
SuperscriptBox[
# p) e, q! l: h RowBox[{"(",
1 m3 a+ n( x$ O, I/ M G7 n9 P RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", 7 y7 T5 _. s' S# A) I
SuperscriptBox[, r! \5 Q6 v, {3 G$ b; {
RowBox[{"(", : |* D+ ]4 y0 r% b, Q4 U W
RowBox[{
! X7 k0 z9 \ l& B: b RowBox[{"-", "0.243032`"}], "+", "x9"}], ")"}], "2"]}], , l& Q2 n5 [# H, {* }
")"}]}]]], "Output",
9 `2 v* k; c, r CellChangeTimes->{3.577920764625*^9, 3.577957394799646*^9,
2 c% r# T! W3 d( ?! j9 s 3.5779607873531995`*^9, 3.5780122169375*^9}]' x$ M7 U' c, s+ _/ Q0 z; g
}, Open ]]," g& N+ Z) v% w3 P9 T9 F
# O. @5 Z( l$ a( W# `+ f: |Cell[CellGroupData[{
/ v( ?0 [/ J% T; N) y' p* ~3 _
6 C( i% t* b, F( K, Q0 W' ECell[BoxData[7 O+ q( e9 Q5 U2 b6 L% S! |
RowBox[{"C5", "=", "Ca"}]], "Input",
$ R, b) w) N( F0 d; C' A) m CellChangeTimes->{3.577920860671875*^9}],% c& @2 P& y! O) [
& S; r" {' T+ N; k$ kCell[BoxData[$ ]1 Z; z$ [4 ?% `4 r: f; G
RowBox[{"{", 4 W8 F) \1 `' ^! R
RowBox[{
9 U& e) N* {7 q9 ^( X- j "0.565217`", ",", "0.71046`", ",", "0.64973`", ",", "0.119897`", ",",
9 x q2 E1 |9 M6 W( y) k "0.468531`", ",", "0.`", ",", "0.636585`", ",", "0.`", ",", "0.766748`"}],
`' ]# P; R/ T M1 b0 i "}"}]], "Output",
. t4 k: |% _: X9 S! r CellChangeTimes->{3.5779208614375*^9, 3.5779574339713144`*^9,
( E( M7 z2 f/ f. t# n" H 3.5779608137328453`*^9, 3.5780122209375*^9}]
# G8 r0 q3 R1 l( O' e}, Open ]],
* w, }3 d7 ]' y) E. j0 G: l8 [2 e- P2 |6 H" [6 V- h& V3 L( t7 _
Cell[CellGroupData[{
2 `: a' @9 Z* X% j; i' `; X$ r) T: I& {
Cell[BoxData[- y/ j4 z1 P. N8 E7 c3 G
RowBox[{"u5", "=", 2 A( w+ n- Y3 g) [* ]4 J
RowBox[{: E+ e) V+ ]$ f! T. N
RowBox[{"Exp", "[",
+ D1 n5 j; l/ @8 E6 p3 | RowBox[{) {0 _4 o$ i) Z! y
RowBox[{
' w4 c3 }. Z8 D1 t3 E RowBox[{"-", 8 A2 d: M/ c8 G8 N! S- C- ?
RowBox[{
: S; @: ~) Q! j: G$ I( B RowBox[{"(", 1 q$ _/ y) @0 Q4 I, K
RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
1 _2 A) @: T/ V+ k8 l. P- T RowBox[{"(", 2 s: U! v9 o3 M3 {; b7 m- D* e
RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],. L1 T3 a+ f" g8 F
"]"}], "/.", "DeltaX"}]}]], "Input",
$ y$ e2 I+ ?5 ^ CellChangeTimes->{3.577920869375*^9}],+ r: W( b7 o w4 I4 A' d; u
' P5 M8 w9 C& D
Cell[BoxData[
3 N, [* V8 N t9 p SuperscriptBox["\[ExponentialE]", 1 Q! Q8 d4 E5 D% M3 @; i0 g
RowBox[{"3.141592653589793`", " ", ! M5 Z4 k' S. ]' e
RowBox[{"(", 0 ?( Z$ v5 z5 w9 J5 q' F* I
RowBox[{
7 ?. Q2 a' E' r: e8 f' Z4 g RowBox[{"-", + e1 L+ K" Q3 p' u% Z# Q5 D, s( g2 n
SuperscriptBox[( j: R4 L9 w6 K6 p5 ~
RowBox[{"(", 2 h! q% x+ F9 R0 r+ R% Z3 p6 G0 Q
RowBox[{$ O( p4 R5 Z+ T f
RowBox[{"-", "0.565217`"}], "+", "x1"}], ")"}], "2"]}], "-", & R3 Y; J9 ]& p! Z
SuperscriptBox[7 z/ I3 X/ _& T. V
RowBox[{"(",
e5 r9 o+ } k. [3 H RowBox[{
8 U0 q J: C0 \ RowBox[{"-", "0.71046`"}], "+", "x2"}], ")"}], "2"], "-", 9 h! o4 Q- d, t8 n
SuperscriptBox[1 V( S! Y0 s% g7 j3 K
RowBox[{"(",
4 T3 d5 p9 i( A, E R8 Q, W RowBox[{
; `" U9 o; w' V5 f RowBox[{"-", "0.64973`"}], "+", "x3"}], ")"}], "2"], "-",
" G& y$ q: J! g0 \ SuperscriptBox[, i! o: z! @, Y: b& @. X
RowBox[{"(",
* h- q# K7 Q1 p RowBox[{9 K+ @: p+ j5 a" ^! x$ G
RowBox[{"-", "0.119897`"}], "+", "x4"}], ")"}], "2"], "-", ' r( K1 f6 u/ O3 [
SuperscriptBox[. G% H/ L! x/ ?. K' j% H
RowBox[{"(", a5 J- R& F6 S9 d4 x7 @
RowBox[{
" n/ Z i+ L( e( j) e, ] RowBox[{"-", "0.468531`"}], "+", "x5"}], ")"}], "2"], "-", 6 j C3 W9 @1 v; n
SuperscriptBox[
1 B- ^8 J6 R* g. Y RowBox[{"(", J2 F7 {3 D2 I- Y% ~* s
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", , a% C8 K% M/ @' W5 L
SuperscriptBox[
+ f0 A' d" O- K9 l RowBox[{"(",
# d' O( @/ r- J: t# K- U) G RowBox[{* q: N8 ^: f' S& O$ |
RowBox[{"-", "0.636585`"}], "+", "x7"}], ")"}], "2"], "-", & S! T# H1 l# i0 Z8 b6 G
SuperscriptBox[6 R9 a$ g6 S/ }' p% r
RowBox[{"(",
0 C) w5 Z, n6 j+ F/ a3 M RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", + f8 T: P) E- U+ z' {. j- r
SuperscriptBox[8 m9 c/ ~+ X, v; Y. ~8 l
RowBox[{"(", W* D: F5 s4 p' x) [
RowBox[{
: M, `( P2 F& N/ f RowBox[{"-", "0.766748`"}], "+", "x9"}], ")"}], "2"]}],
/ F; O6 U# {3 b, q- ]( b$ L ")"}]}]]], "Output",
" p3 ]0 j9 d0 [& }: e! @4 ] CellChangeTimes->{3.57792087128125*^9, 3.577957435188116*^9, 7 ?/ u7 O R/ u; }$ l/ C2 _( c
3.577960815043248*^9, 3.578012221953125*^9}]' B* A$ O7 j& Y& O2 n' F0 Y% o; }
}, Open ]],
$ J8 L/ U; U3 z, f( F- _- r; y, K+ [. ~5 k0 r% g
Cell[CellGroupData[{
/ C2 l9 w/ b- q4 d( K; ~( p, K+ q$ a+ X3 m6 |- P5 |
Cell[BoxData[
- T( R2 y9 r9 h" s6 b, i RowBox[{"C6", "=", "Ca"}]], "Input",1 Z$ C6 \8 G3 g' a8 n
CellChangeTimes->{3.577920860671875*^9, 3.5779211201875*^9}],
. S: U! Q) j1 \7 k. ~" }, m" d% [0 A" h0 u; X
Cell[BoxData[6 }3 k5 M- W/ f$ K' y+ p+ V
RowBox[{"{", 8 ?: ?, G5 A$ u$ i# [7 |
RowBox[{& c }3 H; C( w, T
"0.130435`", ",", "0.682724`", ",", "0.258697`", ",", "0.019299`", ",", % c2 p2 k6 u9 H) x2 s$ r. T2 L# e
"0.51049`", ",", "0.420497`", ",", "0.535772`", ",", "0.`", ",", % l( x# i: q# u5 |% r
"0.494866`"}], "}"}]], "Output",, I$ e- G) ^1 c8 E5 s
CellChangeTimes->{3.5779208614375*^9, 3.577921121*^9, 3.5779574726281815`*^9,4 y' J4 Z* A5 |7 y2 G a% D, k' m" N
3.5779608373044868`*^9, 3.578012227359375*^9}]# N7 o( c, J6 s5 \. l" G Q% |4 q
}, Open ]],
# ^. x, x( C: Y5 P5 D1 y; V( E5 X6 {" P* t/ \" A. g
Cell[CellGroupData[{
( v7 g0 q0 T: D1 Q3 l. ^$ b, Q# J' i4 `4 k8 |
Cell[BoxData[2 R% i1 S% w5 `5 j
RowBox[{"u6", "=",
/ u4 O: f# H- u) n% f RowBox[{
5 q3 p. ~' b! u. ~" h RowBox[{"Exp", "[", 7 ^6 m$ O- m5 G w* P9 F
RowBox[{
% | `& [( e8 P( R RowBox[{2 g- q4 \+ @1 g; |( ?, Y5 H9 Q
RowBox[{"-", , m+ a" s6 z; _. M q
RowBox[{
5 c* |! Z: ?9 Y3 ^& I! r* } RowBox[{"(",
, P* w% z" M2 m& B# q! r) ?+ v RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
* H+ F1 e1 j3 P( Z3 m( a) } RowBox[{"(",
% e! w9 b6 \$ Z/ L RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
- \( E+ I" i' K4 a "]"}], "/.", "DeltaX"}]}]], "Input",. }/ r/ z8 R, M5 }$ z- s
CellChangeTimes->{3.577920869375*^9, 3.57792112309375*^9}],
4 g6 j1 K2 F9 H# C( o0 q9 Y6 s4 A% [5 p4 p' z3 j
Cell[BoxData[
0 H$ `4 W r/ [5 r SuperscriptBox["\[ExponentialE]",
7 G) M% N( [; G4 M% l RowBox[{"3.141592653589793`", " ", - t# t9 |* m1 Y8 F L8 ?
RowBox[{"(",
9 k6 f' {0 L, ^4 M. t' p+ k0 C RowBox[{0 t% t W8 q2 G$ p
RowBox[{"-",
+ P& r$ R5 z6 m8 t, o6 ^4 H1 R9 d SuperscriptBox[
0 h& J$ Z. Z* t) s2 O5 G RowBox[{"(",
7 h/ \* [) k7 r/ D. Q6 N RowBox[{1 s, z+ m ]( s9 J: i) r3 Q
RowBox[{"-", "0.130435`"}], "+", "x1"}], ")"}], "2"]}], "-",
( H: F. a8 s8 }' H* B2 M' ^7 s1 ^5 a SuperscriptBox[* O/ \& C! j: G% B7 g' u
RowBox[{"(", 0 ]5 V* [4 O+ d& d: O
RowBox[{( c# D& K' j9 V- J H( V. y6 Z
RowBox[{"-", "0.682724`"}], "+", "x2"}], ")"}], "2"], "-", - J: C+ ~+ Q) A* E7 g: [
SuperscriptBox[$ l$ `. j8 J1 Y6 H- c
RowBox[{"(",
$ W. T( g3 J# b# y RowBox[{
7 P9 K: @# g6 m% e/ Q8 Y6 w RowBox[{"-", "0.258697`"}], "+", "x3"}], ")"}], "2"], "-",
& R" }1 s6 |7 E x4 A" Y) d SuperscriptBox[
3 c- f" v0 ?4 ^/ m$ Z8 ] RowBox[{"(",
! o6 \; @6 _6 l9 ?" i- Q$ T3 G RowBox[{4 ^& l# Y7 k$ P# @* U& c
RowBox[{"-", "0.019299`"}], "+", "x4"}], ")"}], "2"], "-", / t! ]2 D1 f O5 r# @9 s4 _% w
SuperscriptBox[
, S- @5 q! a4 Z: d0 z: e RowBox[{"(",
4 e: b2 v+ R# E: |9 S RowBox[{2 g# N4 a$ ~1 E. I4 c
RowBox[{"-", "0.51049`"}], "+", "x5"}], ")"}], "2"], "-", % l6 R& s$ a! c( {5 V
SuperscriptBox[% Z r9 y; D8 a" o1 n, Y
RowBox[{"(", / r7 S5 t* \& r* _3 n" y2 P
RowBox[{' V& [# u+ F2 y7 F+ r$ ~2 D" P
RowBox[{"-", "0.420497`"}], "+", "x6"}], ")"}], "2"], "-",
: L+ N$ t9 {7 W- o M* p- ] SuperscriptBox[
" M- ] Y) }/ x; q RowBox[{"(", $ z! @; o- x$ I+ U- Y* T# U) k
RowBox[{3 p' w t/ m9 S% M9 B% m4 a
RowBox[{"-", "0.535772`"}], "+", "x7"}], ")"}], "2"], "-",
5 J7 Y- o% S/ _4 B6 M4 f% P; R SuperscriptBox[
! O1 d5 y; B9 i RowBox[{"(",
# t& b0 ], J9 z' E; c RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
; o1 q& R t7 Z, z0 X0 O! } SuperscriptBox[! ^; Q2 q' K. N3 q8 T: c
RowBox[{"(",
C& }3 ?/ C$ V RowBox[{
0 {) l {3 G# ~/ K: I7 e$ t z RowBox[{"-", "0.494866`"}], "+", "x9"}], ")"}], "2"]}],
V8 w0 D* y# s. k ")"}]}]]], "Output",
9 X3 [; U x4 R, ` CellChangeTimes->{3.57792087128125*^9, 3.577921124328125*^9, * Z" D2 |! P' Q5 q
3.5779574736733837`*^9, 3.5779608382560883`*^9, 3.57801223009375*^9}]
& n+ a3 d0 _; W9 W6 o9 U$ C}, Open ]],
" C9 @: B- H. M4 D! m! G( G9 c/ W: m+ x$ e8 n8 B/ x7 L
Cell[CellGroupData[{
4 c. d: _6 s! W: `, o; h& c# B A/ h9 o3 b9 s3 x6 G- _
Cell[BoxData[
8 A2 \. M; f0 L RowBox[{"C7", "=", "Ca"}]], "Input",
$ o0 Q8 [8 i: w" V CellChangeTimes->{3.577920860671875*^9, 3.5779211201875*^9,
" l( I3 n# c: T5 x7 @* N7 o 3.577921316125*^9}],
7 I9 @. z6 ]0 S' x. H9 d3 C4 X; X' ` f" u
Cell[BoxData[/ q' [" I7 V- j) c/ X/ }
RowBox[{"{",
) ]9 k4 [* V* H* ~ RowBox[{
3 L' a! ]6 t1 g$ Q3 b% ^, T4 } "0.695652`", ",", "0.71828`", ",", "0.33973`", ",", "0.110285`", ",", ' r7 P, u [- e0 @. a* z) i
"0.335664`", ",", "0.`", ",", "0.636585`", ",", "0.780463`", ",", "0.`"}], & h3 ]0 @; ?/ |# |6 @, B4 Q
"}"}]], "Output",
( V, [, P* m5 Z+ u; r6 Z9 p CellChangeTimes->{3.5779208614375*^9, 3.577921121*^9, 3.57792131765625*^9, 1 V6 P% i5 `4 M @+ j0 ^1 m
3.57795750042743*^9, 3.5779608630913315`*^9, 3.578012250234375*^9}]
& q# C! u/ {' U; [& T; M}, Open ]], `$ ^' E1 P [' b" f+ e. r y
$ A- \3 {) F9 D
Cell[CellGroupData[{
5 z# F/ o% D9 K3 T- _* j3 j5 c( n( z
. c. R1 L' F. UCell[BoxData[
! h# d P# x& e RowBox[{"u7", "=",
) w2 M& v F. ~$ c2 F2 ^; P RowBox[{! ?, O0 N/ M/ u' W# W
RowBox[{"Exp", "[", . u1 o% e# s8 ~" d5 _$ G' z4 W
RowBox[{
# I1 ^# Q9 B Y' U% z" ~5 c RowBox[{
; s" y$ f- l! Q1 ?* X( l RowBox[{"-",
6 o, y. B, p/ k RowBox[{' O# y# ^$ _$ y, {5 m
RowBox[{"(", 8 A% w4 [, h$ f6 q( e) q, q
RowBox[{"Xa", "-", "Ca"}], ")"}], ".", 5 I* z O; u0 Q4 i% i' u9 ^: X% f
RowBox[{"(",
% i8 G. K: c' |! @ RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],& ~+ R: I' `& F& ?& K+ Q8 K% s
"]"}], "/.", "DeltaX"}]}]], "Input",* a* ?. {! x1 y! ^5 y( B
CellChangeTimes->{3.577920869375*^9, 3.57792112309375*^9,
9 C/ g5 n) F' O4 b6 C+ x- x7 M/ K 3.57792132028125*^9}],# m$ w# u6 \2 V+ `
- X, ]4 l( }7 l7 {& `6 A" ~- dCell[BoxData[+ j9 i8 d: M9 Y0 w6 ]" f
SuperscriptBox["\[ExponentialE]", ) U' d/ t4 s& a% ~
RowBox[{"3.141592653589793`", " ",
+ I* V0 Y! R& i0 J RowBox[{"(", ' B; @1 @9 r0 O, Y% H
RowBox[{
6 f% r( D7 a3 h g! @ RowBox[{"-", . A3 z2 f, o- U1 L- e
SuperscriptBox[
; Y& v( T- i& s9 m, u RowBox[{"(",
, ]4 ?9 y# B, n, O( c RowBox[{5 L9 \3 L$ n) q
RowBox[{"-", "0.695652`"}], "+", "x1"}], ")"}], "2"]}], "-",
3 J! _8 Y) O- q' _9 q SuperscriptBox[5 _! f# D4 k0 P# p8 j4 {2 L
RowBox[{"(", 0 {( T, c3 y& @. V, u
RowBox[{% [' Y) J$ }6 |: k! g
RowBox[{"-", "0.71828`"}], "+", "x2"}], ")"}], "2"], "-", 5 m/ V, r& g* Q9 U1 m
SuperscriptBox[7 ?% `( U" _8 h/ u) k
RowBox[{"(", 1 S: V7 v, r! F$ Y
RowBox[{
' K2 M8 Q8 j: K8 k RowBox[{"-", "0.33973`"}], "+", "x3"}], ")"}], "2"], "-",
, N' T5 M; Z& I) v5 F, ]9 r( H5 W# u5 _( U SuperscriptBox[+ `, [* K7 `" i! B6 @3 I% N
RowBox[{"(",
2 E7 v5 w; [! L& s7 L& [* M RowBox[{5 H" _' l S+ B+ z
RowBox[{"-", "0.110285`"}], "+", "x4"}], ")"}], "2"], "-",
/ X t. \! Q# a3 D% M: { SuperscriptBox[9 I0 H2 p' h6 J5 p1 T" `* m
RowBox[{"(", ' |/ T/ M U. b% X4 [* N
RowBox[{5 a$ z4 V+ ^( x7 a% n0 W9 @
RowBox[{"-", "0.335664`"}], "+", "x5"}], ")"}], "2"], "-", 0 C' e( t. Y: E
SuperscriptBox[6 p1 `9 R" h2 t$ p: ]6 l. {
RowBox[{"(", 3 o2 h {- a6 x. T
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", . x p3 e) A' F9 V, F. i
SuperscriptBox[
8 ~# O7 ~" \# v7 ?8 E RowBox[{"(", 8 p& a) X" w# S, s; G3 w0 T/ M! H# k# J
RowBox[{
$ o& m8 z- r9 s% [# T RowBox[{"-", "0.636585`"}], "+", "x7"}], ")"}], "2"], "-", * y# [' V8 u! i
SuperscriptBox[7 y* t) K, Y" o4 F
RowBox[{"(",
% ~$ j9 Y: R2 x1 d RowBox[{
M; k8 E" |, `1 y7 w+ ?( _ RowBox[{"-", "0.780463`"}], "+", "x8"}], ")"}], "2"], "-",
6 n- w: u, ~- F. E4 E SuperscriptBox[
4 F z: U, y ?6 G* O2 u4 B RowBox[{"(",
/ U; r0 O M0 z. t$ T" S5 c+ R RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], / ~+ X- r4 w" y! ^. `$ e0 j% S
")"}]}]]], "Output",, H; y; l* o" U4 U7 q: ^% M
CellChangeTimes->{3.57792087128125*^9, 3.577921124328125*^9,
# m- z" E9 `& a; I 3.5779213213125*^9, 3.577957502221433*^9, 3.5779608640897336`*^9, 2 ^- v9 \8 }7 `7 K5 m8 w3 Z/ J7 a' J
3.578012251359375*^9}]
0 S( Q' r6 y1 _4 o& r. W" [. @" n}, Open ]],
3 a7 H! b9 F1 I5 k
4 i1 p( a* h/ i3 s5 n# }Cell[CellGroupData[{' {- [$ l6 o b7 }3 m# ~ y7 X, H5 }
+ v7 P6 v: x, p: w2 yCell[BoxData[$ t/ ~) t% i7 n% b" n
RowBox[{"C8", "=", "Ca"}]], "Input",+ @$ k1 E! Q1 E$ V
CellChangeTimes->{3.577920860671875*^9, 3.5779211201875*^9, 1 a) p# P1 J2 ]$ @+ \7 h
3.577921316125*^9, 3.57792141421875*^9}],
! q/ i; n) F$ S" g+ @* H8 f7 ^4 X2 D6 k/ k; n
Cell[BoxData[5 u( M" P/ r) T$ Z0 C8 v
RowBox[{"{", & A9 w- B) {* T+ [
RowBox[{$ {8 Q: d4 P& H
"0.652174`", ",", "0.569711`", ",", "0.414297`", ",", "0.175398`", ",", 9 N$ y/ E. i' w% a* S5 C
"0.167832`", ",", "0.`", ",", "0.544715`", ",", "0.`", ",", "0.`"}], ' j5 r; Z T% R' S" h1 }0 n
"}"}]], "Output",
! Q' c2 O9 p$ }* [ CellChangeTimes->{3.5779208614375*^9, 3.577921121*^9, 3.57792131765625*^9, 9 p7 H5 K; U7 D. m Z
3.577921415375*^9, 3.5779575288038797`*^9, 3.577960893433385*^9,
- }/ G- o& J# I) v B/ K# y5 o 3.578012260515625*^9}]6 |4 M. y* f; Q+ t$ b' S u
}, Open ]],0 B9 ] K+ b' Z$ W8 ]5 x; l
; F* g/ K+ H8 U+ ~/ F) f
Cell[CellGroupData[{9 O+ H9 J* p4 J$ V% I
k L" q! s. M/ c1 f8 b
Cell[BoxData[
5 [" |: k% F% }) w' U- M RowBox[{"u8", "=",
7 h; i& @: I1 {# _ RowBox[{$ J, N+ g- W: b- @
RowBox[{"Exp", "[", 8 k9 s% |& }! P2 X
RowBox[{
) ~& C: }9 \* y* x7 m, K) m RowBox[{" A0 ? k7 L; Y& t* w3 L& l9 b" `
RowBox[{"-",
6 ^, p3 V% Y3 T3 r' W5 s, u$ a RowBox[{
+ e4 z% \% ~9 ?* c RowBox[{"(",
! {4 k7 F: E4 r7 W1 B+ ` N' L RowBox[{"Xa", "-", "Ca"}], ")"}], ".", 1 V% ]4 p* ~1 Q/ }+ E
RowBox[{"(",
/ @7 S" \/ ^, a8 F, U! \* l RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
$ \* ], m2 C4 t( Y( a "]"}], "/.", "DeltaX"}]}]], "Input",
. B2 ]! D' h. j; x4 @' h CellChangeTimes->{3.577920869375*^9, 3.57792112309375*^9, # _3 W5 I8 I% O, H! B8 d/ P5 Z
3.57792132028125*^9, 3.577921416921875*^9}],
B. q/ ^- G. W7 m0 z( e' Q: y$ i9 y" F6 H
Cell[BoxData[; x6 _ [, [& J/ k$ n7 L) X* y
SuperscriptBox["\[ExponentialE]",
1 \ ^2 `5 l5 s* ~# b RowBox[{"3.141592653589793`", " ", 8 e4 S/ H2 ^8 o6 D6 N
RowBox[{"(", Q7 `7 o. U* A R
RowBox[{- T Y9 G' y% }- h6 F4 x
RowBox[{"-",
$ T; `, t8 P9 l7 }. p SuperscriptBox[/ Z6 k5 E+ U7 _
RowBox[{"(", @( B$ h2 m8 V* M7 U
RowBox[{
2 n# k2 D5 ` ?1 w% ^9 _) f, J RowBox[{"-", "0.652174`"}], "+", "x1"}], ")"}], "2"]}], "-",
2 E c' S+ m! L& K6 c/ W% x+ G SuperscriptBox[
7 g; K. y% Y9 _9 Z" N RowBox[{"(", 9 e, C& r& b0 ~1 `) f1 W
RowBox[{) o- u5 e! V" h
RowBox[{"-", "0.569711`"}], "+", "x2"}], ")"}], "2"], "-",
1 W0 u9 |- u8 }: i2 _/ X- { SuperscriptBox[
4 O% x' c7 e/ t: T2 j RowBox[{"(", ! a$ u4 a+ w+ h1 H
RowBox[{
& o5 P8 B' E' J0 C3 s" O$ v RowBox[{"-", "0.414297`"}], "+", "x3"}], ")"}], "2"], "-",
! Q/ B8 P# h: F4 v7 p! w SuperscriptBox[3 J K8 g! S( c6 k8 e" N/ D. T5 L
RowBox[{"(",
2 ?2 l% U+ q+ y/ Z" O6 C RowBox[{; r. `& W. q. g; ]) f) {$ Y
RowBox[{"-", "0.175398`"}], "+", "x4"}], ")"}], "2"], "-",
6 u+ y# T5 n6 m/ A5 e; f SuperscriptBox[
- j! D) _/ N4 K RowBox[{"(",
; o2 x0 V! H/ ?6 ~* P RowBox[{
$ A3 @) s! O. r4 C2 H$ m RowBox[{"-", "0.167832`"}], "+", "x5"}], ")"}], "2"], "-",
2 f9 u. j+ e# X3 v& J1 w. [; g SuperscriptBox[
4 L `- ?1 ?8 U" d( @0 |7 s RowBox[{"(",
9 w( A2 ]2 b6 o) K5 ?! x RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", ; _ y1 h2 q9 w! {# k. ` ]0 V
SuperscriptBox[
$ F, d/ {8 Z: P; { RowBox[{"(",
, z1 b0 W! h' f0 D$ ?; c RowBox[{1 k7 e) f4 L" u: J
RowBox[{"-", "0.544715`"}], "+", "x7"}], ")"}], "2"], "-",
8 _, W+ m- g1 H9 P3 w SuperscriptBox[
9 I" P" w1 T+ c( ] RowBox[{"(", * U8 @% |' z! E2 `! T* Q, a+ d' H
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
+ D, V$ @, T. m SuperscriptBox[& h) s) N* Y: V. l& r" B A& n
RowBox[{"(",
1 Y/ @1 v7 \2 _4 Y: p( M RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], 5 t5 Z- k& B' C4 O
")"}]}]]], "Output",) {; b9 g' m o9 R
CellChangeTimes->{3.57792087128125*^9, 3.577921124328125*^9,
, G7 y9 a+ Y2 t6 ?; A7 X2 } 3.5779213213125*^9, 3.577921418765625*^9, 3.577957530145482*^9,
1 x7 g) u5 c O) c 3.5779608945565863`*^9, 3.57801226165625*^9}] l. d/ v8 q: e) U2 Y' d0 s
}, Open ]],8 l$ L; [: B) j+ l
+ b: k. M- H6 x8 a2 E8 vCell[CellGroupData[{0 w7 U: A2 B' G d# Z5 }
( Q# }9 M/ t/ a8 q0 ]! HCell[BoxData[4 W7 V& ^" k+ V
RowBox[{"C9", "=", "Ca"}]], "Input",
; z) R' L1 K$ V {+ h" X; D CellChangeTimes->{3.577920860671875*^9, 3.5779211201875*^9,
, c8 f. S: f ?8 H1 E& ` 3.577921316125*^9, 3.57792141421875*^9, 3.577921513890625*^9}],; }0 I: |$ _5 l/ e) a% M) G* C
2 m# d" }% X; t( i. J" r: g
Cell[BoxData[9 j A1 J; ^" J- F/ @
RowBox[{"{",
4 M A$ q, h' E' ] RowBox[{1 A2 n$ b0 ^2 F! X! s
"0.`", ",", "0.395544`", ",", "0.027011`", ",", "0.048087`", ",", 4 N5 r7 r# O3 h$ A( l% Z
"0.496503`", ",", "0.`", ",", "0.452033`", ",", "0.`", ",", "0.278729`"}], " Z1 R1 d: A: Y0 T0 s3 }- P7 ?
"}"}]], "Output"," G5 b# W1 R2 d m T; K) a$ }5 M4 n) Z
CellChangeTimes->{3.5779208614375*^9, 3.577921121*^9, 3.57792131765625*^9,
* \& V% a0 D% X: G0 u$ X8 E 3.577921415375*^9, 3.577921514890625*^9, 3.577957560674735*^9,
" x+ o: N! |* r( s! l 3.5779588670442514`*^9, 3.577961429021782*^9, 3.5779615287839565`*^9,
; Y0 R2 m5 g' R2 i g' S0 J: Y e- d7 n 3.578012268234375*^9}]& Z' B5 s" J& m5 [3 f4 Q
}, Open ]],
3 U& ]; K/ p9 R. u6 e
Q" p" X& y/ lCell[CellGroupData[{9 R5 n8 Z9 R6 S/ n4 N; @: r n2 N2 N
, L- b# o! x* U3 j$ B7 _Cell[BoxData[
7 t2 N0 A0 L" M: E" A! f RowBox[{"u9", "=", / w, B, M* m9 B" }2 Z( H0 A
RowBox[{
`5 z3 n0 |4 O RowBox[{"Exp", "[",
8 G7 I* f+ g8 m% Y' w7 K RowBox[{
4 i8 p) X, ], K% [0 C0 m RowBox[{. i2 D: P: L, z& m
RowBox[{"-", + B4 ^5 J8 r0 D7 S( \6 N& W% x) I
RowBox[{, [- N; a8 i1 T! e _: q1 P2 |. W
RowBox[{"(", . r0 S7 O8 l$ {2 q
RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
$ \8 | o' j9 g4 M RowBox[{"(",
) d8 I5 r. X) u% [- P9 D: z. Z' O' L9 ? RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
0 \, |2 k+ J1 V0 R3 C/ q "]"}], "/.", "DeltaX"}]}]], "Input",* c1 M7 x& v$ ]( c% p! F% ^
CellChangeTimes->{3.577920869375*^9, 3.57792112309375*^9, * n' H8 G, m* I- ~% k2 H- a
3.57792132028125*^9, 3.577921416921875*^9, 3.577921516859375*^9}],& k1 L$ \7 {/ E/ X9 j
! Y) G. j" b4 }7 J2 h. T8 k" L
Cell[BoxData[
3 ~0 s$ m R! J$ j, Q( |* d SuperscriptBox["\[ExponentialE]",
. U+ c- \3 C4 r2 M! C0 U. O RowBox[{"3.141592653589793`", " ", ; L3 ^" o. M6 K+ f% r1 q; h4 m: y# L
RowBox[{"(",
7 f& e; S& r3 x% |- }. V RowBox[{, n1 s) @ X/ Z/ H
RowBox[{"-", ) S# `. u& z* m3 t7 X( A$ O
SuperscriptBox[
9 B: s. w- S! |4 P3 M3 n RowBox[{"(",
/ O% U1 k: z0 d+ g: Q0 U7 P RowBox[{"0.`", "\[InvisibleSpace]", "+", "x1"}], ")"}], "2"]}], "-", $ e& v: y6 V t2 k8 \6 y
SuperscriptBox[ P, H J4 t% f& q' y( z
RowBox[{"(",
# O2 v( b5 k, q/ n6 R RowBox[{
# E! J+ H* a( @6 S RowBox[{"-", "0.395544`"}], "+", "x2"}], ")"}], "2"], "-",
6 q4 K P& A8 Q- S" G2 N5 d3 ^ SuperscriptBox[& l- z% ^* p- t9 `
RowBox[{"(",
! Q8 n: \4 S$ E$ a3 a" C: ?# g RowBox[{- W* B2 D* G3 z' G9 ?
RowBox[{"-", "0.027011`"}], "+", "x3"}], ")"}], "2"], "-", 0 Q6 G8 N7 z& h! a% ?
SuperscriptBox[/ N0 R/ C4 S% A+ x
RowBox[{"(", 7 O$ P' m# @' J) C$ P+ h
RowBox[{( G! F7 A$ o% z# z# f
RowBox[{"-", "0.048087`"}], "+", "x4"}], ")"}], "2"], "-",
$ A/ s( z/ {3 `$ @ SuperscriptBox[! h o' X+ h% v/ n0 g2 J# b8 `
RowBox[{"(",
0 s9 M1 J+ c, F0 X1 e& h- l. H/ Q' z RowBox[{3 ^1 m% ?/ [6 @; s0 ?
RowBox[{"-", "0.496503`"}], "+", "x5"}], ")"}], "2"], "-", 8 z: a! T* J* e0 m6 U5 n8 Y2 X9 l
SuperscriptBox[ b$ L7 `4 c$ w d3 q/ g
RowBox[{"(",
4 F9 v8 L& J9 U/ L2 [: f1 ` RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
0 W8 V% a6 G; p& q* X! X2 V3 X$ o' X SuperscriptBox[
, F. }* J3 G8 r# B0 m$ m RowBox[{"(",
K1 l/ n0 l3 n; D/ }- f RowBox[{
3 m1 ~$ U4 M/ O% K0 |, T RowBox[{"-", "0.452033`"}], "+", "x7"}], ")"}], "2"], "-",
Q, V" E1 _$ X3 r& i, A SuperscriptBox[ C; C+ c2 r d: J2 e) d5 r
RowBox[{"(", `5 g. X4 S, E- e8 ~% \; t& s' Q. u
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
! d' F9 ~5 q! }! z0 }( v# W SuperscriptBox[" e: Z5 ~0 d1 `: w/ S: G! q
RowBox[{"(", , U- Q7 ^+ P8 Z" p
RowBox[{' T1 M% N& v4 t! I Y0 G$ w
RowBox[{"-", "0.278729`"}], "+", "x9"}], ")"}], "2"]}],
/ D$ a z/ `) Q' I- t! T3 Z2 y, W ")"}]}]]], "Output",' {; d$ H Y/ J: a' w. t6 i `! M) |: B
CellChangeTimes->{3.57792087128125*^9, 3.577921124328125*^9,
" i0 V6 r) }- s7 y; U8 \9 _ 3.5779213213125*^9, 3.577921418765625*^9, 3.577921518078125*^9,
4 h# a- P! R- t) d" g 3.5779575617355366`*^9, 3.5779588687914543`*^9, 3.5779614354177933`*^9, . |( z9 t( ]) u5 z
3.577961530421959*^9, 3.578012269125*^9}]
8 {+ t2 l0 F: g}, Open ]],
$ ~3 s2 o" ]) d) z7 T) K1 X8 p) _1 X) h
* z1 k5 D% y0 I8 _- _, aCell[CellGroupData[{
) R& R2 a" c/ S8 c5 c( k/ b! p ]6 z6 Z/ h1 L3 c
Cell[BoxData[{' u% B+ Z7 G: S% Y/ u" s* }) q D
RowBox[{"C10", "=", "Ca"}], "\[IndentingNewLine]", # A* g; l+ @$ K5 F$ b! ^
RowBox[{"u10", "=",
3 H0 @7 ]6 _2 h. B1 m7 ?3 @3 ]- G RowBox[{7 E2 a! i& j9 L# q* N; X H
RowBox[{"Exp", "[", / b2 n3 Q& t" q% `; B/ B
RowBox[{
. e0 j+ I9 I* K* L5 Y4 Q' L) h RowBox[{
, d7 w d" l& I7 ], Y0 K RowBox[{"-", , T. j6 B# g6 l' J$ ^; {$ i
RowBox[{
0 V& l. E/ Q7 O! g7 a RowBox[{"(", ' Q- p, j4 r7 K& I6 E3 e% H$ J, l
RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
( w/ K' I- F0 S( Z& ~ RowBox[{"(",
H) A; Q7 T. @' J9 k1 t% g RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],$ T3 J7 ^/ @! F4 A
"]"}], "/.", "DeltaX"}]}]}], "Input",
* J+ v2 L$ @! A( n! ?/ U7 Z CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}}],2 A5 S0 L) b5 T
$ Q( _$ y ]/ U: F2 o3 i S' a F( {Cell[BoxData[
@1 Z* D/ x' e% ~5 ^) M) R. T RowBox[{"{",
, _, N* [9 w& W4 I) j6 U RowBox[{7 {: ]$ S: r' \4 E: |1 _
"0.565217`", ",", "0.572293`", ",", "0.655012`", ",", "0.281852`", ",", ! e- ]0 L. B1 ^1 x
"0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}]], "Output",
* x* |9 e \, E9 o CellChangeTimes->{3.5779614955246983`*^9, 3.57801227703125*^9}],
/ X, F$ h( \) v0 d5 b- L2 G' i# U8 f* Q, Y
Cell[BoxData[
L/ g. W8 m c- p- R SuperscriptBox["\[ExponentialE]", , J) K% q* ?; D2 N) ]& X
RowBox[{"3.141592653589793`", " ",
* O0 L h/ g- W; w0 k3 r RowBox[{"(",
& @( O. ?) p+ p4 x RowBox[{
% ?$ @. Y$ }7 I3 p; ~ RowBox[{"-", 1 e2 b1 J* w1 @( \7 {- s
SuperscriptBox[# |# m. h& q: @# K
RowBox[{"(",
8 z( E/ U% C3 _" i9 ? RowBox[{ P5 V/ o* O- i, g: \. v0 M
RowBox[{"-", "0.565217`"}], "+", "x1"}], ")"}], "2"]}], "-",
$ v' O3 b2 H5 l6 Y: Q8 F9 H7 [5 U SuperscriptBox[8 x8 U) G& Y- d1 y% h# [8 g
RowBox[{"(",
7 e4 x, T. h1 P: S7 z0 Q RowBox[{
$ c9 F# Q& q r* _ O RowBox[{"-", "0.572293`"}], "+", "x2"}], ")"}], "2"], "-",
! E1 f7 i& |6 s. K SuperscriptBox[
3 _% H. H3 I) g- X& D RowBox[{"(", / B, N4 m4 z+ a. V8 S7 u
RowBox[{
7 a1 g9 d* }( w6 w) s$ i RowBox[{"-", "0.655012`"}], "+", "x3"}], ")"}], "2"], "-",
* J W4 ^1 U5 J" G0 n* l SuperscriptBox[: }8 ], ~& l) \- \: A6 V
RowBox[{"(", 3 c# u7 m p( _
RowBox[{, P& N: t; H- s$ T' l% V7 c( L
RowBox[{"-", "0.281852`"}], "+", "x4"}], ")"}], "2"], "-", ; k- {& Z- b T; K
SuperscriptBox[$ h! d. x7 E0 w& o8 Z' R
RowBox[{"(", ( A( ?& a! t" ?* ~& |% g
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x5"}], ")"}], "2"], "-",
8 h: y7 k$ b0 ~6 h7 C+ p3 Z SuperscriptBox[ ^: G; b1 \. `$ Q" i4 S0 X
RowBox[{"(",
- E5 }+ F" ]1 ~ RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
9 |% k* q$ f2 X( J SuperscriptBox[3 a. X0 b0 T' R! G* X8 s2 k/ k, h
RowBox[{"(",
0 M0 I0 T- {5 |& l9 B U8 X6 w RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", 4 v6 o* T$ J% r w& j
SuperscriptBox[
3 D, @, Q- ]6 r. I RowBox[{"(",
/ E, q9 j0 W3 k& p1 ?- S RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
0 F: B! R% I; d SuperscriptBox[" n; i5 w- q: k! y
RowBox[{"(", . X- Z1 c$ e4 t4 ]) l+ F( O
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], $ L$ i, N1 A1 [
")"}]}]]], "Output",$ v$ p/ p1 W) ?3 M
CellChangeTimes->{3.5779614955246983`*^9, 3.578012277046875*^9}]: o) a, F6 M; t' s: |$ g) Q/ O5 x
}, Open ]],& `# o, U+ {2 o3 `, ]) [* N
- G% ^! {; I9 }" FCell[CellGroupData[{
3 F5 ?0 r1 A& a" O/ r; _# _; t+ W u" `. N" G
Cell[BoxData[{1 F/ ~5 C( f9 u- U* d+ q
RowBox[{"C11", "=", "Ca"}], "\[IndentingNewLine]", ) [) x k7 }6 G
RowBox[{"u11", "=", ) S& x- D% n- n
RowBox[{
" o% ^; R( z2 |7 F# c0 v# J0 s RowBox[{"Exp", "[",
; e6 z' ~( X: j' T5 |; _& x( a9 t RowBox[{
9 n" E) X- }7 {* K$ o% u+ ? RowBox[{
" @0 X3 c# M0 q RowBox[{"-",
, b* n- o0 R5 s, S RowBox[{
& Z+ {2 t B" i; I+ }9 X' Z RowBox[{"(",
) y9 `; f. @% T6 E$ t: Z3 p RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
" D* a( ^0 p7 A( d, W RowBox[{"(",
- Q8 F. B$ L, n0 p* l8 D" H: t RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
8 S* q7 `& |2 @ "]"}], "/.", "DeltaX"}]}]}], "Input",
; i9 t6 X( C1 R# Y CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
7 g7 S. h& K" B9 Y 3.57796154237158*^9, 3.5779615434011817`*^9}}],' s4 ~2 S4 V# A2 f% I; c& i9 G$ z
* x' E. D% S) RCell[BoxData[: I% i2 O+ O# j' v s3 _- n/ |
RowBox[{"{", 4 q0 T% ~* p9 v( s2 K
RowBox[{
9 L4 y9 g% b6 t% f "0.717391`", ",", "0.736205`", ",", "0.267704`", ",", "0.036152`", ",",
9 J; n, Z9 S. h3 G+ s0 y "0.307692`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}],
, V h2 G2 ^% ~/ C "}"}]], "Output",
# L7 A2 E/ t4 G( f3 q1 s CellChangeTimes->{3.5779614955246983`*^9, 3.5779616282029295`*^9,
' ~- ^$ e' J- K, W 3.57801228203125*^9}],
. N7 d& I7 y% h# ^% ^: E
( D( j1 X5 ^4 R) c- g& d aCell[BoxData[
8 T- R! V/ U5 X4 Z SuperscriptBox["\[ExponentialE]", % k% d2 u. H1 v, E, N
RowBox[{"3.141592653589793`", " ", 1 U, U2 F+ Q6 z' x& N% W( Z
RowBox[{"(",
- z, Q1 b/ D# z6 b RowBox[{4 E* T8 T$ r K
RowBox[{"-",
+ }, ~* c7 t/ w: S* G& w: N ? SuperscriptBox[
! v4 O% W0 e2 r3 h/ L6 a- L RowBox[{"(",
) v* U. z u% _7 _ RowBox[{8 c1 m7 y! N4 U
RowBox[{"-", "0.717391`"}], "+", "x1"}], ")"}], "2"]}], "-",
2 k* W1 C1 |" W6 M" _% Q8 J SuperscriptBox[2 j5 k( r6 @1 L
RowBox[{"(", , j% A9 }4 t, f$ d$ K
RowBox[{0 ~$ h4 W1 h0 }7 _5 {1 {
RowBox[{"-", "0.736205`"}], "+", "x2"}], ")"}], "2"], "-", $ _' Z! s% h: l, Z, ]. x y
SuperscriptBox[! K2 D7 L5 d# W% L2 A4 d/ I& b1 ?
RowBox[{"(", , f. \5 X* ] V3 \
RowBox[{" s+ A4 Y; b& ] C5 Q! w
RowBox[{"-", "0.267704`"}], "+", "x3"}], ")"}], "2"], "-",
4 \0 r" h# d$ q3 J SuperscriptBox[: @$ J* u: w4 Q
RowBox[{"(",
% W7 q+ W5 v5 X1 ]4 J' ` RowBox[{0 x9 Y) `5 R) V( z2 T: u
RowBox[{"-", "0.036152`"}], "+", "x4"}], ")"}], "2"], "-", + X9 {5 ` g( ^ S
SuperscriptBox[* R! U' \$ N/ Q. |& O) {2 i
RowBox[{"(", ( k% j! b9 n1 l7 ]( ?
RowBox[{: L$ @5 M% W( C4 [8 h6 ^& y; @
RowBox[{"-", "0.307692`"}], "+", "x5"}], ")"}], "2"], "-", . U& f0 J) b% v& J: o+ a
SuperscriptBox[
. N" n: k$ W" F- V; @ V8 \ RowBox[{"(", 5 }9 I& w# e: k. F: L; B1 e
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", 9 D e/ U6 r- V" o }8 n
SuperscriptBox[2 F2 h% |1 e5 m; A. L
RowBox[{"(", , T$ z1 [& _! J4 r# L5 g" ]
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", 8 q& `- o! O( T( g. E$ B9 A
SuperscriptBox[! E6 [) N3 D/ H! c5 t. l
RowBox[{"(", : y3 M. [; P0 S9 f
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
6 U5 K' a+ C( B, n! i SuperscriptBox[
+ l3 K) @7 n7 I- h: C: g- P RowBox[{"(",
! ~; K) O$ l6 Z RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], R4 ?1 O+ H/ d9 V( o' ^- B
")"}]}]]], "Output",$ U7 n8 a P1 x3 ^1 C8 t
CellChangeTimes->{3.5779614955246983`*^9, 3.5779616282029295`*^9, 2 Z. O( q4 n4 w. g* \
3.57801228203125*^9}]
. |5 O. ?; O5 S}, Open ]],% M4 J3 F1 P$ V# a3 f& N. }
/ d2 x3 J+ ^; O4 a$ L9 G$ u' XCell[CellGroupData[{# @' F: H+ F' Q4 Y8 ]0 r1 Q
1 S8 s; p, Z2 [/ r! H
Cell[BoxData[{
* }' f; N) N4 n, H! n0 M* A' | RowBox[{"C12", "=", "Ca"}], "\[IndentingNewLine]", - |* A9 J( ^& z4 D3 m. y3 _
RowBox[{"u12", "=",
* U# N! `1 j7 F) s+ f/ R RowBox[{* c: S: Z& u3 T3 s+ _4 q
RowBox[{"Exp", "[", ) a9 m: b% u( i5 M" w! b
RowBox[{
6 S I- K7 g. q; s; x) O RowBox[{
: [' T1 U- o8 L. G, A( d. p4 v RowBox[{"-",
# H% R7 `* P# h RowBox[{
! A: m" g3 ^; x/ U2 n2 J" G RowBox[{"(",
' p8 a4 `' T! O9 k8 H) b% _$ C6 U4 D" [ q RowBox[{"Xa", "-", "Ca"}], ")"}], ".", 8 ~0 n( H, v& u* c) _
RowBox[{"(",
. T" d! o3 k% ^! X8 ? RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
( }! |5 c e2 o2 J "]"}], "/.", "DeltaX"}]}]}], "Input",2 ~& z, i4 _6 e$ Q; S6 ]$ _
CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {( b, s7 R: x; `3 d4 t! Z5 i. p
3.57796154237158*^9, 3.5779615576284065`*^9}}],
# v3 p5 z& w2 p7 p# W8 N& Y
7 I. G q: K: B1 o2 t4 a& GCell[BoxData[* v* x" F }2 `0 @& o+ p. B
RowBox[{"{", $ V! d+ w- `) r3 U
RowBox[{
: F/ {5 f' X' c1 W% ? "0.913043`", ",", "0.170478`", ",", "0.`", ",", "0.012973`", ",", + _) A) I/ I8 d, }" D* K. L
"0.293706`", ",", "0.`", ",", "0.`", ",", "0.672709`", ",", "0.`"}], % W V% {( ?( F0 L! G+ t
"}"}]], "Output",5 B/ S6 I7 W! ^+ [ K/ |, E9 x( B
CellChangeTimes->{3.5779616594029837`*^9, 3.57801228759375*^9}],
( [% _ `# l* i9 V0 z% B3 R8 e( U9 R- N, ^2 R7 l) M' L
Cell[BoxData[; D7 h. l5 ]- a' R' d
SuperscriptBox["\[ExponentialE]", 4 l8 F1 ^+ J. Y: R* L
RowBox[{"3.141592653589793`", " ",
8 Z; ^2 J) c* k) W/ O RowBox[{"(", }* _8 B1 J0 `0 T X
RowBox[{7 S" ^4 J- s9 U4 u' g; X! N
RowBox[{"-",
# l) y$ ~2 h% S2 T6 A SuperscriptBox[
: P/ r5 v' q9 I RowBox[{"(",
4 v4 b: b8 }9 |3 o$ F% x RowBox[{2 J( ]$ j# l6 G8 `* [: f
RowBox[{"-", "0.913043`"}], "+", "x1"}], ")"}], "2"]}], "-",
# G( u. Z: f; j: ]4 q SuperscriptBox[
, r1 z$ V1 i9 l RowBox[{"(",
% b4 M& D% S0 @* n0 g7 t RowBox[{
: o5 U6 C: b1 b) E RowBox[{"-", "0.170478`"}], "+", "x2"}], ")"}], "2"], "-", : r' r: X6 C: `* R2 g4 N
SuperscriptBox[
1 N* q& L0 [ k: G' V RowBox[{"(", 2 g- \& h/ r8 q3 z) C
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x3"}], ")"}], "2"], "-",
' c. i n) q4 Y9 c' j SuperscriptBox[
7 c. D- i3 U7 ~0 I RowBox[{"(",
1 y$ D% ^! n3 Q0 C/ R3 c' j RowBox[{- n6 W6 d' t9 ]# f! _
RowBox[{"-", "0.012973`"}], "+", "x4"}], ")"}], "2"], "-", 8 [+ n# R8 p1 D; Y* K8 \+ J! s' i
SuperscriptBox[$ }" g0 t* d" o8 s/ y" E( b9 ~* v
RowBox[{"(", : r# \: ^* ]$ @ i( Z* v, b' ~+ y
RowBox[{& b4 V5 E: G2 a9 J
RowBox[{"-", "0.293706`"}], "+", "x5"}], ")"}], "2"], "-",
% E4 F( e: G5 t: X) n SuperscriptBox[
" I8 r4 ]4 ]# [' M" U, `- B RowBox[{"(", 6 ~7 [+ V% |) v: k1 L, k8 Z/ s* W
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", * e5 {# z) n9 P3 b$ ]! b
SuperscriptBox[
# n5 h0 n5 c* A. J' t+ ] RowBox[{"(", : O: w6 k5 o) S8 _* M1 X
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", " j! h0 p( k ~" n+ x' ? {: k+ S- Q
SuperscriptBox[( G; q% @6 _1 b5 R
RowBox[{"(", & s2 q8 [- w! C- m1 E& \
RowBox[{" p3 F* x7 \3 O5 K' I2 M' c4 R' o
RowBox[{"-", "0.672709`"}], "+", "x8"}], ")"}], "2"], "-", % q' M5 E f! t( M
SuperscriptBox[
+ G4 B2 b7 Z- `- O* Q RowBox[{"(",
, D% \: i; |% x8 C" S7 S7 ^) x! X. q" y RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
9 Y! W0 a! z9 c/ T ")"}]}]]], "Output",
$ g: B& N3 _7 f: v5 A CellChangeTimes->{3.5779616594029837`*^9, 3.578012287609375*^9}]* W+ B: `- \0 W; b# L6 h f
}, Open ]],3 w( x7 q5 Z J4 Z. G
- @9 t5 B3 ]( VCell[CellGroupData[{. S- g9 t: }/ h5 ^" @# ~
# m$ U# y+ z {7 Z( g7 v b
Cell[BoxData[{
0 Q0 H4 D- E8 p% d7 ^$ a7 U RowBox[{"C13", "=", "Ca"}], "\[IndentingNewLine]",
" e& P# l" m0 u# }9 h5 D RowBox[{"u13", "=", V8 f4 {5 x8 J" x# g, f
RowBox[{
9 E. v/ e1 Z. Q+ F0 w+ `) x, A( d RowBox[{"Exp", "[",
/ r' j& d6 J, X6 Y3 `0 X* W: _ RowBox[{8 _! m6 X L' \
RowBox[{* Y, d5 I7 c+ O- [; M4 c2 l
RowBox[{"-",
; K K+ d2 S/ k5 u- q6 ` RowBox[{/ Q/ t6 d( m L% t9 d9 E, l
RowBox[{"(", 5 u4 e$ h5 |4 o- S
RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
$ f, y: W% B$ K6 ^ RowBox[{"(",
6 t0 @$ j1 b! M2 ^ RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
& [# o: p( I5 ?$ f4 h! s. c0 y "]"}], "/.", "DeltaX"}]}]}], "Input",/ S/ B% q1 R7 s0 {2 H9 x7 ?+ r/ P
CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {. p5 n2 B3 [+ B |$ ]
3.57796154237158*^9, 3.5779615599684105`*^9}}],) A: e/ e; D8 r
* b& v$ G ~$ y9 Z$ [7 ?% ~
Cell[BoxData[! t; H6 m& ~ i9 B0 y: b
RowBox[{"{", 5 e# g1 z. Z8 A6 |# s/ t8 l8 L, Y
RowBox[{
. _* ~& r5 ]3 i2 n: }9 U) K/ S. B; p "0.73913`", ",", "0.193199`", ",", "0.160584`", ",", "0.037907`", ",",
g; _. E/ C' l7 b- k9 [, u "0.461538`", ",", "0.`", ",", "0.684553`", ",", "0.`", ",", "0.`"}], & C( P4 s: c4 s$ p+ F
"}"}]], "Output",
3 E4 s: Z8 U( W9 r# G. }6 y CellChangeTimes->{3.5779616928806424`*^9, 3.578012300078125*^9}],2 c4 R# ^' J1 g3 O% F; _; }
# [2 ?7 n9 \1 z% c# P: V* E2 @3 yCell[BoxData[
( ^/ I! ]) {. Q' ` SuperscriptBox["\[ExponentialE]", 2 X) c& P) l% M$ M, E: b$ H
RowBox[{"3.141592653589793`", " ",
7 X# d- k( U9 p& {7 S/ g# l% F; ? RowBox[{"(",
9 t1 U- U! G' Z; r3 z RowBox[{
9 y; Z/ m" @3 Z! s$ S RowBox[{"-",
! Q3 a, h( @& C$ [ SuperscriptBox[
% o8 }! L6 r) u7 ~. ?8 C' b: y RowBox[{"(",
( i. i# U+ i( `1 O RowBox[{, [6 i0 {% C) L" b/ c
RowBox[{"-", "0.73913`"}], "+", "x1"}], ")"}], "2"]}], "-", ' A, P" d1 \6 q A, S1 o
SuperscriptBox[2 Z3 y& h9 {6 G+ q6 `' E
RowBox[{"(",
2 d- n- o; v' H* X2 Z" u RowBox[{
- ^; A* n0 P& X7 i: A+ L RowBox[{"-", "0.193199`"}], "+", "x2"}], ")"}], "2"], "-", * V( }$ T1 b+ K3 K
SuperscriptBox[1 x8 {) R( F9 ]9 r1 r
RowBox[{"(",
' X" a$ u- h3 D6 q9 v$ u RowBox[{3 m! j D9 m0 e! F) Y W+ g8 t
RowBox[{"-", "0.160584`"}], "+", "x3"}], ")"}], "2"], "-",
! o3 M8 N: M, x5 l2 \- h SuperscriptBox[
; E6 p" k4 i1 X& l2 D% R4 r1 B: b RowBox[{"(",
& D2 h2 D9 @' N4 R7 j$ F. F8 |1 v RowBox[{
' d) U. j+ c* [1 R; W+ b RowBox[{"-", "0.037907`"}], "+", "x4"}], ")"}], "2"], "-",
: J: v; e {5 S5 ]$ o2 w% R- A, v SuperscriptBox[
* P9 x+ j* u. n RowBox[{"(",
7 E; m. s2 c( U7 q" F H8 U RowBox[{7 K4 {' Q( Z6 H/ v6 Q9 i
RowBox[{"-", "0.461538`"}], "+", "x5"}], ")"}], "2"], "-", . t; W& x; S% _. X
SuperscriptBox[ n1 [6 G" X) [7 q/ P- A
RowBox[{"(", & G( X( G1 l! K2 {' L. u4 _
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", 2 G' I0 I6 l$ D4 p/ [" m
SuperscriptBox[
5 c3 U! N6 d4 g4 f% X RowBox[{"(",
( B8 ^$ f6 F8 ~/ h3 U" ^% c/ H- V RowBox[{
/ s7 `6 {& ]) G5 h& w( }" t P RowBox[{"-", "0.684553`"}], "+", "x7"}], ")"}], "2"], "-", M7 K9 h' P! \
SuperscriptBox[, _9 {( t% z+ g1 c- `8 P
RowBox[{"(", - z5 C! g8 ^( l" h! |
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
9 C/ a& [( u: ] SuperscriptBox[
, |) ~' D" g G0 g7 [2 l3 [ RowBox[{"(", / d- l$ K5 L; |& W$ _
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
- o) Z2 O6 c0 |" P. l1 l ")"}]}]]], "Output",
* x% J9 k& b* [. W& Y CellChangeTimes->{3.5779616928806424`*^9, 3.578012300078125*^9}]0 L8 p% I( x8 K1 B5 ]
}, Open ]],* X0 K7 e% U D7 Q8 f
8 w% [% Q0 K9 J
Cell[CellGroupData[{: i5 X: y$ k3 b5 ^! V. j0 S# K9 n
# G) `* D8 f0 \( qCell[BoxData[{8 o; [% Z. g+ V7 b
RowBox[{"C14", "=", "Ca"}], "\[IndentingNewLine]",
2 l3 K" w$ V* k/ ^* c. b( q RowBox[{"u14", "=", " X3 J9 u g/ b2 Q0 T X8 r
RowBox[{. k. P; ~4 d3 |( ]& O$ ~* `+ i% ]
RowBox[{"Exp", "[",
6 [8 m2 d _$ Q* ]4 I" X, u) P& u1 s RowBox[{$ o- o! O, _7 k3 h2 `" Q
RowBox[{
" G; V' A1 X- [. ?. h RowBox[{"-",
8 }7 k) A( h/ R5 h RowBox[{' f+ J a0 |5 r8 E0 ^& j4 @* ?
RowBox[{"(", 2 x) b7 F( b# e3 \
RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
( [* G% d% p; F) p' f1 M RowBox[{"(", 3 ?8 b! G9 e/ S/ A
RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
* x$ A% r. Z; B, C: L "]"}], "/.", "DeltaX"}]}]}], "Input",
/ D* y* ]1 R. h0 X& { [ CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
: v7 P+ F4 Z; x! W: M$ { 3.57796154237158*^9, 3.5779615663176217`*^9}}],' q1 D3 i8 S L$ I3 j( J8 p5 K
2 h& j. I; I, _2 ~4 [% pCell[BoxData[
/ r9 i- H6 b6 K8 S- q* a2 b RowBox[{"{", k% [, K1 F* } d" @# {+ L, o+ r
RowBox[{
& o9 H+ R% _. S0 P "0.826087`", ",", "0.203969`", ",", "0.234619`", ",", "0.27224`", ",", 1 d* e* X }, G. l* m
"0.265734`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], 4 S/ m }) V, O; B! o6 A
"}"}]], "Output",
+ `/ n" e; L b& b CellChangeTimes->{3.5779617235034957`*^9, 3.57801230559375*^9}],- D5 _& [* Q* t* `# [- {+ \
# g% A: X$ E3 D4 [4 j6 M' KCell[BoxData[
! q$ ]0 w6 B. I' k3 v SuperscriptBox["\[ExponentialE]",
& y8 q4 v5 V5 g4 Q, Z c# G* u+ e! l RowBox[{"3.141592653589793`", " ", 0 \) r, S. |3 O2 C; Y
RowBox[{"(", ' d8 L8 K& {8 O, J
RowBox[{
, |5 A4 e# l9 o0 e% P5 Q1 x RowBox[{"-",
. B( i5 E9 [ |: W5 i3 Z SuperscriptBox[% F- K( C t- i8 }
RowBox[{"(",
1 T; W( C0 t1 o, H6 i RowBox[{7 Q3 {4 x1 ^4 x: m
RowBox[{"-", "0.826087`"}], "+", "x1"}], ")"}], "2"]}], "-",
( ~/ K% `1 r3 ?0 M' c& Z/ ~ SuperscriptBox[3 l+ k% E4 n( D1 c
RowBox[{"(", 0 _7 p5 U9 s+ E; a$ W; U
RowBox[{9 ]4 H$ \1 Z' v1 r& Q) {
RowBox[{"-", "0.203969`"}], "+", "x2"}], ")"}], "2"], "-",
: P j4 c8 H2 L, ^" O& H SuperscriptBox[
" r: o9 ]) u: v0 [8 ] RowBox[{"(",
0 P: ~1 r4 c1 h/ l/ C7 p0 n, e" Y RowBox[{7 ~. O2 e8 X" c2 a% }
RowBox[{"-", "0.234619`"}], "+", "x3"}], ")"}], "2"], "-", + ?( @/ ^- e! l1 `$ E8 M4 B @
SuperscriptBox[- Z9 P- x0 |7 U, u0 _. L
RowBox[{"(",
$ _8 i9 R. |; a# `; C RowBox[{' f8 e9 h1 e- d% I. r( G$ c" i3 r
RowBox[{"-", "0.27224`"}], "+", "x4"}], ")"}], "2"], "-", 1 t, h3 j9 g/ \6 \8 }! V3 W
SuperscriptBox[
, V3 w9 f/ |/ k6 [9 l* C RowBox[{"(", ! y z; f, k. d
RowBox[{$ T6 b# d( {, P
RowBox[{"-", "0.265734`"}], "+", "x5"}], ")"}], "2"], "-", 8 }- s& q) }5 l! U0 {8 h% r
SuperscriptBox[
; | A- _. L5 J3 k RowBox[{"(",
" a P% i$ Y6 r7 X RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
/ L3 c. T' x2 Y* F$ K! g SuperscriptBox[7 r9 ^* ~3 h) q+ R$ M6 h2 M
RowBox[{"(",
9 Y; Y7 m! c. C H RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
/ G7 h* D. c7 G: u SuperscriptBox[! W7 }) ]7 n$ h3 o: t
RowBox[{"(", 5 Z2 Q7 |; E, \6 `/ I
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", 8 u6 `7 [( P9 E$ i: _; @$ J
SuperscriptBox[
' \9 o( z" D/ y' O( K! n) S RowBox[{"(",
3 c! ?# W0 e% J9 G" w x$ i# f4 ~. | RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], ) S7 P% F+ k# t
")"}]}]]], "Output",
# O* n! m3 I4 M Q9 y: p; F# P CellChangeTimes->{3.5779617235034957`*^9, 3.578012305609375*^9}]8 c4 {4 p/ m: G2 x
}, Open ]],
0 @! B7 y* Y3 E! e" |$ ^9 H, Q* `: L6 ~) ]8 u2 Y N }+ r# c9 E. \
Cell[CellGroupData[{3 M6 {1 l# f6 v# b O) m
% v) h2 S8 R1 y7 l
Cell[BoxData[{
1 v! b8 v5 n+ T5 Y& m2 q% H RowBox[{"C15", "=", "Ca"}], "\[IndentingNewLine]", , d# ?7 p1 @: b' a- V
RowBox[{"u15", "=",
8 ]( F- Y2 j. i7 r- W! u4 ?5 j6 ~ RowBox[{
% C2 f; T# E7 T3 G( Y: R RowBox[{"Exp", "[",
$ K+ z( N3 H! B3 J" l RowBox[{7 ?: Y& N- z6 o9 C9 p8 U
RowBox[{
: O+ p1 ^ ?0 e: A K7 L RowBox[{"-",
8 B# S! j5 h, C' Y1 _, Y RowBox[{% x" S# q) a. t5 U+ z' R& m
RowBox[{"(", . O, D$ r; W5 s, W6 j
RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
7 h4 C6 D$ U: m& T6 k! ?: K RowBox[{"(",
" N4 n) [: S t+ K) R+ p RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],4 j* p# Q, A, V' k% B) g# \/ S' s. O" d
"]"}], "/.", "DeltaX"}]}]}], "Input",- ]9 |5 }! U2 U: q- k' `
CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {+ |% O+ O% Y: Y* x4 H5 A
3.57796154237158*^9, 3.57796157098203*^9}}],
1 \- L1 U$ v: N5 O+ @
4 r, }- `/ O7 ]# Z6 V8 |% x; gCell[BoxData[1 H1 ~# U0 a5 E
RowBox[{"{", ; l2 o+ W+ Q, g
RowBox[{' r Y1 p+ P* e' k/ B- |
"0.413043`", ",", "0.551859`", ",", "0.544826`", ",", "0.230503`", ",",
1 B" s. b4 T' ^8 _9 j4 V "0.244755`", ",", "0.53052`", ",", "0.819512`", ",", "0.`", ",", "0.`"}], / w7 l' O: c0 M+ o2 Y Q1 J8 y/ }
"}"}]], "Output",
9 a* |1 |! d8 u CellChangeTimes->{3.577961751599145*^9, 3.57801231003125*^9}],
+ O/ Y2 N6 v* J( l4 q1 T
4 i5 m- }5 h- e, w0 C4 ]Cell[BoxData[
' V, h+ E- w4 H8 F SuperscriptBox["\[ExponentialE]",
/ K' R) X$ P1 c3 u% Q9 z RowBox[{"3.141592653589793`", " ",
7 k6 l" v4 z4 f% G, P) m% ?" p RowBox[{"(",
1 d" R R: e2 l2 E3 g RowBox[{* i% J- f$ ?4 B' K; S: d% y
RowBox[{"-",
0 m9 y& n9 ?: v& ] w' T4 _- P4 X SuperscriptBox[
1 R: [) Z9 d6 a) s RowBox[{"(",
+ T& O0 s( K6 i0 K RowBox[{
1 |* q: E/ d J, I0 [8 M RowBox[{"-", "0.413043`"}], "+", "x1"}], ")"}], "2"]}], "-",
& f+ _" w. ^ E! F k SuperscriptBox[( }9 L& P. H" ^: d
RowBox[{"(", ) v$ e( c7 a1 q+ G5 q' x/ C
RowBox[{5 D' y* @* g g# o h- n
RowBox[{"-", "0.551859`"}], "+", "x2"}], ")"}], "2"], "-",
0 c9 q ^2 c1 U0 i6 s SuperscriptBox[
8 z1 l N/ a. c H3 B7 I RowBox[{"(", ( Z* I) w6 B; V) C- r6 I
RowBox[{
" k! F! K7 ?6 J6 _8 Z9 w' s RowBox[{"-", "0.544826`"}], "+", "x3"}], ")"}], "2"], "-", 4 v' x" s# i% u- ? `( r
SuperscriptBox[( U3 T4 _ h. i
RowBox[{"(",
! y& p) N% K( s: J6 a+ k RowBox[{: w( T6 ?! q1 ]% E- {( K# F q, Q
RowBox[{"-", "0.230503`"}], "+", "x4"}], ")"}], "2"], "-", , X+ H% L+ R( }
SuperscriptBox[) c5 G& k3 v) Y
RowBox[{"(",
: ~! D0 H8 G( }) y9 x! F& A RowBox[{ H$ ? k# R, E1 E
RowBox[{"-", "0.244755`"}], "+", "x5"}], ")"}], "2"], "-", + |" b4 \% I) P/ r h- W
SuperscriptBox[
4 m$ `: v: Z: C: n* Z Q RowBox[{"(", 4 H8 ?/ z% G6 a3 l; U7 H# P
RowBox[{
2 j; I: v! ^7 R* s i! e8 U5 s% ] RowBox[{"-", "0.53052`"}], "+", "x6"}], ")"}], "2"], "-", / x8 g2 @, j$ I
SuperscriptBox[
% ^) t% d4 V! x/ w- p3 W3 Y9 r RowBox[{"(", 5 M' e3 D1 i# v! Q' K2 n0 \8 E
RowBox[{
$ e: A; s6 ], O4 ]! J$ \4 N RowBox[{"-", "0.819512`"}], "+", "x7"}], ")"}], "2"], "-", $ k- Y( ~' \( D9 ~2 ~
SuperscriptBox[
/ t2 f( L8 Y6 [! ? RowBox[{"(", # M$ y, j. x8 ~& s# S) x$ d4 R
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", 9 }! L9 i5 f$ Q& d6 {
SuperscriptBox[
; z6 J0 E- V4 r' `" J8 u RowBox[{"(",
9 l1 Z4 f+ Z9 ?$ d: o RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], / z1 S- T+ Y$ ?$ f& ~/ Q
")"}]}]]], "Output",; U2 u; n: Q* U
CellChangeTimes->{3.577961751599145*^9, 3.57801231003125*^9}]* L) x3 K7 n8 c! r5 B7 N) l" i
}, Open ]],8 t5 l6 j M/ ]
) }+ a7 Q* z0 O: \$ F
Cell[BoxData[+ [; D. K. F1 ], V% b% t% r; A3 W* ]
RowBox[{"For", "[", 4 V" z; N2 N9 _
RowBox[{
7 t1 r! E9 N2 L/ b& a6 a/ d RowBox[{"i", "=", "1"}], ",", " b ^6 x- j. _4 s6 {! M( l# [. W
RowBox[{"i", "\[LessEqual]", "9"}], ",",
, _4 O7 k8 g1 L1 V: M# f RowBox[{"i", "++"}], ",",
: A: e2 n0 {( b' i# s/ [ RowBox[{7 ~) @! \! s% n% v0 {
RowBox[{"Ca", "[",
4 f' y' W& \$ ]. U+ W; N, J8 b( t$ X RowBox[{"[", "i", "]"}], "]"}], "=", 2 C1 G+ l) V2 e7 B- z
RowBox[{"CM", "[",
7 ?% Y7 o7 c9 p8 V) ?( A7 ? RowBox[{"21", ",", "i"}], "]"}]}]}], "]"}]], "Input",9 d: [4 v- ^3 }
CellChangeTimes->{{3.578012202078125*^9, 3.5780123368125*^9}}],8 F* @! n) q# ~) m A0 \
# A3 G9 p! p' A OCell[CellGroupData[{
9 E+ Y* A! f6 t3 D8 d6 P3 Z+ V' x' }( _* c! d
Cell[BoxData[{' n$ ?2 B; f/ _, P0 K
RowBox[{"C16", "=", "Ca"}], "\[IndentingNewLine]", 6 ]+ ~* h6 I8 O1 A
RowBox[{"u16", "=", $ V0 v& A9 [2 I+ A$ a
RowBox[{
+ r v$ n# @' K5 o2 W4 ?2 d RowBox[{"Exp", "[",
/ P! r9 D0 d; z RowBox[{
7 v3 h% k. @; {- Q0 H RowBox[{
( x) |; V* Z1 N: {0 p RowBox[{"-", + E# {' {/ c& F4 h' @/ |) t& N; W
RowBox[{; z3 F9 p: |( L$ s3 Q' b F
RowBox[{"(",
% D- J4 A3 L# n W# \4 X RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
/ X& o0 v5 P; w( \) s( @ RowBox[{"(", 8 i6 h/ F1 A# ^1 m8 O
RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
' p* i* f6 i/ N& D, c( i "]"}], "/.", "DeltaX"}]}]}], "Input",
2 A. D) c, H8 @7 i- c- c CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
% D$ I% z& U, ^7 x 3.57796154237158*^9, 3.5779615434011817`*^9}, {3.5779615741020355`*^9,
4 U& g4 o6 q- V% W 3.5779615751004367`*^9}}],! ^+ d0 [( y" N0 a& r
: ~: g' @& l! I2 I$ `Cell[BoxData[( e1 n) a W1 r3 l. F5 }' x
RowBox[{"{", # I: E0 O: a% }9 n) g
RowBox[{
' Y7 {6 P! S8 l "0.434783`", ",", "0.551785`", ",", "0.530346`", ",", "0.151651`", ",",
- \* \% Q# A: Q3 ?: L8 W "0.79021`", ",", "0.529013`", ",", "0.409756`", ",", "0.`", ",", "1.`"}], % [; u/ w3 F) A/ b; _
"}"}]], "Output",
: c/ H: b. [3 C3 @ CellChangeTimes->{3.5779617754359865`*^9, 3.578012314984375*^9}],
: c, q* [; B( B9 Q+ Z' y7 G7 ]! u# F/ |. u# l0 o; j0 U; \
Cell[BoxData[: T, x+ I% ?% ^. W5 @
SuperscriptBox["\[ExponentialE]", 4 w$ O4 x- G# M2 l/ ~ |* s
RowBox[{"3.141592653589793`", " ",
& a- N& j6 U# `6 P RowBox[{"(", 8 t3 C& B0 N8 ?! n5 m
RowBox[{
' F" N7 ~7 j3 t2 @ g9 k RowBox[{"-",
" D* u) _5 ?- \ SuperscriptBox[
1 }4 }" k; l1 R% s5 t# V7 K- s8 s RowBox[{"(", 3 K5 y6 q; B: N% Q5 Q x! R
RowBox[{% x5 \6 ^( Y0 a, g6 k9 h& c% f) `$ L
RowBox[{"-", "0.434783`"}], "+", "x1"}], ")"}], "2"]}], "-",
9 m$ _1 J7 T* F( V0 b SuperscriptBox[
q! N4 P4 S) i, B2 S RowBox[{"(",
% G. q3 O/ N8 {. `5 S3 ` RowBox[{
: F2 d0 a0 d, ~) h! N4 o RowBox[{"-", "0.551785`"}], "+", "x2"}], ")"}], "2"], "-",
& G! b- N5 k' s% m% i# O" |+ ` SuperscriptBox[
! _6 b/ f) |; b: S* d8 W0 o. A8 Q3 D RowBox[{"(", ' [3 A( ?% r& A8 H# b7 a
RowBox[{
1 b8 u6 s" s- `# p RowBox[{"-", "0.530346`"}], "+", "x3"}], ")"}], "2"], "-", * P/ _/ I9 f) D" ?9 C
SuperscriptBox[
7 i, X3 y+ A! \# @" S' A RowBox[{"(",
, W ?) Z) ` o) t' x/ ^ RowBox[{
' X; D/ Q4 }. {% l RowBox[{"-", "0.151651`"}], "+", "x4"}], ")"}], "2"], "-", $ |& Z$ r; F" k4 X% t2 Q
SuperscriptBox[' c# \! @. r6 d/ b4 F
RowBox[{"(",
; O" v' I/ S0 @' m3 t4 f6 E RowBox[{
. Y' R4 j' \# b5 C1 D RowBox[{"-", "0.79021`"}], "+", "x5"}], ")"}], "2"], "-", : \$ O& U8 V4 }
SuperscriptBox[: A) `& s! g5 e9 u d7 Q/ b
RowBox[{"(", " n2 B E) P8 w
RowBox[{( U0 I" g7 Y0 v* g P! \: @' K
RowBox[{"-", "0.529013`"}], "+", "x6"}], ")"}], "2"], "-", # d! n. s$ B. K
SuperscriptBox[
% B1 m% n; X T p1 I4 ^. ] RowBox[{"(", * d" e0 ?3 P2 T M/ ?9 X" {
RowBox[{
3 B. s" r! t# g1 [ Y RowBox[{"-", "0.409756`"}], "+", "x7"}], ")"}], "2"], "-", 8 m! z1 n3 B! Q/ P
SuperscriptBox[
9 J# B$ m* N( {* d; S RowBox[{"(",
" G8 R2 K' }8 e RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
9 z2 s7 n1 T3 p; n) a# ^# G* B8 H SuperscriptBox[
* `! d- u) C1 z% N1 N RowBox[{"(", . ?2 T! H9 J. J4 g A8 v/ A4 A
RowBox[{! X; X$ N0 [7 w5 Z
RowBox[{"-", "1.`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]], "Output",
& j# a$ i* C$ E5 L. F* t) s CellChangeTimes->{3.5779617754359865`*^9, 3.578012315*^9}]
2 a' a) y: K& d" r& L. j}, Open ]],
" w' T3 e ~- N* ?; q5 V8 P% Q, Y- a8 R; h8 h5 |
Cell[CellGroupData[{
* A) s# ^2 O/ m0 r1 Y) m* ~$ T7 F/ O1 x' R' D* X3 g/ Q
Cell[BoxData[{
- K5 ]. {( X) V RowBox[{"C17", "=", "Ca"}], "\[IndentingNewLine]",
J) k6 N! ]% D. m RowBox[{"u17", "=", # }, Z* ~' K; i. |+ i
RowBox[{
0 k4 n% B$ M/ g RowBox[{"Exp", "[",
# [' B0 Z9 b4 Y RowBox[{. R+ e, S p2 j4 B% @! @
RowBox[{$ h1 o7 D5 n+ v
RowBox[{"-",
7 Z$ E5 i& Z1 q RowBox[{
0 I/ v, ^4 p# J+ c RowBox[{"(", 7 \ Y6 X; j9 ?* ]* m& S7 ~/ M
RowBox[{"Xa", "-", "Ca"}], ")"}], ".", 3 o* Z1 {, h7 z# s9 k8 T( D
RowBox[{"(",
1 W( ?2 N: M9 R$ ? RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],9 i5 c" w6 i8 @. ?! Q3 `( e
"]"}], "/.", "DeltaX"}]}]}], "Input",
% R6 w+ p6 o, l! @1 I r6 Z CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
* X9 u N9 ^* \5 `+ [+ H; P6 j 3.57796154237158*^9, 3.5779615434011817`*^9}, {3.5779615779084415`*^9, ! {6 k- ]/ f7 x5 I
3.577961578953644*^9}}],3 f- y2 u& j' s% L+ n$ h3 O: n! t
/ O9 i8 e2 b6 @( B! Q
Cell[BoxData[% k: j e/ t K) p6 t5 x
RowBox[{"{",
& K( n+ A, u0 v2 \ RowBox[{
: L+ m. ]$ a- |. S& g "0.347826`", ",", "0.705444`", ",", "0.109343`", ",", "0.072008`", ",", * J- ^6 E' l' q6 u3 p
"0.496503`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.752567`"}],
! c. i1 H. j# @# v% P "}"}]], "Output",* I+ _/ l' p; J
CellChangeTimes->{3.57796181215845*^9, 3.578012319296875*^9}],* O7 b6 K q7 d: \1 s
5 e! u7 Z9 i1 g( g1 vCell[BoxData[2 w/ R. R; I4 p: p. g
SuperscriptBox["\[ExponentialE]",
; A& Z7 K' ?( H5 Q+ h, O Z( p RowBox[{"3.141592653589793`", " ", . P1 U8 I0 g. T% h& M
RowBox[{"(",
" l" n( C+ n8 U" \2 C RowBox[{
8 o" q3 M6 A% R( W: @- c. l8 P RowBox[{"-",
4 J& G& e a( x( S SuperscriptBox[
2 v2 x7 h O9 h4 K' { RowBox[{"(", 5 Q r8 i! R5 J& D: U
RowBox[{9 I- n# q& C& t) w+ u6 z' y/ a Y7 }6 K
RowBox[{"-", "0.347826`"}], "+", "x1"}], ")"}], "2"]}], "-", , L0 K+ I" P( y, r* ^2 b
SuperscriptBox[
1 o4 |; P8 _: c+ W' Q9 ^1 j RowBox[{"(", 6 T4 k# Z1 \. R" e! n
RowBox[{4 D K' a; Z/ {! {* F
RowBox[{"-", "0.705444`"}], "+", "x2"}], ")"}], "2"], "-", 9 u$ o" K) k& R; f% J. j1 d7 G
SuperscriptBox[! N; b ]- |# E- @( J
RowBox[{"(", & _4 \% _" q1 p6 n) n) ?
RowBox[{ s2 U3 Q$ ^- ^$ f
RowBox[{"-", "0.109343`"}], "+", "x3"}], ")"}], "2"], "-",
1 i, T; R! ]4 _5 P6 C& s SuperscriptBox[+ X7 D' E/ l- P, |! N
RowBox[{"(", 9 S; a2 k1 P n9 |
RowBox[{# B4 N9 W' H0 b) K1 y2 _4 Q# ?2 }9 u
RowBox[{"-", "0.072008`"}], "+", "x4"}], ")"}], "2"], "-", ' h2 N4 C/ M- K& O h$ b
SuperscriptBox[" k ?2 Q0 p2 F" C* U/ r/ t5 n
RowBox[{"(", ! T0 o0 k( K. w" |2 `, l+ }6 {; P
RowBox[{! F+ K$ x/ `8 y
RowBox[{"-", "0.496503`"}], "+", "x5"}], ")"}], "2"], "-",
* f& H, H; ]5 h: e* z SuperscriptBox[
* [) l5 z( a' L. d9 ]3 [, M RowBox[{"(", 6 |1 ]7 C: i2 }5 L' ~0 b" P
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", ( \4 `4 l0 |) U, B* T* g- S
SuperscriptBox[4 v6 Y9 J& y T B; K
RowBox[{"(",
* j- `% Q6 Z/ D, w' o4 E$ A RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
7 i2 z( ?% V7 C& _6 S$ v SuperscriptBox[0 |* U6 S8 U" _4 J6 D
RowBox[{"(", ! y( `8 X- E( I: y
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
' n# T% Q8 w/ \ SuperscriptBox[
3 \6 c. x; V" T9 n8 n+ t RowBox[{"(", $ t# I( i1 T9 l+ E" f
RowBox[{7 n# C) F8 s& \6 X; J$ C' f
RowBox[{"-", "0.752567`"}], "+", "x9"}], ")"}], "2"]}], # m W& x( C, \; a0 H3 Q) b
")"}]}]]], "Output",7 a7 E" c& {5 K( T( h4 e# c
CellChangeTimes->{3.57796181215845*^9, 3.578012319296875*^9}]1 H0 Z( x# L. x( N6 Q% a
}, Open ]],6 y. \4 X8 _ S @! @6 n3 z. r
j2 I, `$ Y s% w. Z; M& f% UCell[CellGroupData[{
7 q6 S0 z6 m" s4 h: O* q" T
9 b! k* e$ x1 yCell[BoxData[{" ?- G' v7 r, ?7 {
RowBox[{"C18", "=", "Ca"}], "\[IndentingNewLine]", / G- u8 s0 C! U2 t6 v& U
RowBox[{"u18", "=", . \6 G( [4 m- z9 A
RowBox[{
% M1 K* w6 { j- A6 d- Y# U RowBox[{"Exp", "[",
T2 Y9 \( S! c, H; r1 b RowBox[{
1 d/ X) R- q. m9 I8 N+ s RowBox[{
% Q) Q- \: ]$ `! M. L$ u) w RowBox[{"-", ! k% N. |. P5 E! z3 _, h5 T3 n; ?& T) P
RowBox[{6 d! `% b) X& x3 u! [
RowBox[{"(",
& T. m- i: e% a7 }( f& g RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
. Z4 O6 k( W6 W) N- p9 k- I/ d( n; E: A RowBox[{"(",
1 \( e* P( h& ?$ h( z RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],+ f0 f: G; |* ]' O: J8 o
"]"}], "/.", "DeltaX"}]}]}], "Input",; {0 I6 @" m6 y* U8 y3 `1 h7 _+ P& a `
CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
) W5 V. \( t9 V1 B+ x2 R 3.57796154237158*^9, 3.5779615434011817`*^9}, {3.577961581886449*^9, ; f/ z. c J9 C* a5 C3 v" ~ \
3.5779615828848505`*^9}}],) c& v( u& v& h. t
( B) J1 R" w, R! k% @7 T. E
Cell[BoxData[
! ~7 c) V3 n! W2 k5 d+ q RowBox[{"{", 2 a& h$ D( e }% G" M {3 j& I
RowBox[{" x( e, R) A& S1 z
"0.173913`", ",", "0.984656`", ",", "0.420753`", ",", "0.137022`", ",", . {/ }& l. f6 }+ m# q
"0.321678`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}],
+ r# z. [- z$ o7 y7 V( s "}"}]], "Output",- }/ g2 R& i/ K4 a4 A8 t
CellChangeTimes->{3.577961839926499*^9, 3.57801232378125*^9}],
7 U. ~" g& w0 ?' _- c
" Q7 H, j$ w' B4 G0 YCell[BoxData[
- x' f9 z2 `1 j2 u9 e [& R SuperscriptBox["\[ExponentialE]",
: [, @) n( A$ ]0 p RowBox[{"3.141592653589793`", " ",
5 o. T& o' C) L0 x RowBox[{"(", " P- v- o) _; y8 @ Y
RowBox[{' W' n/ d- _/ k K' i
RowBox[{"-",
( s) b+ ]& I0 f7 I& G2 `' f SuperscriptBox[$ e+ R/ ~. Z/ Z" t
RowBox[{"(",
9 f: _7 f. g `+ L' Y* l" c RowBox[{
- u- K, B% B: a3 q& F RowBox[{"-", "0.173913`"}], "+", "x1"}], ")"}], "2"]}], "-", ; K$ ?) R8 j7 E6 D5 R
SuperscriptBox[
6 }2 O0 X& S8 `7 y/ w& T$ a RowBox[{"(",
( N1 Z- s! Y1 i- j [8 x RowBox[{
4 f" a* d4 ?) b& ^% s5 Z& g RowBox[{"-", "0.984656`"}], "+", "x2"}], ")"}], "2"], "-",
9 R( Z/ y3 ?' k Q$ B/ ?% E& z& q SuperscriptBox[" w3 o- z1 G1 @: U) O0 n
RowBox[{"(",
. ?2 Z" V* G" L9 L RowBox[{
8 q% c( t- B9 V% E RowBox[{"-", "0.420753`"}], "+", "x3"}], ")"}], "2"], "-",
, S& |* l& ?+ X, N# f) p SuperscriptBox[
5 p# I- K. d d0 S RowBox[{"(", : v, y/ [/ c* O$ I! ^: k
RowBox[{6 C7 v' [4 Q2 M8 v j
RowBox[{"-", "0.137022`"}], "+", "x4"}], ")"}], "2"], "-",
1 f$ u5 ^8 } e SuperscriptBox[9 F! d3 h5 u6 x3 e5 @
RowBox[{"(",
" \ j; |: N* z+ } RowBox[{3 U% h6 b3 ~3 m5 r% ^, w
RowBox[{"-", "0.321678`"}], "+", "x5"}], ")"}], "2"], "-",
- O' {1 m: j) c0 h SuperscriptBox[% ?2 } k% S V2 C
RowBox[{"(", ; ?$ Q% d! X0 N# D; K$ q: R
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", ! {6 k, X- p) u0 V- {. v& k
SuperscriptBox[
+ E1 A* r2 F7 R' \8 f: E2 k RowBox[{"(", ( Q" @8 d1 V( d0 F! `: N
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
( @* x: D; [7 D. a5 w# ^( m8 V' p SuperscriptBox[5 P+ V6 Z3 i3 D
RowBox[{"(",
! R7 V T& w# k( b6 R0 d3 U RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", + O! D% r" F ]& K& r) I: {+ {- i$ l
SuperscriptBox[
. F, {$ Z! s! z# p, C: } T( l, W RowBox[{"(", : p6 J M1 x2 A2 r2 C. b) L6 t
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], 4 o5 Y, p3 S- a/ P
")"}]}]]], "Output",% h" `* K( A9 @
CellChangeTimes->{3.577961839926499*^9, 3.57801232378125*^9}]( N" v) Q( _9 T2 I' s
}, Open ]],3 w1 z/ M% U( p
+ B% N/ o/ u, ?- |% C
Cell[CellGroupData[{
9 k. v+ C9 S, \8 H
, Q9 c9 I# Z8 ~Cell[BoxData[{
! K6 X! f* q2 ~ RowBox[{"C19", "=", "Ca"}], "\[IndentingNewLine]",
1 o% Q! s, Q' w, @7 D RowBox[{"u19", "=",
2 n$ J! P n U RowBox[{8 n7 m m4 Y- z( p- ]7 t+ e4 \
RowBox[{"Exp", "[",
5 H" e$ x/ k# N( _6 U; S RowBox[{
]* J6 V2 u+ p/ K6 M: A9 d, R RowBox[{
7 |- i" O; n, \4 Q- T5 S RowBox[{"-", , P+ _. M3 w, z. y) n5 p
RowBox[{
( f5 O9 G' v; ?& V$ P6 w7 G RowBox[{"(",
2 H3 p$ g% J2 d9 [7 m/ Y1 `) j RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
5 X M0 D8 Q* @! o2 b1 N. m RowBox[{"(",
" P8 @" y0 B' r, v4 r& ?5 n RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],$ a. `! l& L8 |: \ k/ G2 u- |
"]"}], "/.", "DeltaX"}]}]}], "Input",
4 A2 E4 k9 J5 o3 }4 ? CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {! @% C8 f( ]6 q8 c
3.57796154237158*^9, 3.5779615434011817`*^9}, {3.5779615879548593`*^9, ! Q" j3 x' Q; }* k; v8 |
3.577961588890861*^9}}],. s0 f! w: p9 y1 q
9 b4 e- m9 ~3 F0 h
Cell[BoxData[+ c; j& ^( \/ l* E* p/ V
RowBox[{"{",
- s' f* ~8 B& _( W% t* `1 T RowBox[{
; v0 u( V- M( s+ M "0.391304`", ",", "1.`", ",", "0.452931`", ",", "0.150909`", ",",
. l6 K- Y. w. V; x$ G h3 C" H1 Z "0.342657`", ",", "0.370761`", ",", "0.`", ",", "0.509567`", ",", "0.`"}], % U a2 t d3 }+ J- ?
"}"}]], "Output",9 p8 S) `+ ^/ a
CellChangeTimes->{3.5779618714853535`*^9, 3.5780123283125*^9}],
& Q) u: c! x' V6 @
4 b; _3 k5 x1 o* kCell[BoxData[' D, A1 [) k8 h: [
SuperscriptBox["\[ExponentialE]",
) c2 \$ u2 l3 z RowBox[{"3.141592653589793`", " ",
; F9 E7 Q- c% S8 Q0 a6 Z RowBox[{"(",
; @2 D" B# f# A- p7 b RowBox[{: J. B7 W+ m/ _0 ]+ W9 `1 Q/ o
RowBox[{"-",
5 Z V- b( r/ n, [ SuperscriptBox[
; s0 ?$ z" r, m( H" c4 l RowBox[{"(",
0 c! l) |3 r* g" K5 V: Y7 x RowBox[{
& }1 t. J6 b* Z3 v RowBox[{"-", "0.391304`"}], "+", "x1"}], ")"}], "2"]}], "-",
4 C% \4 O5 M# ?% P SuperscriptBox[
& a/ p, ^% l4 {: D# U2 M% V, l RowBox[{"(", " e# v; I( K4 y+ u+ [, R( k8 |
RowBox[{
Y( c; O' ^# B5 i+ {0 R! t, _( H RowBox[{"-", "1.`"}], "+", "x2"}], ")"}], "2"], "-",
4 M2 k0 g$ n/ v4 W3 @; O1 J7 n! }- S; e SuperscriptBox[ {6 c: U+ m3 G. {0 E# `
RowBox[{"(",
: {' e6 Y& x: a2 L) v RowBox[{. ]8 O( M: g F0 E4 d
RowBox[{"-", "0.452931`"}], "+", "x3"}], ")"}], "2"], "-",
: n0 F; D; x3 r5 Z SuperscriptBox[
5 T9 w' t; ^2 f" E, R2 j4 q) j' } RowBox[{"(", , x5 j7 f; p, Z ~& B2 u
RowBox[{
8 ]9 e) P7 o3 ^; g, W RowBox[{"-", "0.150909`"}], "+", "x4"}], ")"}], "2"], "-",
- s* N @5 j9 s3 {! J( X! N. D SuperscriptBox[
$ J, V# Q, _7 ]+ P RowBox[{"(", 8 y7 @* d: g) ` S& C
RowBox[{& U# [% y3 Y4 ~) m* T% n8 H _( D
RowBox[{"-", "0.342657`"}], "+", "x5"}], ")"}], "2"], "-", ! F5 i& ^5 F. G
SuperscriptBox[
" A4 K3 i1 M( [3 K RowBox[{"(",
; K8 ~; ~% x' w7 B5 g' a RowBox[{
: m# t& q, K5 O' l: p. `. c" r8 H RowBox[{"-", "0.370761`"}], "+", "x6"}], ")"}], "2"], "-", * V0 r2 Y' f# F4 t- f
SuperscriptBox[7 L- X9 j3 Y9 h4 r$ ? e. z8 r" G
RowBox[{"(",
" V; e8 y* ] K6 ~& j RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
2 s+ z" x- Z8 X* _7 E ` SuperscriptBox[
3 ?. C# j( L9 o) G& I8 z N RowBox[{"(", / Y8 F. a/ I# u) T- b
RowBox[{2 o: p( _3 y3 h9 w5 E3 a
RowBox[{"-", "0.509567`"}], "+", "x8"}], ")"}], "2"], "-", 4 h1 W0 k/ Z" \1 u, d! w/ ~
SuperscriptBox[7 H, h7 P0 r4 }0 [
RowBox[{"(", 2 F* w) R# T5 `7 T' d& ]% m
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], $ d; f" j- ]$ }
")"}]}]]], "Output"," |+ o% D- N. l5 c9 I, Z) @) |* `
CellChangeTimes->{3.5779618714853535`*^9, 3.5780123283125*^9}]$ Z" h$ B% G6 t/ d0 U0 p2 t5 k
}, Open ]],
/ ^. E6 a6 p7 Z5 U0 j
2 Y m6 G& n% e2 N( y3 `Cell[CellGroupData[{
) `; V- G4 w* W, \. O4 }7 M# g6 r2 C$ H, |1 }% L7 H
Cell[BoxData[{+ |; r; R* T: x& q# g
RowBox[{"C20", "=", "Ca"}], "\[IndentingNewLine]",
& G/ Z+ G x1 n9 V8 x3 |/ S/ d RowBox[{"u20", "=", ; f5 I% D' `2 u
RowBox[{& M; B9 H- @8 c2 w* D
RowBox[{"Exp", "[",
$ z. I3 F7 B A9 v RowBox[{+ h! d3 I2 m2 c9 N1 \
RowBox[{* p7 g5 Z) L% d, t
RowBox[{"-", 0 y ?/ ]# | E$ W- c
RowBox[{7 X- y* W) ^& n( g
RowBox[{"(",
) g* C; P6 A. ^/ I6 R RowBox[{"Xa", "-", "Ca"}], ")"}], ".", # M6 J: t b% y' L8 Y9 I4 a
RowBox[{"(",
" W1 r: [: Q4 X& P; D RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],! |. k* ~3 w$ X! i( I! |1 x
"]"}], "/.", "DeltaX"}]}]}], "Input",
$ w* E9 X; ]$ u6 I8 t y CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, { J& }9 y7 A0 h/ i8 m: E& p
3.57796154237158*^9, 3.5779615434011817`*^9}, {3.5779615923384666`*^9,
j' e' y. M- M' ^ 3.57796159382047*^9}}],
* z6 H2 j( s7 [1 y$ Y$ p
. Z8 ]! M7 X9 M5 ?5 P; T: X4 G- BCell[BoxData[
# R$ ^6 o2 M* ?* o: B: e, t RowBox[{"{", 5 j6 W. Y1 [+ P' G
RowBox[{
9 r# r( C4 g& g, J9 k) x "0.782609`", ",", "0.751623`", ",", "0.177646`", ",", "0.350845`", ",",
! d9 x! P& G5 H. b( [2 y "0.412587`", ",", "0.502638`", ",", "0.`", ",", "0.`", ",", "0.178973`"}], ! j7 Z/ L: ?2 ~, x+ f: D7 L
"}"}]], "Output",8 x! T" s, k# b- u( }
CellChangeTimes->{3.5779618958681965`*^9, 3.5780123335625*^9}],( z; v9 g! D" d4 ^9 o! r- [
6 c. h" v! I' _. ?* \3 CCell[BoxData[4 Y7 |! V* S# P* g) U; c; ^
SuperscriptBox["\[ExponentialE]", 8 d& U B% f3 C8 F1 z. u
RowBox[{"3.141592653589793`", " ",
, }1 W' g; x* c, M) c RowBox[{"(", 7 L6 z" y- ]# W0 ^% B3 @1 e
RowBox[{* [4 b7 }& l' ?. O4 v# f
RowBox[{"-",
1 o e' M. p3 S SuperscriptBox[& W8 B- Q" v8 n6 E
RowBox[{"(", , \* T' i- [5 `+ o
RowBox[{/ i$ A$ t* K$ N% a
RowBox[{"-", "0.782609`"}], "+", "x1"}], ")"}], "2"]}], "-",
0 }( y- `7 M" V7 f5 w7 Q SuperscriptBox[5 Q: _% V8 ~$ P; c9 J$ y8 `
RowBox[{"(",
5 n6 u1 @! C- i2 N$ O RowBox[{2 a7 L9 l% B: b k6 G4 |# d5 ]
RowBox[{"-", "0.751623`"}], "+", "x2"}], ")"}], "2"], "-", / I! ~% b( @5 ]. D
SuperscriptBox[
3 n' f7 D0 x; I7 t! {9 o RowBox[{"(", 7 o/ r& z7 X' K
RowBox[{, f" d; O R* ?/ p1 L
RowBox[{"-", "0.177646`"}], "+", "x3"}], ")"}], "2"], "-",
0 [4 h" r' i9 P1 S/ ^ SuperscriptBox[2 |& e5 l/ t4 ]# b; M& r `
RowBox[{"(",
5 ?/ O* R9 F- V+ j& w9 z, Z' m6 q RowBox[{" |3 G" o G8 \
RowBox[{"-", "0.350845`"}], "+", "x4"}], ")"}], "2"], "-",
; w- y1 l0 {# B# N ?' O SuperscriptBox[1 @9 k$ e: ]4 ?3 t, V
RowBox[{"(", / V0 |1 |( W; F$ F% s& T
RowBox[{
8 W& f/ p8 R8 L7 w* O5 U$ q RowBox[{"-", "0.412587`"}], "+", "x5"}], ")"}], "2"], "-", 1 S" W0 [) m: M2 e6 Y1 F
SuperscriptBox[8 |" w. {; c% e9 W
RowBox[{"(", " F2 \. U3 Q; g1 s9 O1 q: d
RowBox[{
' B$ C3 f/ |7 h( x' ^, V RowBox[{"-", "0.502638`"}], "+", "x6"}], ")"}], "2"], "-", ) c1 |* j* v$ G6 U$ _! D
SuperscriptBox[+ H$ m' R, r' K" u) |1 }+ b1 q7 B6 r( C5 R
RowBox[{"(", ) [3 B; b% q, O5 c) f. Z* W8 h
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
2 Z. t8 S6 G$ H' s- n Z' |0 S/ ^ SuperscriptBox[$ X7 I; r3 B/ }) ]
RowBox[{"(",
[1 d3 n0 |3 o: f4 d! ^ I RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
; ?8 }8 U( R4 I4 M& v, [6 Y% T SuperscriptBox[6 l! { f- v% J Y. g( U
RowBox[{"(", . T, u4 g' x+ J
RowBox[{) k! d+ |- k! t, t8 ^: ]- S
RowBox[{"-", "0.178973`"}], "+", "x9"}], ")"}], "2"]}], 3 z+ L$ I- h* @1 n
")"}]}]]], "Output",+ a4 @+ j/ t0 I# N9 z" T8 n
CellChangeTimes->{3.5779618958681965`*^9, 3.5780123335625*^9}]4 f. V- N2 o5 R: b# t) s: s
}, Open ]],
4 [1 I; N; _+ e" b0 @/ [
! b* K" f2 {' P2 B7 [Cell[CellGroupData[{1 F0 B0 ? y/ N0 _' L z
9 F. l/ N" ` z. V- D
Cell[BoxData[{
5 b2 P) P; V6 V: W" B RowBox[{"C21", "=", "Ca"}], "\[IndentingNewLine]",
: u3 s$ [' C. S% g RowBox[{"u21", "=", 1 v/ j; c" x' ] K) a
RowBox[{5 p" S$ u: j- N! s2 y! Q0 j/ a
RowBox[{"Exp", "[", + |0 o5 k; D& `1 I
RowBox[{
( P3 V s& r+ x8 L1 @1 n& F RowBox[{
. J3 b- w5 h( i: C: z- m RowBox[{"-",
( F& K1 L* v6 k* L RowBox[{
! V: z+ K5 D0 g, ^ RowBox[{"(",
, b2 O9 N& P& H, m$ E# h RowBox[{"Xa", "-", "Ca"}], ")"}], ".", & `: O) ^" J+ ^( C
RowBox[{"(", * @6 w9 c9 Q+ i& Y7 j ]0 y
RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
( J( j, [2 A. t' a "]"}], "/.", "DeltaX"}]}]}], "Input",
% @; `, P4 `, s3 L- b CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {. E0 } Z0 @; `
3.57796154237158*^9, 3.5779615434011817`*^9}, {3.577961596971675*^9, ( t" L. `+ q0 p8 p2 y
3.5779615991556787`*^9}}],# u) E" e M R$ {7 p$ Y8 Z
" z# h( t* Y3 t+ I; j1 nCell[BoxData[! L6 X( h2 L/ M4 K E
RowBox[{"{",
+ L/ u( Q% v0 b4 Z" d RowBox[{
}8 S; e' t, |+ ^1 l$ m "0.608696`", ",", "0.606152`", ",", "0.158058`", ",", "0.09017`", ",",
& q7 R3 S1 Y8 C' W8 W "1.`", ",", "0.166541`", ",", "0.278049`", ",", "0.`", ",", "0.236675`"}], # g: l, j, T5 x4 ^6 Y3 C9 g
"}"}]], "Output",
1 J0 Y. o6 k3 T1 r CellChangeTimes->{3.57796192085944*^9, 3.57801233915625*^9}],
; B' @0 r0 [6 c) o5 {; b
0 o% P' M2 U9 G- \Cell[BoxData[
# Y- a2 q; s$ ^6 ~' E# M SuperscriptBox["\[ExponentialE]",
" W, R: C- Y3 c7 O. ^ o) D RowBox[{"3.141592653589793`", " ",
% H4 u7 s% H0 B. J* n# E RowBox[{"(", 1 D7 i, F: z) `( ]+ B9 b4 C" i" H4 d/ X9 Y
RowBox[{
+ g/ ^" h3 O) e* T* h RowBox[{"-",
: V9 p; t: G2 x4 } SuperscriptBox[+ G# @ P, ]& p6 T
RowBox[{"(", 4 O2 o, t7 S( L0 s
RowBox[{, p! P8 D; f9 b' c t
RowBox[{"-", "0.608696`"}], "+", "x1"}], ")"}], "2"]}], "-", " x+ {% e; l* ~/ ?; H
SuperscriptBox[/ Z+ @% z& {0 K* \+ x* X# `
RowBox[{"(", . i! e. o4 v5 ?9 K# r7 u
RowBox[{8 W- t8 W T* m, H
RowBox[{"-", "0.606152`"}], "+", "x2"}], ")"}], "2"], "-",
6 E, @: W1 Z# i7 U; l SuperscriptBox[
& q3 W- b! ^2 _* R RowBox[{"(",
% m9 Y% v8 Y# j4 \5 t RowBox[{
V0 q$ p/ {3 D3 v1 t RowBox[{"-", "0.158058`"}], "+", "x3"}], ")"}], "2"], "-",
* b" X- i5 D6 k K/ W" p$ B SuperscriptBox[
% D: O6 U5 R5 ^' n ?7 ^ RowBox[{"(", * w: n" f4 D7 R1 N) u, i. K2 h4 O
RowBox[{
0 f1 s- A/ a# ^( {" l" {: ?0 K RowBox[{"-", "0.09017`"}], "+", "x4"}], ")"}], "2"], "-",
; W7 |. ?' z3 _ k, O' S! D SuperscriptBox[
* i0 E, G1 R, x RowBox[{"(", & @$ o$ t4 _9 C, x1 ^* n
RowBox[{
2 n$ `4 [9 y$ k5 E$ Z! J RowBox[{"-", "1.`"}], "+", "x5"}], ")"}], "2"], "-",
6 J* A/ a: T8 r8 F7 N7 g SuperscriptBox[
7 i5 e3 d# [: \( v( v3 ^ RowBox[{"(", 3 j# z! e5 Q4 u, O2 c3 p$ w' I
RowBox[{ W, ~ p- ?" f% E2 I8 L
RowBox[{"-", "0.166541`"}], "+", "x6"}], ")"}], "2"], "-",
* w% K+ Y9 p" Z4 H& s8 l$ I SuperscriptBox[8 P8 |) r+ {6 j
RowBox[{"(", 0 z8 ~' L1 z' i: i0 `
RowBox[{; Z- T4 m$ i0 I) ]* f0 \) @7 K
RowBox[{"-", "0.278049`"}], "+", "x7"}], ")"}], "2"], "-", 0 u Y5 ?, B! ~3 @- g! B
SuperscriptBox[$ h; l1 Z( X' @, n/ W# \
RowBox[{"(", 3 M Q8 {0 _. M4 C$ s
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", # E& }# ~, n g& n
SuperscriptBox[: e5 y) X/ D+ S# o: w
RowBox[{"(",
9 [+ v& Q/ y) h' e$ g7 t3 v RowBox[{
* `6 [/ l6 \* Z: ~4 K+ W RowBox[{"-", "0.236675`"}], "+", "x9"}], ")"}], "2"]}], * ^2 }( u& g3 M% K1 d
")"}]}]]], "Output",
( w& r! A* `& l& n3 d! R1 y! W CellChangeTimes->{3.57796192085944*^9, 3.57801233915625*^9}]
2 e! P& I1 L! ?$ Z1 [0 R}, Open ]],
' p u b4 S3 ]% y4 U& c" a$ L G' N6 _- K* G
Cell[BoxData["\:62df\:5408wi"], "Input",* r5 s( i9 ~( m" y9 T
CellChangeTimes->{{3.5779225126875*^9, 3.577922521484375*^9}}],
8 d s' n' f0 ]4 k( z9 i0 r* \" r9 g, h8 M$ f- G" `8 s
Cell[CellGroupData[{
' Z M0 t5 R% C7 u, _4 v3 j
/ l0 C; h& g4 pCell[BoxData[
5 ?& P. c" s6 J% ^" T: ?2 V' @ RowBox[{"y1a", "=", 9 `, Z4 Z6 T" R( g" f8 [4 e- `
RowBox[{"Table", "[", + i) Q, c- S' Z( T+ \6 W5 [+ e+ S
RowBox[{"x", ",", 6 q$ n6 F9 q1 f; ~% {
RowBox[{"{",
8 }( E8 h3 \, ]" i* ] RowBox[{"x", ",", "1", ",", "60"}], "}"}]}], "]"}]}]], "Input",. _% }- z! b; P; u; m
CellChangeTimes->{{3.57792262821875*^9, 3.577922633546875*^9}, {/ e- w7 F" D( _% y% H9 T* d5 }
3.5779226649375*^9, 3.5779226810625*^9}}],0 i) z. O( p9 L! K- F
1 q8 b3 ~ o! G) T# q) jCell[BoxData[
4 u J* h% F$ X$ J( i7 g1 Q% I; j RowBox[{"{",
, U7 t- L9 H- N W8 D RowBox[{: s" d: q* U1 l- g, n/ |0 R8 _
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
0 F1 R+ Q, c9 d, o ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15",
: k v, }6 j2 q, a ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",", 3 |- q% _8 `8 k: ~7 ~0 y* v
"22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", "28",
+ n3 b5 `( ~5 M6 r6 C$ ? ",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34", ",",
7 [3 Z2 f5 g% Q& @) L: ]% M "35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",", "41",
" u; u( X7 j; {- H/ A* a$ W+ t ",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47", ",",
$ O7 d; x. r0 P8 w3 G% h5 t "48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",", "54", 4 }) J( o+ ~0 J* R2 y8 v- _
",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",", "60"}], / h9 p" q U4 f
"}"}]], "Output",
/ K0 b4 v' V/ y+ O7 o3 | CellChangeTimes->{3.577922682296875*^9, 3.5779575713607535`*^9,
$ U, `& f$ p" N 3.577958873908263*^9, 3.5779619268186502`*^9, 3.57801234115625*^9}]; z. Q& O1 E. w R4 Z. v4 ^
}, Open ]],
+ Z: E$ ]2 B! m [( i
+ W8 ?) b+ ~: J: g. P; LCell[CellGroupData[{
?+ O6 @+ {% T& F) w6 O' s& E/ ^8 o5 M, D9 v
Cell[BoxData[
9 T; b: V2 p5 H2 V RowBox[{"Data", "[", : V# T) o: n* e8 S4 g( w5 h
RowBox[{"[",
" z$ Y8 E! j8 S( ^ Z. q RowBox[{"3", ",", "10"}], "]"}], "]"}]], "Input",
! W- Z# l- B/ s0 |4 U CellChangeTimes->{{3.577922711734375*^9, 3.577922728984375*^9}, {
6 ]' u/ l9 G! O 3.577922912015625*^9, 3.577922912171875*^9}, 3.577958877121869*^9}],
$ }( c8 b; U6 u) O6 r6 b2 T( _9 [
& X6 L8 i& G" S+ dCell[BoxData["0.899882`"], "Output",: [) d. F! X7 p3 w
CellChangeTimes->{{3.57792271875*^9, 3.577922729828125*^9},
+ j' |6 m$ }& u2 J( k# O6 \ 3.577922913203125*^9, 3.577957573622758*^9, 3.5779588807410755`*^9, " L2 ~* N7 I0 N# y
3.577961929080654*^9, 3.5780123419375*^9}]) S( h: H2 S- K7 g
}, Open ]],
2 P8 M) Q8 U2 W- Q) m# \$ }+ R$ C- x5 c
Cell[BoxData[* s" ^4 z' k/ o W6 F; V
RowBox[{"For", "[",
/ T- G/ ^5 l- {9 \ RowBox[{; A2 s( c6 q3 M! B5 o" b1 ^- _) T
RowBox[{"i", "=", "1"}], ",",
, e% R/ X& H- _% R RowBox[{"i", "\[LessEqual]", "60"}], ",",
/ V* o$ g# f& A8 b$ e3 \( z6 j: G0 b RowBox[{"i", "++"}], ",", ! x/ d. t d6 i* `' i9 v5 h
RowBox[{
5 j( Z. K& p" G6 Y. H RowBox[{"y1a", "[", ( Z1 P1 P6 w p5 Q6 W: o! B9 C. E
RowBox[{"[", "i", "]"}], "]"}], "=", ( X# y, u5 ^6 Q0 J! s _
RowBox[{"Data", "[", h/ x) f7 g9 M5 l; `
RowBox[{"[", ( w0 j3 v/ i3 Y" t
RowBox[{"i", ",", "10"}], "]"}], "]"}]}]}], "]"}]], "Input",% o2 Z) [: C: {+ d
CellChangeTimes->{{3.57792259890625*^9, 3.577922624859375*^9}, {0 t, K- M D& ~1 w- I
3.577922687234375*^9, 3.577922702859375*^9}, {3.577922917453125*^9,
& f% C v. C3 y) ` 3.577922923203125*^9}, 3.5779588839702806`*^9}],
+ f* O; q, v% X# A, \8 t2 }* L# j
Cell[CellGroupData[{1 w" ]( g8 g9 R' v' A: ~
6 u' B0 _! _& ?" Y6 f. K
Cell[BoxData["y1a"], "Input",+ S$ @8 l( O! u; j" M& b
CellChangeTimes->{{3.57792293078125*^9, 3.577922931484375*^9}}],
: O. W) W6 m' |+ Q0 M
6 w; V, x( O- S/ M' w/ g r+ Y& X8 yCell[BoxData[9 c& g* r& ?! O w g
RowBox[{"{", 0 r0 {7 i" f0 E! D( v- l
RowBox[{
# @) s" y/ z9 { "0.277091`", ",", "0.220259`", ",", "0.899882`", ",", "0.265607`", ",", 7 F. T% Z/ G" _; F$ U% r3 a+ A
"0.642226`", ",", "0.306243`", ",", "0.186985`", ",", "0.175501`", ",",
2 I. Q6 Q+ O* q4 @& S7 O "0.147821`", ",", "0.352768`", ",", "0.23881`", ",", "0.095701`", ",", 9 s9 N6 P- P0 {
"0.162839`", ",", "0.335395`", ",", "0.160483`", ",", "0.398115`", ",",
) Y8 `# G- ?% W# f( Q, I- Q7 | "0.157833`", ",", "0.315665`", ",", "0.492344`", ",", "0.638398`", ",", $ ~* O" K% K- t# B, \
"0.392521`", ",", "0.362191`", ",", "0.114252`", ",", "0.401355`", ",", 8 M) A4 x1 f3 S" ^2 s% l# Q! e! U2 \
"0.827444`", ",", "0.676973`", ",", "0.331272`", ",", "0.845701`", ",",
" d2 s* G& k' u2 O/ K! N "0.287102`", ",", "0.`", ",", "0.050059`", ",", "0.254122`", ",", 8 N) |! \3 i" T
"0.086867`", ",", "0.659894`", ",", "0.317138`", ",", "0.605124`", ",", 1 ?- s! u6 j' P+ ?, g p6 z& d
"0.32126`", ",", "0.595406`", ",", "0.555359`", ",", "0.333333`", ",", / F) e4 }& y; j! q7 f
"0.149588`", ",", "0.493522`", ",", "0.224676`", ",", "0.410188`", ",",
( h% s- X. z0 _4 o4 H8 r "0.668139`", ",", "0.102179`", ",", "0.380742`", ",", "0.319494`", ",",
7 k6 K" ]; f# ~. N2 F0 P& U2 G! W. s "0.031508`", ",", "0.292108`", ",", "0.329505`", ",", "0.337456`", ",",
, x, \2 Y% {' ^" k) Z7 m- S "0.766784`", ",", "0.676678`", ",", "0.541519`", ",", "0.064488`", ",",
1 s9 X5 _& R5 x% K2 Y# A8 n& }" Z "0.463192`", ",", "0.388398`", ",", "0.262367`", ",", "0.290931`"}], 2 U! ]. U8 b4 Z6 m2 `0 x
"}"}]], "Output",# j( }) E- ]$ S% B- g( X7 Q9 O: E
CellChangeTimes->{3.57792293246875*^9, 3.577957577756765*^9,
( `% h# ~- w( V& I: G6 E, B 3.577958888806289*^9, 3.5779619425902777`*^9, 3.5780123438125*^9}]5 Q$ V% x: @- q- d/ D7 ~
}, Open ]],, w0 ?4 X- S: x6 S
; o% ]7 C; J# M3 VCell[CellGroupData[{3 x, C" U6 l% V, M& G2 s9 |
2 G' E+ c8 q& A: j# J2 i! V3 fCell[BoxData[
, d, P' H& \- B1 t7 E2 D8 p+ | RowBox[{"m60n21", "=", 9 H6 A/ x8 Q/ b0 P) R0 {0 f
RowBox[{"Table", "[",
{5 C+ C" M3 r: F RowBox[{) Y1 _: M; ?1 Z2 V! Z( z4 N+ P) V9 s
RowBox[{"Table", "[", % I8 s. l% W1 t* X: @7 d
RowBox[{"y", ",",
7 o- U/ E0 T) E RowBox[{"{",
& X. z! s% _. |( S" A$ p RowBox[{"y", ",", "1", ",", "21"}], "}"}]}], "]"}], ",",
) V% m1 N0 A. ~7 O. R RowBox[{"{",
7 d0 J3 b7 y+ y0 x# E RowBox[{"x", ",", "1", ",", "60"}], "}"}]}], "]"}]}]], "Input",
) Q2 o2 \( I- @' H3 Q& ~ B CellChangeTimes->{{3.5779239260625*^9, 3.577924021765625*^9}, {
5 M2 P4 U' H# F! y# H% Y6 q 3.577924052828125*^9, 3.577924101671875*^9}, {3.5779619669419203`*^9, ) B. [5 F& w, ~' C; Y
3.5779619706547265`*^9}}],
7 P1 D! M% z9 k! C/ m, n' e: g+ h" V2 h* @. Y' V$ R$ i
Cell[BoxData[6 X; d- |$ w5 o# @1 W ^! D! [
RowBox[{"{", & L, F! M* D4 X
RowBox[{
: r1 g9 m" f6 k$ e RowBox[{"{",
+ J+ ?1 k/ X7 L/ c8 h# u RowBox[{
3 y( H; ^6 _$ R" D `( I "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
, F2 s9 g" b+ n' V ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", ( l; M& o, S) c6 \. V
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],! i( j. r* i& o, F% v! M
"}"}], ",", ) L! N. u. _+ O- }
RowBox[{"{", . z5 R v$ L b4 w) d% d
RowBox[{- T( n7 q$ k. `
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",! M3 ~5 U" g7 }0 r5 l5 [3 V7 {
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
% C) V; a( k( C: n3 y$ x3 | "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
) Z# H, a$ p5 U: H: c% l# J. z. ` "}"}], ",",
1 F: Z& G9 K1 B8 H- ^ RowBox[{"{",
/ ]) V- k- k7 `. z, x$ j% t) ~5 C* W RowBox[{
# Q/ _( I$ [% A" M$ K4 {6 s "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
2 H. Z' k# n* N4 |8 m! z2 j4 u6 c ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
. k$ K0 s8 D4 A "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
' S; t E H1 D5 w) m( K "}"}], ",",
! v- m7 ?' g: C6 T2 I RowBox[{"{", % Y p# [* B' _+ M
RowBox[{
w& i8 _* I- \8 {# { "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",! |: P v. R! t* H0 V5 d3 ]
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", ; v- x/ d Q, O
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
; O J9 }4 s8 h8 G5 n: h "}"}], ",",
/ d3 d, v( @1 D- {9 v3 K RowBox[{"{", 3 Q7 d5 V6 F- F3 [; }! m+ s
RowBox[{
- E# z, l# D9 L, _ "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
# m) V! I% P9 k$ B8 V+ G- U ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
" b6 x3 C% H2 ~1 |! V/ |7 c% J "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],( L/ A( d3 M0 [* m9 C, K5 a
"}"}], ",",
! w) _& a0 p; {5 k) s6 x RowBox[{"{",
9 J6 Y: X$ ]' P2 j: S- z RowBox[{
& D. h2 W3 s# V. b* U6 K8 E "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
$ U- Z: J. i. \+ @8 h ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", ; C" b* I8 B7 r$ {1 P& L
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],# _' h, z& N9 t4 x
"}"}], ",",
( j4 Q: k e9 o RowBox[{"{",
0 [* h& z9 q, u% Z" B7 W RowBox[{
3 }4 w2 ]. |, U# B: R1 x! P7 M "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
) M4 e- h0 c8 t5 D2 h6 h9 t+ { ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 4 e4 ^" T) z+ ]% q% ? f! l
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
3 a; H' a: a: W7 M2 f0 d% h "}"}], ",", ; |2 ?1 N1 B% a4 X
RowBox[{"{", . w2 g6 p, T- m- g
RowBox[{4 h1 M& T2 H/ L2 i! O1 W l
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",4 C' J2 B$ x7 ?' c+ d; f
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
1 |" z! B( P: T5 q( m/ T "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],) S" X+ `9 X ~& Y) {1 m+ ]. E
"}"}], ",",
a; j; _6 ^1 A I! ]$ L RowBox[{"{", $ p1 b" t. |$ \' l) |
RowBox[{* p4 b) @6 j* k$ A" F, C' n( B
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",* \" |- ]/ u8 O) Q5 Z' F. H( y, h# j
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
- R9 z7 b3 Y6 N$ D: R "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
* Y/ z* R z* p; m) q0 x/ V3 J "}"}], ",",
' X' t' J5 q; a; {2 F- O' u; g8 ` RowBox[{"{",
9 r2 P3 h8 ]2 y+ x RowBox[{
0 E" ?% ^& r0 G "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
# Q) w* |7 y9 U+ r: F3 m' @' V% I ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", & W. b+ o. J( V8 J0 F
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
1 R F7 ~# _- {& { "}"}], ",",
7 q4 B7 V) g4 ?6 s# b/ x2 i RowBox[{"{",
, G9 {) _4 \$ g9 @ RowBox[{
5 m7 a: o# i$ {# N "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",% k' V8 v$ o3 L0 f4 ?
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
9 M. C# E: q% k$ l% G "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
" n8 Y* b: i; B2 i6 [; x2 W "}"}], ",", 0 R( d) I4 z0 j" a5 {9 \% n+ V5 M/ l
RowBox[{"{",
* F# P8 }5 Q% |8 r RowBox[{
# n9 P( t! R9 W1 V4 r9 i* X "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",& d O* X. H' X" h0 k( O
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 8 X6 T H: w/ Z: ^ `1 S
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
9 L+ T' E4 M# h/ t* g8 z3 G "}"}], ",",
& I! s1 e& G* x" K9 W RowBox[{"{", 3 c3 g3 y2 X* \7 U" V! m# D* @
RowBox[{
+ A. k4 j7 V8 J) K- v "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",+ t+ h5 h0 M4 b: N( v8 M
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 7 d) T; C# t+ v" c, }
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}], a7 O3 v1 K& m4 _6 w
"}"}], ",",
H; E; \+ S+ D/ K RowBox[{"{",
' O: o" C/ W' F RowBox[{
! d* `: ?: x, n0 I% G6 I$ @0 J "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
1 E6 V4 Z) l4 v4 s ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", Q% o( S( n6 _5 [$ s' h
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}], {. d, b7 o# T' R
"}"}], ",",
# f6 \& b8 l0 s" [+ I RowBox[{"{", , e* ~) Z6 G' v: I
RowBox[{
* @; Y( ~* C+ Q- d+ ` "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
1 W( G9 _" i( y, I% d/ r4 f ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", ( K8 T( F5 E0 S) {
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
' d; n( m" Z# i% p1 A "}"}], ",",
' g& _6 d. y/ E% Z/ ? RowBox[{"{", ! E& S) S7 o! @3 c# i& ^( J
RowBox[{
. @ V/ n4 c5 {8 E8 Z) {$ o "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
; k4 x) |1 |3 I; v9 M+ z, H ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", / ^( z3 l, x! K* o* H
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
g5 T5 K Y8 `% o "}"}], ",", ' T/ k9 p$ V2 o7 q: x# b* X# p0 M
RowBox[{"{", 9 d) v K: W, M G# K `
RowBox[{
6 T- _/ ?' P% n, Q "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",, [( K/ n8 e6 K4 B
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
" C2 n/ ]; Q& D* Q/ P "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
3 C# {9 N$ S/ V3 l; q "}"}], ",",
) S& H$ [* \2 l" I z RowBox[{"{",
. `' G z* [0 s2 z$ i RowBox[{
, L3 t. V7 [& N) b. u6 ~6 T9 x "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
% T2 V# Q9 z6 ^6 |6 E; G ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
! @( W8 p: T& R" e/ s3 u$ X4 E' \ "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],' q7 p' d7 O" m1 V" ?6 o
"}"}], ",", 2 y+ a: C& S, `# Y/ R: Q' v
RowBox[{"{", ' p* s7 r, \4 U4 b; Z# C; z
RowBox[{. M7 O) j7 L: b7 {% [
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",1 C# K8 v7 \. g7 J- j
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", , p: L6 A n* Z/ p0 \1 z
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
; C& P, A- A) ?# a( c1 J "}"}], ",", ! K) k4 L8 H$ Z8 Y. J% L2 W
RowBox[{"{",
$ e5 E. m5 K" K5 o RowBox[{
& T4 ~! O& S# w* q0 n$ g* b "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",( @1 q/ V8 L/ V6 \* K" `5 K0 H/ W2 W
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", " _& d, B" u$ B- v+ x' p" f5 B3 {- ~" B
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],% |: l( l, m- ?7 R
"}"}], ",", " r0 u2 [& b# [- L
RowBox[{"{",
7 S. Y& G5 u- A$ H. i RowBox[{" Q- H. G9 f8 t- y+ \/ A9 Y- ~
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
) u4 \, Z7 u/ K% T& F ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
+ C5 U6 X3 v# U9 R" J+ R! }* W- e "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
9 ^; b* a* l7 Q: t' Z) \9 O "}"}], ",",
3 B4 x5 H! p4 C7 E! o0 H! Z RowBox[{"{", r; V2 m# q+ `& f% g
RowBox[{
/ O# |# I( A+ @ "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8"," Q) F8 a1 E1 k/ k
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", " W( G6 e* w. H; y
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],4 \0 v; n7 q, N! q
"}"}], ",", ; T# O. d+ W* |+ w, j4 E# C
RowBox[{"{",
! ]" P7 V S+ _9 ]" w3 y* h2 D" f( K9 Q RowBox[{0 U9 ?" X& m% s/ u/ ~! {
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
+ j# U/ |( }. ^ ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", " H! E c/ q0 R+ @& Q# P8 F
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
: c( u! p8 ?+ d* { "}"}], ",",
5 c& R3 m. L) D& U: A; E' y RowBox[{"{", 8 k9 p0 L$ X3 A4 A w; S
RowBox[{
4 x" f) q( B4 k" X0 P$ s! t "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",0 R2 a- u5 {! b
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", / \7 M6 r! f+ p) G' c/ Q0 f
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],3 [5 n$ A/ r7 X! B+ d
"}"}], ",",
4 \: i/ }6 v) f) I6 s' E" [; A% H* q RowBox[{"{", 7 O+ u9 J" C3 Y" \$ O
RowBox[{
& Q- B* m# h, c6 d* e "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",. A) G) Q. X9 `: D/ U2 X4 O8 d
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
) o! v4 z. S5 r: n9 K "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
# d% y. I s) g "}"}], ",",
2 y% _2 |; S* V0 {' \: Q RowBox[{"{", . _- F: r9 R* j. m0 m% p
RowBox[{8 R# |- r" o f# |% {0 w+ B
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
7 P/ U& R+ B0 }- ~) L" e ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
7 o' S5 z( K% S4 m' u "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
& `# T- r! j7 H& T) M% R4 e3 d "}"}], ",", * A& v' p* g) S# y8 m: w
RowBox[{"{",
u- }! C1 G$ l( ^; L6 [, k RowBox[{- i+ |. p+ k& c/ E
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",6 M0 P4 s7 v5 P v
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
6 b3 B- t9 w* |( _8 R "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
! U; ^6 e+ {, u& Z! f "}"}], ",", ) r' b# J: M7 k! q& ^& P6 R" i% n
RowBox[{"{",
( V( O/ |0 m# b; x RowBox[{; [; d) O0 m* j$ B: g$ l
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
* Z* [: j; k+ \ ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
* o# r7 c) m* f* X! I. R" S! m "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],' p2 u) B1 U) p4 }" W1 d; [
"}"}], ",",
& t2 T( \7 u$ {# [" _ RowBox[{"{", - @6 j& A; H9 I" j+ f: f# B
RowBox[{
3 ~, \3 E$ Z4 i( M# m0 d* }2 G+ X "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
$ \4 P2 K! y0 m ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
6 ?* {5 R: t: O6 z+ Z "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
6 N$ L! q' U- K! s G+ Z "}"}], ",", $ x; { B+ g$ T/ u
RowBox[{"{", " U* W- W' E7 h6 M4 j' m, I
RowBox[{
. T! J# C/ U* H" u2 G# ?5 Q+ j& Y "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
* z# ?9 l6 W7 j ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
8 l' a1 I# y( z! Q0 ^ "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],! n! D0 I) @: P d& S: }0 B5 |
"}"}], ",",
. J' a, Z- _& {) a RowBox[{"{", 8 ^. m0 N* f3 \/ p' ?0 Y
RowBox[{! }, D' s5 k# n4 l1 S5 [2 K: M
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
+ I8 Q3 z0 k5 r f% { ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", ( Q* u/ U+ r- L4 O7 I! d
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
$ F: p! E1 K7 P; ^ "}"}], ",",
- k7 h; F" g, F5 {5 s# E RowBox[{"{",
9 H. ]2 v7 s2 L5 r0 k }3 [1 `% R. } RowBox[{
0 N$ Z1 x2 y. i2 _: t0 W "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",7 j `) f; B% s8 r0 y5 Z0 T
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
2 G) r) @9 g! D q+ R- [6 C1 d6 K" n "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
$ I K. m* o/ |( d "}"}], ",",
5 u+ E9 [4 J% @* p2 s RowBox[{"{", $ }7 ^' t# a* M5 [& i$ B) ]
RowBox[{. x+ C! _7 W/ I& ^, a T8 Q
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",) E" d! f7 S1 U2 m
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 7 ~% C/ u" N8 X5 a
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
7 Y" [; v8 p, Z1 _6 W "}"}], ",",
" x7 y# o+ @ ^5 C4 l' `( G- @5 j. a/ \ RowBox[{"{", ! Z. |1 H+ e6 z9 Z; d
RowBox[{
% u+ F2 P7 `/ D6 T# Z* ~3 |' f2 Z7 Q "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",3 Q$ C* |9 b7 b2 M4 f$ I) a, N* z
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
3 S+ X7 ~8 }( p9 D8 ~! N6 e& q "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
# p9 x: v3 s' g }6 E0 Y' U( Y9 o "}"}], ",", ! s# a0 ^9 P/ e+ {4 O
RowBox[{"{",
' ?; b1 l/ X4 q RowBox[{8 K& p* p+ N8 l4 _0 x
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",2 J; k& v; L3 N7 H7 `5 S
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", & P% s* Z5 d' k" q9 w- o S' d
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
g% X; q# t' @3 _2 ^ T "}"}], ",",
( Q7 N3 i9 P8 f6 e, K1 E RowBox[{"{", : \/ o" o4 ~" b( d0 i0 X# s
RowBox[{# A: T8 e' i8 |% @' Y2 f
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
. O) k6 I) z0 F: e( H" i8 L! i# S/ Z2 K0 e ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
, f8 v0 Q' b5 @0 d4 X5 v, t: v "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
u4 |( W0 I9 E. B "}"}], ",",
/ d) R0 o2 _3 s V RowBox[{"{", - `- D- Q) g5 ^' X
RowBox[{# s' W Y2 d4 v( `9 D
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
}) G4 O7 Z4 j/ u4 O* ? ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", - Z: A! m+ o" `1 h' X9 j
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],# q& p) l! i3 n! D
"}"}], ",",
: C' F5 k3 j6 H. T q2 m' u RowBox[{"{",
% k( j4 j( @# _( g5 L# R RowBox[{- e" X1 s8 Z% e4 u
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",5 _4 O' u) _# P8 b; t0 F
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 0 M, f6 F+ E; f
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
% c+ l) o9 S8 m* Q+ p+ m$ j$ j3 m "}"}], ",",
& Z+ s. ]; Y* q4 @* {" i RowBox[{"{",
1 z6 U1 P. E1 m7 r RowBox[{
8 {/ R4 V z( W+ W "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",5 Q8 k" }' H: L( L. y
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
5 ]$ T5 e6 M* p5 b( r "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],3 ?! E7 ~% A' V8 E; b: K
"}"}], ",",
( p. v( e% ?2 @# Y% v+ A RowBox[{"{",
. L6 |: Y* P( o- P% a RowBox[{' u( R5 w3 \% E. m, |
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
) X9 v$ O# ]% W3 ?4 @ ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
: f {9 H7 j& S4 l+ P. ~ "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
. ]4 H. x z7 C) ]5 M$ O/ W% ? "}"}], ",",
7 j, s) k0 {4 }0 I" _ RowBox[{"{", 2 B2 J: v* b/ X5 x5 `
RowBox[{
0 G& \' t, M! t "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",2 q5 M4 c2 k/ {3 U6 u- _( s
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", ( [/ @6 F- F/ x' @
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
K2 F1 w" Q! N$ g) K) @3 W( d "}"}], ",",
4 V8 R! k* N& j RowBox[{"{", : q( |4 T2 `0 s: V
RowBox[{
" I( K/ W! E. x6 i "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
. }& k A% t. i( d' Q/ U ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
7 n2 P" A1 u2 X" r "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
( \3 M! W" k$ |" o "}"}], ",",
8 q5 k: E, S$ i9 D* S: m RowBox[{"{",
4 `8 F/ [/ i7 H+ R RowBox[{% p6 V0 @+ G# n. O. @4 B
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
, g' Z6 k7 E, _5 P8 T5 l! j ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
" f5 e1 S5 j: q! Z6 Q "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],/ m, }1 i; n1 h2 q. o9 _* H
"}"}], ",",
, Q2 h$ k0 m, M0 y8 ~+ B RowBox[{"{",
8 o* P" l8 X$ A$ m3 B6 K RowBox[{* j. D4 s* E, A* R# n: S
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",( `# p- o5 J4 x3 a i h. X9 d4 m: P
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
: z8 N% D. |; ?( }8 A$ m3 [; a "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],, k# q6 b& Q1 b, ~6 }- V
"}"}], ",",
7 P! f8 {9 e( y8 k3 C RowBox[{"{",
* A/ i( V+ ?# M& z) J/ L8 q- } RowBox[{
2 ^" {. y0 Y( v$ E( \ "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
7 O7 d O8 e) h! C/ g. i/ p# T ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
0 |" F0 ^& S9 z+ D# V "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],9 V! ?) K# T% q0 r! `& P
"}"}], ",",
) J" P/ p+ [/ }: t" |# R RowBox[{"{", ! \5 Q, M, ?# |: R' ]0 k2 L7 E# _5 e+ {
RowBox[{
: P+ y" |5 ~( I* ?3 n& c- { "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
! [0 H$ [5 Q9 X0 t2 v' } ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
/ n" S. H4 [2 t; } "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
1 k, }8 q& x. _2 K/ L# E "}"}], ",", ; ]- S% z. j5 k9 m) g$ r
RowBox[{"{", ; F; `6 E" Q2 {6 }
RowBox[{
: z' U6 ]; ?, V1 f2 k/ E "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",3 O8 f* y5 L+ G9 e8 R3 K9 |& z* P
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 8 }& `( j. {7 w2 D; v2 r6 k
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],7 @+ P0 N" q+ m& z1 w6 K
"}"}], ",", , d" M7 h' Y' X6 {8 m
RowBox[{"{",
' F+ |# r( R/ M8 D RowBox[{
7 \: x& c' S7 I# \: B& i/ n "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8"," `/ B) N$ W L6 H! Y9 F& v0 C: ~
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", % r1 O" x% V2 Z# m
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
' ^ n6 u8 C; ]/ s0 Y1 C# Y "}"}], ",",
! g+ b( ?8 `! T0 D) o) M RowBox[{"{", 0 B$ n& k& w+ H5 q/ [0 U
RowBox[{; e: ]( I$ q& F9 _4 l
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
7 |# Z/ _ c8 g; F( n ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
% Y% H* |. P+ ~/ V& n! b "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
6 [' g7 {7 ]3 `! ^ "}"}], ",", 5 _5 f' {% r, a/ ~# [
RowBox[{"{",
7 ?& v0 Y& Z3 D$ \+ u RowBox[{( L# Q, K5 _! l6 O1 M9 ~" _+ S
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8"," s6 ^! B0 k# T& k( `0 c+ o; j0 S
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
" J3 Y# [9 k- J9 Q5 P0 l$ f "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
# x. X8 t0 c1 F4 X: Y9 u. O; D "}"}], ",",
Y2 M$ \+ |4 `6 W, t4 e% l% P- Z5 c7 u RowBox[{"{",
/ a" d* U+ m* s% f' F RowBox[{ A! z2 @' o' Q B
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",! P: @0 X& @7 l) `
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
3 B9 m( I h3 A; I! Q0 R; G6 w, t "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],$ \0 B* b! t5 ?3 L
"}"}], ",",
d- X5 ^' }+ c. w) ]5 u RowBox[{"{",
6 ?: A/ t' L- H% h RowBox[{+ E) H3 q+ A8 u5 t5 X/ X2 \
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
: P+ [- i" y( {8 \# @" V/ R1 \ ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
4 s3 c! A+ @4 `# L "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
( B9 I, I. ^/ G "}"}], ",",
1 J; r+ A- c) D% }) H RowBox[{"{",
& Y& |5 n5 [3 } RowBox[{
2 |- g1 r ]! i# k "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
" B5 u% I+ u8 h ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
- s6 }0 z4 K5 X "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],' |6 z# Z* p3 Q! m s0 z
"}"}], ",", , p- b4 U# z. |. z8 v
RowBox[{"{", " x. D: ~, Y3 C$ V8 g4 I
RowBox[{' Q$ Z& S' o% M# x+ o* _1 C4 i
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",0 P5 P! N5 U I# m ~- }' ?% u
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 0 h" d$ K# s3 A% n
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
" B4 M3 m1 ^% f T l "}"}], ",",
2 I7 Q* C8 W% V. M( z5 q RowBox[{"{",
% h$ U: u, W- z0 h. }0 M RowBox[{- t: O/ Q3 R4 }/ k
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",0 s. U9 g5 T5 `: H% D
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
! k+ M( }2 j; X8 I& e "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
" u' [7 Q( w2 v# H# {* S6 I7 V "}"}], ",", 0 N7 G' e5 C9 J! ~) `- f7 h5 P9 | }
RowBox[{"{", / G Z7 r" m2 M/ Z& B1 J* i
RowBox[{- [2 \+ v: J7 W0 F. a4 q' E
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",- A W4 j# Y1 U8 y1 X7 M$ I1 m
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
# x7 F$ t( A* U1 P: D" p9 G$ h1 R1 u "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
# D, U0 g V" `7 u, b4 n "}"}], ",",
2 H0 |* y! W2 S k RowBox[{"{", ; X+ `/ ~) [& } u8 }6 o- Q
RowBox[{
; C4 g' f5 q6 S7 o "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
% f2 l Z% A& W& a( B8 d8 O3 q0 @ ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
5 @& e& r# ?4 p( n! G, z "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
k, A, _3 o" U# P. E "}"}], ",", 9 [% b, F6 t" h1 k& l5 R
RowBox[{"{", - y/ }8 o! V% M7 q
RowBox[{; o3 i3 D. V1 ~- w5 [
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
: f/ W* e# @ ]+ |" ~4 e ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", ' H7 t- u7 z) J9 D+ M, _3 _
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
* M8 Y3 Z3 L" J+ a* R "}"}], ",",
) @7 D2 N- \0 [! Z1 G- W6 @ RowBox[{"{",
1 o7 W, F7 X2 m! p3 |4 g- C RowBox[{
- u9 ]! E; ^+ ^; ~, N% f4 |" X "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",9 a g7 ^! k; c C- ?( D
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 5 i* F) k3 m: I6 A/ O
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
- o" }; v: i& u4 _9 R "}"}], ",",
7 O+ l8 e Z9 B$ n RowBox[{"{",
8 x4 { p: C( Y. P RowBox[{ c9 ]$ V2 F* `3 b' v7 B
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
& r' |* ]' \# [2 }# ? ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
- [3 ~7 n f( ? "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],+ ]- e, ^( k; `; u J- o
"}"}]}], "}"}]], "Output",, y" @. P: O. n
CellChangeTimes->{
$ w6 l- {9 ]: m1 N7 w 3.577924022828125*^9, {3.577924056171875*^9, 3.577924103265625*^9},
* c( l6 a L; l& g' O8 z 3.577957579987569*^9, 3.577958891536294*^9, {3.5779619459910836`*^9, ) S5 q+ h5 j$ ^6 t# D- |
3.5779619748823338`*^9}, 3.578012345453125*^9}]
" p6 K$ F- \0 b( d5 p" \% J* x C}, Open ]],5 b+ m& r" c# M* p t
G5 g5 F2 B3 E A$ l3 H( X( c! A' l
Cell[BoxData[
# j4 Q: s4 H! W N+ w' G1 s- V RowBox[{"For", "[", 4 E- F3 U6 N# g7 N
RowBox[{0 E; o% N, r" X
RowBox[{"i", "=", "1"}], ",", p$ K" q. |8 z
RowBox[{"i", "\[LessEqual]", "60"}], ",",
5 ^1 A9 [* O) I RowBox[{"i", "++"}], ",",
( `- B- K2 G' F& k RowBox[{"{", "\[IndentingNewLine]", 3 k" P- r$ c5 Z b% i, u
RowBox[{$ V8 f" d+ O& R7 \
RowBox[{
8 I! }$ Z" b7 T1 |& J RowBox[{"m60n21", "[",
5 p5 b) ?) l0 L RowBox[{"[", S7 s' l9 s0 e1 p1 t4 m
RowBox[{"i", ",", "1"}], "]"}], "]"}], "=",
( z. c) P& ^: b RowBox[{"u1", "/.",
( n6 w0 C# G2 O3 _" D; T+ o0 O RowBox[{"{",
, u! ~+ j) ^9 v# b RowBox[{
8 r# Q( y- p2 v1 t3 u: ^/ T RowBox[{"x1", "->",
1 I( q6 f' m" N RowBox[{"Data", "[", , d7 [/ M6 X! B) e9 c0 D6 l
RowBox[{"[", * |( g+ |9 I! J
RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",",
9 e) Z: U5 s, o3 [/ j; i RowBox[{"x2", "->",
0 R* ?( V( m, T- h* m5 u) x* N0 T RowBox[{"Data", "[", , {) b% I7 y( }; [
RowBox[{"[", & S' A. F2 }2 H, A. `
RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",", - h, A% `$ D( o' u3 T2 R- l. e
RowBox[{"x3", "->",
) p/ ?! @! A% m( d+ g RowBox[{"Data", "[", ( u3 v2 h9 w- ]
RowBox[{"[",
, K, M# f5 H0 b8 B3 p- W RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",",
+ w( Q5 H" {) { RowBox[{"x4", "->",
+ p; K- K: _: C$ K H5 q1 V) u RowBox[{"Data", "[", / y8 x5 S$ B7 h% S3 L
RowBox[{"[", / ?5 X2 [8 B9 D+ N
RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",",
+ e4 }2 Z. R8 V2 f: i$ D3 s- n RowBox[{"x5", "->",
1 y- g" w9 n X, h1 C. j RowBox[{"Data", "[", ! g: w/ v: f; }- Z0 K9 H
RowBox[{"[",
1 l( l0 ]) ?" M6 i' |; ? RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",", $ T" ]& K& V; ~! L4 U2 K7 u. s( Y l
RowBox[{"x6", "->", : n/ F- c( E0 T( }! ] G S9 y
RowBox[{"Data", "[",
0 m+ s% s, v( ]$ p RowBox[{"[", 9 l9 n+ ]2 ^. x% G/ f6 A0 T: k; J# {
RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",",
6 I) v! K. t' `0 b& P2 g- i3 U RowBox[{"x7", "->", ' H9 ]6 [+ F1 s: @5 f
RowBox[{"Data", "[",
3 U" G0 k' g2 S. w4 W RowBox[{"[",
* r9 ` h! |1 Y, @1 P4 q RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",",
5 H4 _7 H* S4 Y3 r: @ RowBox[{"x8", "->", # u0 h+ I/ Q# m4 v# m& @& G
RowBox[{"Data", "[", ) A0 X, J* T; l3 a& C0 E/ g m
RowBox[{"[", 7 R4 [2 i0 |9 O9 ?- c; x
RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",", , G. o: z* _" s& r* e
RowBox[{"x9", "->", . [0 K+ x7 U) L: |$ w% y+ T/ p
RowBox[{"Data", "[",
: V9 b. W- U% o+ D$ {8 P RowBox[{"[", - ?; k3 f; w$ O8 Y' _; v
RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";",
: o5 O2 O+ w0 } e "\[IndentingNewLine]", % k; M2 a* ]- m$ l
RowBox[{
7 K5 `8 P8 G" K RowBox[{"m60n21", "[", & q6 r! P- q3 Y$ n7 ]% W
RowBox[{"[", ' @! p. V6 ?7 J* q" `
RowBox[{"i", ",", "2"}], "]"}], "]"}], "=",
$ |& h9 X1 s6 T2 u8 Q) \ RowBox[{"u2", "/.",
8 l! t' q+ s% D, R, L, D" b& a RowBox[{"{", ; {7 Q3 j* D) J! {
RowBox[{2 ?4 r2 n" G3 k7 O* A
RowBox[{"x1", "->", ( ]+ `8 v+ N' S! [
RowBox[{"Data", "[", & Y7 q6 z8 n9 A
RowBox[{"[", % W% D9 s; U) ?
RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",",
3 K4 s, j: F* n% L( J' p RowBox[{"x2", "->",
3 T7 {5 k+ K0 w2 i# H" | RowBox[{"Data", "[",
. i! E6 Q+ S8 q& y. z- C RowBox[{"[", % I. ~: v" C. c1 J& ^7 Z
RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",", ( p7 ^% |% w2 O7 v0 `- ]+ \
RowBox[{"x3", "->",
2 |: P- j; V/ h0 R% o$ r, J RowBox[{"Data", "[",
6 G8 ?0 D i% M. I, Q RowBox[{"[",
% L, u/ }) @* A4 g: }" c RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",", " n5 L0 f& x1 u7 Y; r
RowBox[{"x4", "->",
+ O: f& S n, z1 f% w RowBox[{"Data", "[",
( H! d' x5 ~4 H% c; o RowBox[{"[", . O- c+ J, C! t, `( J. U9 m/ X! d* I
RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",",
+ z" |$ K% q# V- [4 k RowBox[{"x5", "->",
6 J5 l" J# A* c2 g8 |% n4 W RowBox[{"Data", "[", - g; j f* A, y4 |
RowBox[{"[",
3 A! V$ t3 v; X RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",", * [ s$ {) }! P4 W6 n- I4 ?
RowBox[{"x6", "->", 7 I- J- u. n ?) o& Z! [, b( f
RowBox[{"Data", "[",
( m$ s- B* x, C* V: s; A. k5 ~ RowBox[{"[", : r4 \0 T; o+ Y+ y/ H& P
RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",", 8 u6 \( a4 o' ^ f( ^$ u. u; {
RowBox[{"x7", "->",
3 p* d9 Q: n9 t+ j RowBox[{"Data", "[",
6 F: @) \! u5 _3 _5 m% b RowBox[{"[", & T) i9 `; D3 d( p
RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",", + M: l, Q; k4 I8 x1 B* h* \
RowBox[{"x8", "->",
" Z' m, _& e9 c5 _, Q! j) x. B RowBox[{"Data", "[",
. |2 D5 s4 n2 N. Z* B; ` RowBox[{"[",
" M! k$ r) f4 K% L. E RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",",
4 i1 ~, P0 z6 \ RowBox[{"x9", "->",
% n- a6 k( Q! q3 q4 L4 \ RowBox[{"Data", "[", 9 L+ A$ j1 O& ]3 Z" A
RowBox[{"[",
1 K j0 O* m. p/ W( ]& R' @ RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";",
! D- H: P+ l. c( g) b' p "\[IndentingNewLine]", , Z! G0 |0 G; G* I2 Z
RowBox[{4 l5 n; z( _9 p$ q( G
RowBox[{"m60n21", "[", " M( b" ]# b2 @; O. `$ U- `- q& d
RowBox[{"[", ) N5 n4 @- P! h6 T/ a! v) h
RowBox[{"i", ",", "3"}], "]"}], "]"}], "=", / H8 H7 W' @3 E, M
RowBox[{"u3", "/.", & J+ q9 ], a& G0 Q
RowBox[{"{", 9 q$ i4 E; S* ?7 w6 Z3 l9 l) l' Q1 W
RowBox[{
* s8 b' r* [8 j# D F! L RowBox[{"x1", "->", 7 R( L/ ^4 h7 |' P
RowBox[{"Data", "[",
% ?3 O" V, w% F2 w' e$ K" C, _ RowBox[{"[", ( T- X6 i+ s& s& j% B6 b
RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",",
% M, B- t( r6 S# h RowBox[{"x2", "->", ) P# I; ~2 F0 s- N t& ]
RowBox[{"Data", "[", " Y1 |, ?$ V: n' E) x& ]+ A( G7 U4 k
RowBox[{"[",
" s- o8 h% ~; a+ P RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",",
" Q7 X4 N' h& T* q' ~& O RowBox[{"x3", "->",
& s4 X; N, ~: I RowBox[{"Data", "[", 8 [' t& j' E. b5 g7 ^; K
RowBox[{"[", 7 C$ I0 A" c! j& u% `5 A
RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",",
6 A! I; b" k5 \" F RowBox[{"x4", "->", + t* U, ^, n7 H+ d
RowBox[{"Data", "[", " l8 }+ V$ {: B3 I5 Y0 |
RowBox[{"[", - I) G/ Q( M$ g' y" E0 Y
RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",",
8 }/ n1 l" R$ l2 k1 ]. E4 f0 W RowBox[{"x5", "->", 9 ?6 [' S- L0 h5 ^) E% m* g; c
RowBox[{"Data", "[", 5 Y2 b9 p( S4 g. _2 N/ J
RowBox[{"[",
& K( {' a* t0 n/ @ RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",", X! x7 f) c% L
RowBox[{"x6", "->",
2 u3 L N% r l RowBox[{"Data", "[", / L, F4 g+ Y S- V5 L4 @
RowBox[{"[", " V' ]3 ?# l$ c6 O) Z* C9 l: g
RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",", 3 t# L1 E, B0 G; \' c3 l+ a, x
RowBox[{"x7", "->", % |5 M, n" l! @
RowBox[{"Data", "[",
8 ?# H) Z5 E5 i2 @) W RowBox[{"[",
- O+ [9 n/ a( A& u RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",", 9 {& ?; f J# o: A
RowBox[{"x8", "->", ; t) g% u$ E2 ]1 E
RowBox[{"Data", "[", ! q, a {9 e& E9 P: x; ^
RowBox[{"[", / W5 e- @! Z8 Q5 Q% j* l1 [- H
RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",", 5 W3 M% o# L8 h4 ^( z: W
RowBox[{"x9", "->",
' }' A. ?# K) F3 g RowBox[{"Data", "[",
" s$ l( z F! L& e( u' h3 K2 [ RowBox[{"[", , `% M$ B; y. U
RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";", ( ~/ G5 z7 O/ k- ]8 E" g
"\[IndentingNewLine]", / R0 O. _: M' S7 |
RowBox[{. ^" O) d% ] C( o: r. \0 c- b. x
RowBox[{"m60n21", "[", - H* I" i7 h4 ~3 \9 }* }
RowBox[{"[", 4 H* G5 E5 V% F v
RowBox[{"i", ",", "4"}], "]"}], "]"}], "=",
( j g7 k/ F* c1 Z. n% \$ a RowBox[{"u4", "/.",
( C& j! Z0 Z2 ^3 u7 ?8 } RowBox[{"{",
6 D4 x X; {" [+ z s) ~/ D+ {+ @! v RowBox[{+ ^. _8 i" m* s4 g3 U8 {
RowBox[{"x1", "->",
- b, V" j; r! ` P+ s2 A' { RowBox[{"Data", "[", - N! v+ [/ Q( C2 ^
RowBox[{"[", ! t0 Y7 r4 c/ z2 }# q: f) i1 s" \
RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",",
7 H& W( X- h1 o/ \1 y/ E! Q& `6 E RowBox[{"x2", "->",
" O6 Z" F0 S0 O8 A RowBox[{"Data", "[",
7 h* {" L% L B RowBox[{"[", & |& b" x6 m$ q8 n6 N
RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",", 5 _9 T4 m3 B" I) L1 L7 S; U
RowBox[{"x3", "->", r3 L1 |; v( d, u3 b1 O
RowBox[{"Data", "[",
/ T7 R3 e3 I7 d- g9 d RowBox[{"[", , }& {' }) B$ i/ g7 T, k3 o
RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",",
6 P9 i, }) m5 I* I6 K7 w& [ RowBox[{"x4", "->", 9 B& e" F5 q8 F- [! m
RowBox[{"Data", "[", 1 n0 F8 q) C/ V% c; A
RowBox[{"[", 2 u4 G2 B: o3 g$ E6 ~; b3 X
RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",", ( T# @+ C* m2 L/ L
RowBox[{"x5", "->", ' e, b" m; o1 j/ {! \
RowBox[{"Data", "[",
" i" f# p8 [. I( @2 g RowBox[{"[",
+ ~& q* A, Q s# F RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",", 9 H. M' U* a; A( W7 j* }. w
RowBox[{"x6", "->",
0 \+ `$ N, f' g A- R! l RowBox[{"Data", "[", % L Z* n' l1 m% P5 a% p m% n7 o) a
RowBox[{"[",
% N4 G o+ {! W# O RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",",
: i# f: c" k. T. w# B4 ?0 U RowBox[{"x7", "->",
1 M; t) p, \* d) [ RowBox[{"Data", "[",
% Q+ n% D' y( {1 y# H, ^- g' o RowBox[{"[", " E s1 e6 z# U" C: D, m
RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",",
0 E% s+ \/ [7 i; f# v: A% o RowBox[{"x8", "->", 1 x8 ^1 F |0 h6 I
RowBox[{"Data", "[", - H' Z! {4 X3 w6 K5 Z1 r
RowBox[{"[",
) p6 [" }- p& ]5 Q6 E' o RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",",
! Y( i: U- g3 s, E$ @/ q9 _3 u RowBox[{"x9", "->", " P, a+ b, w' ~5 U! ]5 L1 h
RowBox[{"Data", "[",
# V& r" W. w/ \/ r* x; L RowBox[{"[",
6 x. b. ] W9 N RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";",
9 \) t4 v5 x6 s- U: b6 N, t "\[IndentingNewLine]",
1 f( n: T3 q2 f& b! `# s! S" D RowBox[{
$ h9 ?" z0 L, q# _( b RowBox[{"m60n21", "[", $ N; G/ r: y! ]( ~% j
RowBox[{"[",
R* z; S5 q! \! Z RowBox[{"i", ",", "5"}], "]"}], "]"}], "=",
5 W0 N- r0 F! b- S2 d RowBox[{"u5", "/.",
3 ^' O" K& D8 ?+ }( ` RowBox[{"{", 3 m8 o: u# H( B3 {7 j2 h: h1 h) a
RowBox[{
) h+ T# o) m- K+ V+ w3 o$ s) K RowBox[{"x1", "->", 8 I y- l: g+ A' p
RowBox[{"Data", "[", % `: M+ p/ `9 ], ?
RowBox[{"[",
8 c" w0 R3 K9 `# q$ `( M+ c3 g" M RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",", . K- M8 n2 _" E2 K! g
RowBox[{"x2", "->", 9 u+ S' S/ B: i% a
RowBox[{"Data", "[",
0 X. U+ m1 q O* c RowBox[{"[",
* Z& ^% O8 W$ y RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",", 9 g$ C0 c- u" C# Q
RowBox[{"x3", "->", ! c% d) \8 o; s
RowBox[{"Data", "[", : q& N1 V( S" z& g( o
RowBox[{"[",
5 A. V' z6 I( ^( Z2 H8 m- j E k RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",",
! J. k5 {! h- v- M) A) U RowBox[{"x4", "->", 8 s1 w7 I$ w! c, n6 ^
RowBox[{"Data", "[",
5 n' g% j9 \& _5 t! n: n5 d RowBox[{"[",
" |( j5 \$ @" a: \ RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",",
D" [& B4 V* o, B0 _; { RowBox[{"x5", "->",
, W& h+ B6 h8 l1 o8 h1 C! h RowBox[{"Data", "[",
* T! o: K9 X/ i RowBox[{"[",
\. D! K' W! r l' R. v7 w, O RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",",
4 a* b/ g" e# X9 X RowBox[{"x6", "->", 6 \: l9 `) A* G$ X+ r7 s
RowBox[{"Data", "[",
: f1 r. l6 O* P) Q2 U) z; i RowBox[{"[", ; Y c& e G+ j( _) K
RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",", + c& P& B& R7 |% B
RowBox[{"x7", "->", 8 {: a2 N0 ]3 ]" t; @: Y+ k* w
RowBox[{"Data", "[",
3 V2 Y# S+ j% c RowBox[{"[",
8 a6 {: e1 q* V& e( C( c y RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",", ' @$ d. K1 J9 L( i
RowBox[{"x8", "->",
/ z! Z) s0 E( y' h RowBox[{"Data", "[",
( w, c. G ?6 G) f! e% L1 L, |5 | RowBox[{"[", , E- k7 E+ \: Q3 ]1 c! g6 X0 [
RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",",
2 j/ K9 c- _+ T; I3 \; _9 Y# o: |$ z RowBox[{"x9", "->",
' N, M* F: G6 \% R1 ?2 b" x RowBox[{"Data", "[", ) o' t, e0 n& p
RowBox[{"[", ' g% M' e& ^6 b2 D, l4 w( }( o
RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";", ) \3 F7 {" ?* L) x1 x
"\[IndentingNewLine]", # ]* U% ?& e% l9 D; @ Q
RowBox[{
) _6 ]4 O. N4 v5 F6 p- l8 n: M8 f RowBox[{"m60n21", "[",
# @1 a+ e. K b' m6 I, | RowBox[{"[",
/ q5 f' Z: Z0 B t/ {9 e RowBox[{"i", ",", "6"}], "]"}], "]"}], "=",
% i" P9 d; ^" W2 j' d" S" \0 a RowBox[{"u6", "/.", % Y/ X2 A# X; r2 B: X4 W+ e) }9 h
RowBox[{"{",
) G( u. I1 p3 q RowBox[{0 t9 Q1 R9 W% [5 m: e" K, q
RowBox[{"x1", "->", 7 i7 u3 }+ P/ m. w' \0 ]1 X- k7 o
RowBox[{"Data", "[",
! [6 {7 v S( C4 P9 K RowBox[{"[",
9 p# ?9 {5 }2 h' S0 o1 f5 o7 K RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",", % Y) i. _$ P& ^/ l4 x0 U
RowBox[{"x2", "->", " O$ L% g* o0 Q
RowBox[{"Data", "[",
1 l, P# @! ^" _6 O; t RowBox[{"[", 7 ~4 R8 ]* H l3 F9 |! B
RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",",
; J: B) _6 x+ M. v3 M- n: S RowBox[{"x3", "->", ( T q2 l+ t3 b, V, N' q7 ^
RowBox[{"Data", "[", ; g) k, Y7 ~, w+ A0 B7 n
RowBox[{"[", 7 \& ~& W: M2 f/ \ A: v$ L
RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",", 7 |) s: f& B) C& Z( h }6 b
RowBox[{"x4", "->",
9 B3 W& O8 A# k RowBox[{"Data", "[",
[/ ?" {1 X) z0 d" b9 m RowBox[{"[",
* [% q1 T. K' B RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",", " p. T) n/ y/ {- i
RowBox[{"x5", "->",
' x3 r6 _1 r6 s; C/ @1 L RowBox[{"Data", "[",
* x4 x7 E4 y5 Q/ m. I8 s' V; r' R RowBox[{"[",
# t L1 ~) O' R3 b2 ~1 D i) O4 ~1 { RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",",
; ^% o$ s; Z7 ], l& e, t% h RowBox[{"x6", "->", 5 r; q* D9 x6 i
RowBox[{"Data", "[",
6 U/ _( n' c8 `. B2 T RowBox[{"[",
# B" }* `% p v, | RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",", ( P! i& J$ M7 i: p
RowBox[{"x7", "->",
& q7 D9 V; ]* E6 z' w( F- F* X6 b RowBox[{"Data", "[",
6 y+ ?' B- r5 Q9 z( x) D8 v" _- H RowBox[{"[", 9 ~5 E! G/ V. F& g1 I- i
RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",",
0 R) X( h$ q2 y0 u, s RowBox[{"x8", "->", 2 \: e" @; Q& l C9 ]
RowBox[{"Data", "[", 2 b! ]: V4 s r9 Q! l* r' w* d0 H
RowBox[{"[", 6 }: U9 ?& m" Q9 `, L
RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",", C. P$ C. H+ v) y1 x
RowBox[{"x9", "->",
! n/ C1 X9 b; `8 e3 A% @ RowBox[{"Data", "[", ) ^# H8 M1 c9 K9 t+ R
RowBox[{"[", ( z8 F: C# p( u4 T6 O/ a
RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";",
" F# V7 P. x! m "\[IndentingNewLine]",
0 ]$ n7 ~% F s; T6 D/ `/ W RowBox[{5 l6 T1 K2 h) X
RowBox[{"m60n21", "[",
+ b, {! z9 _& w; U8 ~1 [) d RowBox[{"[", " b1 l" a- h2 G& C7 `0 g1 {
RowBox[{"i", ",", "7"}], "]"}], "]"}], "=",
4 s3 ~3 M) U; k# k& d# m4 }0 u RowBox[{"u7", "/.",
1 C$ X! y( D, w, Z: h" Z RowBox[{"{", , P" U F/ X7 |0 `) c# A
RowBox[{1 y# |' o6 a% S: W7 d, R3 }- P2 l" d
RowBox[{"x1", "->", ; E; |! B5 |, f6 A
RowBox[{"Data", "[",
9 v5 H- U* Z2 ?9 ~ RowBox[{"[",
0 V) F$ @9 ^$ a) X' b& t RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",", . j7 Z) U, e8 m, T) n# Y
RowBox[{"x2", "->", 6 O( E) H) b% ^% G
RowBox[{"Data", "[", 3 T: W$ i4 p/ s' k. p7 G+ a$ m3 |
RowBox[{"[", / Y4 y% i9 s0 s2 j
RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",",
, X- P0 \8 Y& N3 V; y" g RowBox[{"x3", "->", $ W9 W2 t5 O3 n0 A
RowBox[{"Data", "[", ) I0 h9 q) D% s; Q) I& k# L
RowBox[{"[", 3 s% _* I0 v, n2 R1 g4 V% |
RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",", " S( p4 Y; v4 D4 M
RowBox[{"x4", "->", . ~ ^ g& x0 s% j% }" Q
RowBox[{"Data", "[",
7 ?3 o! k1 _; x J, f RowBox[{"[",
- F4 G% J+ y; W1 Z5 f RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",", 6 S2 R! T. K! [# H% u" i2 ~
RowBox[{"x5", "->", 9 Z" v0 ?( B4 B0 E/ G; A
RowBox[{"Data", "[",
& q/ e1 L/ b# I. H* K1 M RowBox[{"[", " @" S, x; Y; ]6 E. n! ~8 Q* d
RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",", . V: k* L6 R! E9 c, }# Z; y! @( B" B
RowBox[{"x6", "->", , @. e( W- M3 V, R4 N
RowBox[{"Data", "[",
+ X7 H7 V8 s$ v" Q; { RowBox[{"[", * W& Y& [3 e' M5 b! n5 T' F5 C
RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",",
" x/ u/ t- ~$ Q0 Z1 a! T RowBox[{"x7", "->",
, h- i1 [* o7 n+ V RowBox[{"Data", "[", j7 F; B l8 d' I/ {$ s0 S
RowBox[{"[", $ C5 B9 t& [4 Q" y, I1 A) G! R- k) I
RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",",
4 O5 G6 S7 ~6 P9 Y5 P' |: a/ O RowBox[{"x8", "->", 9 r7 k, _4 N9 Z v+ A) M q
RowBox[{"Data", "[",
, s7 {5 P. L" z# G RowBox[{"[", # ~5 D: C" T: @+ h
RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",", : F) x' s: t# \3 h, o, ^6 P
RowBox[{"x9", "->",
6 q6 y$ @0 z, E! p' G" v RowBox[{"Data", "[",
$ m. x& ^, q2 f' Y' T2 K- W RowBox[{"[", + A$ i7 t! C+ M- j1 `. L
RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";", ( Z- S# s H8 e
"\[IndentingNewLine]", K& l' Y' H' ~4 Z6 s. F) ]
RowBox[{$ T- F2 B& w9 E$ ^
RowBox[{"m60n21", "[", ! |. U$ q# I/ ]+ ?, I- d/ O
RowBox[{"[",
: d9 ?: n7 U, U* N RowBox[{"i", ",", "8"}], "]"}], "]"}], "=",
. d. u) ~! E G) z2 ?7 ~ RowBox[{"u8", "/.", / t$ P6 [ t3 c+ k! [2 g+ P4 a
RowBox[{"{", $ O. y5 H2 t* j$ O0 h. u0 _
RowBox[{
& ^8 x; A! {( Z- E- W( X# h RowBox[{"x1", "->",
% Q7 v! ?5 b h+ x; r. G' f7 _) U RowBox[{"Data", "[",
0 }0 _( H2 A& e1 p: m RowBox[{"[",
/ d" T+ F0 Y* n RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",",
8 v6 a5 G9 t9 ~ RowBox[{"x2", "->", , K, Z \) x7 L0 i
RowBox[{"Data", "[",
, h! v& h, z+ N& Z5 J RowBox[{"[",
b7 ^5 U! q$ y RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",", 1 Z4 V0 F- E- b3 B" S' y
RowBox[{"x3", "->", + \! h6 V" M7 h' [: J2 g# R
RowBox[{"Data", "[", / s5 _; G3 m: d, g( n
RowBox[{"[",
, c2 B' T8 o5 X- ^4 z0 ~! ? RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",",
/ K3 n ?, S' ^# t+ j0 @ RowBox[{"x4", "->", i! V w: u( [2 [6 J; k
RowBox[{"Data", "[",
4 t- ?2 Z1 f/ s RowBox[{"[", ) N. u( b& U) m9 J2 r
RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",",
1 Y+ I# {) _* k3 e- l RowBox[{"x5", "->",
+ G+ J: g) p8 ~4 p& h3 y" y/ Q RowBox[{"Data", "[",
$ T" D% M4 L; }; \ RowBox[{"[", 0 O, Y! Y/ s4 ^% l! `
RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",",
8 s/ e' m! y4 b1 X- N5 @ RowBox[{"x6", "->",
. z. v3 ?& i$ T7 f( Z RowBox[{"Data", "[",
' w; e5 v8 O/ P. r6 m- A0 d! [' @ RowBox[{"[", ! n) B1 y6 q5 o; ^1 b @8 {
RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",",
8 l: }& B4 |% Y6 J RowBox[{"x7", "->",
3 g3 p, K" C+ | RowBox[{"Data", "[",
+ a$ U( {$ ]' L! q+ J$ n RowBox[{"[",
]3 W, ?( q# ~ c8 f6 s; Q RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",",
( ^5 h3 S0 M& H9 J, [ RowBox[{"x8", "->", ; u+ i( E( O' \
RowBox[{"Data", "[", R C: ]6 x& S' N2 P5 ?, N
RowBox[{"[", 7 H9 L; i z ^. j
RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",",
$ _; D. P8 t% N6 {; | RowBox[{"x9", "->", : i4 o& L- d, L4 w$ o; h7 u% X
RowBox[{"Data", "[", 4 _& _ z! ~$ l! X8 K. H
RowBox[{"[",
7 \5 D$ P: U5 }0 {+ I RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";", $ x- q( B- l0 V6 _* b
"\[IndentingNewLine]",
+ n* S; b: D* G" F) k8 M, k RowBox[{- S; P" U" ?6 M6 _- C& C# X) v
RowBox[{"m60n21", "[", 3 {# v# m4 z( D. ^7 L' _
RowBox[{"[", 6 f& j# c, }% k4 @. D. N' G2 ~1 y3 m
RowBox[{"i", ",", "9"}], "]"}], "]"}], "=", / v V, D" ^) l# |. H `1 v6 r
RowBox[{"u9", "/.",
* K# }( h E- C- |$ r2 a8 v( l RowBox[{"{", 3 Z% R1 e: @+ O. Z$ Z `# ?% T
RowBox[{( @7 E7 n( E5 @# D9 V6 C, L
RowBox[{"x1", "->", - y- p( W: P' ?$ J' H
RowBox[{"Data", "[",
+ ?( H) L, K0 K8 ?1 r8 Q$ L RowBox[{"[", , ]2 U2 p7 _! {+ z: u9 W+ q. k
RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",", 0 V5 a; W& o! E0 }7 m0 V' o
RowBox[{"x2", "->",
z& A s2 A; B$ \9 H RowBox[{"Data", "[",
a4 w9 A3 t. D3 }# l RowBox[{"[", & Q( X. S6 `% D) N# C# M- h4 s4 x
RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",", 3 |5 m! @+ p. ]+ q7 F: \
RowBox[{"x3", "->",
" g+ ~* y" j! G; e RowBox[{"Data", "[", - s. T' p v3 A& c! N6 J5 y
RowBox[{"[",
+ [9 V3 |0 ^ _2 A' M- Z RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",", 4 f! {+ a" @9 ~$ L- y+ E5 ^# N% E
RowBox[{"x4", "->",
" X9 L/ i4 G/ Y# C7 G$ _7 I RowBox[{"Data", "[",
: K8 ]/ M, Q# N' z u RowBox[{"[",
- o6 V3 i7 @0 J8 T7 d2 S; y/ X RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",",
5 q& N4 R4 n( J! Z- Q2 F/ w RowBox[{"x5", "->",
0 D% E. ~- S! Z$ D" Z RowBox[{"Data", "[",
4 i% g9 c) D% U8 k$ G6 U0 Q RowBox[{"[", ) q$ s- p; r: Y
RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",",
1 V6 w3 J, b9 O- j/ H8 w RowBox[{"x6", "->", 3 {6 n4 m" w. e/ l, d9 W7 Q; @5 C8 D
RowBox[{"Data", "[", + d5 `0 w; z" I& r
RowBox[{"[",
2 o( f+ L; B$ m' Z. {! l RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",", " |1 |* x) ^. q8 W
RowBox[{"x7", "->", ( t* `9 u- C; A% \
RowBox[{"Data", "[", 3 l/ A$ P4 Y8 n4 s$ U! ]
RowBox[{"[", ) {& ]: ^* G8 L4 d
RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",",
$ p2 ?5 ~2 g' }( b% I+ I RowBox[{"x8", "->", ! G+ E! C% l2 a3 A$ Z" p+ f! l
RowBox[{"Data", "[", 0 r& C+ p8 e, b2 s0 O4 e# P
RowBox[{"[",
: _+ _: J. W4 [- ?5 |8 h- d RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",", ( y d' d6 ?) x1 {: [' s0 A. Z, ]
RowBox[{"x9", "->",
& P+ L- X. t' b4 t/ w RowBox[{"Data", "[", 0 |' Q& w$ ^9 G7 N I+ \
RowBox[{"[",
- B. f! i! n# b RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";", 4 q1 `. _# ~+ y* N* `1 }+ [7 ?
"\[IndentingNewLine]",
! L9 W( ?' e' y# L1 U4 L# C RowBox[{
6 B6 \8 ^/ O9 p, @, }$ W( L RowBox[{"m60n21", "[", / }$ w6 b6 U* W
RowBox[{"[", * x" @" i, H$ E! C& Q) y) Q
RowBox[{"i", ",", "10"}], "]"}], "]"}], "=",
7 t6 B' k$ H$ f# {+ ] RowBox[{"u10", "/.", : \& h: f3 w, L( d& d1 F, ^
RowBox[{"{", ' Z E" ]3 \/ M" L. I# x
RowBox[{1 O5 G' G* j+ G* t5 T% P( o
RowBox[{"x1", "->",
- B. x8 M* b. E; ~/ C RowBox[{"Data", "[",
9 Q" Q1 ~9 |5 z2 ]; T2 e& h: B RowBox[{"[", 3 P( `. ]' [! t8 l7 e% ]
RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",",
6 A; \+ _' H" e5 @. C) _( G RowBox[{"x2", "->", * `# h" [! o" A+ p9 `6 W
RowBox[{"Data", "[",
' L$ r J2 v# q( j: p! @ RowBox[{"[",
[$ G- \* \+ _- R- `7 J. i$ p RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",",
F# _+ q7 \3 y RowBox[{"x3", "->",
9 L) P9 t# H9 `' A, t7 Q7 u RowBox[{"Data", "[",
7 P# }1 T3 E1 \* q# s9 L8 w0 f1 B RowBox[{"[",
2 Q" y$ l; U4 |0 u. ^) P RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",",
3 g" \3 \4 q3 N/ j% _" x: ~ RowBox[{"x4", "->", 1 S% j, Y" c v- `7 S+ g
RowBox[{"Data", "[", , l) g; {' z! O2 u& a
RowBox[{"[",
/ M4 O0 r$ o1 e, [ RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",", - T* |& n3 ~* @# N
RowBox[{"x5", "->",
$ j5 k0 a! v; ^) D% k RowBox[{"Data", "[",
4 ?- j; j4 i( w8 ? RowBox[{"[", / w: C/ r1 {: S6 N4 P3 J& D
RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",", 9 K+ U" O1 B8 t8 i
RowBox[{"x6", "->",
6 j2 D. q( Z0 B1 V2 i* j7 W7 y6 } RowBox[{"Data", "[", 6 _+ ~- d1 \5 |5 i+ S% N3 k
RowBox[{"[",
@0 ]+ w4 A2 S- H: m5 \5 \ RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",",
E- c/ S2 ~5 Y RowBox[{"x7", "->",
# G: k3 G# P: i( s RowBox[{"Data", "[",
, w# J, U+ o; \2 }, a# X) ~ RowBox[{"[", $ `5 ]' z6 u+ q7 K, O- J
RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",",
' z1 g6 q/ e9 `8 Y( T RowBox[{"x8", "->",
. z( p1 c1 \# s4 i( x; a RowBox[{"Data", "[", $ h/ U; ~$ v6 x* S( V( I
RowBox[{"[",
$ K8 P! A) r# d6 L RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",", 4 X) Z1 @1 ~1 ^6 L$ Z- l* v/ J
RowBox[{"x9", "->", # D a) U" S7 w' }) p
RowBox[{"Data", "[",
6 M, x1 ]+ f8 [7 }$ z RowBox[{"[", + P. |! L5 E6 X- y
RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";", 4 M4 t+ h- v9 N4 [! E
"\[IndentingNewLine]", ) a" `) \- S. \0 P4 p2 f5 I9 ^
RowBox[{
/ X4 P0 @7 B7 m1 U RowBox[{"m60n21", "[", 2 S/ G+ S$ J! l, f' P* }# `, d
RowBox[{"[", 1 b* |. w2 r8 V, w- q
RowBox[{"i", ",", "11"}], "]"}], "]"}], "=",
/ L& g7 a7 i3 ?+ j& V* {, U7 U RowBox[{"u11", "/.",
. Q% j- w6 f$ {( z7 n RowBox[{"{",
m* D- g: G, g" T4 m RowBox[{
" t+ w, f) N' i3 l RowBox[{"x1", "->", 8 |* c8 K- ?+ n7 K+ X& E
RowBox[{"Data", "[",
( o: s! P. {1 x7 f' K RowBox[{"[",
, O4 n1 C3 X; [" [) }1 t! V6 _2 O RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",",
$ W" @9 k) U- k/ \+ K& U+ }, l RowBox[{"x2", "->",
4 [: w( t+ R/ P$ g* `* B RowBox[{"Data", "[",
9 T& y" e1 e8 E, C RowBox[{"[", # f0 l3 M( g5 J3 k P. O1 d7 {
RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",", , W1 l# H. Q. u# n" L0 b
RowBox[{"x3", "->",
6 D9 F8 |+ H9 O0 R+ P RowBox[{"Data", "[",
; {4 }: O$ X+ h |+ d+ _8 ^ RowBox[{"[",
& J, X1 q9 _( H$ _ RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",",
/ @9 F. B* N+ J# Q( x% q+ i9 K RowBox[{"x4", "->", ) j t" P3 `5 L
RowBox[{"Data", "[", ! l6 X! C. G( V; o+ @
RowBox[{"[", 3 B" b$ R" F# f6 m- c" _0 s
RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",", 9 A' w2 N$ S: g
RowBox[{"x5", "->",
7 w$ y+ ~$ O" D8 {$ i; { RowBox[{"Data", "[", . F( S& m& b6 x: Q
RowBox[{"[",
* J; g- j2 @% r4 I# N& x0 { RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",",
. ?: N9 I6 X1 o" W$ t; U# G RowBox[{"x6", "->", . t" L: L l9 Q" C+ ?
RowBox[{"Data", "[", . W- i9 x+ N* p% o5 U7 y
RowBox[{"[",
J# I$ H6 w0 G/ A1 L4 I- b1 h" f3 U RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",",
7 X; G: n5 z% t4 w2 ?# \4 F! M$ z RowBox[{"x7", "->", - n, C% v0 E! B$ X+ E. _
RowBox[{"Data", "[",
. b! A/ R! x* D1 e& M4 B0 v0 d RowBox[{"[",
7 L0 N9 p6 k" z2 k5 J/ ~ RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",",
- x- i* g; \9 B: @5 a RowBox[{"x8", "->", / r& l/ ^/ P k ~* o& `
RowBox[{"Data", "[", ( f9 M7 ?/ |+ N/ s D
RowBox[{"[",
) X* T4 u9 _; \% C, N RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",", % G- _! {/ R' x$ u9 s
RowBox[{"x9", "->", ) X% R( B8 p: u, a) b8 z( V
RowBox[{"Data", "[",
6 R% Z- p; Y7 G, E RowBox[{"[", - x- r4 j# X7 B. W- M
RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";", * F1 L/ V$ c3 c3 N5 \
"\[IndentingNewLine]",
" E: ^( r- j) z" Z: m" d8 s RowBox[{/ D% `& R. M$ j# N: S! v2 e
RowBox[{"m60n21", "[", 3 P1 ]9 m% U9 S! L: j6 l
RowBox[{"[", 3 t& [; C. E! M* W& [9 d1 R, \; o
RowBox[{"i", ",", "12"}], "]"}], "]"}], "=", 7 U2 f& i) W8 g, j1 D* Y. S
RowBox[{"u12", "/.", 1 q( l% w- h/ V
RowBox[{"{",
' e. t: j- o* P8 S) i* W RowBox[{
$ p2 w* ~ v: C RowBox[{"x1", "->",
9 f" C9 P7 i2 A+ s0 z RowBox[{"Data", "[",
g; h6 g; R4 U+ G: t. | RowBox[{"[", 6 e# k) v+ g1 }' I. E
RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",", 3 p; c. B4 M# R8 v2 K' Z, R8 n
RowBox[{"x2", "->", . b X9 _9 L% I5 k
RowBox[{"Data", "[",
% C% _$ ]$ _- n, ^% j RowBox[{"[", * t- M; b7 w8 z6 y( R/ T( b0 |
RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",", ; g& B1 ^7 A; r) I: R0 U# s
RowBox[{"x3", "->", ! v# z/ V8 l; J0 K
RowBox[{"Data", "[",
% O: B& Q, a! k, Z RowBox[{"[", 9 I) e1 B9 A$ @% |
RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",",
/ ^& x: b* x- p; ?5 h1 h7 K RowBox[{"x4", "->",
- L# J1 u0 H! _0 f( Q: D5 G7 m RowBox[{"Data", "[", & P* ]4 O+ M1 P, W; M! y: _
RowBox[{"[", 2 u# m& M* q! T
RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",",
6 a% x" J, j2 u/ a7 C RowBox[{"x5", "->", / @, P% N/ E' @( K- b3 _
RowBox[{"Data", "[", ) C) q$ g( \ n- R! F4 @
RowBox[{"[",
% W( o& n& S6 A5 k: t2 Z- b# Q7 J RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",", E, U( g- u4 D1 |. |0 n A$ L
RowBox[{"x6", "->", + z4 l- \5 m* j- o# R
RowBox[{"Data", "[", ! p- z0 ?4 T5 j2 T/ b
RowBox[{"[",
' O3 G9 p0 T% P# q$ d+ K1 A RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",", 1 N" ?5 U0 q6 R, ?2 u! B
RowBox[{"x7", "->", 7 S) l7 m. P) X( I
RowBox[{"Data", "[", 7 F) |0 p6 ~' u y+ f
RowBox[{"[",
: }5 C- @7 ]. T9 T RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",", ; B& W6 m Y h$ g }
RowBox[{"x8", "->", ) J4 }- V0 [) e/ Y
RowBox[{"Data", "[",
( {0 a# ]/ q* q- F+ |& @: J9 S7 i RowBox[{"[", " g" m A I# G
RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",", & q9 z+ J% g& [7 h% y& R/ b" P* [, t
RowBox[{"x9", "->", ' [# r% r8 [$ d- v% }/ i) t' d3 m6 Q
RowBox[{"Data", "[",
) c: x$ J3 H5 A" d; o( t! A0 I RowBox[{"[", 1 p7 z- A' P5 i0 q; R. R% f& ?: T
RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";", : d; r6 g% }& s' j; m
"\[IndentingNewLine]",
2 M8 ^/ m& _1 m RowBox[{
# o) q& U2 h. j0 f {) t1 u# ] RowBox[{"m60n21", "[",
) g3 K" K! y4 |& Z a: \! N. H6 K RowBox[{"[",
2 H( J. J* w1 ]7 k RowBox[{"i", ",", "13"}], "]"}], "]"}], "=",
( ]& ~1 j" L% h# k RowBox[{"u13", "/.", 1 m. n; d9 x# M) }& H
RowBox[{"{",
- K9 t5 o. s: l6 E5 } RowBox[{0 ]- H$ k) n" D% f2 P0 [ J
RowBox[{"x1", "->",
9 o5 d a9 p1 e- Y7 m7 m RowBox[{"Data", "[",
4 D3 ?# A9 j0 q6 a! U0 N7 H- ` RowBox[{"[",
]7 j0 z! \: D6 y4 n+ }3 I k, { RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",", 4 g; N! Q) _: M" O$ G9 E9 @
RowBox[{"x2", "->", 6 z) e; S$ F9 ^6 V2 u1 y
RowBox[{"Data", "[",
$ [5 {+ b+ C; l* o4 ` RowBox[{"[",
& [ b7 _1 n' i$ v8 T, L9 w' F. d RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",", 6 e1 c3 F+ A3 a! Z" H5 a3 u( H% f: Y
RowBox[{"x3", "->", . y c$ O" K/ m
RowBox[{"Data", "[",
' s, W, H, {0 x4 L# y/ R RowBox[{"[", / i7 _4 h& h. u
RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",", , c) N- _: X- s0 a, U; b
RowBox[{"x4", "->",
& h7 T* i: ?9 G) }! m RowBox[{"Data", "[",
& O) r! o8 u9 n% P4 a RowBox[{"[",
2 A) b: Z. Y8 r RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",",
' S) `) h7 r. j. a( P4 D+ B RowBox[{"x5", "->", ; ]0 x) m" r3 t+ W
RowBox[{"Data", "[",
! s# l5 ~# I& o: n RowBox[{"[", 6 r7 B/ K$ `; c' l& O" z# Y
RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",",
0 z- d) P1 D/ L2 j RowBox[{"x6", "->",
; _+ ^6 X" m! K, i! p! i% v RowBox[{"Data", "[",
4 z" N/ _) H1 b8 A9 \5 ] RowBox[{"[", 4 g' y G" {; `
RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",",
( }8 p6 \. Q/ ?6 b RowBox[{"x7", "->", % b$ ]& w) r- f# o9 `& O
RowBox[{"Data", "[", 2 i9 k! M# [9 A+ z% M. b
RowBox[{"[",
. M: H& Z/ \% D" |8 R( f& e- F RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",", , o* ?8 V! r# P
RowBox[{"x8", "->", : g6 F. Z( {+ O7 P
RowBox[{"Data", "[",
Q. h9 X* O% A: q" q& [! [& q0 B5 R RowBox[{"[",
6 q: w$ W/ o3 q" a* w RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",",
8 e) e" ^0 Q( X+ I1 D& K RowBox[{"x9", "->", ) U5 }8 L2 \ R9 T, I* N0 P1 r2 [
RowBox[{"Data", "[", 1 e, W( D$ V7 Q+ Q5 C/ W
RowBox[{"[", 5 a/ y, n7 A' g; y4 E
RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";",
0 ~8 g! m/ }7 G( R' u "\[IndentingNewLine]",
) T& i& w* q: G3 M$ T6 j* z RowBox[{. r5 f! v3 P( w' X: S, B( Q* c
RowBox[{"m60n21", "[", & H/ ^! @$ o# {% t4 G
RowBox[{"[",
4 k: [0 I* x) M! R" A0 @4 V1 D RowBox[{"i", ",", "14"}], "]"}], "]"}], "=",
1 |& g1 T+ d5 d. [) q8 ] RowBox[{"u14", "/.", ) S# Q: I" Y5 ^) }- ?
RowBox[{"{", $ V. ]# M: t$ h4 o) F
RowBox[{
8 A4 B' B6 ?2 | RowBox[{"x1", "->",
, G2 O3 L' T9 y4 r) s RowBox[{"Data", "[", * W! w! Y3 N2 \ G0 g
RowBox[{"[",
0 w' v7 w9 v6 [. W5 A9 K1 c RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",", 2 p/ ]! s: H3 i& \& `- d
RowBox[{"x2", "->",
; Q1 F" Q( G# \# h+ ?" @- {. i RowBox[{"Data", "[", % w |. n" P6 I$ L3 y0 p& N0 W
RowBox[{"[",
& v8 C) z4 U2 v8 a3 B6 u8 G. e RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",", ; w) ]5 y7 V8 h
RowBox[{"x3", "->",
4 a5 C7 h9 V, J3 J5 t- h" J RowBox[{"Data", "[",
2 w' F+ _+ T) ^- K" U- v% L RowBox[{"[",
) D: V' h. u. V7 p- e4 z RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",", * O6 N% L. T6 A0 A+ \7 _2 o! m
RowBox[{"x4", "->", # V9 ~3 j6 E& W
RowBox[{"Data", "[",
6 J/ U, a0 Y. ^& @/ P' \8 T RowBox[{"[", . ~5 ]) L% ^, Z) s5 u2 Q3 c
RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",",
7 h' a6 ]) f6 O2 a RowBox[{"x5", "->", 1 C1 _$ k2 \2 d: d
RowBox[{"Data", "[", ( C! \6 e9 S" x9 x/ T
RowBox[{"[", ( I8 t. e* J) Y2 N* V) a* H A
RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",", / ~* h% _& ~. u _. R8 w! [! x
RowBox[{"x6", "->", 8 ]1 }' @9 ]" a; w; z) x
RowBox[{"Data", "[", : u: W$ @8 w7 @% i0 f3 G
RowBox[{"[",
4 [2 k3 T! @8 s. A- T RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",",
. C9 w. b. `( t, \ RowBox[{"x7", "->",
. b; K% g5 z ^, C+ m( R" u* N RowBox[{"Data", "[", . H, b9 G3 r3 R2 O* i( Z4 K
RowBox[{"[", 7 A9 W, O, o C" a
RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",",
, J0 h$ }' H- ~7 | W$ Z RowBox[{"x8", "->", % `# x# C/ N0 A% D% r0 n1 J
RowBox[{"Data", "[",
& J- W# V8 f: ^# a6 P0 k$ n7 ] RowBox[{"[", ) X4 K* F; L5 _ W$ o; X5 L
RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",", 7 V& I3 a3 X, z
RowBox[{"x9", "->", 1 E; `) U3 B9 U& Q2 P3 i2 D0 D
RowBox[{"Data", "[",
% B; |4 B# v- K: h0 L: t% t' m RowBox[{"[", ; }3 ~% Z7 V* `/ Z4 q0 j+ q F, n
RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";",
' g, D4 |$ P) j& R) r "\[IndentingNewLine]", 0 x6 e$ ~3 q; p5 d# g4 `+ j4 c
RowBox[{1 ` l9 f( {! N; b$ F$ w5 ]
RowBox[{"m60n21", "[", ! N! H1 H" l8 @) W0 f
RowBox[{"[",
" ]! w2 {: j- J( q3 D( N RowBox[{"i", ",", "15"}], "]"}], "]"}], "=",
% G& @# k' Y! \; o H' r% { RowBox[{"u15", "/.",
g1 `( ?& _3 a: x1 U, ]# l8 F RowBox[{"{",
& e) W; ?' h5 X5 S& w RowBox[{
) R3 [$ D) K3 Y5 |9 S. m1 ^: A RowBox[{"x1", "->",
; t* G' _. _6 Q8 p4 `3 x" a RowBox[{"Data", "[",
, _5 q, E& ]% C$ I5 A RowBox[{"[",
1 l0 @; n! v9 I/ @4 n: ]6 k RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",", 9 F7 d( _, ?5 q2 T$ k7 }
RowBox[{"x2", "->",
: R, }* g$ L2 V2 J& [9 S4 W9 y RowBox[{"Data", "[", $ D* C# Z1 k% P, w5 {$ `" J
RowBox[{"[",
. M! m. N3 h8 P' K( D( i RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",", , f4 d ?1 T E
RowBox[{"x3", "->",
7 e5 O# | t) p& u RowBox[{"Data", "[",
3 Q6 F1 k' e4 W* @) ?; _- I( u RowBox[{"[",
; {1 E; i( F' D1 }" W( b RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",",
9 ?! x; X1 \/ A4 E RowBox[{"x4", "->", $ P3 b. V. Q, F1 P X
RowBox[{"Data", "[", 9 L M2 \% E3 o! s2 q
RowBox[{"[", : o: D2 E) H$ }5 E+ U3 G! z
RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",",
3 y; [+ [5 [, e9 |8 Y F" c RowBox[{"x5", "->", / c( q8 i3 n- X/ M5 ~8 }
RowBox[{"Data", "[",
$ I2 X. B k3 v RowBox[{"[", 0 A4 ~8 P# X) l! @/ ?
RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",", 8 P# L9 k( b+ `, ]
RowBox[{"x6", "->", 5 P- G- S) E* K; k- a
RowBox[{"Data", "[",
$ e$ n- `* ~. G- |# y" I O) P1 m RowBox[{"[", 7 @8 h' |, B# f* H3 m# @) L* @, a
RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",",
! E/ N4 W& f4 K( q( D' b n RowBox[{"x7", "->", 6 r, [( L) T# g: v$ f, {% M
RowBox[{"Data", "[",
. D; J, R i W! Y6 i$ \% b. Q9 f RowBox[{"[",
4 ]* c: w3 ?6 H& E# y' L RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",",
6 x2 z& a4 R7 g* y; h RowBox[{"x8", "->",
3 @- m }% s! R! `7 e: F RowBox[{"Data", "[",
3 y* ]- g2 C; ?1 \4 Q/ b* E3 v RowBox[{"[", : k) U6 @' Z K5 i/ H" M
RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",",
|+ K. a& f% j4 p1 [- @ RowBox[{"x9", "->",
+ M. q0 h6 h5 d2 o- A2 x$ R- H RowBox[{"Data", "[", & ]/ n5 b. J ]- t. H
RowBox[{"[",
4 S# j! S; U6 n3 W+ j& U RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";", ( i4 r% C9 ^4 P" b
"\[IndentingNewLine]",
) @: f2 [; O/ ` RowBox[{- M3 m7 |% D& A
RowBox[{"m60n21", "[", 4 c" j/ H& R2 [8 [$ I
RowBox[{"[", 7 s `5 u1 M$ j3 c7 H a
RowBox[{"i", ",", "16"}], "]"}], "]"}], "=", 0 z) F/ s# C- J0 j0 l! n* v
RowBox[{"u16", "/.", ) `- i& y: m$ V6 `: ? i# s
RowBox[{"{", ) `% J- ^6 B J( x+ M: [
RowBox[{
0 V5 \" V) H% H% f4 k, q$ Y RowBox[{"x1", "->", & \8 H/ C5 G$ U9 M0 m
RowBox[{"Data", "[", " a$ k1 u; a' p: o1 `4 F
RowBox[{"[", / k6 m! Y5 g+ m6 A' w, G# @/ B6 k4 j
RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",",
- F2 s9 e. k* r; u RowBox[{"x2", "->",
; s" o: {7 g2 _6 M6 A RowBox[{"Data", "[", & V* u) o+ y h! P; Q+ z4 _4 r6 D1 M
RowBox[{"[", ! ~0 V! d4 X2 P: f
RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",",
2 g" B* q5 Q! l3 M+ ?, h; `6 L RowBox[{"x3", "->", + Y3 u1 T7 j' L. T6 S% |
RowBox[{"Data", "[",
1 d6 C" g+ u( R7 | RowBox[{"[", 0 n: @; K& _: E
RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",",
1 A! D0 {8 P" B \% @( N RowBox[{"x4", "->",
Q5 S7 Z' I" ^' I8 a: i RowBox[{"Data", "[",
3 w) L$ @/ H6 N; h RowBox[{"[", $ m1 M/ Q( v: L) e8 t! b) a# G# h+ ?
RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",", * R* y2 i: S# G' C9 ^5 [8 A& d
RowBox[{"x5", "->",
$ K9 M, P* _: E; P. Z RowBox[{"Data", "[",
0 i) [0 I9 }) n: R* {9 u RowBox[{"[", $ }' l4 D7 o l3 T
RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",", " l, @: [% l# ]8 K: N) l
RowBox[{"x6", "->",
& j3 _0 k8 W8 G$ M7 g7 L# v+ A! U/ s* L RowBox[{"Data", "[",
3 g+ g$ G; o/ `+ e6 g RowBox[{"[", & |; z+ X+ Q9 g$ t
RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",", & O. Q9 r' G" P. u, D8 ~" [
RowBox[{"x7", "->", 7 ` ^4 I7 F" x' [
RowBox[{"Data", "[",
$ _! g) i( D. _, B9 W+ q RowBox[{"[", + A' Y o1 i' j
RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",", / y/ _/ x, F3 w4 S5 A5 Y
RowBox[{"x8", "->", & G8 W, m2 {7 e
RowBox[{"Data", "[", 2 A1 L" [7 k9 S/ ?
RowBox[{"[", 2 Y7 C, w7 a2 x" r8 O, s# Q
RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",",
; V! u% j2 G9 E0 { RowBox[{"x9", "->", % O$ h# `1 ]2 `" h, ^
RowBox[{"Data", "[",
, G5 U5 k- v1 A; t& g RowBox[{"[", - E3 W! ]* g6 l5 s/ S
RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";",
- o+ t7 n9 D8 j1 U3 J- r "\[IndentingNewLine]", * H2 b* O% L: E" N: `8 g
RowBox[{- J% G2 G# e; \$ ^
RowBox[{"m60n21", "[", 3 Q) T- d0 G. v. e- N0 ?
RowBox[{"[",
! _$ f) ~- c H6 q! f RowBox[{"i", ",", "17"}], "]"}], "]"}], "=",
0 h) z6 }) s {) O RowBox[{"u17", "/.",
3 q/ V. Z+ f/ y" L1 n RowBox[{"{", ! |5 r! M0 M1 ~% q
RowBox[{; u r2 P7 k% I5 `
RowBox[{"x1", "->",
" j& f, J. a" p7 B RowBox[{"Data", "[", : v7 k/ z" K9 `( H' n. Q
RowBox[{"[",
* ?7 q- H! R, j) u RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",",
7 H5 {' H! H3 u7 D0 {$ Y$ F9 g RowBox[{"x2", "->",
. t% ?( y( D, y) a RowBox[{"Data", "[", . M+ Q* {5 P A% Z, B" n+ l
RowBox[{"[", " [. z, _. J- J; m2 e/ i
RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",", # E6 q: I+ C; ]2 W0 G& `) }6 S" l* `9 e
RowBox[{"x3", "->",
4 E: E/ s0 R5 x+ u [ RowBox[{"Data", "[", 6 Z/ \$ `) L8 l C! H4 n2 |- P# s7 I
RowBox[{"[", 8 V1 _5 D0 V! d
RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",", ( a- D; i3 [, i) t) p$ Q$ k! P' _
RowBox[{"x4", "->",
' c" M. s3 M( P3 \# M% ~ RowBox[{"Data", "[", 9 R4 k2 I* { r8 z1 j
RowBox[{"[", 6 I# W7 B% O K
RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",",
) J4 m! E+ v4 d- |+ Y1 @) t% H" h RowBox[{"x5", "->", 3 T' H2 R8 F2 c$ I
RowBox[{"Data", "[",
. R& R$ f4 k/ s; ]+ ~ RowBox[{"[", ; j: G9 ?* N* \9 U% X
RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",", # |$ B6 R4 o! l& z/ i5 [5 I F
RowBox[{"x6", "->", ~% D, ~9 N+ h9 c1 \
RowBox[{"Data", "[",
6 [' T ]7 j9 i) X RowBox[{"[", 2 T0 o# s; M. W2 j( {; y
RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",",
7 Q8 u; K, p# H1 H RowBox[{"x7", "->",
8 h9 F( }& n/ ^7 C4 o8 I0 B) K RowBox[{"Data", "[", 5 m+ @' |, X F
RowBox[{"[", % d: S5 u$ W! Z
RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",",
% N: z/ e: b/ n$ S7 c- |. [; q RowBox[{"x8", "->", ! h$ F0 { Z$ y' E0 u
RowBox[{"Data", "[",
9 [! ^- J& V, Z) U# M RowBox[{"[",
0 ]6 J3 p r7 L8 Q! ~, P RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",",
: v4 `' H& k' s RowBox[{"x9", "->",
' I, `" I7 V4 g9 t' D RowBox[{"Data", "[", ~/ w; a7 W5 E& e# O
RowBox[{"[",
! U* _' A, G, K( k2 v/ G RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";",
7 f% l: F% M0 k t; ^; J) ` "\[IndentingNewLine]",
8 f2 V' ^( Y: @# _3 e+ n/ s# w RowBox[{7 u9 K+ G7 a) D! P# r$ _
RowBox[{"m60n21", "[", / c" z2 I, w# Y
RowBox[{"[",
: H6 i- ?# i9 X RowBox[{"i", ",", "18"}], "]"}], "]"}], "=",
" X. v y5 ]! [4 D( y3 K RowBox[{"u18", "/.",
- X4 s% t* i# [! B RowBox[{"{", 6 `: B) p, J7 y+ v4 y( G8 E7 i
RowBox[{
; o& M/ ^6 g; @" z RowBox[{"x1", "->", 9 N* X) }: k0 K" ?/ ^% Q {. ~
RowBox[{"Data", "[",
' _; k( o; {$ C! p RowBox[{"[",
1 _ }3 t) H1 p" d9 n+ R+ L9 ]# s RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",",
1 [7 D7 G" J/ _: n) ~) V# H RowBox[{"x2", "->",
/ ^0 i! E+ J: [& F+ G RowBox[{"Data", "[",
* d2 b$ c0 \: A/ O RowBox[{"[",
- E" ]2 z9 x3 |; M4 ^2 ]6 R RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",", 9 s* _5 t0 W) p* S& G2 t
RowBox[{"x3", "->", - l* `3 b3 @; q; K7 N! v
RowBox[{"Data", "[", " e# b" o, T8 T# U6 |' I: ]/ f
RowBox[{"[", + Y- u) n9 E t
RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",", x; l% C: G; o; ?& o6 y
RowBox[{"x4", "->",
2 T/ _2 f7 x3 ~4 o, h* Q( P9 V0 R RowBox[{"Data", "[", ; A$ z! m7 S4 t( ?: B5 c* c
RowBox[{"[", % S( _7 Q) i" p) ]- o% O8 ?
RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",", " T6 W1 l$ m5 q7 L+ y7 }( J
RowBox[{"x5", "->", + n7 y' P9 J; ~/ r
RowBox[{"Data", "[",
( d' v/ C _5 d3 Q" O" [ RowBox[{"[",
' e/ e; x3 Q% }/ H RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",", 6 Q G* m1 d6 z. A6 G( `8 F/ ^
RowBox[{"x6", "->",
3 `: f" B' ~$ c" R) @& d RowBox[{"Data", "[", ' e/ B8 Y; |+ o7 j3 p
RowBox[{"[",
' h" J5 e2 l' O/ f' @9 S( i* Z RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",",
2 L, M6 z* }! [2 c* S RowBox[{"x7", "->", ' M/ n7 a5 M; c# J4 {/ O) j* ~
RowBox[{"Data", "[", # y7 }9 y( \0 G4 u/ S- m
RowBox[{"[",
5 d C2 A9 \/ N- _+ Y5 F1 { RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",",
" o5 q/ g2 A; X5 b; U! q7 q RowBox[{"x8", "->",
6 a6 m. X% p. v3 s# f: s" B RowBox[{"Data", "[", % T) R9 H- i& S* Q
RowBox[{"[", 3 L3 e8 K0 j" c% o9 q. f" _) f
RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",",
/ \0 N' e# j; b2 q: X0 D3 T RowBox[{"x9", "->",
' r, p/ v4 W$ ]" z4 R% m' W8 X RowBox[{"Data", "[",
9 i. U0 y, ]: |4 H& ~ RowBox[{"[", 6 w- y) A) l* s$ h* J
RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";", * v; T% U8 {0 s9 O& ^. o6 u, P
"\[IndentingNewLine]",
" l+ f7 u+ S& z& [ RowBox[{
0 L6 M/ u( H; G' _ RowBox[{"m60n21", "[",
% Q* ^& y" o. x RowBox[{"[",
& X+ B# n+ g* e: [; Y* M RowBox[{"i", ",", "19"}], "]"}], "]"}], "=",
: a7 ?2 T5 U6 p j RowBox[{"u19", "/.",
( ~4 I9 b6 F/ E1 k RowBox[{"{",
1 B1 }; P" U B, t9 @: Q L RowBox[{
$ ?5 r- B' y" P9 B RowBox[{"x1", "->", . w8 t7 [8 k- e( W# F# d3 B
RowBox[{"Data", "[", - l1 k4 @. r4 L0 D6 Q, J
RowBox[{"[", 1 t; n0 f: Z9 V l4 r
RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",",
; q: j* P/ F+ h1 }! ]& D RowBox[{"x2", "->",
, }1 C% ~7 H8 v# f# {! V8 E RowBox[{"Data", "[", 9 N% `* M! A ^1 l
RowBox[{"[", ' l* p* Y' p9 b. b2 Y8 C6 v
RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",", 3 ?8 `+ a. y- h! K: r$ g
RowBox[{"x3", "->",
+ q7 H4 |3 ?% Y8 i3 M C# W4 D U7 f RowBox[{"Data", "[", 0 ?, h/ l9 i6 ^7 E! D
RowBox[{"[",
7 r2 r% E U4 ~' g r RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",",
& T" v& J7 r. {5 ]7 }5 J RowBox[{"x4", "->", ! W5 i/ d1 F* \# }/ l
RowBox[{"Data", "[", 5 ^: Z. ?1 z" N* [
RowBox[{"[", ) U! }( ^, r) o% U# g
RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",", % h- o1 ~9 D) x1 b. Y
RowBox[{"x5", "->",
- U8 {) ?, J! `+ N RowBox[{"Data", "[",
% M8 L" ^# Y2 @- I RowBox[{"[",
; `9 d |* G6 N1 j RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",", / D& z' G3 r: F/ o5 [6 x, W
RowBox[{"x6", "->", 0 ~9 J7 m1 W+ _! s" l
RowBox[{"Data", "[", : @4 \, ]; [6 I& M. y0 M7 q
RowBox[{"[",
0 _* U* { ~$ Z" ^3 q5 z RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",", ' l$ r! b8 H7 h; Q) b8 f, {" I
RowBox[{"x7", "->",
0 \: @. P4 o0 ~. ^5 v RowBox[{"Data", "[", ( `. }5 Y w) n( b" D1 P" C
RowBox[{"[", * V$ M9 v8 j$ T" Y" e5 x, h8 {
RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",",
h% H. \5 f0 h% U RowBox[{"x8", "->", 8 Z) Q1 V. T( ~' }# d3 J x3 O3 A
RowBox[{"Data", "[", * y6 @3 w& w6 C2 G& A2 n! y
RowBox[{"[",
a6 Q* D& F4 N7 I RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",", ) M$ ?7 f$ G7 o
RowBox[{"x9", "->",
# c1 ?# Z! x; B8 k' H1 Y: J RowBox[{"Data", "[",
; \+ T7 s* V' F5 v4 |! M RowBox[{"[",
2 r5 ~5 S# s8 e! w( O+ [2 |+ M% U RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";",
0 o' I" k4 e1 e0 ]" T "\[IndentingNewLine]", * n7 p& j( B, K, @
RowBox[{
0 ^) e" v6 T+ V5 J2 r" C' x RowBox[{"m60n21", "[",
7 O; }( b- g# W2 o RowBox[{"[", , M0 i6 S$ K! ]3 | o
RowBox[{"i", ",", "20"}], "]"}], "]"}], "=",
( x7 H8 z/ N2 C RowBox[{"u20", "/.",
, F& n' `9 X' K" R: ]3 V RowBox[{"{",
/ G: O+ A7 }( E- }8 d RowBox[{- ?# L- Z; O9 y, B* A7 ?0 j+ Z1 M
RowBox[{"x1", "->", 2 S( X5 z8 [) n6 N2 {% `$ |9 g$ d
RowBox[{"Data", "[", * k4 | Y2 S3 P" l4 t
RowBox[{"[",
& j* _ ^) T' X' W- Q4 z' S" S. ^ RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",", ) b1 r1 M; I: m7 J, o& L
RowBox[{"x2", "->", 6 X+ W% Y, w& _4 l
RowBox[{"Data", "[",
8 W- j) I& q0 A5 `7 {4 R8 q5 Z4 Y# Z RowBox[{"[",
( U4 L; k0 b4 p% ~' w" N9 V H( P* f4 x RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",", 2 N" \% q o9 C6 D
RowBox[{"x3", "->", ( b& i+ y' e! F. q* k2 U2 q
RowBox[{"Data", "[", . V5 ~. G4 o6 [6 q8 c5 ` z
RowBox[{"[", 4 r0 H* R% h& R% n
RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",", ; Q6 G3 @9 I; _, z6 ]; ^; w
RowBox[{"x4", "->", 5 r( j, \9 |& A* b2 {' I
RowBox[{"Data", "[", % z% v [* H" R: ]1 m% w
RowBox[{"[", 8 R f9 _- f; [! U5 o1 d
RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",",
* ?. a8 J8 J: y2 a. p RowBox[{"x5", "->", # j: {. X5 C3 c4 R7 Z0 s
RowBox[{"Data", "[", ) d( \4 \8 w* c4 O* r
RowBox[{"[",
$ O9 z/ ]+ H9 F& L# } RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",",
) W% e5 I: U. ~% E# e5 J RowBox[{"x6", "->",
V7 H" M+ l ]3 W* @ RowBox[{"Data", "[", 4 C; G) B5 o2 o! j, R4 ~% B5 ]
RowBox[{"[",
1 f9 z8 V- ^- `$ X) e; E$ M RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",",
$ X2 ^* {; C7 {( B RowBox[{"x7", "->", " s/ Q5 v9 `1 W2 s \6 _* `1 ?* R
RowBox[{"Data", "[", 0 l' {; }3 \3 x1 d1 }$ y9 X) s& i
RowBox[{"[",
: M0 H4 Z+ k) j; l RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",",
) j+ {" @2 C: Y7 j" B. d RowBox[{"x8", "->",
! G- L. w/ x' v! _" v- N& B! J RowBox[{"Data", "[", , I: B6 E0 J8 }0 V, h, F1 |
RowBox[{"[", c& m" y g1 [, j+ {8 c# A
RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",",
2 O8 |# ]# e- k8 l6 ^ RowBox[{"x9", "->", ; M: i1 c) Q* J7 v& Q$ Q% t6 y
RowBox[{"Data", "[",
/ f5 Z0 c5 b7 I' ^# d D9 p RowBox[{"[", 0 Y, U: D( K9 E% v1 s
RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";",
, r0 E5 X/ H; ?; ~; \ W# X "\[IndentingNewLine]", , F6 y9 u. q. v. a9 g; o& w
RowBox[{; B9 q* T8 ~' i1 x* M
RowBox[{"m60n21", "[", 5 i. k- H( M' Y: A8 n9 Q, l& y
RowBox[{"[", 9 R5 k. S. i1 ?& E% M4 U/ r. U
RowBox[{"i", ",", "21"}], "]"}], "]"}], "=", ' x. Q6 c) U" l& a* X7 S
RowBox[{"u21", "/.", 9 ?* X4 Y+ e4 T! `- G6 A
RowBox[{"{",
# o, A/ Q h) j RowBox[{
O$ Y- X( C+ t) }% f RowBox[{"x1", "->", & `+ @# X H0 ?# [/ z! ]
RowBox[{"Data", "[",
, H# c7 W! ~& D& h$ Y RowBox[{"[",
) I' e+ W$ t2 i3 U2 O' d V0 g6 z- \ RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",", . y9 a# E+ u: m1 e
RowBox[{"x2", "->",
3 P, Y: C, V* F5 J* R% R+ d RowBox[{"Data", "[",
% l) F% d3 M8 r* a* {$ O# i, Z4 q RowBox[{"[", % \+ w" Z8 G4 ~3 v0 r; K8 A7 z
RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",", 4 }* J7 V3 E' Y
RowBox[{"x3", "->", ' \# }) ?1 r! R3 x
RowBox[{"Data", "[", - H) @/ u$ ?% w5 b$ X: y
RowBox[{"[", 1 G+ {1 Z5 E b8 b$ L
RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",",
9 M. Z5 b$ e4 f; a4 d' N1 _ RowBox[{"x4", "->",
' E1 Q, Z" g8 I# i2 i RowBox[{"Data", "[", $ {3 g/ i9 |' m8 W' m: J2 N. a
RowBox[{"[", 7 ^: O" Y E, f: Z+ }
RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",", $ m% a( p" |: Z u/ Y* q' G
RowBox[{"x5", "->",
( a5 y6 S' l5 p RowBox[{"Data", "[",
% ` M9 x# A, Y# N7 M RowBox[{"[",
+ _5 Y2 C3 z {. w% w, z" u- b' ` RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",",
9 g, O. J& ]) e6 v; f6 d4 f RowBox[{"x6", "->",
1 {" l- J8 s0 c7 ^ RowBox[{"Data", "[",
7 f% x! l' L4 w; F# e7 \0 l RowBox[{"[",
n l4 d3 m- p- B RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",", 1 {- _: b6 T6 a) W, w5 O0 y6 ~9 q
RowBox[{"x7", "->",
5 K3 j$ |" O1 U6 S+ V" X2 Q RowBox[{"Data", "[",
H) t% U6 n/ J, i9 U! x RowBox[{"[",
. d+ P9 Q0 n- @8 W! w a RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",",
* c% D5 K9 f z: u* h+ t RowBox[{"x8", "->", & `% x% H3 ~: n5 z
RowBox[{"Data", "[", & ]4 a) C9 v: o; e' m: C
RowBox[{"[", * m: W5 F" F" Y! k9 N
RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",", - t- ~) `. s( ~, y3 ]1 E
RowBox[{"x9", "->", ! t) R' ~2 N, R) V) {
RowBox[{"Data", "[",
* Q E' e @4 n7 D- l RowBox[{"[", 4 A5 x1 o# W# q: T/ b+ z
RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";"}],
?( P* n6 n+ g( V. @0 R3 e "\[IndentingNewLine]", "}"}]}], "\[IndentingNewLine]", "]"}]], "Input",
1 e/ `2 l0 r$ ^! ] CellChangeTimes->{{3.5779241165*^9, 3.57792417728125*^9}, {
* M. ]& ?' I9 O' c! x( I3 l 3.57792428359375*^9, 3.577924585109375*^9}, {3.577958919491543*^9,
. S |- C- D! t* d 3.5779589224867477`*^9}, {3.5779619825731473`*^9, 3.5779620676400957`*^9}}],
+ |% j' c! I. {( {1 n7 W( q2 A
% E5 |5 f# X7 }* p+ z2 ~Cell[CellGroupData[{! u7 F# \9 l/ B3 C5 H2 @4 Z
, P! A Q' Q3 c, X9 d; ]- kCell[BoxData[
4 _# [, y* u0 \/ G. \# @# d RowBox[{"w1a", "=",
' B S h9 ~& ~2 j9 l RowBox[{"LeastSquares", "[",
# @1 e- N( s8 v4 C* J/ t RowBox[{"m60n21", ",", "y1a"}], "]"}]}]], "Input",
; X) P9 D% ~0 g! G& J, v CellChangeTimes->{{3.577924598484375*^9, 3.5779246208125*^9}, {, U1 g2 g) V3 \0 F) n
3.577924662765625*^9, 3.57792466596875*^9}, {3.577962074644508*^9,
# ^5 k; X$ i- g' _ 3.5779620748317084`*^9}}],7 D d$ z7 w7 ?2 r7 s W) h% n: ?5 P
) n! D% J2 a- u! u4 I; YCell[BoxData[7 Q" \! g0 d% t M( \3 |
RowBox[{"{", % P! ~4 G& |9 K( _' X
RowBox[{"0.32564305572552416`", ",", "0.500820838606441`", ",",
6 W/ b* m: o2 w/ n* s: d9 ~! D RowBox[{"-", "0.5945873894818967`"}], ",", / ]" c: ]: K+ Y/ \ _1 d( l
RowBox[{"-", "0.1999688587779198`"}], ",", "0.020180806675835994`", ",",
6 P7 a) k o( l ] RowBox[{"-", "0.03345934908892623`"}], ",", "0.25282438852646905`", ",",
5 ^, S2 |$ r# Q( L! h3 d) S RowBox[{"-", "0.17602467625404622`"}], ",", "0.3961180670900672`", ",", ; ~$ _0 k/ o3 i
"0.02759193650965952`", ",", 8 G4 m2 a0 C8 E2 v
RowBox[{"-", "0.320472847796449`"}], ",", ! s' A7 s i1 k# f/ t8 @
RowBox[{"-", "0.07581214474544527`"}], ",", "0.4812237524557292`", ",",
! |2 k w* _# c2 m "0.7528674241482847`", ",", "0.6665374509702799`", ",",
3 \( W9 M6 Y: } "0.22861495086373018`", ",", "0.13092706311748484`", ",",
; D0 m" N" _2 A- x- K "0.5252475961933538`", ",",
0 z v+ Q) K7 F8 {; S RowBox[{"-", "0.10599338351843157`"}], ",", "0.6670272593678526`", ",", : f$ G5 q8 r+ o: a
"0.23580523388620733`"}], "}"}]], "Output",
i2 p5 W- V% B' ] CellChangeTimes->{3.577924621953125*^9, 3.5779246688125*^9,
4 x, c+ |: s4 ]$ G6 d5 K k; H 3.5779575884583836`*^9, 3.577958952875601*^9, 3.5779620806661186`*^9, $ b& j" O+ b& ]2 C' z
3.578012349875*^9}]% U0 y5 F$ ]& l X
}, Open ]],: a6 X5 i8 \! ~! {
. f: f( p) U" \, }: _& ZCell[CellGroupData[{3 `# y& [; _* p0 M9 \; M- R: W0 U
, e$ D. M! Y$ ]* _" ]6 P+ O& jCell[BoxData[( ]) y, A' Y# o% @3 }* `( t4 n
RowBox[{"y1", "=", 0 d5 F" y+ g6 q
RowBox[{"w1a", ".",
5 m6 ?( s4 t) \$ d) `& n9 M RowBox[{"{", 6 x. I) q# C2 Y) I0 y2 ~
RowBox[{3 `8 a4 Y D- ^5 M1 q' a
"u1", ",", "u2", ",", "u3", ",", "u4", ",", "u5", ",", "u6", ",", "u7", . D1 \0 x a3 C+ o j
",", "u8", ",", "u9", ",", "u10", ",", "u11", ",", "u12", ",", "u13", 7 H6 |, c6 a1 P
",", "u14", ",", "u15", ",", "u16", ",", "u17", ",", "u18", ",", "u19",
" L X, o% Y) V J& Y ",", "u20", ",", "u21"}], "}"}]}]}]], "Input",8 s+ ?0 x) b8 w4 _) Q; ]* h
CellChangeTimes->{{3.57792471553125*^9, 3.577924755875*^9}, {
( Y/ V' ~6 o* Q5 l$ p+ { 3.577924897078125*^9, 3.57792491596875*^9}, {3.577962095642144*^9, + {' W4 Z- L! g( @, [0 _0 D2 I9 N
3.5779621231449924`*^9}}], ~& F. y; ]6 k' r8 |1 X7 K
/ X' \9 N2 Q" k0 R$ z
Cell[BoxData[
4 |+ ?/ X3 O. B RowBox[{
% L0 D" y$ s/ T$ s. W4 f) O RowBox[{"0.22861495086373018`", " ", 0 p7 X4 p% q& F% N0 d; Y8 ^
SuperscriptBox["\[ExponentialE]", ( z, i7 o5 H. j% }, [2 l6 y
RowBox[{"3.141592653589793`", " ", ! y9 V2 R, h/ e* f0 @7 z( f7 ^
RowBox[{"(",
1 r& [2 k7 s6 u, k& M RowBox[{9 v d! x- C* H: k' q) D
RowBox[{"-", ) L+ S8 _" [0 M8 a3 K/ e
SuperscriptBox[
- a! M5 o: d9 R7 w3 L+ x" P( e6 C RowBox[{"(", 9 ]3 v. X+ T; b6 N7 G
RowBox[{
2 U+ e/ ?' k# _: }' ]3 w# K RowBox[{"-", "0.434783`"}], "+", "x1"}], ")"}], "2"]}], "-",
- D3 ]2 J9 P+ ~( H( y/ ?+ G" @2 } SuperscriptBox[
+ g3 R+ {! K+ h; I RowBox[{"(", 7 e* w4 L9 I6 B8 _+ p4 M
RowBox[{; o, p; f- w7 A4 H& I; J
RowBox[{"-", "0.551785`"}], "+", "x2"}], ")"}], "2"], "-", & @5 B+ P+ O$ N% x) _. v4 w5 g" V" O
SuperscriptBox[
3 Q$ V& l3 v) h. ]: F5 _ G RowBox[{"(", ; H n, i4 V. h, \6 G, Q
RowBox[{
! g; _# a# W1 B: o% j0 h RowBox[{"-", "0.530346`"}], "+", "x3"}], ")"}], "2"], "-", " W9 X8 r6 e1 p4 O$ |
SuperscriptBox[$ p, d* l- ]% |
RowBox[{"(", + B1 A d, v' y1 C: J2 P
RowBox[{" e, R% K$ ]0 ^2 ?
RowBox[{"-", "0.151651`"}], "+", "x4"}], ")"}], "2"], "-",
$ ?) \2 f7 X( ~ a4 g' |6 x4 ]: R7 T; s$ c SuperscriptBox[
. Y, w) |8 H+ @ RowBox[{"(", ) _5 p3 ?& ]9 [+ N7 k
RowBox[{9 [. k& E0 X- S
RowBox[{"-", "0.79021`"}], "+", "x5"}], ")"}], "2"], "-", ( W% F) B5 E4 S0 T* S: g! k
SuperscriptBox[
9 [5 i# d& O& S- \2 \ n RowBox[{"(",
7 n) ]% m8 `( Z5 F% y! a RowBox[{
) d2 U l/ J+ V0 q" ^$ e- R* @) A RowBox[{"-", "0.529013`"}], "+", "x6"}], ")"}], "2"], "-",
/ v% i; d2 p" ?0 i: r* ]$ Z7 s7 I5 g SuperscriptBox[
8 A" p+ ^: H/ l8 J RowBox[{"(",
/ Q6 I$ X5 I& |' m RowBox[{
$ Y: s v3 ?* `3 T" Q3 t9 P RowBox[{"-", "0.409756`"}], "+", "x7"}], ")"}], "2"], "-",
" s3 l. g9 D5 p. I; d SuperscriptBox[. e1 {" \$ j9 H7 A; K" D
RowBox[{"(",
' r! E3 l: u& {: T RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
% B0 `) q# i1 j% A4 e8 @) Z SuperscriptBox[: f' L1 R* d9 Y6 Y8 r+ q" u ^
RowBox[{"(", ! q1 K* u3 X4 Y/ ^" M! F
RowBox[{! ]+ m# ~8 J6 G' e
RowBox[{"-", "1.`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}], "+", 9 g5 u, X! Y0 D! K$ R- f
RowBox[{"0.020180806675835994`", " ",
F5 m% M3 T* C8 r SuperscriptBox["\[ExponentialE]",
* y, Q I9 Z% R) U+ F- M' X( e RowBox[{"3.141592653589793`", " ", + U0 v3 m, u8 ?) d: K
RowBox[{"(", 7 V: b! b* U( N) ]- J- z& n; E% E
RowBox[{
7 I! q0 @! Z# n4 d# T RowBox[{"-",
& ^# L ?; d4 V% ?. h2 k SuperscriptBox[2 p- R" y: I/ k4 n" t; {
RowBox[{"(",
2 I; g2 N$ ?1 |6 _+ K RowBox[{* I" [7 q. D! L; `
RowBox[{"-", "0.565217`"}], "+", "x1"}], ")"}], "2"]}], "-", & O8 R- L0 V. R* j
SuperscriptBox[8 e ~+ M" i* w. O7 D
RowBox[{"(",
; Z9 C: }& z. L, J2 Y RowBox[{
2 l" D& P1 r! S9 E( j. }9 z RowBox[{"-", "0.71046`"}], "+", "x2"}], ")"}], "2"], "-", ; M/ g, m' ?' }- u f+ Y: N; Q
SuperscriptBox[
/ v' T' d9 J# G RowBox[{"(", 9 }5 u4 K7 b3 h# ~( T* d x
RowBox[{- E1 k; B# f; Q% E, }. P b
RowBox[{"-", "0.64973`"}], "+", "x3"}], ")"}], "2"], "-",
- J4 t5 S- t9 P SuperscriptBox[. I% {7 S' Z% h& }3 N7 l* S
RowBox[{"(", & j" M, U1 Q& l+ q1 H8 Y
RowBox[{0 W( o( E' A3 `) @
RowBox[{"-", "0.119897`"}], "+", "x4"}], ")"}], "2"], "-",
G) _# T1 b3 a. O' v6 t SuperscriptBox[4 O- R1 C. c: v9 b" _7 ?0 ]
RowBox[{"(",
: e6 n1 \$ Y' }+ u. L0 T2 r( O a RowBox[{4 z# o+ b/ a- A
RowBox[{"-", "0.468531`"}], "+", "x5"}], ")"}], "2"], "-", - ~3 z9 W( S" b2 q
SuperscriptBox[
" a, S o( Q" |* h: ?+ c, k* v/ c RowBox[{"(",
, O8 e, {7 |/ T. J6 K x RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", $ x; ] F; \$ D! g0 U! m4 |
SuperscriptBox[6 i5 m8 e- } q- s; R0 O6 z
RowBox[{"(", 7 E% s# F3 U B2 D; {: B
RowBox[{
$ A) c2 y, _4 Y# V9 ?) L" H RowBox[{"-", "0.636585`"}], "+", "x7"}], ")"}], "2"], "-", ! I8 z1 \; k. H1 W
SuperscriptBox[
: s; b& c1 Q$ X! r- E RowBox[{"(", ! C5 l }! O5 P4 O9 p
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", 5 w, q0 t! `& j( p0 h7 T
SuperscriptBox[6 `- z0 h0 c d
RowBox[{"(",
+ K) `" N0 U. @9 n7 J RowBox[{
* D; ?% ], J. \/ d- A* v6 r0 J RowBox[{"-", "0.766748`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}], ' D4 b3 N8 U7 h2 o
"+", ' ^5 h6 R. I$ D9 Z: g8 L
RowBox[{"0.13092706311748484`", " ",
" X7 N/ O4 h5 r# C7 _$ J# k SuperscriptBox["\[ExponentialE]", ; V/ g8 ]) F R; M* B- d
RowBox[{"3.141592653589793`", " ",
. A% v% |9 v) {% B# `7 q RowBox[{"(", $ X$ s; f( C: G7 s" a: y& {( }
RowBox[{
- Z. d+ z$ V! \' y4 h RowBox[{"-",
+ n" D/ I2 ?* C3 g/ m SuperscriptBox[
! S/ x E. k: Y# D- J+ y RowBox[{"(",
, V. r( P. {* h8 w! P: O RowBox[{
7 Y& x) K* P" @7 q RowBox[{"-", "0.347826`"}], "+", "x1"}], ")"}], "2"]}], "-", : z% i, @/ Z# n5 {0 N
SuperscriptBox[
0 V* U( i: a2 v7 a* N& k8 ^) x RowBox[{"(", 2 k6 E' A7 ~1 r* J# {% w
RowBox[{- j' y L1 j, P; O/ ~
RowBox[{"-", "0.705444`"}], "+", "x2"}], ")"}], "2"], "-",
* \/ E' K& t( b6 A SuperscriptBox[
/ I% \ \4 E/ t( D/ h- S( l2 e- N RowBox[{"(", , p* Y- D2 z6 Q+ a5 q/ Q
RowBox[{& q U7 T6 i: Z. [" I- N
RowBox[{"-", "0.109343`"}], "+", "x3"}], ")"}], "2"], "-",
2 {: @4 P, C! A2 J- j- c SuperscriptBox[) X ]2 ?* Q- q
RowBox[{"(",
+ w2 Z+ h3 @+ O# z RowBox[{
4 Y5 [4 Q* b5 W$ i. z RowBox[{"-", "0.072008`"}], "+", "x4"}], ")"}], "2"], "-", 0 p: L* K' { o) x" g" S; d4 _8 _
SuperscriptBox[: C8 r- ~$ n6 r
RowBox[{"(", # @! a6 V2 ~' R
RowBox[{
* [" p( z6 e3 Y RowBox[{"-", "0.496503`"}], "+", "x5"}], ")"}], "2"], "-", + I/ z- |3 u1 `* T2 B; }
SuperscriptBox[
. k' P9 _) ] w/ J+ X8 ` RowBox[{"(",
# w% H# }# X0 A$ D8 f RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
+ J! p4 w7 \$ G' }! v+ j SuperscriptBox[5 `( m! L1 P) |2 Q$ u
RowBox[{"(",
2 h$ p" x0 w0 }" ^9 Y+ L RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
+ S( |0 }3 ]9 m: B) W0 [ SuperscriptBox[# R2 ?0 ~6 m$ m0 g1 C3 |4 R
RowBox[{"(", ; z. S/ d. y' J# J
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", / C: T2 l9 S. J( N( e5 T- g t
SuperscriptBox[
: M, W1 r# T! H' O! G4 { RowBox[{"(", 5 z! ]7 R1 X% ]
RowBox[{
0 ~& P# s, g' q RowBox[{"-", "0.752567`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}], 7 ^' A5 n& B* `. O# o
"-", + V- B; h! z' z7 V6 n% a) s' {! Y/ L
RowBox[{"0.03345934908892623`", " ", 0 R Z7 e9 n# @! h
SuperscriptBox["\[ExponentialE]", " P# ]% E; j8 ~( X: v) T# k
RowBox[{"3.141592653589793`", " ", 3 v' R; _$ \: ~1 [5 l& e
RowBox[{"(", 6 S' Z! G' U8 S/ L* i+ K) u P
RowBox[{
' E9 y4 Z. u: Q% U* G. W! \3 } RowBox[{"-",
8 x: s f+ v5 r$ P, } SuperscriptBox[) |2 d5 Z0 A- p0 w9 ]% T6 v9 ^. E
RowBox[{"(",
3 H6 q' W3 h* [4 Q+ ` RowBox[{
+ w! ~$ z/ v/ y2 [+ l; z RowBox[{"-", "0.130435`"}], "+", "x1"}], ")"}], "2"]}], "-",
j+ ?8 I& y0 _ D SuperscriptBox[; ~/ e5 j1 o6 M% q% ~
RowBox[{"(", " p* `8 i9 d, r6 H
RowBox[{( W% Z% q2 y* g7 y
RowBox[{"-", "0.682724`"}], "+", "x2"}], ")"}], "2"], "-", + H/ \" [* n, d, K0 r
SuperscriptBox[
0 e# V; Q, A# M RowBox[{"(", ( e6 U% n- {5 u
RowBox[{
0 j- e! Q% F4 M7 d# B. }$ T RowBox[{"-", "0.258697`"}], "+", "x3"}], ")"}], "2"], "-",
& F- ]) R' Z( J+ i0 C SuperscriptBox[2 W3 A$ M+ J4 X. Q4 ]
RowBox[{"(",
% D' c: N' M9 Y: t9 o$ ]& {& Z+ [ RowBox[{* v9 m% X$ S3 g
RowBox[{"-", "0.019299`"}], "+", "x4"}], ")"}], "2"], "-", 3 m/ e7 J; V+ m6 i5 I
SuperscriptBox[/ M4 U3 X, A V7 h3 |2 W, P
RowBox[{"(",
! Z2 m5 m) H+ }: f$ w9 J RowBox[{) `% }2 N6 f( E2 |
RowBox[{"-", "0.51049`"}], "+", "x5"}], ")"}], "2"], "-", + |/ \/ @8 r( q( I+ e% N) | H
SuperscriptBox[
. W. G/ V2 _/ c( k4 S$ r/ i RowBox[{"(", 0 ^/ F, x9 @( e h3 o$ d E! x/ I
RowBox[{0 w6 P! q0 ^; |* m# G( B' E+ F0 q
RowBox[{"-", "0.420497`"}], "+", "x6"}], ")"}], "2"], "-", 2 T8 Q) D% a: R1 Y" O* L
SuperscriptBox[
; L$ U# i, G% U0 p1 z RowBox[{"(", " O0 N0 s y+ Z" [7 s2 {
RowBox[{
+ t. r2 T5 H2 x; j RowBox[{"-", "0.535772`"}], "+", "x7"}], ")"}], "2"], "-",
0 `" q, R! f* l) D+ b SuperscriptBox[
7 f& n+ X* [; H3 P) w RowBox[{"(",
: Q8 N2 Z8 _ E) X1 u RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
- x( C" h& K+ d8 J- r( P! B SuperscriptBox[
7 U. o: }4 t4 {9 V( a; j RowBox[{"(", 8 N1 S: H, D- z5 E9 o! K! a( {
RowBox[{
8 m' x; u4 [# r5 X- f- v T RowBox[{"-", "0.494866`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}],
3 T) `! I* x6 ]" ]2 W "+", & I9 ^% S& x# h3 x# H. `
RowBox[{"0.3961180670900672`", " ", 3 l& ]! e. B, R5 O+ e
SuperscriptBox["\[ExponentialE]", " j( P! q* d4 Y7 u3 B
RowBox[{"3.141592653589793`", " ",
, V/ d+ u- ?& _! c$ ^ RowBox[{"(", 3 d& O+ E) K" y# [8 V+ Q$ T
RowBox[{7 R# S" p! o8 O0 }2 v) \
RowBox[{"-", * t. ~% G1 u% G7 B2 i: H, G7 K* h
SuperscriptBox[+ H9 V- Z& P: a! A$ p
RowBox[{"(", 7 v. O% Y" D( F, T. @
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x1"}], ")"}], "2"]}], "-", 3 k3 w$ V; ~% i$ e' Y' G8 V
SuperscriptBox[8 L$ j5 d$ U& }2 I
RowBox[{"(",
& Y& q/ B5 b" Q+ Y% W# W RowBox[{
% [# w. e& t. x0 I4 J3 i$ u# @ RowBox[{"-", "0.395544`"}], "+", "x2"}], ")"}], "2"], "-", 4 F: w# S) l R1 ?9 [; d6 m+ l
SuperscriptBox[1 o/ v0 z( Z( c, ~' y% i8 E1 i
RowBox[{"(",
K2 z8 m$ h" L! m; n ~2 s C RowBox[{+ [0 G; V: k, \, L! D) c8 i5 k) Z% z
RowBox[{"-", "0.027011`"}], "+", "x3"}], ")"}], "2"], "-", / ?/ c. n H% s5 W6 V
SuperscriptBox[# j5 @( U5 v, |, Q9 p; s
RowBox[{"(", ) a! p; }' z2 @- Y' {: a
RowBox[{9 r% U: z* i3 E6 i2 V: W2 m8 k
RowBox[{"-", "0.048087`"}], "+", "x4"}], ")"}], "2"], "-",
, O) p1 X5 p# } SuperscriptBox[
% n; u7 _ I! S* w RowBox[{"(", % S) o8 C7 Z4 J3 _
RowBox[{5 O& F5 z- R3 H; R3 e
RowBox[{"-", "0.496503`"}], "+", "x5"}], ")"}], "2"], "-",
7 O4 Z* ~3 G( L# D3 p" k4 Q SuperscriptBox[
2 v" a; W9 W: d8 F/ m* v; A8 n RowBox[{"(",
3 r2 ~7 W/ y8 U3 n; ~ RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", 9 {8 c* D ^ G5 B
SuperscriptBox[0 @7 p5 a/ o2 p1 B' _, ?! F
RowBox[{"(", 9 A2 H5 r; W7 c* }" i- V
RowBox[{$ _3 `* A4 ?! H, Z3 ?: o
RowBox[{"-", "0.452033`"}], "+", "x7"}], ")"}], "2"], "-", 9 ?" f4 L4 Y$ Q! s, g" ^
SuperscriptBox[0 q5 r2 T! m1 U" I6 W
RowBox[{"(", 9 W0 I- h$ n8 W' |' R2 {6 c
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", ! j+ w; ~) {1 T5 ~
SuperscriptBox[- J0 W( f( X$ [
RowBox[{"(",
- r0 T5 k' D/ `" B1 o9 }; H1 I RowBox[{! N# X% b+ F/ u+ _, n+ z- G
RowBox[{"-", "0.278729`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}],
. R9 I7 y# `* x& a. _+ n "-",
$ U: n* ], }5 y9 H. } _, _$ K5 y$ r RowBox[{"0.1999688587779198`", " ",
- r; T% }7 v: U! B# h1 F% s: O/ R SuperscriptBox["\[ExponentialE]", 9 W) Q' J* }- e, i
RowBox[{"3.141592653589793`", " ",
3 ^! c/ x" B4 {; Z! [! v+ k1 _ RowBox[{"(",
6 W3 q/ ?$ D3 A) l6 \ RowBox[{, P1 H" Y+ J! O) \
RowBox[{"-",
' y- X+ F6 K: t SuperscriptBox[# Y! H7 H& ~. X6 u8 I
RowBox[{"(", ( W& L4 |# g+ [2 z
RowBox[{+ c' S3 H% v# w Q5 u; _
RowBox[{"-", "0.565217`"}], "+", "x1"}], ")"}], "2"]}], "-",
5 ]* A/ A" T. W p4 Y1 e8 Y. A8 ` SuperscriptBox[; V8 s' _. N% o/ U$ K1 x
RowBox[{"(", % s& M- t5 D4 ]
RowBox[{
) c) ?2 [ ]. w# O$ f RowBox[{"-", "0.705518`"}], "+", "x2"}], ")"}], "2"], "-",
" H! b( u0 n2 s( G2 |2 X SuperscriptBox[) C3 R0 O* ^* E' C
RowBox[{"(",
# P. A. K* k$ R% W) a& H RowBox[{
* }- v9 X# s6 J* b2 a( w3 _& x( |2 ^. U% X RowBox[{"-", "0.510223`"}], "+", "x3"}], ")"}], "2"], "-", - u3 k: h8 M7 _) s+ U. N4 U( ]
SuperscriptBox[. L$ w M2 X1 v w+ p* Y* \: x
RowBox[{"(",
: h% r; y* o( ^- _& ?# ]8 L RowBox[{
7 |% B% p7 {/ n RowBox[{"-", "0.066892`"}], "+", "x4"}], ")"}], "2"], "-",
! f) g2 S1 P; ~5 H SuperscriptBox[ y/ ^1 g7 v3 Z, c6 n( J
RowBox[{"(", 3 a! G+ `" o7 Q
RowBox[{
# p7 ?1 w0 x* o; E RowBox[{"-", "0.244755`"}], "+", "x5"}], ")"}], "2"], "-", 7 p" a7 i. t: u+ K# b/ X" j
SuperscriptBox[
: o0 S1 R- v! o. a9 A r RowBox[{"(", ; _$ f0 I3 L) v2 L
RowBox[{
) H1 E; L7 l: q: J7 @! Y RowBox[{"-", "0.748304`"}], "+", "x6"}], ")"}], "2"], "-",
: @3 w, D$ n& N4 u5 f( A f& s SuperscriptBox[; `; D1 @/ Z* B! d
RowBox[{"(",
1 M$ l) ^' b7 S3 S4 u RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", 7 T8 e/ Z6 o: S
SuperscriptBox[
5 L9 U9 P1 E% f0 B+ b: m RowBox[{"(", : }, c- n% ]$ G2 ~6 g
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", # p2 C R& n/ o- T- d, K
SuperscriptBox[
: W7 _9 F5 C' N0 E RowBox[{"(",
8 t- k5 v% @" N) E; g6 {# H8 ~ RowBox[{
+ Q% w8 h/ T4 }& ~' Z) {" | RowBox[{"-", "0.243032`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}], 3 q1 F9 E9 H# D' d
"+",
+ P& X* ]5 N+ j9 k- \4 O% R RowBox[{"0.23580523388620733`", " ",
( L- ^3 K: ^( S" q SuperscriptBox["\[ExponentialE]",
( C6 R( r4 g3 f/ x9 N' d RowBox[{"3.141592653589793`", " ",
3 X2 ^6 H3 W: i% C, X* M RowBox[{"(",
" q! @$ X3 l5 p9 o- w4 M9 x RowBox[{
" Z5 ]8 U2 {: }4 K& h% A$ \ RowBox[{"-", 3 c! Y; K2 M6 g0 s" l& J
SuperscriptBox[
! G; r2 r4 V! `+ S @2 u RowBox[{"(",
( j8 J; j4 h. X( k6 ` RowBox[{
. ^0 I0 g, |8 K RowBox[{"-", "0.608696`"}], "+", "x1"}], ")"}], "2"]}], "-", 4 I1 g6 y" Z0 z" V9 u* u
SuperscriptBox[
, }* K; J2 |! B8 F7 q. f( `+ Q RowBox[{"(",
( z- L4 u( x+ o& R RowBox[{! D3 _4 s+ a6 I# Z/ ~
RowBox[{"-", "0.606152`"}], "+", "x2"}], ")"}], "2"], "-",
" N2 I5 @5 d1 K( X- c1 ?$ g; n2 y SuperscriptBox[
- o) I* `% y e# ~& {9 W7 ~) F1 E RowBox[{"(", " G- w4 ^- h y' F8 e
RowBox[{
# _: L7 S9 B5 N1 A RowBox[{"-", "0.158058`"}], "+", "x3"}], ")"}], "2"], "-", ) V; b/ [3 N6 f7 R3 k' m8 d
SuperscriptBox[1 `% _( w, F" v; @8 R0 k
RowBox[{"(",
4 q9 e" l9 x# v2 n RowBox[{) b) t5 u- S2 L1 B5 z
RowBox[{"-", "0.09017`"}], "+", "x4"}], ")"}], "2"], "-",
+ G. E( W5 A& D2 p" k* `- [ { SuperscriptBox[( J O% f/ Y) O) i% U
RowBox[{"(", . \: N' p Z0 z9 s
RowBox[{( F" L l5 x) [, U: W+ F
RowBox[{"-", "1.`"}], "+", "x5"}], ")"}], "2"], "-", # {3 g5 ]6 J+ S( i/ c* h+ l) r/ H. i
SuperscriptBox[' T2 W, N6 f7 E4 E' ^
RowBox[{"(",
$ Y& y, h$ R) k RowBox[{
0 G& e9 l* v1 Q RowBox[{"-", "0.166541`"}], "+", "x6"}], ")"}], "2"], "-", ! p% V( _+ b# {" j" x- h5 t
SuperscriptBox[
$ _% r" R/ ]: M x# l RowBox[{"(",
% t: c1 Q5 h8 Q2 o+ K: D, g- x RowBox[{$ ]6 g5 W1 I) U/ T$ I) v
RowBox[{"-", "0.278049`"}], "+", "x7"}], ")"}], "2"], "-", + P6 j' Y7 G5 V9 q! K5 t/ @
SuperscriptBox[
0 T# j( H* G: Z! e/ l% x' r RowBox[{"(", $ V* w- e5 `# V1 {9 x* r) i
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", ; J( w* a* I! b8 M; ]4 r
SuperscriptBox[6 h5 Y7 A- M: _9 N9 z2 u6 W1 a5 }
RowBox[{"(", ) _; w Y: f. ~( b% ]4 b+ L1 G
RowBox[{% @$ ^6 I4 }" a! `
RowBox[{"-", "0.236675`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}],
5 L% D: U8 k6 o8 B% Q "+", 4 K- {/ b* k; b5 g4 @2 p3 M
RowBox[{"0.6670272593678526`", " ", 6 f) I7 n9 L' W) K
SuperscriptBox["\[ExponentialE]",
* A& p# M& w& j! v$ M! {; n RowBox[{"3.141592653589793`", " ", # N6 l8 J4 i$ A4 {
RowBox[{"(", ( A/ ]3 c) B" B
RowBox[{
5 s w" g9 T; @& i RowBox[{"-", $ T- |6 z0 X4 \6 u) {: H
SuperscriptBox[( h0 [6 t* z% K
RowBox[{"(", - G' ?$ g8 p3 _+ `
RowBox[{8 M/ o6 e- m+ ]- K- S0 R* ]3 A
RowBox[{"-", "0.782609`"}], "+", "x1"}], ")"}], "2"]}], "-", : `1 [# `; c! Z* g+ r8 Q: d
SuperscriptBox[
# S; A4 y: V @% x RowBox[{"(", 8 E* @2 s m; Z' R0 P* t
RowBox[{( ^1 ]" `. R) A* S( C
RowBox[{"-", "0.751623`"}], "+", "x2"}], ")"}], "2"], "-", ' @( }' {3 w5 s" p
SuperscriptBox[
* W4 W5 w# B5 }, L+ O* f RowBox[{"(", 6 h2 y# X- u1 ~& [" O
RowBox[{3 h# P! P# Y9 g+ p" S6 h7 L
RowBox[{"-", "0.177646`"}], "+", "x3"}], ")"}], "2"], "-",
; Q. ~( u0 W4 r3 ~( G% C8 V SuperscriptBox[
' n% Z, m" p# y7 u3 d RowBox[{"(",
) B2 D$ @0 g8 x* n RowBox[{$ M; m, X I6 s7 G8 t S/ ^/ c0 l
RowBox[{"-", "0.350845`"}], "+", "x4"}], ")"}], "2"], "-", 1 ~' O' @5 |! x% H
SuperscriptBox[
4 b% Z' B! v1 O% G, Y, | RowBox[{"(",
4 d+ t2 p7 g! q- _- j& R. U) O( m RowBox[{+ G- [" e" _2 p# ~& O
RowBox[{"-", "0.412587`"}], "+", "x5"}], ")"}], "2"], "-", ( O; G+ |& \+ \* @3 h
SuperscriptBox[, j$ ?$ B/ b5 P3 Y8 c/ ~
RowBox[{"(", 4 h R8 W( u% C4 L9 [. p
RowBox[{
& A! I2 d' `4 Y RowBox[{"-", "0.502638`"}], "+", "x6"}], ")"}], "2"], "-", ! y* }1 E, c! ^8 c' O' K2 |
SuperscriptBox[
9 }3 r/ K- u& t3 X( a v/ @! C RowBox[{"(", " \4 h9 M2 j- p. p
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
' }$ C0 X3 \6 [; W9 I SuperscriptBox[* |% M ~, A8 k) W5 P
RowBox[{"(", 6 t4 T2 C8 Z( t2 F3 \/ P3 }
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", 9 u4 H4 b" H o6 K
SuperscriptBox[3 t0 Z4 B4 T, D* p
RowBox[{"(",
0 m" V6 E) Y6 Q: ^7 R: G RowBox[{3 M; f9 _% Y2 I2 S0 s) c
RowBox[{"-", "0.178973`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}],
; K9 W( W6 v, O1 }7 y; s3 q; L! b "+",
; f, q2 T1 t% _$ e RowBox[{"0.25282438852646905`", " ", L' H: u! O3 H R
SuperscriptBox["\[ExponentialE]", ) ~ N- Y _# D/ ^) U3 C( e$ D
RowBox[{"3.141592653589793`", " ",
( n: \8 F1 `' {7 U* W) \; V# W RowBox[{"(",
6 D" J8 T# c: E E6 V7 X* o RowBox[{
6 R f9 ?9 M- h RowBox[{"-", 9 z+ J9 q/ A0 D$ j1 d; o; B
SuperscriptBox[3 u q7 W7 S/ q% g$ Y
RowBox[{"(",
* w: T5 u" j! u7 b7 Z6 { RowBox[{' O' q& k) V) e2 J+ p. K9 F
RowBox[{"-", "0.695652`"}], "+", "x1"}], ")"}], "2"]}], "-", 0 `" {7 f! [: w8 D* z$ L0 {- r
SuperscriptBox[
! ~3 F. [# K8 \) ^4 \' Y+ i RowBox[{"(", + E5 S ~3 G6 r# r% [/ C) s
RowBox[{3 x! i2 F; U- `- N; j
RowBox[{"-", "0.71828`"}], "+", "x2"}], ")"}], "2"], "-",
' }* o9 E$ S& c+ _2 k, J0 U SuperscriptBox[
; a" A, h4 e5 y4 x8 K RowBox[{"(",
2 Q/ q3 H8 G8 g" e# t* A; m+ @ RowBox[{* \& {2 a# K+ s2 L
RowBox[{"-", "0.33973`"}], "+", "x3"}], ")"}], "2"], "-",
# `7 {$ n6 h {2 y0 ] SuperscriptBox[6 |1 C; [: `9 S, J5 `
RowBox[{"(", ! w7 g" x/ |7 S, E$ S% n& N
RowBox[{
: m. u- _0 x, d! z RowBox[{"-", "0.110285`"}], "+", "x4"}], ")"}], "2"], "-", & l E* ]+ E8 s1 T0 s
SuperscriptBox[. |* j T% v q1 g: P# m; R
RowBox[{"(",
# w0 ~8 g6 W# m1 A; v/ H% P RowBox[{/ j. X4 t) V' S% z* o
RowBox[{"-", "0.335664`"}], "+", "x5"}], ")"}], "2"], "-", ' A- x; J; h/ D1 V+ P6 O- S6 d
SuperscriptBox[
6 {+ t* p& d6 \" H6 } RowBox[{"(",
: l& @( l- U, W' M' U RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", ) n- o3 k' K/ D) V* u
SuperscriptBox[
" u1 v$ i; A# [# Y( H2 Q$ m" n RowBox[{"(",
8 U9 m# m9 ?6 z: k2 N RowBox[{6 Q z" t! a. e7 f8 @% l0 e
RowBox[{"-", "0.636585`"}], "+", "x7"}], ")"}], "2"], "-",
( o6 a: [! T3 F: C) r2 _ SuperscriptBox[' F0 t* n2 t( j; V3 ?
RowBox[{"(", $ C& T/ c; W7 V; N
RowBox[{6 D( |' ^. u" Q! i
RowBox[{"-", "0.780463`"}], "+", "x8"}], ")"}], "2"], "-", ( P( J3 g) f0 `# ~1 Q$ T
SuperscriptBox[1 V+ E: W9 O3 R* Z% h5 x
RowBox[{"(", 4 q$ q4 v8 y" G/ l$ T, n& y
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], 7 F* n8 l' O9 S5 ^3 P
")"}]}]]}], "-",
/ U) k( t. P3 a2 }8 G+ I, p! [ RowBox[{"0.07581214474544527`", " ", " i5 h9 B" S) X0 l; t, q; K. ?# Q
SuperscriptBox["\[ExponentialE]", $ @6 _3 i: n- |; k2 }( q6 R
RowBox[{"3.141592653589793`", " ",
: U! L0 t, G& r2 x RowBox[{"(", 7 A9 v6 B) p7 e. q* i- }1 M
RowBox[{
$ D! W, }2 `( M/ J& i6 `+ P7 e RowBox[{"-",
# A) s5 `' I J& a6 ?7 w; N( e SuperscriptBox[
# Y1 a, d$ m& M2 U. {; B) ] RowBox[{"(",
Q* Y# }+ H% x/ Q/ s7 k RowBox[{
6 t9 ]9 U/ A2 d6 O; C RowBox[{"-", "0.913043`"}], "+", "x1"}], ")"}], "2"]}], "-",
" y3 z% L4 a! o' ]" q SuperscriptBox[2 o2 J1 s8 M) b8 N. x7 L) T7 I. n6 P
RowBox[{"(",
1 n2 J6 Z; v: W! g RowBox[{ O8 v8 p' s/ ^. U
RowBox[{"-", "0.170478`"}], "+", "x2"}], ")"}], "2"], "-", + F. B: Z T6 z; [ n
SuperscriptBox[! X: C+ E: a2 R8 X/ F6 I, z" G2 ]' @: \
RowBox[{"(",
' |- t d4 Q* W) i, T1 g/ d RowBox[{"0.`", "\[InvisibleSpace]", "+", "x3"}], ")"}], "2"], "-",
: P0 L6 ~8 W' p2 q& @& P SuperscriptBox[" ^9 k; J/ n% c! o
RowBox[{"(",
" E \, X" y b' @9 J: _: j RowBox[{
: ]; |$ L$ {( j- \, K' K/ b RowBox[{"-", "0.012973`"}], "+", "x4"}], ")"}], "2"], "-",
- t, p- ^' i5 y3 w* A. G SuperscriptBox[
! w9 W) e% G2 g3 ^ RowBox[{"(", + l+ z* k: ?! j5 Q+ L& m
RowBox[{; k" L7 e0 \, H& M9 @3 {. S
RowBox[{"-", "0.293706`"}], "+", "x5"}], ")"}], "2"], "-", 2 y4 P( g6 B2 J
SuperscriptBox[% | D% C& F( x. f
RowBox[{"(",
P. Z1 o+ t$ d RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", ) Z- y( A- w/ S- ^$ C! r
SuperscriptBox[
) T L# d" A, F; C" A( _ RowBox[{"(",
, b+ |* i1 u3 o+ q8 N. l RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", ^ `! x) t& L
SuperscriptBox[3 k: u' D, {" B+ ]% Z% o. O
RowBox[{"(", 3 |, Y1 |' m% V+ T: p
RowBox[{
3 m. w7 F; c ]: u! a: k: L. [; u RowBox[{"-", "0.672709`"}], "+", "x8"}], ")"}], "2"], "-", ' D" M5 L8 K" C+ B# q
SuperscriptBox[
% k4 J& n% \" L h' i. |4 X RowBox[{"(",
' P% Z; }; V/ {$ B7 N/ `4 ]0 ]' M: k+ ^" H RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], : I- W' s/ \9 w) @3 j$ k
")"}]}]]}], "-",
& b+ Y( i9 y: O; e% @- E" V RowBox[{"0.10599338351843157`", " ", 7 q$ S% v/ S2 z, f8 k# k
SuperscriptBox["\[ExponentialE]",
" U' x$ R; Y' N; `) e RowBox[{"3.141592653589793`", " ",
( A! }8 U4 t" i( L RowBox[{"(", - }7 E' U" L0 f1 q" e5 q) c
RowBox[{0 z' M* L4 j) _9 K- ?) _3 p& R
RowBox[{"-", # q+ D: `# |* [# n9 z7 p
SuperscriptBox[5 _$ `0 B9 x/ Z) F' v# ]' O' u3 i- M
RowBox[{"(",
3 g: z' f! L! G) n( r- } RowBox[{
4 W1 v3 X: E% i RowBox[{"-", "0.391304`"}], "+", "x1"}], ")"}], "2"]}], "-", 7 s1 l$ E- L* }. C. \, K! f
SuperscriptBox[
$ A1 }4 t4 |' B! z4 i8 x1 W RowBox[{"(", / |# L% w- S* h
RowBox[{, e' O- \ q Y H; D6 d/ S2 Q" K
RowBox[{"-", "1.`"}], "+", "x2"}], ")"}], "2"], "-",
1 L! M3 H+ q9 D0 U$ Q6 l D, j2 |) e SuperscriptBox[7 K$ }, Q; }6 F: w8 W: l
RowBox[{"(",
2 _/ G4 u U; u3 u+ B RowBox[{8 |8 g# c" w3 |+ ^+ P% Q
RowBox[{"-", "0.452931`"}], "+", "x3"}], ")"}], "2"], "-", 6 k% N3 y, ]/ i! X. l
SuperscriptBox[7 @, S: h; J: s* k* o, O1 C+ }+ [
RowBox[{"(",
- N. k% n% k. _: ~+ q3 v( C; r7 P RowBox[{
: M/ k: b i2 E8 l1 j RowBox[{"-", "0.150909`"}], "+", "x4"}], ")"}], "2"], "-",
# @: I- Y2 V) t( k. p/ U SuperscriptBox[
6 h- x) ?" U8 @ RowBox[{"(",
- B8 A, C+ t' T* j: V7 u: `; q RowBox[{
, e1 ]& A. I9 u" ]8 p RowBox[{"-", "0.342657`"}], "+", "x5"}], ")"}], "2"], "-",
0 n( ~- U9 P( o5 v4 a, k2 [ SuperscriptBox[
" m8 A* `& }2 Q" V RowBox[{"(",
1 f; x+ k% d9 W; Y6 g; I RowBox[{. a3 c/ p* V; @# e
RowBox[{"-", "0.370761`"}], "+", "x6"}], ")"}], "2"], "-",
+ Z9 L; M9 Q. V }9 h SuperscriptBox[
. ]" S+ i/ w- [ RowBox[{"(", , v0 @3 ^8 M. J5 Y& H# k
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", / C" W5 p( X1 W; Q8 S4 f
SuperscriptBox[
* C+ f, J; e9 Q; g RowBox[{"(", * N" @+ Y5 Z, l6 b
RowBox[{
. X( Z2 V0 J" X- g RowBox[{"-", "0.509567`"}], "+", "x8"}], ")"}], "2"], "-", 4 K$ _8 a2 j9 L2 n M, f
SuperscriptBox[
: X$ i9 O& j- x4 N: L& l0 p RowBox[{"(",
, R# D6 s, ?# l' l7 m( N- i RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], " w0 J! H# n( u0 G2 `( u9 W
")"}]}]]}], "+",
3 d) a0 @! m" R RowBox[{"0.500820838606441`", " ", 7 ?$ A- J# o2 X6 i+ J7 B, i
SuperscriptBox["\[ExponentialE]", 1 ]; Q a! r* O. @
RowBox[{"3.141592653589793`", " ",
! J3 ~* @. L% E% n RowBox[{"(",
+ i' ]; b- S4 } RowBox[{+ t1 x& U3 |( s! `5 c/ y8 i! \
RowBox[{"-", 7 {# ~! J. y9 A" E" T0 L
SuperscriptBox[
+ l$ Y! Y, [2 x2 Y0 N1 I- F: X RowBox[{"(",
- Z0 o+ M! u* N7 I RowBox[{ `9 f2 P7 i" B/ h1 {' T4 ?4 {2 A0 \- V
RowBox[{"-", "0.608696`"}], "+", "x1"}], ")"}], "2"]}], "-", F: @0 \' d0 L c; Y4 p. }) |9 O. E7 o
SuperscriptBox[' W2 M9 R# s9 K8 Q
RowBox[{"(",
. l2 C. F$ ~5 D% D RowBox[{
1 c4 X6 N6 D3 q+ x5 i9 V* v RowBox[{"-", "0.339186`"}], "+", "x2"}], ")"}], "2"], "-",
: r% X2 X- r6 V& i# V- X4 C SuperscriptBox[; l9 ]5 W6 z+ e4 j
RowBox[{"(", % }, }0 C3 g3 k! _! E
RowBox[{
8 P; `4 I9 l8 @ RowBox[{"-", "0.4943`"}], "+", "x3"}], ")"}], "2"], "-",
2 M' J+ P2 h5 J5 V0 p# g SuperscriptBox[& x1 q3 N1 _ E. \7 c; T( ?( y
RowBox[{"(", 5 n" `" M8 l+ U; \
RowBox[{+ Z# b5 ~# N7 [9 u% w$ a
RowBox[{"-", "0.099338`"}], "+", "x4"}], ")"}], "2"], "-", 3 D/ t& t. B' m& n
SuperscriptBox[- V; X% T$ Y, K: @
RowBox[{"(",
$ Y$ J1 ]! F9 H# _: C RowBox[{
' r) x0 _0 n+ c7 e/ }7 V+ E9 w RowBox[{"-", "0.321678`"}], "+", "x5"}], ")"}], "2"], "-",
* U+ ^ {. T8 t$ E! D/ t SuperscriptBox[4 X- j7 H% _, L: ~
RowBox[{"(",
5 X, B/ `, ^; @* B; [5 F RowBox[{
# Y: b( n, \& Q5 s: A7 G RowBox[{"-", "0.375283`"}], "+", "x6"}], ")"}], "2"], "-",
4 p; ~6 h& {2 O+ T+ k- L SuperscriptBox[
7 [7 m' k' X6 \ RowBox[{"(",
t: @2 v5 n- U: `* { RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", 7 Z! M2 @% v* p5 D) G
SuperscriptBox[. j) K( j1 O' l8 s
RowBox[{"(",
1 c. H. N9 J: X6 q( N RowBox[{# f( J- T- p( Q! x2 R; K
RowBox[{"-", "0.505539`"}], "+", "x8"}], ")"}], "2"], "-", # b' @9 H. e, @% f
SuperscriptBox[
( |' k( a+ x" B0 z6 R& r RowBox[{"(", % e' e0 R0 t3 w( g* R- A
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], * \0 G8 m$ Y' ^1 v2 {/ E4 T u
")"}]}]]}], "+", / [+ i8 M3 z! U
RowBox[{"0.32564305572552416`", " ", 6 F2 K N0 y- X9 r1 h' T+ n. ~7 l
SuperscriptBox["\[ExponentialE]", ( s# d4 Q1 T; K
RowBox[{"3.141592653589793`", " ", 6 ]! P: E" y5 y% c' }0 G
RowBox[{"(", 9 _2 S* l% o4 O& S# H9 g6 L p0 {: B
RowBox[{1 e" B" v8 k e2 Z$ X' k
RowBox[{"-", $ K& H7 E/ y+ W, W0 Y% ~5 s- b
SuperscriptBox[4 J( ^9 @ g& L2 r( ]. m
RowBox[{"(", 4 ]- |- \- _% d
RowBox[{
+ ~0 j0 `6 k& x- O5 ~ RowBox[{"-", "0.304348`"}], "+", "x1"}], ")"}], "2"]}], "-",
) T B/ ]$ \4 Z4 R) b SuperscriptBox[8 G$ n9 T1 E( z) }1 v* V, r
RowBox[{"(",
% B8 D8 D ]& ? RowBox[{: d) T$ o8 |. U/ w; z
RowBox[{"-", "0.552818`"}], "+", "x2"}], ")"}], "2"], "-",
U4 `% D% q Q7 ^# S _& U, o) H SuperscriptBox[( P$ m/ f8 v4 \5 Q
RowBox[{"(",
. A4 [7 S. W6 \( r0 S+ Q RowBox[{3 s% c/ ]0 M6 E. [# [
RowBox[{"-", "0.33037`"}], "+", "x3"}], ")"}], "2"], "-", ! m) r6 q) j$ j& e+ @% x% x: S
SuperscriptBox[4 n) J2 o' J8 F4 i5 B K
RowBox[{"(", 6 _/ h- n, P' @. z; \$ s+ B* p! O& l
RowBox[{
. a0 L) }3 a& v( ~0 F9 N RowBox[{"-", "0.025823`"}], "+", "x4"}], ")"}], "2"], "-", 7 k3 Q7 [4 Z: L6 l
SuperscriptBox[0 Z9 R6 {8 i% ~8 P" r& [
RowBox[{"(", / A; H# `( O: L6 \' b. Q
RowBox[{% F, m6 B/ o% z, Z/ p1 w# m1 C) O
RowBox[{"-", "0.538462`"}], "+", "x5"}], ")"}], "2"], "-",
1 Z% d: _7 Y' w SuperscriptBox[
: o3 @1 ~7 `0 a) p& @ RowBox[{"(",
/ R% U4 P1 x( s$ [& \8 a) g RowBox[{
$ j- J0 B, x/ @& o RowBox[{"-", "0.752072`"}], "+", "x6"}], ")"}], "2"], "-",
2 Z3 e: d6 |8 z; w0 l SuperscriptBox[
; J2 F. k/ Z9 E3 |/ Y RowBox[{"(", - e9 B% v' ^6 K; y8 U- c0 D- P
RowBox[{) M |1 K( M2 S) g! P2 ]% s) }
RowBox[{"-", "0.408943`"}], "+", "x7"}], ")"}], "2"], "-", & n5 [/ Z+ h- e) ?& |. n7 A
SuperscriptBox[1 V9 l; t+ g- c. j+ j1 n# J! g
RowBox[{"(",
/ N) D5 z- D% l; c0 Y- j: p RowBox[{9 Y, [/ h0 c- I0 u9 x
RowBox[{"-", "0.504532`"}], "+", "x8"}], ")"}], "2"], "-", 8 O4 [7 X4 x6 ?' w2 z+ ]9 `
SuperscriptBox[
& X' `7 W& q$ [0 u) N$ F RowBox[{"(", 6 f! l: j* C* C6 c8 X. m
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
9 O9 ^: Y% r! R% a$ _" y ")"}]}]]}], "+",
8 i9 l0 _: Z* h' t0 s1 H! A RowBox[{"0.6665374509702799`", " ",
# O& d# ^- t/ S SuperscriptBox["\[ExponentialE]", - @+ N( K! w8 R' g, l5 f+ B, ^0 a
RowBox[{"3.141592653589793`", " ", " y4 j$ Y% ?1 e1 y" K5 K3 ~
RowBox[{"(", # P2 e# v J2 S1 y5 B' @- `- R
RowBox[{
0 I7 r+ K0 F, `: E RowBox[{"-",
5 P6 j* [& B$ H8 S6 Q3 x1 \. C4 N. R8 x SuperscriptBox[
/ w% P" O- V, z/ T- ~ RowBox[{"(",
% Q. u4 ~1 b2 \5 L RowBox[{/ Q5 h9 j+ p: r! M* s
RowBox[{"-", "0.413043`"}], "+", "x1"}], ")"}], "2"]}], "-", 0 ?& g' b4 l; W* r
SuperscriptBox[
. B. [4 |' m/ q) B& D5 F: W% c RowBox[{"(",
, g% Z- F0 E: } RowBox[{
# J4 F" ?/ q. B0 a% f- o RowBox[{"-", "0.551859`"}], "+", "x2"}], ")"}], "2"], "-", 2 T( S4 l) Y$ X7 c4 O
SuperscriptBox[! H! j9 V+ l$ \/ }1 K6 E
RowBox[{"(", * _ J( Z. N- z2 h2 f! y6 z
RowBox[{1 B, }' m( M; Y+ q
RowBox[{"-", "0.544826`"}], "+", "x3"}], ")"}], "2"], "-", " b5 f e% o! |1 R
SuperscriptBox[: O0 P5 V* p$ }1 j4 t7 \
RowBox[{"(",
1 G: A+ M: n8 ?0 h3 `0 b RowBox[{
8 O- k$ m' `/ P- B! v: J RowBox[{"-", "0.230503`"}], "+", "x4"}], ")"}], "2"], "-", - `" j% w9 ?- ?
SuperscriptBox[
+ d* a- }# H& o* s RowBox[{"(", 0 z$ V2 D/ v U( z7 Y. Q1 N
RowBox[{
3 l3 F0 k: _( N* ` RowBox[{"-", "0.244755`"}], "+", "x5"}], ")"}], "2"], "-", 4 z6 k) S; M2 B9 Q+ B
SuperscriptBox[
+ i/ p1 X$ x0 {7 k9 V0 T RowBox[{"(",
, u9 m- c6 D! J) ?* R5 e RowBox[{
7 f# |" v- z7 x4 C" n& ?: U RowBox[{"-", "0.53052`"}], "+", "x6"}], ")"}], "2"], "-",
- c5 z0 T! I7 N6 m6 _+ t1 a SuperscriptBox[
: O3 K8 F9 {2 g1 W1 Q9 [ RowBox[{"(", ) O" Q L( r6 F4 p
RowBox[{
9 j6 W, Y! S4 V' e8 g9 B RowBox[{"-", "0.819512`"}], "+", "x7"}], ")"}], "2"], "-",
/ r7 C" {5 R/ ~ SuperscriptBox[/ k7 v. D `* {9 C+ @. E% _
RowBox[{"(",
" p x0 E) \9 O `/ Y RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
0 @4 g9 Y; N) _* O SuperscriptBox[
0 R5 d3 {: n% a0 u2 u0 h RowBox[{"(",
. c4 n8 `# o# O( |& W v% k RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
5 r7 |4 g3 j) n6 |$ z( C ")"}]}]]}], "+", : R [+ b, m1 ?2 L3 S8 ]9 h0 o
RowBox[{"0.4812237524557292`", " ",
4 ?; q' U0 H7 _3 c( b V1 v0 m/ Y SuperscriptBox["\[ExponentialE]", 8 \3 i! A' f) A% _, n- N$ v
RowBox[{"3.141592653589793`", " ",
, E2 j E% d" J# v RowBox[{"(", 5 p0 P( K/ R& b2 {4 p
RowBox[{
) V7 q3 ~; v" z f2 _! ~ RowBox[{"-",
/ u, b i+ b3 M, m8 G0 k0 g" d SuperscriptBox[, n. ?% v. H, C
RowBox[{"(", % X) q+ ?) [1 u. p0 R4 p3 q q
RowBox[{8 m! c4 t3 J' y, k$ T1 n
RowBox[{"-", "0.73913`"}], "+", "x1"}], ")"}], "2"]}], "-",
! O+ K [4 I7 W0 ~' W, s, F SuperscriptBox[( G A& F2 L' i2 j$ v. M
RowBox[{"(",
# m( Z" |6 ]) v r! L9 G RowBox[{& v+ o1 Q+ X* D
RowBox[{"-", "0.193199`"}], "+", "x2"}], ")"}], "2"], "-",
& g+ U; h) H4 k. ]% s$ J. ^ SuperscriptBox[5 t, A& a4 Y! [
RowBox[{"(",
[) S H) _8 O( w1 N1 e6 Y# I RowBox[{0 X% s1 Q1 A' U2 E
RowBox[{"-", "0.160584`"}], "+", "x3"}], ")"}], "2"], "-", 8 i- ]2 H; m* x6 h4 y. }5 {* c
SuperscriptBox[
: g: Z& _8 q" p& [2 K( Y) G% t RowBox[{"(", 1 u! u/ U4 l0 E. r' A& U
RowBox[{
) z( C, Z0 q6 ?- ` RowBox[{"-", "0.037907`"}], "+", "x4"}], ")"}], "2"], "-",
6 {" `/ o: F# ] SuperscriptBox[
$ y1 u. i# i' o; b- _% Q RowBox[{"(", 3 r6 W. q- a' N: k3 W2 Y7 n) L' a( I
RowBox[{
4 m( y1 y# \5 o5 j" a6 s RowBox[{"-", "0.461538`"}], "+", "x5"}], ")"}], "2"], "-",
1 J& r: t" U/ p, u) R, J! Q SuperscriptBox[0 a. S! g8 I* Z H1 c M1 t
RowBox[{"(",
" m* l( X4 Z" p" p/ z RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", ! {" a% T0 h' f; M8 n2 r& v
SuperscriptBox[" d5 g9 x( q. z+ Q# m
RowBox[{"(", 9 N, Z) I- }& H; l* m" q4 m% Z7 c2 @
RowBox[{* w% W; o' ~+ X' X6 _
RowBox[{"-", "0.684553`"}], "+", "x7"}], ")"}], "2"], "-",
0 f1 W: V8 l" h# X SuperscriptBox[
# D0 f# e; }9 S! U% e RowBox[{"(", 0 I" A$ L7 R2 d, l
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
. j# R- L7 C! } SuperscriptBox[# Q; f9 @& T' @" a1 e( f
RowBox[{"(", 8 | ]) q3 X3 l- ]! a0 \
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], 0 z7 F5 O& E) ^ O
")"}]}]]}], "-",
4 l- U8 ` L; k* y4 I2 f4 J- ~. A; y RowBox[{"0.17602467625404622`", " ",
% ~' O9 ? E+ u5 B4 J SuperscriptBox["\[ExponentialE]", & L) }& Q, A: Y1 R; a
RowBox[{"3.141592653589793`", " ",
0 `1 n; H1 o# Z; B; }- e4 B( Q RowBox[{"(", " b( X+ ]$ C8 @* ^
RowBox[{
7 H. w9 F$ J! F8 i2 h% p RowBox[{"-", % U0 K2 e$ {$ r; H6 }( |
SuperscriptBox[1 k) p# w' m O. ^
RowBox[{"(",
" U! q ~7 p4 Y: g* D) K9 y RowBox[{7 y- G5 j' `: P# z
RowBox[{"-", "0.652174`"}], "+", "x1"}], ")"}], "2"]}], "-",
" n: v8 i1 E* |, y SuperscriptBox[+ Q- _: R. ^! \* o; D, i7 v1 T
RowBox[{"(",
" S& [6 e6 H# l- r) u1 Y2 T3 P% l RowBox[{
. `) c) ^7 T, r9 O2 h& L RowBox[{"-", "0.569711`"}], "+", "x2"}], ")"}], "2"], "-",
T |- g3 U, p& R6 A6 f1 s SuperscriptBox[
- |6 r3 l8 U; a3 T. ]7 F j% C RowBox[{"(", ' P3 X5 ~0 [- s" i
RowBox[{
; q$ W1 D% X* z2 @; g* S- H1 w RowBox[{"-", "0.414297`"}], "+", "x3"}], ")"}], "2"], "-",
. E0 a B6 `/ |3 \; C* n0 H SuperscriptBox[3 [5 h$ ~& N8 e& H; A
RowBox[{"(",
) }* `' G# L3 q RowBox[{
8 y: N) I1 V6 Z7 w( K3 Q5 a$ C RowBox[{"-", "0.175398`"}], "+", "x4"}], ")"}], "2"], "-", - ^# E) N4 E; P: Q | _! N* N* L) ^
SuperscriptBox[, `' G1 ?+ p; D
RowBox[{"(", * u% C" \! a h9 `4 g' V( T; P
RowBox[{- } p; O' n L# W" v
RowBox[{"-", "0.167832`"}], "+", "x5"}], ")"}], "2"], "-", # u* o: ^3 @$ w# r5 W1 c0 K
SuperscriptBox[
! }, E* Z' g- t# ]- w6 t2 P RowBox[{"(",
" u: h! G- D4 ]( t* h RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", 9 i# o7 i" ~1 K9 n; K r
SuperscriptBox[- ^. \! z) y. Z; Q* W
RowBox[{"(",
- A' J2 X4 m' k RowBox[{* M: A' n+ [0 G/ I
RowBox[{"-", "0.544715`"}], "+", "x7"}], ")"}], "2"], "-",
" [/ w4 G3 S' c4 I6 o" r SuperscriptBox[
2 G, R$ H1 g K; ^5 w RowBox[{"(", ' l; i7 Z4 L2 V' P* ~# z5 P( `
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
' H: F# ^5 _9 _8 |% F SuperscriptBox[
6 d0 G, K0 ~+ l$ ^- z# z/ |9 X RowBox[{"(", ( [6 o. t& g6 f" z. A! S9 r
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
2 R, k# ?& i* H5 F ")"}]}]]}], "-", - n1 ^! ^2 w# f5 b, k
RowBox[{"0.5945873894818967`", " ",
: _% U% B6 n; ^1 P, G1 a SuperscriptBox["\[ExponentialE]", 1 R1 s! b: i9 k3 \8 M
RowBox[{"3.141592653589793`", " ", - L! ^# ]2 o7 b- m! o
RowBox[{"(", 0 i+ ]- o) R; f0 q+ h1 h- O; x2 G
RowBox[{
5 `2 Z& j( x+ P/ R RowBox[{"-", + [$ t8 P) H' j( {
SuperscriptBox[
0 r! Z9 A* b8 W7 W3 \ RowBox[{"(", 5 K# Q( s W4 Q" U
RowBox[{ w, G5 x$ q9 p4 ?* [' T: u
RowBox[{"-", "0.521739`"}], "+", "x1"}], ")"}], "2"]}], "-", 2 {: ^. ^+ G. J' Q9 z
SuperscriptBox[/ }5 g4 f/ y* r8 z
RowBox[{"(",
' Z$ B; S3 j7 I RowBox[{' r' A" ~5 E3 \5 H
RowBox[{"-", "0.334022`"}], "+", "x2"}], ")"}], "2"], "-",
' ]" N! c$ h+ X- s1 } SuperscriptBox[& {. K4 U# U( C% i" K2 Z; p
RowBox[{"(", ) P6 d. }. L; ~$ X' ^
RowBox[{2 A4 ?3 ~6 ]0 f6 W5 u
RowBox[{"-", "0.3555`"}], "+", "x3"}], ")"}], "2"], "-",
- x3 Y/ J# D A+ @) J7 a9 m* t SuperscriptBox[
6 u7 u, ?& t b* c RowBox[{"(", - q2 x" g) h0 r% N! k" U
RowBox[{
# z8 p) C6 n1 C. [; t2 \ RowBox[{"-", "0.025156`"}], "+", "x4"}], ")"}], "2"], "-",
0 g: ?' ?& P% \* I+ W) U; }' O SuperscriptBox[: ?5 \+ W: @, C8 n" K
RowBox[{"(",
5 {( p4 @7 V$ c' f: V RowBox[{. {" |4 q; ^/ U& t7 E+ s8 S
RowBox[{"-", "0.48951`"}], "+", "x5"}], ")"}], "2"], "-",
$ [# Q, S: _2 h SuperscriptBox[* Z6 t5 L6 k& @7 o$ w4 W( L
RowBox[{"(",
$ P9 m0 ]2 T8 x& L" |* q* \+ Y: l RowBox[{2 W$ ?2 i( n( [
RowBox[{"-", "0.37679`"}], "+", "x6"}], ")"}], "2"], "-", 5 @& p. U0 g) Y( |1 c! {/ D
SuperscriptBox[5 u; Q. N& o' U' j
RowBox[{"(",
! M% ^2 {( R& H9 N: r RowBox[{, Y' a- M. R8 `. o! Z W9 S
RowBox[{"-", "0.411382`"}], "+", "x7"}], ")"}], "2"], "-", 5 G9 h0 H0 Y! z
SuperscriptBox[4 ^0 F6 e- [6 N
RowBox[{"(", ; Y3 N7 ^. O# k9 A& M& G
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
8 g1 R3 l! b# _7 x1 f SuperscriptBox[3 x7 A3 p* G5 D$ W+ ?' M# h
RowBox[{"(",
1 g B! W$ Y: w4 M8 R5 G RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
! ^% ] g2 ~$ n: }4 Q# b" p ")"}]}]]}], "+",
) |- d+ u- |* h6 ^$ v9 B1 Q4 v4 c RowBox[{"0.5252475961933538`", " ",
5 w2 ^- L6 R8 M$ i& } SuperscriptBox["\[ExponentialE]",
* q% }! O( k' Y0 p RowBox[{"3.141592653589793`", " ",
6 k7 f# _9 H. a) Z RowBox[{"(",
' ^" g2 U3 d1 Z+ P6 v% B l2 w [: c RowBox[{
" l1 l, I$ l, q j. A5 W( u7 L RowBox[{"-",
) {5 G( o7 w$ C- { SuperscriptBox[4 R5 W+ L D# I+ D' v" S
RowBox[{"(",
0 s1 x' i" y9 A0 I* P/ {& n- D RowBox[{
% X7 Z' \& c, ]- T0 z- Q RowBox[{"-", "0.173913`"}], "+", "x1"}], ")"}], "2"]}], "-",
% Y2 F1 y4 j3 `5 z SuperscriptBox[* E( g' c0 N5 W5 g! f- H9 e. a, [7 A; X
RowBox[{"(", ; X2 Y6 s2 S, s& d
RowBox[{1 R# J I0 m8 ?- Z3 R2 N& G
RowBox[{"-", "0.984656`"}], "+", "x2"}], ")"}], "2"], "-", 6 Y6 e3 W v1 V# P1 g
SuperscriptBox[: K; B( j& R# |% P& L% O' n
RowBox[{"(",
' @5 ^4 t$ ], p! C3 \$ ?& t& V RowBox[{* b3 T: A" X$ d" W8 o( @
RowBox[{"-", "0.420753`"}], "+", "x3"}], ")"}], "2"], "-",
' _: w8 ]7 {0 T9 X c2 \1 F0 b! ^ SuperscriptBox[5 b3 \, V$ X7 L, s3 \9 t2 p
RowBox[{"(", 2 C# U- ~- J* ]: m2 B; \+ [! ]# Y
RowBox[{
( U V% `& l$ e' S R1 D L RowBox[{"-", "0.137022`"}], "+", "x4"}], ")"}], "2"], "-",
6 l( V% E7 X7 X4 r SuperscriptBox[& L2 {+ ~. U6 e& Y% @
RowBox[{"(",
0 i' y+ ?) a# J. d5 E! B: z/ E RowBox[{
" d) v; Q3 U; ?/ ? C) G RowBox[{"-", "0.321678`"}], "+", "x5"}], ")"}], "2"], "-",
! G. N# m6 z+ e9 n1 n' W SuperscriptBox[) e; ?1 E1 A: | e' y
RowBox[{"(",
: ?. Y8 W1 s" |+ T RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
: V4 P9 W( ?! I; d; e% e5 x SuperscriptBox[( O3 s- a2 D2 C4 V+ T- f2 e
RowBox[{"(", 5 B: y+ E6 w5 T5 l6 B0 k1 z3 Q
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
" M+ l# |" n b& ^; J0 _: o7 g; m SuperscriptBox[
3 ]# ~" t# L# J0 j# e2 O( a, ?2 A* T RowBox[{"(",
) O% S3 z& H0 R& Z8 I RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
9 b6 P! u3 p% g SuperscriptBox[) g8 K- i9 d9 ?; ~# h( w
RowBox[{"(", / X5 [, Q$ P% @! ?
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
g) f% h$ H* ] ")"}]}]]}], "-",
) f0 q: C2 u' L2 O+ X RowBox[{"0.320472847796449`", " ", }0 R) v4 L& P
SuperscriptBox["\[ExponentialE]", 2 r: ?0 q+ V0 @0 O! ~/ G
RowBox[{"3.141592653589793`", " ", ' U0 {6 B0 H2 z! r6 G6 x. z3 c
RowBox[{"(",
q* m8 y7 b' m* H1 F0 {- W RowBox[{
6 q3 G# @: n8 r+ L* P. o RowBox[{"-",
' N9 [! D9 t( ?; U3 ]$ Y0 Q) J SuperscriptBox[" E) P9 o/ U9 i5 Z
RowBox[{"(", + K2 A6 Y9 v7 Y
RowBox[{/ f1 ~+ I% I1 A- L, ^
RowBox[{"-", "0.717391`"}], "+", "x1"}], ")"}], "2"]}], "-", / B4 c0 s7 h v8 w, F* }
SuperscriptBox[
( `8 r6 i( W0 s0 }" c! `7 j RowBox[{"(",
6 C" w3 i* W+ ]2 n RowBox[{: _- z+ N0 J" A
RowBox[{"-", "0.736205`"}], "+", "x2"}], ")"}], "2"], "-",
' m( K2 b- Q. Z: R$ P. ?, j2 B1 v SuperscriptBox[8 f) F6 z- j/ f( T3 l
RowBox[{"(", " y0 ~% w9 j% j/ M
RowBox[{
3 V; D' \% c5 j4 H8 @ RowBox[{"-", "0.267704`"}], "+", "x3"}], ")"}], "2"], "-", - ]: f4 \! _9 _. \- r7 Y; z
SuperscriptBox[
- ]$ S' a. A* m1 z7 B5 {% h RowBox[{"(", ; p% @. [5 U- v# p7 _6 n1 N0 m
RowBox[{
/ x+ `% a/ [) ]* e7 `: c& G RowBox[{"-", "0.036152`"}], "+", "x4"}], ")"}], "2"], "-",
k; m8 \+ ] l. f A SuperscriptBox[
7 z6 A6 \$ X+ @$ p* `5 w {9 v RowBox[{"(",
9 E3 R- l" Z& O) F RowBox[{5 P7 q' o3 M& J9 ?, N; Q" [, }% X
RowBox[{"-", "0.307692`"}], "+", "x5"}], ")"}], "2"], "-",
8 U1 a* K$ P8 a+ r% | SuperscriptBox[
# I" k$ [+ c- w' N: S4 h, k RowBox[{"(",
0 C: H* K7 m1 d, A* e RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
1 r! M0 @' x% m4 U1 `# i SuperscriptBox[! [+ B/ ^! X! E& t1 b- C
RowBox[{"(", ( V& X* L0 [- I$ i8 O: w
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
. x1 e9 m/ f2 u2 v SuperscriptBox[
E, X8 m1 I: c& Q/ A RowBox[{"(", 3 w% r8 Y0 Q$ f& q
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
5 n- o0 y! x' ?1 R7 j% s SuperscriptBox[: r f# W; s M2 ~
RowBox[{"(",
: ]- j9 u$ h8 l RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
, P' _# {0 m: W1 a6 ^5 \ ")"}]}]]}], "+", + ?& h" f* ~% }" ?& l+ ^
RowBox[{"0.7528674241482847`", " ",
! |1 \, C/ L7 S0 j8 l: v SuperscriptBox["\[ExponentialE]",
, g6 z) s, y2 F. ?8 i, O, b: A RowBox[{"3.141592653589793`", " ", 8 s& ^2 ]- r( l2 v
RowBox[{"(", $ y$ _0 [0 f) h
RowBox[{4 n: n! |. Q, O9 z) `
RowBox[{"-", " e; f; V4 S, x6 t) i& v
SuperscriptBox[
0 C- s* [2 Y" w% u2 K& C3 z- E RowBox[{"(",
, p7 s0 @! u7 h7 p5 `' | RowBox[{
4 N& |6 b }4 O( e: b9 W RowBox[{"-", "0.826087`"}], "+", "x1"}], ")"}], "2"]}], "-", & _- i* P& r4 w( |; Y) x' ~( c
SuperscriptBox[
, Q" y% U" U6 Y, ^# v6 ]2 ~ RowBox[{"(",
" |3 c* _) X! { RowBox[{
+ Z4 N% D- r2 `6 ` RowBox[{"-", "0.203969`"}], "+", "x2"}], ")"}], "2"], "-",
& l8 j. d) H' V& G! m4 c6 H: M SuperscriptBox[6 ?8 y% |5 b) O) [) s
RowBox[{"(",
8 w. g8 w: }6 J1 t RowBox[{* {5 l0 {! d; @6 `5 `. W0 \
RowBox[{"-", "0.234619`"}], "+", "x3"}], ")"}], "2"], "-",
% Q3 n. D2 Q: |9 J8 h* J SuperscriptBox[
+ ^* s R% d/ ] k: J* f RowBox[{"(",
% F. ]+ |& n9 ], b% Z$ i RowBox[{7 B" L8 ^/ z$ w. b& n8 \
RowBox[{"-", "0.27224`"}], "+", "x4"}], ")"}], "2"], "-", 2 x$ g3 V( V/ j
SuperscriptBox[
* R. P5 E) b) E, Y K1 W RowBox[{"(", / f5 }# _$ C" Y0 q0 t/ h$ {6 A1 [
RowBox[{3 d. p q/ o9 n) c; O" M
RowBox[{"-", "0.265734`"}], "+", "x5"}], ")"}], "2"], "-", 0 ^) e& U! f: }" C2 c. h
SuperscriptBox[, O. s* _5 ~' T4 _. C& C" D, ?! E
RowBox[{"(", ' N3 o: [/ }- {+ a$ c4 n
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", 9 {* k) e1 c; }; T9 V- l
SuperscriptBox[
/ g3 H" Y) Q! V% y* J7 T5 r RowBox[{"(", , C5 S0 ]6 s6 u8 n+ ?! I
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
6 d: O/ Y, D" t, |6 Z SuperscriptBox[% b- T/ ~7 x* H8 {
RowBox[{"(", 2 c' V- A. o# P
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", * l9 I8 Y8 }7 x2 [
SuperscriptBox[
+ E% D, c, b+ v) D RowBox[{"(", {8 }8 G; Y( `4 H- T8 C# T7 g9 ?$ i
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
: ?" s4 C0 ]; y+ {2 h1 F ")"}]}]]}], "+",
, \1 O* p( d! h( Y$ B. o RowBox[{"0.02759193650965952`", " ",
, R: v& V2 m0 [( x# A2 u* I P' R SuperscriptBox["\[ExponentialE]",
; o+ v8 Z( e0 u RowBox[{"3.141592653589793`", " ",
z' N* t4 r6 ~# k8 T RowBox[{"(", " h% k8 }/ |1 o9 c( ]6 Z& [6 E
RowBox[{
7 A- O' c3 I; s, H% z RowBox[{"-",
+ \; o7 q! c7 i$ V, L SuperscriptBox[* i+ n1 v# \6 {5 C/ O1 g
RowBox[{"(", # d( v5 C9 w1 V$ e, m" {8 z
RowBox[{
' p9 t3 o( ~. q+ b2 {' O1 d RowBox[{"-", "0.565217`"}], "+", "x1"}], ")"}], "2"]}], "-", ; W& o* S$ A3 `
SuperscriptBox[
2 Y& e* ]0 u/ U6 c1 p, p RowBox[{"(", * m7 t1 q! ~+ }7 T+ P& t0 H* h9 H
RowBox[{
. i+ d' D3 n7 |% T w4 b: w RowBox[{"-", "0.572293`"}], "+", "x2"}], ")"}], "2"], "-",
8 S4 t+ V: [' X8 O. }6 J SuperscriptBox[
3 ]: e1 B" C+ V v, G RowBox[{"(",
- Z0 ]" l( ?3 c& I5 Z! d( e RowBox[{
# X: I8 F) h9 n) J% Z RowBox[{"-", "0.655012`"}], "+", "x3"}], ")"}], "2"], "-",
' r; P8 [7 _& q5 V SuperscriptBox[! e* z5 s$ u( }3 z3 |4 o# [" ?2 {
RowBox[{"(", 0 |# y$ D u% G- N# G4 J& B! T
RowBox[{
2 y; ~$ \" q* ] RowBox[{"-", "0.281852`"}], "+", "x4"}], ")"}], "2"], "-",
; G9 P- m; ?1 h+ Q: ~% q1 d8 J SuperscriptBox[
" S+ K' p u& Q% A0 c$ A6 z RowBox[{"(",
# i" ?! x' B, d: x [# k* C RowBox[{"0.`", "\[InvisibleSpace]", "+", "x5"}], ")"}], "2"], "-",
1 F# Q( L" k% }1 S4 n K SuperscriptBox[9 Y4 c' [, [9 S% J' g; H0 ~
RowBox[{"(", * b/ n$ J9 m1 j7 Y. j8 g/ U! m
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
' Y7 _# P! {% E. Y1 X SuperscriptBox[
& q- B! o. }9 {! ] RowBox[{"(",
& s+ F% ]2 z+ }4 H* Q RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", * u2 S& R( G, x/ m7 O
SuperscriptBox[
3 c5 j4 G" v2 Y' ^+ Y: v4 V6 U RowBox[{"(",
4 z$ S3 ^8 G# _: v RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", 6 h& ?9 @# o( s4 O3 f, c7 j
SuperscriptBox[
& R! l& n; k0 Y! E) g RowBox[{"(",
9 q) O* E( u" { RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], ' u) Y ` b6 {% @. l2 `
")"}]}]]}]}]], "Output",& p [* y- }3 l v
CellChangeTimes->{3.577924759875*^9, 3.577924921203125*^9,
: z& [; ]5 Y# k, S 3.57795759203079*^9, 3.5779589554964056`*^9, 3.5779621253913965`*^9, ' ?# @. b3 w( j4 O3 W
3.5780123515625*^9}]* ]0 }4 a' g) ~' H
}, Open ]],
4 u3 J: L4 m" @
; w" P) x6 U6 YCell[CellGroupData[{
& U- s8 Y. E2 S/ D9 d& f7 M* N. C8 N C
Cell[BoxData[
! N9 e; _ m, d! x2 K- L& S RowBox[{"y1fit", "=",
3 t+ n# w. j; D" b RowBox[{"Table", "[",
7 u- z# o( A t. a4 i) ?1 |6 j" E RowBox[{"x", ",", ( I+ \5 P3 {/ z! E. d
RowBox[{"{", 2 p& I' i1 c; @& }$ U1 e
RowBox[{"x", ",", "1", ",", "29"}], "}"}]}], "]"}]}]], "Input",5 B7 T, \6 i) H
CellChangeTimes->{{3.577924969375*^9, 3.577924979515625*^9}, {
: D8 _( K! i4 B0 b+ g; W E$ I 3.5779252768125*^9, 3.577925277484375*^9}}],
' _' o/ m# k* W' A3 j* |3 Y# s" h0 B& Y
Cell[BoxData[; N! n1 p9 E& G& j8 i
RowBox[{"{",
* y: b3 C3 z l, j8 {7 p RowBox[{
' C9 Y! c$ B4 D! k "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
/ o) [. Z2 w4 @ ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15",, O& i* n2 Y/ e' w, R( ^
",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",", ' X, X+ e U' y6 j1 K$ E: E5 b
"22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", "28", : C% R" }3 _0 j( \! u
",", "29"}], "}"}]], "Output",
6 J* n& i* l; D U1 R/ }! } CellChangeTimes->{3.57792498240625*^9, 3.5779252798125*^9, / T) T' _* Y2 |% g8 u) o/ V
3.577957594916795*^9, 3.5779589579612093`*^9, 3.5779621294942036`*^9,
Y, F, b$ v5 K3 u1 ~1 f 3.57801235340625*^9}]8 `7 ~+ U9 a& ~, t0 b. G
}, Open ]],( R/ ^, x5 i/ x4 h9 m
; d% m& i9 F" l% q/ x( W
Cell[BoxData[
# T5 V' e/ s/ l! }, _- h RowBox[{"For", "[", 4 h0 g# P; a9 X; }
RowBox[{9 H# N! G+ O4 o' S ^& U! m
RowBox[{"i", "=", "61"}], ",",
! |* [- v, ]3 D# E/ f/ d1 O, M) \ RowBox[{"i", "\[LessEqual]", "89"}], ",", 8 h8 x* N* A9 T
RowBox[{"i", "++"}], ",", "\[IndentingNewLine]",
/ k* Q5 W: G: x RowBox[{1 z3 M- R( Z6 \) S. h
RowBox[{
, k0 b* d/ I6 i3 [ RowBox[{"y1fit", "[",
, ?3 ~" }8 C" C: E, U RowBox[{"[", # ]- L' m/ w5 s
RowBox[{"i", "-", "60"}], "]"}], "]"}], "=", , R5 u5 K9 h2 ?
RowBox[{"y1", "/.",
) u$ O3 X( M) a9 }# G RowBox[{"{", , ]3 B0 J" ?# v2 f# z: M; ]
RowBox[{$ \; M' ?% m9 s" b. h" j1 q
RowBox[{"x1", "->",
7 Y. V- E. K: r1 r RowBox[{"Data", "[",
7 N/ _% ~& V, L7 Y& ^ RowBox[{"[", * n( i4 t9 z% z! c6 i# N) K l( f
RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",", 9 M: C* \. @; T
RowBox[{"x2", "->",
6 z2 U6 N7 ]' E RowBox[{"Data", "[",
+ R/ Q4 o( r3 ^ RowBox[{"[",
* f/ h4 H+ c5 p+ ]" \2 g ` RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",", 7 p. N( E' F6 A. m! n
RowBox[{"x3", "->", 1 ^* e9 p( l% T9 O8 g/ [' K! M
RowBox[{"Data", "[", ! Z+ L. `, k, t# P
RowBox[{"[",
: b0 G0 f0 w8 t) I! q1 N+ n1 b RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",",
1 R/ E: @ w5 a RowBox[{"x4", "->", % n& @8 }9 M3 p2 h0 E
RowBox[{"Data", "[", 9 ?! z- W7 m0 o: a
RowBox[{"[", ; v5 K9 l, o+ ^2 i* Y( v4 E
RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",",
; L' C' g! [' O a4 v: [ RowBox[{"x5", "->",
: q0 C8 X2 v# u v j* O, V3 V8 d RowBox[{"Data", "[",
. X0 I! ?& K/ o" I RowBox[{"[",
0 Y7 k2 R% m9 t8 q1 ^0 K+ ^/ h RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",", 9 P3 \; W+ x( t7 `
RowBox[{"x6", "->",
, Z5 x9 z- Q1 o# ?. w8 k RowBox[{"Data", "[",
+ ~* v2 u9 S' G& S1 Z5 z( E. i RowBox[{"[", # a2 x) A9 r. D1 j( S( z2 \
RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",",
# a: v D6 t, E RowBox[{"x7", "->", 2 X5 e5 z& m5 [/ V
RowBox[{"Data", "[", . a# B$ J s$ s+ _+ t
RowBox[{"[", % W: C M1 ~& }! r9 d& I6 o
RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",", 3 p( l4 }# c" _; f7 e& j6 g
RowBox[{"x8", "->",
, I- B0 G$ e' W8 d& S8 i RowBox[{"Data", "[",
( |6 X& ~* S7 Y9 s; C' x RowBox[{"[", ) F* Z2 t) C! ^ b9 ]$ }/ D6 o
RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",", % b2 k3 Q& C* W: F) m) c
RowBox[{"x9", "->", + g5 m/ K6 i0 k" W6 f2 O
RowBox[{"Data", "[",
F& h; ~: q# C RowBox[{"[", $ l9 P1 x0 r) s- y& M
RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";"}]}], ! b& w5 {+ ^0 l
"\[IndentingNewLine]", "]"}]], "Input",' K! ^7 x: k# N' U# u! r1 }1 w
CellChangeTimes->{{3.577925003234375*^9, 3.577925028578125*^9}, {2 M5 T: {/ u# m! Z
3.577925286140625*^9, 3.577925306765625*^9}, {3.577958922517948*^9,
' q8 w! P- @( _' C 3.577958922549148*^9}}]," R, @, ~: \: H. u% t
+ N. o2 v; `9 \Cell[CellGroupData[{: D3 `: b7 N2 P2 M. r; `* U( x
) f% G X7 b$ j; p
Cell[BoxData["y1fit"], "Input",
) P9 z, `2 E4 S- q, v) M CellChangeTimes->{{3.57783581246875*^9, 3.5778358135*^9}, {/ N1 m) z. Q( f {- ^* K
3.577925040484375*^9, 3.5779250440625*^9}}],& @& k2 H' K4 o# V! I$ X8 p X% }
+ n+ ?" K9 N5 p5 |' {3 kCell[BoxData[) ?! m* f: A3 X# c& a2 g
RowBox[{"{",
6 R" ~5 Q6 j- Z RowBox[{
5 p: X9 [+ k0 u+ @3 L( g/ K k. o "0.43193416525930517`", ",", "0.4501634853493982`", ",",
! D+ [- H" O" z "0.33336034768525247`", ",", "0.4418609896858925`", ",", 0 m+ \. E% e. z; k; b) U( l
"0.41030378932283024`", ",", "0.516814798191575`", ",", * e" B% B, v/ V; z
"0.4476631213729994`", ",", "0.3016552978696669`", ",", 2 C' {4 E, C& L( U; x2 T5 E
"0.378122167437847`", ",", "0.020339844919720733`", ",",
2 Z9 n% {: m, a* r "0.018745375782087376`", ",", "0.2919925992695025`", ",", 0 Q3 n. G9 s2 `2 K; `5 j
"0.2649067959681263`", ",", "0.16343444284525593`", ",", ( U4 M ]2 t( y/ ]) a7 s
"0.4182466778551563`", ",", "0.27347752211364934`", ",", 4 c. t$ D" _4 @
"0.38554057386385654`", ",", "0.35253160453718047`", ",", + g8 L I+ g0 `3 F6 e9 t c
"0.2054745841100774`", ",", "0.45504377112716676`", ",",
( o4 D& O' B# ] "0.1598805094678612`", ",", "0.18662509982279485`", ",",
8 C+ h& n2 @! r1 N5 g! D "0.10684797493248213`", ",", "0.013349212673286828`", ",", ( a, b4 I! l d; @2 E0 R& [/ _0 @
"0.08215836003004297`", ",", "0.2979041599362813`", ",", 6 u$ l- S* k8 c k
"0.05995976512343641`", ",", "0.3884793499104568`", ",",
, S! _7 _+ d- a "0.5361889337034293`"}], "}"}]], "Output",/ N- K! X: T( y3 b
CellChangeTimes->{3.577835814609375*^9, 3.57792504521875*^9, 1 Y! e( C0 T) i. P& h6 ^2 h9 @
3.577925312375*^9, 3.5779575978808002`*^9, 3.5779589654960227`*^9, : R6 c# u4 ~; X; }& G* K6 I$ d. R9 x2 k
3.5779621416934247`*^9, 3.578012355546875*^9}]
- U0 h6 Z1 M! R/ u; f/ J}, Open ]],
. s& w# V! _. w4 E) z- P
9 t0 D9 U( ?0 p- }" e+ g3 w9 @' DCell[CellGroupData[{& d5 u$ ?& j8 p: e' D/ `
}7 h. v6 i ?6 J" E% _% r
Cell[BoxData[
! j3 C: y. x! Z# F) ^ RowBox[{"y1fit", "=", ! a* I" [5 a/ I- Q
RowBox[{"{", / n C1 R r* c9 n" e, V
RowBox[{ E3 k- d3 ^4 s2 |3 k% W
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", - \) J4 f3 u2 F2 s$ T
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 6 P- U2 w+ h E, w4 d! c* ~3 ?7 m
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", 1 s8 m# J! x0 e$ [/ E% J B9 j6 R
",", "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",",
7 ~# j, w, b1 K* C( |- I "28", ",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34", z# `% v1 T) H, Y
",", "35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",",
) n- t7 I, }1 j% u! l) ]& V- h "41", ",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47",
9 z% }, [ D% x k# @# k: ` ",", "48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",",
5 |+ I$ t6 X3 V2 B7 ?- D. _, Z "54", ",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",",
7 _( J3 K9 M3 z( Q7 O% q "0.4319341652593058", ",", "0.4319341652593058`", ",", 4 m) Z& |% ~& G, S+ |. ^
"0.45016348534939865`", ",", "0.3333603476852527`", ",", : I/ H9 X. A4 A0 s1 w% A9 r) _; R
"0.44186098968589294`", ",", "0.41030378932283074`", ",", ! L( z; ?# N8 L* Y( I9 W( c( ~, p
"0.5168147981915754`", ",", "0.4476631213729997`", ",", , g9 n* q, Y; |) w! P
"0.30165529786966755`", ",", "0.3781221674378473`", ",",
* H: h. X* g, s3 c2 j! {5 c "0.020339844919720775`", ",", "0.018745375782087393`", ",", % ]; t5 x# b* Q7 V% C( ^
"0.2919925992695026`", ",", "0.26490679596812655`", ",",
: ?0 A3 x& B9 k7 R "0.16343444284525593`", ",", "0.4182466778551567`", ",",
, x2 H$ C& S! ^ k2 w7 H. O$ H "0.27347752211364945`", ",", "0.385540573863857`", ",", 8 F m; d1 }# w
"0.3525316045371807`", ",", "0.20547458411007796`", ",", # ]3 q: p" f1 V. x7 \/ U
"0.4550437711271672`", ",", "0.1598805094678611`", ",",
4 T, T, K- {2 j* M6 [+ ] "0.18662509982279502`", ",", "0.10684797493248224`", ",", ) F* `, V) a; y0 f& R1 X
"0.013349212673286806`", ",", "0.08215836003004302`", ",",
' N# R+ l& E( V7 o "0.2979041599362817`", ",", "0.05995976512343637`", ",", 8 R% E" C3 ]( O
"0.3884793499104571`", ",", "0.5361889337034297`"}], "}"}]}]], "Input",% B1 i. ~0 w" w! _. J
CellChangeTimes->{{3.577959701349306*^9, 3.5779597161381316`*^9}, {8 ?; Y: d) B+ O
3.5779621548286476`*^9, 3.5779621618642597`*^9}}],& t# m# E5 E7 c7 Q, v% F$ H( q
: b( U1 r0 }5 ]$ ^" p! \+ c% cCell[BoxData[' _7 y* S5 g+ k% l! h0 }) W
RowBox[{"{",
# f; d# G% c5 p' l4 W3 E8 n5 L6 a RowBox[{
' {' y" Q* s$ _ "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
, g2 B; C! \1 k) Q5 d* N ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15",
% a2 s/ Z5 }, m9 P5 I+ ] ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",", 3 {% _) e. K1 G/ h
"22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", "28",
. `* S1 g, U; v- I( s ",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34", ",",
' W( @; _$ j# ]) E "35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",", "41",
6 X5 Q3 `9 ?' f y4 L9 }" X3 S ",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47", ",",
) J. b3 [! `" w4 { "48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",", "54", % C9 u4 v0 h( f- k: O/ b2 I" n
",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",", 3 ~' q* W' i2 x$ Q2 n9 l4 o0 v
"0.4319341652593058`", ",", "0.4319341652593058`", ",", & `8 g- p; ~5 s' S, c
"0.45016348534939865`", ",", "0.3333603476852527`", ",", 7 @7 p2 [! w' b. h. M# n
"0.44186098968589294`", ",", "0.41030378932283074`", ",", # G6 N" L8 e- s5 `5 p8 T
"0.5168147981915754`", ",", "0.4476631213729997`", ",",
8 l1 e r* I. l7 w! P) m7 _ "0.30165529786966755`", ",", "0.3781221674378473`", ",",
$ r, }4 F1 q B: o "0.020339844919720775`", ",", "0.018745375782087393`", ",",
# F; @2 I' F$ i h "0.2919925992695026`", ",", "0.26490679596812655`", ",",
5 \4 Y) T; G! F+ Z5 P7 O "0.16343444284525593`", ",", "0.4182466778551567`", ",",
4 D E8 q" @% R) l3 w" ~0 U "0.27347752211364945`", ",", "0.385540573863857`", ",",
/ |# O/ W, q$ g+ N3 @ "0.3525316045371807`", ",", "0.20547458411007796`", ",",
% ^( ~% p, c1 `4 P7 b k "0.4550437711271672`", ",", "0.1598805094678611`", ",", 3 s6 r$ @: g- D' b, y" c
"0.18662509982279502`", ",", "0.10684797493248224`", ",", 3 a% y G4 s: e& r" B
"0.013349212673286806`", ",", "0.08215836003004302`", ",", / Y% p7 y+ V- X6 ]% `3 e
"0.2979041599362817`", ",", "0.05995976512343637`", ",",
; |2 L9 Q* u) U) U0 P* H "0.3884793499104571`", ",", "0.5361889337034297`"}], "}"}]], "Output",
# X8 W7 n( \8 [# u2 N CellChangeTimes->{3.5779597200381384`*^9, 3.5779621650778656`*^9, 6 M0 B( x8 z# p: @' V
3.5780123569375*^9}]* E0 B1 O J( G6 \9 C$ E
}, Open ]],; T3 D& M; c2 Y: s! c; v* O# @ ]' o
* F) d/ o0 d. v" O& c, `Cell[CellGroupData[{, K& U/ h4 X9 ^4 N+ m2 |
: r- M8 O1 g: A, eCell[BoxData[- d/ j' \( s6 ]* |
RowBox[{"y10", "=", 8 H6 C& s" J/ @( R9 ]8 P! Y
RowBox[{"Table", "[",
7 c |; q7 X7 ~8 o RowBox[{"x", ",",
) |7 D! T" l% J& K& d RowBox[{"{", 5 X% A& [8 ?- }$ E; J
RowBox[{"x", ",", "1", ",", "29"}], "}"}]}], "]"}]}]], "Input",$ V% q( o; D, n) M' S1 F
CellChangeTimes->{3.5779253628125*^9}],7 f- }8 F# P. d; X; `
" C a5 }8 b y. x/ n/ k& }; ACell[BoxData[3 m1 I( k/ s. [
RowBox[{"{",
4 J' }" L& z2 L5 v( V' D RowBox[{
5 S* v" f, D& h! i" ~# P "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
* P! H( H# b9 D' p' q3 l6 }: C* p& A ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15",. Z% _7 z2 H9 n7 v& P) h1 d9 w, j7 U
",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",",
/ i- t7 v8 _8 W& f9 S) U! n "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", "28",
' h1 Q7 B1 T2 G; M1 S ",", "29"}], "}"}]], "Output",, a5 G9 v1 e: e8 K& x5 _
CellChangeTimes->{3.57792536553125*^9, 3.577957599565603*^9,
' l7 T5 Z, R% f( b 3.577958967383626*^9, 3.5779621678858705`*^9, 3.578012358609375*^9}]
! t7 S6 q* G9 `+ y& C# ]% S}, Open ]],6 R% t- ?) e! e2 k$ X
2 g' L3 J, D& J% B! y; YCell[BoxData[- c* @5 [; g4 u
RowBox[{"For", "[",
1 p) [/ ~ W8 H- e9 d: q RowBox[{) A+ n2 P& Q2 N& S! ]. u# a6 i2 f
RowBox[{"i", "=", "61"}], ",", 1 ?0 c9 k' N/ W
RowBox[{"i", "\[LessEqual]", "89"}], ",", , _0 { U1 i% C- W1 c4 E/ ~+ ^
RowBox[{"i", "++"}], ",",
3 |+ G0 X; Y: y6 u% J2 z* G+ O RowBox[{; l% x+ i! W1 V+ l0 h- m
RowBox[{"y10", "[", ! r: K1 n5 m# }( E" g
RowBox[{"[", " u- ~; L* `4 w
RowBox[{"i", "-", "60"}], "]"}], "]"}], "=", 4 i4 ]6 J A/ d! q
RowBox[{"Data", "[",
; Z! i5 `- P9 a+ Z5 g6 B2 I6 u1 m, Q. W3 o RowBox[{"[", 0 _# y9 h' E0 {" s# F. S- s
RowBox[{"i", ",", "10"}], "]"}], "]"}]}]}], "]"}]], "Input",
# W' t' Y2 z. i$ _ CellChangeTimes->{{3.57792259890625*^9, 3.577922624859375*^9}, {# f0 l5 `; n I0 P7 k6 A; x
3.577922687234375*^9, 3.577922702859375*^9}, {3.577922917453125*^9, ) R, i0 I$ Z: P4 ?
3.577922923203125*^9}, {3.577925372296875*^9, 3.57792538503125*^9}, ) x7 {3 ]: c$ R$ W5 w
3.577958922549148*^9}],
: ] X& S( X% O6 ?6 F
/ u% l; C2 u5 k, [Cell[CellGroupData[{
: {* a* ]3 W- K. G0 n+ x1 ^( `# b. }( g! k3 X! j* L
Cell[BoxData["y10"], "Input",
/ X1 m7 z1 f! H CellChangeTimes->{{3.57783581975*^9, 3.57783582009375*^9}, {
/ B" p2 F) y, P( t' l7 }- P 3.57792504965625*^9, 3.577925050125*^9}, 3.57792539146875*^9}],
. `& V M7 _: R& T+ K
! C# W2 }0 ^# p! L( MCell[BoxData[
, j1 n ?( N2 U RowBox[{"{", 3 S7 A1 ?" ^. d! i7 G, T2 O) k
RowBox[{
0 g6 m) V3 R/ x- R1 [ "0.380742`", ",", "0.429034`", ",", "0.193168`", ",", "0.448763`", ",",
$ e6 C: y) G1 j) Y1 [# r. q3 W "0.442285`", ",", "0.575383`", ",", "0.515607`", ",", "0.057715`", ",", ) E1 i* S" ^* }6 e2 v+ {" H
"0.174617`", ",", "0.66755`", ",", "0.371025`", ",", "0.570966`", ",", ; Q& R8 }) u3 [
"0.468198`", ",", "0.414016`", ",", "0.18669`", ",", "0.442874`", ",",
6 B' Q8 A3 |3 S2 Q2 o4 g$ W "0.68669`", ",", "0.244111`", ",", "1.`", ",", "0.957892`", ",",
, Z9 ]5 q' b ]* k2 r "0.266784`", ",", "0.826855`", ",", "0.341873`", ",", "0.412544`", ",", 7 Z. Y1 l1 a- N( ^
"0.322144`", ",", "0.370436`", ",", "0.333039`", ",", "0.390754`", ",", 1 @5 U* _4 E# z. N( ~/ z" \& U
"0.694935`"}], "}"}]], "Output",* `! k. d+ t; E- y) ^
CellChangeTimes->{3.577835820984375*^9, 3.57792505125*^9,
4 e5 n7 r* s: \0 p2 T* v L 3.577925393046875*^9, 3.5779576032628093`*^9, 3.577958971767234*^9,
3 O! z* K6 W0 }. ]6 {9 { 3.5779621736734805`*^9, 3.57801236071875*^9}]3 b1 v: s7 \& p$ a d* Q
}, Open ]],) ~/ u$ o& N5 p8 a$ w
7 ]7 R# s Q% N' x8 N3 @
Cell[CellGroupData[{* w# U& M1 e# r) M
, ?/ i6 H6 P% S( H# s
Cell[BoxData[; ^+ i: y/ \$ r6 \& G
RowBox[{"y10", "=", ) g0 R4 e& E) Z9 u! U/ P
RowBox[{"{", : k# B0 p0 v$ U- u+ U; ^
RowBox[{+ B6 j( V4 w% ]$ ]5 R# U
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
' P: r0 k- O' r5 q, X, F* o ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", / L0 d4 D+ D7 f
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", 0 O* t4 H* p* Y8 u7 u
",", "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",",
" W! t' y4 _+ ]6 S" {5 P+ z "28", ",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34",
- V: m. c- u7 o6 K+ b- X9 L ",", "35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",", , `9 L: C6 G+ h3 n
"41", ",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47",
2 g0 S7 S" ?' V1 }5 } ",", "48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",",
' v. S( L; l7 x" x _ "54", ",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",",
' h E1 [" B A* E2 m1 ? "0.380742", ",", "0.380742`", ",", "0.429034`", ",", "0.193168`", ",", - l4 t/ C; \) g9 E
"0.448763`", ",", "0.442285`", ",", "0.575383`", ",", "0.515607`", ",",
3 Y* Z& }$ P8 ], N$ J. ^ "0.057715`", ",", "0.174617`", ",", "0.66755`", ",", "0.371025`", ",",
1 L, a5 ]* k3 d% s "0.570966`", ",", "0.468198`", ",", "0.414016`", ",", "0.18669`", ",", 1 Z0 T% B" {2 I2 o& D6 e2 ]2 ~+ w
"0.442874`", ",", "0.68669`", ",", "0.244111`", ",", "1.`", ",",
+ v$ _ Q2 }9 w% c/ l: l) e! q8 m# a "0.957892`", ",", "0.266784`", ",", "0.826855`", ",", "0.341873`", ",",
6 N" j W4 j9 ~+ m$ _' V "0.412544`", ",", "0.322144`", ",", "0.370436`", ",", "0.333039`", ",", , f% e, }6 ?& V! h$ Q8 p
"0.390754`", ",", "0.694935`"}], "}"}]}]], "Input",+ ^; }1 X* |) w' \
CellChangeTimes->{{3.577959733438562*^9, 3.57795974955339*^9}}],/ m8 y/ ^( y4 e" _* S
3 ^) R3 C. P2 c* i' j i& u0 JCell[BoxData[ ~' G1 A, U8 N5 e2 u) R$ f
RowBox[{"{", 1 M% x' W, p7 @- Q1 F2 [( B8 E
RowBox[{
6 \# a8 m* x( _4 ~; p" A) [; @ "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", 1 V4 L" K# c+ F# V) W
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15",0 }5 I2 e+ i5 T6 f
",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",", 6 j# h% k( K; r! R4 H% \& u& N$ y
"22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", "28",
8 h. L6 L7 p' `; M, f ",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34", ",",
: a: W6 f9 K, ]% U. b0 `- \ "35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",", "41", 7 K t* ^# h/ ^0 E9 H
",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47", ",", , ? o. |; i4 p3 y, D; u! o6 A
"48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",", "54", & m8 R% W; Q5 f( X9 ~* h2 @
",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",", "0.380742`",
4 w, W' j" l5 L& u1 [1 n! |; V ",", "0.380742`", ",", "0.429034`", ",", "0.193168`", ",", "0.448763`", ) g. u* H4 z( q$ a
",", "0.442285`", ",", "0.575383`", ",", "0.515607`", ",", "0.057715`", 6 b1 s$ b' S" {4 O5 x; G, }3 j6 c
",", "0.174617`", ",", "0.66755`", ",", "0.371025`", ",", "0.570966`", ",",
1 k$ t# u: T# E' W$ M* W, ` "0.468198`", ",", "0.414016`", ",", "0.18669`", ",", "0.442874`", ",",
, \3 z+ E* |: Q* K. M" M! Z "0.68669`", ",", "0.244111`", ",", "1.`", ",", "0.957892`", ",", 7 W% k$ W' `. `. k
"0.266784`", ",", "0.826855`", ",", "0.341873`", ",", "0.412544`", ",",
1 S) T0 P& F3 O "0.322144`", ",", "0.370436`", ",", "0.333039`", ",", "0.390754`", ",",
0 S' @) h0 U% V- t5 J "0.694935`"}], "}"}]], "Output",
$ }7 L7 e; h6 v& e CellChangeTimes->{3.5779597517529936`*^9, 3.5779621844842997`*^9,
; K4 Y3 `" w7 o, p2 r+ x 3.578012361734375*^9}]
) f5 `1 Q; y+ I9 B! C- @}, Open ]],) X c g5 D( r# B4 B9 ]
+ \: Y. @+ _, q. J( H$ q
Cell[CellGroupData[{: P, R" l/ d6 b6 T
" F- j a0 [( @' Z2 v
Cell[BoxData[+ V/ i) n7 i3 l- m9 b
RowBox[{"p1a", "=",
" F# `- t* q2 p% M RowBox[{"ListPlot", "[",
- N/ w2 j; Y2 E [" Y% N Z- ` RowBox[{"y1fit", ",", 8 t6 w/ d: j2 }
RowBox[{"PlotJoined", "\[Rule]", "True"}], ",",
, Y. D$ Y6 w- D/ Y3 N1 @+ A( I+ K- B RowBox[{"PlotStyle", "\[Rule]",
' L" L) S6 A. `' b/ n) T3 Q( m RowBox[{"{",
$ r, S0 @* z7 ?, W* ^ RowBox[{"RGBColor", "[", / M1 c' Q) m) T( Z' K; ^: O
RowBox[{"0", ",", "0", ",", "0"}], "]"}], "}"}]}], ",",
+ R3 [) V, _, N, E4 N& R RowBox[{"PlotRange", "\[Rule]",
$ ?# z3 n: b7 X8 F0 w RowBox[{"{", ! p5 f' {- ?* n6 s: U. `
RowBox[{; \% y; Q! V; j# q2 |/ }
RowBox[{"{",
: k$ t% g+ ^ C2 I RowBox[{"61", ",", "89"}], "}"}], ",",
& {3 J/ H! x7 X% q+ U RowBox[{"{",
. x& L( y3 E( S RowBox[{"0", ",", "1"}], "}"}]}], "}"}]}], ",",
1 }! S/ n' f" u( `, d* ] RowBox[{"AxesOrigin", "\[Rule]", ! `1 \, I' }! Q7 D. y0 g6 \0 d
RowBox[{"{",
5 t( s0 K( W: R* v1 ` RowBox[{"61", ",", "0"}], "}"}]}], ",",
7 i4 e0 C8 b& s* @2 {' e RowBox[{"Frame", "\[Rule]", "True"}], ",",
2 b5 N( h; _- h# n# k RowBox[{"FrameLabel", "\[Rule]", * r0 Z$ H7 [5 i3 e. ]) l* S5 V/ L
RowBox[{"{", ' k2 N5 B( y: }$ K( n7 p
RowBox[{8 _/ }8 E) q. `7 r
"\"\<\:7089\:6b21\>\"", ",", 1 |, D7 w/ C0 x2 q
"\"\<\:94a2\:6c34\:7ec8\:70b9\:542b\:78b3\:91cf\:ff08\:5f52\:4e00\:5316\
/ w* N: H# T" t+ [\:ff09\>\""}], "}"}]}]}], "]"}]}]], "Input",( `9 _: ]) K: i5 Y. ?& y' x, H
CellChangeTimes->{
7 `) T& c, ~7 K% y1 l, e0 y, S 3.577925078578125*^9, {3.577925141125*^9, 3.577925141453125*^9}, {
; X' E: t3 U: u7 q; U+ J4 ^3 ^ 3.5779576143076286`*^9, 3.5779576277548523`*^9}, 3.577959769006624*^9,
5 C* A! g! G. p: p0 a 3.577960184458948*^9, {3.5779602338174343`*^9, 3.577960278745513*^9}, {. s/ J' E/ }+ g* H) W
3.577960347588433*^9, 3.5779603994429235`*^9}, 3.57801239140625*^9}],, C+ a: k- E, U3 C# d# Q" k( }; B
% d# O& T9 h2 P9 ?) y
Cell[BoxData[
* M5 i" Y: e' e0 M; Y( D GraphicsBox[{{}, {},
0 U# s- q" c5 N3 g+ L3 s$ B# R {RGBColor[0, 0, 0], LineBox[CompressedData["
$ _ k3 R" H6 d7 O1:eJxTTMoPSmViYGCQB2IQrbz/js6hf74ODGDwwR5C+zm8FykxOr/kNoTfgMZn+ F& j* F! `* e% ]
8HfIK73dWHX+DlTe32HNjaOLj4VehcoHOHAIsAYWu0PlHQIcchxULmc53YKq
) X3 ?6 a: c/ A% E2 O; FD3Bg8uYy2N/5AMI/EOCgxV5t0bwMqp4h0GH17wOsQX6XofoDHbYVHgpUN74B
0 |( `1 N p- h: G4 P' S6 h1R/owDX546Pvl6dA9Qc66O7be/+P4WSo/iCHU2FKuxg3XILqD3LY/dVrkfWX9 l: x7 r- Q* J z8 ?1 }' @
C1D9QQ67drZXZr8+AtUf5BAnfXhb7xGo+xiCHW5eybq7vOEiVH+wQ9t6xvhN3 m1 c/ z# `2 ?3 T% W" j" ]
a2D2Bzt4nBLa8aD/GlR/sMO33SV7//qcguoPcZALP/8iX/4uVH+IA1Po9tff
9 U8 w. p" `$ Z0 u! r0 p$ OyqD2NYQ4dDHpngt5fByqP8TBaOqv3uSo3VD9oQ6/y+//uxLWDdUf6sDLldMb
. Z% k4 R4 V( a1 Q* CwrEVqj/UQcZIcM4dAWj4HAh1CLjff4d78zqo/jAHnahDtTfuQN3rEObQXX59
7 {2 h X! w4 ?/ yY6nGQ3sAieueIw==& P' j6 u4 @, K' ^$ t' \* A V/ z! D
"]]}},8 R p! H; ?6 t( |& l' m
AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],+ i5 H" {5 @0 v8 g/ M
Axes->True,+ P0 i8 U. x6 y# p8 ]
AxesOrigin->{61, 0},5 A0 n/ J2 C; H6 V
Frame->True,
# j; C' ~. T# x. \ A' H FrameLabel->{
2 Z" ]; z2 J+ L8 x4 k0 ^5 @: { FormBox["\"\:7089\:6b21\"", TraditionalForm], ' X5 x7 W2 @8 L) f, q& C0 a" [: c& [8 S- r
FormBox[
& y# Q& Q/ z7 ~. m7 O0 o' T "\"\:94a2\:6c34\:7ec8\:70b9\:542b\:78b3\:91cf\:ff08\:5f52\:4e00\:5316\
& w q- V$ P9 T4 P" }\:ff09\"", TraditionalForm]},
8 ?1 u% M! K/ D, e* h PlotRange->{{61, 89}, {0, 1}},
# E: B/ b' i3 j8 e* w9 ]- I" M PlotRangeClipping->True,
1 D% a1 _! y0 t( Y2 f PlotRangePadding->{Automatic, Automatic}]], "Output",
9 Y8 |8 B: v# C8 A CellChangeTimes->{
# ~2 P9 N; m# l* l" N 3.577925144625*^9, 3.577925396578125*^9, 3.577957630297656*^9, w+ Y j; e$ n4 ]. S
3.5779576933061666`*^9, 3.5779589732960367`*^9, 3.577959771908229*^9, / M* O. @) [6 s4 X
3.577960281756318*^9, {3.5779603518628407`*^9, 3.577960407664138*^9},
# C* S$ k) U4 c9 }( v( p" [" W* C* j 3.577962187510705*^9, 3.578012396921875*^9}]
( X( [ s4 F" y s8 i" `/ q}, Open ]],7 m( d, E: J. N4 A2 A1 n; f
2 M4 @1 Q3 N% h: _) zCell[CellGroupData[{5 h' _% W" y7 k N: G, ~* y5 [" j: c
; Z& k! w1 v& ~* w* n4 ?Cell[BoxData[' H: e- ?: f9 F; A9 a
RowBox[{"p1b", "=",
+ z& p' y5 a' V' S RowBox[{"ListPlot", "[", - @; @: H! y; z& L
RowBox[{"y10", ",", V# S6 e$ J+ P0 n2 I. l
RowBox[{"PlotJoined", "\[Rule]", "True"}], ",", 5 V8 e! @5 A* P) x) ^0 T4 I
RowBox[{"PlotStyle", "\[Rule]",
' s' w9 p5 f& }5 j9 w: Q RowBox[{"{", : k) x* A/ L& {$ {$ @1 e+ t0 L: o
RowBox[{
& B( n3 f' @8 ~4 |$ u RowBox[{"RGBColor", "[", 9 W, O; G& R: m* C6 B& a
RowBox[{"0", ",", "0", ",", "0"}], "]"}], ",", "Dashed"}], "}"}]}],
. |, Y8 u# w) W( ^. t ",",
5 f& [' \* S1 x& ~ RowBox[{"PlotRange", "\[Rule]",
, l" v. d M V) n+ I! b& X( e% J& y2 b RowBox[{"{",
t) u" {7 J* J" U4 ~ RowBox[{; [! f+ L4 D' Z {; Z
RowBox[{"{", 3 \( ?) s5 Z$ d1 q; Y; D
RowBox[{"61", ",", "89"}], "}"}], ",", . v# k9 ?* |$ @1 d# x4 V5 E: L# p& f, d+ i
RowBox[{"{",
; C3 v) @: g8 g. T& q1 T7 t' Z RowBox[{"0", ",", "1"}], "}"}]}], "}"}]}], ",", ( H0 R3 _) n* `) u7 q
RowBox[{"AxesOrigin", "\[Rule]", 7 q" K8 W& y' z/ Q' b( Z, h8 M
RowBox[{"{", ; i4 c( j1 x, ~/ }- @' m A
RowBox[{"61", ",", "0"}], "}"}]}], ",", ! k' W1 J7 C! f% @1 E, N
RowBox[{"Frame", "\[Rule]", "True"}]}], "]"}]}]], "Input",
. S1 F( k1 b9 f CellChangeTimes->{3.5779253991875*^9, 3.5779576384564705`*^9, 2 j" p0 b- X* m; y3 L8 P! A
3.5779597764166365`*^9, 3.578012409265625*^9}],+ T' q9 q$ s3 T9 d: [
( a$ C+ V% J6 V$ X
Cell[BoxData[5 V* J" S1 b$ s. Y( s6 X+ r
GraphicsBox[{{}, {},
4 S6 H6 ^/ K F, g" r' ]" d3 m {RGBColor[0, 0, 0], Dashing[{Small, Small}], LineBox[CompressedData["& S% n- p% {% l8 k' w. w
1:eJxTTMoPSmViYGCQB2IQzZemdm3pP18HBjD4YA+h/RzU1vRuFI67AeE3oPEZ% ? |' v+ Q5 n" _9 W5 U" w
/B2end/O6l16Gyrv78AgF7hw184TUPkAB46XmkUdO+5A+A4BDvK7FuxL9YPy! O! f- h# a8 B% I2 a
GwIccqZ8nd2Z+QjCPxDgkH4tyOFW/QOo/kAHNv1fXJd61kL1Bzr4r9OccDPy1 }' a0 t9 s; c/ `1 B! ~' L6 n
GFR/oMNZa7+LE2OeQvUHOpx8ar/k/r7rUP1BDrwSKrVRrlDzHYIc3sU27/vy: u8 F0 \1 F9 } u% \3 l4 ~
7S5Uf5DD3mDG7zb1t6D6gxz0D9hZlT49DtUf7HDkVb8BTwTM/cEOPBv6/WJ/
4 |8 o& U: V2 A+ ^Qu1rCHaoZD5Tw25/Hqo/GC38QhzKjBfL8y5/B9Uf4vBK9ZjRX6GLUP0hDvri1 \8 R0 F+ }% @" j1 x
H+fOKH0F1R/i0LZqhpf9w6tQ/aEOFn5cn+XSoe5zCHVImah2j3HeFaj+UAeV
' x: j0 S- i) z* q. S! v; H1 XrQFGlluh/j0Q6sC1M+h8UwBMf5jD638bBWSZbkL1hzmUC1gHv7B5Zg8Ayg6T
$ ]( S, q, Q2 V6 SvA==- |6 _5 Y8 F) q: z5 ^ m! f( B1 q
"]]}},6 {" ~* x6 B; R, ^: a* o7 Y
AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
/ W$ I+ q4 W2 x7 `% c2 C/ m" W Axes->True,5 v& K2 a5 u4 x3 Z8 y
AxesOrigin->{61, 0},7 }4 B3 A& n5 q! w4 z9 y
Frame->True,% V- s% F$ u, h( N6 h
PlotRange->{{61, 89}, {0, 1}},
# |6 b5 b$ m# a5 ~; F PlotRangeClipping->True,
) g' f6 R G; I* ]0 U8 b4 }- B4 I PlotRangePadding->{Automatic, Automatic}]], "Output",' b" w$ N0 D3 \1 B8 i$ i
CellChangeTimes->{3.577925147265625*^9, 3.577925400640625*^9,
2 a( X" d8 q: Y% {* h. H 3.577957640266074*^9, 3.5779576946009684`*^9, 3.5779589749964395`*^9, - L+ n; e9 N; F6 B+ m
3.5779597781950397`*^9, 3.577962189476308*^9, 3.578012410328125*^9}]; q8 ^$ C i/ {2 A5 Z. o) V
}, Open ]],
) J" W' |0 ]8 G4 P! p7 G8 s
# ]6 T/ |, ~: m, ~% m3 J$ O% ~3 R/ @Cell[CellGroupData[{
7 n7 k: I- }% C1 {# M0 k- i& G- \& d P' {& V" G
Cell[BoxData[
3 Z' I8 ?! b- g2 Q4 e4 _6 L# q% \" ^ RowBox[{"Show", "[",
8 L) {6 `, P+ }( }6 R RowBox[{"p1a", ",", "p1b"}], "]"}]], "Input"],
7 \: x9 M0 C- \* H6 _" y% \, v" s; b$ z' f0 Z$ Q% i
Cell[BoxData[* T6 E+ g* U) u8 o1 | q
GraphicsBox[{{{}, {},
9 m3 ^" J9 o2 w- C {RGBColor[0, 0, 0], LineBox[CompressedData["
. H: H: p& ^4 ~5 `4 g. f6 j6 F! v, Q1:eJxTTMoPSmViYGCQB2IQrbz/js6hf74ODGDwwR5C+zm8FykxOr/kNoTfgMZn
_$ l3 s) T6 ?8HfIK73dWHX+DlTe32HNjaOLj4VehcoHOHAIsAYWu0PlHQIcchxULmc53YKq
; b8 q7 O6 w6 O0 u, w- I/ qD3Bg8uYy2N/5AMI/EOCgxV5t0bwMqp4h0GH17wOsQX6XofoDHbYVHgpUN74B7 @ V+ P5 Y, x- _
1R/owDX546Pvl6dA9Qc66O7be/+P4WSo/iCHU2FKuxg3XILqD3LY/dVrkfWX
) ^; N& M8 i) p* ^ y& qC1D9QQ67drZXZr8+AtUf5BAnfXhb7xGo+xiCHW5eybq7vOEiVH+wQ9t6xvhN0 M6 h9 s# `/ ~
a2D2Bzt4nBLa8aD/GlR/sMO33SV7//qcguoPcZALP/8iX/4uVH+IA1Po9tff
- ~ q5 t5 N7 ~- JyqD2NYQ4dDHpngt5fByqP8TBaOqv3uSo3VD9oQ6/y+//uxLWDdUf6sDLldMb( q/ c, s5 z) z3 \; {4 `
wrEVqj/UQcZIcM4dAWj4HAh1CLjff4d78zqo/jAHnahDtTfuQN3rEObQXX59
; U# l9 K. @- Z( ^* \: {+ g! IY6nGQ3sAieueIw==" {+ g( c2 j) I1 i$ i* P
"]]}}, {{}, {}, ) n* x+ K2 }- [5 c" K
{RGBColor[0, 0, 0], Dashing[{Small, Small}], LineBox[CompressedData["+ @* |! f# E3 {$ X+ n5 R0 n% x
1:eJxTTMoPSmViYGCQB2IQzZemdm3pP18HBjD4YA+h/RzU1vRuFI67AeE3oPEZ7 l' q8 P- U- _ v+ v" Z+ ? U/ G$ F
/B2end/O6l16Gyrv78AgF7hw184TUPkAB46XmkUdO+5A+A4BDvK7FuxL9YPy- C! Z# z# I' }9 X: ~
GwIccqZ8nd2Z+QjCPxDgkH4tyOFW/QOo/kAHNv1fXJd61kL1Bzr4r9OccDPy: k0 \% D; U L+ I
GFR/oMNZa7+LE2OeQvUHOpx8ar/k/r7rUP1BDrwSKrVRrlDzHYIc3sU27/vy+ `( d1 L) F0 i& k& y
7S5Uf5DD3mDG7zb1t6D6gxz0D9hZlT49DtUf7HDkVb8BTwTM/cEOPBv6/WJ/, r* p: w. n* N; @8 Z7 n, z' {
Qu1rCHaoZD5Tw25/Hqo/GC38QhzKjBfL8y5/B9Uf4vBK9ZjRX6GLUP0hDvri
1 f; h7 e: V$ {0 RH+fOKH0F1R/i0LZqhpf9w6tQ/aEOFn5cn+XSoe5zCHVImah2j3HeFaj+UAeV
- @1 f; f: v; G0 SrQFGlluh/j0Q6sC1M+h8UwBMf5jD638bBWSZbkL1hzmUC1gHv7B5Zg8Ayg6T5 O+ y" A7 G& q5 e X" j! K* [
vA==
( S+ \0 b9 E! n% [ "]]}}},
. r' e- k* C' V AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
3 u$ p2 }. `# c7 D& Z( b Axes->True,5 t# i; n; @. \% _* ]4 k
AxesOrigin->{61, 0},& ~6 Z% }% _; g. z s
Frame->True,
: P$ b+ Q- J2 I% F- s" @ FrameLabel->{
5 t- L5 N; k2 S FormBox["\"\:7089\:6b21\"", TraditionalForm],
" A% X$ v/ P( r( ~6 W( ~2 A3 L FormBox[( F- E# C9 ~- s9 _
"\"\:94a2\:6c34\:7ec8\:70b9\:542b\:78b3\:91cf\:ff08\:5f52\:4e00\:5316\4 X4 ^; ^7 f5 r
\:ff09\"", TraditionalForm]},
0 i- K( ?, A( D* P9 I, g2 q PlotRange->{{61, 89}, {0, 1}},; [' b1 s7 n* f4 r) Y
PlotRangeClipping->True,
% a# W! |8 b* C PlotRangePadding->{Automatic, Automatic}]], "Output",/ l E. q4 T1 U7 D9 @
CellChangeTimes->{3.577962196683521*^9, 3.5780124119375*^9}]$ k- d8 A7 v6 {+ J4 D; j- y
}, Open ]],
+ r" A% D: z! w( H4 j; @! F' L# ~
1 h4 U. |/ d! N! gCell[BoxData["\:62df\:5408wi1"], "Input",2 x- L2 D3 c7 h0 j; k
CellChangeTimes->{{3.5779225126875*^9, 3.577922521484375*^9},
8 S( Y. N+ p9 C7 \' ^; E6 o5 ^ 3.577959662349238*^9}],5 Z8 [! a$ F# ?( \/ z
/ g- n. [3 v( i% V" n; h, QCell[CellGroupData[{
2 H& m) Z( d7 e6 B3 a1 z8 Q; ?" r. C+ J) o4 }
Cell[BoxData[
7 H: ~& @' A5 }4 f# @% O RowBox[{"y1b", "=", 3 @7 Y1 e5 s$ f# I2 k
RowBox[{"Table", "[", ! t/ }2 `4 {. h! Y
RowBox[{"x", ",",
6 M/ I8 F5 n' _+ a RowBox[{"{",
$ c5 u. N5 W( a! K. w: L$ _( ~: p. U+ M RowBox[{"x", ",", "1", ",", "60"}], "}"}]}], "]"}]}]], "Input",+ C" F" A* V1 G2 u6 v
CellChangeTimes->{{3.57792262821875*^9, 3.577922633546875*^9}, {$ T+ H) K% G3 x, _: n5 a9 E8 h
3.5779226649375*^9, 3.5779226810625*^9}, 3.577958232403945*^9}],
* D9 z3 s, X" p! U7 \
% Q6 J0 B9 C5 X4 \. PCell[BoxData[
! o3 @$ x* U4 s+ I& F RowBox[{"{", 2 Q" {% u: f1 ]' e: i9 F2 K
RowBox[{# k R4 N" Q9 i2 ]
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
- k# o! l. _6 k! `* ^* z2 p ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15",( ~3 w3 o4 v$ U: n+ C
",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",", 2 D- r# c: s$ q: y; |( C
"22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", "28",
; F) ~* s2 ~3 T2 I. }+ o ",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34", ",",
1 x5 F* l, R5 V. T7 T "35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",", "41", 7 Q% o; g( O, i# ?* `# N T
",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47", ",",
! u1 b7 o2 @" z "48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",", "54", 8 ^5 v% ~4 d: B+ U8 e$ m2 P( f
",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",", "60"}], 7 p; _9 [0 o. O
"}"}]], "Output",
. D% n. O8 \/ Z- n CellChangeTimes->{
5 ~$ f- i. h& f# r1 T9 n$ ] 3.577922682296875*^9, {3.5779582291435394`*^9, 3.5779582351339493`*^9},
8 s- e" v0 p* |; p' L6 @ 3.577958478041973*^9, 3.577959010205701*^9, 3.5779622225483656`*^9,
$ l& i5 J" v" W: v 3.578012438953125*^9}]) ~6 L8 c- p- P/ f3 ?; F$ ^( n
}, Open ]],1 _1 \4 L7 k* w% Q* Q9 L' f6 i4 ?
( t+ J. B) w& D+ f( S
Cell[CellGroupData[{
; k2 X( C/ B, f$ e8 q7 l* B; O% R# E$ U
Cell[BoxData[* n0 r, E' N. N6 ?! Y2 Y: y
RowBox[{"Data", "[", 3 i' O+ G X: C" e X
RowBox[{"[",
4 m. q; F3 r3 s+ h) `5 h6 q RowBox[{"3", ",", "11"}], "]"}], "]"}]], "Input",
; b9 Q4 o/ E; M0 l CellChangeTimes->{{3.577922711734375*^9, 3.577922728984375*^9}, {
7 Z" @$ |: ]2 B' l) m' S# r# _ 3.577922912015625*^9, 3.577922912171875*^9}, 3.5779582414831605`*^9, {8 R) x% z+ O$ E. T+ _; D5 W E( @
3.577959014090108*^9, 3.577959016040111*^9}}],
2 }+ ]) F9 G @: p. b( M
3 T" G/ g4 O1 R8 ^8 f [' kCell[BoxData["0.492958`"], "Output",- `+ ?0 r4 n i9 i2 K7 A
CellChangeTimes->{{3.57792271875*^9, 3.577922729828125*^9}, 6 W+ L# I- Q0 ]6 {
3.577922913203125*^9, 3.577958242809163*^9, 3.5779584790403748`*^9,
# @3 r- Q: M4 [0 g 3.5779590175689135`*^9, 3.5779622239523687`*^9, 3.578012439828125*^9}]
; c- C3 ~- A, T& A: C}, Open ]],
, B* b5 T( C2 `+ L" q4 d; Y+ }2 k- [3 _9 V. x
Cell[BoxData[1 p$ c2 e4 J7 S# b1 }
RowBox[{"For", "[", + ?6 [) z) I4 b
RowBox[{
0 c. C0 b3 o& V) F RowBox[{"i", "=", "1"}], ",",
! ~& V2 E$ g" H RowBox[{"i", "\[LessEqual]", "60"}], ",", 5 |* F+ [3 s4 S$ O: f ~0 [6 n4 u
RowBox[{"i", "++"}], ",",
! V- r) o8 u1 [( ~. x/ i( F RowBox[{% T' b9 g. n, W0 e2 f
RowBox[{"y1b", "[",
: c0 B7 v9 g; f7 I. A: P9 C RowBox[{"[", "i", "]"}], "]"}], "=",
- M1 D4 d0 V8 l* ? m" X% }8 S RowBox[{"Data", "[", 5 ? [: O/ `8 `7 _
RowBox[{"[",
, `, y* Y* V% t+ x RowBox[{"i", ",", "11"}], "]"}], "]"}]}]}], "]"}]], "Input",! ~ u9 h; q8 Q; \
CellChangeTimes->{{3.57792259890625*^9, 3.577922624859375*^9}, {2 S. @9 a) b- a. y) O1 m
3.577922687234375*^9, 3.577922702859375*^9}, {3.577922917453125*^9,
+ t+ U$ Q; S" I9 _ 3.577922923203125*^9}, 3.577958246272369*^9, 3.5779584755771685`*^9, {
- T- d2 V0 F7 |* W, V 3.57795902089172*^9, 3.5779590227793226`*^9}}],- ?; e5 ^! n) A+ e+ R
( s. e* y5 s: a5 Q) `
Cell[CellGroupData[{- v+ H/ _8 |; p- [% C& U
' u' O m* P! ~, U& JCell[BoxData["y1b"], "Input",$ j2 d8 T8 b# X! x2 o0 W. k% T
CellChangeTimes->{{3.57792293078125*^9, 3.577922931484375*^9},
$ p) ~* ?( e; u5 G/ m 3.577958484172784*^9}],
U) p$ I1 [' l3 O
6 T1 x; g. @* tCell[BoxData[
, P- d( @2 x$ q' F' W' G' |: c; a RowBox[{"{", . l1 |+ z( f' O; i9 Y4 t) K
RowBox[{
: N! x+ M. T* j& p t "0.873239`", ",", "0.464789`", ",", "0.492958`", ",", "0.774648`", ",", / C+ U. z6 x3 t$ I# e% m
"0.380282`", ",", "0.647887`", ",", "0.56338`", ",", "0.295775`", ",", & u! c9 W7 {! O7 h
"0.338028`", ",", "0.211268`", ",", "0.690141`", ",", "0.43662`", ",",
* i7 u: T0 l3 y, R4 K5 u! ^ "0.`", ",", "0.267606`", ",", "0.211268`", ",", "0.408451`", ",", & P y$ Y0 s! O4 F5 j6 n6 x) P5 G
"0.478873`", ",", "0.380282`", ",", "0.211268`", ",", "0.43662`", ",", ! m$ c; u3 Q( M' _0 m8 `
"0.478873`", ",", "0.295775`", ",", "0.028169`", ",", "0.43662`", ",", 7 Q: `6 h" ~# Z( F
"0.394366`", ",", "0.295775`", ",", "0.830986`", ",", "0.169014`", ",", , U% M- ?9 ~, @' E' w
"0.366197`", ",", "0.309859`", ",", "0.352113`", ",", "0.309859`", ",", ' G* g& T5 ~/ \2 P) B8 z8 s$ f0 a
"0.774648`", ",", "0.422535`", ",", "0.887324`", ",", "0.887324`", ",",
2 q+ P3 b. }( v+ Y: Z7 `, p "0.859155`", ",", "0.239437`", ",", "0.295775`", ",", "0.746479`", ",",
! Z6 c' a* f6 h* m/ `; H& _: \ "1.`", ",", "0.549296`", ",", "0.366197`", ",", "0.549296`", ",", . Y, |+ m8 m6 \! I+ x @
"0.577465`", ",", "0.690141`", ",", "0.71831`", ",", "0.521127`", ",",
% O0 E6 q9 g' Q" C9 k; X/ F "0.929577`", ",", "0.521127`", ",", "0.338028`", ",", "0.380282`", ",", , f1 k S) {7 D% G( a2 O
"0.676056`", ",", "0.591549`", ",", "0.464789`", ",", "0.295775`", ",",
+ O* r" `2 q5 j) B1 b/ a "0.380282`", ",", "0.211268`", ",", "0.253521`", ",", "0.28169`"}],
/ Q o& D+ h1 [8 k "}"}]], "Output",
* G$ o# k/ ]6 `3 `/ w( J$ G5 r CellChangeTimes->{3.57792293246875*^9, 3.5779582549771843`*^9,
1 ~/ m# u& Y! {+ K" t 3.577958485420786*^9, 3.577959026460929*^9, 3.5779622288195767`*^9,
. n6 T8 o; P* i 3.57801244275*^9}]/ h3 C5 n3 l* @7 N% |, q
}, Open ]],
- X5 @; S# S/ N) T _1 s& ]% f
, o9 i8 @! i' cCell[CellGroupData[{
. c( ]4 f1 u% t3 I$ C8 w, [4 m! ~) a# q! y% h; B( t; K5 D
Cell[BoxData[3 P# I3 `' f- Z& m8 L* `% a% p
RowBox[{"m60n21", "=",
; o' [4 C, z3 K8 h RowBox[{"Table", "[",
' S7 _0 y# I# V( G a- x6 [/ c. [ RowBox[{
3 D% _( i2 Y1 N% P4 Y RowBox[{"Table", "[", , g- u+ A; T* A3 D _) R4 _
RowBox[{"y", ",",
5 h' }6 O: M7 U7 c4 `# L RowBox[{"{",
{; c9 H2 O; w; J" j RowBox[{"y", ",", "1", ",", "21"}], "}"}]}], "]"}], ",",
4 C: h; t3 h. M, N2 E( O RowBox[{"{",
, }6 B* T, W" |- J# B RowBox[{"x", ",", "1", ",", "60"}], "}"}]}], "]"}]}]], "Input",. x0 U' J4 q! _6 U( Y
CellChangeTimes->{{3.5779239260625*^9, 3.577924021765625*^9}, {
4 g6 i. T( a# t 3.577924052828125*^9, 3.577924101671875*^9}, {3.577962237961193*^9,
9 N- L& U8 J5 [& l/ S6 {0 m1 g4 s 3.577962240082796*^9}}],3 B* K8 J$ X C/ Z0 ^1 n( L. _
* d( _! m! }; M5 C3 y; kCell[BoxData[1 |8 g% v$ o- A1 B6 x
RowBox[{"{", % V5 e! U2 ^' v: b
RowBox[{3 P' T5 S- ]& H& c6 v, g6 N
RowBox[{"{",
0 T( D5 O- ~! K RowBox[{2 C8 q& W( u+ M" A9 L8 n% t" p1 q
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",; \+ ~5 H! e! a9 j3 U# ~* F1 ?
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
8 {* V$ ]$ a/ P. @% K7 u( Z( ?0 d$ Q "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],0 v4 \, y, O$ @ q: [" l
"}"}], ",",
2 K+ G1 P) t/ Z& C5 s# p RowBox[{"{",
5 J( y& \% B/ L: P RowBox[{& ?* G2 u& K2 Z" K' T
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
" w# F7 {$ d& u) o; J; R ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
5 y3 f" U% d) L. V3 Q; y "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],& [ R+ g) a/ ~
"}"}], ",",
6 ]( b) E2 n5 R1 z& j! W7 Z Q RowBox[{"{", , h6 R9 U" G. s: j; l/ L6 E3 c9 ?
RowBox[{
# G( d; s+ k, S1 h "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
' G, @ g0 q& ~2 t ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 5 V0 o" W7 g# a
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
( i8 ~, F: t4 v "}"}], ",",
) r/ Y7 t5 L, A RowBox[{"{",
! e9 m& X5 t- J# d1 u1 g% x RowBox[{9 k+ B" G1 m& j- I9 a
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
3 U- p" U$ ~" ^( R" t* E2 }& j ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
6 I5 k( R c) g6 B& B$ [/ C( c% Q "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],# z5 E M A }/ J1 p7 ?2 R) L
"}"}], ",", $ I) A3 M* m5 j! e4 ?
RowBox[{"{",
5 W' i3 W- K% ]4 g RowBox[{+ p- c! c# B+ r7 O2 j7 D& }
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8"," N7 Q2 C& E& p/ @1 U2 v
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
3 V8 {* F+ s5 w) F: } T% \ "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
. i; z' y4 c" f2 b$ W u& T { "}"}], ",", # F1 e Y' V/ L2 t" Z
RowBox[{"{",
5 U2 p( a8 N0 B1 | RowBox[{
; Q6 a; W0 j$ i5 x4 ], U "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",, M" O9 ] O/ y/ H; {
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", # q0 d. I2 ?, o" R* L7 b3 T
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
4 N( A1 j+ u) U: i, K "}"}], ",", / X$ {. {% c+ L3 U! X
RowBox[{"{", ; [% x, r; ?. K3 i# \5 M
RowBox[{
' n, N9 m. l$ K3 `& n) Y! K3 o "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
1 |. k( ?2 H/ k0 g ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
z8 `% e& ~+ a9 e "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
5 @, J7 ]# x8 W0 a2 k$ E "}"}], ",", 7 g2 Q! ^8 Y+ m$ b
RowBox[{"{", 3 w& ^- x: z6 \
RowBox[{1 f; t2 M4 A7 |2 p4 U: L8 V
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
) c. I" P7 \$ R) m ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
k' o: u0 R+ ?5 I "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
0 \' K Z4 Q8 z2 ^, T& R4 [& Y "}"}], ",",
! S- ~/ i- n2 W$ B' { RowBox[{"{",
; v |( P5 |4 W7 n2 R K RowBox[{, L' j0 a1 u, o3 x
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",$ q: R p; F& u. U
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
. B4 u1 E" M" O( a9 Q; g P; z. V; e "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],- y' Y$ \# C0 P4 ]* X3 J
"}"}], ",",
2 C& F% C. {# l9 b7 M4 D: e0 z RowBox[{"{",
; N: D6 l* e4 {/ ? _ RowBox[{
/ K5 x; H$ G7 ?: V; F "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",5 E& p4 T" L. I& \) G3 F2 S( W0 M! a
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
# ?$ A+ ]! E/ Q) V! r "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
6 N1 e( Y7 W! e9 U; _ "}"}], ",", ( s. J) h z4 B# t: b6 ~
RowBox[{"{",
7 E; P) j+ r0 }+ r+ R$ |5 l RowBox[{
& M7 q. |: u7 l3 Z, v "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",' S4 S1 y* b% Y6 J# m
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
( o% e; e ] z0 Y Y% W "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
* w6 ]" r6 I/ H( G% y: Q F "}"}], ",", 8 T. ~; d# ^5 |! s: i: T
RowBox[{"{",
; X% M. r/ t( r. }! `& u0 z RowBox[{
, p8 v+ B# I( ]0 k+ e( N "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",# Z% u& E5 }5 X
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", ' j8 E# \$ z& Z
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],+ w" w' G1 k, P4 W* D* `* i1 S- }
"}"}], ",", ; Y0 s2 R% b) J. z& g* P$ |8 q
RowBox[{"{",
) _ p2 y% |4 j+ J! t: B RowBox[{$ j, R, o/ c$ r2 W2 d3 M; N: ?! R
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
' p; f0 o7 M' W& Y ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", ) H) y6 \% a! D7 u. X) N0 P
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],' k9 A& i6 Y7 K
"}"}], ",", 1 \/ V5 B! U8 W% B8 x. u1 ~# m$ Y2 I
RowBox[{"{", + C; r3 j. ?6 O; c) S8 o/ ?
RowBox[{8 o4 ?9 L3 E' s0 p8 ?! A! \
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",- H1 o& L' ]; x2 w$ E
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
1 _. O/ E- l+ [' _' q "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
! b1 o; O! K; \; L4 ]% V "}"}], ",",
* V" ~( [" @* S# @ RowBox[{"{", 3 @+ p6 g! G9 ^, i
RowBox[{
/ x, O) O: n) H6 O "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",& K% f% O# V/ f
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
/ N' ?5 F$ Z. e% Q! V "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],1 |9 _4 q; L& x$ ~- b
"}"}], ",",
, K5 y" M8 l5 J RowBox[{"{", % U) \3 I3 _* g) ?+ u/ I% f
RowBox[{
K" H2 k, r: Y X( A! D "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",4 c, ~/ Y2 K1 {" j' |
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 8 w! W( L9 g0 m. M; S5 K
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],0 U: ]0 s m0 m
"}"}], ",", 3 a8 ?/ h4 c% J9 W [1 E- }
RowBox[{"{",
- g% W, y8 E) z RowBox[{" }5 x0 F5 S! g* v3 L/ K2 V
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", b- I8 O& J: ?, e
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
/ y4 @9 r2 `' N8 l ] "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
2 C9 R$ S- `% _0 v& U8 A4 W "}"}], ",",
& s6 g" ^' q( U- M4 o/ @) i( _ RowBox[{"{", l r! D V& F5 Z# @/ b$ f, M
RowBox[{. c2 I* ]. J, {- ?& y) f: f I2 V
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",+ f: J; A5 s; g# d
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
) V- t1 V/ h `& ^ "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],( Y8 v7 T6 k3 x" w" a! d
"}"}], ",", 3 V; V5 C D* |
RowBox[{"{", % E/ {2 r1 @( }: |3 i! M+ D
RowBox[{
4 {: J4 p' l3 y1 Q) [ "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
4 e1 T4 x4 }5 \; F5 H$ f ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
% T0 V* a2 R% e5 c. p# v. h8 p. o "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
) ]% z2 f: P! q# l1 [ "}"}], ",",
+ ~4 V7 b& p9 v# l3 S. p RowBox[{"{",
1 {. z$ Y0 Q5 }; D2 B* J$ O RowBox[{
) K* H4 x; H4 X$ _ "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
- g, Y; w+ f' Q7 i* c ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
& a# T: a6 E3 E* k2 m! v8 Q "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}], C; G# W1 T9 b5 D! I v
"}"}], ",",
/ ^+ f, F- W. c# [; k+ y RowBox[{"{",
; j) X4 n6 Z d& z( @0 f: } RowBox[{
- P, T# T7 ~) o8 `/ R B" j "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
4 S$ D: s2 ?. Q ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
/ L# E+ o% F( l2 }) \4 |8 W7 T/ b "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],, ?% z/ F& X5 E
"}"}], ",", 0 F. Y" q' }9 |' z
RowBox[{"{", + e$ Z3 j* l! A+ @. u( h
RowBox[{
* B7 d& N/ F7 J/ T" V8 Z "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",! t6 ~( Q1 t8 X# o4 P/ l
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
" Z' P" z e) j: z4 ^' N3 u "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
3 T- b r( ~- ]/ W2 j+ ? "}"}], ",", 7 P5 g5 N5 l" f) e& v5 `8 G
RowBox[{"{",
; P1 S" S, _3 U( b9 o( _; d g4 t RowBox[{
0 Z/ h% y6 u' i$ i3 n( b6 W: m "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",# h: i* x) T/ R9 B2 j! q, ]
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", : H) k! A0 u7 W5 a7 }: i, B0 Y; k
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],: Z0 m. u5 i; F/ |6 i
"}"}], ",", * Q0 X8 W! F7 e1 a
RowBox[{"{", 7 U/ b) c+ b! {" P \5 a5 i$ d' ^" m
RowBox[{
6 x/ |' u ^2 O) W "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",* T+ ?) ]6 ?/ Y( _/ W' D
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 4 S# B, s7 I1 M) O9 R$ ~
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
( ?" E& m2 B/ N "}"}], ",",
8 W) B! `/ P3 h" p& A1 [ RowBox[{"{",
* i g) I9 ~8 f& q* W; b RowBox[{
. O8 T/ g& \: `# t "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",6 \$ f' M7 ]! M0 z' i5 b: [
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
, q: i; J9 z. f9 Z: ? "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],$ L& C* o5 q! @$ v$ R S/ I9 l
"}"}], ",", ( ~+ s, `# k' r+ p
RowBox[{"{",
8 x8 _, ^; ^# Z# m2 T RowBox[{
9 P& \2 P t7 l4 Z' X7 e "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
0 g$ w% \7 ?: i! |, m' l ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
: u% O$ R- U8 |1 n' ] "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
" e$ M) t6 S/ @. W! o "}"}], ",", $ ]4 \- k* N7 I* e$ k
RowBox[{"{", L) u( @/ k2 R: Y, [
RowBox[{
* a; V6 a3 |2 d/ F: Q- X "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",* A3 M7 m5 V$ K1 o V. l) }
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", ) U- Y& Y- W. S' H; E1 E
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
1 t9 t7 b M3 v+ ^5 t "}"}], ",", : N2 @% o2 o9 E/ ]8 [2 f
RowBox[{"{", " O: _: e0 k- ~0 y; [) b+ s: Z
RowBox[{& @5 D1 y9 B7 z% G' `1 A
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
# r" Q* d6 Z, m ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
q9 R; H* t/ p9 q3 ?9 ~8 s a. I# x "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
- \: m% y5 `- Z, e "}"}], ",",
/ \( ?) F" S* @4 E& W& l: F; p RowBox[{"{",
0 A* {1 B5 X, `3 p: d% r2 Y RowBox[{
\" \3 t _% n7 d# @ "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",! G4 }! Y+ T9 i' B+ _
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
) H+ X9 e: |6 _. j, R/ t9 Q "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],/ U& ]* z h* V0 j4 |# X0 m
"}"}], ",", / N2 v( @+ M8 d
RowBox[{"{",
, K) v& N- m. n: h( u RowBox[{; T$ d3 g! u( K% k9 w X& S, [
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
1 N" v$ d; F$ i/ N' ? ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", - [4 U) G7 x* {* I* R ?
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
8 r% B8 L! m5 F1 K) T; N' e "}"}], ",", 1 L" j7 D5 v0 B
RowBox[{"{", 6 D% x8 E" ^) [) e4 O& H. [
RowBox[{
' K$ H4 H) N5 p# ~3 c: [ "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
; I$ t w6 \0 }7 K$ N$ ?: O8 p ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", ) l3 z2 k" i' |* s0 @
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
9 K: }2 `! F v1 P6 z "}"}], ",", . P: \0 @* ^. H: B# z
RowBox[{"{",
( L: q, g6 Y: |' \ RowBox[{
9 W8 H6 @( c7 s2 B2 Z "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",8 r' C; m% y; f9 T D! R
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
- H1 c5 u( _$ Z4 V' v "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],1 w9 X3 U" M6 y7 |% s
"}"}], ",", * x* [5 X5 i. H4 V5 ?; n, W
RowBox[{"{", I2 C: g! Y4 A2 C9 r1 P( V/ z6 s
RowBox[{
' C1 d# f; n! T" l( I- Q9 j "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
/ ]% v1 i9 U3 Y8 R) q7 F8 N ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", " u* }; S5 K6 ?* | e b' ~: j& G
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],7 N! m2 z# |' h2 m o! i
"}"}], ",", ) @2 Y$ f- m% K! B
RowBox[{"{", * i6 X! a0 v) f, x! H) D# O
RowBox[{3 J1 q% Y" H, t& I
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",- i) a9 }5 B- |) t" w" c# Z
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
) k% I. I7 o( y \+ ? "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
6 z- Y% o r8 ^ I5 y9 [6 o: H "}"}], ",",
& t: [' Y0 S% h0 X3 l( S4 a. G# V RowBox[{"{",
' G) r; }5 S% w+ z+ d8 G) q RowBox[{9 S9 s* R- [9 o1 f2 |
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", A' g* O- U# p: o
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", + n( m8 p% K. s: y V! K
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}], W M* t2 }0 U( e; l: V
"}"}], ",", ( @8 C" U, b3 b; H2 z
RowBox[{"{",
! }: x; [7 T4 W. b' B RowBox[{6 v$ X& ^3 I. ~0 B* V0 {. q9 w
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
/ ^2 Z! Q2 \7 G% _6 l h ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
: p, i, u( P. U: L% i "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],6 G' i" n0 g( F" k; V( l: \; P
"}"}], ",",
) G& K: D6 r/ n RowBox[{"{", 8 v6 c5 }( ?8 k) r
RowBox[{
! E8 I! r: M: v "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
1 R" i, ^( j# y) k5 m: U0 Y ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", + }9 q K# R5 [9 o6 i i; \
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
- m; x& r( U1 H7 O0 |6 y, x "}"}], ",",
" ~4 p+ s; i2 X# W) o3 {# h& C RowBox[{"{", $ r; _% h7 b4 B; P- y/ [" @4 L
RowBox[{$ j/ X+ f# }& @2 |6 a9 z( }( T( K
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
2 D0 P7 b) Q0 F& ~; M4 x ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
4 Z. ~: |) S& N0 u2 P. E: ^+ x6 T "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],* T% M6 K* T+ K1 U( {/ M
"}"}], ",", ' P2 Q% j' Q: \# @
RowBox[{"{", 9 ?; z3 K( i5 b1 x
RowBox[{
$ A( ]4 I3 o& Z4 S. b+ J "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",. P& _( ~' f7 V8 f0 a
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", ( U' u ?4 A( K2 L( H! Z+ X! t
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],# C" ]6 }9 D6 F, i" W9 F
"}"}], ",",
. g8 o! Q' L2 k, X* A% @4 o RowBox[{"{", + a+ n6 ~% h/ X3 z8 }# b
RowBox[{6 J6 g P# Y! w# r+ n( P& y( K( W
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",! R+ [9 Y2 P3 h3 _+ k, l/ r
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
: G, ^/ i6 ~* @! ` } "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],, w) @3 b& w, u2 n n7 R# }( [& Y# V
"}"}], ",",
8 W& O# U3 Y$ b2 ?3 N RowBox[{"{",
# E( p" c! e% Z3 o2 O% b( ? RowBox[{
6 l; s: |4 i! m/ B& X# C& [ "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
, |; p! U9 J) u ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", f' m! q+ x0 v' g- X
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],$ r7 W1 F0 F. ?- Q9 {( _
"}"}], ",",
+ ]6 @) M8 `( L/ I0 L5 L9 r2 c RowBox[{"{", ; Y9 t4 _% G2 ] c Y; g! k
RowBox[{
; S: [% T& N; S0 ^2 c3 m "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
8 {$ t) i) b% T2 l t, Z ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
1 R8 M/ v( N1 a+ p "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],3 a) f6 X# X. s/ h8 a9 c
"}"}], ",",
# z3 F6 d- {/ [6 O( N RowBox[{"{", " b( d5 W- R. G! N! Q2 {1 W
RowBox[{6 `" Q. x- Z/ G. w7 v. i
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",7 h5 D6 M; O" i5 t5 K0 o
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
8 y6 _% g" e4 O/ ^ "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],8 c3 X, @1 j/ h+ [
"}"}], ",", 6 I. }8 J( ^/ R( p% v- a+ f5 |/ ]
RowBox[{"{",
7 Y+ t/ J" ] q8 f6 E7 C RowBox[{
7 ^7 n' e5 O4 k/ @0 A5 t* _5 s! J "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8"," ?' |& b$ J7 p, M" m4 Y' [
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 9 S* @1 A! I1 j# }6 t" X w
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
( {- F7 l" w* O "}"}], ",", # ~$ j& Q( L0 ~3 S# a; R# Y
RowBox[{"{", 7 W7 m5 Y3 U" l2 j) a# m4 k% D
RowBox[{
9 N L8 D* q$ t4 { "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
: m( ^; d" M* E" c ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
# b1 f8 O/ }, D7 m: }3 K: O; X "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],3 P3 {* m* H9 O7 I+ p. G# W' s. p
"}"}], ",", : d# s$ A& W- H1 v0 ^
RowBox[{"{", 5 k/ J/ Z$ [' _' |6 Q! i# X# ^
RowBox[{5 A$ j1 U& F0 _( X, c5 q5 R* I
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",7 l I6 Q' I- Y6 T
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", ( R `9 }! x: D# e% P3 o) g8 n1 j
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],% K5 J' h% n0 F0 D( C- ]. ?, r% n3 S
"}"}], ",", " \/ ~, }+ Y% g2 l* P+ ~7 y! O' U ^
RowBox[{"{", 1 T7 ]) f, H- U' M6 ]" \( \. `# f
RowBox[{
# r# g& `$ }2 t0 c "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
3 A( ^! y' j" J6 q* [# o ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
0 b8 O5 O) t) S8 l8 y: ? "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}], D% G% R, N3 C3 [' I
"}"}], ",",
! O# M& G; E* j& i: {- P RowBox[{"{",
- G6 m/ o3 |# M RowBox[{
/ }/ q& }. ?+ ?* A; o: E' @ "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",- D$ I: b( g- b+ ^6 ?# s
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
. q+ L# ?- n+ H/ r4 a "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
) i- c+ C$ `" j/ _ "}"}], ",",
! Q) F' {/ Q4 f5 g' H RowBox[{"{",
' C1 ^) f, K m RowBox[{: A: K1 h. ~" G- }% r% s2 b
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",/ Z1 H! l6 T* K' K
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 2 ~0 y x' f7 t; l
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],1 v& f: P, D7 J8 M. J3 Q
"}"}], ",", . D) _+ }) v# V9 J/ c, p: J; d
RowBox[{"{", * G# Y& V3 b3 X5 d; _& B+ u% I% `
RowBox[{0 r/ t( K! I! `* i: M/ A; x
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
( N- `% `, O8 g* J ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
6 O( P: F$ f# U# G2 k# b6 Q "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],7 V# r5 ?3 k* y/ V; D$ k( ^
"}"}], ",",
+ ^; A3 ~5 s& @) k' @+ o0 z* w RowBox[{"{",
9 d; r% g2 b! o' j- H6 u. l: ? RowBox[{
9 y2 k* _+ }) V' |3 C+ `+ T "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
$ Z- \: U/ J3 a/ k ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", , [; b" T6 M/ M7 @. e+ ~$ ^+ ?
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],& l& b* {6 y8 @
"}"}], ",",
% V0 U0 O% N. z. T1 @* B RowBox[{"{",
7 L; |; [) j! r# i E7 c RowBox[{
3 D3 Z: L* m! | "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",4 A# ^6 l2 T% T% \! e
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
7 i& t0 I# T/ d( m$ r" C "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
. F: E5 G- e5 l6 e, c7 G "}"}], ",",
- H' } v0 ^! z) A6 x9 W# S RowBox[{"{",
7 }: g1 i0 b: Z! i" O$ K RowBox[{
r% L$ N% A5 M- p- Q: x5 u "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
) f. T X1 c0 }2 Q5 s: j+ S: } ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 6 w" r6 ~- V8 l4 N3 |3 R
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],+ m( F9 S+ Y7 q/ |
"}"}], ",",
5 h( z# B9 O2 ?: P2 ?3 L5 F RowBox[{"{", 5 X6 e) m0 w$ w- e7 j
RowBox[{( r# j! `& _8 H9 U- v5 P/ T
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",! S5 p& _5 m# Q! j9 }
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 6 |3 O4 ^3 @- X8 o# V5 k/ {
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}], X3 f; `) L% B# d# m; m6 B" N
"}"}], ",",
/ V' o& i1 C% A5 D1 @1 N, `+ @ RowBox[{"{",
7 }. U' I9 N5 J; M1 O) E RowBox[{/ q2 k+ E* q+ H- V# `- q
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
3 L0 h* u" z: b9 Z1 a6 X ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", : A) R( E" m L- z. J
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
9 k4 ]: _& w- l: V! z) E "}"}], ",", ! M& X5 c; x$ k
RowBox[{"{", # c* D- _9 _/ d" V1 q* P
RowBox[{
2 h# Y6 a0 @- c" _: l& b/ c "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
$ k2 r- r5 f6 F4 ?* G, ]' z/ n ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
' u# F \9 U4 ?; L! c "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}], y. m2 ~* G6 \) `8 K( `# p; K. D
"}"}], ",",
$ ?9 O8 b0 g; P# W% o RowBox[{"{", 2 r9 {; B- O! i4 @ d5 O* e
RowBox[{2 B7 `0 P+ y2 G$ |7 P
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
& w4 n- O1 N) n% s ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
. C! f" Q( {& _* Q "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
2 q* O# p8 o: F "}"}], ",", 8 W* R* I$ ^! p5 V
RowBox[{"{", * }' a9 N3 h; T% a" I
RowBox[{* x8 m" b: G* L- I, D0 @: x! {2 @
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
, v; d6 E! U/ Z8 l. x ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", ; `$ X. l# q0 f* H4 o% B
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],' Q; y5 i$ W4 E7 n2 n, S/ V* w e
"}"}], ",", % K" l) Z/ o4 @5 L
RowBox[{"{",
! C2 [4 u- ]! d RowBox[{: u# w- J% A. r' ]5 c
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
; o; ?, T/ d4 C0 }2 u7 W7 N ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", ) Y7 r# V2 ]: g- K2 ]
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],3 Z; U. x5 h: r! u- W l5 a
"}"}], ",",
5 L5 w1 V/ ?1 F5 w$ O RowBox[{"{", 0 N* c' m) m; a9 q8 {5 @
RowBox[{
7 z7 L+ L6 g# y- F "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
; D, e# Q$ O* l ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", & k* \8 \$ A$ c8 t3 x& x
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
" k/ k+ J+ L8 Z8 `/ t1 j: s8 G "}"}]}], "}"}]], "Output",
) d6 J* }! j/ a7 p3 V( M. C CellChangeTimes->{
- Z/ q" M- e2 v ~- e( e 3.577924022828125*^9, {3.577924056171875*^9, 3.577924103265625*^9},
8 |9 D3 {& f5 y! L8 ? 3.5779582609987946`*^9, 3.577958492393998*^9, 3.5779590297369347`*^9, , Z; ^, w/ H2 Y" e, }
3.5779622422980003`*^9, 3.578012443890625*^9}]+ P R$ Z: `/ J0 K- x: P. I: P
}, Open ]],) k( B& B; S) E" H5 k* Q
# g8 j: V% y1 U$ w+ y) e3 \% T
Cell[BoxData[
/ M0 A7 [3 U9 O4 ]5 M( B8 S RowBox[{"For", "[",
! V: i$ K! M5 y, X1 P7 z4 k+ Q* a RowBox[{ ?% F( }/ J* ^2 X
RowBox[{"i", "=", "1"}], ",",
/ [; n1 p2 o8 j$ h* o RowBox[{"i", "\[LessEqual]", "60"}], ",", $ A4 }0 i4 N, f7 p9 Y7 n6 c3 Z4 k- n
RowBox[{"i", "++"}], ",", + Q9 |. a* x3 @9 J* a9 H. k, L+ N
RowBox[{"{", "\[IndentingNewLine]",
; N; t: `3 _, j+ ` RowBox[{
+ s: f3 v9 a( l f+ P2 z; {9 H RowBox[{
8 s: p) t9 V( o, f" Z' i9 c RowBox[{"m60n21", "[", % j" C+ b1 l3 f2 b. {" |
RowBox[{"[",
) J! H# V% y( r0 Z+ g RowBox[{"i", ",", "1"}], "]"}], "]"}], "=", 7 e7 u- N/ f0 |% o/ Z# C5 h5 L
RowBox[{"u1", "/.", 8 x' W" ?+ { k! B1 R$ w
RowBox[{"{",
# s' B" I" l0 H+ E" n RowBox[{
# j/ ]: j' W4 A: h, Q% } t RowBox[{"x1", "->", + ~; C0 Q( Q( H8 A. T
RowBox[{"Data", "[", l8 ~* a$ Y* ]& J. B
RowBox[{"[",
7 S/ ~1 x0 |$ h2 ? RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",",
8 [4 `' M/ C; p& K. D RowBox[{"x2", "->",
- t/ v: F1 B" `! C9 [5 c RowBox[{"Data", "[",
% f$ z( C7 B: S8 b4 | RowBox[{"[",
3 e+ J( F7 v1 S3 o RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",",
, z% C4 a" J: D r9 ^4 g7 o RowBox[{"x3", "->",
. X: Z2 W# I8 a- ]1 Y RowBox[{"Data", "[",
* W% v- r# u4 X& | RowBox[{"[", & W( B0 A5 E" D, r
RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",",
# Y' M/ K/ Q* c RowBox[{"x4", "->", 0 I8 m& f! V, X$ N8 J! s* R7 b
RowBox[{"Data", "[",
3 I& Y7 u2 h5 L* w RowBox[{"[", 2 D$ h: ~, T: D* ?- e; K
RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",",
3 H( R2 T$ y+ A! y; J RowBox[{"x5", "->", $ f5 R3 H* T7 i1 c
RowBox[{"Data", "[",
8 @& d3 |! |* @7 z8 g3 [ RowBox[{"[", $ _) ?9 Y$ Y, w+ U1 [
RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",",
7 }, x+ \* `# i$ t: u! { RowBox[{"x6", "->",
8 |% z, G. a) P/ ^& @ RowBox[{"Data", "[", - m9 J3 a3 q' `6 _4 H4 u9 r# f
RowBox[{"[",
& c8 c/ d- C7 O9 ?9 @# y RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",", f0 t; d! _/ u9 I
RowBox[{"x7", "->",
% c1 H D, ~! a RowBox[{"Data", "[", 7 `; p' y3 F( U) G! w. z2 T
RowBox[{"[", ) y- z O( Y6 P Z
RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",",
; v1 l/ L$ Y9 | RowBox[{"x8", "->", * N k: d( X" n; A* s) M
RowBox[{"Data", "[", 0 m# v$ l' k; Y9 I8 `
RowBox[{"[", - B- c; `, B: O8 E% s0 _/ y
RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",",
; v' w# v8 {9 I5 N: M# O4 Z& x RowBox[{"x9", "->",
7 L! D& U# \" n/ Q RowBox[{"Data", "[",
( l, x' U; t; V6 X, a* v RowBox[{"[",
, m* @8 T Y, ?. r1 T- }; d2 X RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";", 3 W7 W' Q" z' I1 E: n. ?9 H
"\[IndentingNewLine]", 3 k, k; g/ J/ q1 N' A
RowBox[{
& B; @( b: ?2 O' k' _ RowBox[{"m60n21", "[", ! D0 M6 G/ O& c9 W
RowBox[{"[",
5 o( T6 H2 J0 ] RowBox[{"i", ",", "2"}], "]"}], "]"}], "=",
; j/ W; Z/ b6 ]7 _ RowBox[{"u2", "/.",
! A* F8 N2 ? z% E- q RowBox[{"{",
0 X; @$ U- {" R: d3 F RowBox[{
* u( n4 s& T% h' G3 q0 |/ a RowBox[{"x1", "->", : Z% E) f9 W! G) M+ M2 h
RowBox[{"Data", "[",
2 i& T! T) B# k) r" V% L q RowBox[{"[",
1 e& Z6 Q6 b# z( T% j! [. l/ h RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",", / r0 @: _# q4 y' Y6 h! O0 h
RowBox[{"x2", "->", ! \! c$ A! \" T! a% ` b7 q! u7 f" L
RowBox[{"Data", "[",
& R( F8 o! R1 G8 A" c RowBox[{"[", M' O. x, R/ P3 ~% \
RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",",
' r& N5 G8 p. W RowBox[{"x3", "->",
: i* R/ e4 c# x RowBox[{"Data", "[", S3 x- L/ \( K
RowBox[{"[", 3 k7 n- @! V( v$ g: I( ]* u2 R% x
RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",",
$ D; b( u& G* z8 N" ^9 t* e) j RowBox[{"x4", "->",
1 p) s* w6 L: n# V RowBox[{"Data", "[", z3 v7 g6 q% P6 e a
RowBox[{"[",
4 e/ {; ~! z8 p8 f9 s0 o+ ^7 G- T* T RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",", . h' l7 k% G: N
RowBox[{"x5", "->", ( P4 r" m9 B4 x; G* u( S1 J
RowBox[{"Data", "[", ! p- L l7 E2 u- \7 S; y
RowBox[{"[",
* j& J6 A3 }0 W3 ? RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",",
0 S6 s! k2 d9 z2 S) Q: V4 I) m RowBox[{"x6", "->", # Q; m. c7 [- r% A6 j) _2 s9 p
RowBox[{"Data", "[", 0 n) f& M$ A- g5 R# x
RowBox[{"[",
. ?8 o' |& \& l' g" j! s RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",", : R1 e: Y2 W# P B9 b" i- T
RowBox[{"x7", "->",
+ z8 O5 B% Z1 x# `$ F RowBox[{"Data", "[",
+ M$ R; A# a& W9 u3 k: w- J* ?3 C RowBox[{"[",
+ K- }, o% S( m RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",",
9 q& R( p- D& Q6 O8 P" E RowBox[{"x8", "->", ) `# x+ x" @% Y9 E
RowBox[{"Data", "[", k( C7 I: z9 N
RowBox[{"[",
: [* h) G" K8 I5 ~6 A4 B0 L( S RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",",
1 R' y( U/ B# J9 U6 ?3 k RowBox[{"x9", "->", 4 p5 c' `4 Z* Q- C% t9 `. ?
RowBox[{"Data", "[", # H/ J! A$ T" ]0 O8 [) k% G7 Y
RowBox[{"[", % `5 \5 R# _ r: i& ?% }
RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";", / f5 B% Q* M" H* P: n& J6 B$ k
"\[IndentingNewLine]", 4 _2 ~) i8 y7 M, r% L, p
RowBox[{
4 A0 U% u) B) K5 [0 ]: E2 ] RowBox[{"m60n21", "[",
% I2 K4 g1 D9 u& l2 E$ k RowBox[{"[", & l' [5 G8 N/ p- F; Z1 O
RowBox[{"i", ",", "3"}], "]"}], "]"}], "=",
_7 f+ H( f5 a7 m* @ RowBox[{"u3", "/.",
. k( h1 _4 ?/ f A' N' m RowBox[{"{", 6 j- M' q( i; N
RowBox[{+ S7 G6 F0 f, Y, Q
RowBox[{"x1", "->", 1 ?* p. b3 H; G0 X/ D0 L7 {& F
RowBox[{"Data", "[",
3 {0 C5 {6 h6 c8 [" X RowBox[{"[",
6 p" Y/ Y; R7 F8 ^; _% y3 N0 P2 K RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",",
?: o/ W/ v- C6 C) v z1 X RowBox[{"x2", "->",
; t4 f) e$ X! p RowBox[{"Data", "[", # q: B5 a" p: R% ^2 H
RowBox[{"[", 8 n& |" V9 H5 a' M
RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",",
$ d: J H) @- D( y# } RowBox[{"x3", "->", - J/ A) S$ \5 l; t+ s
RowBox[{"Data", "[",
8 b m- J9 ^. M0 I# t+ a RowBox[{"[", 4 o2 e9 }% a; f+ _
RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",",
5 V7 L8 ?+ V; I RowBox[{"x4", "->", 8 }. ^8 d9 n1 A& j3 [8 ?( `7 B
RowBox[{"Data", "[",
2 O" L8 M, N' }/ U5 u RowBox[{"[",
8 H, t8 _# P- M9 ? @/ h% f RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",", ' ^# z/ a+ | [# c! f5 Z
RowBox[{"x5", "->",
/ W& x5 j8 S8 C; M+ [ RowBox[{"Data", "[", * d9 A2 B& B" A/ r {8 l1 l
RowBox[{"[", 1 ]9 W1 A1 s G/ ^8 r1 z
RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",", 9 ~$ ^! s! P2 N) k- l
RowBox[{"x6", "->", / J5 H2 A& O% Y2 i% I2 l8 ?. Q0 ^
RowBox[{"Data", "[", # v7 c* c3 g4 Y0 I
RowBox[{"[", ! F4 O* O5 O w
RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",",
: G. ^# \1 N7 G7 D: M: r RowBox[{"x7", "->", / f+ F L C y. U7 Z$ s
RowBox[{"Data", "[", 0 M8 v' |$ d: r! e, f
RowBox[{"[", ( |- g, H" K, X; G8 d5 z$ W! Y
RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",",
& Z/ j9 ?8 J0 c. _/ k% t RowBox[{"x8", "->",
: ?$ v, w0 L6 D V RowBox[{"Data", "[", 9 O$ H) w5 ]+ ?8 U& e) g1 u
RowBox[{"[", ) z9 ]1 C2 n8 ]$ \0 M
RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",",
) l5 y7 r0 R6 p k9 V# B! l. K RowBox[{"x9", "->", 4 ` Y6 \# r0 E
RowBox[{"Data", "[", 2 P( M/ w W6 v+ I
RowBox[{"[",
& h; P8 Z0 t2 b% j) p7 H3 S$ L RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";", 6 ~& L7 ]7 j; B n, R9 j' z
"\[IndentingNewLine]",
7 G+ z B& d& m- c( W RowBox[{) K' x* b7 X* F4 Q# P" h; y5 w
RowBox[{"m60n21", "[", - t& w2 B _4 @% i' z: q. ]
RowBox[{"[", * e! D5 L: _: q0 F4 `' W9 w5 I% i
RowBox[{"i", ",", "4"}], "]"}], "]"}], "=", 4 D8 k+ U% |+ E8 P7 n$ d& V' x
RowBox[{"u4", "/.", * M4 |$ L# m M6 ]4 f$ \/ K
RowBox[{"{",
# H5 _0 f7 t8 Z RowBox[{
& h0 x3 ?: w/ B D RowBox[{"x1", "->", , z/ s: j, D/ @ M* U, @( F
RowBox[{"Data", "[",
4 f; y" E2 h7 @2 N5 r- M RowBox[{"[",
0 r3 v; z. V. x RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",", H5 _( S) D/ o9 V7 {- |
RowBox[{"x2", "->", 3 o" [1 A8 J2 F1 x9 q
RowBox[{"Data", "[",
9 j$ R% _: h+ R, s, b RowBox[{"[", 0 z% j" |6 W# q$ \: c
RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",", 1 d4 S z* f5 h2 X
RowBox[{"x3", "->",
, c# q# X% f8 }/ L8 k, F1 D RowBox[{"Data", "[", ! P9 z2 H6 C; n% i6 I
RowBox[{"[",
4 Z) n" k; u" v9 a' J+ | RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",",
. h" I3 M# K; t! |/ \1 W. [ RowBox[{"x4", "->",
B1 w8 S& O) r6 b4 P) {6 Y RowBox[{"Data", "[", 0 _9 S! j; R" d _
RowBox[{"[", # @8 P( ?6 \% s1 n* W% P9 M
RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",", 2 X0 y5 |% \: W: y; w2 l
RowBox[{"x5", "->",
. G" Z! Y3 e4 [5 f- l# k RowBox[{"Data", "[",
7 Y) H9 |/ j h6 k" Z+ R RowBox[{"[", ! H' s7 O3 l6 f, w8 |0 }
RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",",
& q4 G- Q5 V: J1 I0 g$ l( X RowBox[{"x6", "->", ' G9 O% d# ]: v
RowBox[{"Data", "[",
& V+ l* N& [6 ~3 I- \4 |: ~ RowBox[{"[",
; ^' n! u( S7 ]. g( `2 R5 ^ RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",",
) B, W1 G7 g4 G RowBox[{"x7", "->",
/ t4 O3 D: H- G RowBox[{"Data", "[", 8 a( T5 E6 o. Q! ?& L1 R
RowBox[{"[", 7 U5 ^$ r$ |( t% C! T& I
RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",", * j/ X! }% k, c7 W( X3 M& l0 q$ l
RowBox[{"x8", "->",
% B. B" D/ S+ T/ H RowBox[{"Data", "[", : {9 k4 d; ]+ x, q
RowBox[{"[",
3 D2 V" E* W4 Z9 D8 |0 z# N5 p RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",",
6 @ l B+ R+ n* Q" `6 ] K8 _, D1 X RowBox[{"x9", "->", 8 \7 y8 j# ?8 `, X. X$ b6 ], J; G
RowBox[{"Data", "[",
Z) D0 J4 K# e3 C RowBox[{"[",
$ F" J) L; b7 j9 H3 p, | RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";",
! P2 f1 x3 K1 H8 y( M. r, E "\[IndentingNewLine]",
$ l) q$ Z- p* y0 G# X$ z RowBox[{
/ G$ R+ ]# }- F$ s RowBox[{"m60n21", "[", ' g- O* C1 U# D- f+ b
RowBox[{"[", 1 J- w% l- L# J0 y$ l |5 Q
RowBox[{"i", ",", "5"}], "]"}], "]"}], "=",
, Z- j; W) K! n2 Y3 G) R RowBox[{"u5", "/.", ( H# i% e# h$ k- w( d a8 u
RowBox[{"{", . q8 L# \. a4 q: T
RowBox[{' n: b: g; i+ [: E, m: C
RowBox[{"x1", "->", # g$ @* a/ {7 b0 R) T% m8 ^+ ?8 K
RowBox[{"Data", "[",
& z2 P U1 D x7 t9 E RowBox[{"[",
" Q4 g2 L0 s( `8 r( |! t5 M0 H/ x RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",",
4 N& l L: p6 r9 p RowBox[{"x2", "->",
1 |+ a# s3 g1 Y0 t2 e* H RowBox[{"Data", "[",
& @* j+ I6 x5 Y( `5 Z4 N2 b RowBox[{"[", # k% t& G F3 X# j2 g5 x
RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",", - ~$ Z" P+ r+ }
RowBox[{"x3", "->", 9 ^5 C8 @" F3 }
RowBox[{"Data", "[", ' R' W$ Y2 ?3 K, L- V/ ]
RowBox[{"[", $ l# I; W$ V0 |5 l) N
RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",",
/ _2 R4 B2 E1 B: R RowBox[{"x4", "->",
# x/ }3 G7 ], x% ?- d; X$ ? RowBox[{"Data", "[", Y; D* u0 j8 @5 W7 j# Q
RowBox[{"[", ' u/ o% `0 o+ h7 [4 x
RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",",
: c- B3 F/ S B7 s, e! S% a RowBox[{"x5", "->",
! k! G7 b& |- c9 f' s2 \ RowBox[{"Data", "[",
8 O) p q$ Q) Q+ Q( U RowBox[{"[",
7 Z& N9 |1 z, F9 ]+ z4 A$ \ RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",",
E& t% J0 [) m0 H( U6 R5 z7 { RowBox[{"x6", "->", 6 l- C: n) e& S+ i! ]) n- y
RowBox[{"Data", "[",
- S: ~$ n1 D3 u# A! f6 g! b! E RowBox[{"[", + ?, X* f h% m6 ~1 a5 e4 H
RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",",
& k- v% D p$ G$ M RowBox[{"x7", "->",
{9 {+ I' ~* T7 e RowBox[{"Data", "[",
: f) A: |4 ?( a! k1 r6 a( t p6 x RowBox[{"[",
1 ~* R4 w& ]* a/ F' K! X RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",", 6 o2 [; S. ?, w# }6 i3 q6 w4 h+ C) R
RowBox[{"x8", "->",
3 |( ?8 F6 ]. }. n RowBox[{"Data", "[",
. N- y3 J! A$ S1 v! c9 ^ RowBox[{"[", 9 }$ W0 a! v/ k! B' z( B. D0 j
RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",", 0 G, X8 @' v% K% [& D. v, ~1 ?
RowBox[{"x9", "->", h5 w* S6 r# [0 t$ a
RowBox[{"Data", "[", ) h& T/ b* F3 \& F
RowBox[{"[", 6 ], Y$ ^2 D. V1 J5 A+ t$ F
RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";", " N, S9 E! Z" i8 a& B. F+ w
"\[IndentingNewLine]",
' U* F3 \$ j: r5 m- R6 S RowBox[{7 S( w! T2 V! a
RowBox[{"m60n21", "[", , Q+ G# V7 v/ j9 d, \6 n
RowBox[{"[",
5 b% o6 Q$ W! |4 H6 Z RowBox[{"i", ",", "6"}], "]"}], "]"}], "=", 1 P" f8 ~5 f0 j$ r, c2 y& C' H3 d
RowBox[{"u6", "/.", - g( |- Y* d5 v% _3 H1 }- t+ k
RowBox[{"{", & k" Z8 F( R8 u: H: L
RowBox[{. a# ^0 |/ `3 \, l3 W1 y/ k4 p! |
RowBox[{"x1", "->", # ?" \% |! P, a2 a
RowBox[{"Data", "[", ) `2 K' Z6 S! H2 i! o
RowBox[{"[", 8 u$ J5 c' |1 u' c! X+ ]' a( P( F
RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",", 5 t7 n. E) O& q. y& Z
RowBox[{"x2", "->",
/ h/ O, O1 Y& ^ RowBox[{"Data", "[", ! w$ o2 a1 ]- Q$ ]( m( _
RowBox[{"[", , i$ D* b& @" N! k6 C7 j, g1 X+ |
RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",", ) B# d4 z6 ~2 X% s+ I3 S
RowBox[{"x3", "->", 5 v$ i9 F/ M: u, E, o
RowBox[{"Data", "[",
1 b: K# K; I- A. m7 c* Z: O F RowBox[{"[",
( ~- Z5 p2 B, @ RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",", # n9 N# s$ q7 K, ~; Y4 {: m3 D2 z
RowBox[{"x4", "->",
( ~6 Q( [& o4 Z/ t& T2 U! A RowBox[{"Data", "[", * Y' R# F+ x' o% C
RowBox[{"[", & x2 O( }2 ?! H/ D; u q$ ]( ` A' K
RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",",
j5 M; d% a5 b RowBox[{"x5", "->", # `# |8 F$ S- I" W
RowBox[{"Data", "[", % a& |) `: f5 K* _
RowBox[{"[", 4 g! j: C+ {. E/ H3 y \ {
RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",",
( ^: Z+ w/ O6 ]0 o" b: G RowBox[{"x6", "->", 3 X7 @) e% s+ e8 s
RowBox[{"Data", "[",
" w* I: @4 G0 |, I/ t RowBox[{"[", / s& J, z& |8 s% o3 w8 O- `/ W
RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",", % A1 P& b( R- j$ d) n
RowBox[{"x7", "->",
# ?2 R( k) `( ?$ E$ Y RowBox[{"Data", "[",
' h- C) M6 u$ O l+ l3 _3 } RowBox[{"[",
, t* C& W) p7 }! P( b+ S RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",",
* Z% z- ]- [3 o8 T Q* Y( g RowBox[{"x8", "->",
; L& O2 H% F! B, U& v RowBox[{"Data", "[", & h! n! | H; R2 W9 x4 T
RowBox[{"[", 4 r( f& E. f+ |3 |. Q
RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",", * T( j* H) R/ R" }
RowBox[{"x9", "->",
8 G% r, k2 h ^" W5 M RowBox[{"Data", "[",
5 G: _. n" X: `' i: ? RowBox[{"[",
1 T4 F2 L, V! z) S$ u RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";", , I9 K( K- u8 @; b: a* v* W
"\[IndentingNewLine]",
0 g r/ o6 V0 {9 X9 c0 f6 V RowBox[{
, k! {: i6 D( y. }4 Z RowBox[{"m60n21", "[", 8 ]+ i! r5 x0 t) H
RowBox[{"[", ) `, B. Q2 r$ k4 n
RowBox[{"i", ",", "7"}], "]"}], "]"}], "=",
$ i v5 H, W: p$ m7 L0 @ RowBox[{"u7", "/.", - v1 O& Q" I) Y0 q4 _( U
RowBox[{"{",
5 s# z3 Z9 n$ ^. t RowBox[{& O1 Y/ d) x$ n
RowBox[{"x1", "->",
% u! ^- m" N! E) o# P! r RowBox[{"Data", "[",
: u! {* x( w$ q/ A; L$ u0 } RowBox[{"[",
# _+ m9 \; b! |9 Z& F S/ i+ d9 T5 d RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",",
6 D) i7 K" W; Y4 O: P( U E RowBox[{"x2", "->", $ a$ r; z5 {' I5 [' S
RowBox[{"Data", "[",
0 i4 C) }2 }" W5 T) l3 H RowBox[{"[",
3 I! {+ r2 Q/ l9 D! J8 z4 C# } RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",",
' s& T$ R. P4 c& ?: Y2 j RowBox[{"x3", "->", - T3 ]# f; v' e! [
RowBox[{"Data", "[",
( {, d8 X) b$ K0 Y RowBox[{"[",
a5 ? ]- m. P- w" i0 `' M& C RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",",
7 s3 |" ]1 H+ H/ V$ D5 p% d; u: h/ V RowBox[{"x4", "->",
7 j8 ?& Y, X9 e/ i1 e3 Z RowBox[{"Data", "[",
3 i/ a: ~8 \# _+ X RowBox[{"[", 8 z" o( q4 n6 J$ M0 M Y
RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",",
7 ^/ z: V# \8 E3 m0 r- U" C9 x# J+ M RowBox[{"x5", "->",
" s0 e3 P6 N5 ^; h5 F RowBox[{"Data", "[",
- Q1 H3 w. [! R1 S! O5 A# L4 @ RowBox[{"[", & u6 {, z/ d4 j7 ~5 `, { g* Z# V
RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",", ( U4 a+ R) x6 X
RowBox[{"x6", "->",
# I3 Q; Q) Y- O+ m RowBox[{"Data", "[", ( I) C9 q2 c3 k- T
RowBox[{"[", 8 X8 O, n0 ^. Z$ ^- O
RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",",
4 g6 q0 Q6 U) ]& ^( h* e! c RowBox[{"x7", "->",
0 F2 m2 t7 ?. P* X1 U RowBox[{"Data", "[", % e! ^4 Y2 T/ i8 u
RowBox[{"[",
2 L/ g, T6 Z; M+ y3 y RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",",
$ ^* j o& {1 \0 z/ @0 R1 J& a5 a RowBox[{"x8", "->", ' E H- A' p$ I! \. b) C+ ^
RowBox[{"Data", "[", 3 Y J) X$ H8 N/ P K. |6 ]2 C
RowBox[{"[", ' H) K+ O+ ~1 r3 L; e
RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",",
6 X: h( I) o7 y- Y) N1 V" f# z3 H1 V RowBox[{"x9", "->", % o& U4 |$ L/ C/ B b
RowBox[{"Data", "[",
; C/ r5 l8 Q, q1 U8 b; t4 S C. o RowBox[{"[", 8 e- \$ a; p& ?* z% k n
RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";", ; w7 B# ^( I9 ]
"\[IndentingNewLine]", % R% T/ k0 f/ s: m
RowBox[{
/ e6 k$ l& V% o4 U, c RowBox[{"m60n21", "[", 6 X2 V9 y6 X7 l
RowBox[{"[",
+ }1 ?8 T5 a b! X V/ a RowBox[{"i", ",", "8"}], "]"}], "]"}], "=",
, ^7 ^! J( |& A: H3 a RowBox[{"u8", "/.",
: F$ e1 M2 ~+ S( b9 d RowBox[{"{",
* \8 Y" o: M7 n3 \. O' S( l RowBox[{
. Y5 r6 U* f! @ RowBox[{"x1", "->", 8 A1 u# m( Z# I U* w
RowBox[{"Data", "[", $ c# c+ W+ f6 p \( t& w
RowBox[{"[", 3 [$ S2 s2 [& z, w
RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",", $ C$ `& k# B' w1 }+ u) C- m9 j
RowBox[{"x2", "->",
3 `4 v9 l4 K7 Q. q, z RowBox[{"Data", "[", - o8 W, E1 `) u8 v$ z+ k+ y" l7 J
RowBox[{"[",
~6 S' V* U2 [ RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",", 0 `+ g3 t6 ?, @) A
RowBox[{"x3", "->",
* Z s7 s' G z M RowBox[{"Data", "[",
0 Q' J7 Q% v* s( c/ _! t$ {8 k RowBox[{"[", 0 k" _9 n& a2 M' f
RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",",
; M+ {, V X9 t7 P RowBox[{"x4", "->",
; z" j& w; o: e% v RowBox[{"Data", "[", - d- H2 |* i: o
RowBox[{"[",
2 A; f2 v" H- a RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",",
" P8 p& d0 u+ l6 I; M& f' x RowBox[{"x5", "->", 9 ~8 f7 Y# A* w
RowBox[{"Data", "[",
3 _9 I3 j! _! v6 p' U/ g RowBox[{"[", ! l; G* b- q2 V1 Z) f c
RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",",
7 T5 Y( |1 b1 ^4 v) p3 Z RowBox[{"x6", "->", 1 X5 U3 }5 w+ O8 y, ?6 ^
RowBox[{"Data", "[",
% m+ i' G6 V) Y O% Z: l9 J; s RowBox[{"[", ( f9 c: j! a. R" V& h
RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",", ! O, b0 e$ n; C1 ]3 g
RowBox[{"x7", "->",
! o: |5 T" g! q! Q3 P RowBox[{"Data", "[",
' M/ R( ?0 J" @! U5 v RowBox[{"[", : O3 ]7 [% {, U( @8 s [5 M
RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",",
# s+ P) m! {2 w8 p$ `; ] RowBox[{"x8", "->",
- O# g/ p. c2 a RowBox[{"Data", "[",
% J* \- c7 J; p3 J. q# H x( v RowBox[{"[", : w! w% V; }/ G" g* B
RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",",
" x% u( O9 \0 S, l( P( y, V RowBox[{"x9", "->",
$ `% ]. D4 B+ J8 d" i, s/ Y* X RowBox[{"Data", "[", ! ]- Z! w4 x: G3 p# t9 _
RowBox[{"[",
5 C7 [ S, D8 N9 D. C RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";", ' w) N# q$ x# \; l- e: \7 P4 b
"\[IndentingNewLine]",
& K6 r; a8 D4 j# d RowBox[{6 D7 W( {3 t: k+ j' K7 i; Z* W0 j# y
RowBox[{"m60n21", "[",
- v4 U, n1 G" h4 a- ?( [) @ RowBox[{"[",
& z; G* z5 [9 s RowBox[{"i", ",", "9"}], "]"}], "]"}], "=", / o4 ~, N; Y; \
RowBox[{"u9", "/.", 3 T: N( ?1 J* {/ j* E5 e/ m( H
RowBox[{"{",
& A5 K2 V9 N) { RowBox[{
5 l" T3 \; T% ]' @9 d( V6 ^ RowBox[{"x1", "->",
; ? K& b) o0 ?. A5 @7 v4 d RowBox[{"Data", "[", 4 [3 r, Q/ [* C+ {& L9 N1 K
RowBox[{"[", ! q ~3 c* w0 w( L' ~" B# T
RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",", / a: W/ r$ F0 h9 ], w0 \7 \
RowBox[{"x2", "->", 4 G' t( D9 B' `" s; L3 I3 O* Y
RowBox[{"Data", "[", . O5 w: H/ ~ d% d! \* t
RowBox[{"[",
- ?5 S, Q2 @" J9 U: b RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",", 6 \6 R9 R' K" X, G+ P5 U* H- ~, y. O9 b
RowBox[{"x3", "->",
+ ^$ V& {' ]- N RowBox[{"Data", "[",
4 _9 d% t* h- g& n. F: m RowBox[{"[", : R4 w) s R2 J* t+ Y) A
RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",", 1 @7 t" K, F! q+ y
RowBox[{"x4", "->",
' `/ a+ M& P6 q RowBox[{"Data", "[",
3 C8 M" R1 ~& N* _, ? RowBox[{"[",
5 W1 T, q3 e* c% W' O RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",",
4 m/ a0 L; H( w RowBox[{"x5", "->",
( s8 u% y: A O! y/ k RowBox[{"Data", "[", 0 w) f9 G' _# a
RowBox[{"[", ; L/ m0 l7 ]4 K6 g
RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",", 1 H# M0 l2 h& i
RowBox[{"x6", "->", . a5 H( m6 ^. L+ _' \
RowBox[{"Data", "[",
' B" y W; ]5 ^$ V* A RowBox[{"[",
" ]4 I5 U5 \7 B9 h+ i RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",",
' b9 l, J9 v) N9 C RowBox[{"x7", "->", 0 G8 u& y. R4 M( S
RowBox[{"Data", "[", " H0 _# D4 z3 u% A8 R( l2 |. ]
RowBox[{"[",
8 m# o3 @3 `$ G: {! p4 h RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",",
/ c* f6 a9 U0 [: H6 u+ b$ k% f RowBox[{"x8", "->", % F& N Q5 h/ z) ? X
RowBox[{"Data", "[",
* l4 i( D. o- ]2 G5 X$ S c. [- o RowBox[{"[", ; e# _) b1 i3 A
RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",",
" N/ @# G3 ] q+ e8 T7 ~2 r- ?: O RowBox[{"x9", "->",
" i" a1 m6 k* e F RowBox[{"Data", "[",
: d! [5 k( v9 D4 R/ x+ Z; l4 ~/ ?6 L RowBox[{"[", # ~; D; s4 v& _& @, Y \/ S$ ^
RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";", : b8 n: X: D# J8 Z, t/ E
"\[IndentingNewLine]", 2 S" b7 [$ Y. ~' W' e3 `% T
RowBox[{
, Q. [9 y& R7 r RowBox[{"m60n21", "[",
3 H1 }# z( J Z RowBox[{"[", 5 A2 ^; f- _: k2 M" ]6 B& y
RowBox[{"i", ",", "10"}], "]"}], "]"}], "=",
$ O, S7 y+ k! i. a" x8 h5 ^ RowBox[{"u10", "/.", 7 k. f$ D' F) _
RowBox[{"{", S' ~1 [ I0 l4 w( o
RowBox[{
* `6 w3 c3 y, m RowBox[{"x1", "->", : g a- l( m: F' x" g8 N) S2 j
RowBox[{"Data", "[", # V/ q! h- S$ w/ m6 D& r
RowBox[{"[", . c+ _$ k" i$ }
RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",", $ G1 D$ a6 A, P7 A
RowBox[{"x2", "->",
1 a% V; S& U$ W1 t RowBox[{"Data", "[",
. s& Z$ s2 c5 I# g- n7 O E7 U4 l. b RowBox[{"[", . c( i1 K+ H. }
RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",",
$ n7 ?" K0 K1 S* P: v! d RowBox[{"x3", "->", 5 B' t& W% k/ Q
RowBox[{"Data", "[",
) x! z" V# q7 B5 }' ~; E4 O7 ?3 V RowBox[{"[",
3 C0 r* j+ W! c9 z% S' [ RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",", 4 \$ C7 K& M! @( S# r
RowBox[{"x4", "->", 0 o( E; w3 o7 `9 S2 h9 ? z
RowBox[{"Data", "[",
! S+ g' }& z' {( E3 R3 {: U) k RowBox[{"[", 7 C$ t3 a1 h& ?: G" ]. I; ?
RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",", - k: g. w7 l* e8 K) x4 A& e
RowBox[{"x5", "->",
0 A. w2 a$ f. G& q) M RowBox[{"Data", "[",
3 o( w9 b- N+ n+ h& F# x& f RowBox[{"[", ! D6 R- x5 L* M& I
RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",", 4 H4 j' ]% Z, y W5 i
RowBox[{"x6", "->", , O4 M: Y2 l2 k E& [
RowBox[{"Data", "[", # A: Q! Y, r8 J8 V4 N
RowBox[{"[", ! Q7 p- E9 ?2 D
RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",",
! d2 h% A" l$ T RowBox[{"x7", "->",
& r" s' w2 B6 D! M; n. [ t3 o RowBox[{"Data", "[",
# f- P* u' G k1 p; q RowBox[{"[", 3 r q s! ?5 R1 A/ q* f! _& o
RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",",
4 K3 q# N0 m. T6 k) h RowBox[{"x8", "->", 4 a% D* G* g9 K: l
RowBox[{"Data", "[", $ p$ b, \5 W0 `2 r/ k1 C) m8 q+ J
RowBox[{"[", 9 C& n( N9 {- t; |% A
RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",",
/ G) ~9 j' z A$ X. s RowBox[{"x9", "->",
* i! p5 O7 Z$ |) u/ h" J4 f7 g' j RowBox[{"Data", "[", 2 T, o, l% T. T1 D! q- B
RowBox[{"[", ; ]- S/ F4 u5 ]5 Y% _' K N
RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";",
7 W' F9 _& M7 q5 \5 \ "\[IndentingNewLine]",
( `0 A8 E5 |3 w, e RowBox[{
* r/ z, D/ {8 N- W J RowBox[{"m60n21", "[", ) g2 Q2 m4 Y6 x, A+ S
RowBox[{"[",
( u/ h$ n+ H7 @7 E1 q/ g RowBox[{"i", ",", "11"}], "]"}], "]"}], "=",
7 q0 K$ ?9 g* v, v: E RowBox[{"u11", "/.",
* Z* _8 @2 G0 ]$ A0 G* F8 V! q9 s RowBox[{"{",
) D9 b% X- I2 r; \' `8 K2 T RowBox[{
7 i) t1 h" l8 k2 e# H1 ~ RowBox[{"x1", "->", + S7 F# Z; {/ _* X1 |
RowBox[{"Data", "[",
! ]! x @0 i9 X0 r& m( Q RowBox[{"[",
: }- a$ z: r |/ T RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",",
7 w( W" E+ c$ j RowBox[{"x2", "->",
! o( n( u! k2 d4 e' G0 h RowBox[{"Data", "[", 9 p3 P) }- O% e. E. |' V( j
RowBox[{"[",
T% o' P- T% s& h: p RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",", " m' |4 I" e- }4 Z5 c+ i$ _
RowBox[{"x3", "->", ) m1 N6 Z# Q0 L$ @9 U4 _
RowBox[{"Data", "[",
* v8 B4 j& \/ ~! i RowBox[{"[", $ J1 x$ |- T4 N
RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",", 1 r1 W' @# Q: e" k* }
RowBox[{"x4", "->", ; P, C; S: T( z
RowBox[{"Data", "[", ; \- v- N8 J T/ [
RowBox[{"[",
. u6 U% E: j0 W9 N. Z. {! F# u" b RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",",
' k5 ~- {" Z; t! o& {; z RowBox[{"x5", "->", ) h0 g: l8 X/ F( n
RowBox[{"Data", "[",
! x$ \' I8 w7 `6 i: K' Q% x! G RowBox[{"[",
( I1 `+ [) I0 |3 T6 B RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",",
3 m. |9 ^6 `6 F! V I$ Q RowBox[{"x6", "->",
5 ~; k& e8 i( u RowBox[{"Data", "[",
& X/ }- s/ c! `; y9 f3 u r, { RowBox[{"[",
) C9 u: k6 e+ X RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",",
0 U) [1 k# C3 o6 Z A+ h RowBox[{"x7", "->", 6 G& ~3 Y( s8 S, @- X
RowBox[{"Data", "[", " U) r( N" P. X c+ s
RowBox[{"[",
: H2 ~! O- u$ A3 s* |8 [* F RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",",
/ r" _+ }1 x: g+ W8 |* m RowBox[{"x8", "->", # S+ S) Q& e: F9 \+ w+ I
RowBox[{"Data", "[",
$ }% n8 w6 M# H# Y; E: }% ` RowBox[{"[",
1 W6 M7 b3 a& W$ e RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",", % h# J [* _9 Q X5 i. c
RowBox[{"x9", "->", 0 L/ v2 U( G0 i0 L- P/ i3 [& y
RowBox[{"Data", "[", ( }2 f$ T8 i& V. w1 W2 T
RowBox[{"[", 7 i4 ^ Z. C5 R h2 B7 a
RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";", / n3 J0 U; l6 c7 K; d( M, r
"\[IndentingNewLine]", * i1 E3 X8 C/ u9 p) W+ z
RowBox[{
- {" E$ W, U' U! B, M RowBox[{"m60n21", "[", , q5 M$ D! @4 V6 B0 Z
RowBox[{"[",
: c) z7 x8 p- K+ w3 z/ ` RowBox[{"i", ",", "12"}], "]"}], "]"}], "=", ) l F/ |0 J% M& h
RowBox[{"u12", "/.", 1 ?/ R" Z6 W1 |6 m5 `2 n3 e
RowBox[{"{",
) t: S9 J9 q5 D0 k }. e$ i RowBox[{
. k6 n' k" E" W7 s" u, D3 s; N RowBox[{"x1", "->",
6 X7 P. q* [* F5 j: U2 l) L0 f RowBox[{"Data", "[",
6 j! ] o1 E3 A# h% T8 q; f { RowBox[{"[", / a: q! [+ g- [7 J
RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",",
3 o" K r+ e* s0 ` RowBox[{"x2", "->", # e* V6 ~5 J* M# G Y* ^$ f; [
RowBox[{"Data", "[",
8 s8 q, p0 g) T: _$ @* j' M9 E RowBox[{"[",
9 Q9 v+ p) n; v$ b& F* B' v f' ] RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",",
$ Q- {2 g+ \7 p- M: ^ RowBox[{"x3", "->", % _8 A/ w- U9 M
RowBox[{"Data", "[", # ]; Y! @! Z1 h/ B- K. ]8 n
RowBox[{"[",
( z3 i0 q2 D* `0 e# H, V; ] RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",",
6 s' o2 r z. g7 V: \) [( D5 p RowBox[{"x4", "->", 0 \7 Z6 T C5 | W5 p
RowBox[{"Data", "[", $ A5 {( f" A& ]
RowBox[{"[", / V* ~" c" ?. v" v0 q% X
RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",",
8 k6 z2 I5 |* ?# m! q. b) |' b RowBox[{"x5", "->",
/ m9 w k7 ?( z. z, P2 d9 { RowBox[{"Data", "[", ! c$ I+ t. p$ J( J0 b! o, h1 d
RowBox[{"[",
1 j2 @+ B7 D9 O RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",", 7 C4 N/ h4 X& k' M( S( D$ P. m( j
RowBox[{"x6", "->", + M6 m/ { ]+ o9 ?# g8 z
RowBox[{"Data", "[", , i! e8 C2 c4 K6 Z+ C
RowBox[{"[",
* b! H0 r" s i& o RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",", ! X& E+ y, }4 Q7 D. [
RowBox[{"x7", "->", * g8 [8 o* g' t+ h2 m- z
RowBox[{"Data", "[", ) i0 S, @ \$ G4 X/ g
RowBox[{"[", : K# ~& {6 p0 I$ P! ~, A
RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",", . G, ]" z7 Z4 H2 D1 d2 V
RowBox[{"x8", "->", 8 }2 [+ Y( t* V" v h! F% G
RowBox[{"Data", "[",
+ ?: N; u! o% I* A- m9 ] RowBox[{"[", 7 i( P/ |' a: O9 c
RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",", 4 S0 ?, T% N! e, ]6 x4 T
RowBox[{"x9", "->",
& Q6 Z8 O( Y) Y' y1 B, l, o: ~ RowBox[{"Data", "[", # }) {0 b1 Q. G, Z) `; p6 [+ t! F
RowBox[{"[", ( H( s8 I4 C7 O) q7 D
RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";", 4 M" Q1 Q( b) U3 Y8 O1 f" q
"\[IndentingNewLine]", 8 ]* v g3 S; Q% M) Y. k6 ^; k
RowBox[{
$ T' k7 Y3 J, l/ r, W! I RowBox[{"m60n21", "[",
6 Q4 ~: l% K! F% L" ]3 I& s RowBox[{"[", 3 _; E) j, i( g) v- R
RowBox[{"i", ",", "13"}], "]"}], "]"}], "=",
5 |( l* s) g b7 v7 x RowBox[{"u13", "/.", 6 ~5 x! \* d' B P6 a
RowBox[{"{", $ O9 M" q# U+ R9 c+ W5 e: A
RowBox[{
4 W. g8 ~" u+ j" W9 W3 a* c RowBox[{"x1", "->",
+ M# o# _1 U+ j RowBox[{"Data", "[",
6 c" j8 E. V: o- h RowBox[{"[",
6 ^ \" c: Y/ `( @# `! A f( ]" L RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",", i5 o; @! j2 ?
RowBox[{"x2", "->",
! @) X) a8 e! V; R, h3 c RowBox[{"Data", "[",
# A" l% d# C t) J# n RowBox[{"[",
! ]4 t4 Z& z* ?& c' g4 i RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",",
. Y7 l3 `$ \1 U" |8 ?& r0 b. b RowBox[{"x3", "->", ! a. C$ I! a7 j4 b
RowBox[{"Data", "[",
; |# W$ b: N- r. D" z/ Z RowBox[{"[", 4 W2 Y8 n. r! C
RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",",
, a+ x; L6 {8 T; z9 C RowBox[{"x4", "->",
1 M& o0 P( S0 B% W2 E3 A RowBox[{"Data", "[",
# b; q. U& T3 x RowBox[{"[",
+ x, n9 Q7 H# s/ w RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",",
" t% E9 ~, E' h$ q2 U( z RowBox[{"x5", "->", V9 i0 L t( h1 h. |
RowBox[{"Data", "[", 1 j* G2 h: D, M% Y8 C; u: j6 b' N
RowBox[{"[", , x" c3 m$ A9 m& X* y! L$ E
RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",",
$ s2 p8 o( k0 @ c, ` RowBox[{"x6", "->", * j# G' i! B1 [% D& M( h( U
RowBox[{"Data", "[", ) O7 @7 ]' C" V6 a. ` e
RowBox[{"[", + K/ Y- q5 b3 I/ N0 Y* P( y( m
RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",",
; S& z, @/ t5 o$ s) j+ L% z% s RowBox[{"x7", "->", 5 x$ p- \* T# H: X$ Y0 i
RowBox[{"Data", "[", 8 p" v. ?2 {& t/ f- M
RowBox[{"[", 3 g, N) w& X( }8 i# O& j
RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",", . O: ~, ^. ?5 z% C9 D& |7 G* J
RowBox[{"x8", "->", ) o" d" ?0 j& d( H% c) E
RowBox[{"Data", "[",
- q+ B0 [2 O( S! ?' @$ f u RowBox[{"[",
! b4 `* o/ M( g- w, Z: i6 q. H RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",", 4 W) X- b) }1 {. m
RowBox[{"x9", "->", . R9 c4 J5 t% p& B0 e, f# C2 A
RowBox[{"Data", "[",
& l' h [ x8 Y# [ i: Y5 f RowBox[{"[",
0 M$ c# j/ z! B1 H( ` RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";",
2 Z* U6 y9 m5 o: `7 p8 Y2 M "\[IndentingNewLine]", ' P0 y. d& f) p, e+ ]% Y: \
RowBox[{" N+ Y8 j1 f0 X% C
RowBox[{"m60n21", "[", ( [. j+ D" {7 e, u3 E8 b
RowBox[{"[", q/ ~; v# L3 `( `
RowBox[{"i", ",", "14"}], "]"}], "]"}], "=",
$ C0 [4 x$ i P+ |4 y! r RowBox[{"u14", "/.", 1 L4 ^- E" L0 N) ]( g* q
RowBox[{"{",
+ D6 s9 ^5 i8 \: v8 Z RowBox[{
/ F# V$ n8 J$ |& [/ S RowBox[{"x1", "->",
) ?' l+ \& F, M( s* | RowBox[{"Data", "[",
/ y& t7 e* C" C, a3 S7 [, _ RowBox[{"[", ; V+ C; {) p, E2 u9 B
RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",",
' n- A9 l4 t: N% Q RowBox[{"x2", "->",
* \( F; g1 |: I RowBox[{"Data", "[",
# R% W$ ]; j' k Z: Q RowBox[{"[", 0 F( H7 R# J& r6 b0 \
RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",", # r& I: }9 V3 N
RowBox[{"x3", "->",
. P' a1 m5 G8 ]& V1 g3 O# w: N RowBox[{"Data", "[",
( Q: G- |: @& F4 R3 L RowBox[{"[",
& P. I! E9 U) x3 j0 V RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",", $ K( m% R/ a5 U1 M2 H- k
RowBox[{"x4", "->", 7 s' g+ q3 n H# h
RowBox[{"Data", "[",
. Q. \# Z" C. I9 G2 ~( q RowBox[{"[", $ A P/ j4 d9 P3 N
RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",",
3 M3 i' K) ~& }2 T9 h# n RowBox[{"x5", "->", 4 r' l5 l: X# }7 ~
RowBox[{"Data", "[", ' o& k" c. l6 Z5 [( u) b. U9 i
RowBox[{"[",
+ \& R# p2 ]3 Q. t RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",", . ~4 u$ W0 H$ F6 ]1 g: @
RowBox[{"x6", "->", ( W* C5 l% `9 ?9 D2 W
RowBox[{"Data", "[", 3 F9 c& ~5 t/ d' @" A. r# M
RowBox[{"[", % R) c/ G0 c+ ^8 r; m
RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",",
: x) [% W) d! l5 V; q0 d RowBox[{"x7", "->", M& j/ X$ E& v/ P* m3 x% j
RowBox[{"Data", "[", ) H" n! h+ e! u! `3 U; i
RowBox[{"[", 2 y8 }. O* X& c/ b! Y' \' a# Q* p1 m3 X
RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",", ! L; O0 c; x" {' i0 N( a2 Q" a
RowBox[{"x8", "->", - y5 H, |0 y0 J! w' m6 G0 u
RowBox[{"Data", "[", / `0 G/ x) @0 w4 B9 H" W
RowBox[{"[",
% s) k% R6 a3 z3 @* H RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",",
$ _4 j% d: B6 g, s+ x RowBox[{"x9", "->", + {/ ?: r& S" x4 m0 c
RowBox[{"Data", "[", / V6 R" B! u/ f3 G, r1 H
RowBox[{"[",
0 D; A: [! h# @. [9 u RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";",
g- V* ^( s! s0 l$ \2 i "\[IndentingNewLine]",
* Z1 O& }; }3 n6 j RowBox[{- R) Y' ]6 i3 g
RowBox[{"m60n21", "[",
7 j% S1 t8 Q: G RowBox[{"[", ! m; B, `. `* G( b
RowBox[{"i", ",", "15"}], "]"}], "]"}], "=",
" X7 e' P* u6 z& x, |6 r7 z RowBox[{"u15", "/.",
" L0 _1 b$ @4 B0 ~% y {% { RowBox[{"{",
; Z6 [ b( t- V8 Z* P' t) ] RowBox[{
E9 K* V, H3 M8 C3 @ RowBox[{"x1", "->",
% @' e5 Q7 c, p5 b$ [+ ]: W RowBox[{"Data", "[",
9 {! |5 u6 \, p; e b n- _ RowBox[{"[",
9 \4 n, y/ y1 ~4 G! f1 n: X4 ], [- E RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",", : ~' q, F! P8 u! e+ k! u; K
RowBox[{"x2", "->",
3 S& N* r2 K: r) d K RowBox[{"Data", "[", : ?- R* q1 g2 s, N
RowBox[{"[", 8 Q8 X1 c0 @1 T6 z; J: g# R
RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",", ; {6 I2 x+ p" w4 l" T k% T
RowBox[{"x3", "->", : v: n7 k% C d1 ^4 @2 A1 p
RowBox[{"Data", "[",
4 @! R4 U# P4 u1 ?1 y. F3 F' J RowBox[{"[", 1 |1 Z' c- `: y0 _$ }
RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",",
* P0 u6 B, v c- j" y* m RowBox[{"x4", "->",
D# u/ o6 b. k, c- r) c RowBox[{"Data", "[",
7 e7 f$ C# ]- U) F2 n" ~0 H4 `9 U& ? RowBox[{"[",
6 m6 b! K! p% P) W0 l+ W# u RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",", + W' D$ I3 W3 S7 M
RowBox[{"x5", "->", ( \& q! J0 J) j. @. U
RowBox[{"Data", "[",
; r4 `8 u& o: H9 H: J; J0 Y RowBox[{"[", ' w! ^- I- q! e4 @
RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",",
" o' l. u& B# f; g! Z: @0 M RowBox[{"x6", "->", 1 R; T4 g% D S" h: T1 H
RowBox[{"Data", "[", : H/ \8 S; O+ E: t8 [) K0 I {4 W- E3 B
RowBox[{"[",
5 Q0 Z* M" o0 ]' f' W; b RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",", . \6 k" w. I/ i, ?6 O0 f9 o9 p d
RowBox[{"x7", "->", 1 n2 k2 i# n) m1 I
RowBox[{"Data", "[",
0 T5 A& M J' n* L0 g2 @' ^/ S RowBox[{"[", " c* W7 ?1 {7 `! V6 N8 _7 [
RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",", " O# W5 d. z1 z) V8 q/ B3 H
RowBox[{"x8", "->",
/ L" t5 X! V+ v) M/ e RowBox[{"Data", "[",
0 v# N4 J5 ?$ X/ [7 @) i7 @ RowBox[{"[",
2 _1 j# g& e! ?: k RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",", " Q/ _- B5 n( G0 X( ]6 W0 Z$ k
RowBox[{"x9", "->",
0 ^) O/ g G) _. E( v" X RowBox[{"Data", "[",
! R. f) K% g# V$ w/ m RowBox[{"[", % T! S( [' v" `* R
RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";",
. `0 W$ e/ H; }4 Z% l "\[IndentingNewLine]", * n% ^! j2 f6 I3 k
RowBox[{7 g1 @5 @0 l) Q6 t/ j, D
RowBox[{"m60n21", "[",
. E; f( S1 u. ^$ N8 E RowBox[{"[",
- E" r; ]$ e/ m- A RowBox[{"i", ",", "16"}], "]"}], "]"}], "=", ' F+ i# b1 y% D, Z
RowBox[{"u16", "/.",
( |1 Q3 L& j. | RowBox[{"{",
+ L, a4 a9 P: {7 N RowBox[{
3 M' [/ ]) g% V4 z j3 B RowBox[{"x1", "->",
0 U# I9 P; b+ q* z* H1 r+ ` RowBox[{"Data", "[",
! ^, w# d c6 I# d* K) o5 ~ RowBox[{"[",
7 S+ W1 J# [2 V# Z% d% s/ U4 f RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",",
8 R/ S5 G1 Z) j [5 D: c8 V# e* q- S RowBox[{"x2", "->", * k) P/ W' R+ |1 z" Y
RowBox[{"Data", "[", ' Z" H' |9 @3 R7 @/ u
RowBox[{"[",
2 B- e. `" V# V/ i, A3 @ k RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",", 7 Y+ W9 ~3 u7 K J8 N: T; }
RowBox[{"x3", "->", 4 }0 n8 a" R1 G
RowBox[{"Data", "[", 2 I2 Z i# v- U
RowBox[{"[",
' t' K( w3 I" m3 q) U RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",",
% A0 o' S/ y7 ~- d' Q y8 W RowBox[{"x4", "->", & I- U$ }9 H1 F, O! g5 ?- z1 P2 B. ?
RowBox[{"Data", "[",
! I, g5 e% r: l7 o$ E RowBox[{"[", # }8 `9 q0 u% }9 y0 E, p
RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",", * p0 L1 [ [) W) P
RowBox[{"x5", "->",
9 x: y: N6 ~$ V* }) g* h0 ? RowBox[{"Data", "[",
0 t# L2 I& X+ x) ~. E RowBox[{"[", 6 R7 v& Z: x5 r
RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",", 0 P( O6 }, Z" ]6 P* R, b' C
RowBox[{"x6", "->", & C! _9 j: i! { [$ Y M* ?* v
RowBox[{"Data", "[", . r# I- d c% u8 U o1 }
RowBox[{"[",
5 S# Y4 P l: s' X: h& s2 {8 h RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",", 7 f1 q5 G; H7 F2 k8 ]9 e
RowBox[{"x7", "->", , W; O. }+ s6 {4 T6 A4 @& ^" ~+ ?4 Y
RowBox[{"Data", "[", 6 W- n0 O7 T! ~. ]$ i
RowBox[{"[",
+ E u& G7 n" ]- \$ l RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",",
$ u6 @, e3 k! X8 b. @8 u; n( b RowBox[{"x8", "->",
8 k0 x+ i1 j7 n7 D RowBox[{"Data", "[", 7 j3 V, q+ [3 z' J* N0 }
RowBox[{"[", * T9 q0 N( g0 V3 Q: m O
RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",",
Z; \- u! I O% M" |5 N% x RowBox[{"x9", "->",
' b* w1 p$ h# u; y0 P6 g K6 `7 u9 c RowBox[{"Data", "[",
, i( @- z1 \* q, N, N; C9 _ RowBox[{"[",
# f7 y" t2 N0 g+ _3 |* a. Y. w RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";", ) g3 w9 T5 B9 `4 G" R
"\[IndentingNewLine]", 6 |, J) H0 T! Y m9 m7 Z0 [
RowBox[{1 i: A6 D# ^+ q6 L( m! j) c* t
RowBox[{"m60n21", "[", . g* i( |% H7 ]( a* M6 [
RowBox[{"[",
% [4 G. E3 z A& { RowBox[{"i", ",", "17"}], "]"}], "]"}], "=", $ X9 `2 D' R B+ n- X% v5 n0 L# M
RowBox[{"u17", "/.", 1 |4 w" v4 w% G! i& v
RowBox[{"{", , [- G! b1 K' D0 O5 [. c
RowBox[{/ \0 Z: H) d" _9 P
RowBox[{"x1", "->",
- x4 i; L) `' y; \2 E7 n4 v RowBox[{"Data", "[",
3 g) M1 [: x) K! L) ]/ p RowBox[{"[", 1 r- g- P; [- a( j8 I6 r: b6 Z
RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",", * _3 a3 d* I1 i/ o
RowBox[{"x2", "->",
0 C9 f' y( \' c( r RowBox[{"Data", "[",
2 {$ Y! o; b L5 Y, k s! \9 T s RowBox[{"[", ) |0 v+ p K9 u, R+ T
RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",",
. o7 g! g+ J4 ^ RowBox[{"x3", "->", & e% @7 _$ }5 L
RowBox[{"Data", "[", - f# n1 ] {' @) V+ a
RowBox[{"[",
( Q; b! e! J$ R# b* b4 u RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",",
! d: }6 e& d* ~ RowBox[{"x4", "->",
8 q; f9 M2 @! X/ ]% k RowBox[{"Data", "[", , d% `2 E$ h$ ^1 E
RowBox[{"[", % E+ k% ^! O( D. Q5 J* i6 l" \5 ] H1 H
RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",",
$ h* l- w( G+ P4 C3 f RowBox[{"x5", "->", ( v Q. X {2 ]- d) Z: I
RowBox[{"Data", "[",
9 |, x( ?! l. A6 d8 h4 N RowBox[{"[", % ?( F& d* m1 j7 H
RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",", % Z" T" q/ ]1 u' ]0 \
RowBox[{"x6", "->", 5 [7 Y5 b2 i7 ?8 B; P" e
RowBox[{"Data", "[", ( L& M( z. V( m3 o
RowBox[{"[",
. b' B Y. d" m) i) j6 w# j1 U RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",",
, C6 r- O8 P- t$ F u& Q% O! L RowBox[{"x7", "->", " F/ ?, h; q7 M2 D1 j
RowBox[{"Data", "[",
5 c/ R( M1 @; I" l2 A: J) @; q7 S RowBox[{"[",
( A# F i: V- w; C3 h RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",",
( o7 h# o ?( i0 y$ O RowBox[{"x8", "->", 0 v1 w2 a+ x. }$ W' c- b
RowBox[{"Data", "[", 7 ~! [/ }8 ~2 ?4 H% J# N
RowBox[{"[", / v. M5 H' v( C5 K' o) X# D
RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",", - S7 v$ }% g/ o
RowBox[{"x9", "->",
. x2 R5 j3 b7 ~9 ^. n RowBox[{"Data", "[",
6 c; H+ c1 {3 L- A RowBox[{"[",
, Z6 B1 q Y% o: b RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";", ) m$ E/ o& O; l) A/ M
"\[IndentingNewLine]",
3 T: I( c) c U0 L( \ X( ~ RowBox[{: R* d+ q6 B( \- Q2 T$ G
RowBox[{"m60n21", "[", # j. l( W& L0 n- s
RowBox[{"[",
. [) N J" m+ ]* l# T% m4 | RowBox[{"i", ",", "18"}], "]"}], "]"}], "=",
% w" w6 _( R: e% t( }/ Q RowBox[{"u18", "/.",
. h ]5 H, W# v6 ?5 E- \ RowBox[{"{", - R+ w! b" T) k3 f
RowBox[{
4 f2 ~7 j2 c7 B$ E1 { RowBox[{"x1", "->",
: `& F& }; | e" S2 g* g RowBox[{"Data", "[", : q2 z' I# o5 W2 \/ }' g9 q
RowBox[{"[", $ E B& i m$ R: W
RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",",
: D' g; t3 B0 ? RowBox[{"x2", "->",
1 M1 N8 S% S+ ?: [3 Z- A RowBox[{"Data", "[",
' ]3 U' p5 Q% E; \- R RowBox[{"[",
# G4 ^( ~( c3 `! E RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",", ! e8 Q4 T; G! Y$ r1 i
RowBox[{"x3", "->",
3 a# G% k# Z( H5 a' B3 u5 { RowBox[{"Data", "[",
/ Y3 r2 g& j/ g, A% v RowBox[{"[", F% ^3 h" y) B3 G
RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",", 1 t9 I: M4 ~+ X% B) @! A8 ]) a2 E; {
RowBox[{"x4", "->",
5 y) |$ D0 N' X& {& [ RowBox[{"Data", "[", : f! c. [+ K( q# u5 T& D% S) N, H, a
RowBox[{"[", 3 H# ?7 U( z0 I# s
RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",", ( T* X: j2 [+ F" \0 m- o+ A
RowBox[{"x5", "->", " G- t# Y0 a$ [# _* v2 o
RowBox[{"Data", "[", 9 p- L4 Z2 C* [2 T
RowBox[{"[", + ? z8 n) E; `7 w# g% i
RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",", ) Z; L% M# t# u4 W4 Q& ~
RowBox[{"x6", "->", % W+ _1 \! D% d) B1 R+ S2 ?
RowBox[{"Data", "[", 2 C+ D4 H v4 G
RowBox[{"[", ) |" l: Z% E( X+ }9 U
RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",",
- O' ]/ M0 g& n. b RowBox[{"x7", "->", % a" @) K0 x8 O/ g/ r' n1 v
RowBox[{"Data", "[", ( Q- \ G' K+ H- P! }
RowBox[{"[", ) p* s I/ J) v! z/ s5 E' X6 ^
RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",", 4 ]4 d" C, q+ F& R- p* P
RowBox[{"x8", "->",
1 h& B- [# v; D# S RowBox[{"Data", "[",
a" [( X7 U* \- ?: G$ Z6 F RowBox[{"[",
2 P2 j U! p* f0 e RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",",
' c$ n. n. N5 `& s7 N$ M4 v) R RowBox[{"x9", "->", 7 q2 U! T: ], z* y/ [
RowBox[{"Data", "[",
$ B" U0 s: j! f! J" a RowBox[{"[",
9 t, D$ u5 \8 k# E6 m# c; x RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";", , _* _/ M, \$ V6 Y2 N
"\[IndentingNewLine]",
' {2 m: I7 h$ u, q$ p# Y: u RowBox[{
3 G: M" Q: Z% J RowBox[{"m60n21", "[", 9 l1 C; p: S; p6 h
RowBox[{"[", - K/ |: r3 }/ i% `5 J- J0 r
RowBox[{"i", ",", "19"}], "]"}], "]"}], "=",
; b' \( O& j; D) m& f RowBox[{"u19", "/.", 2 t8 Z+ d/ i$ z$ @& m" c5 R) K
RowBox[{"{",
3 v7 y# j- w f$ V0 L% d RowBox[{
2 E x. Z9 j4 [7 J) S! G# r( n9 p4 F RowBox[{"x1", "->",
. ]# Y7 _4 R$ B, T, | RowBox[{"Data", "[",
+ Q# J( x6 H6 |6 H2 @9 P RowBox[{"[", % S% X6 e; w# F9 G- Z, }
RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",",
: |8 s* G% A9 O& |8 } RowBox[{"x2", "->",
. k5 M# R( C) }( S: k RowBox[{"Data", "[", 7 I9 }# L1 K, D( D) z
RowBox[{"[", 1 T; p' f F+ \' z
RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",",
# u+ K$ k- \& N1 [8 Y RowBox[{"x3", "->",
. K; N9 v' t/ z# v8 H RowBox[{"Data", "[", 2 k8 H4 B8 |( d5 Z
RowBox[{"[", * {5 Z2 I( E% ]: { W) M
RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",",
; J2 } {, `/ u& A RowBox[{"x4", "->", ' s6 a+ U+ e/ \5 F6 b2 Y
RowBox[{"Data", "[",
$ L- G+ k S7 P5 J4 p$ b RowBox[{"[",
+ H& [! [) [+ }$ z5 b" Q RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",",
S& i# {8 N5 D+ {/ P& @ RowBox[{"x5", "->",
' \; ], [' {# M RowBox[{"Data", "[",
( a3 a0 S k/ K- d) L' w5 C RowBox[{"[",
; |5 M8 E/ T, ] {( T3 A" ?- F0 K RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",", 0 O+ q4 r' V7 ~2 F# [
RowBox[{"x6", "->", {& r5 u* \& b3 E+ b0 o
RowBox[{"Data", "[",
" d) G, h# Y. u RowBox[{"[", - J: D- F( T& P# O9 R3 J6 M9 j3 h. f- _
RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",",
/ t7 w/ l @4 v7 `" z RowBox[{"x7", "->", / G4 g$ i3 f& C/ V
RowBox[{"Data", "[",
a x6 ?* S3 w RowBox[{"[", 0 k# V% u0 Y. x; C0 N
RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",", ; \! ]4 G6 e9 G9 n- `$ m# h: x. H
RowBox[{"x8", "->",
1 ?4 J' w! e6 m5 T RowBox[{"Data", "[", 8 t' Y/ p7 J& ^ U
RowBox[{"[",
" G0 A" K. B0 U4 o/ o, o4 b RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",", H* ^0 C) Z& D( D. Z) D% K
RowBox[{"x9", "->", & m9 w$ `" q) r C1 H
RowBox[{"Data", "[",
, S* Y+ c6 R5 a( Z( b RowBox[{"[", 8 p/ q2 Z9 ]5 B" Q% R
RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";", 8 b: U% g0 ~8 a
"\[IndentingNewLine]", 0 J0 p9 B6 D8 E. O
RowBox[{* \ N" n3 f* m" i, U2 N; J5 H) p
RowBox[{"m60n21", "[",
$ M2 J K) j" b& X% ]5 {. ? RowBox[{"[",
9 C" C7 |1 h S0 n8 k+ q RowBox[{"i", ",", "20"}], "]"}], "]"}], "=", 8 K8 N! G# V* D1 l' r2 ~0 P
RowBox[{"u20", "/.",
+ T2 p8 h7 Y% K/ A9 [3 _. l RowBox[{"{", . g, \- G6 |2 H: V, y
RowBox[{
/ O( C3 C1 q# v3 c0 S RowBox[{"x1", "->",
/ h. r8 Y* i9 Q# O- M6 y RowBox[{"Data", "[", ) y7 k/ O1 ~( U ]
RowBox[{"[",
; A' A7 \. A( b6 f RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",", # y, l% T( p7 c w# n# d
RowBox[{"x2", "->", 5 H+ c9 |8 E7 m3 G7 z0 z. K/ B* [
RowBox[{"Data", "[", 0 p% k5 A/ f# u6 _/ h' r- M& h
RowBox[{"[", $ Y& R) @8 E/ {) f+ p& S/ {& t
RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",", r3 l0 H) n5 Z, K5 X, G+ x ]
RowBox[{"x3", "->",
* Y. C% c4 q" [0 H1 J1 U5 [ RowBox[{"Data", "[", 3 A. v. |4 q6 f' ]
RowBox[{"[",
: Z: }9 Y' ?4 v# @ RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",",
+ @. c7 D r, F RowBox[{"x4", "->", " Z* u, a# ]! L5 Y. k: s- L6 i
RowBox[{"Data", "[", ; q1 ^! i, ~3 D$ j( h- O% N
RowBox[{"[",
# [& D7 D: k0 w, T; i0 |0 F RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",",
0 a0 d3 \3 m9 z0 Q RowBox[{"x5", "->", & p" |2 Y7 E8 C& e
RowBox[{"Data", "[",
; V3 x) {# Q. U3 z RowBox[{"[",
# j& O" G& I6 x RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",",
* j5 ?2 u) v. o" p RowBox[{"x6", "->",
5 ], f& R: ?) S; ? RowBox[{"Data", "[",
3 k7 _1 \0 ]/ P; T' d/ Q, ` RowBox[{"[",
6 W) }" {. @2 A( K8 ^( |* q RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",",
5 ?. |) H2 y1 a9 Q3 J* z RowBox[{"x7", "->",
3 [% T6 K1 f/ `8 N) `: B; } RowBox[{"Data", "[",
6 q4 N" I8 J* @6 O# Q RowBox[{"[", + i1 C, y2 Y2 L
RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",", 3 F' d" i( @4 B: O; |0 N: ?+ h% P+ u
RowBox[{"x8", "->",
" n5 @1 `5 w% _" G. C- N8 r" g RowBox[{"Data", "[",
9 n+ P: W9 s F# C# ]/ X; \ RowBox[{"[", 5 J a- |; Q7 W' z3 b
RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",", 6 n& N" I, ^, R
RowBox[{"x9", "->",
/ @) p7 L: {# y0 r* \4 O }0 K RowBox[{"Data", "[",
# m5 j1 Y4 L n4 C0 ]9 T RowBox[{"[",
% s5 |6 Q1 w3 T f RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";",
; |- r. y4 R" m1 U1 d7 E2 } "\[IndentingNewLine]",
- [9 `3 f0 [) h0 e RowBox[{! B. _3 e9 m. M
RowBox[{"m60n21", "[", ' w4 T/ Y- F+ d) L; B( [- ^
RowBox[{"[", 6 s0 b$ N6 a3 B+ }% [
RowBox[{"i", ",", "21"}], "]"}], "]"}], "=", . s g( j7 C4 J1 }1 q: m" s% ~
RowBox[{"u21", "/.", ) u1 G. P' z5 I+ V' h' b- W
RowBox[{"{", 7 u- S B+ C8 ^$ w
RowBox[{ k4 d! v' K- h* v1 I4 H
RowBox[{"x1", "->", 3 P$ M/ q6 S0 N
RowBox[{"Data", "[",
3 ?: a6 P3 g1 M+ q8 K( V RowBox[{"[", 4 C! t5 A* F8 i* C
RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",", ( x+ A& n* O' q) x
RowBox[{"x2", "->",
1 q' G5 J( t+ f0 q RowBox[{"Data", "[", / ]7 \/ }5 s; e$ K0 w$ K/ x
RowBox[{"[",
! ^# N, F8 l: I1 g8 t RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",",
]3 P) c, n8 V, C' z) `- \ RowBox[{"x3", "->",
; W7 @4 F: }& B# m, @$ V RowBox[{"Data", "[", . j9 F, f. J9 a/ [2 d( s! s& _
RowBox[{"[",
, q: D* u+ R. P! f# F RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",", - T1 Q/ {3 P2 c0 I6 a4 O2 f
RowBox[{"x4", "->", " Z* |( J; v. O( L
RowBox[{"Data", "[",
8 p8 l9 h4 x# M6 k+ N RowBox[{"[", : A) E% m8 g; L; H4 @8 w
RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",",
# Z0 v8 N. F! t3 W6 Y) B: K. i4 A RowBox[{"x5", "->",
2 z5 f! P' Q: q6 ?$ l RowBox[{"Data", "[", : t/ K' v1 F6 c4 k6 G
RowBox[{"[",
# d) l- |$ [6 g4 {, i6 }" | RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",", : _4 c0 A. t3 H, z1 X! E6 @$ X' B% D Q
RowBox[{"x6", "->", 8 L6 ?# C% x$ U0 H
RowBox[{"Data", "[",
* z. m1 k! D# w9 m: i RowBox[{"[",
' j$ d$ u+ ^7 N RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",", 8 s6 v1 s. Z, B$ N
RowBox[{"x7", "->", ) L: o* n0 V7 }8 u- @
RowBox[{"Data", "[",
, _6 R7 r1 ]4 u, M+ k3 @) o. i/ Z RowBox[{"[", % e# r4 l" Z+ U2 ?* `( f
RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",",
0 B5 L) l. B# F% G' C RowBox[{"x8", "->", : @9 S8 Q2 j6 O$ M3 {$ ~, R* Z$ T
RowBox[{"Data", "[",
( [3 p& h1 O! d0 w RowBox[{"[", " W6 _5 w3 K. n
RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",", 8 N1 W! g2 N7 P! q6 O$ n
RowBox[{"x9", "->",
8 G, t7 \( f+ n1 A& `1 J' c# B RowBox[{"Data", "[",
9 @$ ?3 x$ k9 g4 L9 p RowBox[{"[", 3 Q/ i. t0 F) z6 o; ^' c6 K. v
RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";"}],
1 f* r4 k% A7 O& Q' d( E "\[IndentingNewLine]", "}"}]}], "\[IndentingNewLine]", "]"}]], "Input",7 o7 L4 k8 h+ z! V& P$ E
CellChangeTimes->{{3.5779241165*^9, 3.57792417728125*^9}, {
% l8 G& c; V, y# C- k. M 3.57792428359375*^9, 3.577924585109375*^9}, {3.577958919491543*^9,
9 s6 S: W3 H: B- T, N# L, ~/ O7 H 3.5779589224867477`*^9}, {3.5779619825731473`*^9, 3.5779620676400957`*^9}}],6 H9 B1 q+ G6 D
9 W0 p2 {, L1 i% y) y) D
Cell[CellGroupData[{% m1 H Z! ~, }$ B3 y7 Z
' A( O1 E4 B" kCell[BoxData[
& N ?( n# A& q: o0 ^4 {: j RowBox[{"w1b", "=",
/ g" t0 G1 l; K; }, m" r" D9 Q RowBox[{"LeastSquares", "[", . N' [+ X! ?9 d3 A
RowBox[{"m60n21", ",", "y1b"}], "]"}]}]], "Input",
2 q/ v4 b# @$ I- O. j9 f# \1 Z1 B8 W+ X* F CellChangeTimes->{{3.577924598484375*^9, 3.5779246208125*^9}, {
+ x, k: Y) j4 b' n/ Y6 E1 L1 s 3.577924662765625*^9, 3.57792466596875*^9}, {3.5779582865360394`*^9,
2 i* P8 p3 ~; A4 T% H 3.5779582963172565`*^9}, {3.5779622900808835`*^9, 3.577962290377284*^9}}],6 w# i# _$ I! Y/ N% c
- T, n6 y: K1 o
Cell[BoxData[
$ a" y. d! m, K+ \" I% O$ { RowBox[{"{",
1 V2 R) Z6 ]. i3 B" l! H RowBox[{8 O1 o/ _) j) O- w) U
"0.48228184971363947`", ",", "0.16041393254115022`", ",", 7 j" I. A! o, W
"0.3741982811661129`", ",", ' x U s: P6 b2 K; b. J
RowBox[{"-", "0.12620581913715245`"}], ",", "0.28831860112966734`", ",",
' P: g+ Q6 C ]. Q. w3 g5 \- y RowBox[{"-", "0.2282993884666894`"}], ",", "0.3207174990295839`", ",", * @, _$ X8 z; Z+ w2 ^; L# M/ b9 \
RowBox[{"-", "0.4666313851213302`"}], ",", "0.27551257162880227`", ",",
/ z4 C: J0 ]6 S0 l& c RowBox[{"-", "0.025873988843993667`"}], ",",
) E1 z; ]% ]9 K1 z- D# M RowBox[{"-", "0.1339854044819916`"}], ",",
& J0 }+ }4 d& ~1 v0 h/ H RowBox[{"-", "0.15852708848338315`"}], ",", "0.3129687276967983`", ",", ( @9 \5 a: V! W* j, b/ W
"0.45723850991134063`", ",", "0.2954923840077215`", ",", g$ I3 h5 I' s" ~2 u
"0.9125798890455868`", ",", "0.21159052285983104`", ",",
6 N+ \& g$ p3 J" u# a1 R) Y, b1 A "0.5575503376854456`", ",", "0.6019775648968265`", ",",
* _7 b8 i3 i7 R "0.2361524780938108`", ",", "0.12782130225993923`"}], "}"}]], "Output",
( Z0 ?2 u# S1 h4 V" `+ E S+ t' x/ G* v CellChangeTimes->{
, `. [3 {1 ]6 a z- h 3.577924621953125*^9, 3.5779246688125*^9, {3.5779582894220443`*^9,
0 `" o6 `7 Y1 h4 J 3.5779582992968616`*^9}, 3.5779584995700107`*^9, 3.577959040157753*^9,
2 Y. `6 l9 E o1 k+ L, G& D 3.5779622919996867`*^9, 3.578012447734375*^9}]
9 m0 I6 M3 ]& k' x3 e}, Open ]],* K" Y: @2 I4 U! V
9 \: F' O) Z t
Cell[CellGroupData[{/ {3 {0 D* w' _
5 p8 Y7 M0 h$ G, OCell[BoxData[+ T+ v9 ~# @' P$ X+ U6 M# E
RowBox[{"y2", "=", 8 ^2 R. R+ d S( w- y
RowBox[{"w1b", ".", o9 i7 [8 ^% Z: c0 X5 G& M7 s
RowBox[{"{", 3 F, Z+ C0 h! K& w# M1 C4 ^ E
RowBox[{
8 N) ~* t/ ]4 {' H0 E J } "u1", ",", "u2", ",", "u3", ",", "u4", ",", "u5", ",", "u6", ",", "u7", + a6 [1 ]6 j" M, y. h5 Y) c
",", "u8", ",", "u9", ",", "u10", ",", "u11", ",", "u12", ",", "u13",
5 Y) [: g) p4 w, w ",", "u14", ",", "u15", ",", "u16", ",", "u17", ",", "u18", ",", "u19",
& R( `. ^6 S, `" ?( H ",", "u20", ",", "u21"}], "}"}]}]}]], "Input",
$ k3 B9 J/ [* G I# D! R4 m CellChangeTimes->{{3.57792471553125*^9, 3.577924755875*^9}, {
4 d7 s# ] M8 T/ \) | 3.577924897078125*^9, 3.57792491596875*^9}, {3.5779583101856804`*^9,
6 D8 s# }' y8 r0 k 3.5779583178920937`*^9}, 3.5779623163513293`*^9}],
) l# ]3 K7 _1 O. @/ K0 ?1 ~6 g; ~( }% ~
( N X0 ?* i! E; @3 JCell[BoxData[
1 u$ n. N- Y$ ~2 h9 e% ]+ E RowBox[{
8 D" X$ o' h; N% O3 X, Q- _ RowBox[{"0.9125798890455868`", " ", 7 p8 B3 Y/ m$ K8 k. n+ m8 `
SuperscriptBox["\[ExponentialE]",
) r5 L2 z* \8 n% [ RowBox[{"3.141592653589793`", " ",
9 {- T7 P& ]; L! w! [; O; b RowBox[{"(", ) P/ |2 D3 X, A1 a+ w" q
RowBox[{# M) W$ G1 E( L; J A) h
RowBox[{"-", 6 `/ Q. Q& t3 U& W% d
SuperscriptBox[
: a* a0 ^ l9 |9 H RowBox[{"(",
& {4 ~$ F2 B% D8 V RowBox[{1 w" {/ u% @5 @& ~
RowBox[{"-", "0.434783`"}], "+", "x1"}], ")"}], "2"]}], "-",
4 l. Y* G1 { c0 F) ?2 P* P SuperscriptBox[
6 y* J/ t2 S- Q$ W RowBox[{"(",
) j+ ?3 k9 c( e% p6 X: x RowBox[{
) C- P) h# t2 }+ } RowBox[{"-", "0.551785`"}], "+", "x2"}], ")"}], "2"], "-", ! q' m" _2 g3 h5 v- T+ Z7 q
SuperscriptBox[5 Y0 v' ?! x% Z4 _/ k8 E
RowBox[{"(", 7 E$ B& i" r6 p8 s* M8 J! R3 r/ _
RowBox[{- H6 T, V6 K4 d& S5 {" Z
RowBox[{"-", "0.530346`"}], "+", "x3"}], ")"}], "2"], "-", 9 L1 }& t0 F- J {9 B" W
SuperscriptBox[
" U1 A- m' F- W- @) s RowBox[{"(", 7 G1 A4 S1 n% v! ^
RowBox[{
6 z1 {+ A% i; m* l" J1 F9 o3 W8 \ RowBox[{"-", "0.151651`"}], "+", "x4"}], ")"}], "2"], "-",
9 T4 \' i( d n' S# t" k: K5 m" I6 N SuperscriptBox[# Y+ d3 I4 q+ z3 e. t$ }
RowBox[{"(",
: E h) V: `$ x% q$ w7 w RowBox[{) n8 U6 C- C" n O8 {! ?# R
RowBox[{"-", "0.79021`"}], "+", "x5"}], ")"}], "2"], "-",
& ~/ r3 n4 s# t4 p. V SuperscriptBox[9 j7 b) h$ v+ H3 O1 F
RowBox[{"(",
$ K" j; N. j" a- w RowBox[{
! ]* r, R- W: S- `' d RowBox[{"-", "0.529013`"}], "+", "x6"}], ")"}], "2"], "-", 9 y% ?2 {+ G; v9 l2 G
SuperscriptBox[
& [$ E; y4 f' [, y ~* D9 e' A' ^ RowBox[{"(",
1 t4 A# m6 v- A# \( ` RowBox[{
4 r) V6 e, b: w$ z" n; F1 \2 k RowBox[{"-", "0.409756`"}], "+", "x7"}], ")"}], "2"], "-", [6 U) M2 N" j# }0 H% \! v7 T
SuperscriptBox[$ _( N$ P) L; M9 N
RowBox[{"(", 4 S' j& P. X3 x; D6 A% e
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", & `" c" L3 I1 ?
SuperscriptBox[
+ p$ J) i( U' _ RowBox[{"(",
6 Q( w. D1 U, ]2 w3 w RowBox[{2 B0 u$ r; _* O8 j8 b" M) D9 u+ {, q
RowBox[{"-", "1.`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}], "+",
6 B0 Z9 v- [$ I3 c9 q2 i6 r RowBox[{"0.28831860112966734`", " ", 3 j% }, p& a/ I/ Q9 z
SuperscriptBox["\[ExponentialE]",
! G- P7 g/ ~) g RowBox[{"3.141592653589793`", " ",
% _( ?' J% j" R2 E0 h RowBox[{"(",
0 }7 j! g, p, A5 W" U RowBox[{5 m4 ^+ X: a1 d9 ?
RowBox[{"-", ; y' S7 d/ [2 ]) a2 z$ [* D, q1 B4 E
SuperscriptBox[
. I o/ C% m5 y7 m* [ RowBox[{"(",
7 `9 s8 M9 I; A5 ^( U RowBox[{
& V2 J' L! ]% ]- v6 Z RowBox[{"-", "0.565217`"}], "+", "x1"}], ")"}], "2"]}], "-", ?; O/ A+ k+ ~& u- u9 n
SuperscriptBox[
1 X" r4 u" R ?# I% I/ c7 j- L RowBox[{"(", " x* W- ~- n5 t* G2 q0 c7 y* D
RowBox[{
+ ]7 X0 c0 w2 n r RowBox[{"-", "0.71046`"}], "+", "x2"}], ")"}], "2"], "-",
1 c7 d" o' h i9 Q2 w SuperscriptBox[) X0 Q5 Q7 C" R& n) u0 s% {
RowBox[{"(",
2 M& e$ v+ p% Q RowBox[{
: ^6 B' |4 T+ y1 O0 E) m! L9 I" Y RowBox[{"-", "0.64973`"}], "+", "x3"}], ")"}], "2"], "-", 1 r* w3 U/ G# o1 S
SuperscriptBox[
0 B' S0 C# V9 {) o: I8 f3 |0 S$ ] RowBox[{"(",
$ ~4 z3 v5 n) o RowBox[{6 Q- n3 [" U6 Z: e6 J
RowBox[{"-", "0.119897`"}], "+", "x4"}], ")"}], "2"], "-",
[) l) U: L2 j' T; \+ \6 r SuperscriptBox[2 V2 Y" E1 q4 J* {+ ]1 t
RowBox[{"(", 3 E6 ~8 _; z. M7 q' I" j
RowBox[{- b( ^4 k+ I6 j* t+ g6 Y
RowBox[{"-", "0.468531`"}], "+", "x5"}], ")"}], "2"], "-", # c* r: u& j" ^ D$ A
SuperscriptBox[
5 ?. f, v% g+ h5 @4 R' t RowBox[{"(",
a6 c0 Z w2 H0 @' _ RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
% @- Y7 @7 g# I SuperscriptBox[
2 Z# x: d0 V, @& t RowBox[{"(",
1 K$ }& W6 V X' w+ f RowBox[{- ^ J' R0 e# h& @ b+ C. S' e
RowBox[{"-", "0.636585`"}], "+", "x7"}], ")"}], "2"], "-", 8 L9 g8 T# t$ \& w2 ^+ u" D
SuperscriptBox[
+ F* H- ?8 g- o$ I8 r& } RowBox[{"(", 3 D2 X6 Q" x+ s5 ]1 o* R
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
# l( m% m0 h T8 ~3 ^' r/ w SuperscriptBox[
& c2 q% S# U6 } RowBox[{"(", 3 h- I# Y. t. O9 {+ _% ^
RowBox[{
4 A3 Y. ]8 A! j y# t RowBox[{"-", "0.766748`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}], 4 _% P: A$ G+ \" A! Z! F
"+",
( I. w" l) q9 V* T: s! T RowBox[{"0.21159052285983104`", " ", / v7 \2 T( U8 I/ D
SuperscriptBox["\[ExponentialE]",
' M7 R2 M5 L( V2 V* a RowBox[{"3.141592653589793`", " ", - u7 E$ U7 H& T+ I
RowBox[{"(", 0 i/ N, U# `1 N8 d
RowBox[{$ J; ~7 y3 r3 x' k! o+ i# b* F3 @
RowBox[{"-",
# R* V7 x; p6 ?+ S; D" V! o& Q SuperscriptBox[/ \) U% O4 E9 e7 h& x
RowBox[{"(", # M* l0 ^, B# e
RowBox[{2 e2 i% F( H" |- q' R* m
RowBox[{"-", "0.347826`"}], "+", "x1"}], ")"}], "2"]}], "-",
# N1 }" O0 g4 U- e& D SuperscriptBox[
6 _( m2 O8 W$ G7 A' ~( a, I RowBox[{"(", ) F3 k. W+ }8 N6 |/ ^2 u% V
RowBox[{
5 R. l6 G3 `9 Z& S/ e I' w( G& T RowBox[{"-", "0.705444`"}], "+", "x2"}], ")"}], "2"], "-", 6 F* Q& |+ a1 B; c' U5 D
SuperscriptBox[
/ p6 ?6 w& _/ n3 w s( P' d, S3 a RowBox[{"(",
" C, q- {- u. V) l& ^8 f RowBox[{
$ Q3 L; K; k) z% b h$ E; W RowBox[{"-", "0.109343`"}], "+", "x3"}], ")"}], "2"], "-", ! A) O9 `! H2 O5 i
SuperscriptBox[3 N8 b* h y+ `# W" p- w
RowBox[{"(",
" y4 G8 I' `8 B! y1 C RowBox[{$ p% f0 d: f9 P( }! w4 l* w
RowBox[{"-", "0.072008`"}], "+", "x4"}], ")"}], "2"], "-",
# L. f+ R2 _ E! Z- ? SuperscriptBox[
3 e. F3 c1 V+ l: w RowBox[{"(",
" t% b% z+ ^" A$ |& l! I RowBox[{8 I" @1 n! ^* {6 R& v1 D8 b
RowBox[{"-", "0.496503`"}], "+", "x5"}], ")"}], "2"], "-",
. f+ z5 e% H7 L$ n$ j' D7 m SuperscriptBox[) W7 H1 V# j# `( Q2 x! V) ^
RowBox[{"(", K. |5 A0 Y) Q9 o
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", 7 d" @ S h# B2 T3 V+ z. r
SuperscriptBox[
% f; ~$ n' }% p' i9 Y0 k2 Q( L+ | RowBox[{"(", 5 O+ _$ ]* h1 s, h" t3 _2 b& }2 g ~
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
1 k2 C% Z: ` J! [# j' d" C SuperscriptBox[
7 v ^0 V1 [! o+ k RowBox[{"(",
# C1 A: ^# o$ B0 s7 K/ P' y RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", ! }0 H4 `% W) Z1 x. V! c
SuperscriptBox[+ e( _3 x( ?0 j$ t2 n4 J0 w Z3 T
RowBox[{"(", 5 ~7 B) \! \% A7 H) d" p2 ]9 E
RowBox[{
! W5 A9 H8 ]8 k RowBox[{"-", "0.752567`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}],
% ^# ]% s& |' j) u "-", ; q" J* }0 x9 G5 s
RowBox[{"0.2282993884666894`", " ", / Z/ z/ p( {" T% a5 R
SuperscriptBox["\[ExponentialE]",
7 k2 N T/ p y6 M3 O- j RowBox[{"3.141592653589793`", " ", ' ^ u! X1 y6 e g2 S; W- }$ G5 k( R
RowBox[{"(", 1 Z% v# \9 F q [
RowBox[{
, l$ o6 [/ O* m U# {3 }) M RowBox[{"-", 6 y$ \* a. H/ ^
SuperscriptBox[
3 p1 c, @3 l7 m2 h$ [# ~ RowBox[{"(",
s' j' _) j# x' c) I RowBox[{# x5 }' P8 v7 r! F
RowBox[{"-", "0.130435`"}], "+", "x1"}], ")"}], "2"]}], "-", 0 z" U- h7 E+ y& e6 p
SuperscriptBox[4 z; p s0 c% h. a" Q- X
RowBox[{"(",
2 D/ K' z" H$ X2 e8 m+ I RowBox[{, Q7 a- Y' }' Z
RowBox[{"-", "0.682724`"}], "+", "x2"}], ")"}], "2"], "-", " D" O6 ?# E# v7 Y
SuperscriptBox[
1 ^/ \: P1 m3 k4 G" f+ S* j RowBox[{"(", + J7 M) s" S; x" [6 Z
RowBox[{+ P! F% {+ q; l
RowBox[{"-", "0.258697`"}], "+", "x3"}], ")"}], "2"], "-",
# F/ S( L* @" r7 c7 T' } SuperscriptBox[2 `0 l E+ d' a
RowBox[{"(",
/ M, S8 R9 a: p+ }' Z( }( q( U RowBox[{
+ @) O0 T4 r5 F$ V# p# E: N8 v6 P RowBox[{"-", "0.019299`"}], "+", "x4"}], ")"}], "2"], "-",
5 W$ U8 d0 [: W! Q2 C6 Z# i SuperscriptBox[" U9 N) z# c) j2 w
RowBox[{"(",
; ^( i F' S' W/ Y4 e RowBox[{
6 N" Z3 d) \( c( G; P6 C7 s RowBox[{"-", "0.51049`"}], "+", "x5"}], ")"}], "2"], "-",
$ ^9 @$ ~$ u- F# f5 G SuperscriptBox[
' O4 f/ b0 s7 I/ D' G- p. `0 x7 | RowBox[{"(",
& ^, K2 V# b; @ RowBox[{# Y" t P6 r. _( h0 l. j$ i: B
RowBox[{"-", "0.420497`"}], "+", "x6"}], ")"}], "2"], "-", 0 S- Q0 P9 E- `2 j) a
SuperscriptBox[: n, Y) ~8 P& S f8 }' m5 Y
RowBox[{"(",
5 L7 F/ C, n( r. c2 V RowBox[{, t) M" c. L+ @ T
RowBox[{"-", "0.535772`"}], "+", "x7"}], ")"}], "2"], "-",
|1 O5 o- [9 o) b- Y2 o. X' q' \6 g SuperscriptBox[/ J3 Y9 |3 w3 {( I
RowBox[{"(", , S+ `) y6 h1 j
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
+ p- e9 A9 z1 S- _2 j- ~4 ~ SuperscriptBox[
6 [# l; s7 }4 ?7 e RowBox[{"(",
7 q) C9 q) @: j0 a1 Q RowBox[{6 n1 b' E1 ^ z, \
RowBox[{"-", "0.494866`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}], & H4 j9 m+ f7 ]' O" ]0 Y6 Z
"+", : J/ ~+ h" [) B
RowBox[{"0.27551257162880227`", " ", + ~) h* V2 l8 `# `2 j
SuperscriptBox["\[ExponentialE]",
- ~( P6 |) \; s( n RowBox[{"3.141592653589793`", " ",
% P o+ _7 `( a }$ y9 L/ D RowBox[{"(",
+ n1 w2 V5 G$ Z: s RowBox[{
* Q5 n+ Q* N, U6 d" E RowBox[{"-", $ w) T% \. Z7 l
SuperscriptBox[
5 o: G5 G; g0 k* Z3 T0 | RowBox[{"(",
8 ]+ { V# Q: d RowBox[{"0.`", "\[InvisibleSpace]", "+", "x1"}], ")"}], "2"]}], "-", " } T3 l" U# A* \& A
SuperscriptBox[2 E% C. ]) g. a
RowBox[{"(",
1 G% j* K: |5 e1 A/ r/ \ RowBox[{
$ X W! y# q+ p1 F# o RowBox[{"-", "0.395544`"}], "+", "x2"}], ")"}], "2"], "-", C7 F# e8 w' H* F& `$ k f, s
SuperscriptBox[
( @9 H4 w- L0 z0 |( D N) ] RowBox[{"(",
( w% k' G& v# f: X# k4 u- f( ]! P RowBox[{
, z( @4 i' _, V: e A* N RowBox[{"-", "0.027011`"}], "+", "x3"}], ")"}], "2"], "-",
7 x, v1 c% _9 I SuperscriptBox[/ G, _0 {( g! s s
RowBox[{"(", k9 H3 i! r$ O# P# V( d3 P* Y
RowBox[{
; L- Y6 ^& P# ^8 W RowBox[{"-", "0.048087`"}], "+", "x4"}], ")"}], "2"], "-",
- V c7 D2 w: r+ |. |! H SuperscriptBox[
+ q4 q" h, p6 j2 E RowBox[{"(", 6 H1 r* |& V* c6 j- V
RowBox[{
0 Q$ C1 n0 h' b, U1 {; ?! z RowBox[{"-", "0.496503`"}], "+", "x5"}], ")"}], "2"], "-",
( [: T2 r* s# _ S" e SuperscriptBox[2 _' S- Y& Y0 o* ~
RowBox[{"(", 6 w6 c/ e0 o6 k1 v$ x
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
- @- r5 }1 D# ^/ l* \. U SuperscriptBox[( ]5 Y. M! N5 {6 T" v+ l
RowBox[{"(",
: p; F( N* c9 f RowBox[{
% w3 ], Z& w9 `8 s6 D- [2 U RowBox[{"-", "0.452033`"}], "+", "x7"}], ")"}], "2"], "-",
9 n7 y& n& S9 o$ x SuperscriptBox[/ I3 f# `+ f! P" X/ X6 o& C
RowBox[{"(",
% C2 ], ?- S' m1 m0 V8 e RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", / a; A( G& H+ b4 Q
SuperscriptBox[- n: V i' d3 g3 w8 y
RowBox[{"(", * X, ?. d& d4 e) V
RowBox[{
z8 n- g0 O) Y6 X1 M' s3 F RowBox[{"-", "0.278729`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}], ( _9 }# \/ m, B3 ?1 s
"-", ! e2 I, r- l" f
RowBox[{"0.12620581913715245`", " ", 5 o& T- U7 m4 M; E. L i
SuperscriptBox["\[ExponentialE]",
$ \6 Y$ s2 a, Y/ v RowBox[{"3.141592653589793`", " ", % X- \/ y5 a0 K2 a6 n( Q
RowBox[{"(",
* K/ v7 m& ]1 z$ Y3 C( t RowBox[{" o! G6 K7 _" E
RowBox[{"-", 6 M8 U+ L% H8 S2 {9 P
SuperscriptBox[) ?: s+ C! o+ T1 {/ w% M4 h
RowBox[{"(", ; L( t# [' W* i' P0 \) g+ m
RowBox[{
2 g. f; u, h; P9 y RowBox[{"-", "0.565217`"}], "+", "x1"}], ")"}], "2"]}], "-", 5 W$ ]3 c5 y8 m7 B$ G3 _
SuperscriptBox[
$ E3 M) X. c; r, L6 l$ ^# c% l4 d RowBox[{"(",
( b9 Y& u% w; e, V. [6 C% f& u RowBox[{ |* ^5 [; X) v. q( _1 H
RowBox[{"-", "0.705518`"}], "+", "x2"}], ")"}], "2"], "-",
9 H/ D' r0 w8 G) C; X. } SuperscriptBox[
R6 M2 C$ _( {! s0 U5 t- \ RowBox[{"(", 2 w2 S3 b- O l9 _1 ]1 d
RowBox[{1 f- J7 \4 n- ]7 L2 j4 g/ A
RowBox[{"-", "0.510223`"}], "+", "x3"}], ")"}], "2"], "-",
, @1 _1 E; G1 i, x$ m5 z) s SuperscriptBox[
, d1 k D& T+ m' y0 n RowBox[{"(", 3 t% Z ], B, p' e# O [
RowBox[{& V* a! a/ Y0 o/ e6 A8 k( l
RowBox[{"-", "0.066892`"}], "+", "x4"}], ")"}], "2"], "-", ; q" x/ I" O: A3 _: y& g4 p: U
SuperscriptBox[
% I% e- p0 B1 T7 { s0 |5 ^) i8 F RowBox[{"(",
; H; X) h' c% R1 J( ~" C7 J; B RowBox[{/ N0 G( a% Q/ m9 C* q" W
RowBox[{"-", "0.244755`"}], "+", "x5"}], ")"}], "2"], "-", ' \" s! c7 z$ F5 `0 o! u( R1 v. i' \
SuperscriptBox[6 v% I' N) W* @
RowBox[{"(",
0 l q1 g* H: p1 Y6 ?8 _ RowBox[{( P K9 S* @; Y! `4 }' @( Y) f$ I
RowBox[{"-", "0.748304`"}], "+", "x6"}], ")"}], "2"], "-",
* P, E D* m/ g2 D SuperscriptBox[
2 g( o9 Y9 z0 I% V RowBox[{"(",
5 d" H' Q9 T/ P3 Q6 j4 E3 ^. _4 G RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
& B4 }! S! g7 S/ `/ I( l/ e" q9 J8 P+ c SuperscriptBox[' _% R/ H2 Z# H* M; w
RowBox[{"(",
% f9 N; X+ F f! u8 m6 F! n RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
$ \+ t3 @0 W' L5 A: k SuperscriptBox[
7 o- e$ ?9 t* a+ N/ ~/ H RowBox[{"(",
( M9 t- \) L3 A+ w2 ?0 x4 o: D. z RowBox[{
* ^" p: d* Y/ n" e0 U RowBox[{"-", "0.243032`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}],
6 K2 ]. Y7 Y- A3 j A' t( @ "+",
* j9 h. q- B6 b5 A RowBox[{"0.12782130225993923`", " ", $ n2 g9 C, `3 D! Y' [
SuperscriptBox["\[ExponentialE]", ) l0 k+ e* r6 n* S# X/ w
RowBox[{"3.141592653589793`", " ", ; S1 w9 D) k1 X1 ^9 v8 h
RowBox[{"(", 2 m) R- x- s; V" l
RowBox[{6 U9 S3 O. l( f' v' y
RowBox[{"-",
2 q& }0 T6 q/ n8 k/ N2 O SuperscriptBox[+ h# s! W( P. d2 B1 b
RowBox[{"(",
9 X6 w* L$ U7 O7 Z# K7 d RowBox[{( Q5 g- v3 C$ V& G# I3 I
RowBox[{"-", "0.608696`"}], "+", "x1"}], ")"}], "2"]}], "-",
, i9 a' d: p7 g( I2 r SuperscriptBox[6 z, i& o: ?( [; B
RowBox[{"(",
; W7 n6 g. Z) L& Y7 b/ z1 `; | RowBox[{& ?! K8 g9 U" X4 p. `
RowBox[{"-", "0.606152`"}], "+", "x2"}], ")"}], "2"], "-",
) m# G) N* {( s" z* `0 j8 {! G SuperscriptBox[
I7 @* x! M; y RowBox[{"(",
7 q# h }7 J5 m9 h RowBox[{
$ E. x" b' V) M$ z" e RowBox[{"-", "0.158058`"}], "+", "x3"}], ")"}], "2"], "-",
2 S8 X: Y* E4 z3 b# S' n8 h SuperscriptBox[
1 D1 [* Q9 d8 S' d0 w RowBox[{"(", , x o' z. U$ D6 h/ q; D1 F' b
RowBox[{
8 ? `( P" Z v( j* {+ v RowBox[{"-", "0.09017`"}], "+", "x4"}], ")"}], "2"], "-",
! |' V$ U( I$ t$ ?: A SuperscriptBox[
% X" o9 {; T# m RowBox[{"(",
8 h1 ]7 @5 Z' X7 D+ k) K RowBox[{
3 T& U8 X. _3 S( Q+ K/ g RowBox[{"-", "1.`"}], "+", "x5"}], ")"}], "2"], "-",
* Y( J. C# {! n+ a- X SuperscriptBox[
7 o( n( [/ N! }& A2 p+ f+ M RowBox[{"(",
- R, `' ^2 Z6 r4 n/ n8 q RowBox[{
/ }2 M% X5 C' g# G; d RowBox[{"-", "0.166541`"}], "+", "x6"}], ")"}], "2"], "-", 2 a( j- U: N2 ~! s& P& o6 _
SuperscriptBox[
8 e: O2 \. S* x; b2 } RowBox[{"(",
6 n1 x1 v7 y6 D4 {+ E0 `" K RowBox[{
/ r2 X) g( J2 n6 Z' c# f RowBox[{"-", "0.278049`"}], "+", "x7"}], ")"}], "2"], "-", : A$ T% |4 C5 H; j1 l
SuperscriptBox[
' i' z" w) m+ k L0 s RowBox[{"(", . _, ]/ ]! r4 _ j0 O5 J
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", # f E+ B2 z" \! {
SuperscriptBox[, O( n$ J* ^" N* {- J. y( [
RowBox[{"(", + x8 r2 z& y' S& a5 ?$ m
RowBox[{2 T+ o8 Z9 E3 q! z
RowBox[{"-", "0.236675`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}],
7 B4 W( `5 L: n$ `7 i4 J j" Q "+",
* L# U9 v- R' t' S) ~- ] RowBox[{"0.2361524780938108`", " ", : Y0 \5 i- ^% v
SuperscriptBox["\[ExponentialE]", ( p9 J; S' |- [, G' f
RowBox[{"3.141592653589793`", " ",
1 S3 x3 b# p# k" e2 M% \" g RowBox[{"(",
u7 ] O& t0 w. b! p0 c RowBox[{
4 n* z$ B2 l" z5 R RowBox[{"-",
- A. e9 i9 L* q( z: n SuperscriptBox[
# E5 O$ n$ H5 e0 o9 T. E% g* j RowBox[{"(",
* k8 U/ D5 c% [7 x' n RowBox[{1 L+ Y! ]1 Y. U8 C- w3 c7 m
RowBox[{"-", "0.782609`"}], "+", "x1"}], ")"}], "2"]}], "-",
1 i9 @' i, ?8 ]( S6 j7 d SuperscriptBox[2 u0 G7 I4 t- H. U8 V7 a" j0 Z+ y
RowBox[{"(",
0 H, X( Y- z1 d RowBox[{9 h" J* G/ }' |. w% u% X
RowBox[{"-", "0.751623`"}], "+", "x2"}], ")"}], "2"], "-",
8 I$ Z% C/ M% e! V SuperscriptBox[
# M, t2 y% |0 o' w$ e RowBox[{"(", X# z' |8 ?" D" x( B
RowBox[{
. e4 x# d* j3 K5 f x RowBox[{"-", "0.177646`"}], "+", "x3"}], ")"}], "2"], "-",
( M3 P/ t5 C& {& S3 |* Q! E SuperscriptBox[
$ @" F8 e/ _1 i6 t, P/ o1 ^ RowBox[{"(",
" d5 b$ V% V" \0 X* X RowBox[{ T% O8 M2 `% L! T
RowBox[{"-", "0.350845`"}], "+", "x4"}], ")"}], "2"], "-", ' [" W( Z9 \8 W* f5 t
SuperscriptBox[6 ^, u! g d1 j% V5 T, }
RowBox[{"(",
* I2 V) i6 E' X' e2 U1 F0 V) { RowBox[{$ ~# D& j! S/ U; ~
RowBox[{"-", "0.412587`"}], "+", "x5"}], ")"}], "2"], "-",
$ o& `! w% N! {1 R' ^) ^ SuperscriptBox[9 e2 l. U( c9 E, T- ~6 M8 S
RowBox[{"(",
/ i# z/ g# I- }6 t9 d. W- n2 \0 o RowBox[{
1 @, h7 U8 H6 k! ~5 l8 s. ` RowBox[{"-", "0.502638`"}], "+", "x6"}], ")"}], "2"], "-", $ S; Z$ B n, ?- V
SuperscriptBox[" `7 M/ l2 l9 I# P
RowBox[{"(", # i8 o g9 h' X1 L+ H0 x9 x
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", }! ?( r% u4 e! ?
SuperscriptBox[; A" F4 l" q& O0 e# ?0 K
RowBox[{"(", $ i) S8 q( ~3 ^3 c q$ a
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
; Q* T% C6 D5 }/ P( G# g4 L1 `) h SuperscriptBox[* a# P, M( d" ^; A* a: \' e
RowBox[{"(", 3 V" v1 i) X; @" E+ E% |" b% O% Q
RowBox[{* V/ m* B5 \" }* [3 Y' h
RowBox[{"-", "0.178973`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}], + p9 B Z5 \4 g/ p* p7 Y0 ?0 k1 V
"+",
. z5 R; h1 q5 j+ t RowBox[{"0.3207174990295839`", " ",
9 t8 L5 F/ T/ `. i! l, Z SuperscriptBox["\[ExponentialE]",
0 A& ?& C' q8 F' w. m3 J* E% K0 I RowBox[{"3.141592653589793`", " ",
! R( f$ I. K+ \# `' }( Y" E RowBox[{"(", * f2 m' m5 R# b! @
RowBox[{( u/ g6 G' ~- m
RowBox[{"-", 2 b6 X2 J* m+ H, \( p
SuperscriptBox[6 J2 A0 x6 H- I8 K+ V
RowBox[{"(", 1 I& M3 N1 v, K# ?/ h
RowBox[{2 d4 p+ K7 P& I: k$ t
RowBox[{"-", "0.695652`"}], "+", "x1"}], ")"}], "2"]}], "-", + U C6 v$ V4 {2 g! z& S8 w
SuperscriptBox[ U% t1 X6 @: Z+ p0 N1 J3 `
RowBox[{"(", 2 \! [+ [, E; {; C6 B# Q
RowBox[{& _$ r! q) ?! R6 ]* I& X
RowBox[{"-", "0.71828`"}], "+", "x2"}], ")"}], "2"], "-",
0 B4 X& n3 z. ?3 O) W- e& ` SuperscriptBox[# _8 T% A# V- ~+ x5 i" G4 `: m
RowBox[{"(", . E! S! [/ O% d3 W9 B
RowBox[{0 O+ {7 i H9 h3 O) R K: B2 P$ {
RowBox[{"-", "0.33973`"}], "+", "x3"}], ")"}], "2"], "-", / f1 u* z5 X( l6 R, P
SuperscriptBox[6 e+ R9 m G! x8 e/ `" X% _
RowBox[{"(", # V$ D3 Q- m8 U1 I `* {7 z! H
RowBox[{
# |& }1 }7 L& H RowBox[{"-", "0.110285`"}], "+", "x4"}], ")"}], "2"], "-",
, ?) a: ]6 x1 q6 e3 ` SuperscriptBox[0 }7 a% P2 P7 Z& s* f+ t2 I! _
RowBox[{"(", 8 x$ Z( O! a |9 E7 y
RowBox[{. Z* I& ?+ e- U2 k1 R# k2 q& |# q
RowBox[{"-", "0.335664`"}], "+", "x5"}], ")"}], "2"], "-",
$ ?8 e" M: {7 \) } SuperscriptBox[
, A. o3 }0 }0 Y$ v% i6 R$ J RowBox[{"(",
% ~8 h8 r+ F% s& k* h RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", " e2 L) X, q4 K2 m& \! E: m
SuperscriptBox[+ c9 d! f3 z- ~5 w X
RowBox[{"(",
, k W0 r/ J* l3 Q+ f RowBox[{: u. {; p$ `( y' j- K/ U
RowBox[{"-", "0.636585`"}], "+", "x7"}], ")"}], "2"], "-",
1 N1 U8 d" D5 e: c: c SuperscriptBox[
1 t! \# K) a) o3 N* F% K0 o RowBox[{"(", " o/ S4 B) Q9 e5 |( S6 D
RowBox[{
- _5 R( U4 v! a! `8 d RowBox[{"-", "0.780463`"}], "+", "x8"}], ")"}], "2"], "-",
# j9 m* P. N! P- D, ~3 o5 e5 N SuperscriptBox[
3 Q" R7 p9 v1 L RowBox[{"(", # \8 e9 Z" i1 m$ K
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], % _) B B @- Q. p! o6 [
")"}]}]]}], "-", % F5 ^7 U; J! D" G$ d. o
RowBox[{"0.15852708848338315`", " ", * N- I, N+ Y8 H
SuperscriptBox["\[ExponentialE]", 4 `5 \; R. C/ m6 y# H
RowBox[{"3.141592653589793`", " ",
2 L. y% m) I4 k4 u% `: | RowBox[{"(",
8 e# `# O! U. _) Y/ L0 u% h3 t; U RowBox[{. }- O( L8 r7 I7 b
RowBox[{"-",
8 O9 S# `' ?8 ]; i) R SuperscriptBox[, s* ^; a! v# V0 Q$ s
RowBox[{"(", 4 [4 Y/ \. x; F' e9 X
RowBox[{
7 G) E( N% o9 s5 n RowBox[{"-", "0.913043`"}], "+", "x1"}], ")"}], "2"]}], "-", $ g7 G4 n' _) |
SuperscriptBox[- m1 T* U7 ^# J
RowBox[{"(",
- p P- d# W& n; u; d O, j RowBox[{
v+ V) j2 G& ~ RowBox[{"-", "0.170478`"}], "+", "x2"}], ")"}], "2"], "-", . h4 p2 {# {, o _8 A
SuperscriptBox[
. H! ^8 {, F/ s4 H8 m) x; H RowBox[{"(", 5 v/ A7 O# f' u0 j5 e2 x; k
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x3"}], ")"}], "2"], "-",
% S7 N4 b; |. s: J. E SuperscriptBox[0 l2 u" o* I- f( d
RowBox[{"(",
e" K, ^4 c+ h: M5 V" [3 Q RowBox[{
B/ W# X# Y5 [4 W RowBox[{"-", "0.012973`"}], "+", "x4"}], ")"}], "2"], "-", ( Q9 h7 ~/ O0 K3 l) T) p
SuperscriptBox[
$ S2 x# t# l( ^$ n' r% L RowBox[{"(",
6 J) O7 x3 ~/ S( R# s0 F RowBox[{6 ?- O! n3 |4 J* b, T
RowBox[{"-", "0.293706`"}], "+", "x5"}], ")"}], "2"], "-",
! z; N# ?8 v/ t SuperscriptBox[/ [, T8 {! V! m' s
RowBox[{"(",
" y$ E9 f _" f RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", - d( \$ o; t6 N* G K
SuperscriptBox[
( u8 C/ p8 W5 e# a9 x5 @* g& B0 X RowBox[{"(",
$ B' q7 {9 @- v# q RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
, I6 W2 R8 H F2 f+ f SuperscriptBox[2 ` @* | L4 r
RowBox[{"(", ) b ^1 X/ I2 J0 o1 j
RowBox[{& T" o! `) ?9 \. L$ i6 \- W9 B
RowBox[{"-", "0.672709`"}], "+", "x8"}], ")"}], "2"], "-", 6 Q f5 m; [$ H2 P' F2 D
SuperscriptBox[
^% e @6 z9 o& \. w; i) ~ RowBox[{"(", 6 X! F& k- z& ?( @ P
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], : r/ y4 o4 g4 Q( D4 H! N& J, w# M
")"}]}]]}], "+", m0 X- |- X( t8 `7 d
RowBox[{"0.6019775648968265`", " ", . _. @' C" e" R! r* I+ j0 E4 _$ D
SuperscriptBox["\[ExponentialE]", , K. r9 k: L# e+ x
RowBox[{"3.141592653589793`", " ", # S6 c9 K2 J1 M& D
RowBox[{"(",
+ s8 Y: ~: [6 I( y0 g- F8 ]% l5 }: t RowBox[{
, Y7 a) ^( b. H) S1 k( Q3 p) I RowBox[{"-",
* a+ p' [8 q/ P- Q. B. ]- x SuperscriptBox[- ^1 D1 ?4 L0 r% b5 J \
RowBox[{"(", & o: H4 V! ]- c+ _9 R+ t: ?
RowBox[{8 G/ p* c0 `! X. Z
RowBox[{"-", "0.391304`"}], "+", "x1"}], ")"}], "2"]}], "-", ' _) H. i! ^# r" {+ [/ D8 l) {0 ?
SuperscriptBox[
1 s) E) \# l! V& A! A RowBox[{"(",
2 o2 }% z' ]: \: j' \* P RowBox[{0 [) w+ h8 K3 {
RowBox[{"-", "1.`"}], "+", "x2"}], ")"}], "2"], "-", * p% V+ X* @4 R u; M/ |
SuperscriptBox[3 p5 w1 ]* w* [2 S0 D. e
RowBox[{"(",
" b9 r# G3 E$ K( }5 K: F+ ^/ {1 Y# K9 \ RowBox[{; ]+ N) b3 ]0 _" z" i4 q9 F2 J2 B
RowBox[{"-", "0.452931`"}], "+", "x3"}], ")"}], "2"], "-", & I# s3 s+ U# G0 r: B! x) m3 }
SuperscriptBox[
/ Y% v4 I% E6 i* I2 M' }/ R, i2 z* F RowBox[{"(", % B! S) Y ?7 H
RowBox[{
! l" A5 ]+ F6 e/ H o3 J F8 | RowBox[{"-", "0.150909`"}], "+", "x4"}], ")"}], "2"], "-",
: d, w5 [1 h; D' R SuperscriptBox[
+ l, |+ G& h8 E3 F$ N RowBox[{"(", 1 _" Z2 _) D. `& T% J( Z$ I
RowBox[{
1 [( q3 V4 i% {3 L% o RowBox[{"-", "0.342657`"}], "+", "x5"}], ")"}], "2"], "-",
3 l* P- b2 n ]2 z& P SuperscriptBox[7 x. S2 s7 L+ U/ ~& N3 A$ `: k
RowBox[{"(", 1 o, k! j6 f/ ]2 k
RowBox[{
; K/ z/ Z& B2 g2 I0 H: \3 f RowBox[{"-", "0.370761`"}], "+", "x6"}], ")"}], "2"], "-", 5 H1 u& C" q2 p- I" C
SuperscriptBox[
% v) o8 A( U/ V! X1 u/ b# f$ U7 m# ` RowBox[{"(", / ?$ x+ D4 L9 |$ d6 e6 ]
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
1 y* @9 k' x+ ^. g% d8 q- A2 V SuperscriptBox[
2 [0 V% s, U1 b" [' _! I RowBox[{"(", - Z9 y2 Q- ~" O: ~. S) N7 P# B. x
RowBox[{
) u* e7 C. S4 `- y, @8 o: @/ v RowBox[{"-", "0.509567`"}], "+", "x8"}], ")"}], "2"], "-", & t( ^' j! Q2 f" z- Y/ z# Z1 J: u# [
SuperscriptBox[
7 ^. Q) b2 Z- Z9 C" k0 V RowBox[{"(",
7 q! D4 W! X6 e RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
3 |: V+ t: A ~0 D, U& s ")"}]}]]}], "+", ( X" A# ?0 ?! l9 l0 u
RowBox[{"0.16041393254115022`", " ",
7 o; a5 _; W2 e2 N SuperscriptBox["\[ExponentialE]",
" O V6 f& m& G) A: l, R RowBox[{"3.141592653589793`", " ", 4 ]# @9 |3 v s6 d
RowBox[{"(", ) `( v w! M* ]% q4 s& X" X
RowBox[{
: \7 u. v! b" r RowBox[{"-",
$ R6 @7 V1 z4 P9 |6 a$ L6 s SuperscriptBox[1 r# ]* Y4 z5 r$ S8 I& G: Z
RowBox[{"(", d% @) u3 b7 h9 G6 x
RowBox[{
) `8 D( a: j: k: Y& Q. P RowBox[{"-", "0.608696`"}], "+", "x1"}], ")"}], "2"]}], "-", ( f ~4 i6 `1 u3 X/ V
SuperscriptBox[
/ d0 z3 W: T! Z* S) T2 A RowBox[{"(",
1 u" W: T( h" M1 u RowBox[{0 E+ c: b6 i- V& n) l
RowBox[{"-", "0.339186`"}], "+", "x2"}], ")"}], "2"], "-",
" ^2 C/ {4 D' |) S SuperscriptBox[! X- B1 {# ]2 c3 J8 K8 [7 i p5 ]
RowBox[{"(", 3 p& y+ o" `: C" `6 J
RowBox[{" P* A) X( s& D, o! ]. R
RowBox[{"-", "0.4943`"}], "+", "x3"}], ")"}], "2"], "-", % S, w: `0 P- ~5 L
SuperscriptBox[
/ r3 X& t2 C1 b I RowBox[{"(",
1 b: l- }4 Z' |( \3 P+ u S RowBox[{& }8 g! z9 w! q; }5 u
RowBox[{"-", "0.099338`"}], "+", "x4"}], ")"}], "2"], "-",
8 T, l; R1 a& O1 @9 D SuperscriptBox[
" ?: M1 G( A. V4 [8 @$ U RowBox[{"(", ) T$ r3 Y( P4 W" t8 v3 t/ E
RowBox[{
/ c4 Q% V& s$ Q" F: T RowBox[{"-", "0.321678`"}], "+", "x5"}], ")"}], "2"], "-", 8 b1 Y7 ]- D; k7 v3 f
SuperscriptBox[ ]) i6 v4 F @ S4 u4 @* e1 Q
RowBox[{"(",
9 w5 Z; {' Z8 o! }8 D RowBox[{+ V4 y. J" J" o' v* P- ^6 [) d
RowBox[{"-", "0.375283`"}], "+", "x6"}], ")"}], "2"], "-", p# G9 i, H7 b8 @
SuperscriptBox[
- k# ~$ d+ x3 i7 A9 i) e RowBox[{"(",
: N& R1 u! f: X7 m RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", : ?5 A7 \" o8 @
SuperscriptBox[2 ^! j# }2 F# v6 l$ `9 k
RowBox[{"(", ' ]/ _8 g1 N) _
RowBox[{
0 S" N% k" ]0 P' f RowBox[{"-", "0.505539`"}], "+", "x8"}], ")"}], "2"], "-", : Q( b/ {% r! z/ D+ [/ O
SuperscriptBox[
4 i ?( |7 M" L0 Z3 p' H, B! u2 w RowBox[{"(",
, [/ {" |& H/ B1 N; d* F RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], 9 v( i/ @" P" ]
")"}]}]]}], "+", 7 f& N* \- y: M2 `0 j0 n
RowBox[{"0.48228184971363947`", " ",
+ E; B E) B0 u$ Z. F; I. h7 F2 T0 M& y SuperscriptBox["\[ExponentialE]", , j$ s* d! [ ^4 X
RowBox[{"3.141592653589793`", " ", 3 n, I3 X3 j9 Z
RowBox[{"(", * ?! }. t9 P6 z! o7 {: b* p, j+ M
RowBox[{ j& h7 f! D# M
RowBox[{"-", + T: f( Z" C# N0 `$ _9 ~+ T
SuperscriptBox[ A- k% i8 Z1 p% Y
RowBox[{"(", # {1 l8 h! o3 H
RowBox[{
- S4 X& J; D) E4 u. d RowBox[{"-", "0.304348`"}], "+", "x1"}], ")"}], "2"]}], "-", / \3 v2 o/ `1 q c8 ~0 k' ]9 V& T
SuperscriptBox[
- y/ j6 g: A) g& r( | RowBox[{"(",
$ [' P& a5 w4 i0 \% c8 w& A RowBox[{
" j: H* z, @9 W% O3 ~0 N RowBox[{"-", "0.552818`"}], "+", "x2"}], ")"}], "2"], "-",
* B- @8 f: V. R, m+ N+ l SuperscriptBox[# y! d7 W6 Z$ |, q4 }( d, b# C
RowBox[{"(",
1 i9 `; ?7 |$ ^) E5 w RowBox[{
1 T; `; E% f6 r! Z" O RowBox[{"-", "0.33037`"}], "+", "x3"}], ")"}], "2"], "-",
& X7 n4 w. o6 Q$ ]) x7 ?+ |9 t1 ` SuperscriptBox[: ^2 `6 g) P8 `: ]2 E1 D' [# Y
RowBox[{"(", ( ]3 _8 l$ Y& p+ e/ G! \# x1 `/ a) v
RowBox[{/ b4 J' S( i1 r" p' c. B" A% {2 T
RowBox[{"-", "0.025823`"}], "+", "x4"}], ")"}], "2"], "-",
& ]7 v% T! c* `4 s: v SuperscriptBox[
0 q0 [* u" M9 B; l3 [3 z RowBox[{"(",
" a4 y+ t3 }9 j O! t( p RowBox[{9 D9 o0 H0 o: @. C, j
RowBox[{"-", "0.538462`"}], "+", "x5"}], ")"}], "2"], "-",
9 o% a& b }5 e SuperscriptBox[ g& A% F9 _4 s0 D
RowBox[{"(",
* K5 {' y, m3 s. p- g" I RowBox[{
3 g. P2 R" F% V( l7 _: p4 Q& x+ } RowBox[{"-", "0.752072`"}], "+", "x6"}], ")"}], "2"], "-",
7 h$ t4 I$ t, Q$ X: d3 G SuperscriptBox[# ^% Y' u& K9 x
RowBox[{"(",
3 u3 T8 D; @% D& Z RowBox[{
( ^* v$ u1 {: e RowBox[{"-", "0.408943`"}], "+", "x7"}], ")"}], "2"], "-", / r) e3 a; l/ \" o) ]2 r% O
SuperscriptBox[
8 y' ?$ D4 q8 f1 G f RowBox[{"(",
* i% K- H) b6 N6 b/ g RowBox[{
0 f% h& i4 Z S4 K6 g* L. M RowBox[{"-", "0.504532`"}], "+", "x8"}], ")"}], "2"], "-",
4 r/ i% f! Q- y/ N2 W" c SuperscriptBox[
8 m) W8 D0 {/ j& W% F( V3 ^9 ` RowBox[{"(", : X- k7 |) h0 O, j8 Y' v1 i
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
[5 `/ `$ h, X% _; h ")"}]}]]}], "+",
% [' |/ L# z$ a& R" s; X& E3 Z8 r RowBox[{"0.2954923840077215`", " ", 2 P W. F5 Q$ F! J; r
SuperscriptBox["\[ExponentialE]", + Q' q' e- d4 Q+ G" N4 F) J
RowBox[{"3.141592653589793`", " ",
" t* s! c o# y5 a% l) k+ Y; A RowBox[{"(",
: n! s) |/ Y F% X RowBox[{
5 I- K( H8 @- c* o9 }" F0 J RowBox[{"-",
) @, A' p: k& W5 c+ | SuperscriptBox[
8 z) M" U6 a! z6 C+ X" e RowBox[{"(", ' p% u c6 q$ H) @3 K1 e
RowBox[{
" ?. O$ O! z8 ~ RowBox[{"-", "0.413043`"}], "+", "x1"}], ")"}], "2"]}], "-", 5 d8 s6 ~, u" b/ V
SuperscriptBox[: s- ~5 I0 K0 ]# I& J
RowBox[{"(",
+ L. I7 @! e. u. R0 y8 J RowBox[{
2 u0 L+ D I# F8 K! d RowBox[{"-", "0.551859`"}], "+", "x2"}], ")"}], "2"], "-", k0 }- [" Z+ L
SuperscriptBox[
4 c2 U6 s* I. }9 u& w RowBox[{"(", & u: @1 o* r% W6 U
RowBox[{
' d" A; f& F- a/ l+ v RowBox[{"-", "0.544826`"}], "+", "x3"}], ")"}], "2"], "-", 7 F0 P: ~7 p. I2 a: s w2 s
SuperscriptBox[1 i& \- [: {. n9 G9 g. @5 L$ i2 |) s* r
RowBox[{"(",
7 S7 K; [4 m0 J- M: b RowBox[{/ N9 [' k% R+ Q+ s% Y" ?! t; J
RowBox[{"-", "0.230503`"}], "+", "x4"}], ")"}], "2"], "-",
8 u& |: n* C$ r! P1 J. O: ~ SuperscriptBox[+ p: X2 ~$ J$ K0 S1 @5 n
RowBox[{"(",
, d1 }; f; j, D% k) w6 r RowBox[{
0 @& N' Q( S& ~ RowBox[{"-", "0.244755`"}], "+", "x5"}], ")"}], "2"], "-", 1 ]8 b/ j4 K& l2 k, k4 F3 h+ K
SuperscriptBox[( Z2 y4 \& P: E
RowBox[{"(", ! d0 L3 E7 N; \/ I
RowBox[{" K) \ K; Q) S' [0 m# |
RowBox[{"-", "0.53052`"}], "+", "x6"}], ")"}], "2"], "-", 3 b2 U1 p# C+ v6 }9 Y4 X3 [
SuperscriptBox[( R3 e. b$ ?6 q7 W+ C0 ~6 ? c
RowBox[{"(",
. r, }: Y+ m! F; w! w RowBox[{6 z. z' \+ i& Z* G4 G. p- u
RowBox[{"-", "0.819512`"}], "+", "x7"}], ")"}], "2"], "-",
) I. c% t3 V& j SuperscriptBox[* n+ Z5 f7 r0 _
RowBox[{"(", 1 D {$ p* g+ [2 r4 Z i5 A
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", 8 b( e J3 b l, [& r0 J
SuperscriptBox[( M. b! V3 C3 d* k, R
RowBox[{"(",
* @0 k5 I! t7 F1 m RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
2 ]! a/ [/ Q% x) A; k5 [ ")"}]}]]}], "+", 8 F; x( u* x" J2 [* K9 l) z
RowBox[{"0.3129687276967983`", " ",
3 G$ q E; I B" J8 L' n8 v SuperscriptBox["\[ExponentialE]", 1 u* v4 g- M2 C
RowBox[{"3.141592653589793`", " ", / Z. l/ K6 ]; e) [( R) H
RowBox[{"(",
0 B* L4 U4 n, [3 g RowBox[{7 o+ G6 G2 H+ L$ @
RowBox[{"-",
" t# R) K! I) c3 R& @ SuperscriptBox[# z+ F$ \; D5 m
RowBox[{"(",
$ O* V5 |8 x2 Q; O3 e& y RowBox[{$ e- v5 A; i& q+ o; X+ L
RowBox[{"-", "0.73913`"}], "+", "x1"}], ")"}], "2"]}], "-", 7 { V: J7 t! ^, ~3 Z X# y+ [
SuperscriptBox[+ I" j. o4 s( v- Q! i
RowBox[{"(", 3 O+ W: y2 L* b1 u0 k' U5 C
RowBox[{7 M/ E4 @; A4 i
RowBox[{"-", "0.193199`"}], "+", "x2"}], ")"}], "2"], "-",
2 v. r9 N- h& g7 K W( d SuperscriptBox[
1 C2 W! a& H# ^) l" o8 P+ p$ Y6 ] RowBox[{"(",
' ]+ E9 q \1 s1 k- R RowBox[{
# b0 h, U2 r) A7 n5 t' x RowBox[{"-", "0.160584`"}], "+", "x3"}], ")"}], "2"], "-",
8 P3 \7 M7 h) d% k0 A4 E SuperscriptBox[
5 a* X; k, `8 d, A" W9 w RowBox[{"(",
, \9 k, t V [; h RowBox[{
+ r. \; |7 u$ x* Z$ M, t RowBox[{"-", "0.037907`"}], "+", "x4"}], ")"}], "2"], "-", 4 Q4 a8 n" B( d( X/ n6 |! a- \6 a
SuperscriptBox[
8 q( d& S* e' F' C. H RowBox[{"(",
8 }, f' c w$ @/ v: z* N RowBox[{
) F+ f3 d+ U7 j; {9 \% ?. q RowBox[{"-", "0.461538`"}], "+", "x5"}], ")"}], "2"], "-", , Q; T/ [% _$ c( y6 m
SuperscriptBox[3 k! p; |' X$ j1 T$ B' ]2 J& ?, l' U
RowBox[{"(", $ L1 k$ j, o. h S# D8 A
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", ( }4 e7 V8 G$ H2 t1 M
SuperscriptBox[
$ ]/ o# M+ }$ C& S RowBox[{"(", ; b: A3 [- ~) {' D
RowBox[{
9 w. B% ~, w3 H+ e7 h RowBox[{"-", "0.684553`"}], "+", "x7"}], ")"}], "2"], "-", 6 C# E& O0 `2 W& P, p
SuperscriptBox[ X* d& w- r/ q. k
RowBox[{"(",
, k# _; O) |: M9 m RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
$ g- z; w$ F: ]( H1 P& P SuperscriptBox[, Q* T# k, @1 [+ _; T( F; @
RowBox[{"(",
" s! l; W6 t* j7 j* a RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], 3 j8 b5 V3 H, D) h: |3 c
")"}]}]]}], "-", 7 `; S( x! E* B2 S, D- v; l
RowBox[{"0.4666313851213302`", " ", ( F+ m! @# J' h. Y; P l" s% m
SuperscriptBox["\[ExponentialE]", / g' [5 i @: n4 V: t
RowBox[{"3.141592653589793`", " ",
2 {* x. U: L. F$ X3 Q9 K3 \8 v RowBox[{"(",
) \$ B) I6 e- A: ^ RowBox[{
5 \5 I8 ?2 v, h4 Y RowBox[{"-",
, `7 G. ^# u% v( U5 w7 _ SuperscriptBox[9 R. W- T! s; t8 l1 _; L7 e7 S
RowBox[{"(", : z# H; z1 K+ D, K
RowBox[{
/ H2 p; J; M4 E- r. p1 l9 u" h RowBox[{"-", "0.652174`"}], "+", "x1"}], ")"}], "2"]}], "-",
% o y# H0 E. ]* f- e- v1 F# D SuperscriptBox[2 `# W! W# x; | z/ I! u W1 B
RowBox[{"(", . f/ R( m* M( m4 f A/ d9 M! r
RowBox[{
4 X) p9 i) _' B5 s6 l' r RowBox[{"-", "0.569711`"}], "+", "x2"}], ")"}], "2"], "-", 7 M3 [; C0 _0 X C w/ r1 U: F
SuperscriptBox[. B4 ?; |4 W) Z4 B2 ^
RowBox[{"(",
$ f3 T2 n) k1 [4 q( ]5 o RowBox[{
/ k2 ~6 E5 F2 i. V. y& r% M RowBox[{"-", "0.414297`"}], "+", "x3"}], ")"}], "2"], "-",
3 @5 O: X+ ` R. N! N8 d! G8 i SuperscriptBox[6 m5 o/ x- ]3 i" a$ ]/ v
RowBox[{"(",
4 g8 n( G( O) x$ d) n3 {9 n9 j RowBox[{
, A6 K( L4 }/ _; z6 X: o# w& U RowBox[{"-", "0.175398`"}], "+", "x4"}], ")"}], "2"], "-", 0 M: ?7 d9 G- V$ C
SuperscriptBox[
# ?9 i% I: R; k+ y* A+ j; A RowBox[{"(",
: A1 ?9 q4 ]3 p4 G$ K; H D RowBox[{/ y* L+ V* Q7 F% a
RowBox[{"-", "0.167832`"}], "+", "x5"}], ")"}], "2"], "-",
" X9 f3 }8 y" h8 G/ Z SuperscriptBox[
# q/ m7 X3 I; ^5 q' }3 ^* Z RowBox[{"(", ! g# J" w- W) J5 L4 w4 r0 Q
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", ' N+ w, y- T1 q3 P; X7 J; F
SuperscriptBox[
# ]' ]& x/ ^' i' w' j, w/ ` RowBox[{"(", # P0 j7 E+ I& s0 T& n# ^
RowBox[{
0 l% O h* q i2 X( J2 ~1 j" ~ RowBox[{"-", "0.544715`"}], "+", "x7"}], ")"}], "2"], "-",
$ N5 Q! Q* J9 _- d4 S SuperscriptBox[
' ~8 B+ q# n& x RowBox[{"(",
, u* ?7 B3 z% Y- t' r RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
5 R$ V3 c$ m1 c/ S! k SuperscriptBox[
% Q5 h; {/ B( _" i RowBox[{"(",
. ]; q g6 `" X$ o9 D RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], y% }( O3 i1 P
")"}]}]]}], "+",
, ~2 x+ C' P; j* t/ i8 Q RowBox[{"0.3741982811661129`", " ",
( T {' K1 z" A x SuperscriptBox["\[ExponentialE]",
+ Q% q$ v5 }3 Z6 A# i RowBox[{"3.141592653589793`", " ", ' P' {6 O- t! c* k! f; k8 Y6 Y2 A
RowBox[{"(", 0 Z1 C4 u7 W2 H; v7 v
RowBox[{; J, k% r N& |5 q. A2 _" a
RowBox[{"-", - w2 F1 b5 ~2 S( V* i
SuperscriptBox[9 V8 e" e p' t2 g$ U) W
RowBox[{"(",
) n/ i% z6 a' U- f$ B D RowBox[{# j1 f* m+ j2 C$ D) m
RowBox[{"-", "0.521739`"}], "+", "x1"}], ")"}], "2"]}], "-",
, \2 h0 f# c( e5 [% \ SuperscriptBox[5 v8 s, P y' J+ J
RowBox[{"(",
) B s+ d7 V5 A6 A5 |4 ` RowBox[{
9 m& B5 r7 |$ X2 ~ J) S RowBox[{"-", "0.334022`"}], "+", "x2"}], ")"}], "2"], "-",
! H. C0 W) A6 |# q* x w SuperscriptBox[
7 i* K1 t$ A0 h$ t) L' p" ^ RowBox[{"(",
3 M7 y' ^" m( r1 i. A3 M$ a RowBox[{: M1 M p+ ?* g0 y% f$ |
RowBox[{"-", "0.3555`"}], "+", "x3"}], ")"}], "2"], "-", S( n0 V( t: g! j' o: K1 \$ C: e
SuperscriptBox[
7 |- e1 @6 }9 p& ^5 z8 _% v RowBox[{"(", . s. i# i6 V9 r7 o/ ~4 N
RowBox[{) d5 _* y, s2 w/ a! X
RowBox[{"-", "0.025156`"}], "+", "x4"}], ")"}], "2"], "-", , @/ B& ]$ R7 c. T
SuperscriptBox[
; r" y+ |7 W( n2 p/ I, v6 I RowBox[{"(",
8 R3 M' S1 E' m' C5 a RowBox[{6 s+ V( e$ D/ {+ J( x" P4 ]/ r
RowBox[{"-", "0.48951`"}], "+", "x5"}], ")"}], "2"], "-", , J8 t4 K: P1 O' S. Q1 M
SuperscriptBox[
$ r3 C" m( S+ Y2 R1 I RowBox[{"(", i: O. f; J1 H1 o! b% X
RowBox[{' w3 w9 |5 \+ t m6 n: ?9 J6 s% ~$ y
RowBox[{"-", "0.37679`"}], "+", "x6"}], ")"}], "2"], "-", t! w! m) g( j) G* g# Q9 a a, t X
SuperscriptBox[7 |. ^. d; S! X! { N( n% F- E, `" J
RowBox[{"(", ' H! O. C; e; s" c# ~9 m
RowBox[{
9 \. ~' S: `: v$ w/ B. q/ W3 K# y RowBox[{"-", "0.411382`"}], "+", "x7"}], ")"}], "2"], "-",
/ A- h ?0 e, m. ]. y SuperscriptBox[# S. Q; c; n3 U8 O! e& r
RowBox[{"(",
2 z# Y' k+ m. h' P7 A5 I/ ? RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
$ U/ t5 r/ ~$ J0 z) ^0 u5 r; l$ y SuperscriptBox[3 K& ?6 _0 u0 |9 L+ |" u$ |' ~
RowBox[{"(", - s; w- X) J& r# k
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
6 Z0 C& _# W$ V4 r- f2 R, [2 Q ")"}]}]]}], "+", / i2 K0 D1 ]' L0 h5 i- K: u; O9 h) S8 L$ u
RowBox[{"0.5575503376854456`", " ", ! f* w! |; q* A, R
SuperscriptBox["\[ExponentialE]", & v. l# Y' T, v5 e& m1 V5 L* s- e
RowBox[{"3.141592653589793`", " ",
1 r: p6 k+ y- {% z. c* i% q RowBox[{"(",
4 o3 b6 S0 P6 R4 ~; K6 F T3 e RowBox[{9 w/ h' s; z/ R9 D" }: m
RowBox[{"-", , \# j. K, D+ ?0 E9 ~2 |
SuperscriptBox[- a3 e/ ^1 Y2 J1 `* ]
RowBox[{"(", . c/ K2 k: D7 ?- L+ y5 ^
RowBox[{
4 [2 q" W! u7 [3 s; u RowBox[{"-", "0.173913`"}], "+", "x1"}], ")"}], "2"]}], "-", 1 h9 @. j0 h' Z5 b$ M
SuperscriptBox[1 y# _+ @- J/ _
RowBox[{"(", # L9 A6 H4 Y( N. l6 t1 e6 [
RowBox[{
3 ~6 c+ g5 ]6 d" x6 J/ o RowBox[{"-", "0.984656`"}], "+", "x2"}], ")"}], "2"], "-",
* T4 N9 h6 h1 s V8 H( b( f7 T SuperscriptBox[ _6 l; [0 A% N# [3 f! d
RowBox[{"(", # |+ p- J4 q& M; |0 J! }8 {
RowBox[{
1 h) I8 ~0 x. J* N0 p' R; T4 J RowBox[{"-", "0.420753`"}], "+", "x3"}], ")"}], "2"], "-", / e q ]. M. G5 z, o1 e
SuperscriptBox[% o% W N' R$ m% Q, V
RowBox[{"(",
4 b% i$ c5 j. f RowBox[{6 A+ v' _: b& Z3 l: b! p
RowBox[{"-", "0.137022`"}], "+", "x4"}], ")"}], "2"], "-", 1 w* O- Q% \: F; x2 F- I
SuperscriptBox[
( Q1 }8 M, U$ s& z; S* N RowBox[{"(",
_4 V& _- W1 g# i; z0 t8 K RowBox[{. Y1 T% W6 T' v$ J
RowBox[{"-", "0.321678`"}], "+", "x5"}], ")"}], "2"], "-", $ z0 T6 U) s% H8 B7 X
SuperscriptBox[
$ O8 L% F4 n. R; K5 q RowBox[{"(",
3 d0 v, ]& Y( b z) Q RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
" s9 Z7 x7 E' n4 C SuperscriptBox[- {: i( C7 V2 ~3 h
RowBox[{"(", $ w- }% A% \6 c2 v. d
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", / k& M2 W1 i! J! d& ^
SuperscriptBox[
5 q9 f8 f2 u4 G3 D. y7 m: k RowBox[{"(", + }0 o( b* S4 r ^! Y
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
1 T: u( ]: N y$ ^ SuperscriptBox[
( @6 w6 ` T5 Z$ a3 L9 \ B: |" [ RowBox[{"(",
; c$ p6 A& ?5 C# [/ b RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], 3 w2 H# r( p( {4 y c
")"}]}]]}], "-",
. I+ `; y1 A; C$ l) ~" \7 i% r. J RowBox[{"0.1339854044819916`", " ", ' m& g' }8 a, M
SuperscriptBox["\[ExponentialE]",
, S# i3 t5 g0 t/ K, w1 v RowBox[{"3.141592653589793`", " ", 9 @- J# `; N( N
RowBox[{"(", 1 s3 R/ Y; w3 u6 \& ]) e! J o4 k2 w& }
RowBox[{
, C' ?8 n- e' T6 H% C$ Y9 t RowBox[{"-", 3 r( R; e$ B. \) S$ f
SuperscriptBox[
& a0 n0 d3 i' e5 B' `. y% y RowBox[{"(",
, Y' g; q% ]" X RowBox[{
: _4 W' k" j0 ?- D* b2 } RowBox[{"-", "0.717391`"}], "+", "x1"}], ")"}], "2"]}], "-", 3 `1 h% g3 d. ^2 x9 G
SuperscriptBox[& e' M* m4 g6 t `, t8 s/ c
RowBox[{"(", $ R# W, y4 E9 w6 S4 b9 N
RowBox[{$ F( _+ J" \2 C2 r. m
RowBox[{"-", "0.736205`"}], "+", "x2"}], ")"}], "2"], "-",
; c' k3 [2 a# O: C$ E( T SuperscriptBox[2 G( `8 h. z* A4 n
RowBox[{"(", y& c7 _6 e0 b3 P
RowBox[{ F$ |# `2 _: s4 k9 K9 J. g
RowBox[{"-", "0.267704`"}], "+", "x3"}], ")"}], "2"], "-",
$ n, w4 X- u$ K SuperscriptBox[
( S2 \6 G' ^+ l" \( j4 E RowBox[{"(",
! P ~9 G6 [5 \- D7 L7 Y RowBox[{8 D" d5 o5 W: k( }
RowBox[{"-", "0.036152`"}], "+", "x4"}], ")"}], "2"], "-", " i9 M7 B. O( ~ G' t& M& b
SuperscriptBox[ h4 i( P4 x7 @4 r+ {# J5 I
RowBox[{"(", , X& g% d0 [ `3 d# u$ r% Q
RowBox[{$ k8 B" a$ o1 v9 f8 x, Y; [7 B& p
RowBox[{"-", "0.307692`"}], "+", "x5"}], ")"}], "2"], "-", " ?& z( H4 l6 R& s. F
SuperscriptBox[9 `8 r: Z$ f# S3 p* w# `& b
RowBox[{"(",
/ m: C( B7 O5 P& @+ T RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
5 V, R" _# F) n2 ]1 r; H SuperscriptBox[8 f* E$ T& }* G8 R4 {) @
RowBox[{"(", 0 E0 G2 |% S, R$ F0 q W
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
" X2 R. J+ m" E$ Z SuperscriptBox[
$ t; K6 K( |% X" Z+ b5 g) Q RowBox[{"(",
}7 n/ R% n4 l/ s RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
& Z/ ^' P4 T0 `8 b3 C SuperscriptBox[7 e7 p2 t0 i P; e7 j( [; V, o
RowBox[{"(", 8 f/ t6 K3 I' K) ^
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
: o1 ?/ b: a* S: ] ")"}]}]]}], "+",
4 V- O2 C6 q2 t9 t0 K% u, ` RowBox[{"0.45723850991134063`", " ", / d/ \, M6 H/ e9 D
SuperscriptBox["\[ExponentialE]",
5 R/ x$ d. Z% I, M% M1 e RowBox[{"3.141592653589793`", " ", ( ]# q" i) A# @
RowBox[{"(",
; F! p2 `+ s! I1 ] \* l5 G RowBox[{
/ ]4 u" ]# z; G- v% G9 F) N/ J: v RowBox[{"-",
6 n0 T# w/ c2 O& j SuperscriptBox[$ u1 X& c7 Y& b" p# ~8 |5 t
RowBox[{"(",
0 C# j5 }' u( y* D0 p$ u9 m RowBox[{" X, ^0 ]7 Z/ }3 ~/ Q- w1 o
RowBox[{"-", "0.826087`"}], "+", "x1"}], ")"}], "2"]}], "-", ) G- I. M; I3 m! B: T
SuperscriptBox[5 G/ `) b# e! s) S9 u" A4 \
RowBox[{"(", # `( K$ { p, S
RowBox[{
5 M% S3 q4 m2 T z4 Z+ P" ^: m RowBox[{"-", "0.203969`"}], "+", "x2"}], ")"}], "2"], "-",
) \% F1 d! y+ w7 o& F$ p+ H SuperscriptBox[
0 a# K' V& a1 s; K9 i; R0 G* O+ k RowBox[{"(",
* a) Q" @( Q0 E y& i RowBox[{9 Y+ v- r1 e& E% f7 V0 P. m8 J* e
RowBox[{"-", "0.234619`"}], "+", "x3"}], ")"}], "2"], "-",
7 f9 L% \! z# o1 A( v F SuperscriptBox[* u7 A$ d* f2 y8 O7 R1 j. ~1 G" k
RowBox[{"(", 9 \8 k; D: J1 n
RowBox[{
8 a2 h( c1 m/ ^3 j RowBox[{"-", "0.27224`"}], "+", "x4"}], ")"}], "2"], "-", 5 q& m/ Y) X2 h& v2 P
SuperscriptBox[! b; v- \( S; r: a; n
RowBox[{"(", 1 h. X2 P1 g" k: R" Q$ D
RowBox[{0 v" ~& [4 q) E
RowBox[{"-", "0.265734`"}], "+", "x5"}], ")"}], "2"], "-", 0 q! J" W% S3 ?6 X" Z" G
SuperscriptBox[+ p& {! `) A' t# R
RowBox[{"(",
4 g d3 l! [# e RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", 8 x) c+ o4 C6 W; j6 L" v; D u
SuperscriptBox[
6 _. Z6 N9 O4 h: `" T RowBox[{"(", 6 F% b9 C4 B% h- i0 Y
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", . d3 A9 A3 |& U+ ]
SuperscriptBox[
# @4 @$ S K/ {$ Q: G' G. {: p RowBox[{"(",
9 @; v; F N5 o1 B$ R RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", / X4 d, b: [& [) {* H7 p
SuperscriptBox[4 k- _) I( d5 r$ R, @" I
RowBox[{"(",
6 r3 n& S/ p8 Y RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], ( h* y! ^7 ]! r4 ^0 R1 }9 a2 S
")"}]}]]}], "-",
6 i# F$ g: p+ d$ Z' U6 T. w RowBox[{"0.025873988843993667`", " ",
! O, \1 j8 g- |2 C SuperscriptBox["\[ExponentialE]", ! X1 H. c' P7 @3 L
RowBox[{"3.141592653589793`", " ", ) l+ }4 l8 G( n0 Q" F5 j( [- n6 A
RowBox[{"(", " k, f ]' U0 `
RowBox[{: L/ N- K1 Z: E8 z5 l- m& i6 ^: ?
RowBox[{"-",
/ r" X6 F% S! [! ~6 k2 H SuperscriptBox[5 g4 @5 U) f( L0 t! D6 R
RowBox[{"(",
0 ?- R+ c6 X. S+ A2 ?, ^ RowBox[{
, n# {0 Z0 l; b* o0 m RowBox[{"-", "0.565217`"}], "+", "x1"}], ")"}], "2"]}], "-", " V+ h6 s0 \; r) [3 e" O
SuperscriptBox[7 u& L7 F+ B" }, z. S
RowBox[{"(",
( }2 w0 N( Q5 P( M; _# C RowBox[{
! T7 d* K; E; ?( E3 g e6 A RowBox[{"-", "0.572293`"}], "+", "x2"}], ")"}], "2"], "-",
a h- `$ T& c6 [ SuperscriptBox[
& V" s' g4 B) G5 Y" d7 A1 Q RowBox[{"(", " r2 Z) W6 {7 X
RowBox[{" L: B! K/ M+ o: I# E2 F x
RowBox[{"-", "0.655012`"}], "+", "x3"}], ")"}], "2"], "-",
& W- B4 |) s4 P7 ]# t" u$ c SuperscriptBox[: a/ a2 X9 j1 O4 D8 `
RowBox[{"(",
+ R4 X! y- y* U: c+ ?$ Y7 H6 n$ C RowBox[{! } n4 o% ]% N7 U9 c% X
RowBox[{"-", "0.281852`"}], "+", "x4"}], ")"}], "2"], "-", 4 z2 b" d" s' ?8 y W
SuperscriptBox[( j; b5 |/ x2 |) j+ v A
RowBox[{"(", 0 S. J+ q9 V0 N: P t
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x5"}], ")"}], "2"], "-", ; |4 A3 q) F$ z+ [6 Z ^5 P; Z
SuperscriptBox[
* d$ B! C* w. _$ X2 R' C( F RowBox[{"(", . E& C- O; t5 X/ @; j \' S
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", 2 w y. ~) h1 s6 i
SuperscriptBox[
- g: c c5 C+ e; p RowBox[{"(",
1 |) p" G. p' |) P+ P7 I RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
/ J, h: @$ S( E g1 c; N' ? SuperscriptBox[& y1 V, K' S2 Y! o4 U" n
RowBox[{"(", 2 z7 e& Y* `! R* P4 e/ N @
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", " K) U3 @0 d4 s7 }8 W: C
SuperscriptBox[1 r. m# l5 s- N+ U
RowBox[{"(",
2 {) s O; Z& j) S RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], 6 d8 R, K o1 q* j: K1 H5 v
")"}]}]]}]}]], "Output",
4 B: s6 e( M- ?# T3 m3 X, P- f CellChangeTimes->{3.577924759875*^9, 3.577924921203125*^9, 3 t' |# l/ m+ }8 ?. Q
3.5779583210432997`*^9, 3.5779585060284224`*^9, 3.577959043308958*^9,
4 _ M7 R. o T* G/ ^2 j 3.577962317973732*^9, 3.578012448875*^9}]
! r* I( G+ y( ^3 q}, Open ]],
% Y* x- l% ?4 c2 l* a& i9 `/ p4 S% ?! ^8 o) B) n; ?! H# t: F, @
Cell[CellGroupData[{
7 \1 ?+ Y: p9 i# k# g& k
3 E1 q/ ^% k' M, r R8 U5 \/ B# y2 kCell[BoxData[, u, M3 r5 k9 K: K* a, ~* i: C4 I7 l
RowBox[{"y2fit", "=",
: W: d9 y; U2 R6 } RowBox[{"Table", "[",
4 y( Y1 S6 @# u4 s; v. v0 q2 J RowBox[{"x", ",", 7 W W7 `) [ O1 s; s( [
RowBox[{"{", ; C$ F, F, \$ i3 e9 U8 D* e- V
RowBox[{"x", ",", "1", ",", "29"}], "}"}]}], "]"}]}]], "Input",5 z* ~9 ^! c% C" W& [5 ]
CellChangeTimes->{{3.577924969375*^9, 3.577924979515625*^9}, {
* Z9 U& a* @$ _ 3.5779252768125*^9, 3.577925277484375*^9}, 3.5779583246625056`*^9}],
1 R6 G! g! G' Y4 a m' J4 r; m
2 g: L0 E% A2 u" ?: {) s: FCell[BoxData[( J- A2 R" M' ?) w& T+ \& P
RowBox[{"{", 6 O2 |1 L+ J/ g" A
RowBox[{" u1 s1 B3 z6 q1 l+ s6 `5 A$ L
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", 1 s$ W- A- o* b' P; ~
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15", H' |7 A3 R5 C7 u
",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",", / x$ s+ f1 Y$ Q7 i- z5 S5 N
"22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", "28",
4 }8 Q) x$ [1 Z+ l8 p0 q7 ?- z' R5 Q ",", "29"}], "}"}]], "Output",
& j% F- T: D6 N( N0 y CellChangeTimes->{3.57792498240625*^9, 3.5779252798125*^9,
4 R R+ n& j/ K6 \; @% _# ^ 3.5779583268153095`*^9, 3.577958508118826*^9, 3.5779590470685654`*^9, / D# v. H( I( x7 K" w5 d4 C! C: j
3.577962320173336*^9, 3.57801245028125*^9}]. Q. |' | j1 T) q
}, Open ]],0 l( u7 V! e' {. i" w h0 q! u
2 {. T4 u! ~+ W# Y1 D( L3 ]Cell[BoxData[
9 c0 z. x' t7 A u7 ~- t RowBox[{"For", "[",
& j% l) E3 L4 S; N9 p RowBox[{7 p8 r- m7 z E' U* T- }% G! q
RowBox[{"i", "=", "61"}], ",", ) ?8 H/ F- q) s/ l2 t
RowBox[{"i", "\[LessEqual]", "89"}], ",", 1 V9 b [/ Q$ U* W. p3 f
RowBox[{"i", "++"}], ",", "\[IndentingNewLine]",
3 E3 a; U, a( f# ~0 i/ e RowBox[{
: E; c* K5 W) D RowBox[{1 M; ^2 N: G( C* l! ]! Z" L
RowBox[{"y2fit", "[", * ^) [ \' w; }9 c g3 a
RowBox[{"[", % M7 v _* T4 E' j
RowBox[{"i", "-", "60"}], "]"}], "]"}], "=", / }# F: E2 C7 j
RowBox[{"y2", "/.",
4 C2 X: p9 f! M/ P: ^ RowBox[{"{", ! o' ?; A+ M. R2 T Z
RowBox[{5 m$ q6 Y. r. D
RowBox[{"x1", "->",
- h! @4 e6 S: g4 x4 m RowBox[{"Data", "[", ; p( q# }: ` P5 S. _( V, l
RowBox[{"[",
. x; v$ {+ f. Q* C1 s) A8 k5 R RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",", 6 G: a8 m' q+ o. a/ X2 F
RowBox[{"x2", "->", ) ?1 S4 E# f! X' Q
RowBox[{"Data", "[", ; q6 Q8 H- P% {
RowBox[{"[",
+ W. D4 o- J6 P5 C4 `' k RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",",
7 `5 f, Z2 g( F8 ?. E! L RowBox[{"x3", "->",
2 m) \7 b" X' d) F RowBox[{"Data", "[",
2 H) j0 R X) x RowBox[{"[", 4 w, @# {8 M2 c
RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",", & N& _1 `! k2 {" E O e- t8 ^- v' n
RowBox[{"x4", "->",
! S3 P9 o; _2 o0 V2 Y RowBox[{"Data", "[", 5 [' j0 G; g1 [+ o. q ]
RowBox[{"[",
9 D u8 b3 n: T. c. [6 b RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",", * x; ~- ^# V) ^' G' y: x; ^3 O
RowBox[{"x5", "->", ; w9 Q- y0 ?. N# n* s- C
RowBox[{"Data", "[",
1 Y% L; t _9 m! \5 i- B RowBox[{"[", ' O2 |8 Y5 G. V g
RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",",
% M& ~' W1 o9 Q j2 u RowBox[{"x6", "->",
" B: N, t. `# \# ~' ] RowBox[{"Data", "[",
2 a! A; v$ N- ~ I* O5 R5 y RowBox[{"[",
2 p- I4 J3 c5 t( w5 i3 m RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",", ) C$ K5 g+ g( A4 H. r' A
RowBox[{"x7", "->", % b: O$ d |' V: [$ {; z" h; |- z) ~ s
RowBox[{"Data", "[", 4 h6 p' g' Y! H7 ?
RowBox[{"[", 1 n1 \) t4 f3 N% W; h$ Z
RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",",
' b6 x, R3 x, h9 R# P8 ^! ~ RowBox[{"x8", "->", ; p+ b7 a; _8 L5 `
RowBox[{"Data", "[", 0 R, n! Q. e& b4 B* U$ z) v
RowBox[{"[", + U0 t f* w; s
RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",", 1 G& z2 P* Q$ b$ ~
RowBox[{"x9", "->",
- L5 I% a% C: J% p( r1 W: ~ RowBox[{"Data", "[",
; Q8 }% T! e9 J" q' t RowBox[{"[", % e7 p" k8 e3 {6 C: M( v J$ h2 C
RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";"}]}], * U$ u5 x- N# h9 Z, F9 W2 @
"\[IndentingNewLine]", "]"}]], "Input",4 Z L& D9 s6 h I" Z" b
CellChangeTimes->{{3.577925003234375*^9, 3.577925028578125*^9}, {
) W* n6 e& u0 ~/ K 3.577925286140625*^9, 3.577925306765625*^9}, {3.577958329919715*^9, 9 o" P8 {8 s1 d2 }- J* C; E2 Z
3.5779583326341195`*^9}, {3.57795892351635*^9, 3.57795892354755*^9}}], d. i5 m- t' W7 N% q3 x; S* f
, c, ~9 a3 x0 V5 |# v# t2 l$ [. k5 Z
Cell[CellGroupData[{5 |9 r* ]& Q5 Q6 e! a
/ z, O: n& v( e% nCell[BoxData["y2fit"], "Input",7 m5 \ z/ V0 I/ b( N7 G. a
CellChangeTimes->{{3.57783581246875*^9, 3.5778358135*^9}, {
. U6 d& H$ ^& G2 c 3.577925040484375*^9, 3.5779250440625*^9}, 3.5779583419785357`*^9}],
/ q" a7 C0 B4 ^: r1 n5 M1 ?- k* {) Z v% v0 ^& P
Cell[BoxData[1 Z3 T. b% N# p& ^, b; [
RowBox[{"{", " N- o9 `+ n! f1 `6 Q. s
RowBox[{; ]- H; w# K* ^1 v% F+ A
"0.4853171132859182`", ",", "0.4508635216665074`", ",",
0 ~; j0 ?3 ?3 W) K "0.3642119241752518`", ",", "0.42852077425595436`", ",",
3 X9 c* B; q) ^* L3 j- m' Z' K" q "0.4712694272667798`", ",", "0.5257533056184774`", ",",
6 b- h0 c' Z; i+ K "0.48620658140716133`", ",", "0.41106838915591876`", ",", 5 A8 f; `$ w8 [7 D7 G6 k' S
"0.5486894206610674`", ",", "0.007731168540073459`", ",",
. b2 j/ c6 F% D( v ~ "0.013872406140339109`", ",", "0.3956995051659558`", ",",
, B4 r. q/ ~) O "0.3663118256142708`", ",", "0.29094217358055163`", ",",
! g8 C& e4 g; [, h5 h# J& y "0.5453093690736555`", ",", "0.44138898880777927`", ",",
/ `. c( O, h1 Z% J. m "0.42944922031163496`", ",", "0.43092890556748836`", ",", & i5 O& q: ~( ~3 Z& _* w
"0.5942402821739969`", ",", "0.330046090785457`", ",", , l* j+ H6 k( m! N
"0.18938658036630585`", ",", "0.4263720292858679`", ",",
0 S4 z; q" f% r "0.23377136184738775`", ",", "0.02232858193309988`", ",", 1 N* k; d) M* v8 N" K3 ]
"0.244364200084268`", ",", "0.5562383565309971`", ",",
9 K- e/ H$ H% x/ ` }. r "0.13114103402954333`", ",", "0.5815052048989465`", ",", : z5 W" f9 e) `8 @$ w- O$ K
"0.4253455966293501`"}], "}"}]], "Output",; F7 ~6 l( D. V) H. J. {
CellChangeTimes->{3.577835814609375*^9, 3.57792504521875*^9,
2 k6 f+ m3 g5 b1 ?5 B! T9 p 3.577925312375*^9, 3.577958343257738*^9, 3.577958511784832*^9, , u; [) ?: \/ H
3.5779590518421736`*^9, 3.5779623249157443`*^9, 3.578012452421875*^9}]
2 V* G9 A5 s8 e& f4 F}, Open ]],
) y9 d% L f: Z: o
7 J. W+ Q" V0 }0 j' [4 GCell[CellGroupData[{
5 x) x) a2 X. h: H
2 L* J5 C/ v& k$ dCell[BoxData[
. g; k6 h+ t0 q8 T0 @ RowBox[{"y2fit", "=", " C6 Y( @ ?- M& i' J& `( o
RowBox[{"{",
2 _5 H2 l1 u" K' E# i/ k RowBox[{
6 c9 A" H0 w7 u* F I5 w# \ "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
& K% O9 e2 Z! m0 @+ ~8 I) F ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
/ R o' A; \& O# i% J- X8 n" |! W, |% [ "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", , @& j" g9 \$ _ i
",", "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", 6 u' f+ `5 ^5 E4 o7 f1 W
"28", ",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34", * z H, q1 g1 @, i+ J. ~2 d3 K
",", "35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",", ; \6 r" L9 ]& }6 h2 Z8 A9 c6 b
"41", ",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47",
5 G3 N- P3 Q& Z5 g ",", "48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",", ( q+ e5 f9 X5 @+ c
"54", ",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",", ) Y; i; c% A1 r6 C- x4 O5 w3 z
"0.48531711328591953", ",", "0.48531711328591953`", ",", 5 h" i$ s1 B$ q
"0.45086352166650845`", ",", "0.36421192417525217`", ",",
; r% h5 h3 U, P1 A: U! H "0.4285207742559556`", ",", "0.4712694272667811`", ",",
0 h( }6 }+ K) H$ B9 t8 R: g( ^; O "0.5257533056184786`", ",", "0.4862065814071623`", ",", # I3 Q, c; D' N; b/ V
"0.41106838915592014`", ",", "0.5486894206610683`", ",", % w: H: J1 j' m4 \" I
"0.007731168540073532`", ",", "0.013872406140339166`", ",", ' U5 ^. D% B; P, G
"0.3956995051659565`", ",", "0.3663118256142717`", ",", : [7 e, F; Z8 G+ O+ U! g+ B
"0.29094217358055185`", ",", "0.5453093690736568`", ",", & E" `3 t8 H- p$ u
"0.4413889888077799`", ",", "0.42944922031163585`", ",", % I( W: {) O! u3 _$ r7 [8 g8 a0 v
"0.4309289055674891`", ",", "0.5942402821739983`", ",",
7 k# H$ [5 N0 K' w% T "0.33004609078545805`", ",", "0.18938658036630632`", ",",
) a# J- K# P$ E Z4 K% p# _* W "0.4263720292858688`", ",", "0.23377136184738778`", ",", 2 H5 D; G0 r6 L! j. J4 `
"0.022328581933099827`", ",", "0.24436420008426807`", ",", , ]/ i. x: u7 G
"0.5562383565309981`", ",", "0.13114103402954314`", ",", 2 J, k9 x( U" P% i
"0.5815052048989473`", ",", "0.42534559662935123`"}], "}"}]}]], "Input",
2 p! B0 H6 b7 l" t( l' ] CellChangeTimes->{{3.577959355746303*^9, 3.5779593854019547`*^9}, {
' p9 U' Y L# q5 H. h! G, O* W 3.5779594223272195`*^9, 3.577959425104024*^9}, {3.57796233399496*^9,
' _; e/ M" r/ K( D1 h 3.57796233957977*^9}}],; P8 j( y* g7 e+ Y6 A9 Z, D
, A% a) ~; u& C7 NCell[BoxData[
; Z4 ~0 Q; C" E2 x. n/ b RowBox[{"{", : f6 ~' b8 g* D7 g( @
RowBox[{
8 D2 f+ H) N5 O" ` "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", 6 `2 X. v# z0 M, G5 l# h1 V
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15",; Y0 n4 h: \; W- V, v) H& s
",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",", 0 s$ `4 W( K& Q5 M. @" z
"22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", "28", ' I \9 B9 A# X# d3 q
",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34", ",", / h, V1 O% p* }' i, E; n
"35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",", "41", % z- k4 a3 w, u, u9 M. ?& P9 L
",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47", ",", ' {' Z& G0 X: m' L
"48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",", "54", 7 b/ ~( R+ K4 n2 o+ h c w( L
",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",",
) Z" b9 T2 {9 [% F "0.48531711328591953`", ",", "0.48531711328591953`", ",",
3 m3 f7 t& w+ i& i+ L# W "0.45086352166650845`", ",", "0.36421192417525217`", ",", 5 k3 R' Y0 K7 x9 o
"0.4285207742559556`", ",", "0.4712694272667811`", ",", ( N" \" R% D/ T3 L( b
"0.5257533056184786`", ",", "0.4862065814071623`", ",",
5 }. _4 z3 p6 F$ c, G "0.41106838915592014`", ",", "0.5486894206610683`", ",",
/ s6 P% n; o! ?3 u8 Q "0.007731168540073532`", ",", "0.013872406140339166`", ",",
" ?! M d9 p0 ? "0.3956995051659565`", ",", "0.3663118256142717`", ",", . ]% _4 D% L- \
"0.29094217358055185`", ",", "0.5453093690736568`", ",",
* Y" O# W! f1 X4 z/ `$ W, U! Q* x "0.4413889888077799`", ",", "0.42944922031163585`", ",", 0 _$ F8 K1 E* A, Q
"0.4309289055674891`", ",", "0.5942402821739983`", ",", ' ]/ L3 M6 m& R. Y: q; z! L" r
"0.33004609078545805`", ",", "0.18938658036630632`", ",",
0 Y1 x X& I. s# g' w "0.4263720292858688`", ",", "0.23377136184738778`", ",", % y; {8 y, @8 w j R& G
"0.022328581933099827`", ",", "0.24436420008426807`", ",", 0 j9 Z8 z" Q; t) L8 C
"0.5562383565309981`", ",", "0.13114103402954314`", ",",
$ Q o* b; h" R# f& [5 U6 L "0.5815052048989473`", ",", "0.42534559662935123`"}], "}"}]], "Output",) ?& S7 K5 ?% ?. _" C0 k' R
CellChangeTimes->{3.5779593961191735`*^9, 3.5779594268512273`*^9,
$ D' }' T% X* n6 M( I 3.577962342060174*^9, 3.57801245340625*^9}]
2 z: P! O% o/ h}, Open ]],
: m' Y b1 j0 }6 T, r' A; Z$ I2 X2 V4 m# n
Cell[CellGroupData[{( w3 T4 D) Z1 ?
2 A6 U4 r# V' Q( `- ]* u5 U
Cell[BoxData[/ ^ H8 B0 _2 y, a
RowBox[{"y20", "=",
, F1 o% l- \( ` RowBox[{"Table", "[", + x) V3 l- G6 ^$ k
RowBox[{"x", ",", 1 b) Q9 ]* j* T. c% P0 h) o; Q, p
RowBox[{"{",
0 c: Z0 v2 L$ }7 L( k' F7 u RowBox[{"x", ",", "1", ",", "29"}], "}"}]}], "]"}]}]], "Input",( o1 [1 E' ~: y; B0 W0 [
CellChangeTimes->{3.5779253628125*^9, 3.577958351198152*^9}],5 Y1 ^3 M7 x% T! P: h$ w8 ^/ F, Q
f, \6 U9 b8 N) V, J/ ~; r9 x6 iCell[BoxData[/ c+ k3 R0 v" O- o: \* H
RowBox[{"{", ) F- D0 t: @7 [7 G# j
RowBox[{* T E% G. q/ h2 h
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
+ W! z* Y! i' V; A! `" H% p ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15",3 o- q5 t- ^8 ^7 p9 h6 B0 U
",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",",
6 Q4 \' h+ g _1 A8 Z% } "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", "28", 6 D9 H' I0 b7 Q- N0 @9 b
",", "29"}], "}"}]], "Output",
) q3 D0 `5 B. t2 W) C r2 _: T1 e7 m CellChangeTimes->{3.57792536553125*^9, 3.5779583535225563`*^9, ' f8 I8 }" l) O5 O; D" K
3.577958515653639*^9, 3.577959053714177*^9, 3.5779623443065777`*^9,
' S+ g! q1 @/ h r0 ` 3.578012454875*^9}]7 \% l4 u1 M" f$ O1 X4 B
}, Open ]],
$ c( ^. ?+ d, B! u6 ^* b1 y
; ^* b4 G Q, x a" ~5 C RCell[BoxData[$ h; U1 v% K3 o. O3 i- P2 E4 D
RowBox[{"For", "[", , H# K7 a5 P2 }
RowBox[{6 Q7 W2 W9 l* h' X9 v u: h( N# e% P" \
RowBox[{"i", "=", "61"}], ",", . W2 X7 {$ m, b
RowBox[{"i", "\[LessEqual]", "89"}], ",",
; {6 E0 ^( S" B) X% I3 c RowBox[{"i", "++"}], ",", " i& ?( c4 S/ U7 b
RowBox[{% r9 u3 f) \+ E* l5 ~
RowBox[{"y20", "[", 4 O9 R# L/ g T. p8 |: M0 D
RowBox[{"[",
3 J3 _* j) O, n* y RowBox[{"i", "-", "60"}], "]"}], "]"}], "=",
- G v$ L7 e0 S6 B- Q5 @ RowBox[{"Data", "[",
+ r8 }2 w! J- G5 X RowBox[{"[",
' @/ V: f0 F& M% U: { RowBox[{"i", ",", "11"}], "]"}], "]"}]}]}], "]"}]], "Input",
+ v0 X6 ~: O, A2 Y; s8 e CellChangeTimes->{{3.57792259890625*^9, 3.577922624859375*^9}, {1 B ~) B) I }) A! p0 C* A, m
3.577922687234375*^9, 3.577922702859375*^9}, {3.577922917453125*^9,
3 Y/ G* H1 p9 d2 q: s4 a 3.577922923203125*^9}, {3.577925372296875*^9, 3.57792538503125*^9}, {. W0 o+ f% ` `1 t( v
3.5779583574225626`*^9, 3.5779583606673684`*^9}, {3.577959056849782*^9, 8 W" s2 h* n0 t: V' B( y3 a
3.577959058690585*^9}}],- T: [3 p; Y! ]. b6 P
7 h! d7 ^* I! a4 Z+ ]1 k+ tCell[CellGroupData[{
1 E' m0 `7 E) F) S0 o$ D6 b0 e( l' c
Cell[BoxData["y20"], "Input",
8 d9 ~( f0 a0 ^8 T0 q CellChangeTimes->{{3.57783581975*^9, 3.57783582009375*^9}, {
6 t `+ F: V4 P5 n$ z 3.57792504965625*^9, 3.577925050125*^9}, 3.57792539146875*^9,
/ n7 [7 D( W$ K. z 3.5779583657841773`*^9}], q8 t/ q+ x; v7 o6 O' T
+ z) Y+ o3 d1 c! b6 @/ h7 w
Cell[BoxData[
5 L( c8 L" K$ B4 t RowBox[{"{", + M6 M" W+ K ~& u4 }
RowBox[{2 _2 p, S. Y# w2 e: e; B
"0.507042`", ",", "0.239437`", ",", "0.394366`", ",", "0.338028`", ",",
* r, S; r% h6 u: W" F9 S* K "0.394366`", ",", "0.15493`", ",", "0.591549`", ",", "0.408451`", ",",
' p, _: `! N# J+ M8 z7 S5 E "0.295775`", ",", "0.661972`", ",", "0.774648`", ",", "0.746479`", ",",
# B4 E; ~; }" {! T" S "0.887324`", ",", "0.84507`", ",", "0.704225`", ",", "0.760563`", ",",
& d. l. o# q6 A6 a& r* q- J "0.43662`", ",", "0.633803`", ",", "0.422535`", ",", "0.295775`", ",", ' C' s3 r2 H$ p
"0.309859`", ",", "0.408451`", ",", "0.197183`", ",", "0.732394`", ",",
! }% ^: Z! B% d "0.802817`", ",", "0.746479`", ",", "0.380282`", ",", "0.56338`", ",", 7 G# d* I$ m+ \$ R% n7 M
"0.323944`"}], "}"}]], "Output",
0 N5 M$ k8 D: _9 D CellChangeTimes->{3.577835820984375*^9, 3.57792505125*^9,
) x1 Y8 I. r8 D! p1 P 3.577925393046875*^9, 3.5779583678277807`*^9, 3.577958517946843*^9,
+ l4 j) I2 l3 o. V' I 3.5779590634017935`*^9, 3.577962347629384*^9, 3.578012456484375*^9}]
6 {$ V9 j. c1 o) v8 Y5 L}, Open ]],, [3 m; P& o- \' n1 p
, r: t/ D/ l$ d5 _5 R- L5 tCell[CellGroupData[{4 Z2 J; k, i- \' i5 \
3 z5 N! [3 T$ c8 s
Cell[BoxData[
( U$ X7 M N' s5 |8 p: C RowBox[{"y20", "=", 9 d9 m4 O2 J: K
RowBox[{"{", " P2 d8 ?/ F( m! ~, _) m
RowBox[{
3 [8 b; v1 c0 @3 u% H9 g- Q "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", % I Q' o' Y" T5 W4 }
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
+ Y. r/ F2 |# ` "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ( m8 S4 \; }, s; I$ m
",", "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",",
- p+ E$ ?, a, y "28", ",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34", 5 g' S( B4 m! Y0 l' p: c+ p
",", "35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",", + E" p8 q$ v5 `4 y: j
"41", ",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47",
, Y7 M2 c- i7 p0 ]9 Y+ z H ",", "48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",", 6 G5 r: N- q5 h! c3 X6 U
"54", ",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",",
l6 y4 t2 T0 U) R; g! w' N6 D "0.507042", ",", "0.507042`", ",", "0.239437`", ",", "0.394366`", ",",
9 f. W4 b+ m! ` n& a1 ^ "0.338028`", ",", "0.394366`", ",", "0.15493`", ",", "0.591549`", ",",
0 \! b7 O$ h7 V6 i4 k; d$ z; k "0.408451`", ",", "0.295775`", ",", "0.661972`", ",", "0.774648`", ",",
8 ^0 q, d/ U8 z7 E! R "0.746479`", ",", "0.887324`", ",", "0.84507`", ",", "0.704225`", ",", & E9 X# {6 S2 e; `% E
"0.760563`", ",", "0.43662`", ",", "0.633803`", ",", "0.422535`", ",",
- f# V" K9 w( {( \6 {' y "0.295775`", ",", "0.309859`", ",", "0.408451`", ",", "0.197183`", ",", & Q: v" c( x3 U. Z" \) m
"0.732394`", ",", "0.802817`", ",", "0.746479`", ",", "0.380282`", ",",
3 q7 P* m/ A& K9 o. Y "0.56338`", ",", "0.323944`"}], "}"}]}]], "Input",
# {$ X2 s$ _. c2 b# u- B CellChangeTimes->{{3.577959534959416*^9, 3.5779595573142548`*^9}}],
( f6 k8 `7 S. `0 w; K) l( E/ k; v. y+ o+ P Y# T( ]! ^3 X
Cell[BoxData[/ R* S5 }( a# [3 g
RowBox[{"{",
1 r! r- y T1 [7 f& m RowBox[{* k5 `# p, [# z" x$ i, L( y% j
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
5 U. Z6 H6 t+ h/ T# K ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15",+ E! L: n3 e: h2 z2 c
",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",",
/ G% I2 T1 V" L+ |& s8 K "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", "28", , W1 d+ u5 p6 U' L. }2 o; {5 x
",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34", ",",
7 l. N0 }+ D1 k "35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",", "41",
4 w/ z% @" p: T) ^3 ? ",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47", ",",
. N2 q6 z% @& F) J9 P# D "48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",", "54", . V! P) D. h g9 x9 g
",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",", "0.507042`",
- K8 |" i6 f0 l" C ",", "0.507042`", ",", "0.239437`", ",", "0.394366`", ",", "0.338028`",
+ w9 Q, q8 l/ r" X ",", "0.394366`", ",", "0.15493`", ",", "0.591549`", ",", "0.408451`", ",",* Z" Y' h/ `3 l
"0.295775`", ",", "0.661972`", ",", "0.774648`", ",", "0.746479`", ",",
; D1 [3 X0 }+ f; e+ f+ S3 R$ _ "0.887324`", ",", "0.84507`", ",", "0.704225`", ",", "0.760563`", ",", 7 h, b6 L* E' h6 S+ W0 C6 _
"0.43662`", ",", "0.633803`", ",", "0.422535`", ",", "0.295775`", ",", 1 o! f5 u- M) k' w, I
"0.309859`", ",", "0.408451`", ",", "0.197183`", ",", "0.732394`", ",", ! V1 F8 b9 @% m' F) O
"0.802817`", ",", "0.746479`", ",", "0.380282`", ",", "0.56338`", ",", , j6 ~' F3 P; f4 T7 ?
"0.323944`"}], "}"}]], "Output",6 w0 x6 K7 G( r
CellChangeTimes->{3.5779595594514585`*^9, 3.577962351778991*^9, ( l% q! F0 [; I' ?
3.578012457234375*^9}]. M* n9 R! z6 Z9 g3 F3 E! M, a
}, Open ]],
! }- j/ b/ |2 Y3 M
, U' t+ |/ {5 f' v* [- X" j; f+ yCell[CellGroupData[{/ D1 t2 l2 R) N6 W
1 E8 Y/ v# G6 h, A) H& H3 W, gCell[BoxData[
9 ^3 D1 [" r8 V" c$ ^2 R5 f6 k( s RowBox[{"p2a", "=", . w& Y. k1 a# L
RowBox[{"ListPlot", "[",
8 a# V V+ E8 g" b# r' s RowBox[{"y2fit", ",", $ Y# n7 C; W9 w' A
RowBox[{"PlotJoined", "\[Rule]", "True"}], ",", 3 b3 x/ [8 m7 N, v) Y s& y' o
RowBox[{"PlotStyle", "\[Rule]",
( s4 {9 g/ {: ~: O+ D4 ] RowBox[{"{", + b! Y) E! M6 C/ P. N
RowBox[{"RGBColor", "[",
* ^0 m, r1 V0 s, q RowBox[{"0", ",", "0", ",", "0"}], "]"}], "}"}]}], ",",
z1 T: a" Y: p0 P+ y8 c RowBox[{"PlotRange", "\[Rule]",
/ g6 G# ^- B/ i RowBox[{"{", % X( A9 J! O5 z+ ?" s2 Z, t
RowBox[{
2 L9 b* H" N# q. `# n% u9 i* Y RowBox[{"{", 3 [6 E' n, ]6 S2 d! E% [3 `
RowBox[{"61", ",", "89"}], "}"}], ",", 9 b" c$ w! F- F' D! ^" [- E- F
RowBox[{"{",
3 K$ B, R8 Y3 d0 Q6 h RowBox[{"0", ",", "1"}], "}"}]}], "}"}]}], ",",
" D3 y8 ]3 [# b" a- O RowBox[{"AxesOrigin", "\[Rule]", # j, a- c4 W+ E5 {
RowBox[{"{", 3 V' J4 x4 W. b$ j
RowBox[{"61", ",", "0"}], "}"}]}], ",",
2 c: a8 G% o$ R RowBox[{"Frame", "\[Rule]", "True"}], ",",
7 I9 h0 p, g* p- U: B& w+ X' Z RowBox[{"FrameLabel", "\[Rule]",
/ A9 j7 F! A9 T0 Z6 y RowBox[{"{",
4 ~3 w- F& o4 _9 V: U RowBox[{
$ s' ~4 Y+ A# T "\"\<\:7089\:6b21\>\"", ",",
( D; V6 O/ K$ @3 H "\"\<\:94a2\:6c34\:7ec8\:70b9\:6e29\:5ea6\:ff08\:5f52\:4e00\:5316\:ff09\
, e$ m I+ h$ x7 M* j2 ]& s\>\""}], "}"}]}]}], "]"}]}]], "Input",& W/ i) W& j% |1 {5 a
CellChangeTimes->{# M# g6 v' J: v! l
3.577925078578125*^9, {3.577925141125*^9, 3.577925141453125*^9}, {
# T0 ?( g Q8 [4 ?% M% f O 3.5779583712597866`*^9, 3.5779583781393986`*^9}, {3.577958536604475*^9,
1 O+ \4 @. u e6 v* b2 Y 3.5779585491624975`*^9}, {3.5779592802577715`*^9,
% L5 m+ Z0 d( e5 ~8 F6 O5 m& W 3.5779593014270086`*^9}, {3.5779594039971876`*^9,
$ h9 s* n u$ B" }' [* b 3.5779594059783907`*^9}, {3.57795949706695*^9, 3.5779595174717855`*^9}, {! P9 t d; R, ?# I, f( M
3.5779604302529774`*^9, 3.577960442311798*^9}, 3.57801246978125*^9,
) g$ ^6 g5 Q9 ~# L. x9 ^# Y 3.578012920859375*^9}]," ~5 g* v( E% H3 Z" a
' l" Z0 U% H- b/ M% S; bCell[BoxData[
) S& N4 E* d, G* u. d GraphicsBox[{{}, {}, 5 V* u D( Y* e; X! u
{RGBColor[0, 0, 0], LineBox[CompressedData["( s5 h8 L' P5 c! T9 H# k7 o
1:eJxTTMoPSmViYGCQB2IQLfG6//j9f74ODGDwwR5C+zk4KBc05fPfh/Ab0PgM4 a3 `4 w2 b( G% V4 L" M* p* ~
/g4m4oprPt26A5X3dxAJP9lu738dKh/gcKP+aOqjnNsQvkOAQ9SpXDt3zXtQ6 u6 G } ]3 D% g# L6 h/ @0 {
9QEOX5eumfHj0gMI/0CAg/bMflMmOZj5gQ4JrN9OfvS7BdUf6LDxwhrZu30P6 U5 S7 ~, P/ z& @* w, ~
ofoDHVZuXXhg+6p6qP5Ah8uuLVeVMnug+oMcck/nsagE34TqD3I4uP6k+vJC
# d* \2 e& I9 y, z aqPsaghzi+pXfnJ53Cao/yOHQV+9FOsVQ8xmCHcrmvJ+53R7qP4dgh6P/FKdK
* g1 A, d) X" o* y5 ~7 ~2 S1ED90xDsEMcvcjVsCpR/INih6pmNEQvLY6j+EIfv6m2LK+WvQvWHOOTuqzlx
7 l; \, V7 v0 a0fYEVH+Iw5EJuS/WesL0hzi8kP0QYPHmLFR/qMO/I2uO+N6dBtUf6rAj61p1( E) A: o# [- \* j8 w; ~9 ~
sPt5qP5QB47ZhxK3nIG690CoQwOb5i6rkweg+sMc+K6uP7th9iOo/jCHdUEH
1 p* l% D) r7 J* s99yxuG0PAHw7nyU=
2 y7 G$ P% d7 S/ {% T2 D* Q "]]}},
' Q" e1 v5 E; x; T8 z# [6 I AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
. ?& x6 R1 L1 W v Axes->True,
0 I r5 L) E) e/ z. ? AxesOrigin->{61, 0},
0 |' }/ w# p, V Frame->True,
5 h, X% n1 d4 w6 {+ g W; ` FrameLabel->{
. p* `& S; S# J% P( v( l FormBox["\"\:7089\:6b21\"", TraditionalForm],
# S- B7 Q! O" H FormBox[) x4 k) Y( ^) H" h3 ~
"\"\:94a2\:6c34\:7ec8\:70b9\:6e29\:5ea6\:ff08\:5f52\:4e00\:5316\:ff09\"",
3 _- J# f0 q( x- V: i( U TraditionalForm]},, W; Q4 I6 q2 x4 C/ j, f
PlotRange->{{61, 89}, {0, 1}},
Z( f* C2 e/ D( \+ Z0 X- Z PlotRangeClipping->True,
K! I" @2 d) |! w2 ^5 c Y PlotRangePadding->{Automatic, Automatic}]], "Output",, [3 C" W. Z6 Y9 L
CellChangeTimes->{+ j, P- j" ~- Y! d; |
3.577925144625*^9, 3.577925396578125*^9, 3.5779583797150016`*^9,
, c5 \& U) E9 V# g% ~ 3.577958519990446*^9, 3.5779585510813007`*^9, 3.5779590670678*^9, }9 H F$ L$ x" k1 M
3.5779593035642123`*^9, {3.5779594075383935`*^9, 3.577959430158433*^9},
; D3 Y- C" z' C) R 3.5779595184233866`*^9, 3.5779604438874006`*^9, 3.5779623548833966`*^9, 5 f, |5 W$ }2 `7 G1 e
3.57801247209375*^9, 3.5780129225625*^9}]
4 Q/ S+ b4 [) g7 c' C% Z3 _. e5 q: y}, Open ]],$ _4 S1 r( M! t; V/ f9 k
) y% g7 T$ ~ J$ Z, @7 RCell[CellGroupData[{, J' e# @0 D4 a5 u% Y
* p. x) u6 k8 z T% CCell[BoxData[
4 E6 z( ?% Q- _# J4 n' O% N RowBox[{"p2b", "=",
4 e+ t' t5 Y/ Y, m6 H RowBox[{"ListPlot", "[", , s' F3 P( ~0 `2 b8 q9 V2 s
RowBox[{"y20", ",",
" R# a4 p- X" h1 c# D- _& l RowBox[{"PlotJoined", "\[Rule]", "True"}], ",",
% @! \% K& o+ e# B RowBox[{"PlotStyle", "\[Rule]", ' V1 V9 Q- L- }" M1 b8 ~
RowBox[{"{", $ `5 t, n$ ^+ S
RowBox[{
3 C% \2 t. e3 }; P& ` RowBox[{"RGBColor", "[", ( c! _* Y! v% u% Y2 G
RowBox[{"0", ",", "0", ",", "0"}], "]"}], ",", "Dashed"}], "}"}]}],
& G- n) p1 Z/ j) b ",", 0 k% q8 F0 m/ {" L) e9 s G- B
RowBox[{"PlotRange", "\[Rule]",
) C! V3 o# X' b, A! M3 | RowBox[{"{", ) _7 V6 ~' O) B/ P( b5 E! p
RowBox[{
9 I+ d: j( M# V! e0 S$ } RowBox[{"{",
( g1 m! Z+ d! y/ A8 A3 k RowBox[{"61", ",", "89"}], "}"}], ",",
" J' x( E* S) }$ F RowBox[{"{",
( W% r- S8 s9 b0 k$ B6 e+ Y RowBox[{"0", ",", "1"}], "}"}]}], "}"}]}], ",",
# p: M7 ~/ d4 y8 F RowBox[{"AxesOrigin", "\[Rule]", K8 T8 o( h& b0 R) v# j
RowBox[{"{",
3 h7 P1 f7 N8 L5 z RowBox[{"61", ",", "0"}], "}"}]}], ",",
- u2 c* q7 C0 m RowBox[{"Frame", "\[Rule]", "True"}]}], "]"}]}]], "Input",# L8 s# L$ h2 _4 d) `& T! L
CellChangeTimes->{
& L a( h4 T$ G8 P& y# D. U 3.5779253991875*^9, {3.577958382429406*^9, 3.5779583843326097`*^9},
0 ]3 c! }- d, y 3.57795855655691*^9, 3.5779595724462814`*^9, 3.57801248346875*^9}]," o% N+ [; j7 `% D- s. {9 r$ m
- I: H+ Y8 z) kCell[BoxData[7 r# }0 U: ^$ h& x8 |
GraphicsBox[{{}, {}, 4 K: A- U! P% f# T
{RGBColor[0, 0, 0], Dashing[{Small, Small}], LineBox[CompressedData["
0 ?8 E( K1 T8 J- R& C1 U: V1:eJxTTMoPSmViYGCQB2IQbff56PXX/3wdGMDggz2E9nPoi/ymssHyAYTfgMZn
% G; h0 v( @" l! x) c7 ~8 s( i% B/ Q8HdY88xS6f7Sc1B5f4clDzSfeNnehMoHOGSUexg6LLoK4TsEoMo3BDj8WDWV( R$ K# v2 _3 E" [. p* @
c/+VwxD+gQCH6gx57R9vH0H1Bzpw6R9cya9yC6o/0GFSzD/nX28vQfUHOvgc
: v8 }) l9 W5 A1 m, e0 miX5+X+8pVH+gQ4eu7axXJ19A9Qc5WF5ueav++DlUf5DDkWlyvl9T3kD1Bzk4* p% L' ^0 B) T6 m) C! L
TZ1le4HrNVR/kMP2iwz3mDqfQfUHO4S2FZp3hEHNcwh2WPHYkHnqx9tQ/cEO* l C" g" W+ Q/ A: f9 N
fzMXW8l6PIHqD4aaB5VnCEF1r0OIw6lD16/vunIZqj8E1X8HQqDhcxKqP9SB
* m; m! `: M8 }1 E; ATWdn19F8mPtDHa63f3Vbu+ElVH8oqv8OhDrkVAUEdIXdgOoPc9DhS68zZYeG; _; c3 O' |8 s2 h D0 v8 l h
p0OYg4Fg/tz63VfsAdsCnzU=
* J" C2 C) ^* Z" y: Z' h$ W "]]}},
( x6 J' G C1 v1 z" u; ] AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
* `$ ^& Q/ |4 M* K: [ g Axes->True,8 ` e' t2 s& M
AxesOrigin->{61, 0},
! O* v0 \# D" z- i Frame->True,
2 `; H( S! X1 h, Y PlotRange->{{61, 89}, {0, 1}},
" N" D. a" a; E7 ]$ @( a" c! `% c PlotRangeClipping->True,
1 x" I: r5 k+ Z$ g2 S7 d7 r) @8 ] PlotRangePadding->{Automatic, Automatic}]], "Output"," R$ v$ O( j( M
CellChangeTimes->{3.577925147265625*^9, 3.577925400640625*^9, # f+ p% R: d. Y: [: |0 L' h
3.5779583861890125`*^9, 3.5779585219092493`*^9, 3.577958558132513*^9, 8 w; f/ u7 V6 u3 d
3.5779590691114035`*^9, 3.577959577906291*^9, 3.5779623569426003`*^9, " m# @8 S% n2 A- U, [$ l, S) r0 {
3.578012484703125*^9, 3.578012925875*^9}]
4 I) k7 s; B' H8 @& z}, Open ]],
" R8 R8 J( [% B( W( Z g) n% v* B m' v/ _9 A L
Cell[CellGroupData[{- H& J0 i8 k- x6 J' ^0 k) N- f- w
8 F3 B4 l) x4 }3 X3 w6 K) GCell[BoxData[* Y: q; }7 U$ a3 @# j. ?1 L: x" i4 r' z
RowBox[{"Show", "[", $ H* r2 d0 k) x- x9 a7 }2 _
RowBox[{"p2a", ",", "p2b"}], "]"}]], "Input"],- u2 D3 C: [8 g. p% J. G# @" l- [
; O! t. J' g6 r% e, ^1 N; D) `# ACell[BoxData[/ u1 j$ w2 _9 X# ^. i+ n
GraphicsBox[{{{}, {}, . Y$ Y" @5 U, e+ K! o
{RGBColor[0, 0, 0], LineBox[CompressedData["0 x/ O5 L6 k, S+ o j
1:eJxTTMoPSmViYGCQB2IQLfG6//j9f74ODGDwwR5C+zk4KBc05fPfh/Ab0PgM4 x1 c8 j* o( l, `# c9 S* s! c
/g4m4oprPt26A5X3dxAJP9lu738dKh/gcKP+aOqjnNsQvkOAQ9SpXDt3zXtQ
, Z+ u h G6 l0 R7 E- |( v" J9QEOX5eumfHj0gMI/0CAg/bMflMmOZj5gQ4JrN9OfvS7BdUf6LDxwhrZu30P
& D) d0 m, J* f0 t. c- zofoDHVZuXXhg+6p6qP5Ah8uuLVeVMnug+oMcck/nsagE34TqD3I4uP6k+vJC# i. N( d7 \3 E
qPsaghzi+pXfnJ53Cao/yOHQV+9FOsVQ8xmCHcrmvJ+53R7qP4dgh6P/FKdK
' f. D4 e& }, u1ED90xDsEMcvcjVsCpR/INih6pmNEQvLY6j+EIfv6m2LK+WvQvWHOOTuqzlx/ x4 O0 j$ z/ I( r0 V& _
0fYEVH+Iw5EJuS/WesL0hzi8kP0QYPHmLFR/qMO/I2uO+N6dBtUf6rAj61p1; C& |8 x# q) I+ P
sPt5qP5QB47ZhxK3nIG690CoQwOb5i6rkweg+sMc+K6uP7th9iOo/jCHdUEH
/ f' h0 d! E5 q99yxuG0PAHw7nyU=
0 i- [9 j1 e+ \! [+ p: p" e "]]}}, {{}, {}, 8 ?6 ^' d% j7 L9 x' w
{RGBColor[0, 0, 0], Dashing[{Small, Small}], LineBox[CompressedData["
6 F" B" Y- |+ S/ T U1:eJxTTMoPSmViYGCQB2IQbff56PXX/3wdGMDggz2E9nPoi/ymssHyAYTfgMZn8 `: S8 g: D9 ]
8HdY88xS6f7Sc1B5f4clDzSfeNnehMoHOGSUexg6LLoK4TsEoMo3BDj8WDWV
# I% k% V8 r% Qc/+VwxD+gQCH6gx57R9vH0H1Bzpw6R9cya9yC6o/0GFSzD/nX28vQfUHOvgc7 _/ V$ e& t+ g) X- {* c% _
iX5+X+8pVH+gQ4eu7axXJ19A9Qc5WF5ueav++DlUf5DDkWlyvl9T3kD1Bzk4
0 b' [( r6 S$ d7 I' cTZ1le4HrNVR/kMP2iwz3mDqfQfUHO4S2FZp3hEHNcwh2WPHYkHnqx9tQ/cEO
; t+ R6 g8 w9 x* h+ J+ g& bfzMXW8l6PIHqD4aaB5VnCEF1r0OIw6lD16/vunIZqj8E1X8HQqDhcxKqP9SB
2 a; w! P& \( `& @; Z2 I/ G: ^" mTWdn19F8mPtDHa63f3Vbu+ElVH8oqv8OhDrkVAUEdIXdgOoPc9DhS68zZYeG& Y% L8 L3 R: s
p0OYg4Fg/tz63VfsAdsCnzU=1 o. j% G- p; F
"]]}}},; ]( ^+ x2 f0 [. S' w0 h- v
AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
8 F7 G$ b) W" J0 Q# G4 S1 M' s Axes->True,
6 w& W& B' `/ l& l AxesOrigin->{61, 0},
5 [+ B/ C4 R- g. }: A Frame->True,
( a7 w8 R) O3 H. ?/ M FrameLabel->{2 L( o- [: l1 k9 [
FormBox["\"\:7089\:6b21\"", TraditionalForm],
2 \8 q `1 k- s$ l) N; }- J FormBox[5 E8 Q6 \ M( S2 `0 W
"\"\:94a2\:6c34\:7ec8\:70b9\:6e29\:5ea6\:ff08\:5f52\:4e00\:5316\:ff09\"",
i% y/ z6 U9 I: }! \; Y TraditionalForm]},- i# s. p+ a1 w# |6 }* A/ U
PlotRange->{{61, 89}, {0, 1}},
3 {0 Y& b7 p7 }( F; n1 F2 w PlotRangeClipping->True,
+ n" J. P. n- g& ~: |8 z% B PlotRangePadding->{Automatic, Automatic}]], "Output",
2 Q4 T6 Y' g; q8 Q- ~) h1 A CellChangeTimes->{3.5779623624182096`*^9, 3.5780124863125*^9,
0 |# L7 W( P* H0 K0 j+ x 3.578012927734375*^9}]6 [3 [. b6 {! o0 q$ ~& `
}, Open ]],# p1 e8 P3 u- @4 h0 @* f
4 V7 i& }$ y7 ~) S, t1 w% yCell[BoxData[# T0 g9 z# ~: ^
RowBox[{"\:ff08",
9 B( A# h2 {4 Z+ B( J' `3 b- o RowBox[{
& ^* m2 G* Q' m3 E; C# d3 [) z "\:5df2\:77e5\:521d\:59cb\:94c1\:6c34\:8d28\:91cf0", ".7406", D3 p9 P: `( [9 e
"\:3001\:5e9f\:94a2\:8d28\:91cf0", ".4621", 8 P4 W+ u: D9 L w) f/ V. k: c3 N
"\:3001\:4e0b\:526f\:67aa\:65f6\:7684\:94a2\:6c34\:6e29\:5ea60", ".5208",
9 [' f0 A$ X* a4 x$ [4 K "\:3001\:4e0b\:526f\:67aa\:65f6\:7684\:94a2\:6c34\:542b\:78b3\:91cf0",
+ k9 Y# q4 f: |. W( V J3 R6 o8 n7 e ".2221", "\:ff1b\:76ee\:6807\:94a2\:6c34\:7684\:7ec8\:70b9\:6e29\:5ea6\
% d+ H2 d: k' V\:4e3a0", ".6224",
" P) g' V- k7 ^/ c5 o "\:3001\:76ee\:6807\:94a2\:6c34\:7684\:78b3\:542b\:91cf\:4e3a0", ".2521"}],
: P6 E8 K! G. X, f3 H- S "\:ff09"}]], "Input"], h! U3 \* e- {
# h& U+ x* o+ S" v
Cell[BoxData[8 m9 x: {. [ {4 V; K, }, i) q( k2 r
RowBox[{"{",
; O/ Y8 i V% [4 o8 b; T RowBox[{
( K- X% v, T, \! c' I4 I9 I1 W "\:94c1\:6c34\:8d28\:91cf", ",", "\:5e9f\:94a2\:8d28\:91cf", ",", ) n3 G" r2 W. u1 C: P0 b
"\:5439\:6c27\:91cf", ",", $ s* J3 q- e0 a3 I6 V/ _4 }
"\:4e0b\:526f\:67aa\:65f6\:7684\:542b\:78b3\:91cf", ",", 9 Y* i0 a7 e* r+ a: N* J
"\:4e0b\:526f\:67aa\:65f6\:7684\:94a2\:6c34\:6e29\:5ea6", ",",
7 G; h$ x) o: Q. Z# }) G "\:5757\:72b6\:77f3\:7070", ",", "\:8f7b\:70e7\:767d\:77f3\:7070", ",", ' M" D: Z% U, H( v
"\:83f1\:9541\:7403", ",", "\:5757\:72b6\:767d\:4e91\:77f3", ",",
$ l3 o9 T1 O/ S" I "\:94a2\:6c34\:7ec8\:70b9\:542b\:78b3\:91cf", ",", . T6 c5 Z! O6 }1 N" ]$ d% E, }
"\:94a2\:6c34\:7ec8\:70b9\:6e29\:5ea6"}], "}"}]], "Input"],
( j9 Q% y' R8 f, ~3 q. Q& C
- H; w3 s( r' \% e6 MCell[BoxData[" "], "Input",. O+ i* T0 s0 F- |# l9 C
CellChangeTimes->{3.577962834553033*^9}],
* s0 d" X' e, |. A- K5 q; V9 V5 R
" y, K3 T% ^2 c. u- \9 A, V2 PCell[BoxData["\:94a2\:6c34\:7684\:78b3\:542b\:91cf"], "Input"],
1 P1 s }7 x# O* I! M. j% h Q7 e6 b4 |( G: N' Z
Cell[CellGroupData[{
# L4 `, V. S! u3 g% M+ `
5 B5 L% j8 I4 ?& p5 G& l9 `% nCell[BoxData[
3 l: P6 |2 J# M3 C1 r/ o# y+ G RowBox[{"y1", "/.", 7 y4 V- c0 Q# N, G- M1 _
RowBox[{"{", 0 ~1 m; u: d/ F
RowBox[{2 |% [8 P( k7 ~7 t' z
RowBox[{"x1", "->", "0.7406"}], ",", . { ^. q0 C5 o
RowBox[{"x2", "->", "0.4621"}], ",",
8 \# b: x0 Y5 q3 r3 @* K7 K- w RowBox[{"x4", "->", "0.2221"}], ",",
$ ~$ M b2 f& j$ m RowBox[{"x5", "->", "0.5208"}]}], "}"}]}]], "Input",
P5 ~! C/ f% q. X2 d0 Z CellChangeTimes->{{3.57796267209435*^9, 3.5779627224200373`*^9}, {7 v& I- X6 m3 W( H, P- p4 u
3.5779627663029137`*^9, 3.577962774820529*^9}}],- M& v! W/ b2 t- i& z# Z
( A) o4 C5 Q9 ^, g6 T- B% V! S
Cell[BoxData[/ D/ ]+ [2 n" A! `7 I$ m7 L |
RowBox[{
: }0 m7 f ]' o& |8 [ f1 n RowBox[{"0.2286149508637297`", " ",
: s3 ]1 L6 I7 m4 _! R3 G SuperscriptBox["\[ExponentialE]", # r. c" i# p# b* y
RowBox[{"3.1415926535897936`", " ",
1 M$ A/ j7 Q5 m7 t5 q1 D$ u RowBox[{"(",
4 i: o9 U" N6 N RowBox[{) ~3 D8 Z- [ _6 P9 r
RowBox[{"-", "0.17911224641499998`"}], "-",
; X& k2 a. i$ ]+ H3 a2 H SuperscriptBox[5 b8 ^3 P' T& S5 w
RowBox[{"(",
: o4 a0 Q* j) [. v; g RowBox[{
( Z6 K0 V0 ^- S0 C" ^& l y RowBox[{"-", "0.530346`"}], "+", "x3"}], ")"}], "2"], "-",
) G+ \1 [* d" N! s SuperscriptBox[* a2 J& f" H0 W8 l' d& e9 `. s) _
RowBox[{"(",
: \) b5 ~$ n. m, z' R7 r" g RowBox[{+ r/ R/ J' K3 Q+ k @# `
RowBox[{"-", "0.529013`"}], "+", "x6"}], ")"}], "2"], "-", 3 \6 [+ d+ O6 h2 O2 C
SuperscriptBox[
z' E4 x0 n0 c" ] RowBox[{"(", & N- i0 {5 d- v$ z! [; |" r `& z; Q
RowBox[{
; ?3 U( G8 T; o# x; Z) V! [ RowBox[{"-", "0.409756`"}], "+", "x7"}], ")"}], "2"], "-",
3 d% ?& T' @9 O# x SuperscriptBox["x8", "2"], "-", + H- I f3 k& E7 e$ w- W& A7 n
SuperscriptBox[
" |! W% S G# E4 e3 z; Z RowBox[{"(",
3 n- ~0 e" O1 \# \* V5 Y+ U RowBox[{
/ ? V5 d+ U8 y( n# d RowBox[{"-", "1.`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}], "+", $ D+ F1 ~/ k0 b+ z P B7 F
RowBox[{"0.020180806675835994`", " ",
2 h7 |1 _# T) P! m6 N$ S, Q: e SuperscriptBox["\[ExponentialE]",
y2 A5 p+ {4 B) s6 n8 z RowBox[{"3.1415926535897936`", " ", : U' k3 s% \* o' g( |9 r9 b
RowBox[{"(", " _ W; S4 `& `3 ~/ V/ F
RowBox[{% v1 Z/ `, G' K
RowBox[{"-", "0.105619387859`"}], "-",
7 v# R9 i/ Q" l( m" X$ f SuperscriptBox[' L' j. }: q9 b9 ]4 f
RowBox[{"(", # ?( O( ]6 z+ _* v0 {' n, e$ A, W2 I
RowBox[{% @; W5 @4 u6 l' B; U
RowBox[{"-", "0.64973`"}], "+", "x3"}], ")"}], "2"], "-", " m' ]4 D) R6 ]" F Z
SuperscriptBox["x6", "2"], "-", % o8 d4 L! z: e( j7 f9 ]
SuperscriptBox[! a6 D5 r, A$ z5 ^4 E& b v
RowBox[{"(",
0 f/ |9 L5 ~# |' r RowBox[{
. w% _ x6 {; a' W$ x& L RowBox[{"-", "0.636585`"}], "+", "x7"}], ")"}], "2"], "-", * z/ n+ z, D- z. }. a( `
SuperscriptBox["x8", "2"], "-", - R$ {# G& ?# E( Q
SuperscriptBox[3 X9 x2 b" h9 r: j J4 H; e, Y" Z' d9 f
RowBox[{"(",
. L# N! _+ s. F) v+ {* f6 `3 G RowBox[{# ], e! Y& | Y% j# Z. l
RowBox[{"-", "0.766748`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}],
3 K, }( ? @9 e9 _, ~0 P# G* ^ "+",
" A8 r8 W) c$ @/ G RowBox[{"0.13092706311748437`", " ", * p. Y; Y H$ q
SuperscriptBox["\[ExponentialE]", # X1 |- B6 o m# Y. D8 Y. C, m* I& u* G
RowBox[{"3.1415926535897936`", " ",
' t' K3 B% x Z9 ` RowBox[{"(",
/ \4 W* ^) c( N/ P& V5 q# g$ Z RowBox[{& r9 E) c! U% j! K; s; F
RowBox[{"-", "0.236605670085`"}], "-",
' |: }% C& K5 _( Y+ V+ } SuperscriptBox[
5 b0 {. |6 ^& _1 [# b, j RowBox[{"(",
, X; M$ H7 E! ` RowBox[{4 x5 C8 x$ Q+ }9 p# H. M
RowBox[{"-", "0.109343`"}], "+", "x3"}], ")"}], "2"], "-",
8 B& e1 \: Y% b' w Q SuperscriptBox["x6", "2"], "-", . e6 g+ `. w! J- L8 ?" S
SuperscriptBox["x7", "2"], "-",
; r7 z5 H& \' }& l3 t6 S SuperscriptBox["x8", "2"], "-", . l& p0 z5 r4 ?0 ]& o2 x
SuperscriptBox[' T) p! C3 C0 K1 ?( v
RowBox[{"(", ) V7 p D- a) w% y3 u$ ?" B+ _, f
RowBox[{' C* Q" d0 d$ l4 c* Q- n6 v1 e
RowBox[{"-", "0.752567`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}],
9 S) W- d, m. b' U( q "-", ! M2 ~- e. d7 R7 U Z
RowBox[{"0.033459349088924784`", " ",
) z6 b# B9 {2 l S SuperscriptBox["\[ExponentialE]", + Y, w$ }- `1 L. C
RowBox[{"3.1415926535897936`", " ", ; [; z+ k- ?" j" g1 a0 Z
RowBox[{"(",
4 I- M% u) I& \3 ]' |9 \: ^" L RowBox[{$ H1 ~% w) b2 F" o8 F
RowBox[{"-", "0.46221081830200006`"}], "-",
* U; H0 F9 p* a" m SuperscriptBox[
: g3 M1 z6 H" a4 Y. {1 ]. Z RowBox[{"(", # B* `6 b0 {8 a' e0 D
RowBox[{3 g. i, r. G% J/ M
RowBox[{"-", "0.258697`"}], "+", "x3"}], ")"}], "2"], "-",
/ r+ d6 c& R5 s, z SuperscriptBox[! Q0 _5 p: i" q! P! ]
RowBox[{"(", 7 r1 M. b+ v6 k! h# |0 j) Y* b
RowBox[{7 `: y1 T g: F! z N
RowBox[{"-", "0.420497`"}], "+", "x6"}], ")"}], "2"], "-", * z9 ?# s# u" Z3 i4 P% z
SuperscriptBox[2 V. \/ E- ~ ]
RowBox[{"(", / W! | n" Y0 v& ^" p
RowBox[{& q q/ G+ }6 u/ b/ m, G" w n
RowBox[{"-", "0.535772`"}], "+", "x7"}], ")"}], "2"], "-", ( @0 a" N$ m* J [, I0 p7 N9 H! \
SuperscriptBox["x8", "2"], "-", 5 T0 r( v! A7 z+ n3 i
SuperscriptBox[
7 g; a+ h0 p1 Q. f) m RowBox[{"(",
/ Z, D! w8 I" d# z0 T RowBox[{
% N- L& w; Y4 G RowBox[{"-", "0.494866`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}],
3 p2 R1 B( B+ }* Y/ _1 F$ f0 I. ] "+",
. p+ \; w( N) T# }+ F RowBox[{"0.39611806709006653`", " ", 5 ?9 B% ~3 a* C3 f2 {
SuperscriptBox["\[ExponentialE]", - Z7 V. S3 R4 u
RowBox[{"3.1415926535897936`", " ",
4 t/ j! g c* D x3 G$ L; m( B* z RowBox[{"(", 3 U; n' F# W2 [. d$ Y% _4 ^
RowBox[{
( ?! H8 |6 I" q2 W RowBox[{"-", "0.5837889295140001`"}], "-", @6 R% g, D7 w" k
SuperscriptBox[4 r0 c# y. S- X6 n0 V5 I7 l# S" e1 `
RowBox[{"(", 6 o+ U7 |0 D) ~1 V
RowBox[{/ k+ u2 R0 C7 E4 U% @8 ]
RowBox[{"-", "0.027011`"}], "+", "x3"}], ")"}], "2"], "-",
8 o/ ^" c3 T) J+ @4 w0 W SuperscriptBox["x6", "2"], "-", ' v/ [. U+ M0 L. H6 @
SuperscriptBox[: ~6 Y. P' f9 x' S" h
RowBox[{"(",
) M" y) v7 Z, m! k RowBox[{
+ b7 ^1 J, j( I+ a; H2 E8 P3 y6 u RowBox[{"-", "0.452033`"}], "+", "x7"}], ")"}], "2"], "-",
2 k1 k$ R$ I1 ] SuperscriptBox["x8", "2"], "-", # S: B1 ]7 T, y' `3 Y }
SuperscriptBox[
7 u& t/ d) Z* l5 A {- q RowBox[{"(", X9 q& E; m* U. [7 {
RowBox[{! |: f5 i4 \* ^4 `
RowBox[{"-", "0.278729`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}], 2 I; k2 U: n' J
"-", + T0 G) p( i: z. ?1 j& G2 d/ _: S
RowBox[{"0.19996885877792045`", " ",
1 v9 g% U) ~* d SuperscriptBox["\[ExponentialE]", % B/ k9 E6 x0 T6 d# Q
RowBox[{"3.1415926535897936`", " ",
) G8 U) }; x: B* x$ ^% @6 Z6 G RowBox[{"(",
0 J: Y9 B& X, y3 A$ j, N& u RowBox[{9 H3 k4 G+ y+ Y% v7 O
RowBox[{"-", "0.19030188470200005`"}], "-", " i1 K; h3 S1 X1 [" n
SuperscriptBox[+ j w$ L' H) N D4 r) x5 D! e
RowBox[{"(",
2 b$ y4 K8 G- U' c8 R RowBox[{& D X5 u% L' A: |5 p+ L2 p& ?
RowBox[{"-", "0.510223`"}], "+", "x3"}], ")"}], "2"], "-",
7 o: t! M' K( @. R, F7 ^" R# T1 F SuperscriptBox[, O1 }- b+ Q& U- F
RowBox[{"(",
! w8 e; ~) R! c! g RowBox[{
' I: y7 y# [; O3 p: f2 I RowBox[{"-", "0.748304`"}], "+", "x6"}], ")"}], "2"], "-", 5 \0 R: ^; H9 R d& q" F; ?( T
SuperscriptBox["x7", "2"], "-", ) q% d: k7 z6 ^3 ?: c3 t# I: V% `1 u
SuperscriptBox["x8", "2"], "-",
6 l- p; M) c. B5 J, @' V5 X, S SuperscriptBox[5 E9 J& o( `7 G% s9 I
RowBox[{"(",
+ b% F3 e* }% q8 Y$ l1 j/ T& I RowBox[{. a# Z; k5 C+ c! R
RowBox[{"-", "0.243032`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}], 2 ?, S: z) N% x6 v
"+", % v0 s6 F+ ?! s$ U/ J
RowBox[{"0.23580523388620744`", " ", , ?5 G: b( T" |5 M- j0 D. z- A* C% Q
SuperscriptBox["\[ExponentialE]", # |9 }. V) K* o2 M
RowBox[{"3.1415926535897936`", " ",
a" @* g! W6 p" D# B" [: Z RowBox[{"(", 5 L: ]: O' S2 [4 N
RowBox[{% @5 y6 d: M7 K+ U$ t9 `
RowBox[{"-", "0.28518780882`"}], "-", 1 S! H5 J( M5 X$ e& {
SuperscriptBox[
% G+ |$ d8 e( I$ } RowBox[{"(",
: Q4 M0 ?# _& Q RowBox[{
E! X% H+ a# _$ o( J1 e RowBox[{"-", "0.158058`"}], "+", "x3"}], ")"}], "2"], "-",
1 c; R; v3 c7 `1 X+ ]7 P SuperscriptBox[6 F- P$ h, ~% n- v/ b
RowBox[{"(", % A7 v, P+ I! o$ h, K% ]2 O
RowBox[{
L, s6 A. m7 B @1 Q: w4 S/ b RowBox[{"-", "0.166541`"}], "+", "x6"}], ")"}], "2"], "-",
2 \" b6 M( ~! z& h0 o# l SuperscriptBox[ X% c4 n8 z8 I' B" {1 ?1 `
RowBox[{"(",
" S' M0 u9 f* s2 H# p% T6 J! ^ RowBox[{; d& z1 g0 ` ]: n# h7 ?" B0 _0 H
RowBox[{"-", "0.278049`"}], "+", "x7"}], ")"}], "2"], "-", : |3 C" y9 v" M1 m) R/ U$ v
SuperscriptBox["x8", "2"], "-", * R. A- t) ~/ C4 {3 N8 z: n
SuperscriptBox[, V) c. O }3 f9 G# [& d0 r
RowBox[{"(", 0 v7 z( t$ R, e! M# e( u
RowBox[{
" W% i G) e$ o RowBox[{"-", "0.236675`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}],
3 T' T% _5 r3 _& b" p# Q "+", ~& O; _6 g" m
RowBox[{"0.667027259367853`", " ",
, c. C* L( ]! D& z/ S; y+ ?- x SuperscriptBox["\[ExponentialE]", 7 D/ v5 u3 S5 O* `# H) W1 E. V
RowBox[{"3.1415926535897936`", " ", ! C1 s; q" y9 L, x, g6 }& U6 d }
RowBox[{"(",
3 c2 @' I1 f- ?9 h, x; [3 U) K RowBox[{/ o6 z' V r" T
RowBox[{"-", "0.11387365200400001`"}], "-",
. t& C5 e) \- S) S5 ?8 N; S$ U SuperscriptBox[# j! `) }) F; m
RowBox[{"(", 8 b3 d' S/ W7 b; g1 N
RowBox[{
, W) f2 r5 u4 d7 m RowBox[{"-", "0.177646`"}], "+", "x3"}], ")"}], "2"], "-", . Y/ S/ d% w# v/ N/ U
SuperscriptBox[
C' k1 L {# K+ }3 [$ ? RowBox[{"(", : I' _5 x d( \& p0 A. N+ l
RowBox[{
3 W, t, R8 ^' } RowBox[{"-", "0.502638`"}], "+", "x6"}], ")"}], "2"], "-", % z1 V! q6 t3 k8 `4 o. Q' J
SuperscriptBox["x7", "2"], "-",
7 i) ^- j+ ~7 S# A SuperscriptBox["x8", "2"], "-",
( t+ n* g5 I* Q! \/ y9 O SuperscriptBox[
' H" g5 M4 j& T, C RowBox[{"(",
7 ^2 A/ G6 A0 _. a. G) t$ H RowBox[{
6 ^8 m( K6 r* {& Y6 T4 [ RowBox[{"-", "0.178973`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}], " {+ C: t; y! Z$ b
"+", ( E) z. d m5 U* E+ G
RowBox[{"0.25282438852646905`", " ", , H& e" ?1 g7 J& s
SuperscriptBox["\[ExponentialE]", ' ^+ q6 K+ X- G4 P5 L
RowBox[{"3.1415926535897936`", " ",
9 a0 m) w% |/ A7 e' | RowBox[{"(",
8 w/ e0 w2 z8 }" i7 G2 P RowBox[{0 l) B4 Q0 l: @& Q; r
RowBox[{"-", "0.11442644782500001`"}], "-",
3 e: W6 x2 o! u SuperscriptBox[! P( K5 K5 t, l f% }' `. ]: v
RowBox[{"(",
! V6 `+ j' s; o/ V8 C( k: p v$ N9 K RowBox[{
+ z; q; ?$ W& z4 | RowBox[{"-", "0.33973`"}], "+", "x3"}], ")"}], "2"], "-", # q. ^+ m. E# P& k& D8 j P% A$ l" L" s
SuperscriptBox["x6", "2"], "-", ; j }7 L" C, U/ ?% Z4 t' a
SuperscriptBox[& M( @6 p( ?6 o& r
RowBox[{"(", : E( T1 J: _6 \6 w1 V! J, u
RowBox[{
6 |$ @, f1 m9 F# G, B' [ RowBox[{"-", "0.636585`"}], "+", "x7"}], ")"}], "2"], "-", 9 q+ J6 I. e4 B7 Q4 p9 P- A
SuperscriptBox[' n9 Y9 I* c0 Y4 S
RowBox[{"(", . D: |- D6 E4 f" W9 F8 S) G; Z
RowBox[{
) B: V0 g" r+ r S3 O RowBox[{"-", "0.780463`"}], "+", "x8"}], ")"}], "2"], "-", J1 g1 W3 y' N0 X; ?( k
SuperscriptBox["x9", "2"]}], ")"}]}]]}], "-",
& F$ k3 J6 G8 j: w- y6 z% f% q. l/ @ RowBox[{"0.07581214474544536`", " ",
) ~' d- i3 x% ?# i/ x% w) H SuperscriptBox["\[ExponentialE]", ^, ~$ K& ^0 e
RowBox[{"3.1415926535897936`", " ", - L) r' T( e0 R0 j' A! K
RowBox[{"(", $ _5 Z3 ^/ ~! W! d. J8 f2 \$ P
RowBox[{ u$ h. ^+ D* n
RowBox[{"-", "0.21008576609800003`"}], "-",
2 _# h4 |* l/ f7 _8 l2 o SuperscriptBox["x3", "2"], "-",
; d' v% G1 X' D/ P+ m SuperscriptBox["x6", "2"], "-",
$ U0 v, l V" w* t& T& x O" A SuperscriptBox["x7", "2"], "-", # ^2 y& O- M: H3 \, J! h! T6 L' `
SuperscriptBox[
- N8 z1 F0 P9 ]; S RowBox[{"(",
9 H; H4 Y/ }9 j% Z4 Z" T9 J RowBox[{
. W$ W' \# X2 j) J RowBox[{"-", "0.672709`"}], "+", "x8"}], ")"}], "2"], "-",
. y b3 }, p) J2 w& T8 r SuperscriptBox["x9", "2"]}], ")"}]}]]}], "-", ! v( [1 Q, p' r9 I' G- |/ [& q0 A
RowBox[{"0.10599338351843121`", " ",
, ^5 `1 F, e1 w0 ~ SuperscriptBox["\[ExponentialE]",
9 {+ [ @7 k% w5 d/ a( [7 } RowBox[{"3.1415926535897936`", " ", ' m! T8 r) @8 p8 f9 b, t
RowBox[{"(",
, H9 f( u# Q8 I! J" L: ? RowBox[{; x# d# A5 b2 Y, j
RowBox[{"-", "0.4481471925460001`"}], "-", 1 _3 D T0 p1 V6 f- K/ K
SuperscriptBox[ B5 e9 A( J$ E6 i; J% i" V1 d. Z
RowBox[{"(", / ]" ^; V% q) W% @% D/ y
RowBox[{9 | H/ X9 l6 [) K1 Z
RowBox[{"-", "0.452931`"}], "+", "x3"}], ")"}], "2"], "-",
" | J! |2 V, b/ f T( q SuperscriptBox[
+ P6 z) F! g* b; {5 u ] RowBox[{"(", 5 z9 w& p. v/ {3 l5 j+ r: N: `$ D
RowBox[{
( W+ Y7 J$ u( i& k; G RowBox[{"-", "0.370761`"}], "+", "x6"}], ")"}], "2"], "-",
9 Z% [, p* t7 t) G1 X SuperscriptBox["x7", "2"], "-",
5 @5 W* B5 ?- a2 B9 \ SuperscriptBox[% D6 g. V. a/ G3 q" k
RowBox[{"(",
6 I3 t; P; n E( Q! q RowBox[{+ [2 X( H. d( L; k& ^) c
RowBox[{"-", "0.509567`"}], "+", "x8"}], ")"}], "2"], "-",
% l8 c& M$ o# N! C$ _ SuperscriptBox["x9", "2"]}], ")"}]}]]}], "+", 0 q) W+ c' |' L
RowBox[{"0.5008208386064421`", " ",
/ F3 K. P, g \" [ h( Y+ j SuperscriptBox["\[ExponentialE]",
+ D5 J7 ?8 F2 Q. p: [ RowBox[{"3.1415926535897936`", " ",
8 ^* {" n& S6 C, n4 y" C- Q RowBox[{"(",
! ]# e1 w6 L5 N, w r RowBox[{
* f! V& V& j; o' C( O, `: Z+ h RowBox[{"-", "0.08722659614000003`"}], "-",
: V/ O5 A4 R- d6 L" W4 H; y/ @9 ~ SuperscriptBox[
0 E* G2 ?& y1 e: P* r RowBox[{"(",
f" g- K5 z2 W RowBox[{
: o4 q N! }! a7 ^( Z# l- D+ }" A RowBox[{"-", "0.4943`"}], "+", "x3"}], ")"}], "2"], "-", 0 n2 g! v+ ^7 S: m; q5 f/ R/ Y
SuperscriptBox[
" ~1 K# N5 m9 k' j e, A RowBox[{"(",
9 A5 q# g6 s5 v RowBox[{
" E9 F) `/ W1 o7 c! E RowBox[{"-", "0.375283`"}], "+", "x6"}], ")"}], "2"], "-", 4 Z* m/ ~% P4 y+ B
SuperscriptBox["x7", "2"], "-", 9 a ~) D4 l8 t: r" s. y2 m
SuperscriptBox[
& g, m. m+ l' L. s0 f8 Z5 K RowBox[{"(", , N; J9 \1 O1 A
RowBox[{
- \/ _% g( J3 G" a8 P/ L RowBox[{"-", "0.505539`"}], "+", "x8"}], ")"}], "2"], "-",
2 C4 j: {, |; E" z L! } SuperscriptBox["x9", "2"]}], ")"}]}]]}], "+",
: h1 x/ n2 T) J+ @- V8 Q RowBox[{"0.32564305572552343`", " ", 4 F* j- v# V; P; O
SuperscriptBox["\[ExponentialE]",
1 L( j& A6 W' ~: K; n RowBox[{"3.1415926535897936`", " ", - J& ] {3 @3 \0 x" u
RowBox[{"(", 2 i( [, I( ?! X& S( {1 Z0 w+ P' l' m
RowBox[{2 Y; r( r. d% {$ o/ D/ w, g$ F
RowBox[{"-", "0.23738217000100004`"}], "-",
! b% b+ D( m: n) b SuperscriptBox[
: H( s6 n& u9 ~ L# P RowBox[{"(",
9 p H* `: H. g; @! r+ M1 | RowBox[{
$ G/ n% `. V$ B# C2 X$ l: G0 l RowBox[{"-", "0.33037`"}], "+", "x3"}], ")"}], "2"], "-", ( I# n" V! b. y* j) e) n( w* ^" j
SuperscriptBox[
* S0 U& d6 w! C7 e# m1 l+ ] RowBox[{"(",
$ e* c, J4 h5 S5 `* z RowBox[{
! ~: Z, }4 L& s5 ^4 [ RowBox[{"-", "0.752072`"}], "+", "x6"}], ")"}], "2"], "-",
& Z* |3 Y- z. _: m' T- w SuperscriptBox[
% a' Z! f5 r- V, l' T RowBox[{"(", ; [, E% X) _# |; Z
RowBox[{, A5 A, u, }8 `* Q; L
RowBox[{"-", "0.408943`"}], "+", "x7"}], ")"}], "2"], "-", P( O/ i2 L# W% J9 l$ a6 g0 R& y
SuperscriptBox[% p) N4 O1 X8 W
RowBox[{"(",
7 J. L0 I! ~( q1 e RowBox[{+ n- {* {2 M( v- F! ^- C1 `
RowBox[{"-", "0.504532`"}], "+", "x8"}], ")"}], "2"], "-", - u) X/ T' {6 f, ?; a$ M% k
SuperscriptBox["x9", "2"]}], ")"}]}]]}], "+", ' t# h) y9 z7 |% v* \6 w
RowBox[{"0.6665374509702793`", " ", 2 Z& ?, M% x. R" R2 y7 @3 J" n
SuperscriptBox["\[ExponentialE]", & O" [# x6 H; U+ a
RowBox[{"3.1415926535897936`", " ", T9 J& n; g2 J- T" c" q% E
RowBox[{"(",
' \9 t9 A2 l2 K" [& { RowBox[{6 R2 r0 b; c9 a& c% p [7 Y9 ?
RowBox[{"-", "0.19162171876400003`"}], "-", . X+ K- ]) t: ?6 u; S
SuperscriptBox[5 r7 J+ c& y# w, _5 i4 D8 v
RowBox[{"(", 6 k: m# s! S2 u% r( Q
RowBox[{7 \$ A+ a' t4 h1 s: j
RowBox[{"-", "0.544826`"}], "+", "x3"}], ")"}], "2"], "-",
- P E ^. U* X SuperscriptBox[
7 X, d9 D; K. @2 S, x; r RowBox[{"(", $ \* c( ~0 c- J7 G7 F
RowBox[{2 A; R4 ~8 A6 `
RowBox[{"-", "0.53052`"}], "+", "x6"}], ")"}], "2"], "-",
P: y) F u* o. W9 B SuperscriptBox[
' x" N K) J9 ?7 @ RowBox[{"(", + M/ J& H* G- f- X2 n' K' m
RowBox[{. S3 H4 V. }' T- u5 W/ D; N
RowBox[{"-", "0.819512`"}], "+", "x7"}], ")"}], "2"], "-", 8 d7 J3 ~6 X$ Y4 O% {! A( y
SuperscriptBox["x8", "2"], "-", # A' x# b7 O- \6 j+ ^ ^( x5 N0 E- u
SuperscriptBox["x9", "2"]}], ")"}]}]]}], "+", 9 m/ n) n+ e4 m* Q% ~7 ^/ ?
RowBox[{"0.4812237524557293`", " ", # j3 z4 X9 v+ C" C# Z9 a
SuperscriptBox["\[ExponentialE]", - e: ]# S5 N+ t+ D
RowBox[{"3.1415926535897936`", " ", 0 R3 r \$ d; H
RowBox[{"(",
4 J5 A% L# o- i; |5 y RowBox[{
+ i2 J" }6 l+ p+ _0 Y5 k, v. e RowBox[{"-", "0.109748954594`"}], "-",
4 S4 O; o6 Z7 C* ~8 n SuperscriptBox[
: {4 \- \' {3 a: n RowBox[{"(",
& q& g- r# P9 G7 a6 G RowBox[{
' H" f7 f2 z0 J$ _# l6 Z" z RowBox[{"-", "0.160584`"}], "+", "x3"}], ")"}], "2"], "-", 8 Q. x7 t8 z; m5 W
SuperscriptBox["x6", "2"], "-", ! E* o5 x/ J# A0 e
SuperscriptBox[9 {7 J7 |: y% J. n
RowBox[{"(", : D8 t% ^7 ]8 O5 ^
RowBox[{
# u0 x, ~! m% ]% o# [, ?/ F RowBox[{"-", "0.684553`"}], "+", "x7"}], ")"}], "2"], "-",
. @- `' C# h9 l0 |; M SuperscriptBox["x8", "2"], "-",
1 |% [5 H/ w, i6 U) W# f SuperscriptBox["x9", "2"]}], ")"}]}]]}], "-",
; H% |4 N8 C1 E RowBox[{"0.176024676254045`", " ",
7 i) E' @4 b Y% F; ] SuperscriptBox["\[ExponentialE]",
, r( {2 _9 `3 _& f, }$ V8 w RowBox[{"3.1415926535897936`", " ", }4 L6 b* ?, k- g
RowBox[{"(", ! U" E( v. G$ N5 ^" f1 F4 o9 V2 A D
RowBox[{
* @8 i: Z$ W9 o RowBox[{"-", "0.14616677062500003`"}], "-",
7 r* c/ I7 f$ |4 G+ @% ^5 k SuperscriptBox[7 S! W* S+ U( _8 \ z
RowBox[{"(",
' W. f! L8 \2 k5 t5 r RowBox[{
2 n$ z& v/ t0 }- | RowBox[{"-", "0.414297`"}], "+", "x3"}], ")"}], "2"], "-",
/ {) h$ V1 w; U1 H, l, Y. | SuperscriptBox["x6", "2"], "-", 9 x( X1 V& V6 Z
SuperscriptBox[
! L m/ S6 Z ]4 }. ? RowBox[{"(", % T# q5 g! n' w/ D8 L( V J
RowBox[{
8 Y1 K g8 X; w% g {$ d RowBox[{"-", "0.544715`"}], "+", "x7"}], ")"}], "2"], "-", 3 F+ @: b, E9 n/ e. r4 _7 P
SuperscriptBox["x8", "2"], "-", + v& T9 ~* B; B" ]! ~
SuperscriptBox["x9", "2"]}], ")"}]}]]}], "-", 2 t. \0 c3 W: {8 z
RowBox[{"0.5945873894818965`", " ",
3 C& u0 V% g) h$ k+ Y, Z) }" O% h" m SuperscriptBox["\[ExponentialE]", / X+ n, i: x) u* y- U" a n% G
RowBox[{"3.1415926535897936`", " ",
* D" F$ b, D1 W, b1 k RowBox[{"(",
b \2 l& R. f! N6 r( I* x RowBox[{
# _% N$ `$ T: o3 Z9 x S7 s3 G" F$ p RowBox[{"-", "0.10407011464100005`"}], "-",
8 U. z6 ?- m- ]+ e2 u. [ SuperscriptBox[+ t! H' D! b' H# N. s* E/ H
RowBox[{"(", $ j# f1 [4 s# J( C, m
RowBox[{9 a8 i3 y$ \/ F
RowBox[{"-", "0.3555`"}], "+", "x3"}], ")"}], "2"], "-",
! C) d' D3 k6 a1 ^4 r' M, M SuperscriptBox[4 _; W2 |" w& {" m" }" e- N
RowBox[{"(", ( @: o. w, y' k9 D- q5 U
RowBox[{
$ q/ i, e% |8 d- Z+ @' d( k RowBox[{"-", "0.37679`"}], "+", "x6"}], ")"}], "2"], "-", ) `5 }/ \ t( F5 T
SuperscriptBox[
5 q% G+ z4 G+ t5 y RowBox[{"(", : u$ k- H9 f7 H+ k: c3 X3 }
RowBox[{) | ]; C5 l0 b9 ?
RowBox[{"-", "0.411382`"}], "+", "x7"}], ")"}], "2"], "-", . ]' g2 Y- J0 `2 ^: B% O( M0 _# f0 c
SuperscriptBox["x8", "2"], "-", * Z8 V! T( K7 {/ k: |
SuperscriptBox["x9", "2"]}], ")"}]}]]}], "+",
* h' A. f* q2 B; l- Z( A RowBox[{"0.027591936509660075`", " ", 5 _. Q5 l& x( c
SuperscriptBox["\[ExponentialE]", - X, g8 c' K g, e/ Y
RowBox[{"3.1415926535897936`", " ", . o7 b0 E, K3 F0 C9 D: B8 I
RowBox[{"(",
5 T$ e* Q8 v f+ I( x RowBox[{
k' e9 Y$ M( w- r% i RowBox[{"-", "0.31770463544200006`"}], "-",
& ^' a7 r& q7 x. u7 b SuperscriptBox[
; h1 ~) q% x) x+ \. ]% \1 w1 o% D RowBox[{"(", , J/ O5 U& x; l- n/ S
RowBox[{
& y+ T% z$ B. L( w2 z; p; W RowBox[{"-", "0.655012`"}], "+", "x3"}], ")"}], "2"], "-", 1 E- I+ ~4 u. b# j6 e8 j1 M
SuperscriptBox["x6", "2"], "-", ) T6 W+ e; {5 O- `: I
SuperscriptBox["x7", "2"], "-", ' h% y1 b! h$ F2 T- L! z
SuperscriptBox["x8", "2"], "-",
" k+ }" C! e( l \ SuperscriptBox["x9", "2"]}], ")"}]}]]}], "+",
1 i) A% Z; w+ C% L6 J RowBox[{"0.5252475961933536`", " ", " K" b, {6 v2 w9 X
SuperscriptBox["\[ExponentialE]", / j% B; \. U, B
RowBox[{"3.1415926535897936`", " ",
' s! M' H; F/ m RowBox[{"(",
* x) N8 t7 C& { RowBox[{
J" j5 Z4 o: ^& E0 e" l RowBox[{"-", "0.6410867660730001`"}], "-", $ w; l- e1 a: ~, m$ ^) [+ }- P
SuperscriptBox[
' f# |2 x; v! _( H) n ~. G RowBox[{"(",
, e0 B" n" R3 i, y RowBox[{, \ p+ p" N# B$ w
RowBox[{"-", "0.420753`"}], "+", "x3"}], ")"}], "2"], "-", 1 c; I+ Z$ y6 ^- s! K
SuperscriptBox["x6", "2"], "-",
3 z" |1 ^2 z* R SuperscriptBox["x7", "2"], "-",
1 W1 `$ X! k. K8 J; ~, B4 l6 {2 { SuperscriptBox["x8", "2"], "-", $ n+ ?8 A# M4 ]9 }1 \7 Y1 v5 n
SuperscriptBox["x9", "2"]}], ")"}]}]]}], "-", # Y3 \. ?; d X& A! ?7 s- `; x
RowBox[{"0.32047284779644936`", " ",
1 d5 _2 g7 p' {& X* p) q D) m; \ SuperscriptBox["\[ExponentialE]", & Y7 j& t9 n- ]" d# W! R4 Z
RowBox[{"3.1415926535897936`", " ",
x- A* ^# t. p1 S j& n0 C RowBox[{"(", 0 {4 P8 o) L* H8 U3 Q+ R
RowBox[{
6 T8 W4 j/ q' ~1 X RowBox[{"-", "0.155663887074`"}], "-", ( w" _) f! g/ P( E, m& K* C
SuperscriptBox[
" ~2 }- ?# B( {+ q! i4 a RowBox[{"(",
" Y8 Q" t* S k. c3 E# V RowBox[{
: ^9 w7 m3 T4 j- _ RowBox[{"-", "0.267704`"}], "+", "x3"}], ")"}], "2"], "-", B z% u/ S! {- u( f# R& P& o9 i
SuperscriptBox["x6", "2"], "-",
$ x4 h* k- R$ m, z SuperscriptBox["x7", "2"], "-", 5 ]' `5 o- L- c" z
SuperscriptBox["x8", "2"], "-", . y/ H( ~0 o3 }- e" n4 D
SuperscriptBox["x9", "2"]}], ")"}]}]]}], "+",
7 p; w. [# d9 f+ g RowBox[{"0.7528674241482847`", " ",
. Q, l) @& i% f# |# |* J SuperscriptBox["\[ExponentialE]", ) B% l. c' K9 [
RowBox[{"3.1415926535897936`", " ", / `, x# `0 J3 q/ a0 @
RowBox[{"(", . y4 e! V8 \+ n$ V& l
RowBox[{
6 u4 b& x, q- C5 Z; Q RowBox[{"-", "0.14151232428600002`"}], "-",
3 T; @; O& F# O SuperscriptBox[
. I5 l( ?+ I: s8 n$ b) M% x RowBox[{"(", $ N- z9 h5 ]" ]! I) a
RowBox[{" p2 O6 P. D1 v2 d+ |4 D& G2 i
RowBox[{"-", "0.234619`"}], "+", "x3"}], ")"}], "2"], "-",
1 f/ i7 ~8 W( H( @" d9 v$ z SuperscriptBox["x6", "2"], "-",
5 g' Z5 M3 `3 u$ e# s SuperscriptBox["x7", "2"], "-",
: _! n; ^+ A% Z7 O SuperscriptBox["x8", "2"], "-", % U0 m) S5 H* b& H6 v5 l7 x! @
SuperscriptBox["x9", "2"]}], ")"}]}]]}]}]], "Output",
. s, e% Y3 ?4 y) d. R CellChangeTimes->{3.5779628386090403`*^9}]1 i: y5 y8 {, R5 C3 y) @1 _/ K
}, Open ]],3 I$ k* a* P( g+ \' q- r
* X& P s4 @3 e$ t# I4 vCell[BoxData[" "], "Input",- Y A: q& Q3 U* L
CellChangeTimes->{3.577962835879035*^9}],6 L9 v- k, `" t
7 l5 Y4 d O/ T
Cell[BoxData["\:94a2\:6c34\:7684\:7ec8\:70b9\:6e29\:5ea6\:4e3a"], "Input"],
7 _1 k8 B# f- h% U
* F6 l& F: l3 n/ nCell[CellGroupData[{
( b* A* ~- j& u5 w5 A0 T
+ n: J. W& L5 U: q1 kCell[BoxData[) H/ e( I$ I% {2 S( O
RowBox[{"y2", "/.",
, U3 V+ N! k2 t6 g6 p ^ j RowBox[{"{",
* @1 C. |. J/ e RowBox[{$ W( G! J- m: i0 C5 q
RowBox[{"x1", "->", "0.7406"}], ",",
' ?6 _0 l2 ^( L' j# N- G' C RowBox[{"x2", "->", "0.4621"}], ",", $ F+ |- W, u3 z$ F3 E
RowBox[{"x4", "->", "0.2221"}], ",",
8 u8 j! q% b7 J' f' g, O RowBox[{"x5", "->", "0.5208"}]}], "}"}]}]], "Input",3 b2 c6 z$ W. i7 q
CellChangeTimes->{3.577962787784151*^9}],
J4 S' c9 L1 [$ i J& o( q; m* |5 d" o1 w
Cell[BoxData[
# P+ \( K# g6 I J4 g Z U* F7 |5 o RowBox[{) E# |8 k3 N, y B3 {7 |( N
RowBox[{"0.9125798890455848`", " ",
% L+ ?0 k1 q- U5 q. U0 ` SuperscriptBox["\[ExponentialE]", 6 T5 O3 l w2 J, x* {. P
RowBox[{"3.1415926535897936`", " ",
/ N, R2 e5 {% a( I RowBox[{"(", ( r1 U4 ^& d1 ^% Z; Y. ~
RowBox[{
( w2 r& t b; G RowBox[{"-", "0.17911224641499998`"}], "-", 6 H( I4 q: t& M
SuperscriptBox[: q5 ~% Q# S" R0 G% b' ]5 y
RowBox[{"(", 3 o7 ]. a2 E# R2 [. o7 z
RowBox[{
4 x( x" h, F- | RowBox[{"-", "0.530346`"}], "+", "x3"}], ")"}], "2"], "-",
1 U9 a2 s* ?5 Q5 r SuperscriptBox[
8 T O$ W6 e% t y6 ]: @6 J RowBox[{"(", 7 a+ T$ ?) Z# u1 M
RowBox[{4 \; V$ Z% @, _
RowBox[{"-", "0.529013`"}], "+", "x6"}], ")"}], "2"], "-", 3 y8 C! O( ~ P* h% o
SuperscriptBox[7 U. S; ~4 z4 D0 a: e1 O$ ]
RowBox[{"(", 8 S* K/ T$ r! d: a( h
RowBox[{0 P4 s7 z) n( Y g( @
RowBox[{"-", "0.409756`"}], "+", "x7"}], ")"}], "2"], "-", 9 U) c9 y! m- R% [0 Z
SuperscriptBox["x8", "2"], "-", 2 r2 n( G; R* ?$ P
SuperscriptBox[* V) t& U- ~5 g' }4 `$ k4 s
RowBox[{"(", 3 Y O8 B+ C/ V& _( P4 R! m
RowBox[{
; i: n; a* U& y1 Q RowBox[{"-", "1.`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}], "+", + ^6 ]$ r( {8 Y) [
RowBox[{"0.2883186011296682`", " ", : [) k; g2 g* |5 y3 @( k5 P
SuperscriptBox["\[ExponentialE]",
6 ]$ t) n% @0 \8 L, {% J RowBox[{"3.1415926535897936`", " ",
' ]! p$ _0 G) l* b( c; ]6 T RowBox[{"(", 8 |% s# E ^3 A' ~$ S+ J' x
RowBox[{! U/ y( S! ]8 s* j7 h$ e
RowBox[{"-", "0.105619387859`"}], "-", % s1 v$ k3 H# l' R" E
SuperscriptBox[( X9 ?3 p3 [& \1 s* e* k8 L
RowBox[{"(", ) R3 X. z5 F! v+ S" X$ p
RowBox[{ \- m4 w1 ^8 b
RowBox[{"-", "0.64973`"}], "+", "x3"}], ")"}], "2"], "-",
0 e& o v9 A- x9 } SuperscriptBox["x6", "2"], "-",
. a- L, x7 ~6 C SuperscriptBox[
' O0 H, }9 R, r% U& I RowBox[{"(", ' t8 n( ^# h" T
RowBox[{5 @# s1 ~0 M* i) d0 \6 m% a/ U
RowBox[{"-", "0.636585`"}], "+", "x7"}], ")"}], "2"], "-", * i8 _; t: ` H5 C$ N. f7 w3 y; Q
SuperscriptBox["x8", "2"], "-", , i; }2 a3 }" M* K5 s
SuperscriptBox[$ e8 f' N9 W7 q1 s
RowBox[{"(",
6 J4 r0 k4 j3 s; f RowBox[{! j1 X% ]+ T3 E+ C5 Z( J( \) v
RowBox[{"-", "0.766748`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}],
5 v0 t# f2 v% P: |8 S "+", q) ^) s( k1 j+ }# k6 @: d
RowBox[{"0.2115905228598317`", " ",
! Z }6 N9 K. \5 N+ [ SuperscriptBox["\[ExponentialE]", , R( ^8 \7 _& U6 o6 `
RowBox[{"3.1415926535897936`", " ", ' s4 l) D. [5 \: }* I& u/ r
RowBox[{"(",
0 n8 V- c! u3 v* a, `( W. C, l RowBox[{
- R- Z) x: H5 f6 c% k RowBox[{"-", "0.236605670085`"}], "-",
9 N1 G! s" f! n6 H9 I* f SuperscriptBox[- s' f0 E8 U1 F7 ]0 }
RowBox[{"(",
% U) c; y) @0 N RowBox[{
; V- ~) O# e0 c c RowBox[{"-", "0.109343`"}], "+", "x3"}], ")"}], "2"], "-", 2 C+ S/ d# L5 R. @) X3 b+ T f
SuperscriptBox["x6", "2"], "-",
! A& l7 m! M& H# t3 g" S& r SuperscriptBox["x7", "2"], "-", 5 j0 S, @: N2 ~$ o4 \ J! f& X: G$ B
SuperscriptBox["x8", "2"], "-", 7 d% o. O7 F4 |6 w" [
SuperscriptBox[
# P) ^8 R; e# E0 l! I7 j RowBox[{"(", ( ^6 h* ]4 K9 q
RowBox[{) w6 O5 X% N0 ~5 i0 n& W6 G" G2 Q
RowBox[{"-", "0.752567`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}],
) k- V. r) K2 Y, C7 {& J- ` "-", 3 Y: k8 d/ z& K* b/ @( ~( |
RowBox[{"0.22829938846668896`", " ",
) y* y' ~ ~( S4 X SuperscriptBox["\[ExponentialE]",
. H8 t, ]/ B+ L RowBox[{"3.1415926535897936`", " ", , ^7 T: a1 }* E+ B* m
RowBox[{"(",
2 k- V7 b) s$ @% c8 \. V J6 W RowBox[{/ c' t3 D; o% u" M) J! K5 c- H, H
RowBox[{"-", "0.46221081830200006`"}], "-", % p# D" G: O3 b
SuperscriptBox[* }6 ^; @6 G# o0 C
RowBox[{"(", / c- ~, z/ ]5 O
RowBox[{
]/ W8 ~! L& n p, c RowBox[{"-", "0.258697`"}], "+", "x3"}], ")"}], "2"], "-", + b& Y& W7 `3 x7 O
SuperscriptBox[6 M m$ a; \ O
RowBox[{"(", 9 `" l2 o9 \2 v+ v
RowBox[{& D) I' |6 C) u$ N7 D3 z) v! o
RowBox[{"-", "0.420497`"}], "+", "x6"}], ")"}], "2"], "-",
3 o: ^& t7 a; m" B SuperscriptBox[
4 ]( l& p; \9 x RowBox[{"(",
4 h8 ~4 U9 |4 Y6 d& { W' N RowBox[{6 f7 p& x$ t4 i! x% s8 {* B
RowBox[{"-", "0.535772`"}], "+", "x7"}], ")"}], "2"], "-", 3 W9 ~8 d6 ~0 V, a* v# i3 f$ _) j
SuperscriptBox["x8", "2"], "-",
; g! z0 d4 I! J/ m5 P* ] SuperscriptBox[9 u3 J3 k7 ^! u+ I
RowBox[{"(",
9 p$ s- f& |+ F1 H1 l RowBox[{
7 d# d* A7 X P: j. n RowBox[{"-", "0.494866`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}],
% j% P7 Q( Y6 o* Z5 W) L5 N "+",
4 s8 y) P& G5 q# b2 L) N/ { RowBox[{"0.27551257162880105`", " ", 7 {! H" x {( F3 H
SuperscriptBox["\[ExponentialE]",
( P; x2 ^: Q! l6 ], ]1 B9 ? RowBox[{"3.1415926535897936`", " ", 2 Y# b& M. ^6 B* r
RowBox[{"(",
1 m! V; W+ v% u$ ~ RowBox[{- R" G0 Y6 L9 u. h' S4 W1 @# Y
RowBox[{"-", "0.5837889295140001`"}], "-",
: n: h4 F* |' k& R) O' T SuperscriptBox[( f, ~# s+ g% |- t$ F8 x" M+ ]2 b8 j
RowBox[{"(",
7 t2 s5 ~7 M2 W RowBox[{
% ]# P" u* w l$ L RowBox[{"-", "0.027011`"}], "+", "x3"}], ")"}], "2"], "-",
$ T& r. L- m3 } SuperscriptBox["x6", "2"], "-", ( r6 `- Z: p) G7 O$ Q
SuperscriptBox[
6 o; p5 s8 J! J2 Q) L( K5 I RowBox[{"(", 6 I& P* T$ l: O3 R2 y9 ~ x, a
RowBox[{/ c, v9 B* v! A1 _# e, {* t7 a
RowBox[{"-", "0.452033`"}], "+", "x7"}], ")"}], "2"], "-",
& O& M$ `) X' w+ D& { SuperscriptBox["x8", "2"], "-", : m+ q* e* B* K5 Y# X+ M; ]5 E
SuperscriptBox[
3 ~4 [# q3 [* X% [" @: { RowBox[{"(",
d3 W1 c* f, U( j2 z7 ]! p! R RowBox[{+ Y0 @& b4 n/ @, a, R5 _
RowBox[{"-", "0.278729`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}],
; Z: ~! D! K* O- W% z/ I "-",
. i1 \2 Z- a+ y& X RowBox[{"0.12620581913715256`", " ",
( T% S* X6 Z4 N! n: i3 ? SuperscriptBox["\[ExponentialE]",
' g3 E& R9 p6 t' n RowBox[{"3.1415926535897936`", " ", : }7 a# n; b0 ?( v
RowBox[{"(", 4 H/ x6 F2 M- c: X- J5 o
RowBox[{
4 q% Z# S. ^9 l RowBox[{"-", "0.19030188470200005`"}], "-", 7 c+ o/ O- F) |+ i8 n+ H7 C; B3 c
SuperscriptBox[- i K" v0 s2 H5 [& |+ `3 d6 L
RowBox[{"(",
/ Z3 X' j2 A1 w& B RowBox[{2 ~7 I' E9 }8 T
RowBox[{"-", "0.510223`"}], "+", "x3"}], ")"}], "2"], "-", + S3 |) T2 I i! M' d* r1 O1 X4 Y
SuperscriptBox[8 d7 b! K1 U2 t; k( e
RowBox[{"(",
2 Z: {- o$ w2 u0 h3 T0 A0 l$ Q RowBox[{5 _- A: I; F- F `7 Q8 p/ o( ^
RowBox[{"-", "0.748304`"}], "+", "x6"}], ")"}], "2"], "-", 1 U/ i- T% q5 B1 s- ]
SuperscriptBox["x7", "2"], "-",
C2 t9 H- P8 Q1 k% L# x) x* v$ U3 h SuperscriptBox["x8", "2"], "-", 9 n- Z% ?# P* f# K# C c; y! f
SuperscriptBox[
. _. Q, Z" F: `' D RowBox[{"(",
8 W' r, y& k; ~3 U9 E5 n% m RowBox[{3 v) x" A- o: t9 L5 _
RowBox[{"-", "0.243032`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}],
# a/ K. Z3 |4 ]8 R6 B" _" {% e! e "+", / {5 l6 [7 K5 s5 o# j
RowBox[{"0.12782130225993898`", " ", $ `' ~# {( X$ H3 y0 Z' t8 I8 Y2 @
SuperscriptBox["\[ExponentialE]",
" s' W3 j- n+ D( |: O) v5 F RowBox[{"3.1415926535897936`", " ", 4 O7 {5 W7 ^' e! A$ C: ~& }
RowBox[{"(", a( `) f# T# g
RowBox[{ m6 b2 [3 q6 r/ \( x
RowBox[{"-", "0.28518780882`"}], "-",
3 G& G+ h; L( r6 d& C7 Y SuperscriptBox[: h+ C. a6 u$ K, |
RowBox[{"(", , b4 r# p; I+ q* [
RowBox[{
1 k) q" P9 r9 i# j5 d% ~5 \ RowBox[{"-", "0.158058`"}], "+", "x3"}], ")"}], "2"], "-",
' r) |; E, i# H0 u- ~ SuperscriptBox[7 w. o* C. ]' q! N4 t; ~( o/ i
RowBox[{"(", 8 W8 d/ U+ m' j
RowBox[{
/ n& A2 i! ~( x% w RowBox[{"-", "0.166541`"}], "+", "x6"}], ")"}], "2"], "-",
+ D7 Q) R3 |" P0 R SuperscriptBox[
0 {' n" H S# b, L. x7 G9 S: ` RowBox[{"(",
; y7 x; t1 W, e4 a2 r7 ? RowBox[{" z. j. H+ B$ R! R8 ^# i1 x# b1 D ]
RowBox[{"-", "0.278049`"}], "+", "x7"}], ")"}], "2"], "-",
2 S* P, q! k K3 i' m* j SuperscriptBox["x8", "2"], "-",
& B- A2 D% v! }' c6 s SuperscriptBox[# T3 ?! e) D. d3 S' j4 f s
RowBox[{"(", , a" s& ~- w2 R( J- K" Y" m; T1 Q" T
RowBox[{4 E7 x" G% n2 o0 o
RowBox[{"-", "0.236675`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}], # U/ [% n0 J( i$ P( q! Q i3 u5 A
"+",
/ i9 t4 f0 Y& s* c/ ]7 s! A RowBox[{"0.23615247809381104`", " ", 0 Z# V& l0 z& @" V2 ?1 i
SuperscriptBox["\[ExponentialE]", - ~8 A, O2 Y& S( Y
RowBox[{"3.1415926535897936`", " ", G- J5 w$ L5 c+ K9 E, K6 l" {
RowBox[{"(",
9 ?/ X1 ]/ {! S& f: ]2 V1 o' z RowBox[{
" U7 \5 {& V, E5 e4 F RowBox[{"-", "0.11387365200400001`"}], "-", % x: L. r8 p! c* H% ?6 c, i l
SuperscriptBox[( Q0 K {, F$ x& r" ~& l) M8 k
RowBox[{"(",
/ n5 |# n8 q" O RowBox[{' s4 Q4 S& b7 B, X* U( O
RowBox[{"-", "0.177646`"}], "+", "x3"}], ")"}], "2"], "-", ( d. \( H! P- D
SuperscriptBox[5 q% H9 |* N. r- S
RowBox[{"(",
) N9 J5 L/ K2 ]% K- ^- v RowBox[{
, ~- `, c5 I/ J4 ]+ e0 P2 c RowBox[{"-", "0.502638`"}], "+", "x6"}], ")"}], "2"], "-",
3 w! z; R: Z3 p2 Y0 W G2 c SuperscriptBox["x7", "2"], "-", # Y" q; n) p) B* a* T4 v
SuperscriptBox["x8", "2"], "-",
P5 L! U, o0 c0 B) ~; z SuperscriptBox[
& {/ ]/ \6 s8 l) _5 f0 M9 U RowBox[{"(", 9 O! z# Z; H! }8 Z8 x
RowBox[{0 h$ _) C+ R' ^; }4 P
RowBox[{"-", "0.178973`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}], % O# p6 G/ A- V7 I
"+",
9 C6 u" I$ Z8 p6 V1 {# ]4 d RowBox[{"0.3207174990295845`", " ", 0 U* ~, k8 x) L' B7 q& ?0 G; G8 C7 \
SuperscriptBox["\[ExponentialE]",
' N' m: ?- {) r0 M/ z8 {5 s" P RowBox[{"3.1415926535897936`", " ",
+ Z, o8 y+ O0 [; n, T) W2 P RowBox[{"(", - `7 M) W" H0 Q3 }, W$ a. r
RowBox[{7 T7 i% `- M. t A, o
RowBox[{"-", "0.11442644782500001`"}], "-",
3 r# V, F+ @8 X4 C8 l SuperscriptBox[
9 C+ B2 r0 F o8 D8 H; w2 O2 K0 W RowBox[{"(",
, D+ ]7 I9 A4 b2 h6 K: G @9 e, b/ } RowBox[{
- h Q+ p4 G3 Q# J. h RowBox[{"-", "0.33973`"}], "+", "x3"}], ")"}], "2"], "-",
8 A& F. F. {/ H$ d o/ k m SuperscriptBox["x6", "2"], "-", 5 m3 z" M3 ^4 X, |0 H+ h. h
SuperscriptBox[
& ?0 ^# h6 |8 `2 R RowBox[{"(", / k' m" G: _% P) q' I/ g
RowBox[{) b" T) H, n3 T! b' W1 @# p
RowBox[{"-", "0.636585`"}], "+", "x7"}], ")"}], "2"], "-", 3 Q5 k9 Q$ u+ z* G; }* R, F" U
SuperscriptBox[" p0 t6 V# ]* w4 L
RowBox[{"(", 2 \* A7 Q8 [0 {/ O8 {" ?
RowBox[{
/ R+ v) \' Y2 O, B) e. s RowBox[{"-", "0.780463`"}], "+", "x8"}], ")"}], "2"], "-",
1 C2 z2 P! S3 K SuperscriptBox["x9", "2"]}], ")"}]}]]}], "-",
0 ]2 b4 l J. n5 K* L. Z RowBox[{"0.15852708848338293`", " ",
" d# m$ i" d# P9 }' W. z, v SuperscriptBox["\[ExponentialE]",
0 z- b v! u- q' J k2 ~0 x RowBox[{"3.1415926535897936`", " ",
1 Z0 L4 i, Z% f( Q6 Y RowBox[{"(",
7 Q+ N+ C- l) \$ i' U; h- u/ G RowBox[{
2 Q; ~( C- D- R3 E3 ? RowBox[{"-", "0.21008576609800003`"}], "-",
# M; a* Z H1 {3 W1 p$ v SuperscriptBox["x3", "2"], "-", + H4 U' R$ X7 h+ g& \. C
SuperscriptBox["x6", "2"], "-", 9 v. y0 y* x \( ?+ k$ s# l6 P
SuperscriptBox["x7", "2"], "-", 6 F+ n9 m+ Q5 x* }) C
SuperscriptBox[7 w; s6 F; e+ w) v$ h# A# F3 ~1 N
RowBox[{"(", / ?% ^# y" q( ?1 J$ q, f! y+ f7 F
RowBox[{& G$ q' ?6 l! }/ b- l8 P
RowBox[{"-", "0.672709`"}], "+", "x8"}], ")"}], "2"], "-",
- k, i \6 w2 u6 ?9 R% G; p' Z$ [ SuperscriptBox["x9", "2"]}], ")"}]}]]}], "+",
" U; [* b. [9 F' N) \0 m& E4 N RowBox[{"0.6019775648968266`", " ", ; \7 A2 Q3 }2 k; K0 h' A* ~
SuperscriptBox["\[ExponentialE]",
~; U% B4 D7 H4 N E RowBox[{"3.1415926535897936`", " ",
/ G& U( g3 P! r( {3 ^0 q$ I RowBox[{"(",
0 k4 z- ?7 h5 G' k. E( s4 S RowBox[{
2 k$ z2 e! A0 | RowBox[{"-", "0.4481471925460001`"}], "-",
. P* o3 U7 Q2 S* J' {1 k3 @ SuperscriptBox[- G0 c# D: J( R- @
RowBox[{"(", f9 _: g8 D: p+ h7 |- W" y
RowBox[{( ^( O: l0 t; u7 L% N
RowBox[{"-", "0.452931`"}], "+", "x3"}], ")"}], "2"], "-",
+ a4 [' N0 j0 j' E SuperscriptBox[' m' w. H" f5 n
RowBox[{"(",
7 ]9 p4 k4 n$ O7 r. z2 b RowBox[{
) \! S" z2 G6 m O% ]/ r \4 e RowBox[{"-", "0.370761`"}], "+", "x6"}], ")"}], "2"], "-",
. @9 A7 n K/ x6 K. J1 Y2 K- T( r. ?2 O. R SuperscriptBox["x7", "2"], "-", 0 O9 L/ y4 U" k
SuperscriptBox[( P; O7 n$ L1 a+ j$ a
RowBox[{"(", # `# v3 C+ i" D4 i$ \2 I3 d
RowBox[{7 n: w6 M! d4 D
RowBox[{"-", "0.509567`"}], "+", "x8"}], ")"}], "2"], "-",
: b$ G2 I& n% ]8 v* S7 }' S SuperscriptBox["x9", "2"]}], ")"}]}]]}], "+", * Z! j7 C1 y3 f
RowBox[{"0.16041393254115266`", " ",
- U( {# z2 r8 R \ SuperscriptBox["\[ExponentialE]",
9 {- g+ V& ]) L, d8 E9 J" Q RowBox[{"3.1415926535897936`", " ",
7 X0 O a8 _0 m% k# d RowBox[{"(",
- j6 f7 x& `& p1 \' W7 j RowBox[{5 b' {5 D2 E1 X9 G& f& F9 [
RowBox[{"-", "0.08722659614000003`"}], "-",
0 H9 ^0 { | {, m+ t6 u SuperscriptBox[# {) C2 Y) Q7 c
RowBox[{"(",
# l' y" b8 e; S6 x1 S' D1 C% b5 m, I0 v RowBox[{. A$ z/ ~' W3 _6 Y$ `+ h8 Y* R4 O( l
RowBox[{"-", "0.4943`"}], "+", "x3"}], ")"}], "2"], "-", 8 a4 S; d- s6 j$ L
SuperscriptBox[
8 v M) K- ~$ F5 R$ A# f; \7 h, i RowBox[{"(",
# I! L3 H! `' t% z RowBox[{# |( H6 Q4 q4 c; J9 u; |
RowBox[{"-", "0.375283`"}], "+", "x6"}], ")"}], "2"], "-", + x% I$ ]; |0 Q2 |8 H4 y
SuperscriptBox["x7", "2"], "-", 2 g; y i5 L7 i. M8 _# E
SuperscriptBox[8 o2 F0 q3 J3 P+ B' u+ O2 T
RowBox[{"(",
9 a3 P- O0 c! Z; _; r0 b RowBox[{8 J8 a' J/ c* c! M# V; `5 [
RowBox[{"-", "0.505539`"}], "+", "x8"}], ")"}], "2"], "-", - D% y7 a7 J. p2 e
SuperscriptBox["x9", "2"]}], ")"}]}]]}], "+", ( Y3 a* w5 D/ x
RowBox[{"0.482281849713638`", " ", & {3 r, }$ `+ X9 E, o# V
SuperscriptBox["\[ExponentialE]",
; M M" s9 E) W l& a2 {: I1 p' c RowBox[{"3.1415926535897936`", " ", ! e$ b+ c, k0 X$ L
RowBox[{"(",
# N+ }& }7 Q3 Q$ G" w/ K RowBox[{
7 F! T+ e/ o5 m' e0 {2 ~% K RowBox[{"-", "0.23738217000100004`"}], "-",
3 k/ a% w" X+ X' \7 T. a; x SuperscriptBox[
) T. F) d$ x1 |; e+ t+ |8 g RowBox[{"(",
8 ^# s/ d5 f, T RowBox[{9 ^, M5 k0 ?, _9 z: g7 i, L0 V, S
RowBox[{"-", "0.33037`"}], "+", "x3"}], ")"}], "2"], "-", ' i) Z. ]' {' K# n2 m9 {
SuperscriptBox[" ]/ G/ d& A5 W; x( a5 {
RowBox[{"(", . ]8 K+ u$ P% v
RowBox[{
( Z' ~) r: C6 p) o RowBox[{"-", "0.752072`"}], "+", "x6"}], ")"}], "2"], "-",
8 ]3 m9 M" p+ f3 k: Z SuperscriptBox[
3 U& h+ A6 ~( ~& P4 ] RowBox[{"(", " ~$ E) ~! c: N: i& _+ l
RowBox[{
! b: P6 U2 t5 C: C RowBox[{"-", "0.408943`"}], "+", "x7"}], ")"}], "2"], "-", . J8 p5 x3 s$ d9 }9 `
SuperscriptBox[
: M5 f0 [9 z# V7 Q3 j6 X; S RowBox[{"(", ; H( N! M! ]* Z7 ~ \- i
RowBox[{
8 _7 Q1 Y2 C# I U4 z4 L+ e0 L: V' M. z RowBox[{"-", "0.504532`"}], "+", "x8"}], ")"}], "2"], "-",
6 u" G S" ~1 @5 i% t SuperscriptBox["x9", "2"]}], ")"}]}]]}], "+", 0 [( v9 P4 D7 _
RowBox[{"0.29549238400772093`", " ", " i) G6 }- j; T+ M7 d0 t4 `
SuperscriptBox["\[ExponentialE]", 5 ~ b' B0 j8 _2 [, ?- }9 M. m
RowBox[{"3.1415926535897936`", " ",
9 I/ s9 g/ @% n' }" _. A RowBox[{"(", ! p9 h! X. J1 x9 V& w
RowBox[{: |/ a1 W) ~; Y: v& C8 D- Q& A
RowBox[{"-", "0.19162171876400003`"}], "-", ; C* T2 G& A5 H ~9 y$ N- U; ~
SuperscriptBox[, c, x/ K. |" g
RowBox[{"(", / J/ c0 O( ^6 o- V$ c1 Z
RowBox[{" S6 U# q$ z5 O/ `2 C
RowBox[{"-", "0.544826`"}], "+", "x3"}], ")"}], "2"], "-", ( R s4 ^8 |$ c" u! O! ~4 b
SuperscriptBox[2 Q/ }0 ?( n2 U9 ~4 k& A& M
RowBox[{"(", ; Z% R: o/ C' J( L
RowBox[{( a8 k' F9 Z, i% w: I/ s6 ?
RowBox[{"-", "0.53052`"}], "+", "x6"}], ")"}], "2"], "-",
J$ `8 M/ {$ K. X a SuperscriptBox[
( |, o6 t( E7 s/ Y! z RowBox[{"(",
$ s7 t* S% k; e8 ? RowBox[{+ z7 Z1 {5 S! s5 U5 v
RowBox[{"-", "0.819512`"}], "+", "x7"}], ")"}], "2"], "-",
# I+ U4 S& s" W {: A SuperscriptBox["x8", "2"], "-",
! o8 {2 H7 H. Q SuperscriptBox["x9", "2"]}], ")"}]}]]}], "+",
9 b- [7 v, B O) t RowBox[{"0.31296872769679895`", " ",
: M+ m+ R2 v( @0 Q; l, n+ { SuperscriptBox["\[ExponentialE]", $ N0 G$ ^8 d, `, H1 h
RowBox[{"3.1415926535897936`", " ",
+ h% i. W; }! m3 x' z- H RowBox[{"(", 9 z# K Y4 |5 ]
RowBox[{
Z$ O. [2 s* K, N, x: j RowBox[{"-", "0.109748954594`"}], "-",
% G4 d+ G" Z8 O1 s& V/ A$ D SuperscriptBox[
: o8 Y3 ?# c0 t! x RowBox[{"(",
' Y8 z3 q n% K, d3 N RowBox[{
7 z/ g5 g7 U5 c x7 x2 K. W RowBox[{"-", "0.160584`"}], "+", "x3"}], ")"}], "2"], "-", ) Z. j$ q' _$ J) [, n
SuperscriptBox["x6", "2"], "-",
/ d: X5 `, L: [2 P5 C SuperscriptBox[1 J+ q5 g4 j2 z, t9 I/ `7 n8 G
RowBox[{"(",
/ Z$ B- J' Z0 ~& g. O/ ?/ t) V RowBox[{6 j. u9 e: [7 [0 i* K R8 p% D
RowBox[{"-", "0.684553`"}], "+", "x7"}], ")"}], "2"], "-", * S# {' Q+ g, Y0 z, n( I" y1 `
SuperscriptBox["x8", "2"], "-",
- V; g, v* V$ T" L* d6 A/ H SuperscriptBox["x9", "2"]}], ")"}]}]]}], "-",
3 x8 j- t6 l9 K RowBox[{"0.4666313851213299`", " ",
" T+ {! |+ C' ]' q- ^. S. w SuperscriptBox["\[ExponentialE]",
8 b3 L1 l& y: S* D. A" P; l RowBox[{"3.1415926535897936`", " ",
# q# [8 ^7 U! _7 H: p RowBox[{"(",
6 H6 b: B6 Y+ Z; a* I) {+ F2 ~ RowBox[{ m1 v( e3 u: ?4 v
RowBox[{"-", "0.14616677062500003`"}], "-", + q( Q% O9 G+ L, u
SuperscriptBox[! L4 I9 L5 a4 u( a4 c+ i
RowBox[{"(", 4 u' S1 W0 M% g6 y; o5 v* a( b
RowBox[{) l0 L* X, [% ]. ?2 Z
RowBox[{"-", "0.414297`"}], "+", "x3"}], ")"}], "2"], "-", & m* A: l1 Q. F% k2 W6 w7 S- ^+ Z
SuperscriptBox["x6", "2"], "-",
9 a% B$ a" J0 P SuperscriptBox[+ j9 I, p- q; b* L
RowBox[{"(", ! o: D* {; L3 Z6 H6 j
RowBox[{
0 a7 x! f# `; B# a1 [9 w7 D! ^ RowBox[{"-", "0.544715`"}], "+", "x7"}], ")"}], "2"], "-", , t3 f& X/ h# H
SuperscriptBox["x8", "2"], "-", 9 C4 I6 V5 q/ S+ i q$ Q
SuperscriptBox["x9", "2"]}], ")"}]}]]}], "+",
4 s- y* n9 ~# A% A, V$ k RowBox[{"0.37419828116611387`", " ", & _8 G* c4 @2 |7 {* e8 H
SuperscriptBox["\[ExponentialE]", % y# s" R' k% y5 ]2 o
RowBox[{"3.1415926535897936`", " ",
- G; g+ @7 p# l- a; X RowBox[{"(",
' W0 }3 z! [: }& ~ RowBox[{+ d5 G8 \ z9 S# I) s+ S
RowBox[{"-", "0.10407011464100005`"}], "-",
, _8 m: B3 _' Q9 i$ N5 E SuperscriptBox[
- R+ V' O2 @8 m* S7 s* f& h RowBox[{"(", 4 E; H0 X4 q% C% B) s
RowBox[{" K: ]2 t) A$ p5 K. h( c6 o6 F* k
RowBox[{"-", "0.3555`"}], "+", "x3"}], ")"}], "2"], "-", / q: N1 e2 ~. R8 [
SuperscriptBox[) \, e: h g! E [0 J$ c# ]
RowBox[{"(",
7 q Q- R0 ~5 S( [ RowBox[{
# u; g7 l+ b, n/ [' K RowBox[{"-", "0.37679`"}], "+", "x6"}], ")"}], "2"], "-",
, J7 n* W" P5 B6 b& d SuperscriptBox[
4 N' r2 v0 ]3 k6 y RowBox[{"(", 6 R" I4 V7 A2 N; I8 V" i/ i8 A# {
RowBox[{8 S& N5 n ^/ t1 J/ u
RowBox[{"-", "0.411382`"}], "+", "x7"}], ")"}], "2"], "-",
% ^5 b0 i7 D% g9 F SuperscriptBox["x8", "2"], "-",
8 Z0 K( [+ M v" l) [ L0 `# u SuperscriptBox["x9", "2"]}], ")"}]}]]}], "-",
+ ?# c8 S0 h1 R8 H- {4 X' m RowBox[{"0.025873988843992612`", " ",
' Z# T; @ S; U+ z: W, x) P SuperscriptBox["\[ExponentialE]",
- L$ T" \, m- p* ] RowBox[{"3.1415926535897936`", " ", 5 f& d+ h0 c, ~. ^4 x5 g0 c
RowBox[{"(",
% t) E! Y$ t6 X1 p3 l RowBox[{
+ m+ F) `3 S+ P5 M4 F6 w5 k RowBox[{"-", "0.31770463544200006`"}], "-", . @# m9 H9 ~ ~
SuperscriptBox[% x' \' g& w# Y- Y" E
RowBox[{"(",
: w3 E+ |: H* m; n; Z; V RowBox[{: E( ?0 `0 q6 v. o& O2 b
RowBox[{"-", "0.655012`"}], "+", "x3"}], ")"}], "2"], "-",
) k* ~* l& \* r% ?1 a SuperscriptBox["x6", "2"], "-", * H! c- X/ h1 q* h' G) q j+ f
SuperscriptBox["x7", "2"], "-",
5 d* V( A% Z) u5 d8 I1 d SuperscriptBox["x8", "2"], "-", ( K) H1 p4 x; o1 t9 v
SuperscriptBox["x9", "2"]}], ")"}]}]]}], "+", ( d2 ~3 c# _/ l' i c/ O* ^, ?
RowBox[{"0.5575503376854455`", " ",
; x, T3 n9 r+ N4 u/ r% i; m l SuperscriptBox["\[ExponentialE]",
* u! `/ @" Q; P( S, _% J( w RowBox[{"3.1415926535897936`", " ", + s3 a; x0 U& @% r
RowBox[{"(", - v/ d# e8 {6 Z) X& M: o A x
RowBox[{( Z% l) Y0 P; Y4 n' w( q
RowBox[{"-", "0.6410867660730001`"}], "-",
0 U( b( K) h" a7 `# n- X SuperscriptBox[
% k( \% y) ~( h. w/ g RowBox[{"(",
9 K! J/ ^% A2 M RowBox[{
1 i9 A2 }6 c5 r& m RowBox[{"-", "0.420753`"}], "+", "x3"}], ")"}], "2"], "-", # Z, \+ r$ |( L6 Z
SuperscriptBox["x6", "2"], "-", : u" h/ S( T) \2 g, c
SuperscriptBox["x7", "2"], "-", / q, v' u. ]2 y
SuperscriptBox["x8", "2"], "-",
; w0 f. E8 M7 x: ^3 a- l SuperscriptBox["x9", "2"]}], ")"}]}]]}], "-", 2 ~+ f0 O& u/ K. l3 b+ K. n
RowBox[{"0.13398540448199214`", " ", 6 D9 ~$ b$ f, N U
SuperscriptBox["\[ExponentialE]", , t3 ?4 ~ S* e5 f& X/ a$ O
RowBox[{"3.1415926535897936`", " ",
2 G. t" l& x/ K4 L5 F/ Z4 c RowBox[{"(", 3 ^, U4 [* W$ }1 {9 B1 h
RowBox[{6 K5 Z, i: \! Q# C+ E- O
RowBox[{"-", "0.155663887074`"}], "-",
3 s& ^* E. n5 D; ]3 ]; e8 S SuperscriptBox[2 X5 `) o6 h8 ?) x* Y) ^
RowBox[{"(",
: C O3 ]6 [4 S5 D! y RowBox[{( i! I& }0 k, {4 q
RowBox[{"-", "0.267704`"}], "+", "x3"}], ")"}], "2"], "-",
) d1 V; C& i! K8 s5 N1 R SuperscriptBox["x6", "2"], "-",
1 e2 k! h. s! J( d+ X* _5 Q SuperscriptBox["x7", "2"], "-",
: L* x4 H b/ y5 a( i. k1 \ SuperscriptBox["x8", "2"], "-", a$ p0 v" {( A- B7 ~% O% O0 r: ]7 {! M
SuperscriptBox["x9", "2"]}], ")"}]}]]}], "+",
6 F6 V, w. J: ~ RowBox[{"0.4572385099113415`", " ", # D$ v% Z9 \) E* P
SuperscriptBox["\[ExponentialE]", 6 U5 m& x1 q, q
RowBox[{"3.1415926535897936`", " ", " N, W# t( x$ {& j! a
RowBox[{"(",
( i9 J% p' ]4 i/ Q: C RowBox[{
Y; R$ H% k$ T+ ~' n# ? RowBox[{"-", "0.14151232428600002`"}], "-",
( c E8 @2 ^" G8 u# }; i6 s/ C SuperscriptBox[
2 R' m4 e7 Q* y RowBox[{"(", - q: |# W s! e9 t
RowBox[{
, L4 B/ p. ]/ I5 T" v RowBox[{"-", "0.234619`"}], "+", "x3"}], ")"}], "2"], "-",
% f u: k( l% D4 j# U% h) L/ p, L+ g SuperscriptBox["x6", "2"], "-", 3 k3 w# F. X% U$ q
SuperscriptBox["x7", "2"], "-",
# R, ?! e7 F6 L. g2 S8 X SuperscriptBox["x8", "2"], "-",
1 m) Z/ R; @) g/ p! i( V' Q& f SuperscriptBox["x9", "2"]}], ")"}]}]]}]}]], "Output",
7 \5 {* u$ B& S$ L CellChangeTimes->{3.577962841401445*^9}]
8 z% P- }% ~6 C* X}, Open ]]
5 i8 R; H6 j6 a8 \& Y},' r7 g& U. u0 v. x+ L5 j$ u
WindowSize->{1093, 659},( P7 \4 h5 Q B# a
WindowMargins->{{61, Automatic}, {Automatic, 15}},8 r/ G+ h' {2 i7 @7 j7 o
FrontEndVersion->"7.0 for Microsoft Windows (32-bit) (February 18, 2009)",. d$ G q2 f$ f" J* B
StyleDefinitions->"Default.nb"
! m; |# g0 {) @0 {( S. e3 k2 c]/ b, H# w' M: n+ j" p" j* A! G" B
(* End of Notebook Content *)
0 Y* I' [" z5 ~" {$ E7 M+ n6 Y9 t+ g& o; G2 g! k# c& E
(* Internal cache information *)
' x9 ]) P9 y, r" C% |) K Q(*CellTagsOutline9 _& G: d7 o) _ N. K
CellTagsIndex->{}. m, q: O; u& T) e
*)2 \* f, i) |! P2 U
(*CellTagsIndex
1 U! E) ~, C$ c8 W* B+ `' LCellTagsIndex->{}. ~, a4 m, V; m! l5 x
*)
2 T1 L" T; ^5 Y* r3 m) ?; @(*NotebookFileOutline
3 a+ M. i$ B- C: @' T9 m, eNotebook[{4 b1 V% q6 S9 g ]# k- X9 {+ W
Cell[CellGroupData[{
, t% t( l( O: B, o4 {) aCell[567, 22, 22639, 450, 1792, "Input"],
3 V9 f% E4 ~& d8 H; D: u9 H0 `Cell[23209, 474, 21281, 449, 1703, "Output"]
9 `9 E* J5 W$ \' S}, Open ]],8 J4 I7 V9 B$ W r3 L* \
Cell[CellGroupData[{, x* R: Y/ t5 s8 K3 F
Cell[44527, 928, 198, 5, 31, "Input"],& J% h/ f9 z5 \3 O
Cell[44728, 935, 53666, 1605, 1532, "Output"]
% p; O# z C4 ?/ ^}, Open ]],
7 @" [. Z/ |: r4 Y( B8 E% pCell[98409, 2543, 614, 16, 112, "Input"],' @5 A& U7 h* I9 H
Cell[99026, 2561, 667, 17, 72, "Input"],, W6 F) ]/ t5 S1 Z. ~# f5 e
Cell[CellGroupData[{
! w% U' W& S8 M, E$ aCell[99718, 2582, 885, 13, 52, "Input"],
7 q& |4 ]6 u P/ ICell[100606, 2597, 935, 14, 30, "Output"],; O; r) _# Y8 N$ ~6 G
Cell[101544, 2613, 932, 14, 30, "Output"]
" M9 _' N. u9 M- X}, Open ]],$ E' D( m% N2 [! s2 _
Cell[102491, 2630, 4236, 93, 412, "Input"],4 G+ U' w) F+ i! H1 h
Cell[CellGroupData[{) ]4 N' ], W- b* p
Cell[106752, 2727, 90, 1, 31, "Input"],
- E/ g) l# A, \3 oCell[106845, 2730, 872, 13, 30, "Output"]
/ ?5 @( p% w( i5 h}, Open ]],
4 r% q0 O# r* s' U% s5 g) L/ YCell[107732, 2746, 458, 10, 31, "Input"],0 i9 x+ Z- p ], A9 ]9 W- \
Cell[108193, 2758, 126, 2, 31, "Input"],1 Z6 S6 A! {/ c1 Y& \5 l- c, n
Cell[CellGroupData[{9 z/ W6 i* C+ T2 R$ A9 ~5 \- X
Cell[108344, 2764, 248, 6, 31, "Input"],- s; ?# D0 ?: d4 O; ~5 M
Cell[108595, 2772, 1007, 17, 30, "Output"]
" u; y# C1 S* G1 R}, Open ]],
8 A% r, C$ [8 i1 l1 I& gCell[CellGroupData[{
! {- }8 T: H3 n* n! N* p' E* JCell[109639, 2794, 251, 6, 31, "Input"],
, s0 l' n) W. ~/ a5 `, h9 Y, Q) MCell[109893, 2802, 1013, 17, 30, "Output"]
( \5 r3 N$ X- G! q8 m7 G4 o5 v}, Open ]],
8 U3 [- G) E @" e* }3 w4 pCell[110921, 2822, 1232, 23, 31, "Input"], ~- L- A/ c N
Cell[CellGroupData[{0 E1 w7 Z+ a" X' s' Y
Cell[112178, 2849, 147, 5, 31, "Input"],5 k4 a8 Q$ X, e8 X
Cell[112328, 2856, 1979, 50, 50, "Output"]* b4 p6 h1 \ H# S! t
}, Open ]],, Z( r8 b0 Z1 K5 P3 d6 d
Cell[CellGroupData[{
9 V) C' P+ W4 v/ N) ~% lCell[114344, 2911, 195, 5, 31, "Input"],1 f7 ?8 _# p* P. G' r+ q& l, Q
Cell[114542, 2918, 123, 2, 30, "Output"]2 A; N: M9 ^' l [& q" t6 T
}, Open ]],; l+ X: U5 E" J) ]% v
Cell[CellGroupData[{
- y' q& ?6 U4 j" J# }% XCell[114702, 2925, 144, 4, 31, "Input"],
4 t% W; V; i, C8 @Cell[114849, 2931, 96, 1, 30, "Output"]' u, x+ O. `3 @9 b# n& l
}, Open ]],6 E. O V* F. ^; ]
Cell[CellGroupData[{6 |* ]- c1 f& S
Cell[114982, 2937, 146, 4, 31, "Input"],
# t' H$ z$ D1 BCell[115131, 2943, 495, 7, 30, "Output"]
% }4 C. I, j3 J}, Open ]],
% L. R1 ?/ d# L% |: sCell[CellGroupData[{
Y6 @2 w8 Q6 P" Y& [Cell[115663, 2955, 144, 4, 31, "Input"],
+ \9 ~7 }% J5 O3 @8 U* _ ]' HCell[115810, 2961, 418, 6, 30, "Output"]0 W% Q4 ?" y5 r; V' [8 C
}, Open ]],% ^! u+ X( ^. e( @
Cell[CellGroupData[{
7 _9 N M* I( e" M) N" V) I' ^5 bCell[116265, 2972, 144, 4, 31, "Input"],
6 i, a L' C" u# k0 YCell[116412, 2978, 549, 8, 30, "Output"]' @2 m7 M2 i; d& ^4 r) S/ Y# h
}, Open ]],1 x7 a0 t, \/ M5 M
Cell[CellGroupData[{
z! H! q9 `* i' r; `4 j# s) C' bCell[116998, 2991, 537, 10, 31, "Input"],# n( v! W7 I* c- B C' q7 h" y S# R
Cell[117538, 3003, 998, 14, 30, "Output"]
/ O+ W5 ^& o3 I* w% _, Q( m1 C}, Open ]],
# ?0 C2 ~! D! ~, J2 P$ _, TCell[CellGroupData[{
0 U W9 q& H! r0 Y0 gCell[118573, 3022, 2321, 55, 44, "Input"],' |0 d6 X1 |0 k# l9 ~
Cell[120897, 3079, 1541, 38, 91, "Output"]7 k( \: t2 I1 k& @) v& b
}, Open ]],
1 e" b* q8 h, @Cell[CellGroupData[{4 m8 R5 f$ S; y( Z: K1 [- @: _7 z
Cell[122475, 3122, 856, 19, 87, "Input"],! o0 N3 k4 s5 N3 E* V9 l
Cell[123334, 3143, 568, 14, 91, "Output"]
/ ^0 N3 i+ E' ~7 Y( b" p# `}, Open ]],
5 R# t$ |* A8 ], z1 f Y+ kCell[CellGroupData[{
* G9 {& \3 f8 {Cell[123939, 3162, 437, 10, 31, "Input"],& W9 ^2 U( o8 O; @3 D) u8 v
Cell[124379, 3174, 739, 12, 30, "Output"]1 }* k4 d' o& z; z; ^- w) _; R
}, Open ]],
% `* M" @4 l/ u; O# @6 nCell[125133, 3189, 242, 3, 31, "Input"],: Q! f H; r# g1 ` m
Cell[CellGroupData[{
5 K- R. q4 R1 ^# Y, s! oCell[125400, 3196, 109, 2, 31, "Input"],
( P6 D% Q: s! D% u' z) e: U' FCell[125512, 3200, 323, 7, 30, "Output"]& s8 R, B7 @- r. H
}, Open ]],
0 A& Z9 l- {0 q. a2 `Cell[CellGroupData[{% F1 Y4 ^* I/ T. t3 U2 L
Cell[125872, 3212, 526, 15, 31, "Input"],; Q5 L" [% R( ~3 a1 D5 L5 L4 j
Cell[126401, 3229, 1436, 44, 36, "Output"]9 X# j% u) N9 d5 C
}, Open ]],) ^* i* J5 Q) V$ d) [
Cell[CellGroupData[{' J( [ h4 Z. a+ e
Cell[127874, 3278, 92, 2, 31, "Input"],( Y* O7 O! P. y$ D* B& G
Cell[127969, 3282, 326, 7, 30, "Output"]
/ n1 _9 X8 t+ w6 n}, Open ]],! x5 g& d1 s1 q
Cell[CellGroupData[{$ M/ ^3 Y2 ^! f0 \6 x
Cell[128332, 3294, 388, 13, 31, "Input"],
Q: J# x1 L, u9 C: aCell[128723, 3309, 1381, 42, 36, "Output"]
( @& r. K" F4 r}, Open ]],
/ w/ L* z, O$ _( e4 k) M. T2 UCell[CellGroupData[{
" u) B: c9 C; z5 `. S9 p! O: U2 `Cell[130141, 3356, 89, 2, 31, "Input"],/ I6 L8 D0 J$ r( f5 u3 X/ [
Cell[130233, 3360, 320, 7, 30, "Output"]4 i% L5 y! _: |* ?9 c
}, Open ]],
9 E7 J% i1 i0 y4 @4 K' VCell[CellGroupData[{" f, I4 W: D. H0 |, f% {; x8 j0 {
Cell[130590, 3372, 387, 13, 31, "Input"],$ ^; ^! p8 l; ~' S4 A6 n
Cell[130980, 3387, 1381, 42, 36, "Output"]' G+ A; W" K C
}, Open ]],
3 p3 E# M7 t; Y- O6 K7 d; bCell[CellGroupData[{
4 ]! y4 H3 B: L" DCell[132398, 3434, 91, 2, 31, "Input"],. w2 t0 d5 n. U: U/ I; {! R
Cell[132492, 3438, 328, 7, 30, "Output"]& {3 c8 R: |4 S
}, Open ]],
8 S/ w9 q$ Y. l1 c8 T9 N4 A9 s" pCell[CellGroupData[{$ k; x U: C$ S* f
Cell[132857, 3450, 384, 13, 31, "Input"],* D8 c6 x+ M: W G! @8 b
Cell[133244, 3465, 1379, 42, 36, "Output"]- r# }- W& G" H4 T; H
}, Open ]],
4 q3 k6 s+ V9 q2 FCell[CellGroupData[{
1 ^/ I9 q: w. Z6 z7 yCell[134660, 3512, 93, 2, 31, "Input"],
6 s& M; _4 W& A; g) r4 p# t9 ACell[134756, 3516, 322, 7, 30, "Output"]
* q+ }. m; W/ m( |* M1 Z}, Open ]],$ M0 N% }# V1 x. H2 D4 L; j5 T
Cell[CellGroupData[{6 W q' x5 i$ M' F
Cell[135115, 3528, 385, 13, 31, "Input"],
7 s) x8 f* E+ \" ^Cell[135503, 3543, 1379, 42, 36, "Output"]
+ b& D- u9 {: L2 ]5 h; s' z}, Open ]],
/ b1 ~2 f5 ^ i4 BCell[CellGroupData[{2 B6 \8 v& d( }9 r9 I
Cell[136919, 3590, 113, 2, 31, "Input"],
& F" {& c! A' S zCell[137035, 3594, 348, 7, 30, "Output"]
7 F4 ]3 s5 b% r}, Open ]],0 O" D: j- c. j9 s4 r$ _" v
Cell[CellGroupData[{9 @% L. d5 |. S( i- l
Cell[137420, 3606, 406, 13, 31, "Input"],
! q K" B7 t& |# f6 q! ^+ a6 z B8 JCell[137829, 3621, 1414, 43, 36, "Output"]0 W4 z6 S" b y
}, Open ]],. y% Q; z5 b4 C* [: G
Cell[CellGroupData[{" N/ V8 g# C& U% I% m2 Z: E8 V
Cell[139280, 3669, 135, 3, 31, "Input"],
/ \% |2 Y, A; t* jCell[139418, 3674, 358, 7, 30, "Output"]+ b- x6 R* v( O5 Y( b3 ]) |
}, Open ]],1 }6 ^; t B" D' J4 W7 V
Cell[CellGroupData[{/ g: U. E6 D* R
Cell[139813, 3686, 430, 14, 31, "Input"],
3 K6 e- W' x$ q# e% Z0 DCell[140246, 3702, 1426, 43, 36, "Output"]4 ^ l1 p! {$ v( I! K+ q1 I5 l
}, Open ]],
+ t$ A7 r5 T. K8 F7 Y! FCell[CellGroupData[{* U3 L" Y0 @$ u% v8 m
Cell[141709, 3750, 156, 3, 31, "Input"],
1 H+ I( m1 a: Q) ?Cell[141868, 3755, 377, 8, 30, "Output"]
5 r" p, T7 G) e5 K# G0 r}, Open ]],
) R! k- [: }" e% y I! xCell[CellGroupData[{
3 J Q1 \" s! v- g' iCell[142282, 3768, 452, 14, 31, "Input"],
; [4 g" m& c( N* BCell[142737, 3784, 1440, 42, 36, "Output"]% `, K B$ D: u$ _( q: x$ T9 B
}, Open ]]," W8 \, N- Z! E9 o: {- ~% N
Cell[CellGroupData[{; l# j9 G3 [6 D# d" D; W. _3 z
Cell[144214, 3831, 178, 3, 31, "Input"],
4 f2 x/ c: Y/ y( f. ]Cell[144395, 3836, 448, 9, 30, "Output"]
0 ^% w* c2 x6 Z' O3 `$ f}, Open ]],5 Z8 v( V- X) y$ z2 h
Cell[CellGroupData[{* J7 s0 W% f7 c1 k
Cell[144880, 3850, 474, 14, 31, "Input"],( s# O: m2 d5 B' r/ ?
Cell[145357, 3866, 1510, 43, 36, "Output"]$ z- y- |. R& R
}, Open ]],
' N. u$ P# E$ n0 \+ iCell[CellGroupData[{# s# Y# c3 \9 I& v6 ^
Cell[146904, 3914, 470, 14, 52, "Input"],1 W) Z! V" F: A, ?. t" t6 e
Cell[147377, 3930, 257, 5, 30, "Output"],2 @* G7 ]. u. M) z
Cell[147637, 3937, 1310, 38, 36, "Output"]5 z3 f3 e9 |8 l8 d9 V
}, Open ]],
n0 e6 l: L& A) J9 c( \# XCell[CellGroupData[{
5 W* j- e9 n5 I2 }# ZCell[148984, 3980, 520, 15, 52, "Input"],
. z8 C) z0 H# L/ a6 ?Cell[149507, 3997, 293, 7, 30, "Output"],
" S: T6 X2 N+ GCell[149803, 4006, 1345, 40, 36, "Output"]. ]; h7 o/ W4 S, X& b
}, Open ]],
) M2 u) k* O$ e I$ A+ |Cell[CellGroupData[{5 h3 |" Z. i3 K i; v
Cell[151185, 4051, 520, 15, 52, "Input"],! C' N* {0 r0 o" \" p, B. e
Cell[151708, 4068, 266, 6, 30, "Output"]," v1 K1 C6 K' I. w3 A
Cell[151977, 4076, 1319, 39, 36, "Output"]
, Q6 n l, e7 e}, Open ]],
2 p8 ?- q, A8 F! X! |% k; I9 R; g5 ^" UCell[CellGroupData[{+ d! I7 Q3 e6 U c2 V) W5 r
Cell[153333, 4120, 520, 15, 52, "Input"],
. {4 N, p' [/ N) J7 C; ZCell[153856, 4137, 272, 6, 30, "Output"]," J: _; F* `9 L; [ j! t+ L
Cell[154131, 4145, 1327, 40, 36, "Output"]
4 q; U- \2 o9 Y}, Open ]],% G- I3 ^ A, t5 m
Cell[CellGroupData[{
3 H$ N7 t+ `/ G* e) h' }4 cCell[155495, 4190, 520, 15, 52, "Input"],+ C& [ E) p! [3 Y2 \9 b; x
Cell[156018, 4207, 265, 6, 30, "Output"],' t, K- ?: j$ d. b
Cell[156286, 4215, 1318, 39, 36, "Output"]) ~7 l; D, }& _' o, J: c/ K. @1 S3 S
}, Open ]],
# o I: y2 o |3 w( |6 d5 k: `Cell[CellGroupData[{
/ u: C# j- h5 f5 x; }7 wCell[157641, 4259, 517, 15, 52, "Input"],
% Q& G/ D/ G$ _$ \5 l: i; a0 h: m8 K( e! GCell[158161, 4276, 275, 6, 30, "Output"],
' U9 x, i7 |& S2 S/ q7 d4 L/ I. z5 XCell[158439, 4284, 1333, 41, 36, "Output"]
- }4 y7 k, t4 W$ E2 L}, Open ]],
0 G, u1 K/ H. T( rCell[159787, 4328, 381, 11, 31, "Input"],7 F+ q5 U# F L( V: e q
Cell[CellGroupData[{
' _8 `( Q" M9 RCell[160193, 4343, 573, 16, 52, "Input"],
* f0 T! v2 B' P, \- {3 @! oCell[160769, 4361, 278, 6, 30, "Output"],
1 s v* N; ?: o/ }! E. ^% o4 m/ x$ zCell[161050, 4369, 1328, 41, 36, "Output"]
# f& O6 D; J7 m8 o; W6 t. d}, Open ]],. E# y6 |6 y+ [% p* S8 |, f% U. s* ^
Cell[CellGroupData[{7 Z7 ]' y+ w, n) m ~
Cell[162415, 4415, 571, 16, 52, "Input"],
( P6 E( p, o; h2 p/ \( w4 [/ lCell[162989, 4433, 270, 6, 30, "Output"],
: v, o2 x9 k# G+ w H3 eCell[163262, 4441, 1325, 40, 36, "Output"]
9 E! U, e* V: a p% ]* L7 @}, Open ]],
7 s5 |2 `2 Y7 r/ W+ qCell[CellGroupData[{
3 x! q! |* ^/ Q1 v* PCell[164624, 4486, 571, 16, 52, "Input"],+ m" y1 k/ J/ U" j' d& A6 D) t
Cell[165198, 4504, 264, 6, 30, "Output"],
- v( n) D! s7 SCell[165465, 4512, 1316, 39, 36, "Output"]
7 M7 m/ g# h* D4 {3 V8 s) i% i5 G}, Open ]],
& N! R, c9 L' K7 [' u/ r& q- I9 lCell[CellGroupData[{
, F L6 \- l8 @; T! W% c" \Cell[166818, 4556, 571, 16, 52, "Input"],2 h% \& R6 F( n% d% ]/ Y
Cell[167392, 4574, 271, 6, 30, "Output"],
9 T9 M: _4 ?* X7 M/ hCell[167666, 4582, 1329, 41, 36, "Output"]
/ F- K$ A. Y6 C% I/ S}, Open ]],/ [2 J3 ?/ y; o, _3 u- Y3 D1 l
Cell[CellGroupData[{
% h: i: g" [7 F* G- S' JCell[169032, 4628, 570, 16, 52, "Input"],
0 S- H1 k0 a: t( Q0 _6 L8 B$ t; FCell[169605, 4646, 277, 6, 30, "Output"],
9 W9 }6 q" y+ @' \" T+ ~Cell[169885, 4654, 1335, 41, 36, "Output"]) f% r, z% D. @; z5 @
}, Open ]],
2 ]# M! S" v* S, {Cell[CellGroupData[{
6 s9 x" f' |; m2 |+ O; N8 BCell[171257, 4700, 571, 16, 52, "Input"],1 H+ Z2 ]# }" U% U. j
Cell[171831, 4718, 274, 6, 30, "Output"],
3 z3 m4 w' E4 L9 sCell[172108, 4726, 1335, 42, 36, "Output"]
" j3 x0 a h3 [! _7 u: I+ Y) j u}, Open ]],
7 y) r% k2 J! X h( G' [4 xCell[173458, 4771, 104, 1, 31, "Input"],& ^5 A/ r# v3 M5 q: J/ S: Q
Cell[CellGroupData[{
z, X5 S9 v* \: aCell[173587, 4776, 279, 7, 31, "Input"],& `' X! L! L# y2 K- M: f6 |0 c
Cell[173869, 4785, 878, 14, 50, "Output"]7 ?# [/ _4 [! G7 J' }) G; q
}, Open ]],+ T" @8 f7 {* L, [9 N5 {: c
Cell[CellGroupData[{
# @6 K9 Z0 T' V9 }Cell[174784, 4804, 243, 5, 31, "Input"],
0 W6 K: z5 @" z3 F% s; mCell[175030, 4811, 216, 3, 30, "Output"]) v$ F5 p3 h4 Y3 K9 O5 K$ T1 z
}, Open ]],
C3 ^$ {0 x$ n5 G& S: FCell[175261, 4817, 537, 14, 31, "Input"],
" g/ _* T- U3 e& Z% Q# S d# F( gCell[CellGroupData[{
9 ~ J* `2 f3 A: N7 fCell[175823, 4835, 94, 1, 31, "Input"],
; j( `) U6 b* i6 g, i# ~Cell[175920, 4838, 1319, 20, 107, "Output"]
8 Y( y9 [( o# K$ h1 M2 N- _- Z. B}, Open ]],! _0 I* v7 h, m( p! q
Cell[CellGroupData[{
, o1 ?# q# z; Y$ M SCell[177276, 4863, 464, 12, 31, "Input"],3 P3 e2 C7 b: U0 Y( e+ o* d
Cell[177743, 4877, 17248, 366, 582, "Output"]2 W7 \# o- c1 v* o. _
}, Open ]],
* O3 |" ]7 `0 U0 G' Z8 ?Cell[195006, 5246, 32810, 934, 912, "Input"],5 y+ `7 L1 a7 o
Cell[CellGroupData[{
- p p: V; ?% p7 W0 H6 ]) c# PCell[227841, 6184, 284, 6, 31, "Input"],
+ v! V+ ]6 t( ~9 V# Q" ECell[228128, 6192, 961, 17, 50, "Output"]: z( ?% X$ ]9 J: [7 W
}, Open ]],
/ ]/ x# Y7 s" YCell[CellGroupData[{# E2 L) T( p i/ a2 q K3 ]
Cell[229126, 6214, 531, 11, 31, "Input"],
5 p% J. a2 b$ ]- k# b5 eCell[229660, 6227, 28858, 853, 537, "Output"]
# f+ N9 K0 @, b* q% C}, Open ]],2 a, T% m$ ^# B" ?/ U( w1 P( K
Cell[CellGroupData[{
' b& m# q m% j' E4 }( c% jCell[258555, 7085, 281, 7, 31, "Input"],
# J G; X. y7 Y1 o: o( a* u& zCell[258839, 7094, 540, 10, 30, "Output"]
& G! F: y# W p- N9 S3 i}, Open ]],! G. R$ c: n1 h. {( X$ G
Cell[259394, 7107, 1869, 53, 92, "Input"],
1 W& S5 @1 W; O% jCell[CellGroupData[{
* L! ?0 K9 N. y& i1 ACell[261288, 7164, 138, 2, 31, "Input"],' d2 A) ]+ a# \# i H
Cell[261429, 7168, 1122, 20, 69, "Output"]( P+ i9 s7 z5 H I; s1 v* Z
}, Open ]],
1 W, u- l z2 CCell[CellGroupData[{
5 B. I* x) D, r1 `) R9 o2 hCell[262588, 7193, 1816, 29, 152, "Input"],* B4 D0 h. n3 K$ m) t* B3 w/ o* p
Cell[264407, 7224, 1736, 28, 88, "Output"]
/ L4 ^" Q' `- L1 F$ A( ^- @6 z. P! e}, Open ]],9 Z, \5 x$ Z( U, F9 q: _9 A" ?( l
Cell[CellGroupData[{, d& M) [! |; T) u+ v$ C3 b: w! A
Cell[266180, 7257, 209, 6, 31, "Input"],# _" n3 V9 M2 j/ N, r4 ?
Cell[266392, 7265, 516, 9, 30, "Output"]. i) a/ _% t7 W" k
}, Open ]],8 a6 f7 r# Y7 I
Cell[266923, 7277, 613, 16, 31, "Input"],
, i, O/ ?. w; l# c7 u% GCell[CellGroupData[{
( i8 D0 n+ J7 K, TCell[267561, 7297, 157, 2, 31, "Input"],
# w* [$ @( {, m+ |" o3 }4 FCell[267721, 7301, 776, 13, 50, "Output"]
/ a3 M; ~7 }6 M) o1 U) j$ \# z}, Open ]],& r6 n) N. O( n2 o/ X- S7 ^
Cell[CellGroupData[{
8 A c4 Q9 X4 {4 LCell[268534, 7319, 1397, 21, 112, "Input"],
* G7 {8 t5 T. h7 d4 ^Cell[269934, 7342, 1384, 21, 88, "Output"]" B8 y2 s, r6 c/ J* q
}, Open ]],
% n6 R' o: }1 t; {) \Cell[CellGroupData[{
l6 D, p8 G* o+ V7 WCell[271355, 7368, 1208, 30, 55, "Input"],4 U/ c: d& O4 p) |
Cell[272566, 7400, 1299, 29, 256, "Output"]2 L7 L3 S& E: }% {) Y
}, Open ]],
4 s3 ]0 w6 Q% W+ YCell[CellGroupData[{) @& C! @4 K2 l; y: J8 J
Cell[273902, 7434, 829, 23, 31, "Input"],
4 _ N3 X) s0 W) x: w1 ZCell[274734, 7459, 1053, 22, 249, "Output"]0 G3 q1 \4 n: ]4 j+ W7 m8 z
}, Open ]],. w- O- J1 X2 a$ y
Cell[CellGroupData[{1 N! D- o* A$ ]! ]' \: I0 E
Cell[275824, 7486, 84, 2, 31, "Input"],3 m2 W4 Z: r/ e( S1 _) d- f
Cell[275911, 7490, 1675, 36, 256, "Output"]
, O5 [3 B1 `# ]7 A( ]( N( f0 u5 e}, Open ]],
- m p( V% P1 z2 V2 F3 ?Cell[277601, 7529, 131, 2, 31, "Input"],* s4 h; W9 }' s" b
Cell[CellGroupData[{
# X5 e1 [4 P4 j, X7 N4 n0 u# YCell[277757, 7535, 302, 7, 31, "Input"],
3 U( _5 Y v4 K" L9 ^Cell[278062, 7544, 935, 16, 50, "Output"]
g8 [# W5 u3 t1 X" O}, Open ]],
8 Y6 d3 W- L% w9 n( H* a/ F9 _Cell[CellGroupData[{
6 i4 C% \5 M+ E eCell[279034, 7565, 295, 6, 31, "Input"],
/ }% w0 a! e: P' ]; e( ZCell[279332, 7573, 244, 3, 30, "Output"]- a- w( C! ^, r/ w
}, Open ]],# z' m6 S$ m/ w! B( s! d8 q1 \
Cell[279591, 7579, 610, 15, 31, "Input"],
' k ^: N: S l; ^Cell[CellGroupData[{- y/ X& m5 Q- O; p; `
Cell[280226, 7598, 120, 2, 31, "Input"],
1 W1 Y. m+ t# V- P7 `. ^Cell[280349, 7602, 1334, 21, 107, "Output"]
8 a9 \( i5 e, d2 b; K4 J}, Open ]],
6 o3 c! @1 g/ [# u. {! ?) ZCell[CellGroupData[{/ C) G Z, p7 u% s9 v
Cell[281720, 7628, 460, 12, 31, "Input"],9 M0 m4 D, S$ R ~
Cell[282183, 7642, 17248, 366, 582, "Output"]) q0 |# X8 |3 ?; P0 Z) z
}, Open ]],
9 ^7 Z: `0 O# A2 }# J% Y+ VCell[299446, 8011, 32810, 934, 912, "Input"], M# P- o" ]1 S4 P" g
Cell[CellGroupData[{
0 g9 N& a6 w' ~0 n6 C- aCell[332281, 8949, 334, 6, 31, "Input"],1 p4 T9 l$ O4 P7 G/ h) T6 T# f
Cell[332618, 8957, 1004, 18, 50, "Output"]
) O& L/ p! m+ I, Q}, Open ]],# P3 n, m, X! ]7 K! p7 y
Cell[CellGroupData[{
, M9 p& C. X9 E; LCell[333659, 8980, 559, 11, 31, "Input"],* L6 @& S% s# T4 {; C2 P7 F
Cell[334221, 8993, 28881, 853, 537, "Output"]" R- H! e0 ~+ T
}, Open ]],* q, r5 L4 r" q& a
Cell[CellGroupData[{( h1 s8 i" \0 F5 K( k9 y
Cell[363139, 9851, 306, 7, 31, "Input"],
- Q z6 b7 d- _; p+ g$ pCell[363448, 9860, 562, 10, 30, "Output"]
# @# E* W% I. z& M- \}, Open ]],
; b4 c3 t" L' h2 F4 C& g5 tCell[364025, 9873, 1915, 53, 92, "Input"],# L& s/ Y! A2 O' x
Cell[CellGroupData[{* p! K8 C$ G* I0 E4 d
Cell[365965, 9930, 163, 2, 31, "Input"],
# b( \0 \- |2 }! z: q, h8 yCell[366131, 9934, 1139, 20, 69, "Output"]* w6 T# W2 Q+ o
}, Open ]],0 F C5 }8 w9 F) q. I3 z- m
Cell[CellGroupData[{5 X: |( W' a5 W% }: T4 Y$ _4 J
Cell[367307, 9959, 1863, 30, 152, "Input"],# V. O6 `& m6 d' N. F& i& L
Cell[369173, 9991, 1761, 28, 88, "Output"]
7 {( I; W. ~ D' B$ W; f d( Q}, Open ]],6 R( s+ K, p; y; y; T+ |
Cell[CellGroupData[{
& \; Q# T; P4 ^" \Cell[370971, 10024, 231, 6, 31, "Input"],
( M z2 n* D# }+ y, c% G% uCell[371205, 10032, 540, 10, 30, "Output"]
# M$ \2 c2 Z( h9 H}, Open ]],
: i! \ J2 f7 Y9 K) ^( Z TCell[371760, 10045, 687, 17, 31, "Input"],
6 o: O8 Z, _( Y+ t% ^% NCell[CellGroupData[{
% g- M. M/ p5 {# yCell[372472, 10066, 185, 3, 31, "Input"],
" D/ [: o3 b* [$ \# ]& fCell[372660, 10071, 804, 13, 69, "Output"]
! w; u1 A" F$ U4 O}, Open ]],3 ^2 g9 I, U6 E1 T
Cell[CellGroupData[{1 F: t+ J. s$ `8 s" M5 l
Cell[373501, 10089, 1405, 21, 112, "Input"],
6 m* c2 z% z2 a( O6 @, YCell[374909, 10112, 1387, 21, 88, "Output"]
/ D3 U! _; {2 s}, Open ]],8 ?2 b F* l3 Y: Q6 g7 J# r, Q. M
Cell[CellGroupData[{
1 L$ Y R# u) \& e1 I+ U9 t' bCell[376333, 10138, 1339, 33, 55, "Input"],. w! p# F. W; ^0 u6 S
Cell[377675, 10173, 1370, 30, 256, "Output"]0 f7 _5 Z6 k/ |
}, Open ]],+ U( g6 p/ \( m1 q) Q7 j( [+ d
Cell[CellGroupData[{/ z8 @- |* k9 F
Cell[379082, 10208, 877, 24, 31, "Input"],
/ y9 t- u: f3 b: i0 E4 F+ C4 xCell[379962, 10234, 1058, 22, 249, "Output"]
, v4 K5 a3 ]' K$ a! f5 x}, Open ]],
8 ]% B; a/ y; Y- ^! YCell[CellGroupData[{4 Z: p, m; j2 _' t% N* M
Cell[381057, 10261, 84, 2, 31, "Input"],4 P- r' V0 g1 R9 U: i! c
Cell[381144, 10265, 1659, 36, 256, "Output"]( s/ ~0 }4 @4 }5 v t2 O: P/ A: X
}, Open ]],' r1 `3 }! w/ [+ {! Y
Cell[382818, 10304, 509, 10, 52, "Input"],' ]+ X& w% q7 q- g2 Y
Cell[383330, 10316, 530, 10, 33, "Input"],- B6 y7 Z1 k+ ]
Cell[383863, 10328, 69, 1, 31, "Input"],
8 ?. B+ x$ a ^* i/ }Cell[383935, 10331, 62, 0, 31, "Input"],/ I3 F8 ^, m! u {3 ?" [$ e7 E
Cell[CellGroupData[{7 F3 q3 r3 S8 v9 l# C$ T8 [
Cell[384022, 10335, 364, 9, 31, "Input"],
/ `: _' a+ e# a/ w) W' W1 G( zCell[384389, 10346, 13864, 402, 287, "Output"]
" ^" U% J, E% C, `( g! X o}, Open ]],
* {; v6 s/ l$ ?Cell[398268, 10751, 69, 1, 31, "Input"],, ]6 ?. v. J+ |1 x$ G4 ~) E+ T
Cell[398340, 10754, 74, 0, 31, "Input"],: j" |0 W! |1 g( m( X
Cell[CellGroupData[{
3 m# i. }; I1 U5 v( OCell[398439, 10758, 288, 8, 31, "Input"],
+ o- i% p9 r# D4 yCell[398730, 10768, 13861, 402, 287, "Output"]2 a2 O% y7 V; ~ }
}, Open ]]
5 Y1 b- [' O& a+ I! s. o$ d7 Q j9 \}
$ Q' G" u* G) C3 [2 _( \7 ?]
) i. T6 B; x7 N2 p; V1 f*)! y0 y! \5 r( N7 K5 `5 I
- W y. \2 u- J' N" H. q! L
(* End of internal cache information *）
Z) _9 o" F2 N ~1 j
) o1 [+ ]# Q# z4 S这个是用mathmatic做的神经网络，能导出最后的权值，就是可以写出表达式，我想用matlab做，却不知道怎么做 |
IP卡
狗仔卡
发表于 2013-7-29 20:37
转播
淘帖
分享
收藏
支持
反对
微信
提升卡
置顶卡
沉默卡
喧嚣卡
变色卡
抢沙发
显身卡
