涳夢 发表于 2013-7-30 20:31 ![]() - k1 k6 q; Y% n! |/ B' m
神经网络系数？有这种系数吗？可不可以具体一点儿，给出原问题或更具体点呗
(* Content-type: application/mathematica *)
* \6 h! b4 g% B/ ~1 X7 O: {0 r3 c( |. i+ N' k& y8 J
(*** Wolfram Notebook File ***)
' v5 F. W+ d' L/ E- q; g(* http://www.wolfram.com/nb *)
4 t L: W, N' |$ [+ g3 E' o& ]2 i8 e
(* CreatedBy='Mathematica 7.0' *)9 g! X! i7 y; a3 w
$ U3 ?! e7 q- Q+ v) e% ?! g
(*CacheID: 234*)
+ I4 ^ x/ C( B4 A: C& D(* Internal cache information:
5 ^4 `' B" x0 p4 ~( v$ SNotebookFileLineBreakTest
0 K) a5 q2 o5 \' Y( t4 N, s# hNotebookFileLineBreakTest9 \( ~( D) W3 |7 K3 B* o, |
NotebookDataPosition[ 145, 7]
0 ^- V5 \8 t) g9 S3 f% l! yNotebookDataLength[ 423629, 11534]
6 E2 J' h. R' }) R) O, A/ Z8 XNotebookOptionsPosition[ 412607, 11173]& {( W% J) R3 C
NotebookOutlinePosition[ 412953, 11188]* ?/ ~5 y1 J) w1 P% s
CellTagsIndexPosition[ 412910, 11185]. e! c% W! M* a+ z, b: W# R* E8 H
WindowFrame->Normal*)
2 k! J) a) n6 }, g. R7 c& G, t* n5 |- ` p4 u" g4 V4 f# N3 z
(* Beginning of Notebook Content *)0 S* g' H. y) T5 X: Q! J
Notebook[{
* t/ }' g6 m4 N S7 ?, F8 d0 ?& y6 U% @
Cell[CellGroupData[{- U+ w9 V- _0 i* {/ U0 {
Cell[BoxData[
9 F9 o. o7 J- K% [ RowBox[{"Data", "=",
8 \. ~/ l4 ?+ W+ c2 B, n, u RowBox[{"{",
+ q1 l& U) X) o9 g RowBox[{, C" ]3 [0 i5 V
RowBox[{"{",
- r( g: t: m& H7 A( }* y$ } RowBox[{6 F; _4 X1 F9 z3 I+ j" r
"0.304348", ",", "0.552818", ",", "0.330370", ",", "0.025823", ",",
6 q' l5 L; H! A% \, e: A9 J "0.538462", ",", "0.752072", ",", "0.408943", ",", "0.504532", ",", % H; o4 ^7 ?) ^- E; ]
"0.000000", ",", "0.277091", ",", "0.873239"}], "}"}], ",", " ", ! \) ?: @6 f; W6 D
RowBox[{"{",
1 P* H; n; w9 |/ _0 k; n RowBox[{
1 Y) H& A7 \ ^ "0.565217", ",", "0.346857", ",", "0.393585", ",", "0.118785", ",", ; g3 x$ o- e" C3 n9 S# V
"0.349650", ",", "0.370761", ",", "0.413008", ",", "0.502518", ",", 0 H( K9 n; l, L4 [2 U& e
"0.000000", ",", "0.220259", ",", "0.464789"}], "}"}], ",", " ",
- }- \! L8 j- w& V% {; V. c* m RowBox[{"{", / I+ V+ x0 G* W8 f: P, r3 V
RowBox[{
4 o2 [& L1 n8 H" l8 U X2 d "0.608696", ",", "0.339186", ",", "0.494300", ",", "0.099338", ",", . l4 y- @# h6 y9 a, N4 Y2 \" k, c% i) b
"0.321678", ",", "0.375283", ",", "0.000000", ",", "0.505539", ",", / M! A# `: V; x' u# R
"0.000000", ",", "0.899882", ",", "0.492958"}], "}"}], ",", " ",
5 E" }) c8 _; _! ]6 R2 o RowBox[{"{", : E* W/ U/ X. z0 K
RowBox[{
& M" Y J+ o" F' V4 N, ` "0.521739", ",", "0.334022", ",", "0.355500", ",", "0.025156", ",",
, V. W1 R/ c. C8 Y "0.489510", ",", "0.376790", ",", "0.411382", ",", "0.000000", ",", * I, R% ~; [8 L2 c% ?; \2 l
"0.000000", ",", "0.265607", ",", "0.774648"}], "}"}], ",", " ",
! p3 r6 O2 y8 v+ z: w. u E RowBox[{"{", # x9 H/ h0 w/ r( ~
RowBox[{) _. {( q7 T+ E) l
"0.565217", ",", "0.346931", ",", "0.218229", ",", "0.043639", ",",
( i3 o/ q4 N. ?4 E& }- y "0.503497", ",", "0.761115", ",", "0.415447", ",", "0.503525", ",",
: C: F p* B# u( O3 M "0.000000", ",", "0.642226", ",", "0.380282"}], "}"}], ",", " ",
! i" c4 {1 F, T$ `% q4 h0 E RowBox[{"{",
9 v4 a1 {- t" j; q RowBox[{
. r$ i/ B2 a( ], Y2 m; n "0.478261", ",", "0.293154", ",", "0.259368", ",", "0.026688", ",", 9 x: Z0 {5 Z6 Z+ l' W1 r( H
"0.587413", ",", "0.755840", ",", "0.409756", ",", "0.498489", ",",
# u, o# l7 q0 L) Z/ e, {- G "0.000000", ",", "0.306243", ",", "0.647887"}], "}"}], ",", " ", & U) G5 o/ E5 h: l2 f2 e
RowBox[{"{",
: X" G5 l! [8 G7 E# r; l RowBox[{
5 W6 \0 w9 `0 w "0.347826", ",", "0.359693", ",", "0.614393", ",", "0.081521", ",", ; h g& I: k: H9 V) N
"0.258741", ",", "0.367747", ",", "0.410569", ",", "0.499496", ",", * n) ^# x* V2 x8 Q$ O- G; k
"0.000000", ",", "0.186985", ",", "0.563380"}], "}"}], ",", " ", 3 l Y- O2 `" t5 S: M, ~: F1 ~7 y
RowBox[{"{", / ?& U1 `; G( `2 a& X4 e. I# `
RowBox[{
+ V' B7 p4 \) T" g( Q7 v- t3 s) C "0.565217", ",", "0.705518", ",", "0.510223", ",", "0.066892", ",",
# a" ~3 p: O, \" z$ a "0.244755", ",", "0.748304", ",", "0.000000", ",", "0.000000", ",",
6 f/ ~* m& \. ~1 x "0.243032", ",", "0.175501", ",", "0.295775"}], "}"}], ",", " ", ! [1 N1 o0 P5 }2 _" W
RowBox[{"{",
, ^5 _ T9 J+ y RowBox[{
/ F" I/ i3 B8 ~' L4 w* g1 U "0.565217", ",", "0.710460", ",", "0.649730", ",", "0.119897", ",",
: b+ S( F: u4 O( A "0.468531", ",", "0.000000", ",", "0.636585", ",", "0.000000", ",", 7 h) o! l" B* g6 ~9 V
"0.766748", ",", "0.147821", ",", "0.338028"}], "}"}], ",", " ", s9 t5 p. f ]. D3 I" X/ \1 O
RowBox[{"{",
" |! Z" @! Y7 |; N3 T RowBox[{
4 m( h9 B7 s8 P "0.565217", ",", "0.697772", ",", "0.171587", ",", "0.028566", ",", . W; {3 t- g$ _1 e1 I9 j! Y
"0.363636", ",", "0.449887", ",", "0.408130", ",", "0.000000", ",", + H" p5 I0 `' [! E5 x
"0.000000", ",", "0.352768", ",", "0.211268"}], "}"}], ",", " ", 4 U1 G/ X. H' [
RowBox[{"{", 7 r& P+ I9 z; E# L# Q& S y
RowBox[{
4 W( J) C; V" m$ _. j7 v0 l "0.282609", ",", "0.660888", ",", "0.460064", ",", "0.110334", ",", 4 Y8 b0 O% p, ?
"0.475524", ",", "0.000000", ",", "0.545528", ",", "0.000000", ",",
2 h4 }$ o# }# J "0.551100", ",", "0.238810", ",", "0.690141"}], "}"}], ",", " ", j. b8 r7 D$ }
RowBox[{"{", & F7 E, e8 c& q% Z
RowBox[{2 G; d' v9 L- f; q
"0.130435", ",", "0.682724", ",", "0.258697", ",", "0.019299", ",",
9 v& P( Q& \ f* W, L "0.510490", ",", "0.420497", ",", "0.535772", ",", "0.000000", ",",
0 s( p, J7 E) n+ B: v5 W! X& f" y: { "0.494866", ",", "0.095701", ",", "0.436620"}], "}"}], ",", " ",
9 G1 A' _! Q' L6 P, I RowBox[{"{",
4 F/ T4 O8 K0 E9 y RowBox[{
) S+ r- I+ k. f, e! B "0.347826", ",", "0.697772", ",", "0.108288", ",", "0.022413", ",", 0 K& P8 t7 n; \ K
"0.356643", ",", "0.247928", ",", "0.908130", ",", "0.000000", ",", 5 F% o$ w0 `& C6 e
"0.383374", ",", "0.162839", ",", "0.000000"}], "}"}], ",", " ", & i$ X9 ?& P6 @. |. X
RowBox[{"{",
, f+ z: J: S$ P9 V; ?% B2 ` RowBox[{
) ~% F0 s8 M9 A+ g! n# H "0.695652", ",", "0.718280", ",", "0.339730", ",", "0.110285", ",",
6 Z. x2 \' T* T "0.335664", ",", "0.000000", ",", "0.636585", ",", "0.780463", ",",
8 z: s6 D! `: k @ "0.000000", ",", "0.335395", ",", "0.267606"}], "}"}], ",", " ", ) O( {' i+ ]3 U( O/ w) A
RowBox[{"{", n, k h9 ~* c+ Y* a
RowBox[{
' d1 u! s! P& ]% t "0.652174", ",", "0.569711", ",", "0.414297", ",", "0.175398", ",", 2 I k5 r% s5 S5 P+ D# N/ ?" Z. x$ g9 B
"0.167832", ",", "0.000000", ",", "0.544715", ",", "0.000000", ",",
. P7 z u8 Y3 O2 l# i) | "0.000000", ",", "0.160483", ",", "0.211268"}], "}"}], ",", " ", + U2 X9 E! f* v! a
RowBox[{"{",
( M# ]3 B" ^3 j- ]: G+ P RowBox[{
+ V/ _% K' B. O6 r5 _3 V "0.000000", ",", "0.395544", ",", "0.027011", ",", "0.048087", ",", ; \; _7 z$ K% }6 `
"0.496503", ",", "0.000000", ",", "0.452033", ",", "0.000000", ",", 4 u) h: `; K2 l8 Y/ c
"0.278729", ",", "0.398115", ",", "0.408451"}], "}"}], ",", " ",
( J/ U7 t3 T1 H$ ~ RowBox[{"{", h& B, w4 L# {* ?
RowBox[{+ \/ V2 w+ w) a4 J0 r# Z
"0.608696", ",", "0.425199", ",", "0.012979", ",", "0.000000", ",",
3 e: [# N6 F" B" ]1 g# @3 u "0.482517", ",", "0.509420", ",", "0.406504", ",", "0.000000", ",",
/ S0 J, S& r" N5 O0 W "0.000000", ",", "0.157833", ",", "0.478873"}], "}"}], ",", " ", . {0 d# N7 |: M3 s4 Z* _
RowBox[{"{",
' C3 q$ m4 L8 ] H9 ?5 ^ RowBox[{4 u8 v8 n3 p @; K% }
"0.608696", ",", "0.577973", ",", "0.213587", ",", "0.030889", ",", + G1 r$ h3 g, u: `/ M
"0.370629", ",", "0.000000", ",", "0.452846", ",", "0.000000", ",", 9 W% @' ~ r) t
"0.000000", ",", "0.315665", ",", "0.380282"}], "}"}], ",", " ", 3 X- q9 @5 V) w
RowBox[{"{",
% q1 T; ~% u5 R+ f% b+ G RowBox[{% W( i# d% n5 n( [
"0.565217", ",", "0.572293", ",", "0.655012", ",", "0.281852", ",",
* w" `( Y6 ]8 P6 z/ ^3 s/ f; V "0.000000", ",", "0.000000", ",", "0.000000", ",", "0.000000", ",",
1 n n, N% a: C9 x& |9 x "0.000000", ",", "0.492344", ",", "0.211268"}], "}"}], ",", " ", + k: k6 c+ n$ P w! D+ \
RowBox[{"{",
$ m; g8 F" Z# } RowBox[{; ]0 }- _; D2 ~1 y( ?
"0.130435", ",", "0.562039", ",", "0.331662", ",", "0.032643", ",", 0 s1 ^4 ~( C! l3 z9 G
"0.314685", ",", "0.414469", ",", "0.275610", ",", "0.000000", ",", 0 ~( |4 [+ L/ Z" z, n. ~$ ?
"0.000000", ",", "0.638398", ",", "0.436620"}], "}"}], ",", " ", % e: c9 ^) I7 h/ G: ~/ r
RowBox[{"{",
1 v* A/ R2 D: l; Q RowBox[{
' B4 Z2 M0 x: h "0.717391", ",", "0.736205", ",", "0.267704", ",", "0.036152", ",", / k1 W8 \- }8 [, h8 r
"0.307692", ",", "0.000000", ",", "0.000000", ",", "0.000000", ",",
2 l) g! T4 P8 s9 m# X) [ "0.000000", ",", "0.392521", ",", "0.478873"}], "}"}], ",", " ", ; s7 \( M7 T3 u2 I
RowBox[{"{", , q2 d* \6 V* Q
RowBox[{
' Z* j1 N* _5 S6 j3 W4 b "0.608696", ",", "0.769475", ",", "0.289283", ",", "0.022882", ",", 0 g, k9 `: D/ |( {" x2 c# X
"0.321678", ",", "0.000000", ",", "0.274797", ",", "0.333333", ",", 4 k9 a; S! y0 W7 d
"0.000000", ",", "0.362191", ",", "0.295775"}], "}"}], ",", " ",
a0 @' @7 b" `; o( C% Z) G( h RowBox[{"{", : ~ Z: J) a% \
RowBox[{3 U% C- J9 O5 L: d
"0.913043", ",", "0.170478", ",", "0.000000", ",", "0.012973", ",",
% f, _& P6 v* q! k9 H2 d "0.293706", ",", "0.000000", ",", "0.000000", ",", "0.672709", ",", 5 z! ~# ]+ s% F/ A7 i9 a
"0.000000", ",", "0.114252", ",", "0.028169"}], "}"}], ",", " ",
7 p$ ~2 p4 x# L5 _ RowBox[{"{", 8 W* i/ a% J; b+ ]
RowBox[{/ y' a! { k# f# w! I4 ?7 G( G( h
"0.739130", ",", "0.193199", ",", "0.160584", ",", "0.037907", ",", % Z: q. `. ^6 s k+ S
"0.461538", ",", "0.000000", ",", "0.684553", ",", "0.000000", ",",
. B; {# n/ S& D: y0 ~2 @ "0.000000", ",", "0.401355", ",", "0.436620"}], "}"}], ",", " ", T9 Q6 Q8 Q* l& |# v( o6 h8 j/ ]
RowBox[{"{", % d6 T; m% y9 a6 g0 q2 E
RowBox[{! x8 `9 D% [' B8 X. G$ e8 L0 V8 E
"0.826087", ",", "0.203969", ",", "0.234619", ",", "0.272240", ",",
2 t4 I. u- Z O. G "0.265734", ",", "0.000000", ",", "0.000000", ",", "0.000000", ",",
# O9 G3 M0 C+ |' a# g, m "0.000000", ",", "0.827444", ",", "0.394366"}], "}"}], ",", " ",
0 [0 H' @0 p, V# l" N! W. _ RowBox[{"{", 4 k2 |' y! Z! ?7 G! [- n
RowBox[{ T" u" q @' U) k4 c% m6 F
"1.000000", ",", "0.199248", ",", "0.295044", ",", "0.041613", ",", 2 K9 x5 f" \9 y
"0.209790", ",", "0.000000", ",", "0.000000", ",", "0.000000", ",", ( a) c; ~# _9 B. `; s+ J
"0.000000", ",", "0.676973", ",", "0.295775"}], "}"}], ",", " ",
! S7 R5 V' }6 X0 V2 I4 }* H RowBox[{"{", 5 b: [1 H* R0 z9 q
RowBox[{
' Q7 }) J+ ]( L! K0 N. F T "0.869565", ",", "0.180363", ",", "0.243056", ",", "0.098349", ",",
, x7 z0 X y G' ~ "0.265734", ",", "0.503391", ",", "0.000000", ",", "0.000000", ",", 5 g& g, H6 J+ I9 _. [
"0.000000", ",", "0.331272", ",", "0.830986"}], "}"}], ",", " ", 6 m: H0 O( K: g1 v
RowBox[{"{", " O! g& \- b$ P# Q) P
RowBox[{) q% f/ v- \! d. I! f9 j) k- e
"0.695652", ",", "0.551785", ",", "0.326201", ",", "0.253608", ",", % v: E5 p, ?$ b# A# J7 X4 u
"0.195804", ",", "0.000000", ",", "0.000000", ",", "0.000000", ",",
" l8 ?% {/ s( o2 L7 K! m* n; t" ]' S "0.000000", ",", "0.845701", ",", "0.169014"}], "}"}], ",", " ",
0 x' {9 m. ` h X" s RowBox[{"{", ) p5 f2 Y m4 [
RowBox[{1 E% M o9 p; O0 }' L9 w
"0.652174", ",", "0.572293", ",", "0.111511", ",", "0.035584", ",",
& F" K5 L8 } R1 X( j/ W. F "0.405594", ",", "0.249435", ",", "0.544715", ",", "0.000000", ",", 4 b# v( B4 h/ b9 }3 a5 O! u
"0.000000", ",", "0.287102", ",", "0.366197"}], "}"}], ",", " ",
0 p8 M. f; b4 l2 \ RowBox[{"{",
3 p3 B4 u% E4 m! _ RowBox[{* i! K, o! F) r W
"0.652174", ",", "0.562039", ",", "0.336155", ",", "0.014604", ",",
1 E9 w6 [9 ~5 q4 Q0 h/ H7 @ "0.174825", ",", "0.244160", ",", "0.000000", ",", "0.000000", ",",
, Q3 v" B8 k4 `2 T# O "0.000000", ",", "0.000000", ",", "0.309859"}], "}"}], ",", " ", 4 j. ` {* E- [. m* ^ _
RowBox[{"{",
8 Z/ M3 `3 s3 v' ^: u RowBox[{
* d) u4 G: r3 a% N p% o1 o "0.565217", ",", "0.577383", ",", "0.155870", ",", "0.030963", ",", ?/ g7 u' B" w$ f8 @
"0.258741", ",", "0.000000", ",", "0.000000", ",", "0.000000", ",", " ~8 K1 d3 V2 [7 z' o8 L
"0.000000", ",", "0.050059", ",", "0.352113"}], "}"}], ",", " ", + v4 q3 e' Q+ q, v' r+ m
RowBox[{"{",
% q6 ~- C0 r7 b, V0 ^" b9 H RowBox[{( S% H# L' [- Y, i- }* h
"0.565217", ",", "0.613234", ",", "0.232956", ",", "0.053870", ",", 6 `8 v8 o; R/ Q& @# D
"0.230769", ",", "0.000000", ",", "0.000000", ",", "0.000000", ",",
' y$ V a2 X/ z, b8 @6 K6 Z "0.000000", ",", "0.254122", ",", "0.309859"}], "}"}], ",", " ",
! E$ r, k1 |& }9 ]+ a/ U RowBox[{"{",
9 S+ G; ]6 Q; ^, s5 Q- c5 H% V RowBox[{ T) a0 D6 G; W& o+ C
"0.565217", ",", "0.559531", ",", "0.493262", ",", "0.046209", ",",
& T, D4 O8 l$ M- [* L "0.293706", ",", "0.000000", ",", "0.000000", ",", "0.000000", ",", 5 G, K. y) `" P# F7 r
"0.000000", ",", "0.086867", ",", "0.774648"}], "}"}], ",", " ", # m* x/ W2 B" m1 K2 \1 @9 t8 [
RowBox[{"{",
! S7 M8 M2 h/ O9 T, h' V, P8 b/ n RowBox[{4 H/ W; A( o4 L0 Y: R
"0.608696", ",", "0.569711", ",", "0.111932", ",", "0.013542", ",",
& n# H+ `+ L( q ~3 X "0.335664", ",", "0.000000", ",", "0.000000", ",", "0.000000", ",",
4 r1 d- i& `4 w: l' i% _9 x "0.168704", ",", "0.659894", ",", "0.422535"}], "}"}], ",", " ", ! N9 [& E4 T3 G# K! W
RowBox[{"{", ~3 B% f' R- Q; M" r5 w4 M
RowBox[{
, E2 |* K' b6 J# \' R/ U1 a "0.608696", ",", "0.564547", ",", "0.329844", ",", "0.202036", ",",
+ `/ _* E+ @, P3 c! n "0.510490", ",", "0.000000", ",", "0.000000", ",", "0.000000", ",", ! b# r" J( B$ p) C
"0.000000", ",", "0.317138", ",", "0.887324"}], "}"}], ",", " ",
+ e$ n l4 G7 @( G7 J RowBox[{"{", 6 [3 V7 s5 M+ v' j
RowBox[{, j) B) V- O9 E2 D1 Y# a
"0.521739", ",", "0.546695", ",", "0.165788", ",", "0.029431", ",", - W, q! o( Y- y$ e4 {
"0.510490", ",", "0.000000", ",", "0.000000", ",", "0.000000", ",", ( ]4 l$ V1 x8 g$ p+ ^
"0.000000", ",", "0.605124", ",", "0.887324"}], "}"}], ",", " ", & l6 m. Y2 X+ F% w; a2 u, M
RowBox[{"{", $ ]- r3 c: Z3 j/ X# o2 G
RowBox[{' ~5 O! [8 J. u/ z& n2 R; ^
"0.521739", ",", "0.564178", ",", "0.400518", ",", "0.045023", ",", 8 ^% _" F# G1 ]5 t7 A9 V. z
"0.615385", ",", "0.368500", ",", "0.660163", ",", "0.301108", ",", , E( C. J5 Q0 M+ v3 `* Y Z
"0.000000", ",", "0.321260", ",", "0.859155"}], "}"}], ",", " ", ?# t* V# b/ a! ^8 K3 V
RowBox[{"{",
0 G* t: h5 I/ j, l& D RowBox[{
, f3 [2 c( o9 ^) A" I7 Y5 X7 F9 Z( } "0.413043", ",", "0.551859", ",", "0.544826", ",", "0.230503", ",",
" X/ F1 J, l" z4 m- A "0.244755", ",", "0.530520", ",", "0.819512", ",", "0.000000", ",", ' X! y8 \, m5 D; Q( e
"0.000000", ",", "0.595406", ",", "0.239437"}], "}"}], ",", " ", 8 |6 Z3 a6 N% E# d, f
RowBox[{"{",
) R) H% X9 B9 o2 y3 u Z) A RowBox[{% t7 F- T G' \6 F0 {0 H( d
"0.652174", ",", "0.549277", ",", "0.257578", ",", "0.058688", ",",
9 i/ k/ N o9 E8 `3 @9 I0 [ "0.356643", ",", "0.000000", ",", "0.817886", ",", "0.000000", ",", : Y1 k6 v$ U7 s" I; I9 q4 t2 G
"0.000000", ",", "0.555359", ",", "0.295775"}], "}"}], ",", " ",
- U' x1 [, [) W, o8 a RowBox[{"{", : e$ e, W. O( G" I
RowBox[{
/ \4 {' C/ a8 @& L& u1 Y- h7 C "0.695652", ",", "0.549277", ",", "0.572308", ",", "0.082411", ",",
4 S$ |, ?/ Z' v "0.461538", ",", "0.528259", ",", "0.819512", ",", "0.000000", ",",
( ^" R: P# K) J: W t "0.000000", ",", "0.333333", ",", "0.746479"}], "}"}], ",", " ", 6 X9 ~- l; j% M
RowBox[{"{", & v2 a @: D0 V
RowBox[{4 H$ H: I. V' J! b- h% P
"0.434783", ",", "0.551785", ",", "0.530346", ",", "0.151651", ",", + [* W3 X, c: H# S
"0.790210", ",", "0.529013", ",", "0.409756", ",", "0.000000", ",", 8 [* L0 i# Y0 q) U
"1.000000", ",", "0.149588", ",", "1.000000"}], "}"}], ",", " ",
. ]6 [: N0 J1 s6 L0 m; J$ m RowBox[{"{",
/ R; z( B% r$ a, [8 ]2 z RowBox[{
+ B9 H7 Q# _' B& K "0.282609", ",", "0.531278", ",", "0.321428", ",", "0.228625", ",", 6 m2 z6 v( M. E: x( m
"0.594406", ",", "0.530520", ",", "0.410569", ",", "0.000000", ",", - D9 [( x- H2 g' j, H: e5 k
"0.757457", ",", "0.493522", ",", "0.549296"}], "}"}], ",", " ",
, G) [ d# f* S7 {. { RowBox[{"{", y+ Y; i# B+ p) q6 r
RowBox[{
- U. L j3 ^5 D" H/ b "0.347826", ",", "0.705444", ",", "0.109343", ",", "0.072008", ",",
8 m7 i( Y3 [5 n7 r" m9 E "0.496503", ",", "0.000000", ",", "0.000000", ",", "0.000000", ",",
( [ F6 X1 B: v/ _1 I/ P* { "0.752567", ",", "0.224676", ",", "0.366197"}], "}"}], ",", " ", % \0 O$ t- D- Y. j. m
RowBox[{"{",
/ x. Y$ f7 H; V RowBox[{
4 A c5 M* [" X* V: c "0.391304", ",", "0.705444", ",", "0.045908", ",", "0.073120", ",",
2 @. X% G$ z' y7 d1 r) ? "0.622378", ",", "0.000000", ",", "0.000000", ",", "0.000000", ",", / D, N2 z0 t R, l1 Q7 |" m" M9 ]
"0.496333", ",", "0.410188", ",", "0.549296"}], "}"}], ",", " ", 7 }8 _6 s) ?0 o x/ l% t) `
RowBox[{"{",
! m. @9 u1 n0 H1 h RowBox[{
# f( }. R& R" n+ E "0.282609", ",", "0.661921", ",", "0.344992", ",", "0.085178", ",",
& z3 L) e7 E D' ? "0.293706", ",", "0.000000", ",", "0.000000", ",", "0.000000", ",",
. [9 O; G% N' } i "0.000000", ",", "0.668139", ",", "0.577465"}], "}"}], ",", " ", T+ G5 ^- v/ ^3 g8 f
RowBox[{"{", # U# f; y1 q- t* N( ]# z
RowBox[{
+ q( W, R8 ?5 [ "0.478261", ",", "0.661921", ",", "0.644209", ",", "0.077296", ",", K F& P. h7 \4 Q& V
"0.412587", ",", "0.000000", ",", "0.413008", ",", "0.502518", ",",
. t0 B' m% f! x/ t9 H# i Q "0.000000", ",", "0.102179", ",", "0.690141"}], "}"}], ",", " ", * {! j* T# \. [! J1 j
RowBox[{"{", * ^: k( W; Y; \+ K+ a0 m b0 e0 P
RowBox[{7 g5 f$ d# @7 }
"0.173913", ",", "0.984656", ",", "0.420753", ",", "0.137022", ",",
& V- P, H6 u2 @5 Z "0.321678", ",", "0.000000", ",", "0.000000", ",", "0.000000", ",",
4 v1 [1 \% |1 s" J2 W5 y "0.000000", ",", "0.380742", ",", "0.718310"}], "}"}], ",", " ",
. D5 G! a* \5 Z1 B9 H2 p RowBox[{"{",
+ y3 f( X _2 I% B' Z: t# s RowBox[{
3 s( o( A9 l' v0 J+ Y "0.500000", ",", "0.984656", ",", "0.288432", ",", "0.047692", ",",
8 M2 x6 `2 k* K" Z3 y+ j/ S$ S "0.279720", ",", "0.000000", ",", "0.821138", ",", "0.510574", ",",
/ d4 U6 d, \9 D' _ L0 s. C* I( } "0.000000", ",", "0.319494", ",", "0.521127"}], "}"}], ",", " ", ' ?" V P3 }5 Y5 x* E
RowBox[{"{",
: `& t N. e7 A RowBox[{
1 a; O5 W) _5 ^4 w( w "0.391304", ",", "1.000000", ",", "0.452931", ",", "0.150909", ",",
, m# Z: H- g/ F+ Y "0.342657", ",", "0.370761", ",", "0.000000", ",", "0.509567", ",",
; T' W' w, L0 S+ D7 [- E1 ` "0.000000", ",", "0.031508", ",", "0.929577"}], "}"}], ",", " ",
3 m& B* |/ f8 S, [8 g RowBox[{"{",
5 z6 n& ?: x7 U2 u/ T/ e RowBox[{
4 `. }1 e0 d) j3 ]6 q4 J: j: y; K "0.739130", ",", "0.774639", ",", "0.175120", ",", "0.036498", ",",
6 B3 n* A: X8 U5 ]' } "0.391608", ",", "0.739261", ",", "0.408943", ",", "0.553877", ",",
* I) g, X2 i$ a: t% m2 I1 b "0.000000", ",", "0.292108", ",", "0.521127"}], "}"}], ",", " ", 0 T7 c9 z+ H- F. K! S ]- C
RowBox[{"{",
0 i# f% k8 h* \$ |4 l6 T4 x RowBox[{
, H6 e0 Y I0 c$ k( c) g% T "0.586957", ",", "0.982074", ",", "0.158462", ",", "0.063902", ",",
z5 h7 u, s: k% R, i, l- Q "0.321678", ",", "0.000000", ",", "0.000000", ",", "0.000000", ",", # O" l2 f# m6 G8 q( D: u: ^) O3 e# |7 @8 ^
"0.000000", ",", "0.329505", ",", "0.338028"}], "}"}], ",", " ",
# ]3 ]$ V( ~% [9 x, N& }% H& q RowBox[{"{", ( u5 f) j% w1 ?8 f s7 R/ L$ |
RowBox[{6 s+ {! _- v# Z8 o) A
"0.543478", ",", "0.982074", ",", "0.306872", ",", "0.041934", ",",
, D: A2 T1 x) i/ } "0.426573", ",", "0.380558", ",", "0.414634", ",", "0.506546", ",",
; ]9 D+ `# M$ m3 [( z/ F. b% R "0.000000", ",", "0.337456", ",", "0.380282"}], "}"}], ",", " ",
, f! Y3 h$ K& V' H' x RowBox[{"{", ) k" c* @2 V' o2 l
RowBox[{
5 a \+ I1 t2 P/ }6 }) T2 i "0.739130", ",", "0.997418", ",", "0.170143", ",", "0.058268", ",", : B" Y3 P1 ?2 v( Z9 w' c
"0.538462", ",", "0.248681", ",", "0.000000", ",", "0.339376", ",",
. L Q- `2 M$ e8 }# _* l: Y "0.000000", ",", "0.766784", ",", "0.676056"}], "}"}], ",", " ",
D+ J* @4 o+ t% a( o4 I1 @# ~ RowBox[{"{",
# |9 D) G: }' m3 P' E* [% Z1 ? RowBox[{
; H8 ]' t5 A3 }& ^! S "0.695652", ",", "0.700428", ",", "0.139361", ",", "0.182169", ",", # O/ i1 \% O/ F
"0.412587", ",", "0.243406", ",", "0.000000", ",", "0.000000", ",", 9 i3 D7 s% g! [. n$ V c V2 h! `
"0.136919", ",", "0.676678", ",", "0.591549"}], "}"}], ",", " ", t' r0 D; q9 w
RowBox[{"{", : b; c3 {, H( |7 ? G# @* s
RowBox[{
! p2 e, D4 b1 v# a3 [ "0.782609", ",", "0.751623", ",", "0.177646", ",", "0.350845", ",", & o& O5 H0 S* U# Q1 o
"0.412587", ",", "0.502638", ",", "0.000000", ",", "0.000000", ",",
1 B( C# z" y( u2 r) I) ` "0.178973", ",", "0.541519", ",", "0.464789"}], "}"}], ",", " ",
* v) j; Y1 }* S4 P1 }1 N RowBox[{"{",
8 i9 t4 q2 [6 c* K' B RowBox[{3 n4 @2 v8 C0 T7 v/ [
"0.652174", ",", "0.751623", ",", "0.355593", ",", "0.039883", ",",
! I" Z N, H( k" R0 } "0.195804", ",", "0.000000", ",", "0.000000", ",", "0.000000", ",", 8 Y7 K- g+ @/ B% B% P. m, F
"0.000000", ",", "0.064488", ",", "0.295775"}], "}"}], ",", " ", ( Q+ ^# v7 c4 k" r
RowBox[{"{", , z6 T5 w/ `' Q. N3 U
RowBox[{. F: t4 U* [: w% ^# z; h J5 d
"0.521739", ",", "0.679847", ",", "0.152375", ",", "0.030048", ",",
. \" Y- b- X" L( A "0.363636", ",", "0.000000", ",", "0.271545", ",", "0.000000", ",", ' L j( S, a. w) r0 M( H
"0.000000", ",", "0.463192", ",", "0.380282"}], "}"}], ",", " ",
3 A- w+ D# n8 U RowBox[{"{",
$ ^2 k( [2 g% C6 X% C! k RowBox[{; c( i& @( y o5 Y* ]
"0.434783", ",", "0.728533", ",", "0.186830", ",", "0.129510", ",",
% @+ |! C c& a: {2 w/ p "0.195804", ",", "0.000000", ",", "0.269919", ",", "0.000000", ",", / s1 j: `! q; p9 w) t3 y' ?$ x
"0.326650", ",", "0.388398", ",", "0.211268"}], "}"}], ",", " ", 8 g2 Y$ Y! h2 q# n% {2 p- ?3 d: Y
RowBox[{"{",
- F' D- L4 Y3 i) N+ a# a RowBox[{
5 _/ y: j, q" k& q. | "0.608696", ",", "0.606152", ",", "0.158058", ",", "0.090170", ",", 2 m! C; n3 P t1 q# {) v% v
"1.000000", ",", "0.166541", ",", "0.278049", ",", "0.000000", ",",
( |; n: z' j n& Q8 U1 P$ z "0.236675", ",", "0.262367", ",", "0.253521"}], "}"}], ",", " ",
. i, M" A, a: D+ ~5 A+ C5 ?# Y RowBox[{"{",
* ~# d/ X0 a: U& o RowBox[{; X& p+ o, W% i2 j
"0.608696", ",", "0.633742", ",", "0.322697", ",", "0.068597", ",", # u7 L: S% c6 n) L6 T* @( H9 z
"0.328671", ",", "0.000000", ",", "0.000000", ",", "0.000000", ",",
/ r8 x' x8 i; L1 @ "0.287042", ",", "0.290931", ",", "0.281690"}], "}"}], ",", " ",
e" s. ^/ u* E& U- ~8 _8 t. h1 R, ~$ c RowBox[{"{", ! x. b Y) w4 h- ?+ d4 h( N
RowBox[{9 F- m: }0 R& A/ ?& E9 R5 Y
"0.478261", ",", "0.539023", ",", "0.412108", ",", "0.107566", ",", ) ^. ~7 ]6 ]$ C$ B* j) J6 {
"0.237762", ",", "0.000000", ",", "0.000000", ",", "0.000000", ",",
# }6 A q8 C$ d0 s5 k "0.000000", ",", "0.380742", ",", "0.507042"}], "}"}], ",", " ",
( }% z! \7 i; i/ Z' _9 Q, F RowBox[{"{", ! Z. e' J( h, Q" [+ {/ i( T1 A) z
RowBox[{) H3 e7 w' |! C" B2 R6 x
"0.608696", ",", "0.551859", ",", "0.176821", ",", "0.076332", ",",
; l" h6 S8 B4 @9 m8 h& \4 {' y# A "0.265734", ",", "0.000000", ",", "0.000000", ",", "0.000000", ",",
4 a( y/ ^% C2 r: ~6 J% G "0.000000", ",", "0.429034", ",", "0.239437"}], "}"}], ",", " ",
& O4 g+ g. p4 {: t4 H RowBox[{"{",
6 W* g2 ]) A+ P! F7 ?" k RowBox[{
/ x% v& n/ {5 a3 ~) ~5 C0 L "0.652174", ",", "0.551859", ",", "0.033549", ",", "0.018459", ",", ! e# R' j2 A0 T
"0.573427", ",", "0.000000", ",", "0.553659", ",", "0.000000", ",",
7 @' Y2 o+ `/ c( d3 h "0.404890", ",", "0.193168", ",", "0.394366"}], "}"}], ",", " ",
9 r, p( i: g- ?' i7 l7 m RowBox[{"{", 6 o' t2 S1 c, V- V/ C
RowBox[{3 U$ e \6 {" {+ P9 G" E
"0.695652", ",", "0.595382", ",", "0.277493", ",", "0.100326", ",",
/ ~3 K0 [( k: i4 d "0.286713", ",", "0.000000", ",", "0.000000", ",", "0.000000", ",", - i! W2 u$ M! \5 u% R
"0.000000", ",", "0.448763", ",", "0.338028"}], "}"}], ",", " ", % Z: Z0 ^& A4 C7 F( u
RowBox[{"{",
1 S2 n4 L& n6 d- X0 g RowBox[{ B9 g ^7 ^0 m7 F3 ~$ J2 h$ e
"0.565217", ",", "0.559531", ",", "0.422669", ",", "0.078111", ",",
4 k4 U/ r" n' w. C- O; U( q9 A "0.286713", ",", "0.000000", ",", "0.000000", ",", "0.000000", ",", 9 b# w! }2 d, @! i% h0 G- K& [" ~7 I
"0.000000", ",", "0.442285", ",", "0.394366"}], "}"}], ",", " ",
: {" [6 C+ ^. @, g+ U. Y2 Z+ o/ E8 A# I RowBox[{"{", , t! A z# j o- G9 C( `
RowBox[{: Y& s+ a: U# j) v
"0.586957", ",", "0.398126", ",", "0.140619", ",", "0.069116", ",", U; s8 ]% n2 K+ J2 u
"0.461538", ",", "0.000000", ",", "0.000000", ",", "0.000000", ",", 1 f- P# S V* W$ ]* E8 A
"0.000000", ",", "0.575383", ",", "0.154930"}], "}"}], ",", " ", / E3 V8 b/ U: ^ G, i, i* L3 O$ _
RowBox[{"{",
% {: c0 m5 B3 Z- }) y& B RowBox[{
0 ^) x z: e7 P9 q2 P "0.695652", ",", "0.398126", ",", "0.019829", ",", "0.041366", ",",
6 q5 @! u$ j! d b& ]0 m "0.552448", ",", "0.244160", ",", "0.000000", ",", "0.000000", ",", % L$ |4 Q. |4 Y$ a$ U
"0.000000", ",", "0.515607", ",", "0.591549"}], "}"}], ",", " ",
5 s+ x3 I$ o+ O6 A RowBox[{"{",
9 H8 z" o6 D) Z- i- d RowBox[{
5 ^' _& J) M5 t( x, p9 |" m5 E "0.695652", ",", "0.700354", ",", "0.422467", ",", "0.068128", ",", + s T3 j; E- A2 X8 |+ B% r- Q
"0.209790", ",", "0.000000", ",", "0.000000", ",", "0.500504", ",",
3 ]- n! K& Q/ w. A( P: K "0.000000", ",", "0.057715", ",", "0.408451"}], "}"}], ",", " ",
0 {. f! [ ^/ E! E( K RowBox[{"{",
& `$ m i7 m% a3 f; _; K; k! y RowBox[{
$ @- ~. E0 P1 {/ S* N "0.521739", ",", "0.193125", ",", "0.210582", ",", "0.110433", ",",
, y/ [! i9 C1 U# d& w' b, X) ~ "0.447552", ",", "0.382065", ",", "0.413008", ",", "0.498489", ",",
' s! d- e& A$ S4 d' j8 G6 \ "0.000000", ",", "0.174617", ",", "0.295775"}], "}"}], ",", " ", ( @4 V7 @# k5 @0 V3 f! h
RowBox[{"{", % y: m% R8 _ y& w4 {, C0 i
RowBox[{3 Z3 y Y( a n) W, t4 D" ^
"0.347826", ",", "0.063588", ",", "0.830527", ",", "1.000000", ",",
0 q+ B& b: w, ?% [0 [ "0.111888", ",", "0.000000", ",", "0.410569", ",", "0.000000", ",",
/ S6 U1 d% m) x4 m6 ]; D "0.000000", ",", "0.667550", ",", "0.661972"}], "}"}], ",", " ", 3 G7 }. l% {4 k6 z: e ~# T
RowBox[{"{",
6 m. Z, ]2 d3 h" V* ] RowBox[{# }* T' L2 N6 p- U; k% d
"0.521739", ",", "0.188109", ",", "1.000000", ",", "0.785485", ",", / Y8 y" @% j( g. v4 P, H: u
"0.342657", ",", "0.373775", ",", "0.406504", ",", "1.000000", ",",
& R; r% ]6 B, U) Q "0.000000", ",", "0.371025", ",", "0.774648"}], "}"}], ",", " ",
2 P" ~0 I' r6 a# e RowBox[{"{",
1 j; g& y$ u. H RowBox[{
7 E/ g; ^6 A6 i& ]3 e6 l; Q% Q "0.695652", ",", "0.188404", ",", "0.088836", ",", "0.059504", ",",
% Y, X5 k5 k/ _* B "0.706294", ",", "0.376790", ",", "0.000000", ",", "0.000000", ",", 3 W/ ? L7 @9 y z( I
"0.000000", ",", "0.570966", ",", "0.746479"}], "}"}], ",", " ", J( i+ g' J. A3 b( A* x- v$ x
RowBox[{"{",
5 V& \8 c7 M; D RowBox[{: v- ?5 h' J& ]9 e1 y
"0.695652", ",", "0.057465", ",", "0.316316", ",", "0.151280", ",",
2 J" a( v7 f/ L/ q. \ "0.615385", ",", "0.371515", ",", "0.412195", ",", "0.500504", ",",
% `2 Y/ B5 Y. R: I "0.000000", ",", "0.468198", ",", "0.887324"}], "}"}], ",", " ", ) X( Z5 Y5 h; a0 _
RowBox[{"{", 1 A2 i& L! t$ ^# ]! i6 I$ H8 k0 V
RowBox[{$ W2 X( p% a B% U- S( f
"0.608696", ",", "0.011360", ",", "0.295586", ",", "0.113892", ",", [4 k7 D' c* f
"0.580420", ",", "0.746044", ",", "0.405691", ",", "0.501511", ",",
! o/ V ?% n g m; S "0.000000", ",", "0.414016", ",", "0.845070"}], "}"}], ",", " ", & _6 N+ L: H: l6 P: L' U! G
RowBox[{"{",
8 O* V2 d! I8 l RowBox[{' Q, {5 g' \- Q! q4 M; z
"0.608696", ",", "0.364783", ",", "0.130582", ",", "0.020214", ",", ; ]& c9 G" Z' ^ w$ M
"0.356643", ",", "0.379804", ",", "0.000000", ",", "0.000000", ",", + l$ M/ _6 `8 o; r* w$ P! s) y
"0.000000", ",", "0.186690", ",", "0.704225"}], "}"}], ",", " ", 1 V( V9 [* i4 b+ E( g: `
RowBox[{"{",
/ P, o/ [. ]2 T RowBox[{
2 v7 k3 H. c+ U& v "0.608696", ",", "0.193199", ",", "0.112690", ",", "0.036152", ",", 7 ~# h' b8 J W5 r
"0.636364", ",", "0.382065", ",", "0.409756", ",", "0.495468", ",", " |% J- u( z# f1 U P# h6 b8 z5 t
"0.000000", ",", "0.442874", ",", "0.760563"}], "}"}], ",", " ",
: ~& G4 r. l2 \2 C. h. c& l RowBox[{"{",
L$ I5 x E- b3 c" I# @4 U. _1 ]( @ RowBox[{
: c1 P+ N1 i3 E% y. a "0.739130", ",", "0.328932", ",", "0.246779", ",", "0.126520", ",",
# d* `/ k- G5 Z. v* H( h5 b "0.454545", ",", "0.000000", ",", "0.495122", ",", "0.000000", ",", % Y+ [% ^/ @9 z2 v8 G
"0.414181", ",", "0.686690", ",", "0.436620"}], "}"}], ",", " ", 2 Y9 N/ H9 o9 C& `6 F
RowBox[{"{", 6 j2 t7 g1 `& A7 \# `) ?+ E9 I3 [
RowBox[{
& {* q: N) Q9 K; L0 d+ m8 G7 W3 Y "0.739130", ",", "0.341767", ",", "0.362090", ",", "0.183528", ",", % _; |, R$ V" L" I3 x' O
"0.573427", ",", "0.413715", ",", "0.454472", ",", "0.661631", ",", + l: M: t8 O0 ~4 _, e! B0 K
"0.000000", ",", "0.244111", ",", "0.633803"}], "}"}], ",", " ",
! ]3 g; D& \6 q$ i6 g o( z# ?' C RowBox[{"{",
4 t* Q. @3 @0 W* Z3 n RowBox[{
! U4 l% I' A& T* P7 Y "0.695652", ",", "0.187076", ",", "0.279724", ",", "0.006252", ",", 8 N6 d4 a& L. n
"0.405594", ",", "0.418237", ",", "0.544715", ",", "0.000000", ",", / c' V# Y. \0 S H7 p6 ]
"0.000000", ",", "1.000000", ",", "0.422535"}], "}"}], ",", " ", : i- j& k- |# Z
RowBox[{"{",
# k3 M- Y6 X# `$ H2 o# L+ o RowBox[{1 W: c7 m/ p) E
"1.000000", ",", "0.333948", ",", "0.064750", ",", "0.065855", ",",
2 W" o" f" J9 i "0.342657", ",", "0.000000", ",", "0.408130", ",", "0.000000", ",",
5 U. U7 W$ R) m) [ "0.000000", ",", "0.957892", ",", "0.295775"}], "}"}], ",", " ", 4 B2 Z0 {, L" W" i/ d1 M; O
RowBox[{"{", & g$ a+ y& [- v0 D
RowBox[{ P0 o; G# l4 N9 s$ B* }
"0.739130", ",", "0.305400", ",", "0.374567", ",", "0.132870", ",",
' L- H5 |# u9 F1 P$ ?0 @% z "0.258741", ",", "0.834966", ",", "0.000000", ",", "0.000000", ",", 2 B+ s' K8 J" L5 f; p) I
"0.272861", ",", "0.266784", ",", "0.309859"}], "}"}], ",", " ", 8 X6 w- f4 q% _/ U
RowBox[{"{", " \5 M$ a" C5 v9 Q9 ~+ ^
RowBox[{
/ G1 P0 p4 C8 F; F+ \. }" X, V "0.826087", ",", "0.151962", ",", "0.360280", ",", "0.221632", ",", / M! J' a. ^6 h" u! }- R
"0.447552", ",", "0.584778", ",", "0.457724", ",", "0.000000", ",",
* M7 J6 u) H: S "0.000000", ",", "0.826855", ",", "0.408451"}], "}"}], ",", " ",
# \1 d9 @0 a$ Q RowBox[{"{",
1 P* z+ w# c$ w+ A- r RowBox[{" ?+ j2 M" `7 h Y* w
"0.565217", ",", "0.047212", ",", "0.233154", ",", "0.121528", ",",
) _- p2 C, {; k" D "0.314685", ",", "0.417483", ",", "0.546341", ",", "0.000000", ",",
, H" \4 z5 [& [6 j+ q "0.669438", ",", "0.341873", ",", "0.197183"}], "}"}], ",", " ",
8 h" J9 `9 f" }5 R9 z0 t( k RowBox[{"{", ' T5 f* T+ e; ^. G$ k& q( x5 c0 A0 c9 T
RowBox[{' ?3 [. h" L) ]! f
"0.826087", ",", "0.034376", ",", "0.690349", ",", "0.512380", ",", ) T- m: u% K9 ~) y2 b- i* m+ r$ O
"0.685315", ",", "1.000000", ",", "1.000000", ",", "0.000000", ",", - p& }7 m0 g0 r: }
"0.556479", ",", "0.412544", ",", "0.732394"}], "}"}], ",", " ", ! s: @" j; z5 k! q, n
RowBox[{"{",
8 s5 N+ r. Y6 `3 i3 e RowBox[{
7 e/ ^! |! g$ x9 U "0.652174", ",", "0.000000", ",", "0.374417", ",", "0.188075", ",",
. {2 R/ r; O4 B# ~+ y "0.706294", ",", "0.498116", ",", "0.729268", ",", "0.000000", ",",
7 B# m" {: V+ m! a* u "0.454279", ",", "0.322144", ",", "0.802817"}], "}"}], ",", " ",
- u' W9 K3 ^, {, v RowBox[{"{", ' m/ S) g1 F6 z* t8 s
RowBox[{
4 E4 y% x& _8 P/ H; o "0.782609", ",", "0.180363", ",", "0.237142", ",", "0.054809", ",", / @6 S. E! r* ^7 l3 Y
"0.629371", ",", "0.373775", ",", "0.247967", ",", "0.000000", ",",
7 n2 L# `+ z) J2 S "0.163814", ",", "0.370436", ",", "0.746479"}], "}"}], ",", " ", ' r" \: c, b# q; z, w
RowBox[{"{", * g; i7 F; t s: I* B3 e$ u" Y! Z
RowBox[{. b, O) c, s& L( ^' X) ]
"0.608696", ",", "0.169150", ",", "0.368148", ",", "0.393768", ",", + \ o4 g" G' E3 S
"0.440559", ",", "0.995479", ",", "0.545528", ",", "0.000000", ",", 7 v, T- J2 y/ H
"0.565770", ",", "0.333039", ",", "0.380282"}], "}"}], ",", " ",
W/ _* ]/ D3 ^4 ~7 Z4 i% B/ K* A3 ~ RowBox[{"{",
- [. j9 b& a5 {# F; _- _( y RowBox[{9 ~) T2 _1 v/ u0 S; u
"0.695652", ",", "0.390454", ",", "0.186683", ",", "0.039439", ",", 4 t; j2 r, i4 |5 O. b) G
"0.482517", ",", "0.497362", ",", "0.415447", ",", "0.508560", ",", 0 B1 f: D+ C3 P* ?: _' H
"0.000000", ",", "0.390754", ",", "0.563380"}], "}"}], ",", " ", 9 g' i' s% V; | D7 F" m- G
RowBox[{"{", 6 b4 j+ j; k# X# U
RowBox[{
! R% S W: i; O3 ^5 X "0.739130", ",", "0.428888", ",", "0.082728", ",", "0.070154", ",", 0 x$ m' n: V! g- }/ P9 s
"0.279720", ",", "0.000000", ",", "0.000000", ",", "0.000000", ",", m- T J7 l- a4 p
"0.000000", ",", "0.694935", ",", "0.323944"}], "}"}]}],
. p9 F2 O. M7 _9 y9 I+ j "}"}]}]], "Input",5 @8 d* L6 T# H" I- `4 w* r# k0 `$ E3 i
CellChangeTimes->{3.5779587825701036`*^9}],( t. q1 e- f, }- L9 \+ ~
6 t7 L- Z2 |* }
Cell[BoxData[- J- \+ @' V; D0 b0 y0 N' a
RowBox[{"{",
% r3 s2 J' N( F1 }+ E RowBox[{
9 }2 U9 C% h! x6 R, L6 J RowBox[{"{",
9 x3 r: D9 h$ o$ _% m RowBox[{
* F' n1 [5 c7 N% F; S "0.304348`", ",", "0.552818`", ",", "0.33037`", ",", "0.025823`", ",", 6 t2 q# x5 \3 B5 J8 P7 G+ U: b/ B
"0.538462`", ",", "0.752072`", ",", "0.408943`", ",", "0.504532`", ",", * T: D E- _3 F5 e
"0.`", ",", "0.277091`", ",", "0.873239`"}], "}"}], ",",
6 g6 X) ]7 u' Y9 g, l" K( r/ U4 j RowBox[{"{", & L2 R) |) Y8 W" `# o0 ^
RowBox[{9 h8 @: {$ M0 W* k: j |
"0.565217`", ",", "0.346857`", ",", "0.393585`", ",", "0.118785`", ",",
6 s' U% e6 X8 n* R' D- ]' j "0.34965`", ",", "0.370761`", ",", "0.413008`", ",", "0.502518`", ",", 2 _' W5 }) l; W' F$ U
"0.`", ",", "0.220259`", ",", "0.464789`"}], "}"}], ",",
! F) F$ ^/ H& p$ y. J RowBox[{"{",
* ~' @' N0 B; T2 @7 S5 W RowBox[{
8 e) L. ^( ~2 q "0.608696`", ",", "0.339186`", ",", "0.4943`", ",", "0.099338`", ",",
7 K: s( R: x* \* h "0.321678`", ",", "0.375283`", ",", "0.`", ",", "0.505539`", ",", "0.`", # c4 O+ }5 s8 z; @, E3 \
",", "0.899882`", ",", "0.492958`"}], "}"}], ",", ' u! N6 L; e9 T d8 U' y
RowBox[{"{",
& Y% H# N2 y4 a3 F4 k) w RowBox[{
: ]1 ]; }: r1 Z% L: h1 I2 l- V "0.521739`", ",", "0.334022`", ",", "0.3555`", ",", "0.025156`", ",",
$ \# g8 u1 }3 h "0.48951`", ",", "0.37679`", ",", "0.411382`", ",", "0.`", ",", "0.`", 1 {6 |- W2 I5 ~! u8 h9 \( x7 Z9 L
",", "0.265607`", ",", "0.774648`"}], "}"}], ",", + `) t6 R7 |1 b, t8 m; q2 |
RowBox[{"{",
- C2 m+ C7 k, T RowBox[{
% V' `5 o% m, d* h: s "0.565217`", ",", "0.346931`", ",", "0.218229`", ",", "0.043639`", ",", 7 @ @0 B/ o" `1 N j- N/ m
"0.503497`", ",", "0.761115`", ",", "0.415447`", ",", "0.503525`", ",", % W7 c3 e+ `8 |. q I9 j
"0.`", ",", "0.642226`", ",", "0.380282`"}], "}"}], ",", / ~# m$ k( J" N
RowBox[{"{",
5 x2 `( C0 |0 f+ S% S: X RowBox[{
4 L# A6 E0 O8 V( Q "0.478261`", ",", "0.293154`", ",", "0.259368`", ",", "0.026688`", ",",
6 L" {# u* k" l1 s" K' A6 [3 M "0.587413`", ",", "0.75584`", ",", "0.409756`", ",", "0.498489`", ",",
* O6 T# f; D* I1 @% h "0.`", ",", "0.306243`", ",", "0.647887`"}], "}"}], ",",
9 N; X/ D9 c9 v* l4 q6 W RowBox[{"{", 3 {8 @# e+ ^7 I1 \8 s( @7 s1 o* L3 M
RowBox[{8 [# @4 i2 m% J2 L
"0.347826`", ",", "0.359693`", ",", "0.614393`", ",", "0.081521`", ",",
3 v) f' E/ [" {6 Z+ @: e "0.258741`", ",", "0.367747`", ",", "0.410569`", ",", "0.499496`", ",",
% ]- z4 t. N2 ~ "0.`", ",", "0.186985`", ",", "0.56338`"}], "}"}], ",",
1 U4 d& y6 Y# b( r$ f" x RowBox[{"{", 4 x: v/ M' a- N% _
RowBox[{. @( w. ~( }% S- j# h4 D7 _
"0.565217`", ",", "0.705518`", ",", "0.510223`", ",", "0.066892`", ",", & X- w$ D* L$ F3 A) P( [
"0.244755`", ",", "0.748304`", ",", "0.`", ",", "0.`", ",", "0.243032`",
5 `; b9 b* P. m s6 S6 ^ ",", "0.175501`", ",", "0.295775`"}], "}"}], ",",
$ |: z: M& J& u" R4 B/ Z3 ?" O RowBox[{"{", ! H; N: o) I9 V
RowBox[{
* J+ ^5 s* t1 H! ] O "0.565217`", ",", "0.71046`", ",", "0.64973`", ",", "0.119897`", ",",
8 _+ ?; X' e* V "0.468531`", ",", "0.`", ",", "0.636585`", ",", "0.`", ",", "0.766748`", 9 g# B0 q+ `. V d7 c z( ]& Y4 W
",", "0.147821`", ",", "0.338028`"}], "}"}], ",",
- o' i0 ^4 i: x! \7 r* r* L RowBox[{"{",
$ I3 r, _, O9 a3 ?* w RowBox[{3 I0 o1 J0 s$ S. S6 \/ d
"0.565217`", ",", "0.697772`", ",", "0.171587`", ",", "0.028566`", ",",
! D+ E) ]+ t4 m8 v" S" r "0.363636`", ",", "0.449887`", ",", "0.40813`", ",", "0.`", ",", "0.`", . }' g6 T* b* j: r! R' p
",", "0.352768`", ",", "0.211268`"}], "}"}], ",", 6 x v2 `0 s, L% C( @
RowBox[{"{",
# L$ ?! w; r# `: W3 X4 B RowBox[{
( h7 P, m$ m/ z1 M "0.282609`", ",", "0.660888`", ",", "0.460064`", ",", "0.110334`", ",", 6 r" r6 [. ^3 O* ]1 b$ V
"0.475524`", ",", "0.`", ",", "0.545528`", ",", "0.`", ",", "0.5511`", 6 k* P# \- s6 ?4 s
",", "0.23881`", ",", "0.690141`"}], "}"}], ",",
5 c7 S2 d0 X4 ` RowBox[{"{",
) W+ P, f2 Q$ D6 e% b# | RowBox[{: P- p3 E3 G- \; ?% K# Z
"0.130435`", ",", "0.682724`", ",", "0.258697`", ",", "0.019299`", ",",
7 M' x3 x" }7 ^$ o- j( l6 b "0.51049`", ",", "0.420497`", ",", "0.535772`", ",", "0.`", ",",
h0 `3 o7 b# o0 X( v "0.494866`", ",", "0.095701`", ",", "0.43662`"}], "}"}], ",",
+ v1 [/ m4 b0 y p3 Z2 @ RowBox[{"{", & e' S8 y6 z/ x0 y3 Y% E, W
RowBox[{, i2 Z, C# F; e' X1 G3 O
"0.347826`", ",", "0.697772`", ",", "0.108288`", ",", "0.022413`", ",",
% k. f7 r8 r8 |; X5 ~; c" K2 j "0.356643`", ",", "0.247928`", ",", "0.90813`", ",", "0.`", ",", 1 j9 Y2 n' ~0 ]) {) q. G1 r/ A4 m0 T
"0.383374`", ",", "0.162839`", ",", "0.`"}], "}"}], ",", * J/ X8 g2 L" ^" q- R
RowBox[{"{",
9 o1 u* X8 i) u0 j RowBox[{6 b8 T: d/ l' t, F5 V( J7 j4 j. @
"0.695652`", ",", "0.71828`", ",", "0.33973`", ",", "0.110285`", ",",
% b8 k( f( U+ _ "0.335664`", ",", "0.`", ",", "0.636585`", ",", "0.780463`", ",", "0.`", / }9 ?+ l% C! G6 R x7 l7 y+ N
",", "0.335395`", ",", "0.267606`"}], "}"}], ",", ( H9 `' \2 y+ O2 s3 q4 G
RowBox[{"{", # T+ S. w% j0 v! ^$ c/ k& Z4 e
RowBox[{
\- x8 o# v A7 s+ U! [3 [# R "0.652174`", ",", "0.569711`", ",", "0.414297`", ",", "0.175398`", ",", 7 X. J) l( b9 m6 P
"0.167832`", ",", "0.`", ",", "0.544715`", ",", "0.`", ",", "0.`", ",",
& n9 L! j4 L! Q; S5 J "0.160483`", ",", "0.211268`"}], "}"}], ",",
0 h7 D+ ^/ `: R3 v9 [% _% t RowBox[{"{",
* X4 x0 |* }: T RowBox[{: K' T9 a4 a1 B) z+ C$ Y2 e3 ~3 k
"0.`", ",", "0.395544`", ",", "0.027011`", ",", "0.048087`", ",", V2 L: A/ m \: t/ i; w
"0.496503`", ",", "0.`", ",", "0.452033`", ",", "0.`", ",", "0.278729`",
k/ c) y& Z: U) T7 z ",", "0.398115`", ",", "0.408451`"}], "}"}], ",", , s) p6 t) Y9 H8 N, ?7 C
RowBox[{"{", ; ^, @& Y: J' \ Y. j
RowBox[{
$ s: @4 v8 T$ m/ {( N "0.608696`", ",", "0.425199`", ",", "0.012979`", ",", "0.`", ",", - G6 l' V: {$ h6 T0 t. A7 K# q
"0.482517`", ",", "0.50942`", ",", "0.406504`", ",", "0.`", ",", "0.`",
# R B) _ B+ k" T( g ",", "0.157833`", ",", "0.478873`"}], "}"}], ",", 7 d. N i/ f5 D0 e
RowBox[{"{", * T! K- d$ Z7 x! Y
RowBox[{+ k% Q4 M9 Q! @9 g9 O
"0.608696`", ",", "0.577973`", ",", "0.213587`", ",", "0.030889`", ",",
4 L3 n; k: R1 T; l; C3 e "0.370629`", ",", "0.`", ",", "0.452846`", ",", "0.`", ",", "0.`", ",", ' T- e4 T' B3 V1 f
"0.315665`", ",", "0.380282`"}], "}"}], ",", 1 q0 k. K/ x! \! \4 L
RowBox[{"{",
; ?* Y& H& H) z' `. F/ _+ A/ V RowBox[{+ W# A% K- U- F! s! k/ @
"0.565217`", ",", "0.572293`", ",", "0.655012`", ",", "0.281852`", ",", 3 z( W. |. O+ }# w! ?; ?
"0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.492344`", 4 o' h4 Z' K' a5 N3 x+ f. d$ p8 x9 P
",", "0.211268`"}], "}"}], ",",
% Q) D# G1 q0 \5 \* T; z+ v$ f7 N RowBox[{"{",
4 c1 Z* J7 D0 w4 N8 { RowBox[{
2 Z/ _! Z+ h6 x; t" A% Q T# l "0.130435`", ",", "0.562039`", ",", "0.331662`", ",", "0.032643`", ",",
/ q9 ^, U' G. \! v "0.314685`", ",", "0.414469`", ",", "0.27561`", ",", "0.`", ",", "0.`",
7 D, y; H& }' o* e3 Y ",", "0.638398`", ",", "0.43662`"}], "}"}], ",", & c' Z& C1 n. E; m( c6 W
RowBox[{"{",
/ x0 H; D y* m; Z4 }) t RowBox[{# b! o3 x% e1 Z0 Y z. {# N) b5 P
"0.717391`", ",", "0.736205`", ",", "0.267704`", ",", "0.036152`", ",",
% Z1 F! e% u/ e' t( _, B "0.307692`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
. w5 s; ^& Z! L4 o& i: x "0.392521`", ",", "0.478873`"}], "}"}], ",",
2 j5 n/ r7 G+ D5 l: _0 w5 R- S RowBox[{"{", ' R! P9 j1 i- ?! w. N
RowBox[{
0 {( m# K7 a& ~7 [+ Z; v2 x "0.608696`", ",", "0.769475`", ",", "0.289283`", ",", "0.022882`", ",", ; ~+ C% b/ G( E: ~% J
"0.321678`", ",", "0.`", ",", "0.274797`", ",", "0.333333`", ",", "0.`", d8 L$ S0 b& B* ^8 U, M. j
",", "0.362191`", ",", "0.295775`"}], "}"}], ",",
, E# N+ W0 s5 P6 ^( J3 z" \* D RowBox[{"{",
: h+ o( n" r- o) X RowBox[{
" n, [) T3 k! p. g! u7 K/ n "0.913043`", ",", "0.170478`", ",", "0.`", ",", "0.012973`", ",",
$ I% ~- U- w( c3 k; p "0.293706`", ",", "0.`", ",", "0.`", ",", "0.672709`", ",", "0.`", ",",
2 d2 V/ A. P* I. i1 _# U "0.114252`", ",", "0.028169`"}], "}"}], ",",
7 d4 m2 b. ~2 S9 n/ a RowBox[{"{",
8 l; i K- Y/ z$ U RowBox[{) `7 m, Q( i( A: e
"0.73913`", ",", "0.193199`", ",", "0.160584`", ",", "0.037907`", ",",
1 M1 T- ^4 @2 m. b "0.461538`", ",", "0.`", ",", "0.684553`", ",", "0.`", ",", "0.`", ",", 4 o. H( g3 c# X. S r' _/ E: q( R
"0.401355`", ",", "0.43662`"}], "}"}], ",",
2 p) @! b0 X9 G: [7 P; I9 b6 { RowBox[{"{", % T! g& }4 Y4 l7 t6 x+ k& t) H; b
RowBox[{. m+ X# i* n, t! u( i; D- v* v0 o
"0.826087`", ",", "0.203969`", ",", "0.234619`", ",", "0.27224`", ",", . S% p; X2 _8 J% U
"0.265734`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
% b2 O* T+ q, b7 g, v "0.827444`", ",", "0.394366`"}], "}"}], ",",
) J4 h( {0 n6 k/ f RowBox[{"{", ; q6 K% B- ^' p5 j4 m) M
RowBox[{3 b; @& H1 ~7 t* t0 B" k
"1.`", ",", "0.199248`", ",", "0.295044`", ",", "0.041613`", ",", ' z% _8 H* o% _' z2 J% M
"0.20979`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", + S: V9 z" Z' i% M4 d& Y
"0.676973`", ",", "0.295775`"}], "}"}], ",", 2 R$ Y/ |- Z7 K! N3 `$ c) [
RowBox[{"{",
' v0 P7 @& y% b/ n6 i5 V* G RowBox[{% ?, z! `% b1 s! X
"0.869565`", ",", "0.180363`", ",", "0.243056`", ",", "0.098349`", ",", # S; L5 r) K( T. }) V1 Q
"0.265734`", ",", "0.503391`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 3 o$ p" X9 E' w6 A6 C6 i- k
"0.331272`", ",", "0.830986`"}], "}"}], ",", 2 b& E; e. m+ e0 Y4 J
RowBox[{"{",
/ T( R& ?1 b5 I+ n" O0 ^7 f5 k3 T; D% e RowBox[{# V5 F4 \! ]0 j6 e* L
"0.695652`", ",", "0.551785`", ",", "0.326201`", ",", "0.253608`", ",",
, B4 W+ B2 w, C* ?0 |0 S "0.195804`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
4 E& Q: P! B( M! s "0.845701`", ",", "0.169014`"}], "}"}], ",",
# X n3 v- T) n) r. R* |9 D RowBox[{"{",
& I3 F& D& z0 q2 z+ l RowBox[{
, @4 n8 [: a6 u6 M7 [ "0.652174`", ",", "0.572293`", ",", "0.111511`", ",", "0.035584`", ",", a6 f& W5 f; u3 m4 a
"0.405594`", ",", "0.249435`", ",", "0.544715`", ",", "0.`", ",", "0.`", ( D! T4 g9 s4 @$ L8 s/ E0 L
",", "0.287102`", ",", "0.366197`"}], "}"}], ",", : s( C) z! k% U3 x; n7 E' P
RowBox[{"{",
9 z( F# Q1 B+ _3 w. o3 \6 ] RowBox[{% ^+ O6 U t1 z. d: k0 D* I
"0.652174`", ",", "0.562039`", ",", "0.336155`", ",", "0.014604`", ",", + F1 v9 s. @& d: G' t: ^8 G
"0.174825`", ",", "0.24416`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
: C7 w/ M! r: }, V u8 t7 z3 A6 y) L6 W "0.`", ",", "0.309859`"}], "}"}], ",", : ]( @% y: }# q" M+ h
RowBox[{"{", 7 O4 T( R* K0 J' c, u2 G6 t
RowBox[{- N. a" I+ n9 r: |$ O+ c
"0.565217`", ",", "0.577383`", ",", "0.15587`", ",", "0.030963`", ",", - K' l9 a j. E5 \
"0.258741`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", + S }# @0 d: M% z1 O
"0.050059`", ",", "0.352113`"}], "}"}], ",",
' w+ j7 ~* t. { RowBox[{"{",
4 h1 d- Y, F& G; a/ g RowBox[{8 b" K B6 g/ |$ B* I5 K
"0.565217`", ",", "0.613234`", ",", "0.232956`", ",", "0.05387`", ",",
8 a1 {; H. h q1 b3 s) W "0.230769`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", , `6 g! l$ v( }% _. Q" |
"0.254122`", ",", "0.309859`"}], "}"}], ",", - n0 p$ p. |- c) \6 F. n4 q
RowBox[{"{",
+ x& G, s; }- ] RowBox[{4 H) }/ q1 O- S/ _
"0.565217`", ",", "0.559531`", ",", "0.493262`", ",", "0.046209`", ",", - \9 u2 p$ e5 k/ A. k$ k2 o
"0.293706`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
' M# D+ S: s) M9 P "0.086867`", ",", "0.774648`"}], "}"}], ",",
9 i7 s, q( e- T' ?2 W RowBox[{"{",
- f1 z- G2 X, V; @1 k RowBox[{
: F2 m e: a3 L "0.608696`", ",", "0.569711`", ",", "0.111932`", ",", "0.013542`", ",", * i$ [! V4 a4 k* v
"0.335664`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.168704`", ",",
* ?# Y/ A8 B5 l' z8 A "0.659894`", ",", "0.422535`"}], "}"}], ",",
" m3 G# v, a v RowBox[{"{", 7 w1 k* w& E/ A, R* m
RowBox[{
: I9 c- l0 \; G. m3 r. }, w "0.608696`", ",", "0.564547`", ",", "0.329844`", ",", "0.202036`", ",", 2 u% D5 |* E* _8 }# B( I" r; f
"0.51049`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", & H7 [8 P/ ~7 E* ~, }3 q$ J6 K$ w
"0.317138`", ",", "0.887324`"}], "}"}], ",", 4 y, h+ X$ [6 k# p; ]/ \! o
RowBox[{"{",
8 C3 n* m+ @& a3 b RowBox[{
$ e' `9 }3 H1 h5 o4 }# r "0.521739`", ",", "0.546695`", ",", "0.165788`", ",", "0.029431`", ",",
' r% o. e+ u _8 n "0.51049`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", ' h) }0 J# t) a7 c- T
"0.605124`", ",", "0.887324`"}], "}"}], ",",
. B. G( }5 F4 j( l' `) F& _ RowBox[{"{", ! x5 s- H7 ?0 m% ]- q
RowBox[{
8 |2 R# I6 F' s G9 p/ |% d7 G "0.521739`", ",", "0.564178`", ",", "0.400518`", ",", "0.045023`", ",", 0 _" ^5 n. U1 q# s+ K6 }
"0.615385`", ",", "0.3685`", ",", "0.660163`", ",", "0.301108`", ",",
2 F; Y% I b( n1 P V "0.`", ",", "0.32126`", ",", "0.859155`"}], "}"}], ",", 9 ~2 n5 ^" \+ o+ ]$ j y' N& s8 M
RowBox[{"{", - s2 c% h0 v+ E/ C
RowBox[{& }" n# O% R% e8 P5 h1 f0 K9 W5 `
"0.413043`", ",", "0.551859`", ",", "0.544826`", ",", "0.230503`", ",", 1 j. H2 |8 v; r
"0.244755`", ",", "0.53052`", ",", "0.819512`", ",", "0.`", ",", "0.`",
1 M! V- c9 f$ W4 E ",", "0.595406`", ",", "0.239437`"}], "}"}], ",", 9 R9 j, |$ g- Y
RowBox[{"{", ( A8 S# k- V A3 U5 z3 B, \' y
RowBox[{- J7 n! }% [& u4 K+ T- t! ? \! P
"0.652174`", ",", "0.549277`", ",", "0.257578`", ",", "0.058688`", ",",
( U$ }% U. P# z5 z0 l/ W) v "0.356643`", ",", "0.`", ",", "0.817886`", ",", "0.`", ",", "0.`", ",",
& X/ j! e0 P# @3 [7 S "0.555359`", ",", "0.295775`"}], "}"}], ",", 7 i% b. }* M3 |. E( d
RowBox[{"{",
% |! K8 {' S& X, X+ l. u RowBox[{
+ V. ~' Q3 y0 K4 ]! N- ^ "0.695652`", ",", "0.549277`", ",", "0.572308`", ",", "0.082411`", ",", . q( ?# k- {2 \4 C$ _
"0.461538`", ",", "0.528259`", ",", "0.819512`", ",", "0.`", ",", "0.`", 6 p2 c: W- |( ]$ V
",", "0.333333`", ",", "0.746479`"}], "}"}], ",", % I! V( C) w+ G# `
RowBox[{"{", # R/ D( j9 ~! s8 B% v6 l8 p
RowBox[{
/ f3 ]: M& N. N "0.434783`", ",", "0.551785`", ",", "0.530346`", ",", "0.151651`", ",", 7 t$ D. p+ g0 Q1 @: G
"0.79021`", ",", "0.529013`", ",", "0.409756`", ",", "0.`", ",", "1.`",
; [* p: b5 O4 j! L1 x7 Z ",", "0.149588`", ",", "1.`"}], "}"}], ",", * b$ `/ i, w+ ]0 G# Z) B6 A* Z
RowBox[{"{",
8 x$ F+ N, Z( |$ h, C8 | RowBox[{* M5 u) a, x. f( f
"0.282609`", ",", "0.531278`", ",", "0.321428`", ",", "0.228625`", ",", 3 v& @) \2 r8 b6 K9 o2 b1 `
"0.594406`", ",", "0.53052`", ",", "0.410569`", ",", "0.`", ",", ( c G* h6 U7 ~( u2 r: G; V1 L/ R
"0.757457`", ",", "0.493522`", ",", "0.549296`"}], "}"}], ",", 4 a* ~2 c+ d: {' r$ L
RowBox[{"{",
$ ~/ f+ _0 ~% w+ _% X% V4 c. F RowBox[{
* n/ M: I+ P# {7 m5 v9 o' q "0.347826`", ",", "0.705444`", ",", "0.109343`", ",", "0.072008`", ",", ) Z5 `0 |) V+ }
"0.496503`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.752567`", ",", 4 [9 b+ x9 x. i& g7 I: V
"0.224676`", ",", "0.366197`"}], "}"}], ",",
( g9 J: v! P. G RowBox[{"{",
t# a+ m8 h9 C9 B& k( L; y RowBox[{/ T' I; R7 f0 E" ~. N
"0.391304`", ",", "0.705444`", ",", "0.045908`", ",", "0.07312`", ",",
, q; W+ J0 m% K. ^ "0.622378`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.496333`", ",",
' }) J' ]7 l" t5 X' X) Y: f9 y "0.410188`", ",", "0.549296`"}], "}"}], ",",
: V0 w# X6 y2 G' }4 Z RowBox[{"{", 8 j! }! ~5 [* k. B" P- Y& P
RowBox[{! N1 I( o$ s: K! I% Q
"0.282609`", ",", "0.661921`", ",", "0.344992`", ",", "0.085178`", ",", 2 a F3 I8 U, s$ t5 y* U, R9 r
"0.293706`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 7 U! G" Y# ]6 ]) _
"0.668139`", ",", "0.577465`"}], "}"}], ",", 3 U3 u. O2 A) ?
RowBox[{"{", & q$ I8 l3 I7 e8 O
RowBox[{
( R: @! s& r! P. ~9 O) v% a; t7 [ "0.478261`", ",", "0.661921`", ",", "0.644209`", ",", "0.077296`", ",",
5 U8 p7 A) m5 \ "0.412587`", ",", "0.`", ",", "0.413008`", ",", "0.502518`", ",", "0.`", 1 g1 W# f! c% N2 e3 u
",", "0.102179`", ",", "0.690141`"}], "}"}], ",", 4 ? y+ R9 T/ @% u& ?( h; D
RowBox[{"{",
$ N* Z3 v, u. N/ k3 \ RowBox[{
! y% d+ P* I5 @' v "0.173913`", ",", "0.984656`", ",", "0.420753`", ",", "0.137022`", ",",
$ ~+ _% W+ C7 T; @ "0.321678`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
1 h3 v. d3 y/ {- } "0.380742`", ",", "0.71831`"}], "}"}], ",",
% r! ?+ H! b4 S1 S |( L RowBox[{"{",
8 P; t! r' d, P- y5 B8 C5 o RowBox[{" O1 O1 a# _( y+ Z5 z
"0.5`", ",", "0.984656`", ",", "0.288432`", ",", "0.047692`", ",", " x" C. T- Q7 C3 ] H
"0.27972`", ",", "0.`", ",", "0.821138`", ",", "0.510574`", ",", "0.`",
! }/ r& U0 l" v3 e7 f4 E ",", "0.319494`", ",", "0.521127`"}], "}"}], ",",
5 Q' h, F) I/ n% n. g. b RowBox[{"{",
, g" [% v1 p- K$ z: i" P) x RowBox[{
2 B+ X1 X( L1 @: w0 c% |. ?( K7 n "0.391304`", ",", "1.`", ",", "0.452931`", ",", "0.150909`", ",",
2 K! U9 j% s, e4 | "0.342657`", ",", "0.370761`", ",", "0.`", ",", "0.509567`", ",", "0.`",
! B& G# R: j+ C ",", "0.031508`", ",", "0.929577`"}], "}"}], ",", + ~* z4 Z s/ u0 }$ Y4 _' p- P
RowBox[{"{",
$ X1 T8 v7 [3 k RowBox[{6 g+ N. y1 C( E2 Q& s9 q
"0.73913`", ",", "0.774639`", ",", "0.17512`", ",", "0.036498`", ",",
, \# i0 |+ R- W+ T( Q. n' k "0.391608`", ",", "0.739261`", ",", "0.408943`", ",", "0.553877`", ",", 1 B& @& A) W2 \, [7 W! B4 n5 p# G
"0.`", ",", "0.292108`", ",", "0.521127`"}], "}"}], ",",
7 o0 E( Z* Q6 _ l; ?/ c* ` RowBox[{"{",
3 s1 P% G2 f0 |- G$ Q$ c RowBox[{
7 `& a$ e, ]' u "0.586957`", ",", "0.982074`", ",", "0.158462`", ",", "0.063902`", ",", 5 j8 O8 a" S4 j4 V. a
"0.321678`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
6 S, z) n$ z0 N, m8 L7 p' J "0.329505`", ",", "0.338028`"}], "}"}], ",", " A3 E8 d3 j6 C8 ]
RowBox[{"{", + l4 t$ {% F, Y
RowBox[{4 } |" X8 M/ E* l% q2 }7 S" c
"0.543478`", ",", "0.982074`", ",", "0.306872`", ",", "0.041934`", ",", " ? j# b$ ~6 ?5 M3 S% Z
"0.426573`", ",", "0.380558`", ",", "0.414634`", ",", "0.506546`", ",",
2 {0 f! d& G8 @ v6 F& X4 h "0.`", ",", "0.337456`", ",", "0.380282`"}], "}"}], ",", , p* R9 p2 ^0 \2 d; x
RowBox[{"{",
) a; R( O# i \* R% K RowBox[{
9 l0 r1 A# @) k# Q "0.73913`", ",", "0.997418`", ",", "0.170143`", ",", "0.058268`", ",",
% ]% g l/ \8 c5 L T. v8 P "0.538462`", ",", "0.248681`", ",", "0.`", ",", "0.339376`", ",", "0.`",
: c! @0 u8 }3 { ",", "0.766784`", ",", "0.676056`"}], "}"}], ",", / L- B3 J- ]7 F i
RowBox[{"{", 7 y6 A7 K/ H' c8 ]% Q
RowBox[{
* h- r! d c3 V "0.695652`", ",", "0.700428`", ",", "0.139361`", ",", "0.182169`", ",",
- I) i; M; `5 ^ "0.412587`", ",", "0.243406`", ",", "0.`", ",", "0.`", ",", "0.136919`", % T) y, O8 x9 u& M( c
",", "0.676678`", ",", "0.591549`"}], "}"}], ",", 8 v' k6 F9 G/ m4 v' J( f; T. G
RowBox[{"{",
2 Q- k- a) r/ b9 W6 q( Y J3 Y RowBox[{ a6 Q+ e3 ~- P
"0.782609`", ",", "0.751623`", ",", "0.177646`", ",", "0.350845`", ",",
o" K# E/ L! g6 w8 Q& R3 t "0.412587`", ",", "0.502638`", ",", "0.`", ",", "0.`", ",", "0.178973`",
6 g2 f) `4 s7 z) {& ]4 ]* V# F3 ~" M ",", "0.541519`", ",", "0.464789`"}], "}"}], ",", ' z7 m% A r9 T& S" [# g
RowBox[{"{",
9 S/ U3 o9 r o RowBox[{
. w, y% i& k9 L5 A8 W% p "0.652174`", ",", "0.751623`", ",", "0.355593`", ",", "0.039883`", ",",
& Z2 X$ n! ], P& r "0.195804`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
, m2 h' N, P: U' s# o "0.064488`", ",", "0.295775`"}], "}"}], ",",
/ [9 J8 E4 {- o RowBox[{"{",
7 F9 u4 [. i6 q9 t5 C RowBox[{) l/ g0 t% o6 |
"0.521739`", ",", "0.679847`", ",", "0.152375`", ",", "0.030048`", ",", * L) X5 M3 G5 f3 s8 S
"0.363636`", ",", "0.`", ",", "0.271545`", ",", "0.`", ",", "0.`", ",",
& V2 I7 P9 ^1 k6 L6 a "0.463192`", ",", "0.380282`"}], "}"}], ",",
6 P/ _8 E u; m RowBox[{"{", 0 n! F9 u- u6 a
RowBox[{+ g4 l: n8 B! d) ^' v( P5 S
"0.434783`", ",", "0.728533`", ",", "0.18683`", ",", "0.12951`", ",",
& g9 w* m+ j# s4 \( N "0.195804`", ",", "0.`", ",", "0.269919`", ",", "0.`", ",", "0.32665`", / V/ A6 ~! T1 _ P3 ~# O2 k
",", "0.388398`", ",", "0.211268`"}], "}"}], ",",
3 f) l: K3 w) I! |! G RowBox[{"{",
- m1 B% X2 f& n9 E0 x2 f* \ RowBox[{2 O2 j1 B/ i! F4 F" [3 b
"0.608696`", ",", "0.606152`", ",", "0.158058`", ",", "0.09017`", ",",
; S# x+ N; a8 U1 n "1.`", ",", "0.166541`", ",", "0.278049`", ",", "0.`", ",", "0.236675`",
8 c7 m' `1 p7 T# _1 o ",", "0.262367`", ",", "0.253521`"}], "}"}], ",",
& O* H6 b$ k2 A- @ RowBox[{"{",
* _1 k9 m- J: A# U k5 T, i RowBox[{
. D# u$ N0 {, t8 i' E% `5 ? "0.608696`", ",", "0.633742`", ",", "0.322697`", ",", "0.068597`", ",", : i! i+ o5 M8 }3 o# n( Q J
"0.328671`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.287042`", ",",
" W4 h9 `3 [; E "0.290931`", ",", "0.28169`"}], "}"}], ",", i% c: h; l- e+ k/ G1 Z
RowBox[{"{",
7 g2 v) W7 y: }5 X2 c# H4 z0 z2 U RowBox[{
4 U" B' ?) R, R. E5 w6 Q% P "0.478261`", ",", "0.539023`", ",", "0.412108`", ",", "0.107566`", ",", $ R3 p( j8 g6 Z
"0.237762`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
2 W7 G7 C2 d4 u: F& z4 t "0.380742`", ",", "0.507042`"}], "}"}], ",",
, r: N1 f: C( Y5 H. ?$ ^1 H2 M RowBox[{"{",
1 m) h5 U& l, c- ]1 B* K3 k1 i6 n" n+ R RowBox[{
( y! L! V, G+ g6 D* V5 z# V "0.608696`", ",", "0.551859`", ",", "0.176821`", ",", "0.076332`", ",",
( l' d0 D0 n! j% a3 p- d! I# g "0.265734`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", & K B- ?$ V* P5 E% g
"0.429034`", ",", "0.239437`"}], "}"}], ",",
9 }9 [$ f3 _# E! z1 ]0 j RowBox[{"{", + }% `/ F+ w. l& N! J) q3 Y
RowBox[{% \; Q* A8 p4 g' k
"0.652174`", ",", "0.551859`", ",", "0.033549`", ",", "0.018459`", ",", ! U; D/ h7 l$ N: m% x% I; T
"0.573427`", ",", "0.`", ",", "0.553659`", ",", "0.`", ",", "0.40489`", 0 Z, C7 J$ C$ W5 @9 o- _5 b: ?6 {
",", "0.193168`", ",", "0.394366`"}], "}"}], ",", 4 A- v+ z' Q# `& ` H# }. e+ A- C
RowBox[{"{",
6 v! Z5 v1 _8 ]1 m/ ?3 W RowBox[{
: q. Z" \9 Y2 j( @ "0.695652`", ",", "0.595382`", ",", "0.277493`", ",", "0.100326`", ",", ! }! B( r. B) n5 o2 V3 ~
"0.286713`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
6 {( B! Y+ @% ] "0.448763`", ",", "0.338028`"}], "}"}], ",",
4 u+ d( v8 i6 ^/ e u RowBox[{"{",
6 V: |9 Q; A0 g3 D6 V$ l RowBox[{
4 R! i+ x+ q/ u0 g- W% T* ?9 f "0.565217`", ",", "0.559531`", ",", "0.422669`", ",", "0.078111`", ",", 4 ~6 X5 e, c7 F6 k7 N6 M# H
"0.286713`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
! i8 L0 }6 o9 h5 Z$ j/ g+ R "0.442285`", ",", "0.394366`"}], "}"}], ",", 6 {; L h0 c2 Y
RowBox[{"{", ' {9 l% T. C& P* z* H, ]
RowBox[{' _, p& l( U k+ W( T+ I5 Y. h
"0.586957`", ",", "0.398126`", ",", "0.140619`", ",", "0.069116`", ",", 8 i/ l T7 T* b8 a( J, C4 U6 k1 j
"0.461538`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
3 u+ c! z$ T8 i3 R% r "0.575383`", ",", "0.15493`"}], "}"}], ",",
- d) ~7 U: a, T+ w% z% K5 ?/ u RowBox[{"{", 6 N: V5 d, z) E5 m8 k% b
RowBox[{, u3 Y/ A8 r* f
"0.695652`", ",", "0.398126`", ",", "0.019829`", ",", "0.041366`", ",",
2 P* H5 V) X9 }8 r3 v: Y "0.552448`", ",", "0.24416`", ",", "0.`", ",", "0.`", ",", "0.`", ",", Z* e( E r( `" ~9 V t
"0.515607`", ",", "0.591549`"}], "}"}], ",", 1 i9 \" v6 y* }* v9 S2 ]) B" Q
RowBox[{"{",
- A+ N& |" x# ]7 C% | RowBox[{
" T& n' F0 a5 M1 j1 h% [ "0.695652`", ",", "0.700354`", ",", "0.422467`", ",", "0.068128`", ",", . x+ X$ Z. ^& X: m
"0.20979`", ",", "0.`", ",", "0.`", ",", "0.500504`", ",", "0.`", ",", 2 z( _* A6 u; z1 |6 y0 y" {
"0.057715`", ",", "0.408451`"}], "}"}], ",",
( n' C* w- g9 x/ b9 i% g8 U RowBox[{"{", q8 l4 `+ E% e+ V1 k* `2 \: Y$ E3 z
RowBox[{
3 g& w4 d1 w* D+ ^ ~ "0.521739`", ",", "0.193125`", ",", "0.210582`", ",", "0.110433`", ",",
: T% X0 R, i9 `/ ] "0.447552`", ",", "0.382065`", ",", "0.413008`", ",", "0.498489`", ",",
% D3 t1 ]+ w% j& d4 W* F5 i, l "0.`", ",", "0.174617`", ",", "0.295775`"}], "}"}], ",",
8 \/ Q+ K, N0 [ RowBox[{"{", ' C9 S$ l9 F; Z* T9 @
RowBox[{7 S" ^. D2 T H$ M* Y1 T# h
"0.347826`", ",", "0.063588`", ",", "0.830527`", ",", "1.`", ",", / H, w" O. k7 W' |+ A0 `
"0.111888`", ",", "0.`", ",", "0.410569`", ",", "0.`", ",", "0.`", ",",
0 S1 r4 d8 H1 i; M& y5 e "0.66755`", ",", "0.661972`"}], "}"}], ",",
; | `: G) E7 P0 q RowBox[{"{", p. |: I4 L3 r# d7 z/ E U
RowBox[{; b) s2 ^) ^( k
"0.521739`", ",", "0.188109`", ",", "1.`", ",", "0.785485`", ",", 8 @' J @% C5 O: g8 K
"0.342657`", ",", "0.373775`", ",", "0.406504`", ",", "1.`", ",", "0.`", 5 l6 U. x' o: ?7 T: h4 j- d5 B
",", "0.371025`", ",", "0.774648`"}], "}"}], ",", 0 t$ l( F3 e7 U) ~( ?1 [
RowBox[{"{", ' a9 [# r2 |* i
RowBox[{
" z' t7 ~$ ^; `' I/ e! ^# _ "0.695652`", ",", "0.188404`", ",", "0.088836`", ",", "0.059504`", ",", , a' w }! X+ O" h
"0.706294`", ",", "0.37679`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
% O: S! o% d8 b2 q! _ "0.570966`", ",", "0.746479`"}], "}"}], ",", / {# e- ?1 _) I( ?" N$ C9 ?" t
RowBox[{"{", / W4 x2 S$ z5 c, K/ F5 O# V c
RowBox[{
V' j( [1 x' O# G0 F "0.695652`", ",", "0.057465`", ",", "0.316316`", ",", "0.15128`", ",",
& ^ N& L( K S6 w. k. j "0.615385`", ",", "0.371515`", ",", "0.412195`", ",", "0.500504`", ",",
* I9 u" @1 n6 h "0.`", ",", "0.468198`", ",", "0.887324`"}], "}"}], ",",
4 e, |+ |% V2 V- b; j RowBox[{"{",
) ]' U) I2 \9 g, {& I RowBox[{
' f6 {( Z8 ]! f3 H4 G) O "0.608696`", ",", "0.01136`", ",", "0.295586`", ",", "0.113892`", ",", 7 v2 V) k0 J/ u% \8 S" [ J
"0.58042`", ",", "0.746044`", ",", "0.405691`", ",", "0.501511`", ",", 1 k+ D b# I0 B$ h- D
"0.`", ",", "0.414016`", ",", "0.84507`"}], "}"}], ",",
1 m( S3 v5 ]- M A4 ]' [9 e0 q RowBox[{"{",
" [) V1 b6 N# @ |3 o1 J; a! b3 l RowBox[{# {& a1 P7 |+ S8 Z/ j
"0.608696`", ",", "0.364783`", ",", "0.130582`", ",", "0.020214`", ",",
6 ~0 W9 m$ `% x/ Y "0.356643`", ",", "0.379804`", ",", "0.`", ",", "0.`", ",", "0.`", ",", - U8 r' T/ i( ^- f) R
"0.18669`", ",", "0.704225`"}], "}"}], ",",
, s+ |* r1 A6 M( N: j G4 D- q P RowBox[{"{",
2 x( I( ?, z6 v- D8 K! _ RowBox[{
- j4 ~! Y, [$ n* c( j3 P0 o! k "0.608696`", ",", "0.193199`", ",", "0.11269`", ",", "0.036152`", ",",
W/ z! ?# T. p" i: P1 s "0.636364`", ",", "0.382065`", ",", "0.409756`", ",", "0.495468`", ",",
& h* @' p: g0 ]. e8 K" x "0.`", ",", "0.442874`", ",", "0.760563`"}], "}"}], ",", 5 t5 j) [9 s) ^, x e3 o n( q
RowBox[{"{",
) @: \0 E6 y y6 X1 h. A RowBox[{
& u" r; X: |* R8 y "0.73913`", ",", "0.328932`", ",", "0.246779`", ",", "0.12652`", ",", 5 a; D+ M4 O F( L _0 j3 P
"0.454545`", ",", "0.`", ",", "0.495122`", ",", "0.`", ",", "0.414181`",
3 K! ]% N% c7 f/ T4 ] ",", "0.68669`", ",", "0.43662`"}], "}"}], ",", ; Z: h; `; A6 D! E! v5 e
RowBox[{"{", - `$ |6 E: k$ E/ H: ]6 R" p: m7 m
RowBox[{; l: o8 ^" f8 ^- U8 e+ T
"0.73913`", ",", "0.341767`", ",", "0.36209`", ",", "0.183528`", ",", 2 e7 ^+ ~9 ^* T5 ]9 D
"0.573427`", ",", "0.413715`", ",", "0.454472`", ",", "0.661631`", ",", 1 t2 a$ d+ c5 Q* K# K
"0.`", ",", "0.244111`", ",", "0.633803`"}], "}"}], ",",
3 H: D7 y; Q# u$ {5 g q# O" T RowBox[{"{", . d2 H( e; z' i. X/ s9 |
RowBox[{
3 ?, [- p+ A, U$ }% K5 ^8 s$ p "0.695652`", ",", "0.187076`", ",", "0.279724`", ",", "0.006252`", ",", . D# H! k2 ^7 j
"0.405594`", ",", "0.418237`", ",", "0.544715`", ",", "0.`", ",", "0.`", B" H' A) w! L; Y) J& |8 T; u
",", "1.`", ",", "0.422535`"}], "}"}], ",",
5 L, R# F& ^. y- F/ L/ ^& u: s RowBox[{"{",
4 M( ` ?# h9 @" P1 @5 Q; O RowBox[{
7 x3 S. C) i6 i "1.`", ",", "0.333948`", ",", "0.06475`", ",", "0.065855`", ",", 7 d4 s* a6 N" q8 L$ N
"0.342657`", ",", "0.`", ",", "0.40813`", ",", "0.`", ",", "0.`", ",",
6 ]+ Y7 V: q) z9 Q1 Y( I6 m+ W- T8 { "0.957892`", ",", "0.295775`"}], "}"}], ",", 5 |# O4 G; j, N, S( k# [. i
RowBox[{"{",
3 |) K0 w1 v# O+ K- A, V$ }5 f RowBox[{
# a$ ^) y$ k* a' m5 S/ r "0.73913`", ",", "0.3054`", ",", "0.374567`", ",", "0.13287`", ",",
8 L6 _' O* A1 t& @9 ? "0.258741`", ",", "0.834966`", ",", "0.`", ",", "0.`", ",", "0.272861`",
: a3 V7 h) Q% p# G0 i ",", "0.266784`", ",", "0.309859`"}], "}"}], ",",
, ^# D1 x0 [4 W( [ RowBox[{"{",
. M* [) t' v& [/ W& W$ ^4 D RowBox[{
8 `8 V6 X. t1 E "0.826087`", ",", "0.151962`", ",", "0.36028`", ",", "0.221632`", ",",
8 |% }# [* Y& I6 `! r "0.447552`", ",", "0.584778`", ",", "0.457724`", ",", "0.`", ",", "0.`",
" Y3 Y) s" H z% ~9 }3 W ",", "0.826855`", ",", "0.408451`"}], "}"}], ",", " d- N3 O1 Z; k2 C' C
RowBox[{"{", $ M p0 ]( Z$ O- r( }( y
RowBox[{
4 J7 l* p- |- V G "0.565217`", ",", "0.047212`", ",", "0.233154`", ",", "0.121528`", ",", ) H$ T" i/ p2 j8 H$ }
"0.314685`", ",", "0.417483`", ",", "0.546341`", ",", "0.`", ",", 8 v4 s) c" n; ]0 y1 j
"0.669438`", ",", "0.341873`", ",", "0.197183`"}], "}"}], ",", ) z- I7 Q2 f1 E+ s f/ @) R
RowBox[{"{", " F% R. d& w6 R: C/ t
RowBox[{7 D6 X, H3 h5 l
"0.826087`", ",", "0.034376`", ",", "0.690349`", ",", "0.51238`", ",", ) ?4 ~% P* ` {5 o) ^) n! U
"0.685315`", ",", "1.`", ",", "1.`", ",", "0.`", ",", "0.556479`", ",",
- @ m( a9 Q; v- e; e5 t "0.412544`", ",", "0.732394`"}], "}"}], ",", 7 z3 g. f$ v: w4 b* z
RowBox[{"{",
0 ^ x- h% v. D7 U2 Z, l; j# p RowBox[{
" M8 z: ^4 e) j* [% }" z2 G$ f "0.652174`", ",", "0.`", ",", "0.374417`", ",", "0.188075`", ",", ( m! A# _8 c: I
"0.706294`", ",", "0.498116`", ",", "0.729268`", ",", "0.`", ",", * b `; T& H0 i4 {: e' l/ v$ [
"0.454279`", ",", "0.322144`", ",", "0.802817`"}], "}"}], ",", # a+ G6 o, L; A4 |, P7 d! i) r0 c
RowBox[{"{", 5 s& R( d8 Z, c" r. p: d2 n% P
RowBox[{3 i' }( h. D; e" `$ C
"0.782609`", ",", "0.180363`", ",", "0.237142`", ",", "0.054809`", ",", $ M7 Y( \ x7 B0 ~$ d0 o5 _2 ]# \, ]
"0.629371`", ",", "0.373775`", ",", "0.247967`", ",", "0.`", ",",
, O4 @' `) e' z. S8 I: a& w "0.163814`", ",", "0.370436`", ",", "0.746479`"}], "}"}], ",", 9 H5 P8 D" W# S6 B4 \8 D2 F$ X
RowBox[{"{", 6 ~1 r" L2 W5 k) X+ O' ]
RowBox[{
a( S# r/ X t# D$ n* Q/ J0 A "0.608696`", ",", "0.16915`", ",", "0.368148`", ",", "0.393768`", ",",
# o4 h* ]0 \0 j% f9 R "0.440559`", ",", "0.995479`", ",", "0.545528`", ",", "0.`", ",", , f' H6 M" U" n& i k7 i% T: r
"0.56577`", ",", "0.333039`", ",", "0.380282`"}], "}"}], ",",
p' ]$ A c& V RowBox[{"{", V6 b2 U- y5 h# x9 a
RowBox[{: W1 l$ T! c& w( h- J3 K: N& y
"0.695652`", ",", "0.390454`", ",", "0.186683`", ",", "0.039439`", ",", 4 n+ J+ D3 n: Q1 H4 B
"0.482517`", ",", "0.497362`", ",", "0.415447`", ",", "0.50856`", ",",
$ t" E, y: O5 u" Y' }' }7 j "0.`", ",", "0.390754`", ",", "0.56338`"}], "}"}], ",",
) F9 q9 ^# y8 j/ O. {. q3 `+ [ RowBox[{"{", ! l/ ^ J' e' V7 S+ f
RowBox[{4 h$ T, ]: p- J
"0.73913`", ",", "0.428888`", ",", "0.082728`", ",", "0.070154`", ",",
0 f1 h# p3 g3 i. B "0.27972`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
$ t$ ]" A8 v# L0 R8 ^" B Y- W( {! L "0.694935`", ",", "0.323944`"}], "}"}]}], "}"}]], "Output",
$ \; e# ~3 K \4 ]) ~$ ?: \( n CellChangeTimes->{3.57795879182092*^9, 3.5779604974578943`*^9,
. E4 _, {% L/ H% I0 N7 ^ 3.57801214396875*^9}]0 n( |7 @2 j E
}, Open ]],
9 |: S$ J9 j8 i, {6 T5 H3 ^6 E
, g) Y& M( o* y* s2 ^5 }Cell[CellGroupData[{ x" m4 @/ o% m+ \& \. x* g1 k
% Z) M, r, I! } e% {* g% v- C+ E1 a. ~
Cell[BoxData[
& b9 r8 v4 K G RowBox[{"Array", "[", " v& D3 ]( A7 C" T P/ G E3 ?) x# U/ e
RowBox[{"CM", ",", 4 x+ e. H4 R* H( Q2 q
RowBox[{"{", 9 ]) ^& @; a4 ^; S+ w! {- b! `
RowBox[{"80", ",", "9"}], "}"}]}], "]"}]], "Input",4 ]8 z3 {, q2 S2 I. O; r
CellChangeTimes->{{3.577844235859375*^9, 3.577844291953125*^9}}],, ~5 m% o& }$ `2 m* l3 [7 {
) R; B/ T z6 j& S! O0 N$ s
Cell[BoxData[
# L b+ X1 D/ w* @4 ~$ `( f8 e RowBox[{"{",
2 ~/ K6 }: W" D- E3 U9 A RowBox[{
0 P0 v$ }" }" p& E RowBox[{"{",
7 d# c1 m% I. D2 N" U4 N/ ]4 h RowBox[{
- S5 Q5 H2 ]5 A; \! x RowBox[{"CM", "[",
) T0 r) M3 t% _' T. t. v RowBox[{"1", ",", "1"}], "]"}], ",", 3 ~/ X" V' D. i" _
RowBox[{"CM", "[", & i* l/ D4 j8 s' n" E
RowBox[{"1", ",", "2"}], "]"}], ",", - c( S' D& }+ ~* A% ]: N! P
RowBox[{"CM", "[",
2 j- p# }: Q2 z/ _* M; H RowBox[{"1", ",", "3"}], "]"}], ",", + j/ A9 A4 P% y- n2 A
RowBox[{"CM", "[", 6 _: d4 q0 C- U. @
RowBox[{"1", ",", "4"}], "]"}], ",", 4 ?) |4 \, n' L6 [% A ^7 Z
RowBox[{"CM", "[",
/ I$ d3 X3 V6 F+ q$ s RowBox[{"1", ",", "5"}], "]"}], ",",
3 u* h! N: O! \ RowBox[{"CM", "[",
' i5 J' } V( @ RowBox[{"1", ",", "6"}], "]"}], ",",
3 X1 H4 W+ o( a' q' k( O0 x' L RowBox[{"CM", "[", - {% F$ U! g: q# s
RowBox[{"1", ",", "7"}], "]"}], ",",
6 q! z5 `/ E7 ]: u; A RowBox[{"CM", "[",
) D+ ~0 M3 Z/ N" @ RowBox[{"1", ",", "8"}], "]"}], ",",
" O A3 M5 c0 {4 ` RowBox[{"CM", "[", / Z9 i& @! U9 {, k
RowBox[{"1", ",", "9"}], "]"}]}], "}"}], ",",
& V8 V! s( n( Z3 K/ R6 | RowBox[{"{", + r! f1 d% r. k
RowBox[{
2 p W6 X9 ^: \% R4 B4 ?- \" E) m( w RowBox[{"CM", "[", 1 x4 k" U, G% d2 d/ r: |
RowBox[{"2", ",", "1"}], "]"}], ",",
+ R: C y7 y* a0 { RowBox[{"CM", "[", ) ^8 X0 P# ]$ E
RowBox[{"2", ",", "2"}], "]"}], ",",
. G3 w9 @1 f9 k) O% C: Q5 f RowBox[{"CM", "[",
( y8 F9 v9 C/ n7 ~- Y RowBox[{"2", ",", "3"}], "]"}], ",",
) V9 G( V; f/ l' c z' j9 N: a RowBox[{"CM", "[", 2 s5 H! V' O. X9 X
RowBox[{"2", ",", "4"}], "]"}], ",",
" B# i8 t7 A2 o0 {2 [ RowBox[{"CM", "[", 7 @/ F/ q4 I( C0 f# i! a8 t, D$ I/ ?
RowBox[{"2", ",", "5"}], "]"}], ",", p3 R1 w# B% U k# F5 r4 B
RowBox[{"CM", "[",
& v1 a0 D, w1 K7 m# k c/ H RowBox[{"2", ",", "6"}], "]"}], ",",
+ B8 c0 Y0 v; n) O! U/ e5 _& p# q( o) w RowBox[{"CM", "[",
! M/ g: w* s; z- X! B( t- A+ c RowBox[{"2", ",", "7"}], "]"}], ",",
/ w7 U3 l; \) r) d8 } RowBox[{"CM", "[", - D! M/ P" _/ M" s( q
RowBox[{"2", ",", "8"}], "]"}], ",",
1 O0 @6 p6 \$ m/ Z" f7 ?, L+ O+ d RowBox[{"CM", "[",
- h8 j* i; t0 W3 W# Q7 h RowBox[{"2", ",", "9"}], "]"}]}], "}"}], ",",
5 `9 C. E( p0 Q- Q3 R RowBox[{"{", ! }$ {3 `( ^, |4 C1 `0 K
RowBox[{
& Z. `2 N# r0 x: S6 } RowBox[{"CM", "[",
; P# V) u. ~" d* X, [) | RowBox[{"3", ",", "1"}], "]"}], ",", 3 W' A* B5 Q @7 g, j
RowBox[{"CM", "[",
- R1 L) \+ L3 {9 q: v RowBox[{"3", ",", "2"}], "]"}], ",", 3 [. m- a; e; W( W3 I3 ]
RowBox[{"CM", "[",
8 R# J4 R/ J, }& Z+ A; z RowBox[{"3", ",", "3"}], "]"}], ",", % \$ K8 i" X4 f: p G4 S& ]
RowBox[{"CM", "[",
4 G! R) a4 s' @# e$ X7 q RowBox[{"3", ",", "4"}], "]"}], ",",
) A4 _+ R. N2 b, u ^' e RowBox[{"CM", "[",
* n0 z5 s& D! y9 C+ I# C# b RowBox[{"3", ",", "5"}], "]"}], ",", ! r& ^2 C; J6 e/ `
RowBox[{"CM", "[", " k& z) Q) T/ U0 R
RowBox[{"3", ",", "6"}], "]"}], ",",
- R7 V6 F, }2 N8 w e RowBox[{"CM", "[",
8 a/ `* u. B" i5 \/ X, | RowBox[{"3", ",", "7"}], "]"}], ",",
, @* u. y1 x5 [ RowBox[{"CM", "[", ' X. ?4 L' f0 y& x4 T" ?) y
RowBox[{"3", ",", "8"}], "]"}], ",", ! K( N( P) n! q3 E
RowBox[{"CM", "[",
. U' ~5 |2 u5 u, B1 \) i RowBox[{"3", ",", "9"}], "]"}]}], "}"}], ",", % J& V- n- ]9 Y6 a+ z% u
RowBox[{"{",
1 w8 E) i- p5 K1 [# ^! j ^* @$ X RowBox[{+ Q$ a, j' S9 t9 ]3 [" t
RowBox[{"CM", "[", ! p% I3 X3 x0 |( O5 |
RowBox[{"4", ",", "1"}], "]"}], ",", ; x6 K1 k: o0 i4 x9 \7 Q
RowBox[{"CM", "[",
* S3 U/ k" B+ z$ s- {( P RowBox[{"4", ",", "2"}], "]"}], ",", % ~2 Y c, ^ a- O
RowBox[{"CM", "[", # }( Y6 m$ Y& E2 ]4 _
RowBox[{"4", ",", "3"}], "]"}], ",",
4 i8 h$ l- B0 t& u t RowBox[{"CM", "[",
3 j+ p2 g! c: p a RowBox[{"4", ",", "4"}], "]"}], ",", 4 K4 f. {4 x( D# K2 }4 z! q
RowBox[{"CM", "[", , r' X, J1 s; }
RowBox[{"4", ",", "5"}], "]"}], ",",
8 G7 {3 m$ p/ R# H1 V |5 p RowBox[{"CM", "[", 6 n. f7 [4 w9 _0 ?7 K4 ]' Y
RowBox[{"4", ",", "6"}], "]"}], ",", " N9 I. {( ^, v" F$ P& s
RowBox[{"CM", "[",
$ `- D, Y; s" V* Z RowBox[{"4", ",", "7"}], "]"}], ",",
8 `" h1 `3 _8 _5 @( \2 l) g RowBox[{"CM", "[",
6 E8 v2 `' ^9 s RowBox[{"4", ",", "8"}], "]"}], ",",
2 J1 ~. m' g4 \7 H" i( m8 z/ g RowBox[{"CM", "[", $ O) M s# E& W# ?' }4 o' B4 k
RowBox[{"4", ",", "9"}], "]"}]}], "}"}], ",", 1 g/ ^4 b2 R$ D1 P
RowBox[{"{", ) Q- _( c+ V4 ~3 i- J: \
RowBox[{
9 U; |. z1 Q* W' W RowBox[{"CM", "[", 8 a, H% ~; e$ {% i
RowBox[{"5", ",", "1"}], "]"}], ",", & y, Y6 _, \6 y7 ?
RowBox[{"CM", "[", 3 |5 A Q7 `" I
RowBox[{"5", ",", "2"}], "]"}], ",", & e- C; x- }0 J
RowBox[{"CM", "[", . b8 ^& x+ S- Q6 q) n& k
RowBox[{"5", ",", "3"}], "]"}], ",",
* u! ~4 {- O* ^4 F RowBox[{"CM", "[",
% Q2 l4 @9 s/ I# h- A+ H, O RowBox[{"5", ",", "4"}], "]"}], ",", - W# f1 ~" b* h* [* _9 P& P* z
RowBox[{"CM", "[", 0 g) J5 K1 Y m2 ?( E& Q7 }
RowBox[{"5", ",", "5"}], "]"}], ",",
& _' T0 Y0 j( X L$ W9 a" N RowBox[{"CM", "[", 3 H5 {0 a) u" J J p0 x8 g
RowBox[{"5", ",", "6"}], "]"}], ",",
8 |7 @! R- i9 M! [9 {8 x. ` RowBox[{"CM", "[",
* e9 n0 }# n" T4 V0 f RowBox[{"5", ",", "7"}], "]"}], ",",
0 B$ Y7 Q. I: x RowBox[{"CM", "[", + k8 ?3 u( G% u6 ~
RowBox[{"5", ",", "8"}], "]"}], ",", 9 Z5 K& x+ h, b# }4 A
RowBox[{"CM", "[",
8 p) Z0 W1 h3 Q7 h# x; R6 R- r RowBox[{"5", ",", "9"}], "]"}]}], "}"}], ",", ; {$ c! g% w- D8 C6 G- B
RowBox[{"{", ) v& B( s" [7 J6 g: u& k1 N
RowBox[{8 @4 ~# P; l& M- I
RowBox[{"CM", "[", # Y8 h8 D9 R5 S) }8 y$ o
RowBox[{"6", ",", "1"}], "]"}], ",", 8 U3 ?2 I2 K* l# ?$ s6 N- i p
RowBox[{"CM", "[", ) A6 \# V+ t( [9 S2 a( |0 R2 p! `
RowBox[{"6", ",", "2"}], "]"}], ",",
2 f3 l- k! ^2 M( `1 X RowBox[{"CM", "[", # ^$ B" v- [: J9 i' J. q Z
RowBox[{"6", ",", "3"}], "]"}], ",",
: w" s9 a* B3 ]/ X1 f RowBox[{"CM", "[", ( P+ T0 m+ N- V3 f$ \
RowBox[{"6", ",", "4"}], "]"}], ",",
5 p3 A: T% R5 s2 A1 h7 W RowBox[{"CM", "[", , y. K g6 i( @
RowBox[{"6", ",", "5"}], "]"}], ",",
4 {2 H6 o# L9 `: u1 Q" Q) L0 P3 a RowBox[{"CM", "[", 5 {$ J1 `' g% J* |- \
RowBox[{"6", ",", "6"}], "]"}], ",",
7 J" M* m' v7 K @ RowBox[{"CM", "[", ' H4 J/ E+ [, ]
RowBox[{"6", ",", "7"}], "]"}], ",",
: e& l+ B& \# X5 n RowBox[{"CM", "[", : ]# w. I" z1 A, }0 ~
RowBox[{"6", ",", "8"}], "]"}], ",", 6 C! {& [- q& u- |; ?
RowBox[{"CM", "[",
: A% D. c8 B# B$ g( n RowBox[{"6", ",", "9"}], "]"}]}], "}"}], ",", ; Q z8 i! y# J
RowBox[{"{", 7 q) w% ^) T1 U0 j) T2 ~6 ^
RowBox[{! V; O- Q/ q9 D9 |9 d: h" a
RowBox[{"CM", "[",
/ z Y, B4 N7 [ RowBox[{"7", ",", "1"}], "]"}], ",", " R& H! L0 x- p. D- k
RowBox[{"CM", "[",
T2 n; J' l, U+ y4 T RowBox[{"7", ",", "2"}], "]"}], ",", 8 P; T" G J2 H" H$ J
RowBox[{"CM", "[", " g/ L8 d6 M! A* F0 `
RowBox[{"7", ",", "3"}], "]"}], ",",
/ V: Z1 U) W& U" v* w& ]% x; ? RowBox[{"CM", "[",
9 q1 m& P, s) m2 f" R RowBox[{"7", ",", "4"}], "]"}], ",",
. E- z7 `; o' P) Y) P RowBox[{"CM", "[",
& ]! r: L7 b9 }+ m# w" m$ V RowBox[{"7", ",", "5"}], "]"}], ",", ; ]9 E& b2 x! \
RowBox[{"CM", "[",
/ @; C+ \: m+ K8 \ RowBox[{"7", ",", "6"}], "]"}], ",", % P2 {( E/ e$ z
RowBox[{"CM", "[", $ w9 q- _" {8 j3 B, f5 }8 W
RowBox[{"7", ",", "7"}], "]"}], ",", 2 B+ W( C4 q1 B& Q. S) t" ~1 x
RowBox[{"CM", "[", 4 G- l$ z# Z, l' C* {
RowBox[{"7", ",", "8"}], "]"}], ",",
`. m$ e/ b, H8 i RowBox[{"CM", "[",
. |" U# {7 w N& ]( L5 Y% K RowBox[{"7", ",", "9"}], "]"}]}], "}"}], ",", E: w4 n3 V+ g% L& c8 t x
RowBox[{"{",
4 @3 E6 x3 Q1 V. Q RowBox[{
, |7 r" \& w& e# g7 I$ ]; A2 |# D RowBox[{"CM", "[", & h- A1 }" L7 I' L! _2 L- |6 i' A
RowBox[{"8", ",", "1"}], "]"}], ",",
. n# q( W# g! I ]8 `4 g0 z7 { RowBox[{"CM", "[",
; l/ H" e$ J% j7 o! @- k" `6 k RowBox[{"8", ",", "2"}], "]"}], ",", * ]* g. x/ F, w5 w b* ^+ I% v8 n
RowBox[{"CM", "[",
9 n3 \, [' _2 W# o8 K. o RowBox[{"8", ",", "3"}], "]"}], ",", ) J) H0 Z& m& q7 c9 W( B6 w
RowBox[{"CM", "[", # H% D, Z d+ H L9 }) J% f/ `
RowBox[{"8", ",", "4"}], "]"}], ",",
0 ^, i7 e M3 m6 _4 U RowBox[{"CM", "[", ! j& ]2 }& P# ]1 X V1 \
RowBox[{"8", ",", "5"}], "]"}], ",",
C+ w, I5 @7 O RowBox[{"CM", "[", % G+ o8 H/ a. l: F& |0 G/ c
RowBox[{"8", ",", "6"}], "]"}], ",", & _" ?& T7 ^4 c6 f# l+ x1 {, I3 ?
RowBox[{"CM", "[",
% o/ U' k m, s- ]3 Y7 h RowBox[{"8", ",", "7"}], "]"}], ",",
9 |4 {0 w0 y% ~4 A" E5 f) ~" E RowBox[{"CM", "[",
7 L; W9 r5 a9 K0 Z0 g RowBox[{"8", ",", "8"}], "]"}], ",",
+ i% P& j3 M, k' ~ RowBox[{"CM", "[",
+ v$ x8 p! L9 ]+ g% m# k: E RowBox[{"8", ",", "9"}], "]"}]}], "}"}], ",", 4 q7 W/ L5 F. U6 p9 o2 p5 T, R
RowBox[{"{", " a6 P! H; I, h. |( s: o- B
RowBox[{
! `; Y+ g. Q; U" J1 ^- ?" g RowBox[{"CM", "[", ; H. a# p$ a) c+ ?
RowBox[{"9", ",", "1"}], "]"}], ",", ! R9 I, ~- L) K
RowBox[{"CM", "[",
8 j3 Q8 k8 g' O3 {& ~0 f RowBox[{"9", ",", "2"}], "]"}], ",", 1 A7 j9 T: r7 w" D- w- H
RowBox[{"CM", "[",
% k6 o! f4 t! N: B RowBox[{"9", ",", "3"}], "]"}], ",",
5 L8 W6 @) u8 s W3 h" E, @& T RowBox[{"CM", "[", 1 A7 Z3 O. o) R4 D$ j9 Y* c
RowBox[{"9", ",", "4"}], "]"}], ",", ! m+ ~) Q( g6 J4 V
RowBox[{"CM", "[", 4 F) I0 J+ R& h) x/ s8 A
RowBox[{"9", ",", "5"}], "]"}], ",", $ m; ^3 i4 N9 l9 \6 I: h4 b
RowBox[{"CM", "[",
" M3 s- ^" U( K RowBox[{"9", ",", "6"}], "]"}], ",", 0 t. u# S$ L/ I$ p
RowBox[{"CM", "[", $ o+ O6 J- Z2 ~) D
RowBox[{"9", ",", "7"}], "]"}], ",",
1 Z% C: i i8 v4 P: t2 A3 U RowBox[{"CM", "[", % d/ J4 ]- b6 ?8 c+ `
RowBox[{"9", ",", "8"}], "]"}], ",", 8 m4 I$ h) Z# q( ?& Y! K9 E
RowBox[{"CM", "[",
" E# h# j# R: d RowBox[{"9", ",", "9"}], "]"}]}], "}"}], ",",
, \% a! J( e* @9 m+ r RowBox[{"{",
0 Z9 d3 r( a* K RowBox[{( l1 c1 N' ?8 k0 u
RowBox[{"CM", "[", ' ]+ G( D2 N5 ?# q2 g6 c
RowBox[{"10", ",", "1"}], "]"}], ",", : F, _2 K! N6 k! P8 ~( G
RowBox[{"CM", "[",
+ b# ? |6 b6 l$ M9 S/ E RowBox[{"10", ",", "2"}], "]"}], ",",
0 ~! A" t5 Y# _' T: r, Y RowBox[{"CM", "[", . X) |% g: S% B" f* O' p
RowBox[{"10", ",", "3"}], "]"}], ",", 2 i( X- N0 ~, G, _6 f- R# W2 R
RowBox[{"CM", "[",
+ B1 D8 [3 Y# h RowBox[{"10", ",", "4"}], "]"}], ",",
" Z: B" m! Q( w/ V0 [& k$ z5 z RowBox[{"CM", "[", ' P( R! I4 `' i
RowBox[{"10", ",", "5"}], "]"}], ",",
& W# V; w5 [# B RowBox[{"CM", "[",
; _& n6 t- Z" J+ k# i! X RowBox[{"10", ",", "6"}], "]"}], ",", 6 I0 M8 L! @# n2 H" c
RowBox[{"CM", "[",
7 x/ T" o9 u! r1 R: T RowBox[{"10", ",", "7"}], "]"}], ",",
& r, s% s6 ~8 M& x. Z/ K RowBox[{"CM", "[", " V: Z) i/ h6 y1 D7 W6 p! O
RowBox[{"10", ",", "8"}], "]"}], ",", , h. n4 w0 ]# X2 V; T
RowBox[{"CM", "[", 2 m2 Z z: P5 r2 C) W6 M
RowBox[{"10", ",", "9"}], "]"}]}], "}"}], ",",
( R! D3 ]% w( e9 k5 p" Y3 ^ RowBox[{"{", # [2 [9 {/ N6 E* R- z& S. j
RowBox[{
; Q& t, ?' B8 N+ Y- T RowBox[{"CM", "[",
6 i) M, K( x' { RowBox[{"11", ",", "1"}], "]"}], ",",
, y9 l( ^, |) _1 R9 q5 j0 [3 J0 ~: I RowBox[{"CM", "[", * f2 G4 \! B6 X; o0 K& u5 x8 o
RowBox[{"11", ",", "2"}], "]"}], ",",
+ m- H2 ^) u# x1 T) o RowBox[{"CM", "[",
5 n9 Q2 _2 \1 M5 H3 n9 r RowBox[{"11", ",", "3"}], "]"}], ",", & _0 _' M7 J! ~- P- ^$ @
RowBox[{"CM", "[", # A2 p9 [1 F+ I( J, r
RowBox[{"11", ",", "4"}], "]"}], ",",
6 E! g* p$ n: ^3 b7 a* y RowBox[{"CM", "[", 6 A' J' |: Q, w/ ~) t
RowBox[{"11", ",", "5"}], "]"}], ",",
( I6 J9 ?0 n& H: j' I* X5 y RowBox[{"CM", "[", 3 \" J/ C M7 e) {
RowBox[{"11", ",", "6"}], "]"}], ",", 5 `5 \0 n% f6 R: `6 ?
RowBox[{"CM", "[",
* F+ }7 Q) _+ L$ b5 D& O RowBox[{"11", ",", "7"}], "]"}], ",", ) K. _8 ]0 f" d* c/ d+ G% ^7 d/ [
RowBox[{"CM", "[", 8 X. y7 N2 j. w8 G$ i
RowBox[{"11", ",", "8"}], "]"}], ",",
+ F! n/ T; [+ p" g$ D RowBox[{"CM", "[", 4 A0 o2 x( o- a0 I3 G+ M3 u/ {
RowBox[{"11", ",", "9"}], "]"}]}], "}"}], ",",
( t; Q& P2 o" @. z RowBox[{"{",
" V# x, u# `; f5 Z4 ? RowBox[{
+ y: p+ h/ N/ ^9 K% L RowBox[{"CM", "[",
5 c4 Q A! j: ` RowBox[{"12", ",", "1"}], "]"}], ",",
3 s% Y, S" S& X+ n& o' O RowBox[{"CM", "[", 1 A r5 X; J, e: ^8 A7 A
RowBox[{"12", ",", "2"}], "]"}], ",", - b. d* h/ ]* q0 I$ u+ |
RowBox[{"CM", "[",
. g) u* n, y5 ~" ~ RowBox[{"12", ",", "3"}], "]"}], ",", 9 x* b! { O p- e$ |4 [) n! r
RowBox[{"CM", "[",
1 G& ]) p0 d( Z2 X! a RowBox[{"12", ",", "4"}], "]"}], ",",
' n( S8 L+ g8 f+ M1 ` RowBox[{"CM", "[", + \& c T, r) j& y# Y2 W
RowBox[{"12", ",", "5"}], "]"}], ",", " @* g2 b7 N* a3 S
RowBox[{"CM", "[",
2 Q# G, y# N# r7 y( l" D- g. Q7 H RowBox[{"12", ",", "6"}], "]"}], ",",
' O3 F2 G# v( } RowBox[{"CM", "[", ; d3 Y( M6 H9 u/ f
RowBox[{"12", ",", "7"}], "]"}], ",",
+ {2 L' ?; j8 G0 g3 f2 A RowBox[{"CM", "[", # Q+ A4 W% C) r" ]
RowBox[{"12", ",", "8"}], "]"}], ",",
$ w$ B5 g( r4 f RowBox[{"CM", "[", ' K" n- H+ a9 V h9 W/ W0 Y* B: ?" n: a
RowBox[{"12", ",", "9"}], "]"}]}], "}"}], ",",
4 ^8 l% P1 Y! V8 o RowBox[{"{", 5 p O% w/ w+ s- I
RowBox[{. ?+ F7 W4 R* [) p: B* r% ]2 ~
RowBox[{"CM", "[",
1 w, [ x7 U+ `( T' t5 c RowBox[{"13", ",", "1"}], "]"}], ",",
% U* z; o) E& V5 H RowBox[{"CM", "[",
% l. k$ z0 X, t G RowBox[{"13", ",", "2"}], "]"}], ",", : ^* Y P* B$ `
RowBox[{"CM", "[", % n6 h Q7 o1 L$ c+ c
RowBox[{"13", ",", "3"}], "]"}], ",",
! T; U: |' w$ f3 J4 C7 Q RowBox[{"CM", "[",
4 \8 z( H/ b& o* w: q* D RowBox[{"13", ",", "4"}], "]"}], ",",
( N! {, T' K& P4 `+ Z, ^0 O2 b& u RowBox[{"CM", "[",
+ q& ~3 F% n& E$ Q% ` RowBox[{"13", ",", "5"}], "]"}], ",",
6 T$ }- T6 J! ^1 a7 i) k RowBox[{"CM", "[", 3 I7 z) M, o. N6 Y- N2 Q
RowBox[{"13", ",", "6"}], "]"}], ",", % O. N, X6 U- v. N$ m
RowBox[{"CM", "[", 1 y5 A' {; ]$ V" ]9 L
RowBox[{"13", ",", "7"}], "]"}], ",",
5 B5 O* B4 ^2 @& [ RowBox[{"CM", "[",
8 S& ~, B# e3 \. n/ P RowBox[{"13", ",", "8"}], "]"}], ",", 2 ~( v, Y! m) L, S% }( A G; {7 r. l
RowBox[{"CM", "[", 1 S+ D/ [0 ?3 B5 P/ j" K& j: D
RowBox[{"13", ",", "9"}], "]"}]}], "}"}], ",",
/ u( s1 L- F, S# J/ r. |+ v" J( ^7 W RowBox[{"{",
+ |# y) t9 Q! x8 M% O RowBox[{. A) A+ R3 K \ r
RowBox[{"CM", "[", # e# [8 U6 L. f* H6 m5 ?
RowBox[{"14", ",", "1"}], "]"}], ",",
& B( ?8 {) {% ~- g+ o3 I3 x RowBox[{"CM", "[",
3 g$ F8 c# j) q2 Z5 U7 `0 }+ D7 @ RowBox[{"14", ",", "2"}], "]"}], ",", , Z* y! f0 K w3 @# I$ ?) n# b1 S- j
RowBox[{"CM", "[", 3 l1 |+ C5 O* S+ L5 Q; z* E
RowBox[{"14", ",", "3"}], "]"}], ",", 4 A4 {' }, c' k, I# J, i6 P+ Q' h
RowBox[{"CM", "[", ( x8 }# c; i+ q
RowBox[{"14", ",", "4"}], "]"}], ",",
4 w1 s1 B- @( x& E0 Z RowBox[{"CM", "[", 8 O1 d8 u- `9 k8 m, ?' D
RowBox[{"14", ",", "5"}], "]"}], ",", 1 h# {$ \6 q9 P: p: \* w; p. ]- m
RowBox[{"CM", "[",
0 _$ s; I& C0 [# y) h, A* h RowBox[{"14", ",", "6"}], "]"}], ",",
5 ^, B( F6 L/ F+ K' D RowBox[{"CM", "[", ; F" Y! ^* p; M3 `1 i+ x$ n
RowBox[{"14", ",", "7"}], "]"}], ",",
: @! u$ y' H/ ?7 Q4 }- ?% q" v RowBox[{"CM", "[", & ^$ d2 U: z- Z/ t+ a
RowBox[{"14", ",", "8"}], "]"}], ",", ) S& B) J( I; F9 J7 E
RowBox[{"CM", "[", ) h6 a% ~" D3 e3 S) U" i
RowBox[{"14", ",", "9"}], "]"}]}], "}"}], ",",
9 b0 J1 ?9 `7 e" V# k% t" w+ a RowBox[{"{", ' N2 `+ } T" f \
RowBox[{
9 ~. }" `5 }/ o RowBox[{"CM", "[", 0 i" l/ r* y$ k# [! }' O
RowBox[{"15", ",", "1"}], "]"}], ",", , a+ Z( R! D8 v4 m
RowBox[{"CM", "[",
8 }, ^0 b; B) P9 o Y5 z RowBox[{"15", ",", "2"}], "]"}], ",",
$ X" d$ k$ M1 ?# \& U RowBox[{"CM", "[",
' u9 h% S6 U. [- _$ J RowBox[{"15", ",", "3"}], "]"}], ",", ) E# m. T; K7 I4 {
RowBox[{"CM", "[",
6 s, Z5 k: w2 F. Q0 l RowBox[{"15", ",", "4"}], "]"}], ",",
! r9 ^& ~6 ~6 o% H% i" X. U RowBox[{"CM", "[",
7 a: @+ r; B: C4 t' h RowBox[{"15", ",", "5"}], "]"}], ",",
: b* U A `; [$ \ RowBox[{"CM", "[", 9 _; [ R, w- ~5 R r2 O' \ b# O
RowBox[{"15", ",", "6"}], "]"}], ",",
# \& z+ X* \/ P% N$ B+ _+ T) Y' u RowBox[{"CM", "[", 8 \, ^+ z4 y" A( ?
RowBox[{"15", ",", "7"}], "]"}], ",",
# L/ {) z* g4 |" |1 H RowBox[{"CM", "[", * f. v1 B) `. R7 T
RowBox[{"15", ",", "8"}], "]"}], ",",
7 g+ I7 r8 v0 [4 t9 F RowBox[{"CM", "[",
' P/ Z0 X" Z0 t- c9 t7 S5 I$ a RowBox[{"15", ",", "9"}], "]"}]}], "}"}], ",",
& D% Z l# d) w' V RowBox[{"{", + F& P+ H, G* J& \ ]) x/ X
RowBox[{6 ~6 E- Y) u0 [1 z( r/ B6 ]
RowBox[{"CM", "[", " O. N" N e5 q( x$ O
RowBox[{"16", ",", "1"}], "]"}], ",", 4 \* m: A+ k9 ]
RowBox[{"CM", "[",
1 P* }7 }1 i* O; _ RowBox[{"16", ",", "2"}], "]"}], ",", 9 {5 m% ? N5 `( \
RowBox[{"CM", "[",
2 Z5 x- C) ^0 a* H7 i1 `1 t7 o RowBox[{"16", ",", "3"}], "]"}], ",",
- ^0 c6 n! \- g. Y, G" } RowBox[{"CM", "[",
+ ^( ?! k# F, n/ T. l RowBox[{"16", ",", "4"}], "]"}], ",", ! ^* X8 E' q: S% E. F$ |! A
RowBox[{"CM", "[", * E& a) P6 t4 Q$ y) o( w4 ?$ a
RowBox[{"16", ",", "5"}], "]"}], ",", ]7 N0 \' `: _
RowBox[{"CM", "[",
5 K" D; `0 b' _" m9 z9 k, s# e RowBox[{"16", ",", "6"}], "]"}], ",", ) V: F" y3 g. ?$ A3 s7 I- M6 t
RowBox[{"CM", "[", : s; \& }$ Q! c7 U
RowBox[{"16", ",", "7"}], "]"}], ",",
. F \7 ~( G) S RowBox[{"CM", "[",
. k) V' y$ H" q2 d2 K2 e. ~6 D$ A RowBox[{"16", ",", "8"}], "]"}], ",", & Y$ Z4 u7 h' b- M: J% N
RowBox[{"CM", "[",
$ R9 g1 q) P- ]8 ~ RowBox[{"16", ",", "9"}], "]"}]}], "}"}], ",",
, a! s# s# R' N, @ RowBox[{"{", 8 J b' j' J2 a- k+ P# m
RowBox[{. i1 l1 r" V! n9 u. \
RowBox[{"CM", "[",
8 V# B; i" r$ v# | RowBox[{"17", ",", "1"}], "]"}], ",", $ D+ S! h8 ]9 q/ _
RowBox[{"CM", "[", 2 S8 J9 m$ ^* E1 E; F9 R7 H
RowBox[{"17", ",", "2"}], "]"}], ",", 4 p0 v, y, ?4 j0 l+ ^& ]. j
RowBox[{"CM", "[", ) I$ |( H, b1 l
RowBox[{"17", ",", "3"}], "]"}], ",",
7 p- f( k. `( P RowBox[{"CM", "[", & v" e: G u$ M; d0 p Y9 ?
RowBox[{"17", ",", "4"}], "]"}], ",",
+ i5 r. i: M* N- k1 \1 j+ x RowBox[{"CM", "[",
3 A+ g: I% t/ U2 e5 J7 f RowBox[{"17", ",", "5"}], "]"}], ",",
, t' W) M6 |1 j; f' i/ n# B RowBox[{"CM", "[",
$ O, O3 m( b$ E1 [9 ?" n6 I RowBox[{"17", ",", "6"}], "]"}], ",",
6 u6 m* ~2 g! p RowBox[{"CM", "[",
. O% L! k! k: N+ A6 ^: f, H" k RowBox[{"17", ",", "7"}], "]"}], ",",
3 G3 Y9 C- ^3 X2 [- x9 H, M RowBox[{"CM", "[",
2 _% n( p8 b, B0 e. {2 z RowBox[{"17", ",", "8"}], "]"}], ",", 8 @# i" P0 s: i; m
RowBox[{"CM", "[",
( U8 X2 k) O$ j RowBox[{"17", ",", "9"}], "]"}]}], "}"}], ",",
, o) i, M' d) n( z5 ]6 j RowBox[{"{", - `1 @, k) c. t/ O- Z5 \
RowBox[{# U' v& k$ J" d
RowBox[{"CM", "[", 9 e/ A3 {/ H/ i# ], Q% e3 f
RowBox[{"18", ",", "1"}], "]"}], ",", 0 \% [9 ?; f, F% Q' T
RowBox[{"CM", "[", 4 Y, G8 c& N8 q% A5 K
RowBox[{"18", ",", "2"}], "]"}], ",",
$ Z5 K1 |( a" C RowBox[{"CM", "[",
) @8 L8 ?8 K k: h& D4 x RowBox[{"18", ",", "3"}], "]"}], ",",
% z5 V, v4 A& H4 P+ d6 H6 N, @ RowBox[{"CM", "[", 6 O& O" j4 P4 {9 s
RowBox[{"18", ",", "4"}], "]"}], ",",
; e4 Q @6 r1 Y( y5 ?2 _( G RowBox[{"CM", "[", 9 y) K8 r- I) O" N7 y
RowBox[{"18", ",", "5"}], "]"}], ",",
) X2 k4 L( Y+ t9 x- R RowBox[{"CM", "[", 5 }$ K; R% f. f: Y d5 f
RowBox[{"18", ",", "6"}], "]"}], ",",
* a% v( ]: F' g5 O5 N" r- x% l RowBox[{"CM", "[", K; e7 @' S @2 r5 q% z/ Z+ l8 c
RowBox[{"18", ",", "7"}], "]"}], ",",
! G0 Q+ d3 m; l9 @ RowBox[{"CM", "[",
. V, I* s) D3 i1 M2 y4 d RowBox[{"18", ",", "8"}], "]"}], ",", " Y' @9 E/ V* g- a
RowBox[{"CM", "[",
: L" m: _3 t7 P4 I RowBox[{"18", ",", "9"}], "]"}]}], "}"}], ",",
& q7 W& {' X0 d RowBox[{"{", 4 Q" n$ m, p: `: X0 x
RowBox[{' {5 p/ r" k! w" Q
RowBox[{"CM", "[",
& p+ u) b+ P' y RowBox[{"19", ",", "1"}], "]"}], ",", , M. `) p$ Z8 P& [
RowBox[{"CM", "[", 6 [- N) c$ ~2 u0 ?
RowBox[{"19", ",", "2"}], "]"}], ",", / V) V6 i! ^! G! B. s4 w
RowBox[{"CM", "[", 2 F |2 c, P% y6 `
RowBox[{"19", ",", "3"}], "]"}], ",", $ [6 T& r" Y* V1 K' S0 ~
RowBox[{"CM", "[", 4 K3 r8 f" O3 G; l. B; c
RowBox[{"19", ",", "4"}], "]"}], ",", # G! I/ R* K9 W7 E# o0 K, k
RowBox[{"CM", "[", 4 l8 r% m( d8 k2 W4 M$ M
RowBox[{"19", ",", "5"}], "]"}], ",",
' D' |( f% s z) j RowBox[{"CM", "[",
' ]) P) v0 ]. n( V5 r RowBox[{"19", ",", "6"}], "]"}], ",",
' E9 U3 m6 i+ A. |! ?+ M RowBox[{"CM", "[",
, m; b4 v E( R RowBox[{"19", ",", "7"}], "]"}], ",",
4 ~ v" V- |/ t# H% F. | RowBox[{"CM", "[",
, m, _# b; E3 f( p$ ^* L RowBox[{"19", ",", "8"}], "]"}], ",",
( ~, b' g. m' l( O RowBox[{"CM", "[",
( \* \' |- J) q F7 L RowBox[{"19", ",", "9"}], "]"}]}], "}"}], ",",
1 q" t, ?, @3 f" F S" [' w RowBox[{"{",
0 s1 n. n) T5 F0 ^7 M: ? RowBox[{* `' W4 ?3 a- m" f" A
RowBox[{"CM", "[", ) \1 K7 B6 g& w1 x [- ^' u
RowBox[{"20", ",", "1"}], "]"}], ",", 9 H# N7 N6 E E; J& l. w5 B
RowBox[{"CM", "[", ( b/ C, Y! c% k' ?1 M' y; {9 ^& ?
RowBox[{"20", ",", "2"}], "]"}], ",",
/ O7 O6 x4 [- k RowBox[{"CM", "[", . I6 |( W; E5 z/ g9 g( C
RowBox[{"20", ",", "3"}], "]"}], ",", ) K* E$ r1 W+ x
RowBox[{"CM", "[", 0 _# h" ^$ m5 {% T
RowBox[{"20", ",", "4"}], "]"}], ",", 3 r$ D4 ^- o& ]4 O0 N# o
RowBox[{"CM", "[",
1 h: w- ?3 E+ p3 J& e3 Q( w7 z' t RowBox[{"20", ",", "5"}], "]"}], ",", & B. e0 M# I; k
RowBox[{"CM", "[",
6 C8 E6 B6 X7 E) d RowBox[{"20", ",", "6"}], "]"}], ",", & Y- U( P1 ]7 O+ |
RowBox[{"CM", "[",
! t) c0 x0 m5 E$ M. F+ @6 c RowBox[{"20", ",", "7"}], "]"}], ",",
; w3 z( k" E8 t6 R. ~& t RowBox[{"CM", "[", & S5 \( k. f) G# [
RowBox[{"20", ",", "8"}], "]"}], ",",
& N' Y8 B8 G& ?6 p) K$ O' N RowBox[{"CM", "[", 1 ^) U- [% d( _0 N: l; m+ o3 Q
RowBox[{"20", ",", "9"}], "]"}]}], "}"}], ",",
. `& V; e# e7 a, ^4 a RowBox[{"{",
5 C) b# L: S0 y# |6 ? RowBox[{! }7 d$ k. \/ ?# S
RowBox[{"CM", "[", ) P% L( R* b0 t
RowBox[{"21", ",", "1"}], "]"}], ",",
" p N: N9 s2 E( X RowBox[{"CM", "[", : |5 G, z7 I$ d; R+ f- X/ @* Q" T
RowBox[{"21", ",", "2"}], "]"}], ",", 8 M+ f( ^6 n0 h$ g% E
RowBox[{"CM", "[", % u* N+ F( ^1 h G! ?3 B `
RowBox[{"21", ",", "3"}], "]"}], ",",
0 a0 ~( ?* x3 _+ b, P3 O+ q' J RowBox[{"CM", "[",
7 @- h! y6 s$ r& H RowBox[{"21", ",", "4"}], "]"}], ",",
" I' [: W3 r6 P* m RowBox[{"CM", "[", + f3 W/ O5 R+ M y! p, r0 e1 }
RowBox[{"21", ",", "5"}], "]"}], ",",
. K& p \! m1 S1 S8 L3 I/ ~ RowBox[{"CM", "[", + z0 f$ H3 d. V: N$ X
RowBox[{"21", ",", "6"}], "]"}], ",",
1 n# r$ f* q; i# ~' [3 L% P& p9 y RowBox[{"CM", "[",
& d2 S7 [# K J8 p9 q/ W RowBox[{"21", ",", "7"}], "]"}], ",", " n$ S& d3 V! n' N/ l
RowBox[{"CM", "[", 6 K* w9 ~% S0 u& C, T
RowBox[{"21", ",", "8"}], "]"}], ",", $ B o) K0 I. C: P# x% k
RowBox[{"CM", "[",
$ i; P4 t6 X) `" W3 p* z: r! O* n RowBox[{"21", ",", "9"}], "]"}]}], "}"}], ",",
6 l I- Z+ k3 e7 T8 _; q) f" g RowBox[{"{", # i7 G- c1 P# R" j. p- p5 y4 ]6 z8 O
RowBox[{6 i4 O8 C- c4 l2 x1 w
RowBox[{"CM", "[", ; v3 M* T8 l+ A% ^
RowBox[{"22", ",", "1"}], "]"}], ",",
8 M; v+ t- ^) o6 `, q6 j3 v RowBox[{"CM", "[",
9 Y2 j, \: J9 y& G RowBox[{"22", ",", "2"}], "]"}], ",", 9 |" F P* t, D9 ]
RowBox[{"CM", "[",
3 P a0 K7 `2 o8 R2 B RowBox[{"22", ",", "3"}], "]"}], ",",
3 U0 A3 D, X; D# J) K, `; V4 C RowBox[{"CM", "[",
2 e! g7 v1 H6 \3 W% l- ] RowBox[{"22", ",", "4"}], "]"}], ",", ) `) z$ E5 ]$ c% J# u3 G$ }% M
RowBox[{"CM", "[", , R# J# ?. D" k+ t0 L6 D
RowBox[{"22", ",", "5"}], "]"}], ",",
7 a, \+ m7 i. Z RowBox[{"CM", "[", ' G. F( y, x# q5 u: J/ s8 y
RowBox[{"22", ",", "6"}], "]"}], ",",
; g% m5 ?8 G) Q# i, ^% L RowBox[{"CM", "[", l4 `, m, v; _3 f" C) H
RowBox[{"22", ",", "7"}], "]"}], ",",
1 U. l0 y6 w9 U6 \: L/ H9 Y RowBox[{"CM", "[", 3 `" V! a F- E
RowBox[{"22", ",", "8"}], "]"}], ",",
) U3 V) u m5 M0 d* g$ L RowBox[{"CM", "[",
6 R+ b: }. }* I" z8 s- b RowBox[{"22", ",", "9"}], "]"}]}], "}"}], ",",
1 S! E$ ?" Q# S6 d' n4 B+ l* h RowBox[{"{", j1 _( o0 Z- o) h- Z
RowBox[{/ E) d; J5 h! i+ v! l
RowBox[{"CM", "[",
9 Z- d' M$ X8 F8 n: x. ] RowBox[{"23", ",", "1"}], "]"}], ",", " s' t# d0 A; ?: n5 p) J
RowBox[{"CM", "[",
" a0 P# u1 [) |" }% P RowBox[{"23", ",", "2"}], "]"}], ",", " x/ O; R* n" Z% X$ r
RowBox[{"CM", "[", . ?8 r$ u! @8 f
RowBox[{"23", ",", "3"}], "]"}], ",",
3 [: O5 U4 z( z9 Z! K RowBox[{"CM", "[",
& m5 x# t8 M7 U+ ?1 D RowBox[{"23", ",", "4"}], "]"}], ",", : g% @ @! j d) P( ?" V2 o5 x
RowBox[{"CM", "[",
( ?* X3 j1 k1 V9 U3 y6 p& L% M0 N RowBox[{"23", ",", "5"}], "]"}], ",",
) c8 j; k9 J. v! h$ S! ^1 { RowBox[{"CM", "[",
3 i% K+ h6 x" d RowBox[{"23", ",", "6"}], "]"}], ",",
" T5 k0 s* l7 D( ] RowBox[{"CM", "[", 9 M0 [% M" l- h7 v" C
RowBox[{"23", ",", "7"}], "]"}], ",",
0 J' ?/ [1 c. y RowBox[{"CM", "[", " v7 o: q/ M0 r9 q E) k# z
RowBox[{"23", ",", "8"}], "]"}], ",", / I0 J5 a% K/ a5 U+ S
RowBox[{"CM", "[",
7 D9 T3 F/ @$ h% i RowBox[{"23", ",", "9"}], "]"}]}], "}"}], ",",
! O" h0 w5 k7 ?7 _& C9 W3 h RowBox[{"{",
1 {; C( i4 a8 s0 S: x& H+ B RowBox[{
4 Q2 l% a$ ]3 E# } RowBox[{"CM", "[",
9 u) H2 O% R, f RowBox[{"24", ",", "1"}], "]"}], ",", ; k/ f2 I" M& w; h& K% [+ z$ k
RowBox[{"CM", "[",
; P( n# _- Q" F. m RowBox[{"24", ",", "2"}], "]"}], ",", 5 S0 M9 v- M" L8 |( m
RowBox[{"CM", "[",
2 _; L# \8 L6 l4 Z RowBox[{"24", ",", "3"}], "]"}], ",", , B- |' _. e% S/ Y% v- N( O
RowBox[{"CM", "[", 0 Z, F! v1 i7 `$ y
RowBox[{"24", ",", "4"}], "]"}], ",",
( p0 O; w( r0 g! |0 s RowBox[{"CM", "[",
/ ^6 m& C1 }7 O$ Z; D- O, ? RowBox[{"24", ",", "5"}], "]"}], ",", 7 `& D" g( o6 C6 {9 M0 [* f8 n
RowBox[{"CM", "[", $ H; U; G7 B+ O) [: D1 } ?
RowBox[{"24", ",", "6"}], "]"}], ",", k* {( O' q8 m; [4 Y
RowBox[{"CM", "[", . z* F, Z; k9 L( E
RowBox[{"24", ",", "7"}], "]"}], ",",
9 C; q y; \+ K! ?9 T) e* d RowBox[{"CM", "[", 7 }5 J$ F t2 j; H: w
RowBox[{"24", ",", "8"}], "]"}], ",", 7 r% _7 s9 e4 c9 d$ n |4 y! B
RowBox[{"CM", "[", , Y- Z" C+ ^* Q! x. d' S% ^
RowBox[{"24", ",", "9"}], "]"}]}], "}"}], ",",
* v+ ~% H; B# B+ N3 j8 m RowBox[{"{",
- L O( p( E0 G6 ] RowBox[{5 a2 h3 F: c, i) y1 U/ _9 O) `
RowBox[{"CM", "[",
0 h) u$ \8 Z5 K1 g RowBox[{"25", ",", "1"}], "]"}], ",", 2 E8 _2 l- w+ J- L# e, G8 K
RowBox[{"CM", "[", / t0 s6 s0 r2 R3 M, J) w3 D
RowBox[{"25", ",", "2"}], "]"}], ",", ; c' p- d& ?+ H& }
RowBox[{"CM", "[",
( U- Y: }# n: A q, C/ C RowBox[{"25", ",", "3"}], "]"}], ",", & x& r* p3 E- Z _
RowBox[{"CM", "[", & m3 Y7 S9 C% W% s3 E3 x2 F& T) a
RowBox[{"25", ",", "4"}], "]"}], ",", $ R: z& D0 E* U3 T' }
RowBox[{"CM", "[",
: l, Q0 p; t! d C2 f8 N5 y RowBox[{"25", ",", "5"}], "]"}], ",", 3 [+ {- l0 |: L: `8 \
RowBox[{"CM", "[", 4 _$ A2 [% Y) n; b6 h1 y3 L
RowBox[{"25", ",", "6"}], "]"}], ",",
\ y" _3 ^% g7 O" x+ o* | RowBox[{"CM", "[", ' f' e' F1 L4 g
RowBox[{"25", ",", "7"}], "]"}], ",",
3 { O) a7 |8 t+ }/ `5 ? RowBox[{"CM", "[", $ Q5 s" |- K: G \& Q
RowBox[{"25", ",", "8"}], "]"}], ",",
9 i2 ?8 e1 q" A$ o RowBox[{"CM", "[",
$ X7 i; i7 S- z/ t$ P$ [2 \ RowBox[{"25", ",", "9"}], "]"}]}], "}"}], ",", 7 M, g# U8 z4 ?
RowBox[{"{", ! p* v1 _$ e( v8 s
RowBox[{6 N7 g: b/ A/ M; {% l
RowBox[{"CM", "[", : E1 G1 h# `# V
RowBox[{"26", ",", "1"}], "]"}], ",",
+ n; g6 B- T5 B$ d% d RowBox[{"CM", "[", . J/ U; E: L3 J( T; V" i, ]
RowBox[{"26", ",", "2"}], "]"}], ",",
% m% s, O9 G4 i% Y! `2 w3 } RowBox[{"CM", "[", ! J5 P( I1 j# c, ^, Q
RowBox[{"26", ",", "3"}], "]"}], ",",
( ?. W2 p, C* d, ]6 w( D, ~ RowBox[{"CM", "[", . w6 ]; E+ [5 A% \1 t- s4 i
RowBox[{"26", ",", "4"}], "]"}], ",",
; C9 ~( z: v& f k2 L' ~ RowBox[{"CM", "[",
9 S; `4 [0 h1 h: ^& [ RowBox[{"26", ",", "5"}], "]"}], ",",
. n% U$ n( s3 |* _: a& A RowBox[{"CM", "[",
$ M) R3 |! K6 C2 E) ]! b RowBox[{"26", ",", "6"}], "]"}], ",", l4 |( H: Z$ D4 F' O" Q
RowBox[{"CM", "[", 3 R7 U) T0 w! h5 r8 d
RowBox[{"26", ",", "7"}], "]"}], ",",
3 Y! v6 J" O9 [9 a7 y1 e RowBox[{"CM", "[",
9 Z, Y1 K: A" a' k, n0 D RowBox[{"26", ",", "8"}], "]"}], ",", 4 p1 d) t2 R4 c: D5 I
RowBox[{"CM", "[",
* u6 b% e1 ^$ j% o( K U" c RowBox[{"26", ",", "9"}], "]"}]}], "}"}], ",", 1 E* W: O9 }% u
RowBox[{"{",
& f0 H! B0 \, u$ _, T RowBox[{
0 S& y" t/ [4 v5 e" {' c2 _ RowBox[{"CM", "[",
6 f( }; g) e( G2 R RowBox[{"27", ",", "1"}], "]"}], ",", 3 u: J# T$ I) p& [! @) j# a
RowBox[{"CM", "[", + J2 g0 o9 M. T" _
RowBox[{"27", ",", "2"}], "]"}], ",", 6 S* L" y0 ~; X& }7 Y, H
RowBox[{"CM", "[",
2 w I' [( H% i( m RowBox[{"27", ",", "3"}], "]"}], ",",
: p( b. S8 Z8 n6 ? RowBox[{"CM", "[",
0 f$ I. |+ G0 H( |) M, H RowBox[{"27", ",", "4"}], "]"}], ",", - A$ b% [; f$ m. y2 c0 Q3 p" A
RowBox[{"CM", "[",
7 h' i2 N& M8 }0 T5 ^ RowBox[{"27", ",", "5"}], "]"}], ",", 1 Y' x' y* x( M" C
RowBox[{"CM", "[", 8 {/ a; }% l5 i: ^! v9 L
RowBox[{"27", ",", "6"}], "]"}], ",",
5 N3 l& E8 H( I1 N, w RowBox[{"CM", "[",
7 S `) V; |5 W) q" l0 j1 m RowBox[{"27", ",", "7"}], "]"}], ",",
; R3 Y- {* ?0 T RowBox[{"CM", "[",
' r0 t6 ^8 o5 b5 ^& O RowBox[{"27", ",", "8"}], "]"}], ",", . w1 U5 ~- Q1 Z# o6 Q) x' E
RowBox[{"CM", "[", / b7 W( u: a' \0 `" J* U1 t
RowBox[{"27", ",", "9"}], "]"}]}], "}"}], ",", : W: u$ K$ J. ^' E1 U
RowBox[{"{", + F* }2 E' S- q( F5 Z' D7 J
RowBox[{
& n. H+ P4 r) R" W RowBox[{"CM", "[", , R; W! x# T$ ]% q4 F. ?
RowBox[{"28", ",", "1"}], "]"}], ",", ! B. R. o0 w* o/ f' t6 r- L7 V7 j, f
RowBox[{"CM", "[",
, v3 I* U: ~ O2 q8 K9 g( H RowBox[{"28", ",", "2"}], "]"}], ",",
+ ] S$ S* n3 \, K7 S5 ] RowBox[{"CM", "[", . \- B2 i8 I ~# ?' d& `
RowBox[{"28", ",", "3"}], "]"}], ",",
* ^3 S% M+ ~" r! V$ t: [ RowBox[{"CM", "[", ' S+ h& h. o j3 V% O% X
RowBox[{"28", ",", "4"}], "]"}], ",", 1 j9 _0 ?, K2 S3 Y! g$ P. Y
RowBox[{"CM", "[",
5 ]# }1 d/ e: S8 ^: p1 t RowBox[{"28", ",", "5"}], "]"}], ",",
, ^; L+ ?3 j3 `; g: p RowBox[{"CM", "[",
& d% Z. C2 X" V7 W+ X$ [ RowBox[{"28", ",", "6"}], "]"}], ",",
% Z# y* X5 W& g6 G4 i& E$ s RowBox[{"CM", "[", 3 W1 }7 [3 |* p% w+ R* S/ X
RowBox[{"28", ",", "7"}], "]"}], ",", & N7 U+ D4 P+ D% W
RowBox[{"CM", "[",
* Z6 r8 c5 m1 u) d RowBox[{"28", ",", "8"}], "]"}], ",",
) c' V! v4 L n9 g. G& w) J" u RowBox[{"CM", "[",
( O* A; b, y; W. K+ K RowBox[{"28", ",", "9"}], "]"}]}], "}"}], ",",
# s6 r' A) S$ Y" k7 c/ U RowBox[{"{",
! O8 m( T3 [+ u RowBox[{
8 n2 e! k5 d% O7 N0 H% S3 j, j RowBox[{"CM", "[",
' H5 K8 T; u: F9 I RowBox[{"29", ",", "1"}], "]"}], ",", ; D" }! a! A2 p2 H& f
RowBox[{"CM", "[",
, n$ u- j6 M! y6 I+ L3 [2 L: g7 | RowBox[{"29", ",", "2"}], "]"}], ",",
! k0 o! P9 z8 e* w RowBox[{"CM", "[",
# K8 |" V& @. I5 J RowBox[{"29", ",", "3"}], "]"}], ",", 3 G: W& ]( p4 X% l" c# S# p# G
RowBox[{"CM", "[", ; u ], Y9 j) D/ B3 |2 y
RowBox[{"29", ",", "4"}], "]"}], ",", 1 Z6 c; n# {6 W. ?, v
RowBox[{"CM", "[", ; B4 D2 B, ^$ \' U5 E/ b4 ]! T
RowBox[{"29", ",", "5"}], "]"}], ",", 4 _' u! g+ P) I6 M6 T5 m
RowBox[{"CM", "[", 4 u8 }9 x- p0 e1 i$ c" p
RowBox[{"29", ",", "6"}], "]"}], ",",
! P: C; R+ [! U& }1 v6 |# C5 P RowBox[{"CM", "[", 2 G, p1 }. @" ]1 F) T) q
RowBox[{"29", ",", "7"}], "]"}], ",", ; x' g5 F( M8 l
RowBox[{"CM", "[", - Q ?. f* B) G G
RowBox[{"29", ",", "8"}], "]"}], ",",
1 \/ E4 s2 E! R4 E" e$ r1 j RowBox[{"CM", "[", % Q# e% D, H% {$ }5 \$ ~
RowBox[{"29", ",", "9"}], "]"}]}], "}"}], ",",
7 L, c* V; k0 `' M( ?3 z RowBox[{"{", " Y- Z4 H0 h9 m, h. v, C
RowBox[{, }1 m4 ]+ |7 S9 ^ [, m0 P, O! \
RowBox[{"CM", "[",
9 ?* U D; L1 s) f RowBox[{"30", ",", "1"}], "]"}], ",",
& O+ j, Q, z( s0 X- F/ B. U* Z RowBox[{"CM", "[",
$ _. s7 [8 N N- }' k4 C4 V RowBox[{"30", ",", "2"}], "]"}], ",",
6 E o: e0 d8 z0 H0 G RowBox[{"CM", "[", % }- i* L" \' f( V
RowBox[{"30", ",", "3"}], "]"}], ",",
, |0 ?/ _( N! m RowBox[{"CM", "[", 0 ]4 [' a2 i7 L" e/ R
RowBox[{"30", ",", "4"}], "]"}], ",",
3 } X$ R* `. R$ I RowBox[{"CM", "[",
( L z. \4 N' o2 @1 [% t9 z RowBox[{"30", ",", "5"}], "]"}], ",",
4 `( Z! Q* z3 K: N RowBox[{"CM", "[",
! }6 ~) G+ k6 D0 g2 G. s RowBox[{"30", ",", "6"}], "]"}], ",",
/ }; i3 q6 W f5 n* V2 ~6 t RowBox[{"CM", "[",
1 |1 O2 s2 J# c+ D. M RowBox[{"30", ",", "7"}], "]"}], ",", , g4 {0 D# j( W" l( I
RowBox[{"CM", "[",
: Z, ^1 k6 E8 ~* L5 H) |( F RowBox[{"30", ",", "8"}], "]"}], ",",
. r5 N9 b8 l$ d7 F. u RowBox[{"CM", "[",
; I+ c8 z6 B$ [% l) ^5 x1 |' O; s RowBox[{"30", ",", "9"}], "]"}]}], "}"}], ",",
6 F; X& h3 q. |6 D& A# S& l- y2 C- Q RowBox[{"{",
7 ^" _! C' ^- G' @4 F RowBox[{# k9 D1 M; S: p3 C* e1 z6 l
RowBox[{"CM", "[", 2 L) s# Q! w) A
RowBox[{"31", ",", "1"}], "]"}], ",", C' w- v, A. p3 h
RowBox[{"CM", "[", % W6 J: V6 f1 @& }7 g
RowBox[{"31", ",", "2"}], "]"}], ",",
: I. e; i" X. j3 S- ? RowBox[{"CM", "[", , @; |5 Y& z+ X, l. b" I
RowBox[{"31", ",", "3"}], "]"}], ",",
8 M) f% i) \3 m8 y& L7 b* Z RowBox[{"CM", "[",
) l6 H* ^$ E% G5 u3 A RowBox[{"31", ",", "4"}], "]"}], ",",
4 w" [2 s+ w. F3 c' m: T* o3 p! g3 K RowBox[{"CM", "[",
$ f, m4 j8 | S! S( S RowBox[{"31", ",", "5"}], "]"}], ",",
/ s6 M$ {+ y. }& I- S RowBox[{"CM", "[", 4 g2 Y; C$ M# w, @9 ?" M
RowBox[{"31", ",", "6"}], "]"}], ",", {" X/ a* l3 X. e
RowBox[{"CM", "[", , ? ^' J# ~0 L* f% E
RowBox[{"31", ",", "7"}], "]"}], ",",
" g1 T& d. _; |; \6 r" \ RowBox[{"CM", "[",
' M* Y( p/ l& i( d @& e/ G RowBox[{"31", ",", "8"}], "]"}], ",",
$ u$ l- U' C( n5 P0 Q9 h RowBox[{"CM", "[",
$ G" P8 g/ B4 {4 D, K3 M" Q RowBox[{"31", ",", "9"}], "]"}]}], "}"}], ",",
2 j6 N- `, \2 P" u$ I RowBox[{"{", ' S: R( H& B: I8 V8 P
RowBox[{7 {8 d9 Y, W: w: r% Y" `( J' p
RowBox[{"CM", "[", 3 L/ t$ `6 Y5 ]+ X* C
RowBox[{"32", ",", "1"}], "]"}], ",", ) P3 \( z1 f8 t
RowBox[{"CM", "[",
; I2 Y- C* T( a" k3 q: {0 ^ RowBox[{"32", ",", "2"}], "]"}], ",", ) L6 _: ]" I+ X5 p4 i$ G
RowBox[{"CM", "[",
! m' g( M6 T$ @$ z5 L4 ?, _$ m& L% T RowBox[{"32", ",", "3"}], "]"}], ",",
2 W3 T( n3 m& y% M RowBox[{"CM", "[",
) R# X( N$ d/ T6 D5 S3 \; @* a RowBox[{"32", ",", "4"}], "]"}], ",",
4 h% Z9 y- M/ H% s0 E. { RowBox[{"CM", "[", ; a& |. n; o& f" d
RowBox[{"32", ",", "5"}], "]"}], ",",
s8 e8 L# M4 x7 n- O Y/ \& \ RowBox[{"CM", "[",
2 I2 M! x) V6 b RowBox[{"32", ",", "6"}], "]"}], ",", % M4 l1 p' a* V& J) U! F X; u2 M
RowBox[{"CM", "[",
- p5 C* D% B1 ~* {9 f6 B9 | RowBox[{"32", ",", "7"}], "]"}], ",",
. E! B( ?: r) R ~& W RowBox[{"CM", "[",
! Y2 c3 D* N2 d. B& I! K; E% A( E RowBox[{"32", ",", "8"}], "]"}], ",",
8 ~2 A) o2 T+ U RowBox[{"CM", "[", ( N! t0 b8 E1 t
RowBox[{"32", ",", "9"}], "]"}]}], "}"}], ",",
0 X: a1 j7 N. j# ] RowBox[{"{", , |8 P' h/ F I2 `9 P e+ [
RowBox[{5 y' _$ h7 `4 _4 `
RowBox[{"CM", "[",
, {& |) c E- d/ { RowBox[{"33", ",", "1"}], "]"}], ",",
7 y; q8 A# {8 i6 k, _1 U- q RowBox[{"CM", "[", * M+ ` r0 `0 y+ p6 A; y
RowBox[{"33", ",", "2"}], "]"}], ",",
2 |* R. A `; B RowBox[{"CM", "[",
! b1 J- m6 w! z3 J R; a RowBox[{"33", ",", "3"}], "]"}], ",", 8 [3 c' h6 l8 T3 Q$ u( z
RowBox[{"CM", "[",
. Q6 C3 s4 A/ V% R9 z RowBox[{"33", ",", "4"}], "]"}], ",", 8 d* d- |6 q8 p" @
RowBox[{"CM", "[", & z8 p0 S' h7 l; K9 o. X
RowBox[{"33", ",", "5"}], "]"}], ",",
- g2 e; ]* _" r/ g* P* e9 ? RowBox[{"CM", "[",
( F# b; ]7 e8 r! U! M5 ? RowBox[{"33", ",", "6"}], "]"}], ",", 4 o% _7 t2 u, u7 G+ x$ ^
RowBox[{"CM", "[", U4 F! n- i+ v; q
RowBox[{"33", ",", "7"}], "]"}], ",", # J. e) b7 c7 Z1 a) F# t9 v
RowBox[{"CM", "[",
; O! a. D% J3 S8 C/ x& u7 M RowBox[{"33", ",", "8"}], "]"}], ",", 7 `- ?# ?1 o0 K5 I! C0 O7 ~; R1 @
RowBox[{"CM", "[",
4 T" v2 X" Z7 @( r RowBox[{"33", ",", "9"}], "]"}]}], "}"}], ",", 5 e6 \& o( }; f8 z- R. j9 F
RowBox[{"{", " F# _# Y& I& ?, |/ [7 g0 k% K6 O
RowBox[{
4 F. {; e" H" L2 T r* z" d RowBox[{"CM", "[",
k8 ]% K) G4 t1 t F9 d3 ?4 [ RowBox[{"34", ",", "1"}], "]"}], ",",
5 U7 G u, F. C0 e* f& e" i2 S& n RowBox[{"CM", "[",
, n. A w* X! @, q9 {- C8 \ RowBox[{"34", ",", "2"}], "]"}], ",",
& L$ A* |1 c" v7 l# \& W# U5 t RowBox[{"CM", "[", 9 d5 C v# R( {9 ]5 F s( b
RowBox[{"34", ",", "3"}], "]"}], ",", 2 u% J# \0 z& f
RowBox[{"CM", "[", / P$ I4 h1 Y; u b+ ^) |$ a
RowBox[{"34", ",", "4"}], "]"}], ",",
0 E p8 s7 E) F7 S0 M, W3 }3 K3 b RowBox[{"CM", "[",
. U) Y) a' G n) n RowBox[{"34", ",", "5"}], "]"}], ",",
/ a. \, {: |0 ~3 s9 p RowBox[{"CM", "[", 3 I+ c' d- V3 U, {0 k/ w3 d
RowBox[{"34", ",", "6"}], "]"}], ",", - M% v8 q2 r( i. t. X) r
RowBox[{"CM", "[",
6 W8 ]; D5 d7 F" C5 A RowBox[{"34", ",", "7"}], "]"}], ",",
, A* L# a/ t6 Q4 C! f* U RowBox[{"CM", "[",
" e1 A+ y8 @/ d0 B RowBox[{"34", ",", "8"}], "]"}], ",", 6 e8 |1 J. q6 T3 r+ g% h
RowBox[{"CM", "[",
. `; l1 B" U$ ]3 s+ f/ G RowBox[{"34", ",", "9"}], "]"}]}], "}"}], ",", & q8 V5 {) M6 Y
RowBox[{"{", & ]; V4 l2 T+ P# A; z4 `: I
RowBox[{
7 x1 H4 R) W6 @/ B% o( ^ RowBox[{"CM", "[",
) \- N3 w; g! I RowBox[{"35", ",", "1"}], "]"}], ",", + \2 h8 l6 ]$ \9 G, s9 A+ C4 K
RowBox[{"CM", "[", / ?$ d+ F( L, n0 m1 r' t4 F2 L" o
RowBox[{"35", ",", "2"}], "]"}], ",", ; i# i, R) E) ^5 N
RowBox[{"CM", "[",
2 |! b7 [2 W) |% V2 [8 Q* [ RowBox[{"35", ",", "3"}], "]"}], ",", & O7 c! D/ M2 C/ x/ u' e, k
RowBox[{"CM", "[",
8 b7 P! W6 H# P" K# Z+ M RowBox[{"35", ",", "4"}], "]"}], ",", 5 j- N x: P0 K+ L% k- s
RowBox[{"CM", "[",
D6 ]+ q6 y/ u; u2 ~ RowBox[{"35", ",", "5"}], "]"}], ",",
3 T# [7 ]* Z) s H. B# |' G RowBox[{"CM", "[", 9 y7 ~, r. i ~; N" j9 c2 {: O
RowBox[{"35", ",", "6"}], "]"}], ",",
% r% z Q$ h1 L5 S RowBox[{"CM", "[",
. n( \& g+ u% o3 |& @$ Y; q RowBox[{"35", ",", "7"}], "]"}], ",", B A+ k/ U3 @! i* x1 ?3 Z
RowBox[{"CM", "[",
, M: T7 z1 E& [1 y. W& W: s6 C: b9 I RowBox[{"35", ",", "8"}], "]"}], ",",
+ C0 N8 _6 M0 g( ?: A2 g" A RowBox[{"CM", "[",
) S; ]* |* {0 Q. j/ R RowBox[{"35", ",", "9"}], "]"}]}], "}"}], ",",
" @; K0 L* ?( j! A! M RowBox[{"{",
$ K! y) ]' G3 t/ Y9 w; f' z RowBox[{5 |" u; W1 M- H6 p
RowBox[{"CM", "[", + H* H- z- _7 ~! F
RowBox[{"36", ",", "1"}], "]"}], ",",
9 R+ U/ R3 ^3 p1 w4 `0 _ RowBox[{"CM", "[", - [( I; {5 z7 @* m3 n* d
RowBox[{"36", ",", "2"}], "]"}], ",", 0 D, j4 U" t: r5 Z) L8 ~" \
RowBox[{"CM", "[", - p/ \* \6 n8 \$ |* Y& s3 T: k
RowBox[{"36", ",", "3"}], "]"}], ",", , ?3 g. e3 I; n$ ]' t# x
RowBox[{"CM", "[",
$ F" n7 H; Z- k4 u8 C RowBox[{"36", ",", "4"}], "]"}], ",", ' B' G4 S# J i2 S7 @
RowBox[{"CM", "[",
5 t8 y- V- Y c% U/ d- X3 X RowBox[{"36", ",", "5"}], "]"}], ",",
& y9 ~. P: |; `. }5 F6 r5 h RowBox[{"CM", "[",
* q7 a, T( d. X! ` RowBox[{"36", ",", "6"}], "]"}], ",", ; W5 b4 C+ n" x# E* z5 e
RowBox[{"CM", "[",
! `2 u& l( O. t J, e1 N RowBox[{"36", ",", "7"}], "]"}], ",",
: g3 c4 p6 e' M6 ^( |% \( A RowBox[{"CM", "[",
8 T4 {, c: w2 H0 R RowBox[{"36", ",", "8"}], "]"}], ",",
4 j @" O. A1 Z0 s1 z& f RowBox[{"CM", "[",
% F3 o* L0 s/ p0 x6 I! k RowBox[{"36", ",", "9"}], "]"}]}], "}"}], ",",
# E2 r2 |4 u( a. g5 q9 e& {' X+ C RowBox[{"{", " R) c. X7 O( B0 S
RowBox[{1 m# a! a7 w6 t" g! \8 a
RowBox[{"CM", "[",
+ _0 Z3 d5 `* I% y- N9 n RowBox[{"37", ",", "1"}], "]"}], ",", ! _; A! f: w- _; C1 w( T5 j
RowBox[{"CM", "[",
3 R& }3 e4 w* S/ d2 J RowBox[{"37", ",", "2"}], "]"}], ",", % I g+ }* a& H8 c' K W; F
RowBox[{"CM", "[",
% Y, |$ k! Y2 `+ w% V RowBox[{"37", ",", "3"}], "]"}], ",", 1 |# A& w! v4 u1 W& V: P
RowBox[{"CM", "[",
3 w- B. l* r D* \9 K RowBox[{"37", ",", "4"}], "]"}], ",", % {/ R8 o, ^6 J6 n
RowBox[{"CM", "[",
6 g+ ?2 n# H/ i8 h! e w RowBox[{"37", ",", "5"}], "]"}], ",",
- g; Y/ O2 H0 C$ L8 V7 x: G; m' ^ RowBox[{"CM", "[",
, b2 o! k0 @" W/ D H3 C* T RowBox[{"37", ",", "6"}], "]"}], ",", o! V" \$ o8 T& p8 {" i1 ?% {& ^
RowBox[{"CM", "[", 2 I, e' W; n" z( s
RowBox[{"37", ",", "7"}], "]"}], ",", [- p2 Y' \# V$ P% s
RowBox[{"CM", "[",
9 i" ~" r, C5 U4 A. ]$ {- ]8 P" v" } RowBox[{"37", ",", "8"}], "]"}], ",", 6 x/ N, ~6 j( U5 o2 ^) ~
RowBox[{"CM", "[", - ^& b3 ^# O# E
RowBox[{"37", ",", "9"}], "]"}]}], "}"}], ",", $ }4 }8 N0 Y& |9 O1 G" N* h2 I
RowBox[{"{", . H. P t: P# _$ z: V
RowBox[{1 }; L9 N4 K% C7 j, t# S4 W9 u% B
RowBox[{"CM", "[", + }1 [9 B6 M0 B3 i) T- s. u
RowBox[{"38", ",", "1"}], "]"}], ",", 7 B; h. x D- ^9 k% g% ?
RowBox[{"CM", "[", 7 I5 F% u: ]* j) |/ b: M* u1 M
RowBox[{"38", ",", "2"}], "]"}], ",",
a) V2 F8 _) ^# v$ [ RowBox[{"CM", "[",
9 o3 n& S. W. ?# C& S) K+ J4 P& P RowBox[{"38", ",", "3"}], "]"}], ",",
7 l' l+ }9 b/ Y4 q RowBox[{"CM", "[",
7 l2 W& Q E* y RowBox[{"38", ",", "4"}], "]"}], ",", 4 D$ f# a' r9 Q$ J+ j
RowBox[{"CM", "[", : [* | R; Q5 O, p% G+ {8 e8 k
RowBox[{"38", ",", "5"}], "]"}], ",",
" J7 z# N9 G/ { RowBox[{"CM", "[", * ]2 a: d) |, p* t: v( M
RowBox[{"38", ",", "6"}], "]"}], ",", 3 ]* B3 r" N8 a& b
RowBox[{"CM", "[",
8 V" u* @6 Y+ t; I6 a RowBox[{"38", ",", "7"}], "]"}], ",",
" y N9 `7 a2 @ RowBox[{"CM", "[",
& J. O0 }8 Y+ g9 E RowBox[{"38", ",", "8"}], "]"}], ",",
, @5 H2 }4 {% \8 Z RowBox[{"CM", "[", - t+ d9 g; X, U# l& P6 N0 n
RowBox[{"38", ",", "9"}], "]"}]}], "}"}], ",", 5 U1 x7 p1 f( `4 @
RowBox[{"{", : M/ j0 ^: a: l# z2 [. P1 I
RowBox[{" h0 D1 y- A5 E% H: j" `
RowBox[{"CM", "[", ) ~4 E, z3 I6 j( z
RowBox[{"39", ",", "1"}], "]"}], ",", ! ]( q. E' p0 T$ d1 x, C7 A9 B; w
RowBox[{"CM", "[", ! x3 ^5 Q+ t$ V) e% M
RowBox[{"39", ",", "2"}], "]"}], ",", ( l% U+ J% e( b$ ?/ Y
RowBox[{"CM", "[",
5 A9 g* V6 ~# k RowBox[{"39", ",", "3"}], "]"}], ",",
0 `. X9 e$ }& Q$ @! [3 x RowBox[{"CM", "[", 8 D. U3 I9 R! I' R
RowBox[{"39", ",", "4"}], "]"}], ",",
4 u- d/ m' q+ h RowBox[{"CM", "[",
4 D4 D B1 h! ^1 o RowBox[{"39", ",", "5"}], "]"}], ",", 1 A" F/ Y. c# P
RowBox[{"CM", "[", ! @+ R1 w! t6 \* C% O8 O
RowBox[{"39", ",", "6"}], "]"}], ",", # f, \: q) D* K* @. `; P( g9 Q; {
RowBox[{"CM", "[",
8 h. ]9 @, ^- J1 u+ R. P RowBox[{"39", ",", "7"}], "]"}], ",", + l# v6 J1 M8 A8 h2 T
RowBox[{"CM", "[", ) ?; [, q" ?& A$ x5 n# |
RowBox[{"39", ",", "8"}], "]"}], ",", - r- ?1 y, o+ h: C
RowBox[{"CM", "[", 6 [, O0 V7 Z o4 O- P7 A, o
RowBox[{"39", ",", "9"}], "]"}]}], "}"}], ",",
. Y9 }% D+ Q R( L& T& z RowBox[{"{", / z' M) d/ r4 Y' N( C D7 ]
RowBox[{
: _! D& Z# U; c RowBox[{"CM", "[", - z7 ?+ C4 g! G! y5 X. Y. c+ d1 @
RowBox[{"40", ",", "1"}], "]"}], ",", * p' @8 T/ E4 Y9 O
RowBox[{"CM", "[", ' s7 b4 o" l/ `3 p0 }. c
RowBox[{"40", ",", "2"}], "]"}], ",",
/ D; `4 @& m6 I, u( ]. o* V$ n0 ^ RowBox[{"CM", "[", & P; D2 E- K, `- B1 f
RowBox[{"40", ",", "3"}], "]"}], ",", 7 x. u/ j" l! J" C1 T) u
RowBox[{"CM", "[", 6 f7 j! e) P# n Y4 r2 U# }- J
RowBox[{"40", ",", "4"}], "]"}], ",",
' x9 k) z) ]! q) E Q- g+ h' ]. p- [ RowBox[{"CM", "[", 3 y6 {! P8 _ H0 c: @+ s
RowBox[{"40", ",", "5"}], "]"}], ",", + C" d/ n6 X2 z3 }# |
RowBox[{"CM", "[", - w% ?$ E9 ]" Y2 e
RowBox[{"40", ",", "6"}], "]"}], ",",
# J) [* V$ A, T: M* [" g: E' B RowBox[{"CM", "[", 9 _1 h$ }$ V1 a
RowBox[{"40", ",", "7"}], "]"}], ",",
. y% k6 j) y N RowBox[{"CM", "[", 0 n; }/ y0 b) V6 r
RowBox[{"40", ",", "8"}], "]"}], ",",
5 D, D! J5 T6 J8 s# Z RowBox[{"CM", "[",
8 R; p$ _- D1 Q& B RowBox[{"40", ",", "9"}], "]"}]}], "}"}], ",",
1 Q5 @ ]7 v; g/ M& q8 Z& D RowBox[{"{",
( ?' [& h; B$ g RowBox[{% f" {. W b5 v0 }
RowBox[{"CM", "[", , h4 q. ^# a: O- k) O, x0 \6 q
RowBox[{"41", ",", "1"}], "]"}], ",",
9 T1 V$ ]7 \ y8 K RowBox[{"CM", "[", ' t5 x/ e* u- w% N( F7 a
RowBox[{"41", ",", "2"}], "]"}], ",", 9 y9 r5 Z8 _- I, d j: d
RowBox[{"CM", "[",
& I/ Z# |* i& G! B RowBox[{"41", ",", "3"}], "]"}], ",", ) @& F, l4 j% c. t6 o. t* e, L
RowBox[{"CM", "[",
; h, s, E. n6 a; \6 c. b RowBox[{"41", ",", "4"}], "]"}], ",",
. q6 \% B) c5 \! r1 | RowBox[{"CM", "[",
7 }( S0 U6 X. t3 S# w+ X# u RowBox[{"41", ",", "5"}], "]"}], ",", 2 R( H* F( S* }2 S: z
RowBox[{"CM", "[",
! r1 V4 B) w5 Y RowBox[{"41", ",", "6"}], "]"}], ",", , C, F" ]$ z' U
RowBox[{"CM", "[",
/ b' {/ ^6 {+ p- _6 i6 I( g RowBox[{"41", ",", "7"}], "]"}], ",",
' ?/ n B$ e8 R1 h. q RowBox[{"CM", "[",
- r% i$ v) L4 D9 M RowBox[{"41", ",", "8"}], "]"}], ",",
+ r& t( |# E' T. `1 a5 C' Y RowBox[{"CM", "[",
5 U, \7 O2 B9 P6 K0 C1 I RowBox[{"41", ",", "9"}], "]"}]}], "}"}], ",",
/ N# ^2 H% {+ \ RowBox[{"{",
9 _0 T- _9 {' \1 u- i3 A RowBox[{
' N4 I0 p+ s, b2 j! Z# [3 R RowBox[{"CM", "[",
t+ ^6 `. E* f8 T/ n+ d% f' z RowBox[{"42", ",", "1"}], "]"}], ",",
! P9 E* \2 J. G3 U3 V# O) } RowBox[{"CM", "[", Y2 I1 f. | G% W
RowBox[{"42", ",", "2"}], "]"}], ",",
' n0 x# I5 X w RowBox[{"CM", "[",
1 k3 W3 p: V7 S5 G# x RowBox[{"42", ",", "3"}], "]"}], ",", 8 `8 R- o. w% }
RowBox[{"CM", "[",
5 U, C& e! f9 M' {/ W- Z& f; E RowBox[{"42", ",", "4"}], "]"}], ",", 4 E. Q6 z! f! D" o
RowBox[{"CM", "[", ( Q h6 L- P$ @) w9 f, f9 k
RowBox[{"42", ",", "5"}], "]"}], ",",
* d2 e! L& c! d; Y- X" ^$ u" Z/ X RowBox[{"CM", "[", 4 c& k3 r z9 Y k# _$ y) X6 d& {
RowBox[{"42", ",", "6"}], "]"}], ",", * O- X0 ]" s6 A( z o, S
RowBox[{"CM", "[", 4 A. {& t/ O2 j$ O( i
RowBox[{"42", ",", "7"}], "]"}], ",", / ^9 W7 _: Y4 ]4 O. r# X* R
RowBox[{"CM", "[",
; U$ E$ T# ?# i$ h RowBox[{"42", ",", "8"}], "]"}], ",",
$ o! O* B$ C2 {. b5 \) t RowBox[{"CM", "[", 4 f" S7 C% X( t8 N' e6 ]
RowBox[{"42", ",", "9"}], "]"}]}], "}"}], ",", / i! b$ x- j9 W3 Y9 l$ b
RowBox[{"{",
% ?% }2 V" P: w- T6 x+ N% t RowBox[{
; Z: [# w+ n; C: F/ s. d! Q RowBox[{"CM", "[",
2 x* u# K' S6 C+ l RowBox[{"43", ",", "1"}], "]"}], ",", / T5 M5 F, T: ]/ }, J
RowBox[{"CM", "[", ' ?( }4 n3 {0 O- E2 n/ t4 I$ `
RowBox[{"43", ",", "2"}], "]"}], ",", 1 X/ `+ O6 Q; S
RowBox[{"CM", "[", & P) n. L) p2 s: w3 U/ J* L# |
RowBox[{"43", ",", "3"}], "]"}], ",", ; } R* z6 i4 _( z- N" U( |! c
RowBox[{"CM", "[",
: O: g* b% J/ O RowBox[{"43", ",", "4"}], "]"}], ",",
6 ^) X& s4 |- h3 Q RowBox[{"CM", "[",
' [$ b# m" A$ w: }6 ?- c: A RowBox[{"43", ",", "5"}], "]"}], ",",
! x+ A* l( F0 o$ f RowBox[{"CM", "[",
3 N! S2 U5 f" L RowBox[{"43", ",", "6"}], "]"}], ",", ) G+ p+ f8 @" m
RowBox[{"CM", "[",
4 S# T6 q( h$ @: g, V RowBox[{"43", ",", "7"}], "]"}], ",", ) K0 ]# p9 P/ P. r0 f; j0 m
RowBox[{"CM", "[", & Q9 K' t$ J z1 \# w: r
RowBox[{"43", ",", "8"}], "]"}], ",", & u# m) A( a3 \1 o# r6 d7 H* [# N
RowBox[{"CM", "[", & ]: E- @ L* K& B0 z# i( G
RowBox[{"43", ",", "9"}], "]"}]}], "}"}], ",", ' W+ q7 ~( x+ C0 [# g' G& Q
RowBox[{"{",
+ O; D2 m! H; T RowBox[{
+ G8 z3 j( h/ ^8 n. t* k9 g RowBox[{"CM", "[",
0 Y% e7 L4 M2 g& v) c& x: Y+ u, c RowBox[{"44", ",", "1"}], "]"}], ",", ; }/ U# V" k' n$ b, q4 ^# U
RowBox[{"CM", "[", 8 r( w7 p( t+ U) Q
RowBox[{"44", ",", "2"}], "]"}], ",",
9 `# H* g- j7 b8 ~! i RowBox[{"CM", "[",
, _- M9 W, v, p; v$ `) _ RowBox[{"44", ",", "3"}], "]"}], ",", 2 O5 A2 }: w. K$ b/ G) C, x: T' m
RowBox[{"CM", "[",
; {& [! o1 n5 |" K) Z$ C RowBox[{"44", ",", "4"}], "]"}], ",", _/ p" s6 s* @* |
RowBox[{"CM", "[", - F' {5 y( c) I# Y. F: l6 K
RowBox[{"44", ",", "5"}], "]"}], ",", / B$ V# q9 b& |+ ~
RowBox[{"CM", "[",
4 I, q' V, b% X+ E% o RowBox[{"44", ",", "6"}], "]"}], ",", $ Z8 H. g( r6 q
RowBox[{"CM", "[",
; ?2 I( \/ p2 l RowBox[{"44", ",", "7"}], "]"}], ",",
% f$ J: P) H* P$ E# s RowBox[{"CM", "[", 8 p: q7 e7 ^4 h" t1 |9 m7 O
RowBox[{"44", ",", "8"}], "]"}], ",",
$ K/ t% S4 U1 C' C RowBox[{"CM", "[",
* u/ m8 q/ ?4 L+ j/ \ RowBox[{"44", ",", "9"}], "]"}]}], "}"}], ",",
1 ~7 J4 W' M0 n$ _! q$ \* G7 j/ g5 q RowBox[{"{",
8 ^4 K6 q3 H! ]$ T+ x; Z RowBox[{8 ?9 D1 r# o$ V6 c$ P% W( s) o8 h7 C
RowBox[{"CM", "[", {& m2 G' l9 e
RowBox[{"45", ",", "1"}], "]"}], ",",
3 g7 D* t5 ~7 @ f RowBox[{"CM", "[", . j# r3 H- h' Z7 a- J1 l
RowBox[{"45", ",", "2"}], "]"}], ",", 3 O8 ?% b' x2 K. Q6 Q* [
RowBox[{"CM", "[",
4 e/ _0 i' m- w* I RowBox[{"45", ",", "3"}], "]"}], ",",
6 R. |, J+ a1 N9 d1 i RowBox[{"CM", "[",
) b( e2 x; k! r RowBox[{"45", ",", "4"}], "]"}], ",",
$ e" I6 l1 t; `, V, S% _) q RowBox[{"CM", "[",
& j. W# a; T7 v# z RowBox[{"45", ",", "5"}], "]"}], ",",
' q) d1 c0 K$ ~' Z8 z* v! ~ RowBox[{"CM", "[", ' e; N' d: B7 N& f5 D' M
RowBox[{"45", ",", "6"}], "]"}], ",", 5 V, g) @6 s" C+ @. L8 N k
RowBox[{"CM", "[", 6 h# G r6 M: Q7 [* ~- E
RowBox[{"45", ",", "7"}], "]"}], ",",
: s9 V8 F0 {$ e7 T- p RowBox[{"CM", "[", $ O/ q1 r0 q" A; G* P% W
RowBox[{"45", ",", "8"}], "]"}], ",", " k+ T# }3 Z3 n% Q4 W" p! Y" I
RowBox[{"CM", "[",
. b1 C' I" s4 u; Q: R7 v RowBox[{"45", ",", "9"}], "]"}]}], "}"}], ",",
6 B7 I+ y# i3 ]- `/ {9 v RowBox[{"{", 1 }7 }) w) r+ T7 Q- t2 \- `% _
RowBox[{( s2 D D8 W. g& ?! I" X6 A& C/ I
RowBox[{"CM", "[", 7 K& x; ?& }. o0 `
RowBox[{"46", ",", "1"}], "]"}], ",", + X; _) V) k8 E( X. V
RowBox[{"CM", "[",
$ p" F8 D8 L% }* A/ R RowBox[{"46", ",", "2"}], "]"}], ",",
" f8 s$ h* x5 C; i0 x, l! } RowBox[{"CM", "[", $ X' l2 ~8 \7 E" Y0 `+ v0 r
RowBox[{"46", ",", "3"}], "]"}], ",",
& ] k- v, n! {! s! q/ m RowBox[{"CM", "[",
\8 R4 [7 n$ {" L0 m RowBox[{"46", ",", "4"}], "]"}], ",", # @3 s/ g) l# g: K
RowBox[{"CM", "[", " V6 [- z, \- p, q
RowBox[{"46", ",", "5"}], "]"}], ",", 9 W _( F; ?$ a4 m% I% y7 P
RowBox[{"CM", "[", % L4 D# L6 B$ i- z/ O; N6 o
RowBox[{"46", ",", "6"}], "]"}], ",", 9 Z! I. e, w/ ^9 p' K/ t
RowBox[{"CM", "[",
0 x0 X$ _( l& A4 x: [* _ RowBox[{"46", ",", "7"}], "]"}], ",",
. W T' K4 \0 _ W9 p RowBox[{"CM", "[",
* n+ s; X* l& T* e9 q7 G4 Q RowBox[{"46", ",", "8"}], "]"}], ",",
9 @1 `5 p" `6 E+ t% o7 N' l( S RowBox[{"CM", "[",
8 C& R" _, t( M1 J6 v RowBox[{"46", ",", "9"}], "]"}]}], "}"}], ",",
6 b3 c$ D6 O* ]. b' d5 I6 W* ~ RowBox[{"{",
8 |- b6 S( N' `1 O7 x- v h# X RowBox[{
6 W: q3 U6 S# r& k- C RowBox[{"CM", "[", ; Y* l' J, Y) h7 V0 i0 o* `
RowBox[{"47", ",", "1"}], "]"}], ",",
" y: Z/ K* f' z0 a2 h RowBox[{"CM", "[", 3 x' O3 y: A/ R4 I0 s- O. X
RowBox[{"47", ",", "2"}], "]"}], ",", . {: e. U3 o) z j$ @
RowBox[{"CM", "[",
1 ^1 O+ W: k, o. N RowBox[{"47", ",", "3"}], "]"}], ",",
( k e% ]- ~4 n5 w3 I7 Z RowBox[{"CM", "[",
' O3 Z' D- h- n* w RowBox[{"47", ",", "4"}], "]"}], ",",
5 N5 l" P( f; Z4 P3 N RowBox[{"CM", "[", 6 S( g8 \! Q. x9 f4 i( X0 _
RowBox[{"47", ",", "5"}], "]"}], ",",
! \: O0 B- ]1 B. m RowBox[{"CM", "[",
9 t, \ n7 w+ e# Y4 ^ RowBox[{"47", ",", "6"}], "]"}], ",",
4 ^) p. y; e% `7 [# Z8 o. a RowBox[{"CM", "[",
/ @1 S% D1 ~# w+ j1 g1 |' q RowBox[{"47", ",", "7"}], "]"}], ",", 7 R# M- S) v: ~9 v' |8 C. N
RowBox[{"CM", "[",
* t; c# n5 X( C ~- c0 j; K; F6 ? RowBox[{"47", ",", "8"}], "]"}], ",", . B* K) Y1 C+ ^ F/ g1 g
RowBox[{"CM", "[", 2 S* B! o+ F# K" O: q$ w, G
RowBox[{"47", ",", "9"}], "]"}]}], "}"}], ",",
* G V# o ^% p! b3 a RowBox[{"{",
4 N! |, Z, R- ?- h( s7 r! L( I6 b RowBox[{
0 C9 h. O5 T, n8 |0 R4 D) G- A RowBox[{"CM", "[", - z! p( o% e$ ~$ o! M
RowBox[{"48", ",", "1"}], "]"}], ",",
; }* D9 q; L( Z9 i2 o% K8 c RowBox[{"CM", "[", 2 ] u, Q- ?, {) Q8 p! Z
RowBox[{"48", ",", "2"}], "]"}], ",", ; a, ` S( p% T+ g9 _6 ?7 B |
RowBox[{"CM", "[",
' l. M' h1 f8 u RowBox[{"48", ",", "3"}], "]"}], ",",
& N2 o. W& j3 \2 V7 n' G6 C$ x o RowBox[{"CM", "[", 9 c! k+ N* |% ~) S5 `4 D1 h# F
RowBox[{"48", ",", "4"}], "]"}], ",",
" a9 _7 F6 D/ E7 s L! h4 V8 D7 Q RowBox[{"CM", "[", ! V( a2 H# @7 F% ?9 z
RowBox[{"48", ",", "5"}], "]"}], ",", & ?* D/ R$ _9 C
RowBox[{"CM", "[", + u8 K1 \- x0 f! q8 X' b3 T
RowBox[{"48", ",", "6"}], "]"}], ",",
& a* ^4 D A; w* \8 K1 W* `2 ? RowBox[{"CM", "[", ; M i" _# ~' F6 c [
RowBox[{"48", ",", "7"}], "]"}], ",", f$ n* T' r) |% Y& N- q. X
RowBox[{"CM", "[",
3 i4 @5 Z/ K5 s7 } y1 V* n5 f RowBox[{"48", ",", "8"}], "]"}], ",",
/ F$ g1 L( h3 a, ^6 R RowBox[{"CM", "[",
, r& G% q1 I1 E RowBox[{"48", ",", "9"}], "]"}]}], "}"}], ",",
7 R( ~( l$ x* G% R& j$ |6 R RowBox[{"{",
6 J9 @) Z8 _4 T* y RowBox[{' E! b" b* W h9 c9 w
RowBox[{"CM", "[", 1 K! T, U8 T8 x
RowBox[{"49", ",", "1"}], "]"}], ",",
! j/ Z% H: `! V( V- K RowBox[{"CM", "[",
9 V8 ?" l' b0 c- L RowBox[{"49", ",", "2"}], "]"}], ",", 8 L8 V6 X7 r" N+ m
RowBox[{"CM", "[", . ~& M; u. m. b. F; z0 `
RowBox[{"49", ",", "3"}], "]"}], ",", % @0 U2 E6 r, {% ~2 }! {& [6 c
RowBox[{"CM", "[",
1 F+ G) V$ }2 w! c% O2 f9 I f0 O RowBox[{"49", ",", "4"}], "]"}], ",", 5 ] A6 T+ m" J
RowBox[{"CM", "[", 5 V# Q9 r0 N3 X5 r" O) c
RowBox[{"49", ",", "5"}], "]"}], ",",
. H( d" ^9 z, v" Q+ p3 C7 [4 D9 C4 H RowBox[{"CM", "[",
1 H% L- V& ]2 q- y RowBox[{"49", ",", "6"}], "]"}], ",",
1 _; H4 C' w2 ` RowBox[{"CM", "[",
* _9 S( e7 Q2 B. e q# U2 { RowBox[{"49", ",", "7"}], "]"}], ",",
/ B+ C' i3 w# W# ~ RowBox[{"CM", "[",
+ |# _( ~7 g9 o% G; l* I0 m; F RowBox[{"49", ",", "8"}], "]"}], ",", ' A0 b4 q" o. M; H& e0 v
RowBox[{"CM", "[", 7 J O" ~; H1 Q" V. R5 k4 F
RowBox[{"49", ",", "9"}], "]"}]}], "}"}], ",",
. ] k& x! A; R& { RowBox[{"{",
) P# J, U l. n" s. m( D RowBox[{( y% }( U9 A, O" K# b
RowBox[{"CM", "[", 5 T6 N+ n+ s$ y q9 v, d
RowBox[{"50", ",", "1"}], "]"}], ",",
, Q* Q1 G/ E+ z; t- u2 ?" f" `! x RowBox[{"CM", "[", & R. \6 M) @8 t" R& z$ Y1 K
RowBox[{"50", ",", "2"}], "]"}], ",", & d7 {3 ?8 v2 A. n2 {' x
RowBox[{"CM", "[",
. b/ n8 @& E \) A RowBox[{"50", ",", "3"}], "]"}], ",", ' N q {# f, y2 p6 H* O
RowBox[{"CM", "[", # `. D% \6 e5 q9 _& `
RowBox[{"50", ",", "4"}], "]"}], ",", ' l) f, W; r$ s( G
RowBox[{"CM", "[", % p: P9 F Z4 _
RowBox[{"50", ",", "5"}], "]"}], ",",
n% g8 j$ l3 K7 |/ {8 v& u RowBox[{"CM", "[",
; D# {/ d8 r" f% g* T RowBox[{"50", ",", "6"}], "]"}], ",",
5 M( F$ [' M! e8 x: C RowBox[{"CM", "[",
6 |+ T4 F- u" q RowBox[{"50", ",", "7"}], "]"}], ",", & T t- z6 ?" G4 Y0 K
RowBox[{"CM", "[", - Z2 _8 l- W/ {6 T9 G; c# n
RowBox[{"50", ",", "8"}], "]"}], ",", : v$ K) z% j0 x/ v T* c" i9 o
RowBox[{"CM", "[", . h3 T/ t0 ]2 n! M& c
RowBox[{"50", ",", "9"}], "]"}]}], "}"}], ",", & Q7 U' O }1 p; U
RowBox[{"{", 6 k3 w# v' y3 }' u
RowBox[{
, K4 Q& m6 j8 c* l9 E2 F RowBox[{"CM", "[",
+ L8 L5 f! c7 l& @ RowBox[{"51", ",", "1"}], "]"}], ",", 7 {2 U, Y2 o/ c' E- q8 T
RowBox[{"CM", "[",
; F3 y* d' z' J) m8 P RowBox[{"51", ",", "2"}], "]"}], ",", ' L3 ?+ E; e) f7 B6 o4 N i; Y8 p
RowBox[{"CM", "[", 1 ]. u6 B, ^% G* M
RowBox[{"51", ",", "3"}], "]"}], ",", , W* g6 I2 M1 b9 n+ ?/ W" a- ~/ |
RowBox[{"CM", "[", & l* \3 i! a- [4 K; R5 I
RowBox[{"51", ",", "4"}], "]"}], ",",
! T% a3 u7 }. [3 o8 l4 r D8 o RowBox[{"CM", "[", / W) a8 A8 @0 \8 N8 n& t4 |9 t) k5 r
RowBox[{"51", ",", "5"}], "]"}], ",",
9 r2 \# G1 p j8 ` RowBox[{"CM", "[", 9 c* r, P1 w2 d3 P) D1 O! h! l
RowBox[{"51", ",", "6"}], "]"}], ",", $ j5 g1 H/ i! B4 X+ I( o" i
RowBox[{"CM", "[", ?# K' ^: x& \
RowBox[{"51", ",", "7"}], "]"}], ",",
1 o, b% c# }; @" h. [ RowBox[{"CM", "[",
' G5 E# \6 {7 U, y) T( e RowBox[{"51", ",", "8"}], "]"}], ",", , U% p* f, K9 z, Z# p0 {4 |
RowBox[{"CM", "[",
" M* N) m* n9 f/ M" ?- w RowBox[{"51", ",", "9"}], "]"}]}], "}"}], ",",
1 Q& q: B3 f( X/ @( U+ I RowBox[{"{",
% @: e+ R3 |1 U2 P0 @4 O% t4 k' P RowBox[{
- T0 z: E; q, @* v. W RowBox[{"CM", "[", 1 |. K: _" I- X! E2 `; }: q L) O- o% ]. X
RowBox[{"52", ",", "1"}], "]"}], ",", $ p6 n% B; f5 l' K
RowBox[{"CM", "[",
2 w2 a, ?2 b% P! R RowBox[{"52", ",", "2"}], "]"}], ",",
" Y+ N: V* v0 W5 }+ m RowBox[{"CM", "[", , I8 F: l- \/ A2 T) w
RowBox[{"52", ",", "3"}], "]"}], ",", 7 @1 Z V( Q% G* \( a/ k
RowBox[{"CM", "[",
5 s& P6 S* W ]' } RowBox[{"52", ",", "4"}], "]"}], ",",
+ W' F6 n: E6 M% P8 W# l RowBox[{"CM", "[",
. i" o# x6 t$ `, B) W7 A6 B RowBox[{"52", ",", "5"}], "]"}], ",", % b- S: E/ {, p# f! Z. N$ E4 ]
RowBox[{"CM", "[", , T8 N& E. f* `6 e9 p' f
RowBox[{"52", ",", "6"}], "]"}], ",", % X+ N( S b& K5 B. Y
RowBox[{"CM", "[", 0 F& ` t; q; A. p; q: V- W3 X# @
RowBox[{"52", ",", "7"}], "]"}], ",", M% u3 X, D4 W7 W* C. K L' ]
RowBox[{"CM", "[", ' d B5 L" e$ Z, G
RowBox[{"52", ",", "8"}], "]"}], ",",
# L6 d1 W* v3 d U/ g RowBox[{"CM", "[",
& s, m1 s3 f: t4 ^2 d8 u# t# S RowBox[{"52", ",", "9"}], "]"}]}], "}"}], ",", 8 P4 ?- O, r6 z* I8 F" K
RowBox[{"{",
2 W: Q! T1 _3 U4 ?8 ` RowBox[{
: ~8 v- a* n- V+ e9 y3 G: A( `3 Q RowBox[{"CM", "[",
2 |7 h+ O# d8 h' o: G: d9 H% }4 l RowBox[{"53", ",", "1"}], "]"}], ",", 5 A- D1 f% ]. a/ v3 i) K7 }
RowBox[{"CM", "[", / K7 G; j) C; k
RowBox[{"53", ",", "2"}], "]"}], ",",
6 L- h0 @4 ~" `! d1 _ RowBox[{"CM", "[", 8 o6 ?6 |3 ?! ]7 x; d% }% |# C
RowBox[{"53", ",", "3"}], "]"}], ",",
. g0 E' B; ~8 f/ L# S RowBox[{"CM", "[", " \3 p! T' d8 G" w4 R( o" b
RowBox[{"53", ",", "4"}], "]"}], ",",
; v' I7 F/ l. s8 D RowBox[{"CM", "[",
. ^" w4 K6 \; q9 v, A( J5 L RowBox[{"53", ",", "5"}], "]"}], ",",
5 Z. u# R. u3 [# F4 x RowBox[{"CM", "[",
/ X& _, e. h7 M3 H/ @ RowBox[{"53", ",", "6"}], "]"}], ",", V: m/ c0 y$ q4 D( Q
RowBox[{"CM", "[",
. d9 ?# j) X9 ~& s" q RowBox[{"53", ",", "7"}], "]"}], ",",
- W, \" ~: j3 U' k RowBox[{"CM", "[",
2 g- k8 G+ A6 T# M/ T& s4 |: ?' i RowBox[{"53", ",", "8"}], "]"}], ",",
& w) v8 ?& U, { [# U RowBox[{"CM", "[",
' U7 \, i# a/ Z) W" a+ i+ `4 J RowBox[{"53", ",", "9"}], "]"}]}], "}"}], ",", , ?* J# W! I! J5 Z
RowBox[{"{",
9 q; h$ V7 G" s% w RowBox[{
6 N7 t3 M) E/ W2 l* e& J" q RowBox[{"CM", "[",
/ d; ?8 V9 |# c8 Y. z RowBox[{"54", ",", "1"}], "]"}], ",", % u7 c2 m' R# ]" |& I, \& Q: t
RowBox[{"CM", "[", * g1 o* u2 t, K
RowBox[{"54", ",", "2"}], "]"}], ",",
1 E( l8 l7 ^) {7 v2 ]# W) U RowBox[{"CM", "[", ! ?- S" h. [: M6 \
RowBox[{"54", ",", "3"}], "]"}], ",", 4 p. X7 D0 {7 C/ m8 ]
RowBox[{"CM", "[",
8 A% R; h1 x( }2 {: y" J# H; f0 Q RowBox[{"54", ",", "4"}], "]"}], ",",
' ]2 a+ d' a- m0 ?1 w, C RowBox[{"CM", "[",
" {' F. S+ {5 G" g9 d RowBox[{"54", ",", "5"}], "]"}], ",",
, E) n: s* A- l0 v: c" ?. ^ RowBox[{"CM", "[", ! q; L7 |% T6 E2 F6 B1 K
RowBox[{"54", ",", "6"}], "]"}], ",", & Z! x2 [7 B5 r
RowBox[{"CM", "[", , y q' e9 f" Q8 O
RowBox[{"54", ",", "7"}], "]"}], ",",
" k7 @8 Z6 r5 e8 l RowBox[{"CM", "[",
* R8 t3 m% y9 V, l+ g RowBox[{"54", ",", "8"}], "]"}], ",", / A3 k* G$ ]) e$ V- G7 H
RowBox[{"CM", "[", + p1 n/ Z+ w% ~
RowBox[{"54", ",", "9"}], "]"}]}], "}"}], ",",
2 r5 Y* ^! x( F4 U% U; j* n' p RowBox[{"{", ! Y- c. {* p' v& h" A) q5 O) `' ?9 O
RowBox[{
1 I6 ^9 X5 _2 z+ }* | RowBox[{"CM", "[",
. R2 t! ]- r& ` o* `- G RowBox[{"55", ",", "1"}], "]"}], ",",
+ q! O* J; }3 `; C RowBox[{"CM", "[",
: `2 w* X2 x# w2 B5 U2 Y' f# I RowBox[{"55", ",", "2"}], "]"}], ",", " n5 u) K& I% G+ V& e
RowBox[{"CM", "[", " P0 W! W5 m4 b# l1 Q) K
RowBox[{"55", ",", "3"}], "]"}], ",",
$ C$ e( ~/ D$ O. C RowBox[{"CM", "[",
5 L8 h/ O7 v! A8 |# y- @, } RowBox[{"55", ",", "4"}], "]"}], ",",
( P T; J, U0 {9 G& f6 V& y& `2 T RowBox[{"CM", "[", , C$ S; C- k3 ^; k4 }
RowBox[{"55", ",", "5"}], "]"}], ",",
/ R, n7 S$ {( |9 _9 W# _ RowBox[{"CM", "[", t) D! T1 }3 a+ g5 X% J) |: \
RowBox[{"55", ",", "6"}], "]"}], ",", - Z( M: ~+ Q# `" ]1 {
RowBox[{"CM", "[",
/ |. m+ K: @. D4 S3 R RowBox[{"55", ",", "7"}], "]"}], ",",
2 `9 B/ P+ V. v; l/ B+ ~" n0 a RowBox[{"CM", "[",
P( h+ E$ K. V1 T& ^9 I RowBox[{"55", ",", "8"}], "]"}], ",",
1 n2 G j* q; N RowBox[{"CM", "[",
+ a h, Z% _# c( s RowBox[{"55", ",", "9"}], "]"}]}], "}"}], ",",
- l4 Y) m- d- V0 v2 Z* n RowBox[{"{", + N) }; k; F: z* t
RowBox[{4 L- @# q! h( R
RowBox[{"CM", "[", }. I. w3 P$ l/ q: k# z
RowBox[{"56", ",", "1"}], "]"}], ",",
- V7 }; l+ z2 \2 Q& } RowBox[{"CM", "[",
6 e* g5 I# j) r T. A E; G# g C RowBox[{"56", ",", "2"}], "]"}], ",", 1 P+ c C3 {2 G: p
RowBox[{"CM", "[",
; O$ ?5 X @8 l9 h6 O: q; O3 b) Y RowBox[{"56", ",", "3"}], "]"}], ",",
9 T# Q0 w+ B# }! F9 I RowBox[{"CM", "[", . T0 O, ?5 F/ d: K2 F* F7 J
RowBox[{"56", ",", "4"}], "]"}], ",",
; t( U. w K7 H# J' @* U; z* s RowBox[{"CM", "[", : [- I+ O2 m( m! x, O4 ]3 Q
RowBox[{"56", ",", "5"}], "]"}], ",", ! U& f. p2 \) \3 I
RowBox[{"CM", "[", 5 T) F* a& Q% h$ X1 `
RowBox[{"56", ",", "6"}], "]"}], ",",
. U, G' J) d( G/ {* m O RowBox[{"CM", "[",
2 u) O# Q6 g% V+ m k7 d RowBox[{"56", ",", "7"}], "]"}], ",", ) u) W, ^- y& R# m7 X/ w
RowBox[{"CM", "[",
# ?, s- X0 X( R* ? RowBox[{"56", ",", "8"}], "]"}], ",", ( Q# V5 @ B) V
RowBox[{"CM", "[", 4 R& I" \ {. C: d. K/ y
RowBox[{"56", ",", "9"}], "]"}]}], "}"}], ",",
" i& C2 e: z- r( ~ RowBox[{"{",
. V9 M$ {7 w9 T4 P: W% j5 }. x e RowBox[{5 z6 {; W! _0 g9 a( y: ^+ {
RowBox[{"CM", "[", " z- g, X e6 _$ U
RowBox[{"57", ",", "1"}], "]"}], ",", ( \1 r" j" ^3 \; `. X1 y. n b
RowBox[{"CM", "[", n6 c8 j+ |. x& w; u- m2 I& G! N
RowBox[{"57", ",", "2"}], "]"}], ",",
7 g4 `+ B: S0 y1 Y# H8 g RowBox[{"CM", "[",
/ ]% Z8 c3 D) i RowBox[{"57", ",", "3"}], "]"}], ",", - W+ k* t* S4 ?0 @7 @1 w
RowBox[{"CM", "[", p4 L$ y3 _/ \& C. G: ^
RowBox[{"57", ",", "4"}], "]"}], ",",
9 }( T. V4 x2 d/ Y) G RowBox[{"CM", "[",
& H( I* O5 ]+ ?- }* N* Y7 q RowBox[{"57", ",", "5"}], "]"}], ",", / d+ ]- n' q+ v0 s# D
RowBox[{"CM", "[",
6 l" R+ ~1 `2 ~3 x" ^ RowBox[{"57", ",", "6"}], "]"}], ",",
1 D9 O- \" b$ _8 z* f7 s7 s3 [ RowBox[{"CM", "[",
: `* u# z7 ^6 i3 Q# j( z7 D RowBox[{"57", ",", "7"}], "]"}], ",", / e5 K0 Q: } O
RowBox[{"CM", "[",
# u- R3 `6 p# R* f1 K' c RowBox[{"57", ",", "8"}], "]"}], ",", % S+ o" F: @* W3 ~2 G1 x6 T
RowBox[{"CM", "[", v1 M( q, d% [' K
RowBox[{"57", ",", "9"}], "]"}]}], "}"}], ",", , k4 `, ^ G2 A. l1 a' D+ q
RowBox[{"{", . Q$ f) b6 F- {+ M2 n9 G
RowBox[{$ G- s) P( S& G* \& M/ N
RowBox[{"CM", "[",
2 [7 m p: e& \9 I; E RowBox[{"58", ",", "1"}], "]"}], ",",
" q. w6 V |0 J+ i4 r RowBox[{"CM", "[",
/ B4 i& t/ \2 j! E7 B1 E$ ` RowBox[{"58", ",", "2"}], "]"}], ",", 9 S! l$ f5 |8 b* {# X4 @# p. p9 V
RowBox[{"CM", "[",
0 S/ H2 h; j8 h3 e* v RowBox[{"58", ",", "3"}], "]"}], ",",
c2 P7 F7 `9 |6 m e8 [ RowBox[{"CM", "[", 4 e% w: g2 m+ ~& b1 d
RowBox[{"58", ",", "4"}], "]"}], ",",
7 m4 s+ o: y0 j/ u; g RowBox[{"CM", "[",
& p+ v O r7 |/ l5 J RowBox[{"58", ",", "5"}], "]"}], ",",
2 U$ V% t9 \: V& J/ p, |! b RowBox[{"CM", "[",
2 a- @4 [- Q8 x9 m( { RowBox[{"58", ",", "6"}], "]"}], ",",
. l0 d, ^! l! n7 j9 K. o1 r RowBox[{"CM", "[",
+ w0 r2 ?/ w6 S" x, d: } RowBox[{"58", ",", "7"}], "]"}], ",",
g: v% v/ t& I. E4 ]: p RowBox[{"CM", "[",
$ F3 d0 n5 K; H3 Y# f3 [0 W& ^ RowBox[{"58", ",", "8"}], "]"}], ",",
3 Y, X2 y7 ?+ T' ~% J ^ RowBox[{"CM", "[", ( W+ H$ p# a% C' i" ~
RowBox[{"58", ",", "9"}], "]"}]}], "}"}], ",", % p( Z0 `8 B Y F# D
RowBox[{"{",
* U0 B- a( Q+ y" |3 { RowBox[{
f a/ ?# G. F8 ]$ R# C n9 h$ M/ |% G RowBox[{"CM", "[", # ~0 i# _( @9 |
RowBox[{"59", ",", "1"}], "]"}], ",", ' ^9 G6 W9 |" ~0 Y7 O2 p
RowBox[{"CM", "[",
G$ R7 r" k, H: y- ~ RowBox[{"59", ",", "2"}], "]"}], ",", ; _ f" o, d# o$ A5 \
RowBox[{"CM", "[", , p2 K6 Z( l% K$ Q" ?
RowBox[{"59", ",", "3"}], "]"}], ",", 3 ^- s! b. T' u' W
RowBox[{"CM", "[",
, c0 j/ r. T0 J: u5 ~, B( W2 V RowBox[{"59", ",", "4"}], "]"}], ",", # }( s* \; K( H! u/ ~
RowBox[{"CM", "[", 4 A) q0 @2 x7 ^# |) q: }% d3 {
RowBox[{"59", ",", "5"}], "]"}], ",",
D8 V: {8 Q. M2 d/ ] D- q( t RowBox[{"CM", "[", ( g( ~5 ^( {1 B+ Y
RowBox[{"59", ",", "6"}], "]"}], ",",
0 t1 A7 p, P/ o9 r8 w5 T u RowBox[{"CM", "[",
" P8 q! i& k9 e2 W) z: H RowBox[{"59", ",", "7"}], "]"}], ",", $ |8 `' R) e( [6 ~6 `
RowBox[{"CM", "[", $ [9 M5 J8 ^; C1 l
RowBox[{"59", ",", "8"}], "]"}], ",",
2 O3 U; i. ^' i c2 R1 X1 A1 | RowBox[{"CM", "[",
4 b+ ~, v. Y) L0 {, b7 x% o; Q0 | RowBox[{"59", ",", "9"}], "]"}]}], "}"}], ",",
2 B! U, F. {- p6 I% U* p$ F RowBox[{"{", $ G2 K$ u0 }* |+ W( ?1 I) Z
RowBox[{
$ e: u/ @/ n+ @% u% x; q' ?. L RowBox[{"CM", "[", # n8 \* r/ `; e% }- o" A
RowBox[{"60", ",", "1"}], "]"}], ",", 8 q* l4 [( R+ s( W
RowBox[{"CM", "[", * ^$ ^2 v" o, t3 s; I% Z
RowBox[{"60", ",", "2"}], "]"}], ",",
9 K2 R3 @" m8 D; {' D2 b RowBox[{"CM", "[", ) B' L0 C, q, w% B( S) q
RowBox[{"60", ",", "3"}], "]"}], ",",
4 f$ R* G* s: } RowBox[{"CM", "[", . U0 V, s. c3 k+ U; U- I* h' z
RowBox[{"60", ",", "4"}], "]"}], ",",
3 R5 s" s* m6 \ RowBox[{"CM", "[", ! ?( g* B& Y2 T8 c: E, \& j
RowBox[{"60", ",", "5"}], "]"}], ",",
; @0 A" }+ E! [% L3 j9 E# Z RowBox[{"CM", "[",
" x+ V; q, ^, }' W4 j RowBox[{"60", ",", "6"}], "]"}], ",", & M* u U0 x2 b+ n
RowBox[{"CM", "[",
% J7 s" w% M. S RowBox[{"60", ",", "7"}], "]"}], ",",
- e3 f& D/ \1 p9 }& m: y RowBox[{"CM", "[",
2 q% w$ v& P: o4 T. S RowBox[{"60", ",", "8"}], "]"}], ",", ) p- t$ E; w- N' A" | h
RowBox[{"CM", "[",
' z9 J# F3 ?$ O$ Q RowBox[{"60", ",", "9"}], "]"}]}], "}"}], ",", / m7 D1 O% z9 j: H! e6 R4 {
RowBox[{"{", % I+ Y9 v! Q4 M' }; t8 |
RowBox[{4 z0 y' i3 E9 b$ b6 z4 v
RowBox[{"CM", "[", 0 n0 M; v1 \+ }/ `" f& s
RowBox[{"61", ",", "1"}], "]"}], ",", 8 \% N! _/ v+ `& ]" J5 B( ?' j' F0 W
RowBox[{"CM", "[",
& B+ s$ B9 T* i$ ?$ f* e& G RowBox[{"61", ",", "2"}], "]"}], ",", * \& r0 {; D! r$ ]* }7 ]7 N/ \
RowBox[{"CM", "[",
/ d! V* n) Q% o& p1 v3 Q8 `4 G, z1 S RowBox[{"61", ",", "3"}], "]"}], ",",
& o( ]8 e2 _2 z+ r; C/ B* p RowBox[{"CM", "[",
6 o/ g" v' ]3 h" ~+ l RowBox[{"61", ",", "4"}], "]"}], ",", o1 V6 P Z0 M' E+ I2 p; a
RowBox[{"CM", "[", / H+ Q1 E' x9 o) L7 W2 S; o3 `
RowBox[{"61", ",", "5"}], "]"}], ",", ! b" \, N, U2 ]
RowBox[{"CM", "[", & {: {5 t" T9 u4 _7 z; s
RowBox[{"61", ",", "6"}], "]"}], ",",
7 [( I/ k3 f* D+ V" y1 r; Z. } RowBox[{"CM", "[",
% N3 K! f# C. ^) m RowBox[{"61", ",", "7"}], "]"}], ",", 9 I6 E. X) |" g3 W4 l( _6 Y
RowBox[{"CM", "[",
( p2 ^ T$ G9 Q RowBox[{"61", ",", "8"}], "]"}], ",", + _; m3 P5 O: ?7 N, @1 I, H
RowBox[{"CM", "[", 9 V& V0 f; r+ X
RowBox[{"61", ",", "9"}], "]"}]}], "}"}], ",",
. Z: y+ _! }* r/ D RowBox[{"{",
# T1 H: G$ _1 t RowBox[{
" B7 i7 C; O% J RowBox[{"CM", "[",
/ u5 l8 E/ T- m2 B2 L3 F RowBox[{"62", ",", "1"}], "]"}], ",", + T$ I/ J6 o) I- M
RowBox[{"CM", "[", " R! \+ P; ]" ~2 b( ^
RowBox[{"62", ",", "2"}], "]"}], ",", 9 L' b; d$ P) U
RowBox[{"CM", "[", 8 L" M" N- s$ [6 E. ~
RowBox[{"62", ",", "3"}], "]"}], ",", ; |- l" }9 W% d5 w
RowBox[{"CM", "[", 3 E' T3 o! H0 n; e- \8 S" ?1 A
RowBox[{"62", ",", "4"}], "]"}], ",",
- N) G2 {( r5 z M# Z RowBox[{"CM", "[",
K4 @3 `, x8 r1 m8 V; ~ RowBox[{"62", ",", "5"}], "]"}], ",", , p& f+ g+ V4 U( \* N
RowBox[{"CM", "[", / N+ x( R. R9 t! h5 C% Q
RowBox[{"62", ",", "6"}], "]"}], ",", 4 |8 J/ L. N/ A* T; P' H
RowBox[{"CM", "[",
2 c# m* \; o ~9 u RowBox[{"62", ",", "7"}], "]"}], ",", . ?$ A+ Y/ H% b2 R. _- R5 C: K9 w
RowBox[{"CM", "[", ' t7 H! z1 r. I; B
RowBox[{"62", ",", "8"}], "]"}], ",", I+ m v6 C) m2 h7 m
RowBox[{"CM", "[", $ Z9 P3 m. l' |! E, p
RowBox[{"62", ",", "9"}], "]"}]}], "}"}], ",", 9 w& m5 F, _+ `; Z+ T2 O0 M- Q
RowBox[{"{", % `' P3 ~( a% B! @" K/ L* m8 [
RowBox[{5 A' _5 |7 w' ?- _
RowBox[{"CM", "[", 4 F- P& u* p4 s$ T8 j( ?! ?
RowBox[{"63", ",", "1"}], "]"}], ",",
. z, X0 o3 ^' d0 j RowBox[{"CM", "[", 8 d/ J! @1 K n4 a
RowBox[{"63", ",", "2"}], "]"}], ",",
3 e# l$ V3 `$ [8 b RowBox[{"CM", "[",
5 q8 ~3 K W: F5 Y- ~6 x* ` RowBox[{"63", ",", "3"}], "]"}], ",",
. [& Y8 Y1 i- T" | RowBox[{"CM", "[", # j4 Y; j7 g% K7 N1 T
RowBox[{"63", ",", "4"}], "]"}], ",", ! T5 o/ d7 w/ N6 e$ l( i
RowBox[{"CM", "[",
1 S4 F+ z+ s/ E4 X: C RowBox[{"63", ",", "5"}], "]"}], ",", ! Z# M: \$ e/ l
RowBox[{"CM", "[", ( Z( ]* T- s3 ^
RowBox[{"63", ",", "6"}], "]"}], ",",
0 |. q8 ~3 F# k- H3 i4 A RowBox[{"CM", "[",
2 T5 j0 n9 e3 Y; U' X# l5 p) N RowBox[{"63", ",", "7"}], "]"}], ",",
0 u7 t# B v3 {3 G3 H9 ~3 A RowBox[{"CM", "[", ! ~! X# ?. n/ \: P- ^# v+ u1 X
RowBox[{"63", ",", "8"}], "]"}], ",", 5 |0 p2 |& t. E* n% Q) Z
RowBox[{"CM", "[", 1 f% V$ c- s9 Z6 T
RowBox[{"63", ",", "9"}], "]"}]}], "}"}], ",", " y, j$ d: ~0 W& K
RowBox[{"{", * R+ y6 ?' n9 h! k; q; H# ], z
RowBox[{/ ^( f# G* F( v: A% O
RowBox[{"CM", "[", ; @5 g6 ?8 h! M; K S
RowBox[{"64", ",", "1"}], "]"}], ",",
) t, \6 s" y6 l) o6 A! W: c' ` RowBox[{"CM", "[", 0 B/ }$ i4 S9 z R, z3 u
RowBox[{"64", ",", "2"}], "]"}], ",",
4 v: N/ S5 _) h, q RowBox[{"CM", "[",
9 l. e) @- Y3 y+ v( n RowBox[{"64", ",", "3"}], "]"}], ",", $ N# L. I/ }6 i4 `" C* F
RowBox[{"CM", "[",
9 m/ q( W) w9 S0 ^$ Q$ t/ C1 ? RowBox[{"64", ",", "4"}], "]"}], ",", 6 Y8 c5 y- ]. L, S
RowBox[{"CM", "[",
5 i$ @& O1 ^$ K+ c* ?4 s RowBox[{"64", ",", "5"}], "]"}], ",",
; |, f8 y3 h1 D+ {* C0 L' w! j RowBox[{"CM", "[", # Q) h- f0 X/ }% ?% T. J
RowBox[{"64", ",", "6"}], "]"}], ",",
6 s- p' H, Z8 s! `+ b0 m RowBox[{"CM", "[",
: r1 F' t. f1 Q9 P% F% s% C RowBox[{"64", ",", "7"}], "]"}], ",",
: S% |7 S" N' ^" E; o4 I8 S0 g8 Q RowBox[{"CM", "[", " O# a* D5 o3 L$ H6 t
RowBox[{"64", ",", "8"}], "]"}], ",",
. o( B; L9 Q/ D RowBox[{"CM", "[", 4 I( Q4 w! L) J% p" z, ?
RowBox[{"64", ",", "9"}], "]"}]}], "}"}], ",", & B, W {/ R J' S5 j1 r/ Z5 @3 j
RowBox[{"{",
9 T( ~) Q# e- b; K: }( T RowBox[{
' C- q! t6 d/ P' y, o8 ]0 _ RowBox[{"CM", "[", ( y6 n7 j- b2 O) z, N
RowBox[{"65", ",", "1"}], "]"}], ",",
1 o+ i% E! |( i6 ` RowBox[{"CM", "[", 0 `, H) b9 z2 {
RowBox[{"65", ",", "2"}], "]"}], ",",
; m f0 u8 Z2 ^* D RowBox[{"CM", "[", / L' j1 L5 Y0 z; P1 Z9 M
RowBox[{"65", ",", "3"}], "]"}], ",", # u) y; Y2 E! W, {/ I7 P# F7 s+ O
RowBox[{"CM", "[",
6 U* k; [1 n8 u- `- g RowBox[{"65", ",", "4"}], "]"}], ",",
- A: O1 ]7 [! u+ d6 q5 o5 W: b! f RowBox[{"CM", "[",
& }5 _6 e2 z- e C% B RowBox[{"65", ",", "5"}], "]"}], ",", - ?; X/ A# o/ I y1 A% a' N
RowBox[{"CM", "[",
3 O5 A$ V7 r. p. b RowBox[{"65", ",", "6"}], "]"}], ",", & |: K( r, F! k; y$ H
RowBox[{"CM", "[", ) d+ p, }2 W- P+ S
RowBox[{"65", ",", "7"}], "]"}], ",", 9 t( o5 b( i1 b+ q O2 z9 Q
RowBox[{"CM", "[", . ^% q0 _# a* [1 ~- u
RowBox[{"65", ",", "8"}], "]"}], ",",
6 A# x# z0 c3 n, p RowBox[{"CM", "[", ; f# z4 N0 u0 Z* u8 u0 v' l
RowBox[{"65", ",", "9"}], "]"}]}], "}"}], ",", - W) l9 X: g4 {! s4 ?0 n
RowBox[{"{",
: l9 H8 J" [" ]8 j/ d RowBox[{) z3 B0 q5 @* x, B
RowBox[{"CM", "[",
, D5 b- u9 Q" c$ V9 @3 Y' _ RowBox[{"66", ",", "1"}], "]"}], ",",
# m1 K, D6 }( l RowBox[{"CM", "[",
. Q' |% p8 N. q1 `/ | RowBox[{"66", ",", "2"}], "]"}], ",", e) p) q2 h* V% C& J! P
RowBox[{"CM", "[",
& b. l5 s/ s: T! u7 f! z RowBox[{"66", ",", "3"}], "]"}], ",", . g2 ?* r9 _' K6 d
RowBox[{"CM", "[",
+ v+ {' K4 \5 v, }- a* C% Z" S RowBox[{"66", ",", "4"}], "]"}], ",",
! |# D, X/ c) ] RowBox[{"CM", "[", ; k! [& l: ^- o
RowBox[{"66", ",", "5"}], "]"}], ",",
( w: R( C& C+ g0 v) J: l/ g RowBox[{"CM", "[",
0 k1 t% W" R1 f- x" u RowBox[{"66", ",", "6"}], "]"}], ",", 6 K+ w: K( ~/ Z9 o: e( j& ] P1 f M
RowBox[{"CM", "[",
8 J9 G% Z; j" |- F4 j! ] RowBox[{"66", ",", "7"}], "]"}], ",", - I6 R: i; R* l$ t2 U9 Z- C6 \4 U
RowBox[{"CM", "[", " b2 E6 N& g0 o) o4 g6 Q- @
RowBox[{"66", ",", "8"}], "]"}], ",",
- n3 m+ }8 ? _8 o RowBox[{"CM", "[", ) D& i/ Z+ G6 g/ O- N1 r$ |/ `
RowBox[{"66", ",", "9"}], "]"}]}], "}"}], ",",
: Y: a* Q$ c2 n5 q" h RowBox[{"{",
f. b4 o2 |* @" r RowBox[{
S4 Y( p3 r! \4 I# e; p- d RowBox[{"CM", "[",
6 J. G5 a! `& t; ~ RowBox[{"67", ",", "1"}], "]"}], ",",
" G; t+ K; E6 s/ \# L* W+ J/ E4 A RowBox[{"CM", "[", 9 @4 M. @/ s- c* B# Q% R6 G* ~
RowBox[{"67", ",", "2"}], "]"}], ",", 4 M1 i- R6 x. j
RowBox[{"CM", "[", % A& O2 B1 s* |* O! d3 Z1 l
RowBox[{"67", ",", "3"}], "]"}], ",", L" L4 }- a0 h1 ~0 i
RowBox[{"CM", "[", * m7 f9 K# {' L* c1 r
RowBox[{"67", ",", "4"}], "]"}], ",", & q- \ U2 y* B; E
RowBox[{"CM", "[", ! Y3 l7 p$ N7 M4 ^8 T. s# Y
RowBox[{"67", ",", "5"}], "]"}], ",", & _* L$ M/ m" m7 s$ `: w
RowBox[{"CM", "[", 6 g- Y* I& I5 y# s( e) H
RowBox[{"67", ",", "6"}], "]"}], ",",
+ b5 f0 j. W. ^: x# ]$ m$ w RowBox[{"CM", "[",
. S R/ F' |: `+ V3 Q5 C" E RowBox[{"67", ",", "7"}], "]"}], ",", B! v8 `/ K* p
RowBox[{"CM", "[", ( a8 X5 e( N+ A
RowBox[{"67", ",", "8"}], "]"}], ",", / R" \* L0 E1 b9 \: R
RowBox[{"CM", "[", 2 v; H1 A8 A( V/ A; V+ n2 C9 s' Z
RowBox[{"67", ",", "9"}], "]"}]}], "}"}], ",", # Q( o) X! Z7 X% l& j) v
RowBox[{"{", ! \+ A' H+ K1 X g) _
RowBox[{
1 k; p, n$ n* y' |. r' \- k5 ^ RowBox[{"CM", "[",
+ z/ m$ E4 v1 |, g+ \9 Z RowBox[{"68", ",", "1"}], "]"}], ",", # C p% c- E* x* S3 s
RowBox[{"CM", "[",
6 P" N. H- a; g. S+ u9 Q RowBox[{"68", ",", "2"}], "]"}], ",", 5 W4 l0 D+ [, S+ O: s o$ h1 g
RowBox[{"CM", "[", h# D! ?3 }7 ^% ~# V
RowBox[{"68", ",", "3"}], "]"}], ",",
, ]: N# |2 @" O/ d: }. ?. \ RowBox[{"CM", "[", 9 r/ t- k, u: M5 K7 n0 w
RowBox[{"68", ",", "4"}], "]"}], ",", ; s d0 O0 d1 O4 T. c
RowBox[{"CM", "[",
1 u% d; @) U, H% ~- X/ k' }0 o RowBox[{"68", ",", "5"}], "]"}], ",",
1 W2 ?: N3 i2 ? RowBox[{"CM", "[",
9 n7 b, Z& J0 \6 {$ {1 c0 } RowBox[{"68", ",", "6"}], "]"}], ",",
D* h% Y& N" N6 g5 N" A8 [ RowBox[{"CM", "[", 4 x6 X1 X; t2 l7 ] R7 A6 Y I
RowBox[{"68", ",", "7"}], "]"}], ",",
9 a- D: x( p6 Z RowBox[{"CM", "[",
2 D) V# N" d7 ]+ f( A RowBox[{"68", ",", "8"}], "]"}], ",", ! `% |1 A0 d% d/ r
RowBox[{"CM", "[", ' S2 Y0 \# t! g' d/ V3 h
RowBox[{"68", ",", "9"}], "]"}]}], "}"}], ",", ; z6 e Y, q! C" N% |4 L9 n9 g
RowBox[{"{", # G. C( j: q W
RowBox[{
# W/ X) E9 [8 l- |( E$ T* ^ RowBox[{"CM", "[", $ i7 @. A$ s9 A+ i6 v7 g
RowBox[{"69", ",", "1"}], "]"}], ",",
& \$ C: T; ~# I* s/ C4 f+ j$ a/ v RowBox[{"CM", "[", 2 a+ a3 u' f, |: X+ G% D
RowBox[{"69", ",", "2"}], "]"}], ",",
! M: C) ^4 F/ v8 {$ O8 C RowBox[{"CM", "[",
! `" A7 ]( T( r/ ] RowBox[{"69", ",", "3"}], "]"}], ",",
; _4 B+ i3 k0 @0 S( u: X RowBox[{"CM", "[",
# I& X3 g3 o! M RowBox[{"69", ",", "4"}], "]"}], ",", ; G. o3 ?* ?4 E* L2 o( y& W
RowBox[{"CM", "[",
) q4 { i' _: D, O9 x7 K1 a RowBox[{"69", ",", "5"}], "]"}], ",",
0 H7 |0 ~# P* e2 w- n RowBox[{"CM", "[", ( j) y- ^5 ]/ J2 b! R
RowBox[{"69", ",", "6"}], "]"}], ",", 4 i8 i7 k& h1 c1 @
RowBox[{"CM", "[",
; V6 c# k- u$ k0 n RowBox[{"69", ",", "7"}], "]"}], ",", 7 q3 g# X8 P$ Y; ^ ]$ F: q
RowBox[{"CM", "[",
3 r3 ?/ |/ N$ Z* r RowBox[{"69", ",", "8"}], "]"}], ",", 7 O4 T- g! B$ S6 T6 u2 S/ e
RowBox[{"CM", "[",
, k# z: v d: ?# a( W RowBox[{"69", ",", "9"}], "]"}]}], "}"}], ",", , I4 T0 u6 J" \# D
RowBox[{"{", # b' s& C1 v: j
RowBox[{
2 I5 G& l7 q) W+ _, ] RowBox[{"CM", "[", * V" @% B* n3 j- ^4 O: u2 q
RowBox[{"70", ",", "1"}], "]"}], ",", ) f$ y2 h, P& @4 @# P* M. P% A( P
RowBox[{"CM", "[", - A$ U' l5 y# [! M9 T/ g b
RowBox[{"70", ",", "2"}], "]"}], ",", 0 v. |' @4 d/ y3 A1 I) ~- q: h
RowBox[{"CM", "[",
# I2 P2 R5 [% V: L3 G! Y RowBox[{"70", ",", "3"}], "]"}], ",", , R# J. e4 O: `* { |" l4 k
RowBox[{"CM", "[",
& h Y& _: J5 W3 M M8 t2 y RowBox[{"70", ",", "4"}], "]"}], ",",
/ w$ h. D) F" t4 B" q) t) ^ RowBox[{"CM", "[", * @' c) g5 T" ^) n7 Y5 a/ X* y
RowBox[{"70", ",", "5"}], "]"}], ",",
* X8 M C ]/ ` RowBox[{"CM", "[",
/ d8 E" ~4 ^1 ^" ^/ } RowBox[{"70", ",", "6"}], "]"}], ",", ) ?- _; v) g! E6 j
RowBox[{"CM", "[", 3 Z. Z: u. v$ h. Q6 h; L( p( w
RowBox[{"70", ",", "7"}], "]"}], ",", % B+ H! J& @: U5 j" H3 O* e
RowBox[{"CM", "[",
Y: o2 X' F) X* { RowBox[{"70", ",", "8"}], "]"}], ",", " t: x( w3 [7 {4 J
RowBox[{"CM", "[", ' h* h! w$ w% y
RowBox[{"70", ",", "9"}], "]"}]}], "}"}], ",",
- V* X2 X$ N* a! [' M: b% V RowBox[{"{", 6 J4 M4 ^+ Q; S6 M7 ]) _4 X
RowBox[{" j; j$ q7 g# U% U8 G
RowBox[{"CM", "[",
# j( Z, f) K6 N4 B7 P RowBox[{"71", ",", "1"}], "]"}], ",", 7 X% J# V) t+ u' I, {" {2 i
RowBox[{"CM", "[", & ~+ j8 s/ t- c2 L; b
RowBox[{"71", ",", "2"}], "]"}], ",",
& l/ y- m Y/ [ RowBox[{"CM", "[",
6 {/ b5 W" b& a7 G; ^, g* B8 z* N RowBox[{"71", ",", "3"}], "]"}], ",",
' K. B9 x; k# [6 v- X D, b) K# a, v RowBox[{"CM", "[", # y" @, H: B6 I8 J5 ^+ B' L+ n, W
RowBox[{"71", ",", "4"}], "]"}], ",",
6 u) C' v, Y; Y1 h- N3 \8 S( ^ RowBox[{"CM", "[",
. z ]- M2 D; ?) @ RowBox[{"71", ",", "5"}], "]"}], ",", 4 ~ d9 d# V6 D2 l# J
RowBox[{"CM", "[", ! P0 g/ }( d. h1 S# [
RowBox[{"71", ",", "6"}], "]"}], ",", + \! |+ \1 {# a8 @6 b
RowBox[{"CM", "[", . D! ?5 I6 w, g* {9 j& P& o ^
RowBox[{"71", ",", "7"}], "]"}], ",", / J3 A" ~7 N6 b* _' W l
RowBox[{"CM", "[",
4 e& D; N$ i4 W! F3 W5 \" n0 } RowBox[{"71", ",", "8"}], "]"}], ",", ) l) e$ T0 J% x# o- f4 r& f
RowBox[{"CM", "[",
, k1 q% z# V$ U4 f* ~$ D RowBox[{"71", ",", "9"}], "]"}]}], "}"}], ",", " S. T0 c9 S2 J Y: ~8 G9 Z- @
RowBox[{"{", - v+ h" \1 s0 U: l; e
RowBox[{- f& [' R- T1 f
RowBox[{"CM", "[",
q' @1 U9 Q, f4 L. x RowBox[{"72", ",", "1"}], "]"}], ",", . I* Y* }" `. [" U
RowBox[{"CM", "[",
2 Q+ M% s) ]2 {9 B7 K' f' o RowBox[{"72", ",", "2"}], "]"}], ",", 9 i* | M) J0 ~6 t" h
RowBox[{"CM", "[", 0 {* s" R9 \# x
RowBox[{"72", ",", "3"}], "]"}], ",", C5 g5 L1 \! j: J4 B4 d1 a3 B
RowBox[{"CM", "[",
" ?9 Z( Q3 j% W/ d; a9 T RowBox[{"72", ",", "4"}], "]"}], ",",
( A' B& Y0 M6 e& x5 M RowBox[{"CM", "[",
/ F1 j( ~; z5 x- k RowBox[{"72", ",", "5"}], "]"}], ",",
$ Z [: |7 _0 Q' o. f4 ^- ~ RowBox[{"CM", "[", 0 ~& u- \+ o) Q! M0 p
RowBox[{"72", ",", "6"}], "]"}], ",", E Y9 O1 \6 K6 B X; b
RowBox[{"CM", "[",
% A" Y* }' Y4 c RowBox[{"72", ",", "7"}], "]"}], ",", / P$ f2 z6 N2 ?0 Q( k, J
RowBox[{"CM", "[",
$ B! Y2 P2 ^% m/ l0 L7 b) x RowBox[{"72", ",", "8"}], "]"}], ",",
0 C1 v3 C/ f/ G" f" N RowBox[{"CM", "[",
& J5 i/ I B- ~8 k- J6 q0 o( J8 F RowBox[{"72", ",", "9"}], "]"}]}], "}"}], ",",
: x9 x/ R6 ~5 d8 X k4 w RowBox[{"{",
: t) w( N% Y3 S. W: \1 l RowBox[{
8 r+ ?- n* y; b! m! W RowBox[{"CM", "[",
" Y. r4 A3 ?% J) m8 C RowBox[{"73", ",", "1"}], "]"}], ",", + B+ r7 D3 R* G: Z, d
RowBox[{"CM", "[", / U% c: a! Z) }8 n( y' z
RowBox[{"73", ",", "2"}], "]"}], ",", # {& T& T. _; `3 g* {$ j
RowBox[{"CM", "[", ( {/ k9 |$ |, w7 X
RowBox[{"73", ",", "3"}], "]"}], ",", 0 t& h+ X3 w5 n9 f
RowBox[{"CM", "[", % j, }3 }/ _1 [7 \" P6 s! x
RowBox[{"73", ",", "4"}], "]"}], ",",
$ b. x& y; R6 O RowBox[{"CM", "[",
+ V1 p0 y& m4 B' x: l RowBox[{"73", ",", "5"}], "]"}], ",",
2 P( l/ V9 @( |% [- e* { ` RowBox[{"CM", "[",
2 ?! _1 N& b5 e, B7 Q4 F RowBox[{"73", ",", "6"}], "]"}], ",",
9 w2 \5 d$ P* o3 |& M RowBox[{"CM", "[",
* P' T6 X( a2 e% ? RowBox[{"73", ",", "7"}], "]"}], ",", 8 Q& R$ |6 s9 t: p! ]9 B- H8 M
RowBox[{"CM", "[",
$ m9 j. z) O1 s/ T1 i, T" r RowBox[{"73", ",", "8"}], "]"}], ",",
' \) J# R/ c" Y2 S/ J$ e, } RowBox[{"CM", "[", $ j1 v3 _3 }4 o
RowBox[{"73", ",", "9"}], "]"}]}], "}"}], ",",
2 s- y$ ^5 r7 a$ J7 k& M6 h5 a, U/ M RowBox[{"{", . R1 j( Q: Q" B0 h6 _) v
RowBox[{
7 B5 t6 a* I* {% ?: p( g RowBox[{"CM", "[", 3 p, r" Z6 }% ?
RowBox[{"74", ",", "1"}], "]"}], ",", 2 i4 B, d+ y9 T# E8 i
RowBox[{"CM", "[",
/ D- C' B; H1 y RowBox[{"74", ",", "2"}], "]"}], ",", : I" Y# s4 g; [1 V4 ]8 \ G# _
RowBox[{"CM", "[", 2 Q" F; C( t# ]7 {
RowBox[{"74", ",", "3"}], "]"}], ",",
3 `4 X5 Z }8 e4 p RowBox[{"CM", "[", . q! S1 o: |5 @9 W! \9 d" X
RowBox[{"74", ",", "4"}], "]"}], ",",
2 X- E0 U% s5 `& n3 E% g) E RowBox[{"CM", "[",
7 A) F: q5 A1 f# I8 G, O3 y RowBox[{"74", ",", "5"}], "]"}], ",",
$ O) j* g" ]% V, B& j3 ] RowBox[{"CM", "[", : v1 _/ t; m0 p
RowBox[{"74", ",", "6"}], "]"}], ",",
# J4 O# ]2 O+ a7 v% o2 \0 J( T RowBox[{"CM", "[",
8 n( d9 ~3 }$ a2 H0 s" B RowBox[{"74", ",", "7"}], "]"}], ",",
* a; r& c) ?* }" C; F RowBox[{"CM", "[", ( i0 w6 B; U. y. N% }! M! s1 R/ P
RowBox[{"74", ",", "8"}], "]"}], ",",
" F( C6 P5 w* [/ e RowBox[{"CM", "[",
1 T& h8 R0 R* A V RowBox[{"74", ",", "9"}], "]"}]}], "}"}], ",",
6 o( S% N" N5 W; m! y) ^ RowBox[{"{", + J/ D4 p9 k- P+ T
RowBox[{' t3 _; t% H# L7 c6 z9 q2 s v5 [3 {
RowBox[{"CM", "[", 2 [, c9 o: l4 k" v6 U& Z; U, D$ @/ N; v
RowBox[{"75", ",", "1"}], "]"}], ",", 8 m7 P ?. g1 ~7 B" l
RowBox[{"CM", "[",
/ B6 h* _6 n' ] RowBox[{"75", ",", "2"}], "]"}], ",",
5 r4 |% T8 Z" N% a. V RowBox[{"CM", "[", 2 v/ ]3 X8 H. g; S1 |+ i' y8 ~, s8 C- ~
RowBox[{"75", ",", "3"}], "]"}], ",", 8 K n0 X9 X4 V
RowBox[{"CM", "[", " `& C [9 H1 q8 S/ w) C
RowBox[{"75", ",", "4"}], "]"}], ",",
2 d+ v2 X2 A% x1 ~ RowBox[{"CM", "[",
9 X* t$ G; U( ]; `" s; F0 ^# c RowBox[{"75", ",", "5"}], "]"}], ",", 6 `6 |4 _" U8 m! n+ R0 I% H& m
RowBox[{"CM", "[", 3 |+ K: v3 ~/ P* V8 n6 s; b2 w
RowBox[{"75", ",", "6"}], "]"}], ",",
' i! N% v) F0 f# d. R4 r8 E RowBox[{"CM", "[", ) s( `7 P+ H6 x6 _# N
RowBox[{"75", ",", "7"}], "]"}], ",", 2 D7 d1 e4 j" u. ?8 a3 F
RowBox[{"CM", "[",
& B7 L' }# w0 e, o: {$ w RowBox[{"75", ",", "8"}], "]"}], ",",
' _- R. ?5 F8 O4 M2 R RowBox[{"CM", "[",
4 l6 }7 O) }/ S* ]( _ RowBox[{"75", ",", "9"}], "]"}]}], "}"}], ",",
, @5 U6 G1 Q v# M7 z; | RowBox[{"{",
( v$ h: W# z9 m0 o RowBox[{( E! C3 H* S* P. P0 U! P
RowBox[{"CM", "[", ( w2 |/ \; ]7 B& ?% E1 ^
RowBox[{"76", ",", "1"}], "]"}], ",", ' H2 m3 ^+ y5 s) G* a
RowBox[{"CM", "[", : C; m8 o/ B6 R3 c
RowBox[{"76", ",", "2"}], "]"}], ",",
; k( a. O' }. P* A3 Y* U1 R RowBox[{"CM", "[", ' I. O! A/ m/ V: Q1 _, B) a
RowBox[{"76", ",", "3"}], "]"}], ",",
* R/ b P5 ^# `+ D RowBox[{"CM", "[",
( K1 l/ M9 T( Y- B% J* X RowBox[{"76", ",", "4"}], "]"}], ",",
9 v$ Q( x. y. h# ~ RowBox[{"CM", "[", 2 J0 S* d9 w& l4 @
RowBox[{"76", ",", "5"}], "]"}], ",",
- E" f8 O% K! `1 R: k* w4 c+ O+ P. U RowBox[{"CM", "[",
; o! U* P6 I% n8 O& x RowBox[{"76", ",", "6"}], "]"}], ",", \) t7 ]5 m2 H1 p( l" R, y
RowBox[{"CM", "[",
: V9 e! e1 e }3 b8 U; {# W RowBox[{"76", ",", "7"}], "]"}], ",",
) \: ]7 ], w+ I/ V5 y RowBox[{"CM", "[",
- X8 F$ t2 u; I% H# ]& b. y- O+ U RowBox[{"76", ",", "8"}], "]"}], ",",
( W, [2 ^& y) Y1 ~' W0 p! [# t RowBox[{"CM", "[",
4 e% _, {9 q+ P5 s* t; D% d& o RowBox[{"76", ",", "9"}], "]"}]}], "}"}], ",", ' B' u9 W X& R
RowBox[{"{", . i7 v: Y g4 n* v% G& j
RowBox[{4 ^1 k( Y. Q5 c+ n4 x
RowBox[{"CM", "[", 7 g- G3 Y3 O( V7 o' o
RowBox[{"77", ",", "1"}], "]"}], ",", $ w) O7 {2 a: _/ ~' I3 p `
RowBox[{"CM", "[",
& k! [& V! T E RowBox[{"77", ",", "2"}], "]"}], ",", ' l" e$ D. j# Q+ `! b0 m
RowBox[{"CM", "[",
1 R, s0 P. x& T RowBox[{"77", ",", "3"}], "]"}], ",", $ M5 d6 `8 T2 Z" e% q
RowBox[{"CM", "[", 1 H; s* V" \% |# V; B
RowBox[{"77", ",", "4"}], "]"}], ",", 8 S2 S0 F* k+ c( R$ o6 e
RowBox[{"CM", "[", 8 `' w! `4 {8 A* z/ E4 ?5 x: S, f
RowBox[{"77", ",", "5"}], "]"}], ",",
0 R- G0 N; v- @4 i RowBox[{"CM", "[",
- G3 i3 P% h! C- ~* t" X1 C RowBox[{"77", ",", "6"}], "]"}], ",", 4 B) M" `4 }! p5 F4 u
RowBox[{"CM", "[",
+ t; w; S' K( p+ Y( u) V) a RowBox[{"77", ",", "7"}], "]"}], ",", % _# B8 i+ m8 j/ a" ^
RowBox[{"CM", "[",
5 m) S, w# g8 [7 }( s9 v8 V0 P& q# M RowBox[{"77", ",", "8"}], "]"}], ",",
) m r9 B- L: f% l1 l1 K X( [ RowBox[{"CM", "[", ( j' A3 ^4 _* } G0 x$ |( K
RowBox[{"77", ",", "9"}], "]"}]}], "}"}], ",",
& t3 D z( v- A- v RowBox[{"{",
7 G. ^9 k) d; L* j7 i RowBox[{- z8 H2 [- J" q- @" b
RowBox[{"CM", "[", ) F4 \# b- |6 u
RowBox[{"78", ",", "1"}], "]"}], ",",
2 V# R" b6 j, }$ O2 B1 ~% \ RowBox[{"CM", "[",
7 T4 w" N$ W' z9 b RowBox[{"78", ",", "2"}], "]"}], ",", ; t% Q5 R: g% v3 n7 R7 Y8 D
RowBox[{"CM", "[",
8 R8 i! ^8 M+ M5 A RowBox[{"78", ",", "3"}], "]"}], ",", # |7 \/ E5 F5 n, Y1 G9 V- I5 j% y- Y
RowBox[{"CM", "[", ! h3 [: C2 S6 _/ Y# a# S
RowBox[{"78", ",", "4"}], "]"}], ",",
8 _7 r- y/ X: F t" q RowBox[{"CM", "[",
! _: J& Q* ~% e RowBox[{"78", ",", "5"}], "]"}], ",",
" v, {4 ]3 p2 D, [ RowBox[{"CM", "[",
: L8 [/ y) f# H; ` V0 P, Y RowBox[{"78", ",", "6"}], "]"}], ",",
7 b( A% e' t# z RowBox[{"CM", "[", ! e1 D! \9 F1 T2 l& c5 ^$ b
RowBox[{"78", ",", "7"}], "]"}], ",",
/ @ u% o& D: G' v3 S. {% C RowBox[{"CM", "[",
% m* W4 A2 Z0 M/ Q5 i% U RowBox[{"78", ",", "8"}], "]"}], ",",
7 t, g8 `9 j- B2 Y& u RowBox[{"CM", "[",
# R5 V+ L1 z" | I- K1 U RowBox[{"78", ",", "9"}], "]"}]}], "}"}], ",", ) `+ l& U% V$ {( Y6 T
RowBox[{"{", 0 {1 F6 ~6 O6 {1 ?0 Q
RowBox[{) t# |4 P2 {0 {
RowBox[{"CM", "[",
b6 F$ z3 z5 \; K u& ]4 p0 x3 s RowBox[{"79", ",", "1"}], "]"}], ",",
+ j1 _8 I0 T9 ^. Q. o. s1 p X" i RowBox[{"CM", "[", # l- r; N1 Y3 n- h* s+ ]
RowBox[{"79", ",", "2"}], "]"}], ",",
* d7 S2 L2 G5 ? RowBox[{"CM", "[", 9 [+ ]; }( ~ I1 b6 k+ I
RowBox[{"79", ",", "3"}], "]"}], ",", N' o$ }3 A1 x( R
RowBox[{"CM", "[", : I4 r N$ I8 I# S$ I2 c
RowBox[{"79", ",", "4"}], "]"}], ",",
7 A2 ]' \" z+ [7 g& p, l- X! Y RowBox[{"CM", "[",
" u+ V' c/ ?' J+ q# y: C RowBox[{"79", ",", "5"}], "]"}], ",", : S% ~. S8 P9 d$ K2 j9 r0 d9 y
RowBox[{"CM", "[", $ g( ^& @& u) Q
RowBox[{"79", ",", "6"}], "]"}], ",",
* m- B1 u0 ~5 X; A+ v RowBox[{"CM", "[", : v- L1 v9 r) l1 U# F
RowBox[{"79", ",", "7"}], "]"}], ",",
* q T7 W5 m3 p, K RowBox[{"CM", "[",
% u3 \. G8 T6 r1 {! @ RowBox[{"79", ",", "8"}], "]"}], ",", * G1 v" `( m9 |/ O
RowBox[{"CM", "[",
% ?; Y: Q: b, Q7 L& G RowBox[{"79", ",", "9"}], "]"}]}], "}"}], ",", 0 `8 t4 w. | C4 {4 Y2 z. o6 A
RowBox[{"{",
( `& r- `5 r: Z" @ RowBox[{
2 n# N% H' ~) \2 H, R& N: t7 U! u RowBox[{"CM", "[", . z- O! K& K+ E- t6 @
RowBox[{"80", ",", "1"}], "]"}], ",", - n3 ^' P: `( F* ^1 l
RowBox[{"CM", "[",
4 Y7 W# y; v* y6 M" B2 C" g RowBox[{"80", ",", "2"}], "]"}], ",",
1 O) T+ T- |2 |1 t- f& T3 ~$ Q W RowBox[{"CM", "[", ' p4 f) p& P% E9 `( B& X; O
RowBox[{"80", ",", "3"}], "]"}], ",", ' @. I! o `' _6 U
RowBox[{"CM", "[", , j' y+ _: V* K* X2 y o) G
RowBox[{"80", ",", "4"}], "]"}], ",",
9 {+ D6 \' B0 q" I0 w4 s RowBox[{"CM", "[", + V& J9 A5 y5 a
RowBox[{"80", ",", "5"}], "]"}], ",", * i ^9 w$ h8 N5 H
RowBox[{"CM", "[",
; S! k7 T, w; K6 H' |- p3 Y: U3 z# ` RowBox[{"80", ",", "6"}], "]"}], ",",
! Y7 Z% R7 q+ H) J6 ?' `/ R* r+ h- I RowBox[{"CM", "[",
2 A0 V3 I. Z( i2 d. | RowBox[{"80", ",", "7"}], "]"}], ",", 1 ]0 z0 j, b; g- t3 N
RowBox[{"CM", "[", " J2 J: {" q: X7 i2 X0 l' N2 p% T/ }" [* f
RowBox[{"80", ",", "8"}], "]"}], ",",
6 o! R+ l* n* p/ `( I2 t1 E RowBox[{"CM", "[", ) m' |+ a [. \3 w+ H
RowBox[{"80", ",", "9"}], "]"}]}], "}"}]}], "}"}]], "Output",: w" [) u( E, V, B# c# d
CellChangeTimes->{3.577844244140625*^9, 3.57784429425*^9, 3.577847845125*^9, " @/ u8 j. {# q; J) S I
3.57791322703125*^9, 3.577957088820712*^9, 3.5779605002346992`*^9,
. _$ m# ^& T) M, `' M1 a$ W# O 3.578012145828125*^9}]
; Q1 T5 G, W0 E& W' ]}, Open ]],
3 A( `1 @- q$ ?8 z; Z8 }6 y
7 T# l& }0 n$ |8 Y2 [7 QCell[BoxData[8 L) e; [5 g- a, |! L4 `! c' I" b
RowBox[{"For", "[", 2 i2 K! o- J0 f& c
RowBox[{2 K4 ]. `5 m( C
RowBox[{"i", "=", "1"}], ",", ( |1 C, R1 }7 U
RowBox[{"i", "\[LessEqual]", "9"}], ",", 7 P% |% W. {4 k% {# v9 o
RowBox[{"i", "++"}], ",", "\[IndentingNewLine]",
$ O3 W& Y$ c, y# W8 D( }; U& g6 y RowBox[{"For", "[", # M; ]" s% I6 ]' z& I. g
RowBox[{3 n i( |( b: z( ^. z
RowBox[{"j", "=", "1"}], ",", 1 s5 u2 [1 n7 k+ X5 e6 D
RowBox[{"j", "\[LessEqual]", "80"}], ",",
* ` K1 I* g8 P0 a RowBox[{"j", "++"}], ",", "\[IndentingNewLine]", . p0 ^3 s8 [6 A1 O
RowBox[{* g! D1 ]# _1 A
RowBox[{
# f# J b3 w8 z9 h6 l RowBox[{"CM", "[", / A% n! j3 |4 s
RowBox[{"j", ",", "i"}], "]"}], "=", "0.0"}], ";"}]}], " ]& l9 s; F& f7 l4 F$ v
"\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", "]"}]], "Input",
% v$ h& `" S5 K/ y* | CellChangeTimes->{{3.5779132504375*^9, 3.577913285203125*^9}}],
1 a' _5 w) H( P5 p, Q4 w/ g
$ u7 A. R+ o" [; U4 HCell[BoxData[
" e. s2 l9 o- F5 _$ }4 M" N5 q( S RowBox[{"For", "[",
; h- S4 k8 }& N RowBox[{
- @$ E: H7 z% X7 S: D" t3 b: p. \ RowBox[{"i", "=", "1"}], ",", P" T. X: u" x& w/ w: @/ w
RowBox[{"i", "\[LessEqual]", "9"}], ",",
% Q. u; m4 {8 w; p$ x RowBox[{"i", "++"}], ",", "\[IndentingNewLine]",
8 g# V- U5 N( @! A d3 ^; ~- Q RowBox[{
4 i& \' t1 ^/ b5 D) t2 j$ S9 P7 n RowBox[{; l/ W% _: a/ ^2 G8 ^
RowBox[{"CM", "[",
. M s7 K8 n8 {5 e; e RowBox[{"1", ",", "i"}], "]"}], "=", 2 ]$ a" G, W5 Q0 g9 p
RowBox[{"Data", "[",
& }% ]+ \5 K9 r, b RowBox[{"[", ' g6 ^( g/ P: H
RowBox[{"1", ",", "i"}], "]"}], "]"}]}], ";"}]}], 9 o, b! ]$ @: `! l( ^1 m/ o( y
"\[IndentingNewLine]", "]"}]], "Input",
8 w# H a0 I7 w$ S5 e5 j8 ` CellChangeTimes->{{3.577844179875*^9, 3.577844181703125*^9}, {; j7 G1 [" m7 f# C
3.577844217765625*^9, 3.5778442320625*^9}, {3.57784429953125*^9,
5 X3 y5 A: h' A! N+ c" o) ]' [+ ] 3.577844347875*^9}, 3.57791328640625*^9, 3.57791338828125*^9,
8 ^' k, w! `$ D# g; R' R 3.57791344209375*^9, 3.5779588070933466`*^9}],
7 Z. [* v9 ^$ K3 V
% j2 F; \6 D% c* i/ X& F2 iCell[CellGroupData[{
: o2 H) S3 }( G2 P; j
/ Z) N- H3 z, q, w w, hCell[BoxData[{4 \& M$ _! `% ]
RowBox[{"r0", "=", "0.2"}], "\[IndentingNewLine]",
7 ~2 @% }/ M0 y7 ? RowBox[{"M1", "=", "1"}]}], "Input",
v, `+ [; a& \ CellChangeTimes->{{3.577844361578125*^9, 3.57784436678125*^9}, {9 x1 v0 B7 m9 V9 D+ H8 C' W' y
3.5778457908125*^9, 3.57784580253125*^9}, {3.57784602534375*^9, ! L5 O1 C9 Z' o3 U+ Y0 Z
3.577846109453125*^9}, {3.57784617128125*^9, 3.57784619321875*^9}, {, M2 y" u+ j; _, }/ j
3.577846583984375*^9, 3.577846620984375*^9}, {3.577846653203125*^9, Y# t6 h3 P/ I
3.577846691984375*^9}, {3.577846779953125*^9, 3.577846794921875*^9}, {- \9 L7 Y$ m5 R, S
3.5778470791875*^9, 3.577847088921875*^9}, 3.577847409671875*^9, {
( R1 o+ ~5 Q; O r: i# {- C 3.577847477203125*^9, 3.577847523203125*^9}, {3.577847586484375*^9,
9 W# P* l' Y! i5 c7 Z 3.577847600640625*^9}, {3.577847649140625*^9, 3.57784770196875*^9}, {# n1 P$ O: o' [1 Q5 s2 X
3.57784774896875*^9, 3.57784776490625*^9}, 3.577847981546875*^9, {0 d$ V) Q/ X( m( r0 G- U
3.577913312890625*^9, 3.577913360109375*^9}, {3.577919262828125*^9, X" S4 g; `# @" H
3.5779193133125*^9}, 3.577919388484375*^9, 3.5779605095479155`*^9}],
; K8 |; M: H: E. I
* M* ^7 G* f: r ]; wCell[BoxData["0.2`"], "Output",
: N$ ?0 |; `) s5 V CellChangeTimes->{8 U1 C+ P1 S& t& A2 A* f
3.57784436821875*^9, 3.577845806375*^9, {3.57784603053125*^9, 6 E& E9 p! J! _6 z2 \
3.57784611128125*^9}, {3.577846174328125*^9, 3.57784619575*^9}, {
7 u. U1 d ~0 Q$ _9 H7 q$ N8 L0 g 3.577846575515625*^9, 3.57784662446875*^9}, {3.577846655421875*^9, 4 R5 X% d) o/ L- [9 @
3.577846694828125*^9}, {3.577846773609375*^9, 3.577846802171875*^9}, {
& N% e0 c; w8 t+ L/ p2 F9 K 3.577847068765625*^9, 3.577847134203125*^9}, {3.577847398859375*^9,
: V: j" A1 v9 i; @ 3.5778475331875*^9}, {3.577847581359375*^9, 3.577847611953125*^9}, {
% i3 o) v: B6 E6 ?7 l5 S 3.57784767515625*^9, 3.57784770903125*^9}, {3.577847751453125*^9,
7 s* j. W u6 G5 _ 3.5778477734375*^9}, {3.577847849671875*^9, 3.577847869046875*^9}, {
" ?- F) ^( ] l3 A1 I O 3.57784795690625*^9, 3.57784798321875*^9}, {3.5779132940625*^9,
e5 ^3 t- S, N! n; l6 E6 l4 D 3.57791340575*^9}, 3.5779134450625*^9, {3.577919266859375*^9, ; i9 q, n' e0 b% f
3.5779193165*^9}, 3.577919391265625*^9, 3.577919455125*^9,
, I. O T# g9 g9 A' r' l- R7 b% A 3.577920297984375*^9, 3.5779570945615225`*^9, 3.5779588145501595`*^9, 0 {$ G. W+ @, Y
3.577960510686717*^9, 3.578012149296875*^9}],6 t3 K7 w3 v0 Q+ ?+ G
9 u# t1 t# @$ y9 k$ {% i: a* i; lCell[BoxData["1"], "Output",' q8 {- f% i9 I0 |5 I4 c
CellChangeTimes->{
" m# }# x! e( `" D9 Y, J+ P& T 3.57784436821875*^9, 3.577845806375*^9, {3.57784603053125*^9,
; T" s+ C) c3 O* x: T 3.57784611128125*^9}, {3.577846174328125*^9, 3.57784619575*^9}, {
$ z" F2 K; S8 g9 A 3.577846575515625*^9, 3.57784662446875*^9}, {3.577846655421875*^9,
$ q: }1 v) G. v5 ~7 h0 ? 3.577846694828125*^9}, {3.577846773609375*^9, 3.577846802171875*^9}, {
0 K+ }% T* w/ ^2 w# g5 V2 @6 F 3.577847068765625*^9, 3.577847134203125*^9}, {3.577847398859375*^9, : \4 j3 ^0 L, A+ ~
3.5778475331875*^9}, {3.577847581359375*^9, 3.577847611953125*^9}, {5 ]: {9 W+ M5 Q5 a! Z
3.57784767515625*^9, 3.57784770903125*^9}, {3.577847751453125*^9, 0 I. Z- X% E v# R( c+ P4 N
3.5778477734375*^9}, {3.577847849671875*^9, 3.577847869046875*^9}, {/ k6 i+ \9 F% r. U% `1 O5 }
3.57784795690625*^9, 3.57784798321875*^9}, {3.5779132940625*^9, ' ?5 k( |/ a# C% S9 p9 t
3.57791340575*^9}, 3.5779134450625*^9, {3.577919266859375*^9,
/ @' g! V- u d# B 3.5779193165*^9}, 3.577919391265625*^9, 3.577919455125*^9,
' g- B5 R- j/ n \/ f 3.577920297984375*^9, 3.5779570945615225`*^9, 3.5779588145501595`*^9,
, i7 @! t! y3 d& y 3.577960510686717*^9, 3.578012149296875*^9}]3 J% H* Q! }; N% C2 ]7 d7 n% o
}, Open ]],
5 z3 G: R: j' S1 q9 \: ^2 Z% ]+ R6 ]9 j+ i" m& E
Cell[BoxData[
! C# n1 j6 }/ M1 T2 L RowBox[{"For", "[",
% V" E7 M+ j A9 Q2 f1 u" F RowBox[{
& L3 I% S5 p- \9 s* u. \; o RowBox[{"k", "=", "2"}], ",",
6 e" S V0 O7 {5 I8 K. J! N: M RowBox[{"k", "\[LessEqual]", "60"}], ",",
0 g; b: z! m! z! V" { RowBox[{"k", "++"}], ",",
* S1 K; x6 R: S0 G9 o RowBox[{"{", "\[IndentingNewLine]", 3 B) X' R6 m5 p7 o
RowBox[{; Z m& q1 q9 E1 f* f
RowBox[{"rmin", "=", "0.0"}], ";", "\[IndentingNewLine]",
# q2 x- m/ X) t6 I$ k' O0 i RowBox[{"For", "[", ( j! [/ |" ~* q
RowBox[{
+ k- z8 ]6 z( u8 x. R! u RowBox[{"j", "=", "1"}], ",",
! M7 V9 j" B- K, Q H3 A3 V/ B RowBox[{"j", "\[LessEqual]", ; f. d2 @3 y, [, x; s% h. y/ S
RowBox[{"k", "-", "1"}]}], ",",
4 Z) J* D7 j9 K( @: E" M1 X8 Z RowBox[{"j", "++"}], ",", Y1 F6 Q$ T6 r# L: d
RowBox[{"{", "\[IndentingNewLine]", - L$ G2 Z/ ? D, V4 V0 V
RowBox[{
( O4 w- H6 Z" [: r RowBox[{"r1", "=", "0.0"}], ";", "\[IndentingNewLine]",
, T) I; V1 D5 g* _% S RowBox[{"For", "[",
+ f6 f$ @% i* l" N3 h$ g RowBox[{
. e+ g/ h2 x1 ]& u& V5 m RowBox[{"i", "=", "1"}], ",",
/ D* Y4 h8 p1 d2 O0 q- m1 }$ O8 \6 e' h RowBox[{"i", "\[LessEqual]", "9"}], ",",
* @+ }6 y9 D2 ^1 f2 M1 x RowBox[{"i", "++"}], ",", "\[IndentingNewLine]",
! n( M$ z' z7 h, w RowBox[{
) ?: W' L' E# ^$ i6 p RowBox[{"r1", "+=",
' }1 A) q9 B3 ? RowBox[{
; C0 z T" ?, Z T RowBox[{"(",
4 C$ A; K: U. e' z1 c2 J6 d RowBox[{
2 F1 l: V) `" M" {) E' f* T RowBox[{"CM", "[", 6 w. z* P6 X; b
RowBox[{"j", ",", "i"}], "]"}], "-",
; x- v& x+ k7 M+ u/ c RowBox[{"Data", "[",
9 `2 s7 V+ ]% F0 e* Y C RowBox[{"[",
' y _, W. j- I* ^4 M RowBox[{"k", ",", "i"}], "]"}], "]"}]}], ")"}], "*",
% z; [& m7 F( P8 c6 C H7 c) q RowBox[{"(", % F+ ~5 g- K4 }$ n9 y; ^
RowBox[{& H% P! [* j7 X9 y( D U0 o
RowBox[{"CM", "[",
8 |8 e: |' \' W% [- ]$ X3 m RowBox[{"j", ",", "i"}], "]"}], "-", % X, @. d- B" l+ g8 ^8 x5 m
RowBox[{"Data", "[", ( M' z3 o% L, y J, ?. T9 L9 b
RowBox[{"[", 9 g: f# x' {; o8 k$ e2 C/ r
RowBox[{"k", ",", "i"}], "]"}], "]"}]}], ")"}]}]}], ";"}]}],0 @& b7 o% y" l4 L, i
"\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]",
+ B; Q6 y+ j- n9 w RowBox[{"r1", "=", * M5 w: z) |9 k. F1 }& x
RowBox[{"Sqrt", "[", - T# W8 G1 K* w3 B
RowBox[{"r1", "/", "8"}], "]"}]}], ";", "\[IndentingNewLine]", 8 W, z0 m7 a" M/ V- V7 k, B
RowBox[{"If", "[", " ", $ b- Y' K, l. ?
RowBox[{
, D) V. k( H( m8 y& J RowBox[{"j", "\[Equal]", "1"}], ",", ' o/ t' v, D. H7 r& M) a7 I
RowBox[{"rmin", "=", "r1"}], ",", - S/ x- z0 v, o0 c
RowBox[{"If", "[",
5 U% s* N" `( x RowBox[{
, o5 u) U3 q6 C& k4 ]$ O RowBox[{"r1", "<", "rmin"}], ",", 8 a7 B4 k( x- S; t. h
RowBox[{"rmin", "=", "r1"}], ",", A, Y- d) Y+ ~% W: ?7 `
RowBox[{"i", "=", "i"}]}], "]"}]}], "]"}], ";"}],
7 N7 y `$ X7 V% G "\[IndentingNewLine]", "}"}]}], "\[IndentingNewLine]", "]"}], ";",
/ x! C; v. Y# { "\[IndentingNewLine]", 2 V! F5 ]7 }# ]0 u; g4 P
RowBox[{"If", "[",
* L- U' ]+ S3 e# P' d RowBox[{4 {( H0 R: u( ?
RowBox[{"rmin", ">", "r0"}], ",",
+ [( i4 i+ c' E, Q1 i RowBox[{"{", "\[IndentingNewLine]", ( }5 |9 |* g! q/ g% h1 I/ I: q
RowBox[{& I# U/ b7 Y4 o% o3 Z
RowBox[{"M1", "++"}], ";", "\[IndentingNewLine]", * x. y9 c( ~5 e7 v1 p- @
RowBox[{"For", "[", # N% s4 O: ?- I& }
RowBox[{; |& v! m& w+ l- Q- N7 k
RowBox[{"i1", "=", "1"}], ",", " u8 ^* G( |. k' q% O/ b+ K& O* n
RowBox[{"i1", "\[LessEqual]", "9"}], ",", 8 T X* {, O& w w+ _
RowBox[{"i1", "++"}], ",", "\[IndentingNewLine]",
+ N c6 _# a5 ~) f$ t: F8 ] RowBox[{( O1 c p2 A- L3 d* w
RowBox[{/ ?( G6 F& ?6 Y- W
RowBox[{"CM", "[", # o& A! j6 n9 b+ V
RowBox[{"M1", ",", "i1"}], "]"}], "=", ! ?3 n2 n0 o7 o" B3 Y
RowBox[{"Data", "[", 6 X/ y- t* t: g }4 G
RowBox[{"[", 6 q1 W7 y( G* ]0 r$ l
RowBox[{"k", ",", "i1"}], "]"}], "]"}]}], ";"}]}],
$ O4 i3 @: H8 M "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", "}"}], ",", ; x3 H5 h, J% P$ Z+ d" T2 J
RowBox[{"i", "=", "i"}]}], "\[IndentingNewLine]", "]"}]}], {: x" |' i# D" X8 P
"\[IndentingNewLine]", "}"}]}], "\[IndentingNewLine]", "]"}]], "Input",, P' m6 [6 p3 k3 p! X8 {
CellChangeTimes->{{3.577844030515625*^9, 3.577844093140625*^9}, {
* n$ w0 u! W6 z0 {. k 3.577844374484375*^9, 3.577844448265625*^9}, {3.57784448490625*^9,
( v' m) I7 w0 q2 ?# v7 ?5 o 3.577844518609375*^9}, {3.577844553671875*^9, 3.577844611984375*^9}, {( I0 H5 W) _; R& C
3.57784478278125*^9, 3.5778448395*^9}, {3.57784493659375*^9,
- D# Z% p3 L0 B$ i/ j 3.577844964765625*^9}, {3.577845100328125*^9, 3.577845101921875*^9}, {: y& a% U' [7 M2 ~
3.577845269609375*^9, 3.577845304125*^9}, {3.577845421203125*^9,
$ M) J. @; p; V 3.57784542309375*^9}, {3.577845475359375*^9, 3.57784575834375*^9}, {
: i* t: v6 l9 n& y* c/ q- X 3.5778458119375*^9, 3.57784582953125*^9}, {3.5778458803125*^9, % P; t5 U0 p, O. d* [" t
3.57784594859375*^9}, {3.577845984984375*^9, 3.57784598753125*^9}, {$ I' N$ A: b& v
3.577846034546875*^9, 3.577846038390625*^9}, {3.577846303984375*^9,
; {/ x! a* a7 d0 ^( J/ G+ \* t, S 3.577846311921875*^9}, {3.57784637396875*^9, 3.57784644271875*^9}, {* f) |4 u! a* o9 p5 `
3.57784649071875*^9, 3.577846495203125*^9}, {3.577846525859375*^9, 4 [3 u1 e# U5 B) j" O
3.57784654409375*^9}, {3.577846732234375*^9, 3.577846764765625*^9}, {5 s8 u+ L4 u0 _0 T% b
3.577847031171875*^9, 3.577847033453125*^9}, {3.577847388296875*^9,
: P4 g4 T3 p/ A% ` 3.57784739490625*^9}, {3.5778475661875*^9, 3.577847571375*^9}, {
9 \. w7 x7 V G0 u0 x. Y 3.577847651921875*^9, 3.577847669046875*^9}, {3.57784793653125*^9, - y& p6 @! ]5 Z2 g0 A, L3 G
3.5778479520625*^9}, 3.577920065921875*^9, {3.5779588175765653`*^9, " n* ~( c1 G6 z; Q. X0 n
3.577958821991373*^9}}],: d1 v: c5 m/ f4 J, R0 v L: w
% S6 i/ }4 f* l3 X; HCell[CellGroupData[{$ u2 n6 O2 v- r2 q
8 v9 n% G9 V" U( zCell[BoxData["M1"], "Input",
. \3 r7 z9 o% U+ T CellChangeTimes->{3.57784599821875*^9, 3.57784767159375*^9}],
7 Y; X/ @. }0 d
$ g1 c3 I- x6 G* ^Cell[BoxData["21"], "Output",% j9 t2 h) M0 C8 D+ x
CellChangeTimes->{# ], l( a7 Z- u8 R+ t s
3.577845999015625*^9, {3.577846043078125*^9, 3.577846114078125*^9}, {+ N4 y }2 z' N8 E* t+ n
3.57784617665625*^9, 3.577846198859375*^9}, {3.577846578203125*^9,
( B( E9 W1 t1 h c% S 3.57784669890625*^9}, {3.5778467768125*^9, 3.577846804546875*^9}, {# y/ K0 d' V9 t4 @8 `. `
3.577847071859375*^9, 3.577847137234375*^9}, {3.577847401296875*^9, # ~- U* \! \) V, `/ _5 f- j
3.57784753571875*^9}, {3.577847583625*^9, 3.577847614734375*^9}, {
1 E0 l! ~" c. z8 ` ~ 3.5778476783125*^9, 3.577847711390625*^9}, {3.5778477535*^9, . q$ D' u* z! A$ r8 r3 X
3.577847775859375*^9}, {3.577847852734375*^9, 3.57784787165625*^9}, {
% G" B2 |) r& _- R1 r$ X8 j. i2 d 3.577847966390625*^9, 3.577847986703125*^9}, {3.577913298203125*^9, : `& ]) @, E r2 V& y; x2 E3 }3 { _' @
3.577913408046875*^9}, 3.577913447296875*^9, {3.5779192700625*^9, v+ Y/ ~+ O- _2 Q" K* z2 ?
3.57791931975*^9}, 3.577919394140625*^9, 3.577919458796875*^9, ) H D' s1 y, q
3.577920302703125*^9, 3.5779570980247283`*^9, 3.5779588282469835`*^9,
0 ?* \! B6 \" U0 c! e 3.577960515600726*^9, 3.5780121541875*^9}]
$ \. ^5 A$ E ^. [; _* Y! b! a" ]}, Open ]],6 |) `. s3 o" h3 W
( [9 q: b3 M, A- x+ a0 S1 }
Cell[BoxData[1 [0 I% P7 z7 @9 ^) N- }: D- u
RowBox[{" q/ b: M7 B( e6 _
RowBox[{"\:4ece21\:4e2a\:805a\:7c7b\:4e2d\:5fc3CM", "[", ) _% l7 g, u; T) A+ j8 ?
RowBox[{"1", ",", "i"}], "]"}], 3 J- J6 S+ g# {: ^% g/ }
RowBox[{"\:5230CM", "[", 0 a5 T) v, g2 ~" _
RowBox[{"21", ",", "i"}], "]"}], 9 z7 h/ g2 B b$ [: Q& E9 o
"\:8fd0\:884c\:4e0b\:9762\:7a0b\:5e8f\:ff0c\:5f97\:5230\:9ad8\:65af\:6838\
( W' p& G. A* g3 g' d ~ W; g# I\:51fd\:6570u1\:5230u21"}]], "Input",
, u: y6 e, k* t8 s8 ~+ A CellChangeTimes->{{3.57792097971875*^9, 3.57792107725*^9}, {1 s1 X& N4 i$ V( G- q m( c5 H2 i
3.5779212193125*^9, 3.577921224546875*^9}, {3.5779605210919356`*^9,
8 N$ v6 V% ~/ C# G5 ~' b 3.577960526583145*^9}}],
* y: A5 F% t# f( w$ x( I# P: t7 ^3 W$ l6 r
Cell[BoxData[; A$ g0 F! t/ R! S4 ]( C
RowBox[{"Clear", "[", "Delta", "]"}]], "Input",4 P% ^: m' u1 z1 R5 ^' V" k6 Y' |. ^) ]$ `
CellChangeTimes->{{3.57791779953125*^9, 3.57791780503125*^9}}],
+ f d- Z+ X+ Q' X* v# b3 ?
2 z, [4 f* P+ W3 WCell[CellGroupData[{
[! [8 t7 m4 U2 i( `% M k3 s2 `
Cell[BoxData[
' y0 T1 m- i8 W- U* I RowBox[{"Xa", "=", 0 i. y1 \, o2 P/ s. f9 u
RowBox[{"{",
" y" Z9 g+ J# b7 G RowBox[{6 X. P: @4 ]. Y. C2 e& W
"x1", ",", "x2", ",", "x3", ",", "x4", ",", "x5", ",", "x6", ",", "x7", 5 v" V+ Q# k3 b3 V C" c, b
",", "x8", ",", "x9"}], "}"}]}]], "Input",
! v0 f" \5 x# v CellChangeTimes->{{3.577915885125*^9, 3.577915917671875*^9}}],
6 B3 Z/ Y7 _3 V/ s1 C
: b* \0 |1 L) { v! w- M1 B. MCell[BoxData[
4 T2 r! b( X M! L2 f* ^. {; m RowBox[{"{", 2 i3 T' J+ u" n+ a, P, K9 ~
RowBox[{
! W. j6 x2 E0 Q9 |! Z% O$ c "x1", ",", "x2", ",", "x3", ",", "x4", ",", "x5", ",", "x6", ",", "x7", ",",
' A& {, q4 Y) T1 A9 } "x8", ",", "x9"}], "}"}]], "Output",. Q4 g, n* Q: x' ?( D/ c7 o# A
CellChangeTimes->{
! H x; Z. q* q+ a2 N 3.577915921125*^9, 3.5779202114375*^9, 3.577920516515625*^9,
" C9 {. Y& ^9 e 3.577920662203125*^9, 3.57792077490625*^9, 3.57792090509375*^9, " N0 u0 O( U C' F3 O0 R) ^
3.577921145078125*^9, 3.577921329484375*^9, 3.577921423265625*^9,
! j b4 j) o7 W7 v* W u 3.577957103968339*^9, 3.5779572906382647`*^9, {3.577957337563146*^9,
0 l' c8 I2 q8 }* g" V3 x 3.5779573648007936`*^9}, 3.5779573998384547`*^9, 3.5779574405545254`*^9, {* ?/ T# F; G4 L0 \1 b
3.5779574803345947`*^9, 3.5779575349346905`*^9}, 3.577958833036192*^9, 1 s, ~& |7 G0 s6 [/ e* ?
3.577960538064765*^9, {3.5779607232682877`*^9, 3.5779608705013447`*^9},
7 Q( Y: |) \8 q' [$ g6 o3 @ 3.577960901170998*^9, 3.577961447695015*^9, 3.5779616069712925`*^9, {
9 _# f3 x4 Z+ B4 U5 P0 T$ o2 ?/ \7 @/ ~ 3.577961638124547*^9, 3.5779616672029977`*^9}, 3.577961702599459*^9, {6 \, s g* s4 h) G
3.5779617344391146`*^9, 3.5779617594615583`*^9}, {3.5779617927208166`*^9,
8 X+ b5 V. N8 [2 @ 3.577961846057309*^9}, {3.5779618785053663`*^9, 3.5779619036214094`*^9}, * ~' ]; @1 C Y( b9 Y
3.57801215725*^9}]
, I7 G9 s) i2 w4 w+ P! c}, Open ]],, `( f+ `& o7 O+ |" h0 c: D
7 R: @7 e* H) t* u5 s0 d" N
Cell[CellGroupData[{4 ?5 M& E" ~5 O+ @ D9 x4 O9 G
1 h! t" I: k# r/ L! |
Cell[BoxData[2 Q1 [8 ^4 ~& _1 j) t
RowBox[{"Ca", "=",
' }% ~1 ?; i v% P- { RowBox[{"{",
7 L, @% @! F% v9 u3 i/ R R% `/ h& \ RowBox[{7 x4 @% `: S3 b; t
"c1", ",", "c2", ",", "c3", ",", "c4", ",", "c5", ",", "c6", ",", "c7", _! c, t( B. J0 D$ J
",", "c8", ",", "c9"}], "}"}]}]], "Input",( m9 `6 }2 m! v3 Z. T3 n
CellChangeTimes->{{3.577915931921875*^9, 3.577915967953125*^9}}],
' d* f {; B$ V4 W3 q
3 M5 Y# A2 Y& ^! z( p8 A/ NCell[BoxData[2 M9 ~! {) @ ]0 t$ Q. v9 P0 C) p8 ^
RowBox[{"{", * m6 l2 J# c/ U. P4 v
RowBox[{5 l4 Q, @$ h' K: }5 r: J
"c1", ",", "c2", ",", "c3", ",", "c4", ",", "c5", ",", "c6", ",", "c7", ",",
2 t" |! [8 k, i' N/ { "c8", ",", "c9"}], "}"}]], "Output",! L* Y2 e% Q$ a% {5 R% ~6 E8 f
CellChangeTimes->{
. v( u. T( m$ }7 B% u8 W: K/ ]( D 3.577915976625*^9, 3.577920215953125*^9, 3.577920310953125*^9, % c- t! \1 Z# w! c2 O
3.577920517265625*^9, 3.577920663078125*^9, 3.577920775703125*^9,
" ]- _- o$ \' s0 O; ` 3.577920905765625*^9, 3.57792114575*^9, 3.577921330125*^9, 2 E. S2 ~- f5 i; c5 p9 I X
3.57792142384375*^9, 3.577957106386343*^9, 3.5779572916366663`*^9, {7 h7 C, }; K; v( D( V
3.577957338327547*^9, 3.577957365424795*^9}, 3.577957400743256*^9,
5 L5 b' Q" W. D' U* ] 3.577957441303327*^9, {3.577957481020996*^9, 3.577957535979892*^9}, 4 Z$ j8 `% q$ k" o t) D3 s" G
3.5779588343153944`*^9, 3.577960599544472*^9, {3.577960723892289*^9,
1 k8 D/ i: C3 I3 z' }6 M 3.577960871172146*^9}, 3.5779609019665995`*^9, 3.577961448365816*^9, : ^* n$ H9 f0 @* O; p' B( T
3.577961607517294*^9, {3.577961638935748*^9, 3.5779616678269987`*^9},
! Z( Y6 [8 J/ ~7 ] 3.577961703566661*^9, {3.577961735063116*^9, 3.5779617600699596`*^9}, {
% C8 B: H. z# g: S% B- b$ z7 Y 3.577961793391618*^9, 3.5779618468841105`*^9}, {3.5779618793477674`*^9, 6 w/ ]( e3 u4 V) v- }/ C
3.577961904604212*^9}, 3.578012158671875*^9}]
4 `0 o) @6 F! l6 c}, Open ]]," G& O5 s `+ H, o( i- Y
2 p3 [6 @) I( m T2 r- G6 q3 OCell[BoxData[* p# d8 i; K, F( ~1 _
RowBox[{"For", "[", 1 H3 v7 D2 `0 A& u) }
RowBox[{
( Q9 ?# y7 P3 m RowBox[{"i", "=", "1"}], ",",
& K2 g) ?; ^" |/ e4 L5 R RowBox[{"i", "\[LessEqual]", "9"}], ",", 9 n9 X# l, F- j' g7 o9 j1 x; G7 I
RowBox[{"i", "++"}], ",",
# d. x' Y7 A9 T% s1 @% C RowBox[{
. M, h- P6 Q$ P# d7 U) W9 G RowBox[{"Ca", "[",
5 z! ?$ o, o$ W3 {+ m; U, X0 m RowBox[{"[", "i", "]"}], "]"}], "=",
( b) U) p G9 }! T( ~ W( t RowBox[{"CM", "[",
& p! A: `+ I2 N- d$ B RowBox[{"1", ",", "i"}], "]"}]}]}], "]"}]], "Input",
$ I& `/ P8 _2 _9 G% T8 C# B& { CellChangeTimes->{{3.577915983546875*^9, 3.577916019953125*^9}, 2 G# g7 q' y' [; f4 }" A% E
3.57792022403125*^9, 3.57792052028125*^9, 3.5779206656875*^9, 3 L# {& G/ h5 i6 |% J, O$ R
3.577920778296875*^9, 3.577920907875*^9, 3.577921140296875*^9,
' c. E8 T' Y; \ 3.577921332234375*^9, 3.57792142584375*^9, 3.577957226662553*^9,
1 M) U1 l. ~$ S' d/ c! u 3.5779572941638703`*^9, 3.577957335176342*^9, 3.577957367405998*^9,
/ e% s! y+ L0 O7 l% U 3.5779574034576607`*^9, 3.577957444064532*^9, {3.5779574828929996`*^9, ' S" w: P# m6 s( W( {
3.577957538663097*^9}, 3.5779606027268777`*^9, {3.577960726232293*^9,
G- i: e- G- q: C5 X 3.577960872778949*^9}, 3.577960904415804*^9, {3.5779614517042217`*^9,
( Z/ C, d# ~! ^7 P6 X% _7 K 3.5779614520474224`*^9}, 3.577961505836316*^9, {3.5779616092020965`*^9, 8 ?, L# A! l4 T0 M
3.5779616093892965`*^9}, {3.577961640604951*^9, 3.5779616696366014`*^9}, * f; a- X* G2 j% W0 [- R. t
3.577961705345064*^9, {3.5779617369975195`*^9, 3.577961762113563*^9}, {7 B7 K+ W3 k0 P0 W+ J3 S+ {
3.5779617950764203`*^9, 3.577961851064918*^9}, {3.5779618822649727`*^9,
+ M) m+ j+ N/ [+ L9 t/ l9 o 3.577961906897415*^9}, 3.578012176296875*^9}],* l9 g1 h2 X% `0 ]
( m5 t1 z2 u4 U( e9 pCell[CellGroupData[{& U( `/ M0 Z( O1 |7 }. f# d
" g3 e: O. A* X+ j. eCell[BoxData[5 n" I1 a8 E" F/ J
RowBox[{0 p! Z& r u# x+ p: d- I) c
RowBox[{"(",
& }4 S) {, v+ i/ w) \+ W RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
- ]6 t1 G( g# ~ RowBox[{"(",
. F$ o& T9 q5 N8 a/ Z+ C" `9 @. O RowBox[{"Xa", "-", "Ca"}], ")"}]}]], "Input"],2 t! Y& K+ x/ `' Q
( ~, r9 M# y3 `& oCell[BoxData[; y! w; C+ A6 p9 M
RowBox[{' L. [3 q( j4 I8 a t$ W( [/ B
SuperscriptBox[5 \9 l8 Z, Z$ J8 }1 A; J
RowBox[{"(",
+ M: p7 @( V; y a+ z" w4 I' i RowBox[{
; |6 A4 R0 o- b7 V0 @5 V" J6 l RowBox[{"-", "0.304348`"}], "+", "x1"}], ")"}], "2"], "+", * k) O% U3 \4 _7 w# @7 X( S" v
SuperscriptBox[
- \% j% v$ \. F RowBox[{"(",
J( B8 Z2 f& v0 p RowBox[{$ ~* E" @9 C1 {7 k% x/ r
RowBox[{"-", "0.552818`"}], "+", "x2"}], ")"}], "2"], "+", 6 e7 o# o7 ?. Q1 o: {! g: ]
SuperscriptBox[
1 P4 H# o7 K% x9 T RowBox[{"(", + ]$ ]6 ^! p$ M) C$ ?) \2 ~
RowBox[{
3 W# i7 @5 I. L# r" I RowBox[{"-", "0.33037`"}], "+", "x3"}], ")"}], "2"], "+", $ A$ a* N- g; _, n) T, H: ~
SuperscriptBox[
7 Q0 \3 l' E; e1 B) ^, a) n1 Y RowBox[{"(",
8 o' E5 R5 e: E+ D+ p% v RowBox[{
6 K% f) d. c( B* e RowBox[{"-", "0.025823`"}], "+", "x4"}], ")"}], "2"], "+", + Y9 p+ Z$ N* j! S$ R( \$ V
SuperscriptBox[
1 J$ O$ w' o0 a5 x, L* ~ RowBox[{"(",
]* v6 y; }2 _( @# t! P& J RowBox[{5 ?( g, I. U% m/ ]! b$ C# q9 x
RowBox[{"-", "0.538462`"}], "+", "x5"}], ")"}], "2"], "+", # h5 r2 D6 F4 I$ q' l. _
SuperscriptBox[
3 A' g7 z' O+ [" I RowBox[{"(",
U7 N9 a' C) e) s& \0 ] RowBox[{
7 b2 i: M$ V6 D& y; v) ~$ q- T RowBox[{"-", "0.752072`"}], "+", "x6"}], ")"}], "2"], "+", 2 w$ ?6 i2 r% |( L
SuperscriptBox[1 B2 u" A+ ?4 S
RowBox[{"(",
, J* K# J/ O6 e6 C/ S2 ~9 c RowBox[{: b5 Z$ {- ^3 c
RowBox[{"-", "0.408943`"}], "+", "x7"}], ")"}], "2"], "+",
6 [0 ?" |* z7 Z& k, R4 ?+ f SuperscriptBox[
' ?# I9 \# A4 w! u& j" G9 S RowBox[{"(", 7 R l, o w/ ~9 |( F2 l) u5 {! G
RowBox[{
' n7 I& }: C6 H4 G0 {* E/ O0 g; ^1 M RowBox[{"-", "0.504532`"}], "+", "x8"}], ")"}], "2"], "+",
" I! A h0 Z9 t4 W- F/ H. Z SuperscriptBox[
W% |; i, _) c% F8 ?" U9 } z RowBox[{"(",
4 v7 u+ ~ Z) b4 Y1 O RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}]], "Output",
: L3 V, t+ w: |- t' Y CellChangeTimes->{
: C7 r, x C" X8 E, j# N# J 3.577920239578125*^9, {3.577920313765625*^9, 3.577920337375*^9}, 6 q) C4 b; t* f$ Y3 j3 q/ N
3.577920523875*^9, 3.57792066971875*^9, 3.577920780875*^9, 0 I4 @- k$ H* C4 _! f
3.577920912375*^9, 3.577921147703125*^9, 3.5779213341875*^9, }( h- H9 `; Z) ` H3 I8 M/ h
3.577921427984375*^9, 3.5779571106607504`*^9, 3.5779572305781593`*^9,
8 k% g: U" T4 r. B& v3 [) g 3.577957296800275*^9, {3.577957340215151*^9, 3.577957369621202*^9},
. [/ y: M v; r+ D 3.5779574064528666`*^9, 3.5779574463577356`*^9, {3.577957484733803*^9, 1 O; j6 T* R- d; y4 i# v. ~0 y- A2 D
3.5779575407691*^9}, 3.5779588373105993`*^9, 3.577960607391286*^9, {
* \5 v$ @% i6 a: U 3.577960728775098*^9, 3.5779608753061533`*^9}, 3.577960906849408*^9, 5 ]7 b& `9 P1 J4 s% J3 F
3.5779614551050277`*^9, 3.577961509346322*^9, 3.5779616115109005`*^9, {6 y/ C7 [9 W L$ v' q
3.5779616432101555`*^9, 3.5779616717114058`*^9}, 3.577961707607068*^9, {% M3 J# s5 Y- j, q
3.5779617396339235`*^9, 3.5779617643131666`*^9}, {3.5779617971824245`*^9,
' `9 T! _9 k& G) o6 {: K 3.5779618537169228`*^9}, {3.5779618846049767`*^9, ( [: V+ p$ m# ?& i+ h1 k+ a
3.5779619094246197`*^9}, {3.578012161203125*^9, 3.57801217953125*^9}}]7 u/ b- e7 N' H) N( u. E- Y
}, Open ]],
) i4 O$ r8 S8 Z% u
( k$ G$ p4 ^8 k% FCell[CellGroupData[{
6 K+ H* E3 m& E" L$ O/ x3 _: h3 J Q) Z8 r l) e2 q8 @$ J( b( x
Cell[BoxData[
9 L. `2 D/ x- ?& ] RowBox[{! E. D, y& C# C0 V
RowBox[{"Ca", "[",
- q' r7 T2 ]& M) @ RowBox[{"[", "3", "]"}], "]"}], "=", "0"}]], "Input",
8 n1 H3 d* L, C& c: G& W CellChangeTimes->{3.5779574142996798`*^9, 3.577961516116734*^9,
% \& ~! V6 N% f+ V 3.5779616465173616`*^9}],
1 q: v7 G# j9 e3 P/ y' D
3 T4 k3 N5 X' i! U& DCell[BoxData["0"], "Output",* `% S$ |* W( Q% Q" z
CellChangeTimes->{3.5779574163276834`*^9, 3.5779615176611366`*^9, . ~ H$ ?, A. B) |
3.5779616484049644`*^9}]
% a S* U1 F5 i7 ~2 a1 v! h) ?$ s; @3 ~}, Open ]],
' L. u2 I( l) x) I5 q
2 G) h8 R0 P! xCell[CellGroupData[{
1 I. z5 ~( x6 }
2 R' {6 \! e# MCell[BoxData[0 \- ]9 i6 U' r
RowBox[{6 ^* Q1 z% I" l3 Q) C
RowBox[{"Ca", "[",
. [+ M, P; R$ L" q RowBox[{"[", "5", "]"}], "]"}], "=", "0"}]], "Input",$ U* F7 g2 t* V& I
CellChangeTimes->{3.577957376235614*^9}],
2 x& F3 V4 `7 S; G% Q" C/ m( w r+ l2 B+ Q
Cell[BoxData["0"], "Output",
: \1 ^; u" F( I$ X CellChangeTimes->{3.5779573779048166`*^9, 3.5779614600346365`*^9}]
H; z# m0 j( T% ?0 F2 R2 ~" a}, Open ]],
V) v+ {: |" H8 M4 K" o8 s! x
Cell[CellGroupData[{
- h: ^4 \0 D' ~3 U+ Q
; b- O: t; j! R& lCell[BoxData[
. h7 y& V6 A# L x* R! x$ ]" { RowBox[{
# h* L! C7 j3 Y- R0 [% j RowBox[{"Ca", "[", 3 _" u5 S' v1 O0 ?- C
RowBox[{"[", "6", "]"}], "]"}], "=", "0"}]], "Input",
' k _8 g% m* @/ W- ? CellChangeTimes->{3.5779573112927003`*^9}],
0 A) M! a8 a% w9 ]2 ^! w- R4 v- E" N7 d+ [, [9 s
Cell[BoxData["0"], "Output",/ c+ M% u* |, A' i
CellChangeTimes->{
8 { H* r2 P9 A2 u4 w# e 3.5779573131491036`*^9, 3.5779573438343573`*^9, 3.5779573794336195`*^9,
( r8 A* s- }# j: d" Z& v 3.5779574208204913`*^9, 3.5779574530345473`*^9, 3.5779575154814568`*^9,
; o( g( O {* ], p 3.57796080484083*^9, {3.5779608543709164`*^9, 3.5779608784573584`*^9},
( k- n/ H$ ^; }; i8 @+ N 3.577960912044217*^9, 3.5779614619378395`*^9, 3.577961522372345*^9,
6 M( P L9 m/ c' @3 T L 3.57796161703331*^9, {3.577961650978969*^9, 3.5779616775146155`*^9},
0 P( j) g. }. J 3.5779617114602747`*^9, {3.577961801144831*^9, 3.5779618299268813`*^9}}]
2 ^, T' m% a1 c* R& L}, Open ]],
7 r* ]) i0 v Z9 Y f8 I
" }7 ]- }6 A, m; uCell[CellGroupData[{
5 X' U0 j0 I! U p5 X8 F0 |' M
3 j* C- U! ^4 | KCell[BoxData[
7 z: y3 J0 ]7 E5 A O6 E+ P RowBox[{
. H' n g0 t) H% `9 h! ~: C RowBox[{"Ca", "[", 1 u8 q. a) L) A( o
RowBox[{"[", "7", "]"}], "]"}], "=", "0"}]], "Input",( b7 k! O- D; o& F, ~$ ?! R7 L
CellChangeTimes->{3.577921461734375*^9}],& F% P. V+ u* @ u2 |, c! ^# p A
- [7 e& G' @) E* u# D8 `Cell[BoxData["0"], "Output",
! M g, L! U+ S% S0 x7 B2 X CellChangeTimes->{
/ I+ J: g0 ]( ]6 [- R% N, n4 B2 r 3.57792149215625*^9, 3.5779571133283553`*^9, 3.5779573808844213`*^9,
b9 K4 i9 |5 h/ d 3.5779574235192957`*^9, {3.577957489351411*^9, 3.5779575470715113`*^9}, ( I: A# N! z% A# A! y L3 I) K v+ q4 t
3.5779588406958055`*^9, 3.577960732409904*^9, 3.577960778851185*^9, - b' } Z$ g, w5 W. [$ i
3.5779614640906434`*^9, 3.577961617641711*^9, 3.5779616533033733`*^9, ) O7 _+ Z- _, X- A0 t3 j
3.5779617130982776`*^9, {3.5779618019560328`*^9, 3.577961888005782*^9}}] H7 y- S1 ` J+ f- U% z+ ^
}, Open ]],
% v* L: V! P9 T0 B* R& d
) A. ~4 w. \2 ACell[CellGroupData[{% U+ ?4 K+ ^5 x' W' p3 @
! B! I0 D6 A: ~Cell[BoxData[+ B( q0 R7 N5 z. n! h; i
RowBox[{
" Q' G9 \3 `/ d RowBox[{"Ca", "[", / ]! b# c* d. x* U2 c
RowBox[{"[", "8", "]"}], "]"}], "=", "0"}]], "Input",, m6 J8 K- s# x% [0 @
CellChangeTimes->{3.577957303118286*^9}],+ n6 U" K& k& {: C, K: H) K
: |- e: b% p3 B& j; E3 Y
Cell[BoxData["0"], "Output",6 i' W8 S( b! O/ o: [8 e7 J' ?8 C1 C
CellChangeTimes->{
9 D3 _9 l: U L4 ? 3.5779573073770933`*^9, 3.577957382647225*^9, 3.5779574565133533`*^9, {
3 _% L# k7 z, O# G 3.5779574910986137`*^9, 3.5779575189290624`*^9}, {3.577960756371546*^9, . x& b% `, [9 d( d5 M
3.5779608308772755`*^9}, 3.577960881717764*^9, 3.577960915320223*^9, 3 ^1 L+ ^3 M9 z/ ?6 O* _+ s8 \
3.5779614659002466`*^9, 3.5779615232459464`*^9, 3.577961618671313*^9,
% V4 x* g( T) g 3.5779616809778214`*^9, 3.5779617145334797`*^9, {3.5779617456243343`*^9,
+ h; o+ U+ p. n! x& B 3.5779617686187744`*^9}, {3.577961803796836*^9, 3.5779618329844866`*^9}, {
. {0 F! r4 W6 I/ v( @( `$ D 3.577961889378585*^9, 3.577961912965826*^9}}]
! D& u2 E% l6 W/ p0 O1 ? C1 N; u}, Open ]],
F: v, |4 V5 r, G& z) @
) q8 t# b- M0 h- g( @+ j. kCell[CellGroupData[{1 R- ?, P9 P- H. y4 [3 _3 J
* C' u$ T8 i& O$ s/ D' Q2 g
Cell[BoxData[( ?3 [4 i$ m$ B4 @' ]- v% T: G; ]" `
RowBox[{
9 T8 Z- ]' i: u6 ~* }& P! j4 T RowBox[{"Ca", "[", ( f) [# y0 O1 P# m! A
RowBox[{"[", "9", "]"}], "]"}], "=", "0"}]], "Input",5 [' a7 N/ {+ M; A
CellChangeTimes->{{3.577916107859375*^9, 3.577916113453125*^9}, {
" Y; p& h; n. d& Y; u 3.577920324765625*^9, 3.577920332875*^9}, {3.5779205288125*^9, 2 z. b& q4 e- |# {$ W
3.577920534375*^9}, {3.57792067859375*^9, 3.577920688875*^9}, {
, Y2 \; A& Z4 m6 P- w2 c" i' C 3.57792078446875*^9, 3.577920797171875*^9}, {3.57792091940625*^9, ! ]6 p( m9 |8 R9 B2 F( X$ Z
3.577920923875*^9}, {3.577921154453125*^9, 3.577921160328125*^9}, {
6 y/ A8 n2 _: K- x9 u7 b 3.577921339734375*^9, 3.577921348109375*^9}, {3.577921432890625*^9,
3 {9 `/ l3 u5 m2 K$ ^ `$ \ 3.577921435703125*^9}}],
5 w8 t" r0 ^& R2 \. W l, K; \5 k2 r7 |/ [+ _: U' a0 l: j
Cell[BoxData["0"], "Output",
) H$ J: {0 p, c% {/ p3 f: p( d CellChangeTimes->{
; A0 Q, }% a4 o: N 3.57791611621875*^9, {3.57792032565625*^9, 3.57792033440625*^9}, {" l5 I7 @+ z: ^/ _& O2 [0 Y5 D. J' x1 R
3.577920530328125*^9, 3.577920535140625*^9}, {3.577920676546875*^9, 9 u0 W) w) Q; S/ V( k: i) v$ Z
3.57792069140625*^9}, {3.577920785734375*^9, 3.577920798453125*^9}, {; `, }( l$ z8 N8 I* y. Z
3.57792091690625*^9, 3.57792092634375*^9}, {3.57792115590625*^9, # Q% j9 p$ h5 ^
3.577921160984375*^9}, {3.577921341484375*^9, 3.577921348890625*^9}, {
4 b" [9 c! r$ @, E9 |8 \2 r 3.577921433703125*^9, 3.577921437140625*^9}, 3.577957114155156*^9, ' Q8 y( S3 F" R3 ~, {- q
3.5779572385809736`*^9, 3.577957346314761*^9, 3.5779573843164277`*^9,
3 ~6 r9 u2 Z& h7 @/ Z- S$ W 3.5779574262025003`*^9, 3.577957459134158*^9, 3.5779574929862175`*^9, 5 w5 n, q% V6 Z: K' _1 B
3.5779575497079163`*^9, 3.5779588425366087`*^9, 3.5779606144112983`*^9, {4 C5 m9 ` F3 c) k3 a& R1 U9 j
3.5779607339075065`*^9, 3.577960757759948*^9}, {3.5779608577717223`*^9, % n5 }0 o: |' B1 ?
3.577960883308967*^9}, 3.577961466820648*^9, 3.577961619373314*^9, {, m' f* ?" m# u+ z, K
3.5779616551441765`*^9, 3.577961682569024*^9}, 3.577961716046683*^9, 6 z! \5 Z$ F. O2 W' ~
3.5779617465759363`*^9, {3.577961834419689*^9, 3.5779618634045396`*^9}}]" @! V+ O9 A# L( K, H4 ?
}, Open ]],
" s* R( n& _, r& b, y' I9 P5 A5 R
; U/ V0 z! [. X$ r- y" p) jCell[CellGroupData[{
b& A1 V+ a# R$ g, G
0 |/ B) h- B2 i$ @( e% ?Cell[BoxData[( D0 a- e1 m- K3 [# O6 x ^# T
RowBox[{"Delta1", "=", 2 e" i8 J6 h: x: O9 d7 h2 C
RowBox[{
8 c, U0 `8 ` [( y6 j: f SubsuperscriptBox["\[Integral]",
+ F( Q" k# b6 E7 Y8 ?% F, F- ^ RowBox[{"-", "\[Infinity]"}], "\[Infinity]"],
9 |/ i/ _4 A- [ w1 l. q RowBox[{1 f$ d, c! K, n6 u( Q2 V
SubsuperscriptBox["\[Integral]",
/ ]: S) W* d1 F) x5 e0 U! _ RowBox[{"-", "\[Infinity]"}], "\[Infinity]"], 6 }! @/ T& R6 E0 t* I- Q$ r+ k
RowBox[{% u0 Y, L9 W+ L2 b
SubsuperscriptBox["\[Integral]",
; x2 }8 J4 w% Q; S+ \- T RowBox[{"-", "\[Infinity]"}], "\[Infinity]"], ' Z1 S$ k# H# [ z# N
RowBox[{/ m% f0 {8 q) l7 i# l
SubsuperscriptBox["\[Integral]", - V, G8 H V4 Y7 d! k3 ?. E
RowBox[{"-", "\[Infinity]"}], "\[Infinity]"], 8 V) k0 h% I3 x$ ~( g
RowBox[{8 Z0 T. Q* P5 n0 c3 V' Y' e
SubsuperscriptBox["\[Integral]", 8 _; O8 }1 ]; k5 Z
RowBox[{"-", "\[Infinity]"}], "\[Infinity]"],
" O& Y2 r2 K/ v9 p0 t5 S: f RowBox[{
1 L$ b0 [$ S, J- x S9 u9 ` SubsuperscriptBox["\[Integral]",
; V9 N# ^$ B- V$ o& l RowBox[{"-", "\[Infinity]"}], "\[Infinity]"], 3 u0 ^2 l. {# Y! Y" W
RowBox[{
/ G/ A: C+ n7 k SubsuperscriptBox["\[Integral]",
, o# H/ q) p1 k8 ^' o* U, d RowBox[{"-", "\[Infinity]"}], "\[Infinity]"], ; _$ Y. Q" L6 R" x2 {: U' u
RowBox[{
7 R+ |- q! w K& R& e; W SubsuperscriptBox["\[Integral]", P8 n2 N' _# K
RowBox[{"-", "\[Infinity]"}], "\[Infinity]"], $ p. Q- h5 B/ y' I1 K6 }
RowBox[{
1 Y4 N6 `' ~) U5 n) ^7 \' E/ X SubsuperscriptBox["\[Integral]", % C7 d6 p, v9 o1 l; Z1 J
RowBox[{"-", "\[Infinity]"}], "\[Infinity]"],
8 z9 ]. K8 S" Q D7 t) Y% C RowBox[{# \3 E6 |9 i( E" y& j
RowBox[{"Exp", "[",
; \* `0 e/ W& I7 ?: E1 Y3 A RowBox[{
- E) b1 ~% {5 g2 S- k' ]/ E! g8 _ RowBox[{
+ U0 |. I$ E" D3 h q t RowBox[{"-",
. c+ Z# m$ J* I' r' L8 H1 Z RowBox[{
( L$ W: Z7 g; G O RowBox[{"(",
0 q% d3 ?0 g$ N( e0 Z RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
2 W6 O( [# ]4 E" p RowBox[{"(", 5 _6 e7 y2 e0 R/ Q" C
RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", - N* e( q2 K: r" H8 ~8 T; |: L% u+ F
"Delta"}], "]"}],
# }; m8 T4 [ A& A ~ RowBox[{"\[DifferentialD]", "x1"}], 4 R; b! i1 C* F6 A( o
RowBox[{"\[DifferentialD]", "x2"}],
# K; t/ F- r& a- M) m$ C0 x RowBox[{"\[DifferentialD]", "x3"}], ' C' I6 m- u% {' z, p% s1 g2 J7 g+ z
RowBox[{"\[DifferentialD]", "x4"}], 3 w' y* n: H" L
RowBox[{"\[DifferentialD]", "x5"}], 7 \. S$ x. \8 `! l
RowBox[{"\[DifferentialD]", "x6"}], + k l6 Q9 G1 ?3 N2 S- g2 h
RowBox[{"\[DifferentialD]", "x7"}], t, |' V* ? b( M0 D2 K
RowBox[{"\[DifferentialD]", "x8"}],
, r6 z% O3 y6 \8 v) T1 }7 {+ \1 ^/ o RowBox[{"\[DifferentialD]", "x9"}]}]}]}]}]}]}]}]}]}]}]}]], "Input",
% R) ^. h2 A. y* Z CellChangeTimes->{{3.5779153084375*^9, 3.57791531240625*^9}, {
8 k$ H7 P( Z+ x+ q1 i 3.5779153614375*^9, 3.57791536246875*^9}, {3.57791678490625*^9,
" }( n: U" z% f& s$ r ^/ N 3.5779168805625*^9}, 3.577917071640625*^9, 3.57791718425*^9, { p h1 L' Z2 j4 D) H
3.57791733884375*^9, 3.57791734359375*^9}, {3.577917406875*^9,
0 ^% Q& c, N' A5 u; w9 ~ 3.577917409*^9}, {3.577917781921875*^9, 3.577917795890625*^9}, {
9 w6 J) V& k: i* H% S, L2 W2 y 3.57791886146875*^9, 3.57791887259375*^9}, {3.57791891146875*^9,
/ T! i! r, i+ q+ H; k2 j 3.577918964453125*^9}}],3 X4 V, _0 k' M' u e+ @- G
* D: {8 C! w7 A" \+ nCell[BoxData[9 v$ b2 }- r& }' C( G% I& P
RowBox[{"97.40909103400237`", " ",
# _8 t2 D4 {* b" C( M9 H5 ~ SuperscriptBox["Delta", "8"], " ", $ T+ n2 k \/ |4 W
RowBox[{"If", "[", 9 v) w+ l; m& ^9 J" \* Y; q6 K
RowBox[{
: _/ T y/ t8 K: z1 T RowBox[{
# K% w ]. ~+ Z5 Z/ _! d# n- O# k/ J/ E RowBox[{"Re", "[",
: e6 G0 ]2 N. Y; n1 O" B SuperscriptBox["Delta", "2"], "]"}], ">", "0"}], ",", : Q& j$ g. O: o
FractionBox[2 B- S) i7 K7 W' Y2 U
RowBox[{"1.7724538509055159`", " ", * d0 b1 G+ k+ e( I* `
SuperscriptBox["\[ExponentialE]", 1 h; e4 U9 V: y# E+ ?. z
FractionBox["1.1102230246251565`*^-16", 2 U7 B" ^6 {: \% U! _
SuperscriptBox["Delta", "2"]]]}], : l: x y( \$ i4 k
SqrtBox[
& U! b$ h$ E) C FractionBox["1", # r4 `5 b0 d0 u0 a
SuperscriptBox["Delta", "2"]]]], ",",
0 E4 F" a8 p* }* h RowBox[{"Integrate", "[",
) a( d4 X# A+ R" k+ n4 \ RowBox[{
( M. V/ |7 U" c7 n# r+ s SuperscriptBox["\[ExponentialE]",
! t o2 X9 c" x/ h FractionBox[
: O& _+ B' P! g, X RowBox[{"1.1102230246251565`*^-16", "-",
$ k& m* |* L9 b) Q5 N% s' a6 i RowBox[{"1.`", " ",
9 A+ B* _+ [+ I7 |+ x2 F SuperscriptBox["x9", "2"]}]}],
6 h% b8 }) c3 N Y7 P y SuperscriptBox["Delta", "2"]]], ",", 4 S- O+ m9 [3 e, r
RowBox[{"{",
" k. z! Z6 D1 U0 z6 D) `3 t+ K x1 `3 o; U RowBox[{"x9", ",", : {7 c V1 i* M/ j
RowBox[{"-", "\[Infinity]"}], ",", "\[Infinity]"}], "}"}], ",",
( @5 C$ ^7 b% H ? RowBox[{"Assumptions", "\[Rule]",
9 _/ D! D. i$ `, B5 y @ RowBox[{; U* _! y6 C" d! q. A4 n
RowBox[{"Re", "[",
/ a. \( ?4 M# `8 D SuperscriptBox["Delta", "2"], "]"}], "\[LessEqual]", "0"}]}]}],
' Q0 ~3 m {/ k2 R# q* e "]"}]}], "]"}]}]], "Output",- A5 @) [# B5 z. ~
CellChangeTimes->{3.577915314703125*^9, 3.57791536890625*^9, h, e8 J( p) B. W' b S
3.57791688871875*^9, 3.5779170798125*^9, 3.57791719340625*^9,
" s+ X" z T! ^9 ~; B9 r5 W. |" m7 w 3.5779173640625*^9, 3.5779174255*^9, 3.57791786128125*^9,
1 I+ N/ e- o+ y4 T+ F 3.577918058328125*^9, 3.577918134703125*^9, 3.577919019796875*^9, 3 Y- T F# J8 T
3.577920388796875*^9, 3.5779205859375*^9, 3.577920727078125*^9,
, b4 ~1 v( r$ v0 |/ j+ W 3.57792083884375*^9, 3.577920979015625*^9, 3.5779212189375*^9, ( { r0 I$ n1 O |1 H
3.57792139025*^9, 3.577921489421875*^9, 3.5779606695417943`*^9}]4 P h' Q1 L9 h, G R( L0 \ f9 g# y/ I& v
}, Open ]],
1 L$ G/ I4 Q+ V0 \( H- T4 J. g8 C+ f( z4 k! K0 m0 G
Cell[CellGroupData[{
. L: M, W, ~5 b; q# |) R: x* v; X5 E
Cell[BoxData[
2 D% v5 U. C( T RowBox[{"Delta1", "=", 6 _/ |+ b8 J# p6 t/ W
StyleBox[
! U( x2 P' l3 G0 Z# I RowBox[{"97.40909103400237`", " ", + {$ ^3 p5 D V! x3 w8 g* I
SuperscriptBox["Delta", "8"], " ", * E8 q* `9 `) Y E, M
FractionBox[" ^7 Y% V3 g/ v& k `
RowBox[{"1.7724538509055159`", " ",
, i* T0 B/ V8 m* @- J9 w SuperscriptBox["\[ExponentialE]", ) D+ J0 H. g/ p) B
FractionBox["1.1102230246251565`*^-16", ! Q6 U* C& ~! e7 ~$ Q
SuperscriptBox["Delta", "2"]]]}], 1 E9 }. F3 H! o$ t! Y
SqrtBox[
; f P& J) p1 S4 C: Q$ U) C FractionBox["1", 5 y t% J4 o U' \) g& g9 m% A
SuperscriptBox["Delta", "2"]]]]}],4 ?5 q' p4 |. X2 U
FontWeight->"Plain"]}]], "Input",
5 }6 p/ _' w, ]& c/ j CellChangeTimes->{{3.577919054890625*^9, 3.577919076328125*^9}, {9 l9 _' D: S9 a/ I8 |9 t" J
3.577920422671875*^9, 3.57792044959375*^9}, {3.577920594890625*^9, / }- k3 Q# G) e! y+ a9 \/ g: s
3.5779205978125*^9}, {3.5779207405*^9, 3.57792074359375*^9}, {' U" q' o- d% s/ }
3.577920846078125*^9, 3.57792084959375*^9}, 3.577921100453125*^9,
- p4 J. l; Z+ I 3.577921302609375*^9, {3.577921396640625*^9, 3.57792140075*^9},
3 `, ] j9 a. \2 u$ y/ E4 o0 G 3.577921500234375*^9, {3.5779606881994267`*^9, 3.5779606915378323`*^9}}],
& N# y; r% [3 ~5 p+ m. ?* c, H, ~- }) Z! m
Cell[BoxData[* L( i% a$ X& h; {) E9 j9 _
FractionBox[& f# V) v" v% s# m
RowBox[{"172.65311851642346`", " ",
6 _ m1 l0 r7 D/ E6 T n* c SuperscriptBox["Delta", "8"], " ", 9 Z; w1 a$ K6 f
SuperscriptBox["\[ExponentialE]",
$ `; k" C9 K7 C9 s2 `( E FractionBox["1.1102230246251565`*^-16", 8 x- ~ k( X1 X
SuperscriptBox["Delta", "2"]]]}], 4 X( X$ {6 x7 k5 p
SqrtBox[
) d! g6 D$ x1 M4 K4 t2 B& Z4 I% O FractionBox["1", 6 h3 S& F6 a& m' w: b& h4 V
SuperscriptBox["Delta", "2"]]]]], "Output",
1 \. J- I' ^( p CellChangeTimes->{
/ ~" [. w6 ~" _4 r 3.577957275022637*^9, 3.57795735116637*^9, 3.577957388263234*^9,
/ r) Y3 }$ H) p. ^; F 3.577957429759307*^9, 3.5779574644225674`*^9, {3.577957495341821*^9, ( f4 a, W+ s& I, s
3.577957524966273*^9}, 3.577957555479926*^9, 3.5779606933318357`*^9,
1 b i) r/ w" g# S) w4 { 3.578012166234375*^9}]
+ Y, u2 [! w" ~6 T% X& H}, Open ]],
. Q* u8 W0 P+ u- a2 ]2 u4 C# r9 W g6 j; t/ F2 f# v: K, [
Cell[CellGroupData[{) T. V, t2 T+ R2 M4 ]% L' X
' T% N( w& G( lCell[BoxData[
5 {6 Q4 e7 ~/ Y0 S RowBox[{"DeltaX", "=", 6 S* {' k; }& p" M* s2 T; l
RowBox[{"FindRoot", "[", 8 O/ O. J8 \' g6 m
RowBox[{% J: U# T2 s8 A* I1 B9 c2 |
RowBox[{"Delta1", "\[Equal]", "1"}], ",", : ]( S+ U9 S9 w$ p
RowBox[{"{",
8 k1 X! d, G+ l, g" O$ {* b RowBox[{"Delta", ",", "0.1"}], "}"}]}], "]"}]}]], "Input",! Y1 S* q0 m) H! M* }4 O
CellChangeTimes->{{3.577917987171875*^9, 3.577918019109375*^9}, {+ S5 f# `8 \; ~$ i) j" j7 {
3.57791809359375*^9, 3.57791809525*^9}, {3.577918142421875*^9, , Z# H5 E; U: r- s7 [/ g
3.57791816790625*^9}, 3.57791913871875*^9, {3.577919206734375*^9, * j" x2 P! D9 q
3.57791921584375*^9}}],7 h7 H/ A* D8 L, w% a. _5 ?
4 [9 ~+ @7 d0 _; S1 W# H, |/ VCell[BoxData[9 y j/ a; ]. X5 n: z
RowBox[{"{", q& I5 X- a1 x+ x
RowBox[{"Delta", "\[Rule]", "0.5641895835477563`"}], "}"}]], "Output",
- y! t, h7 b# z& G% ~3 v CellChangeTimes->{
- e' p) ^* j+ t- Y( V7 Z- T 3.577918020859375*^9, {3.577918138328125*^9, 3.5779181693125*^9}, 5 d& `- G$ D% A- P3 I% G
3.57791914315625*^9, 3.5779192174375*^9, 3.577920459234375*^9,
" [3 n( `) Z( h2 ~ 3.577920625578125*^9, 3.577920748296875*^9, 3.577920852515625*^9,
' `# u# Z( M* S8 ]9 s 3.577921108140625*^9, 3.577921305546875*^9, 3.577921403703125*^9,
, Q5 N& j+ D6 Q0 H" O! W! [6 v# v3 g2 F 3.577921503515625*^9, {3.5779572551794024`*^9, 3.57795727691024*^9}, {
# w6 w! G% n1 O8 a 3.5779573234295216`*^9, 3.577957352414372*^9}, 3.577957389792037*^9, $ ?$ L$ M$ x5 h; c$ z& j1 `7 C
3.5779574309761086`*^9, 3.5779574661853704`*^9, {3.577957497042224*^9, 1 H0 g8 D0 [7 g( Y0 s0 ?
3.5779575262922754`*^9}, 3.577957557071129*^9, 3.577958853019827*^9, 6 ^; ~# r; m/ b% W
3.57796070150625*^9, 3.578012167703125*^9}]+ U' b6 t+ O0 D1 r2 Z8 a3 c
}, Open ]],1 v1 f9 C4 K' P
- D4 S; {( N8 d% PCell[BoxData["\:805a\:7c7b\:4e2d\:5fc3C1\:5230C21\:3001\:9ad8\:65af\:6838\
* d' C$ u- U) C' X$ j4 ~3 C( L\:51fd\:6570u1\:5230u21\:5982\:4e0b\:ff1a"], "Input",& @8 z8 E8 `* W p
CellChangeTimes->{{3.57792124640625*^9, 3.577921284203125*^9}, {+ b* E. {) t3 G5 Q7 g" h7 T
3.577960705312657*^9, 3.577960707621461*^9}}],
' B/ n M3 ]* `% o' f9 e: o& Q0 R
Cell[CellGroupData[{
* S' u1 ^7 C2 m( P' ]; I- J+ F' _7 l# [$ b# }% {
Cell[BoxData[
2 X; {' [$ ]) J, T& ? RowBox[{"C1", "=", "Ca"}]], "Input",
4 g- h1 p5 U& k CellChangeTimes->{{3.577920010125*^9, 3.5779200415*^9}}],2 T0 z1 N, q/ K% F6 v
9 r+ X1 {( _6 R# c; P8 M- JCell[BoxData[
0 n: J$ c4 u9 R9 P8 \" r7 v W0 s RowBox[{"{",
0 ~; d& h/ u. u6 w" h7 {+ @5 k RowBox[{
$ A9 b! ]8 x' I6 X- o+ d% w/ x "0.304348`", ",", "0.552818`", ",", "0.33037`", ",", "0.025823`", ",", " i5 b# \0 F: K. n
"0.538462`", ",", "0.752072`", ",", "0.408943`", ",", "0.504532`", ",", / q0 o) O& N: i X7 R! ?- i; S
"0.`"}], "}"}]], "Output",
7 e# q7 H) b$ |/ _0 a CellChangeTimes->{3.5779200429375*^9, 3.577957279796245*^9, # u9 e* o' I3 n
3.577960710273465*^9, 3.5780121855*^9}]
7 Y3 _+ \; y E& `7 ]9 I, j}, Open ]],
$ @! J+ M! m" y6 ]6 [
& b" m* Q0 {& }5 c8 t( \Cell[CellGroupData[{
: E1 t; _! y) E9 w, L3 X2 N" @2 n& f+ q) \8 U# p
Cell[BoxData[
: E, x/ W4 Z) I0 `: G RowBox[{"u1", "=",
. E" l3 ` h2 r, j7 L RowBox[{
; a$ R2 M9 _( K3 k RowBox[{"Exp", "[", $ D+ K2 L- x5 Y) `0 Z9 x6 _: L% t! c. q
RowBox[{
# a6 v; C! g) n5 s3 X! y RowBox[{
- v9 o( [. M; s1 [# }1 A( {* w RowBox[{"-", $ G; Y; A; `6 `" d* i/ U& A
RowBox[{ [( u5 `- o) A0 R1 ? q0 |
RowBox[{"(", 3 E' _$ C) q/ B; P$ R
RowBox[{"Xa", "-", "Ca"}], ")"}], ".", & S2 y& b9 R9 y7 f
RowBox[{"(", ' D: u0 [" ~% L! A, r
RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],! A# ]/ o% f* ~) ~
"]"}], "/.", "DeltaX"}]}]], "Input",
9 s+ v' Y: L9 n$ c" k% K5 W* k | CellChangeTimes->{{3.577915830328125*^9, 3.57791584871875*^9}, {$ E2 V* {: \1 ~% M3 q
3.57791608375*^9, 3.57791613809375*^9}, 3.577917047203125*^9, {
( U; X6 v. v, }2 n6 G$ L 3.577919193484375*^9, 3.5779192326875*^9}}],9 I6 f) J! o, Z
/ g2 F+ z7 S9 p# H9 FCell[BoxData[/ W& j- Z, `) Q }3 k3 K8 C
SuperscriptBox["\[ExponentialE]", % D( K( x& S! W2 ]5 l5 n
RowBox[{"3.141592653589793`", " ",
1 G1 r, K9 ]8 V, [0 u4 P# z RowBox[{"(", $ S$ Q1 X5 U% ] @6 Y8 e' y
RowBox[{
' |' {& M/ N6 @+ H- O5 o RowBox[{"-", & V8 x9 W6 x: x8 A' B- c' I: u
SuperscriptBox[
& J) g# H% M# K8 u, b8 ` RowBox[{"(",
9 g6 r3 K: N) T' l RowBox[{- d+ J3 W. c6 D( S
RowBox[{"-", "0.304348`"}], "+", "x1"}], ")"}], "2"]}], "-", 0 y* E2 U5 ^. V
SuperscriptBox[
# f7 o3 k& [0 A, P7 h1 c RowBox[{"(",
, W8 v2 x' ?; u% b: l9 E$ n1 e RowBox[{2 _, d1 `7 k' J" g: O/ U2 u, E8 |
RowBox[{"-", "0.552818`"}], "+", "x2"}], ")"}], "2"], "-",
! H( X! a9 j! u0 p) P. V SuperscriptBox[
4 j ]2 e7 M0 p9 I RowBox[{"(",
" B8 g5 q- e( Z4 g' N3 G4 E RowBox[{
k9 c- v' }) p. W' f RowBox[{"-", "0.33037`"}], "+", "x3"}], ")"}], "2"], "-", - k6 Q1 `. A+ ?* X+ k! T/ M: R' ^
SuperscriptBox[5 o5 f# C: C( `0 f" ~& S' Y- S& x
RowBox[{"(",
1 V. w* Y9 r |# K- v- [% N RowBox[{7 b. s: P0 ]; p; c2 @/ n& M, S' G+ p
RowBox[{"-", "0.025823`"}], "+", "x4"}], ")"}], "2"], "-", 6 N; {( D6 b! X2 { s
SuperscriptBox[
2 Y) z0 _1 q6 @+ `* @8 y+ t6 T RowBox[{"(",
3 k4 j2 R4 Q" U" R7 p RowBox[{7 k1 u& B/ T( h8 I% m/ J
RowBox[{"-", "0.538462`"}], "+", "x5"}], ")"}], "2"], "-",
0 }$ X) b1 b d SuperscriptBox[7 c4 i0 M' v3 t0 g9 G- m
RowBox[{"(", 5 X' D1 F! |& z- T9 w( ^
RowBox[{
- k0 y W; y& Q3 \+ z6 A8 |5 ^ RowBox[{"-", "0.752072`"}], "+", "x6"}], ")"}], "2"], "-", `; x( e2 A7 x# a6 v A
SuperscriptBox[' M8 L0 ]# I6 U; V
RowBox[{"(", 6 _! g$ n7 Y7 U$ c! b
RowBox[{
1 A' R3 k7 c7 e$ n6 C RowBox[{"-", "0.408943`"}], "+", "x7"}], ")"}], "2"], "-", 8 o b- B8 g- x
SuperscriptBox[
1 N: _/ x! T3 n1 Q! w$ O RowBox[{"(", % ]7 ]9 N4 F7 d& ?# V+ P4 O W
RowBox[{. ^1 T c2 S! d2 W: u& O4 o6 E
RowBox[{"-", "0.504532`"}], "+", "x8"}], ")"}], "2"], "-", ' K' @ `3 R0 h
SuperscriptBox[
' X1 t6 Y/ u5 b. |% V! Z1 w RowBox[{"(",
8 }; ?' s6 z! Q RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], 4 G* C* B: d% o. {9 [7 I2 E
")"}]}]]], "Output",. d" n, ^) c6 j3 M
CellChangeTimes->{3.57791618121875*^9, 3.577917049421875*^9, 8 H: x& [# C( g) n: B1 b
3.577919237265625*^9, 3.577957283197051*^9, 3.577960712457469*^9, 2 a. `3 p- V1 U( K
3.578012187078125*^9}]7 A6 p: l; G! ` O2 K
}, Open ]],
5 C9 @. k' s8 K) k: l
. b! q, A( X# PCell[CellGroupData[{
3 f1 q# }0 l' v. B
0 q( w. a# d/ Z# S# [Cell[BoxData[! b6 v, i2 N9 Y/ I# o' V5 `
RowBox[{"C2", "=", "Ca"}]], "Input",
8 C! P- g# ~- h( O CellChangeTimes->{3.57792047321875*^9}],
# `: u8 a) a( {' f- }5 H( m# M/ `; Z) p( I* K
Cell[BoxData[
. D2 ]1 |, ?' x% j# a& ^8 W# O RowBox[{"{",
5 c- ]! l) {3 O RowBox[{& M* {4 q7 x0 T# R
"0.608696`", ",", "0.339186`", ",", "0.4943`", ",", "0.099338`", ",", / p. @# ^/ M) G y& n( W0 w
"0.321678`", ",", "0.375283`", ",", "0.`", ",", "0.505539`", ",", "0.`"}], 5 R; q3 Q- y# I; Q h7 u4 ]
"}"}]], "Output",, i, X, `+ X' [( |7 q- b
CellChangeTimes->{3.577920475421875*^9, 3.5779573274855285`*^9,
6 y3 X5 h( a& y/ l+ t 3.5779607401163173`*^9, 3.578012204671875*^9}]2 F# |9 z V* p8 X9 l$ o" [
}, Open ]],
5 e4 H# ^( w$ w' O( d( Q6 U3 T" q J; q- e! X# ]; k5 G
Cell[CellGroupData[{$ V0 L7 @$ J# e! M# ?' T
. p0 @- A# U9 G# e% q& ~
Cell[BoxData[
, d8 d' `# i% r; f RowBox[{"u2", "=",
7 i/ ~& o! G) k) j RowBox[{
& X- q+ I8 |! |4 L0 L, w RowBox[{"Exp", "[", $ e; i8 U, j! r
RowBox[{) T5 Y* o- p4 t* |8 v: w# ^# p
RowBox[{
1 b, J+ ~, u1 }3 R- p RowBox[{"-",
( O" Z/ y+ Q# V" m U6 U4 j) [8 K" E' T RowBox[{
& e2 J5 ] z8 h |+ R RowBox[{"(",
) J8 f2 @1 @5 t6 _5 x RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
! P# s" k' t. t9 a$ \0 P RowBox[{"(",
% V r. }4 J0 B1 ]0 s( G RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],+ @- N& G! P; R1 q3 H
"]"}], "/.", "DeltaX"}]}]], "Input",
+ G$ k. l$ a, r3 m$ q CellChangeTimes->{3.577920484109375*^9}],. U' I4 h g% _, Q4 x$ y- k
6 M# C: c7 ~3 W1 n% ]# e
Cell[BoxData[
6 z) E$ p: ?) V' b! n9 {( h( ^1 _) T SuperscriptBox["\[ExponentialE]",
4 p& M- m/ a% E, @+ l- u RowBox[{"3.141592653589793`", " ", / w6 b! x6 J: g' {
RowBox[{"(", 9 j* B! `) n$ V' H" Z9 |
RowBox[{$ _# y: o- T) L5 r! ?( Z
RowBox[{"-",
" S8 W2 y0 S" J. b) e) i SuperscriptBox[
9 V. c% _' n( Z G4 r, w RowBox[{"(", - v6 ` P1 _( G1 J h; j: m
RowBox[{
0 Y( ^- \6 V- v$ ^0 D8 T RowBox[{"-", "0.608696`"}], "+", "x1"}], ")"}], "2"]}], "-", ( q/ x: C ^& y1 j+ L
SuperscriptBox[
9 t$ u( A- h7 z/ u7 \) Q RowBox[{"(", 5 E, v8 e! l- ^$ z8 J$ n3 V& v
RowBox[{
7 P) U, e; I6 u% I- j# z RowBox[{"-", "0.339186`"}], "+", "x2"}], ")"}], "2"], "-", + o2 X6 u* i' A+ s) F
SuperscriptBox[& s0 i4 G% y/ V- x8 X; d
RowBox[{"(",
9 u. |7 G; N* F% q RowBox[{- r# c$ X& B" R* k
RowBox[{"-", "0.4943`"}], "+", "x3"}], ")"}], "2"], "-", 4 H3 u/ n! C# f
SuperscriptBox[
/ S D+ t' s5 P) K6 R& t RowBox[{"(",
5 x& I% y: U# l5 r0 g7 s! i RowBox[{. t3 w. P6 K e' i2 ~0 P2 J
RowBox[{"-", "0.099338`"}], "+", "x4"}], ")"}], "2"], "-", " ~5 ^9 ]' ~& W+ R; O8 |
SuperscriptBox[; G" O7 P! c' q" h) o
RowBox[{"(",
8 T8 y1 x7 g- N+ v RowBox[{0 R( z6 b+ s. G6 o( ^$ t& Y: V
RowBox[{"-", "0.321678`"}], "+", "x5"}], ")"}], "2"], "-", ) ~. Z! f0 G, m; @
SuperscriptBox[; l x$ k2 T* j1 f8 `
RowBox[{"(", ; O I6 b8 J, P/ C; J# h! c
RowBox[{) G5 a+ D/ m. g5 U
RowBox[{"-", "0.375283`"}], "+", "x6"}], ")"}], "2"], "-", , j/ d3 z N. a I% R! V8 F- r% u
SuperscriptBox[- d% L3 f) U0 M2 t% y
RowBox[{"(", : e! b* W3 L6 ?2 }) V" y
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", 4 b( _5 d0 f- j; r% d
SuperscriptBox[
6 p/ z8 e3 o6 s9 O RowBox[{"(",
) a; P9 M5 Z) c' r1 W8 o0 k, F# ? e RowBox[{
3 x) m. ?; a! }8 O# h RowBox[{"-", "0.505539`"}], "+", "x8"}], ")"}], "2"], "-", 7 E- A [6 F% Z8 f! s" P) I
SuperscriptBox[5 N8 f) R8 q% J+ U# Z& A& f
RowBox[{"(", : }9 C+ S6 B6 S0 v. F {
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
: _8 g& U3 c: k* [, N ")"}]}]]], "Output",
; m+ a$ q3 C. Z& y8 q CellChangeTimes->{3.57792048809375*^9, 3.577957329482332*^9,
8 L; Y. {% o) W; o" o4 q6 L8 ~ 3.5779607413955193`*^9, 3.578012205484375*^9}]7 N: [) \/ [$ x! U8 I7 P
}, Open ]],- n0 d' M' \7 f: F! c+ X- }
/ o, S6 g' V! j, l% e
Cell[CellGroupData[{+ v! ^5 I, T; w2 \
0 z1 k$ [& _. D5 U& O O% T' g5 ACell[BoxData[
, a2 ?/ A2 F4 \- f j% s RowBox[{"C3", "=", "Ca"}]], "Input",9 c. v% v" v- i* x# L/ k/ Y; C9 j
CellChangeTimes->{3.57792064125*^9}],
+ o' j4 h/ Z! g9 w* h2 m0 _4 h0 o! i. N, \
Cell[BoxData[3 o! ]' {: H$ M4 f4 Q; T
RowBox[{"{", 1 W' B0 f) |5 W$ K* X' \
RowBox[{2 s2 Y1 Q4 Z, y* S. K4 ^5 z
"0.521739`", ",", "0.334022`", ",", "0.3555`", ",", "0.025156`", ",",
M2 Z( Q( A' d+ E3 { "0.48951`", ",", "0.37679`", ",", "0.411382`", ",", "0.`", ",", "0.`"}],
* s8 T& J$ J% H- y0 @: Z' j "}"}]], "Output",- f( m6 i# T( d d. E, {4 ^5 Y
CellChangeTimes->{3.5779206423125*^9, 3.5779573552067766`*^9, ! ~; F; u, S, G' b
3.5779607642027593`*^9, 3.5780122103125*^9}] U) \. z { ?% B0 J
}, Open ]],
' u1 m0 @1 W. G( f6 b' p# o; T* ?3 i* {8 `& W2 `' P
Cell[CellGroupData[{' ?9 L7 R) g* p9 \; c/ d
0 t! T$ A+ t) z8 O
Cell[BoxData[
9 [( h) W0 A% Z$ e8 g6 c: r RowBox[{"u3", "=",
5 I5 X6 `# B$ r# }& q3 G RowBox[{
! J7 M5 k$ c, T RowBox[{"Exp", "[",
* S/ b+ g4 J2 f$ H$ W/ M RowBox[{6 [. @# R' I/ |+ }6 O+ o
RowBox[{
& J5 G: L+ M, \( U RowBox[{"-", 1 p5 Z6 B; m+ n7 m- B5 A) x: n
RowBox[{
0 Q5 I0 {( D7 o# F RowBox[{"(",
" r' U& }6 l, z% H0 } RowBox[{"Xa", "-", "Ca"}], ")"}], ".", ! p9 } E% ~ r/ p) \
RowBox[{"(",
+ ^/ ~ }" ^8 d( w, \9 [; k6 f RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
+ O" M6 u' @, p5 K8 W "]"}], "/.", "DeltaX"}]}]], "Input",
. D2 }# s; U j CellChangeTimes->{3.57792064921875*^9}],
& c* K A6 P% t$ e. p8 c
8 ?2 V; W) h- r9 ]7 uCell[BoxData[
: G' o# E! D# W3 [ SuperscriptBox["\[ExponentialE]",
d) S6 Y V1 |! g) m RowBox[{"3.141592653589793`", " ",
4 H# T. l' \: Y& _$ l: V% ~- z! a1 d RowBox[{"(",
i- Z% L8 A! e2 | ~: X* J5 \ RowBox[{, A5 L7 P' E- }" q' D
RowBox[{"-",
V3 H) E, Q' O- m3 ^ SuperscriptBox[% }/ ]/ J9 n" ]9 H6 \- F O0 \' r
RowBox[{"(", + L K8 a. s) U4 L9 F! c0 p6 @0 U
RowBox[{8 ~# v% }! Y ?' ]
RowBox[{"-", "0.521739`"}], "+", "x1"}], ")"}], "2"]}], "-",
0 a5 k. b6 X& o4 T9 N SuperscriptBox[( y! Z8 j7 ^8 A
RowBox[{"(",
0 A( W; G& F$ X' h& ]4 w& I" x6 p RowBox[{
1 Z2 O* J. n; b! V, q6 y. V1 M. Z8 d( o RowBox[{"-", "0.334022`"}], "+", "x2"}], ")"}], "2"], "-",
. V4 w2 L8 I1 l) ? SuperscriptBox[
% G; T/ p( ~& Y- W7 u9 z RowBox[{"(",
I$ J; S9 x* u8 Y RowBox[{
) E2 L! a) n" f' t RowBox[{"-", "0.3555`"}], "+", "x3"}], ")"}], "2"], "-", , Q, G9 Y& X4 ?$ p. l
SuperscriptBox[1 a2 `8 d" U% H+ {. v
RowBox[{"(", , ]4 b& M- v$ X# L1 H8 h/ ^9 M" c
RowBox[{
1 ^5 v. [; u" F( z7 m$ F0 Q RowBox[{"-", "0.025156`"}], "+", "x4"}], ")"}], "2"], "-",
$ `3 Y4 n9 V% _5 Y$ U* j SuperscriptBox[& _8 x, T; u( i" e$ Q3 r3 O0 A
RowBox[{"(",
+ B6 e- _6 L8 p9 A y" x RowBox[{
1 m+ ?8 I5 _ c! X$ P7 z3 V* e RowBox[{"-", "0.48951`"}], "+", "x5"}], ")"}], "2"], "-",
0 S# l% @) q: f6 S$ x SuperscriptBox[7 x0 N8 V5 g! M4 R0 p
RowBox[{"(",
, r1 ]! w7 K2 ?4 [ RowBox[{$ e5 {. {8 X$ t/ B* ^4 ]& x
RowBox[{"-", "0.37679`"}], "+", "x6"}], ")"}], "2"], "-",
. r2 \& ]/ c& h( K% P) k SuperscriptBox[# ~# d9 X7 j7 B
RowBox[{"(",
/ k7 l- B2 y7 m3 b RowBox[{' V; q9 ?: U6 h
RowBox[{"-", "0.411382`"}], "+", "x7"}], ")"}], "2"], "-", 4 z3 l+ B. F6 r+ H+ e! |
SuperscriptBox[4 O, p- k+ X) i: k- z+ \7 R$ n
RowBox[{"(",
; S4 Q" \8 Z( O3 I RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", 0 d) A3 U: D3 O! Y1 x
SuperscriptBox[
2 Q" n, J6 X8 b/ J RowBox[{"(",
4 }6 m `2 T# P4 | RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], ' N0 b, `2 ]# X+ x
")"}]}]]], "Output",
J3 Q7 F2 v0 k% i CellChangeTimes->{3.57792065059375*^9, 3.5779573573283806`*^9, . A* y) x# _7 J
3.5779607654819613`*^9, 3.578012211515625*^9}]
9 [) m4 W( ^( _/ q}, Open ]],- N' a; ^' D' H7 t" h; ^$ F+ L: S3 z j
$ q) G0 s9 |3 YCell[CellGroupData[{/ K! \7 T# [7 H m) J9 Y- V1 f, }6 Y
% t3 Y7 l4 L) a" T
Cell[BoxData[9 \% ~" G& c1 U% D' \
RowBox[{"C4", "=", "Ca"}]], "Input"," T3 J+ A) C, t% Y. v2 }( I, O
CellChangeTimes->{3.5779207559375*^9}],
. m8 V2 N, E4 }% T: [% q
+ r q& Y, Q3 n$ e/ bCell[BoxData[3 s- f: g2 b8 | ?
RowBox[{"{",
4 [8 g Q$ ~# ]& ^: b l. j RowBox[{
; Y T$ y; z- t% h "0.565217`", ",", "0.705518`", ",", "0.510223`", ",", "0.066892`", ",", / l' x, f; G$ L7 L9 g) F5 ^
"0.244755`", ",", "0.748304`", ",", "0.`", ",", "0.`", ",", "0.243032`"}], 2 k0 p# ~8 ]' P, j" } K7 f- c& N
"}"}]], "Output",3 p0 c* Q. @5 u' p, q) M
CellChangeTimes->{3.577920757265625*^9, 3.5779573926780424`*^9, % D7 n, d% o R* `8 F @) v
3.5779607861363974`*^9, 3.578012216171875*^9}]3 ]. d; D( P: \6 i6 o$ Q( i. M# x- N
}, Open ]],
6 ?1 p# W+ @. n
m$ L* J9 ~, K- L* s& zCell[CellGroupData[{
5 ?2 v) s4 E2 E( e/ `% C
' e$ ]: o' f: v1 w; `Cell[BoxData[) y: f! m3 e$ q4 N" w6 a
RowBox[{"u4", "=", ! Q% |" ^9 Y# W
RowBox[{ }5 E- V; J/ ^9 G) I) u; Q; p
RowBox[{"Exp", "[", # M4 V6 l! O$ g8 T
RowBox[{
/ _. Q/ ^7 V& s4 s RowBox[{
% O& l7 L4 Q" u3 K RowBox[{"-",
8 q) ]) Z+ r9 Z3 q" p RowBox[{9 N( e/ U9 S0 @9 {, |2 L% s
RowBox[{"(",
) v/ u6 x- V4 [7 U" D$ w' n. @ RowBox[{"Xa", "-", "Ca"}], ")"}], ".", 6 x2 e: z7 n$ u( c) `
RowBox[{"(", 9 m! J& d9 R3 F3 L9 ?9 q) Y; c1 V+ N
RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
; ?* I0 I, L' f2 \: R "]"}], "/.", "DeltaX"}]}]], "Input",( B- w6 k/ f: Z/ {
CellChangeTimes->{3.57792076325*^9}],( n+ C) }1 i( D1 `# ?% Y
6 [7 F3 b: C9 j- _5 SCell[BoxData[3 s" p B1 ~1 @5 R& D3 a1 M
SuperscriptBox["\[ExponentialE]", 5 _9 i" J K4 D
RowBox[{"3.141592653589793`", " ",
5 m. q6 Y; o- f1 w' ?; @' J RowBox[{"(",
$ ?& q' d/ Q/ K+ V1 X0 R+ l RowBox[{& q7 ?+ j! B% l! H6 e% L" h: {
RowBox[{"-", 7 ^( ~# E$ }$ W& H+ @% d, k4 t
SuperscriptBox[
/ B) m/ z& }( U5 B( w1 _1 ? RowBox[{"(",
/ S' R8 k: B- P RowBox[{* c/ f: v; o( ^# J* v0 C
RowBox[{"-", "0.565217`"}], "+", "x1"}], ")"}], "2"]}], "-", % h8 n7 n7 [ u; h
SuperscriptBox[
3 B6 y" m+ K5 r! i RowBox[{"(", $ C( v! N; n0 G3 G3 |2 F8 @
RowBox[{
, r$ m/ D9 _8 V+ U RowBox[{"-", "0.705518`"}], "+", "x2"}], ")"}], "2"], "-", , f% N9 i! L2 L$ C4 a/ z* F$ R* W- }
SuperscriptBox[) w% l" i' }# H
RowBox[{"(", / c, l" h7 q% b! |' `% I( ?
RowBox[{
1 ?% |: p6 @' M5 o' \# b) N0 D RowBox[{"-", "0.510223`"}], "+", "x3"}], ")"}], "2"], "-", ) |/ I4 }' d; {1 j: u0 Z9 p0 S: h
SuperscriptBox[
5 a: R5 |3 x. |% |* ?. S' D+ { RowBox[{"(", # q% G& B! Q3 M0 h8 Z! E# |' n
RowBox[{
9 Q3 q- H6 G" v; x RowBox[{"-", "0.066892`"}], "+", "x4"}], ")"}], "2"], "-",
8 M- [( I0 T! g# M5 s/ F' N SuperscriptBox[
1 u: D8 T" @$ B: t- J( ]! W RowBox[{"(", % c/ f9 k1 K! @
RowBox[{2 k- f/ c- ~1 \- E* Y* V1 g
RowBox[{"-", "0.244755`"}], "+", "x5"}], ")"}], "2"], "-",
! M& ?8 Z' x9 x; g4 F/ C6 d% C- h SuperscriptBox[
3 l8 I/ n) O0 `5 X8 P" a RowBox[{"(",
6 S# _ `3 M" M: b4 g RowBox[{
; Y% U4 e, r, E& ]& G. I& A RowBox[{"-", "0.748304`"}], "+", "x6"}], ")"}], "2"], "-", % T" g# X5 p: V" f/ G/ N) P; R
SuperscriptBox[' c+ L0 _) p# N) Y2 e$ u
RowBox[{"(", , C4 N0 O; i6 r' l9 w' M L* U
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
8 M' s/ H, e4 J( \9 z$ j SuperscriptBox[! K" j I2 h# E7 w8 b( |
RowBox[{"(",
2 d5 O& V/ Z5 D, Y& D1 M RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", 2 W4 j+ q% F7 a. l6 h6 J; h
SuperscriptBox[
2 X4 o6 f: U% w3 o4 e0 Z! s2 @* p RowBox[{"(", ' E; P* o5 j( ^5 I% K* S, m
RowBox[{
/ c6 S( |+ z) j5 Z. h) C# d RowBox[{"-", "0.243032`"}], "+", "x9"}], ")"}], "2"]}], 7 H7 }$ W. A) ]7 F+ [ _( o
")"}]}]]], "Output",- ?& ?! @: z! R$ I5 w2 ^
CellChangeTimes->{3.577920764625*^9, 3.577957394799646*^9, 4 \8 H6 x' D: A, a- n3 Q/ _% z
3.5779607873531995`*^9, 3.5780122169375*^9}]7 ~ k" M/ i! E( h( S- s) [: i
}, Open ]],+ h# A6 f+ g$ D* Z! k% O0 U
6 ^" |; u, ~1 B7 Y3 W) r" {Cell[CellGroupData[{) g& Z- I! l5 P& K& e, c
# l9 E' p/ O! Z. i; @9 ]5 wCell[BoxData[( w, J+ v( h' X- ]
RowBox[{"C5", "=", "Ca"}]], "Input",: t$ V+ k" Z/ T \* ^
CellChangeTimes->{3.577920860671875*^9}],
. Y7 M8 O# |& X* F8 e4 Y
* K6 f/ X# h- `- t/ o% \2 G7 F6 RCell[BoxData[. O# r) f( i# u& H$ m/ f) `
RowBox[{"{",
' J3 z R- X- e5 O7 p' ?* ? RowBox[{9 d; [3 S9 x$ r7 s9 j
"0.565217`", ",", "0.71046`", ",", "0.64973`", ",", "0.119897`", ",",
; A* ^3 `' R1 j! D "0.468531`", ",", "0.`", ",", "0.636585`", ",", "0.`", ",", "0.766748`"}], 3 E9 n0 v9 k6 _* e4 z9 X* c0 o% Y9 f
"}"}]], "Output",
' ]7 i4 ~" n2 _- L) k* H `4 ^) \7 M: B CellChangeTimes->{3.5779208614375*^9, 3.5779574339713144`*^9, ; H4 U& N( v* V3 `7 d0 f
3.5779608137328453`*^9, 3.5780122209375*^9}]
3 ?3 V$ a4 {- e6 Q}, Open ]],( \+ }* m: f8 a( y, N0 ^0 X2 G& n k
2 |, F! Q; o4 j+ v5 w0 [
Cell[CellGroupData[{
8 \# @" q+ z1 K# B& U/ U) U) ~( |
! d; I) @+ ~+ v% K- w3 P5 m1 `Cell[BoxData[
. \1 M% R* }7 Q/ |: p5 ^$ O RowBox[{"u5", "=", - C* \, x6 R- O
RowBox[{ ]3 s8 [4 m, b" `" K
RowBox[{"Exp", "[", $ |3 S+ ~* I4 \+ Z
RowBox[{
( h! H+ ~% \& T L RowBox[{9 E" Z$ r; n* G. Y6 z8 A
RowBox[{"-",
* s( _! U/ n" t: w: l: r RowBox[{, r) Q4 v9 i5 _/ m" e' ~
RowBox[{"(", P6 P$ c& L3 C. t5 z
RowBox[{"Xa", "-", "Ca"}], ")"}], ".", - O- X) E U( t9 @
RowBox[{"(",
/ r( f; M" `* M. [- b RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],8 |; c& x+ q! }3 @" u
"]"}], "/.", "DeltaX"}]}]], "Input",
1 t6 X) C9 w5 x6 g1 f- |( J9 s ^ CellChangeTimes->{3.577920869375*^9}],8 R% u5 B' l6 D3 ~8 A
+ Q5 A- U1 @ |1 o! T* d4 j1 J3 D! S5 @Cell[BoxData[
. F0 ?- f5 S' _/ P9 F SuperscriptBox["\[ExponentialE]",
9 B. ]' q `; ], d5 G% g) w RowBox[{"3.141592653589793`", " ",
- D! k- W( m( R* A. Z/ s7 O( O/ M4 g( Z RowBox[{"(", 9 j& w/ L1 _% S+ X
RowBox[{
7 C2 |2 g; O; T# }8 {% D: f RowBox[{"-",
1 B& c- C4 b+ F$ c# ^ SuperscriptBox[3 P. ~9 S: i* @: q
RowBox[{"(",
9 U2 B6 a6 N8 ^# e RowBox[{4 e' o1 o& `3 y4 f# [) e
RowBox[{"-", "0.565217`"}], "+", "x1"}], ")"}], "2"]}], "-",
/ B0 r( r7 n3 V6 t- x \* R, z SuperscriptBox[
+ K ^% o7 p7 I" Y! x8 j RowBox[{"(", / ?& q& [* b' K, p$ o
RowBox[{6 l+ N1 X$ _6 s& {
RowBox[{"-", "0.71046`"}], "+", "x2"}], ")"}], "2"], "-", 5 z& |/ x+ |/ t) I; x0 \
SuperscriptBox[
5 H/ f0 l% X5 K$ o/ ?# _ RowBox[{"(",
k5 [$ u' L4 c) e; c t; \ RowBox[{
) E$ r" Y( y( y5 T5 p/ ^ RowBox[{"-", "0.64973`"}], "+", "x3"}], ")"}], "2"], "-", " d5 X6 |; _' K4 P8 M* Z
SuperscriptBox[
% y& t: ?2 S4 H' T RowBox[{"(",
% R4 e; D6 q+ n9 Z/ T3 P4 @ RowBox[{
" }1 {' E V- ?3 U7 G RowBox[{"-", "0.119897`"}], "+", "x4"}], ")"}], "2"], "-",
' ~4 O! V" Y" v2 @2 c SuperscriptBox[" R0 t- V! a0 P) u+ s: ^8 p
RowBox[{"(",
) O& N0 [4 j* s3 z" i RowBox[{
( F9 A# q' Z5 k: _ RowBox[{"-", "0.468531`"}], "+", "x5"}], ")"}], "2"], "-",
/ _. a0 K$ Q/ m SuperscriptBox[
1 w; t, o1 c# o+ S RowBox[{"(",
! h# C# r! _. ?1 J* e g: S RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
& B r3 f6 ]( V" g3 J, r8 | SuperscriptBox[
5 _, `3 a ~$ m) F RowBox[{"(", % l9 q- v3 ^( G& {0 Z
RowBox[{
+ |. b& s9 @: e; x* L( w RowBox[{"-", "0.636585`"}], "+", "x7"}], ")"}], "2"], "-",
8 h" r8 \: U3 E+ Z# S/ V1 _ SuperscriptBox[ \' `8 f) I# H, b" e5 y
RowBox[{"(",
3 ]9 E! M. ^6 X% G9 ] RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", ! D9 U8 O i7 z+ j; E
SuperscriptBox[$ d5 R, c3 U( d. y! t4 Q1 U! k
RowBox[{"(", ! J$ @( o0 P- a$ _; Q. V
RowBox[{
9 d+ }! u# p+ {0 G! V0 \ RowBox[{"-", "0.766748`"}], "+", "x9"}], ")"}], "2"]}], , w/ K% u8 ?8 I
")"}]}]]], "Output",
1 D2 C( E5 J8 U$ @ CellChangeTimes->{3.57792087128125*^9, 3.577957435188116*^9, + a8 ?: Q+ m7 I
3.577960815043248*^9, 3.578012221953125*^9}]
) }2 J7 o! Q' j% b% \$ V5 |}, Open ]],0 v4 K6 Y, E+ i" j) T3 Z
! R. U1 O: W8 N, Q; ?& ^Cell[CellGroupData[{
4 q! j- ]& j* t6 K
5 q( e- n9 n. d- UCell[BoxData[$ o6 V; `8 V, a" m# S3 s0 D
RowBox[{"C6", "=", "Ca"}]], "Input",4 E& \) g% w5 ~: ~6 p( u
CellChangeTimes->{3.577920860671875*^9, 3.5779211201875*^9}],- V1 Z" Z( f) u- g, I6 ^4 J
6 n2 z: H6 d$ Y/ G/ y9 W0 R
Cell[BoxData[9 l$ u2 a- a7 K) w& R/ P- l
RowBox[{"{",
" t' |! w1 z. o) p- r RowBox[{+ B) D) Q) ?, K/ l: A
"0.130435`", ",", "0.682724`", ",", "0.258697`", ",", "0.019299`", ",", 7 N9 I3 D0 U" g5 q) Y
"0.51049`", ",", "0.420497`", ",", "0.535772`", ",", "0.`", ",", ' X( _! Y( b9 j# o7 v; T1 j+ O# B
"0.494866`"}], "}"}]], "Output",: q( I$ Q9 W- |6 u, f6 g- G
CellChangeTimes->{3.5779208614375*^9, 3.577921121*^9, 3.5779574726281815`*^9,1 C' C0 y+ J1 V L
3.5779608373044868`*^9, 3.578012227359375*^9}]* `( X$ o3 }) u5 C
}, Open ]],/ Q/ |: I& J) z" P
: }* d5 y4 O- n3 rCell[CellGroupData[{
/ s, s( V+ F5 m9 C3 D W
5 w9 A+ K0 o2 ?5 HCell[BoxData[' @8 E2 d4 S' I1 Y' F) X$ |3 {+ O
RowBox[{"u6", "=",
d/ N. p: q$ j: K& @$ }9 P RowBox[{3 {: Z! k) U4 R5 i( N5 l
RowBox[{"Exp", "[",
8 @' P# h G. o9 V9 P RowBox[{, C- y- E8 u6 z: j# Y
RowBox[{% R5 j2 B& Z: _% K I; l$ j
RowBox[{"-",
3 T9 O T: ?& Q* X RowBox[{- g/ I1 d% c! d# s+ F) Z# q
RowBox[{"(",
" m& o; v; W- V: j: E RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
8 n: t' a" ]3 D$ W! z0 L RowBox[{"(",
( t f( r! X/ Z1 j, u RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],& d2 h* g, Q. T; Y2 E
"]"}], "/.", "DeltaX"}]}]], "Input",6 @' }( P, Y+ X# k4 L$ A6 f# E
CellChangeTimes->{3.577920869375*^9, 3.57792112309375*^9}], j3 e y/ O( v$ O$ A2 Q
- }/ s+ F" H& ^0 @- F7 tCell[BoxData[5 b: V& }( ?/ M2 |
SuperscriptBox["\[ExponentialE]",
6 F# i1 U- {! O9 ^2 W RowBox[{"3.141592653589793`", " ", $ W# W: ?$ w# ?$ ?8 T+ m {& {
RowBox[{"(",
1 P- L- j1 Y2 V% X6 e RowBox[{# ^6 Z9 Z, \: Q/ K
RowBox[{"-", 8 I9 R! \: ], T% T# `5 U$ ^
SuperscriptBox[
( U. Q3 Q! r' h! l5 `2 U" d RowBox[{"(",
9 [+ J7 i F& M2 e7 j, j% n RowBox[{
+ r* x* r1 r3 k" F9 L Q- T RowBox[{"-", "0.130435`"}], "+", "x1"}], ")"}], "2"]}], "-", - P" s5 @ _, v E7 b7 |' x" W$ u
SuperscriptBox[/ r8 ?8 ]/ }' B9 T1 y1 ?
RowBox[{"(", ( @/ M5 `5 A! S" y0 y2 i6 x
RowBox[{. P4 i4 ^1 B$ K
RowBox[{"-", "0.682724`"}], "+", "x2"}], ")"}], "2"], "-", , w4 N" N/ C0 r
SuperscriptBox[
~. W) u8 X/ `. ]7 ^, n6 j+ T RowBox[{"(",
1 I& {9 M/ P6 e4 P1 {, j% f RowBox[{
* X* m; H9 b# d# @ RowBox[{"-", "0.258697`"}], "+", "x3"}], ")"}], "2"], "-",
* D# l" M! b! Z! H% F! ? SuperscriptBox[" a, m( y& k: ]' s3 Z
RowBox[{"(",
4 a; |- L4 [' R" O. H* `- Z$ r RowBox[{' v, [5 C6 Y+ [! x: z/ `8 O" u
RowBox[{"-", "0.019299`"}], "+", "x4"}], ")"}], "2"], "-", * w% w- k1 S( q9 O+ h
SuperscriptBox[6 @8 v( r, s3 d% q D( I
RowBox[{"(",
' t! M, i# F& b8 ^% l) \( T RowBox[{5 q$ A1 y, K W3 c$ T
RowBox[{"-", "0.51049`"}], "+", "x5"}], ")"}], "2"], "-",
$ g( B8 G% I$ O SuperscriptBox[
9 ^& X5 o ~+ X RowBox[{"(", 7 D3 V0 s. K( U0 M; u
RowBox[{" x1 c- M; L8 m7 o7 U$ q
RowBox[{"-", "0.420497`"}], "+", "x6"}], ")"}], "2"], "-",
. T @: a$ C1 X* j' p' E& |; W SuperscriptBox[
, s- E. P6 l$ H- z RowBox[{"(", 1 T8 E( W: ?' m' j" o9 Z8 C" @
RowBox[{
9 G k0 r7 F6 ~ RowBox[{"-", "0.535772`"}], "+", "x7"}], ")"}], "2"], "-", * Z, Q- M) V) R- J6 O
SuperscriptBox[
- g7 h6 H9 y0 Q8 L& _ RowBox[{"(",
1 Q, @% J5 | b. l! i/ O' S9 [ RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", / `6 F0 g( H# }8 R( V/ P
SuperscriptBox[
9 {" I1 ?+ \4 ? RowBox[{"(", 1 F; Z3 {- r% f: D# p
RowBox[{
9 S5 S2 z/ j! I4 M) s% \5 a! c RowBox[{"-", "0.494866`"}], "+", "x9"}], ")"}], "2"]}],
Z3 @* f ]2 w+ g: e% y6 c ")"}]}]]], "Output",6 l' K* d/ R: K/ Q
CellChangeTimes->{3.57792087128125*^9, 3.577921124328125*^9,
, V" ^! f( u, Z0 J0 {& Z q( s8 l 3.5779574736733837`*^9, 3.5779608382560883`*^9, 3.57801223009375*^9}]5 f6 y8 v9 K" e7 k( g8 k
}, Open ]], b) m: V% u, t
5 G+ u9 P: S3 H7 `: _6 i4 |Cell[CellGroupData[{% `5 D. a. ?0 \7 F& o% O
: H- u4 Q( L% }- D/ rCell[BoxData[9 i6 x1 ~$ Y6 D* o9 u$ h
RowBox[{"C7", "=", "Ca"}]], "Input",7 U3 I# P) n) S/ P" s
CellChangeTimes->{3.577920860671875*^9, 3.5779211201875*^9, . B* w3 w: a- F! S# `
3.577921316125*^9}],; j9 i& a5 b+ X8 f+ X4 M
+ E% [; v7 i/ oCell[BoxData[, s) l+ a# w' C$ a
RowBox[{"{", ! R. E% u6 W# Q5 ?" z+ e
RowBox[{
( ?6 x" a% _; V& A# S# y( Z "0.695652`", ",", "0.71828`", ",", "0.33973`", ",", "0.110285`", ",",
) u- c$ c( |; Y6 W$ ^. O3 w "0.335664`", ",", "0.`", ",", "0.636585`", ",", "0.780463`", ",", "0.`"}],
0 h4 a9 _3 {5 p2 ?! r# h" ?+ x2 v "}"}]], "Output",
8 W5 o8 u2 h) Q b! u! s h CellChangeTimes->{3.5779208614375*^9, 3.577921121*^9, 3.57792131765625*^9, " K, [4 ^: U# e8 _' {. M+ ]9 ~
3.57795750042743*^9, 3.5779608630913315`*^9, 3.578012250234375*^9}]
% @: D) U: N, ?9 k5 t2 j9 I, C$ Y}, Open ]],0 A" \ c& |, u5 o8 ~) s! r9 h
6 }" g6 p( P3 }5 V' jCell[CellGroupData[{: }1 W9 t v2 E6 p5 [+ h4 ]+ B
* A0 f, S: I6 U. RCell[BoxData[/ T( \% l7 h( y6 i5 k
RowBox[{"u7", "=", + c- E/ E- S6 x0 Q- I4 N
RowBox[{# f4 ]5 k4 a7 A3 N' {
RowBox[{"Exp", "[", c# {' i* @- x
RowBox[{$ B9 F& {6 O" x! S6 S
RowBox[{
3 W: n, Q) x+ n# I, s; z- r RowBox[{"-",
3 K5 X- j- r: J" @ @/ B0 N RowBox[{
! p( u0 q7 g6 L' t+ P+ Y1 Y RowBox[{"(",
: N; j9 k" a+ N RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
# ^% R* R3 E" a3 [ RowBox[{"(", 2 i( @0 e# A+ `: n# T
RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
* @) [+ A- f6 B- _ w "]"}], "/.", "DeltaX"}]}]], "Input",
. V5 Y4 u- a; ]. R; \9 \- J CellChangeTimes->{3.577920869375*^9, 3.57792112309375*^9,
{% Z J) d2 @6 Y! H" o 3.57792132028125*^9}],
- Y" u F! R3 q/ @9 \7 {; S W7 A0 M0 W
Cell[BoxData[& |$ R" w4 C$ g G, U, P
SuperscriptBox["\[ExponentialE]", - I2 l J( k/ O2 @4 f: r
RowBox[{"3.141592653589793`", " ",
+ q. B4 e8 i* F8 C4 x2 n4 h, H8 w RowBox[{"(",
0 u" D2 {/ ~' N' S- p2 q0 V RowBox[{% u2 R( h1 J+ U g) s4 C
RowBox[{"-", 4 e4 J4 F7 y1 b3 I4 e3 p8 Z& I" {
SuperscriptBox[
6 W) G% H% f% Y: ? RowBox[{"(", $ T- i8 |8 f- C$ c4 `
RowBox[{# I {1 k/ A$ _3 _8 y
RowBox[{"-", "0.695652`"}], "+", "x1"}], ")"}], "2"]}], "-", 4 B6 |5 t8 j( U3 }9 [
SuperscriptBox[8 X* i! s4 V3 P; J2 F9 F2 _
RowBox[{"(", 1 c+ y7 k) P( P! X& X* I9 \- D% M
RowBox[{
2 R9 |+ C: a O RowBox[{"-", "0.71828`"}], "+", "x2"}], ")"}], "2"], "-", Y3 Z) U& M# K3 W0 q$ m1 Y9 k; Z
SuperscriptBox[$ x" @/ p/ v5 v8 ]% C0 @0 S
RowBox[{"(",
E, I$ r% e, k RowBox[{* |, \ @- A: A1 z, j ^
RowBox[{"-", "0.33973`"}], "+", "x3"}], ")"}], "2"], "-", 0 Z' A9 y$ ^5 J& S* C
SuperscriptBox[/ ?3 [1 w4 N( c1 V2 p
RowBox[{"(",
" @3 y# B* R/ r$ k8 H/ E9 G, p RowBox[{9 [) f F: @* ~, l
RowBox[{"-", "0.110285`"}], "+", "x4"}], ")"}], "2"], "-",
+ R/ B+ I# ^/ n& t SuperscriptBox[" A5 X0 K4 R+ @
RowBox[{"(",
0 S$ ~) Q* @3 E# g) O r RowBox[{
0 f, n7 D* O" K* k3 `* ~' U( M RowBox[{"-", "0.335664`"}], "+", "x5"}], ")"}], "2"], "-", : Z% n- O- Y) a B4 _% c
SuperscriptBox[+ V0 C1 U. O% [+ L0 ~3 Y
RowBox[{"(",
2 `1 t% Y9 x4 s4 x. s RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
# S$ B1 |# v' W; l# F( f SuperscriptBox[8 L x7 y$ D7 w t
RowBox[{"(",
9 Q- q6 u1 P) ^0 y' Q+ S. S RowBox[{
z& L& l% x5 U2 I( e/ s RowBox[{"-", "0.636585`"}], "+", "x7"}], ")"}], "2"], "-", 0 z4 n' { l" R0 o- q. y+ ]
SuperscriptBox[% P9 M k% c; a- l) z' W7 r
RowBox[{"(", + t* G, Y) u ]. U. `% q
RowBox[{3 e2 v) Z% V# J8 F2 k
RowBox[{"-", "0.780463`"}], "+", "x8"}], ")"}], "2"], "-", ' O' ~4 ~" r& u5 c5 J4 y
SuperscriptBox[
9 ~: C( Z9 j. C RowBox[{"(", 1 v. t* X+ ?1 @1 h
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
- r/ G7 d' B% E; ~3 a ")"}]}]]], "Output",+ A F/ Y/ Y" o, i& b3 j
CellChangeTimes->{3.57792087128125*^9, 3.577921124328125*^9,
) A$ U: y6 ]" W q 3.5779213213125*^9, 3.577957502221433*^9, 3.5779608640897336`*^9,
; _: l5 m9 z: m6 T& X0 b1 W 3.578012251359375*^9}]
. k* e: n2 G. _ z, T1 A}, Open ]],
5 _( d9 r; d- @3 K7 x D H1 u b1 W7 }
. X) V' q; }! p2 }8 g. | ?Cell[CellGroupData[{
9 i& G& d0 O/ O* a$ A+ ?* M: G" B3 H& l2 l9 p$ R5 o: k
Cell[BoxData[/ A, ~9 g. [0 T. [' W5 H
RowBox[{"C8", "=", "Ca"}]], "Input",/ S+ _- a0 G; P' F0 T$ b& e$ O8 e
CellChangeTimes->{3.577920860671875*^9, 3.5779211201875*^9, 3 I. V$ v- S7 N8 W: b
3.577921316125*^9, 3.57792141421875*^9}],
) s( Y' l% {4 M, F
2 l: K# ]; z5 ?' S- BCell[BoxData[
# K ~! Z/ L& X RowBox[{"{", + {" Z3 E2 w6 V* _7 C( N
RowBox[{
' y- b ^' \! @7 I% q5 Q Q1 q "0.652174`", ",", "0.569711`", ",", "0.414297`", ",", "0.175398`", ",",
1 U0 C( z, s# X2 p& I. _) ~ "0.167832`", ",", "0.`", ",", "0.544715`", ",", "0.`", ",", "0.`"}], + ^) m/ t( e8 w0 H
"}"}]], "Output",
7 C2 R9 E( O+ V& y& s CellChangeTimes->{3.5779208614375*^9, 3.577921121*^9, 3.57792131765625*^9,
u5 D5 z$ a" k/ | 3.577921415375*^9, 3.5779575288038797`*^9, 3.577960893433385*^9, # o" `5 H5 ?/ u; B$ G( c- c
3.578012260515625*^9}]
: C" ^& a1 w' B}, Open ]],
. P S4 O8 L2 G3 D# M
) ~: C4 y% ^! W' }4 S p9 PCell[CellGroupData[{& w' a3 [ }5 {* Y& T! B" u6 j# r3 `
6 \3 \+ B! e2 ?4 O9 [1 MCell[BoxData[
' d# W4 N3 k# x0 _+ B RowBox[{"u8", "=", + F" | w" j0 y- {
RowBox[{( w/ L% v& a6 a# O( _
RowBox[{"Exp", "[", 8 o# z" X9 [: X1 ?: Z
RowBox[{2 v& h, V$ q$ ?' E E8 q
RowBox[{
. z# o- M, g; U9 R0 }: u4 T6 C' {% _( p RowBox[{"-",
/ g6 @7 g- M; H8 j; ?0 k RowBox[{/ ?; _2 ^5 w8 m" V9 v1 [
RowBox[{"(",
% B |- }/ @1 S/ W6 ?0 J RowBox[{"Xa", "-", "Ca"}], ")"}], ".", # K! R" M6 q: A0 b0 \
RowBox[{"(",
+ o. r' I4 n8 Q6 K: ^ RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
, f( m6 ~' D' f) {5 ~ P* {3 T0 P% Y* @6 j "]"}], "/.", "DeltaX"}]}]], "Input",
$ l T/ E W5 W CellChangeTimes->{3.577920869375*^9, 3.57792112309375*^9,
0 F) b" @: Z* h& ^! B: X 3.57792132028125*^9, 3.577921416921875*^9}],, N r& r2 f8 Z( }( j. j$ @' `, D
3 Q+ D% O0 V( Y
Cell[BoxData[
# q, t7 K9 o% j2 U* Y0 s: | SuperscriptBox["\[ExponentialE]",
$ d) l" j+ A4 @7 P! @ RowBox[{"3.141592653589793`", " ",
" f. H& U' q& V) l1 W0 G7 o9 n2 T RowBox[{"(",
( _+ [ z+ a3 z, Y8 @ RowBox[{
3 X3 E1 d# V& L1 h5 ]) A RowBox[{"-",
2 Q$ T6 P* |" N, L SuperscriptBox[7 R4 C7 `' Q, S7 W% P/ f& {
RowBox[{"(",
- ^ N* o+ e3 n: e1 C RowBox[{
* N8 @/ F+ V: J2 \ RowBox[{"-", "0.652174`"}], "+", "x1"}], ")"}], "2"]}], "-", ) Y6 N: c& `) x/ w6 T% O% E
SuperscriptBox[
$ z# P9 p& Z3 Z RowBox[{"(", 9 Y( N* I s" `0 U/ C# |
RowBox[{+ ]4 g) O, d& H: ^, |* y
RowBox[{"-", "0.569711`"}], "+", "x2"}], ")"}], "2"], "-", ; K3 L8 e$ r; |/ J( Z5 |3 X9 q
SuperscriptBox[! t) M/ ]: v' t
RowBox[{"(",
) L) i4 G& I5 g1 A% a7 K( E RowBox[{$ s1 C1 D6 E+ z1 j# J8 E
RowBox[{"-", "0.414297`"}], "+", "x3"}], ")"}], "2"], "-", 5 b9 s: b! a# x
SuperscriptBox[
" N, E: E3 ~+ e( U# L RowBox[{"(", / T8 a) X8 Z" |4 g4 q
RowBox[{
( s. W" {! r% F+ y, ~5 a RowBox[{"-", "0.175398`"}], "+", "x4"}], ")"}], "2"], "-",
8 l5 t. j1 F: E ]5 a1 } SuperscriptBox[2 i% k* b1 `8 U! G2 M6 z/ z
RowBox[{"(",
M/ N4 j9 I( b RowBox[{0 N- H3 J& {4 y! f0 g4 l
RowBox[{"-", "0.167832`"}], "+", "x5"}], ")"}], "2"], "-",
5 Q2 n4 F( Q0 a: `3 B SuperscriptBox[# ^! U, _, |- D
RowBox[{"(",
/ n' n4 X; f& k; y7 b RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", 6 q* R# m4 ~8 h- @, Q6 w, x
SuperscriptBox[7 f' O% k1 p# h0 o5 F/ f0 p
RowBox[{"(",
2 c" {6 A; _$ y! U! p( j) r RowBox[{
4 ^) w2 _+ s6 p1 ?% k+ R RowBox[{"-", "0.544715`"}], "+", "x7"}], ")"}], "2"], "-", % S& K8 U3 W0 Y( L7 w
SuperscriptBox[4 r4 M1 ?2 o' x5 s4 Q, h" P& G
RowBox[{"(", / f9 [+ M9 V( s7 x- ~' W
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
. \8 I, j9 V8 X j* B/ n, A SuperscriptBox[
/ \, s- K" W0 ] RowBox[{"(",
) Y8 v7 W% l0 Q( K RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
, d! L" y. ]/ [5 M ")"}]}]]], "Output",0 _3 X' @" ^ B1 W$ z, i
CellChangeTimes->{3.57792087128125*^9, 3.577921124328125*^9,
) G, K" B. V- E/ Y1 L# v+ Q 3.5779213213125*^9, 3.577921418765625*^9, 3.577957530145482*^9,
' \1 W$ I" Z- S+ F ]/ m* c* W 3.5779608945565863`*^9, 3.57801226165625*^9}]: t& G* p) z+ p; u: U
}, Open ]],
; e# ~: u4 N, n
/ Q+ f. ?% A. y, k' q+ {( [Cell[CellGroupData[{
6 @! o4 Z O$ ?& [0 H/ r/ V, X7 }( T+ h1 {. a! K9 I3 u4 z: @
Cell[BoxData[
/ X& ?8 O) r- F! @0 D! t( P! ~, s RowBox[{"C9", "=", "Ca"}]], "Input",
# j9 }+ M$ v9 T8 x CellChangeTimes->{3.577920860671875*^9, 3.5779211201875*^9, 2 z2 [6 K3 y2 k$ u: ]4 Y
3.577921316125*^9, 3.57792141421875*^9, 3.577921513890625*^9}],/ w B0 I6 F/ g9 `! R: k1 V
* F H& H9 j6 m& z# G* t. Q& i* oCell[BoxData[
! Z3 w; \- h2 l" q: a RowBox[{"{", % G7 o" }+ |' |! h- G: t3 \" ?
RowBox[{7 ?) P# s/ S3 T1 @2 v. L: \
"0.`", ",", "0.395544`", ",", "0.027011`", ",", "0.048087`", ",", 9 N! W+ f; b- U
"0.496503`", ",", "0.`", ",", "0.452033`", ",", "0.`", ",", "0.278729`"}], 9 _. T' C6 @! S9 I$ M
"}"}]], "Output",
4 R* t G/ u6 n1 |- B) [ CellChangeTimes->{3.5779208614375*^9, 3.577921121*^9, 3.57792131765625*^9,
+ n, t$ C, ^- v4 T1 c$ F 3.577921415375*^9, 3.577921514890625*^9, 3.577957560674735*^9, % b3 m0 A; E. O1 w/ P9 C
3.5779588670442514`*^9, 3.577961429021782*^9, 3.5779615287839565`*^9, % O) v, K- N2 f# `& \
3.578012268234375*^9}]; l0 i7 z D4 x3 u" K1 u8 Y$ u0 w) d5 F
}, Open ]],
" Y1 R. j2 O# M3 T% W% x A' c, a, f/ G! m, `
Cell[CellGroupData[{. h0 T. Z; t ~
H! p; M9 e: T5 YCell[BoxData[
) G4 e3 d# s$ g8 g% C RowBox[{"u9", "=",
" g% b } `0 K2 Q" [ RowBox[{
! Q% ]5 T+ r" m RowBox[{"Exp", "[",
8 V! f' c0 t A: @- C6 K2 W RowBox[{
t: X! A' W, t RowBox[{
4 i3 m0 G1 M& T; @- {* \ RowBox[{"-",
: A, f5 r6 H0 r& U' y RowBox[{4 p8 k% u$ W$ q) r- z/ C
RowBox[{"(", % ~2 ?8 \6 y. m1 ^( Y2 _3 W
RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
9 q! O+ M, Z* K1 J3 ` RowBox[{"(",
2 P; B& n+ }* A# D8 Q5 x7 ]: i5 Q% H RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],& i( Q# c/ a. m% }: x6 @2 s% x
"]"}], "/.", "DeltaX"}]}]], "Input",. g% t) L6 R" v* s7 W
CellChangeTimes->{3.577920869375*^9, 3.57792112309375*^9,
: a# z% [* B# _1 o& i 3.57792132028125*^9, 3.577921416921875*^9, 3.577921516859375*^9}],: ?+ b' I( w% ^0 ^7 `0 a. d
& R# p* m% m3 P i' n# qCell[BoxData[9 i9 j: Q% C/ [8 {! ?: z9 ~
SuperscriptBox["\[ExponentialE]", 3 U! d$ n. H I( J5 \/ w
RowBox[{"3.141592653589793`", " ", ! I. {* ~. W- Z: o
RowBox[{"(", & E* ?8 \# `$ N5 b" t
RowBox[{0 W- |) B5 B! b6 s" w
RowBox[{"-", " X+ c- _4 U6 [0 [& h
SuperscriptBox[
4 F8 o& B5 `. j4 E RowBox[{"(",
1 J2 G" Q7 v4 W RowBox[{"0.`", "\[InvisibleSpace]", "+", "x1"}], ")"}], "2"]}], "-",
2 l: S+ _2 x; B% x9 y7 @- a3 r SuperscriptBox[
/ _& \ [* A! `# d; V) m, } RowBox[{"(", ; @' Z; D2 K$ ^
RowBox[{
! z" `4 f0 e9 ^1 V. y RowBox[{"-", "0.395544`"}], "+", "x2"}], ")"}], "2"], "-",
+ u: f1 {9 F3 X- C% o% g k2 { SuperscriptBox[0 F: ^1 k( z/ A0 M o# h) @
RowBox[{"(",
( \. d \6 T" Z6 J* y5 M RowBox[{
5 l- x X$ y/ ?: ]7 E RowBox[{"-", "0.027011`"}], "+", "x3"}], ")"}], "2"], "-", C8 H4 w6 c. ]8 g4 d7 F! R0 M
SuperscriptBox[8 J4 W0 g$ T c
RowBox[{"(", $ M% ]% b2 x, }+ s; H1 ~+ j6 T
RowBox[{
6 u" R, U8 ?' ]9 T4 B$ n RowBox[{"-", "0.048087`"}], "+", "x4"}], ")"}], "2"], "-",
' _% P* Z4 F+ V SuperscriptBox[
1 C+ H) O# ?! f8 j: N RowBox[{"(",
9 ~/ D0 }2 [% N. C1 \# Y RowBox[{
8 B* c, D5 q# @/ x RowBox[{"-", "0.496503`"}], "+", "x5"}], ")"}], "2"], "-",
( U9 R/ E2 N! L6 M+ @" ~: i SuperscriptBox[
) w8 S2 I5 M; R8 q5 E9 | RowBox[{"(", 3 ]2 B+ ?1 X' f5 @+ {8 S" I% K
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", ; P4 v# l! e# N% X& u3 e( T
SuperscriptBox[
. ^0 M3 K. V! P: K' p+ { RowBox[{"(",
; X/ T) Z- I u7 w; f3 z RowBox[{
2 Y, G8 \+ q: C% G$ C RowBox[{"-", "0.452033`"}], "+", "x7"}], ")"}], "2"], "-", 5 F3 w8 v9 ^7 q z, Z
SuperscriptBox[, k/ A" Q, G$ |0 u+ A
RowBox[{"(",
* k- S3 S# q$ u/ Z Q RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
l5 t$ d8 u' i( G F! E0 b1 ] SuperscriptBox[
7 o7 s- A4 b! K6 W RowBox[{"(", : N& l& {( J1 K
RowBox[{1 P6 Q! M% v( X: h6 `1 S
RowBox[{"-", "0.278729`"}], "+", "x9"}], ")"}], "2"]}], 8 s0 L6 b* D' L
")"}]}]]], "Output",
: g6 a6 P; y/ q8 h* B/ z CellChangeTimes->{3.57792087128125*^9, 3.577921124328125*^9,
& \9 z# e& e1 g& h 3.5779213213125*^9, 3.577921418765625*^9, 3.577921518078125*^9,
$ g2 s% c' d( L2 i" U 3.5779575617355366`*^9, 3.5779588687914543`*^9, 3.5779614354177933`*^9, " P8 g4 g; O) G( v9 {& ?6 t
3.577961530421959*^9, 3.578012269125*^9}]& F, C F5 F9 x) e6 L: D0 }
}, Open ]],4 [9 r9 c2 ?, i/ N7 c
- E; b2 z/ O) f
Cell[CellGroupData[{
8 }2 R K( ]; C/ v' H* w4 M% d% o/ }+ ^* z! h
Cell[BoxData[{
# F/ A9 E$ } Y4 i6 b9 a) u/ ` RowBox[{"C10", "=", "Ca"}], "\[IndentingNewLine]",
* g1 m8 e! d4 w' I# |3 z RowBox[{"u10", "=",
% S% @0 V3 [+ ?: V X( ^4 c! h RowBox[{" E( m9 J" R' }
RowBox[{"Exp", "[",
% ` O* j3 N9 m1 q- V RowBox[{
* W s/ X" b5 Q! K0 u/ c RowBox[{' k. }9 j0 E0 v t) f3 R
RowBox[{"-",
& W8 W" F) [! {" d& n& C RowBox[{
# |# {' J. S" X- l6 x, f7 q RowBox[{"(",
& X3 b3 \! |) L7 A RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
# K' \: ~1 Y; Y2 M$ g# \7 d8 Y4 l RowBox[{"(", 9 J& k4 o# L2 r9 Q6 ~1 ~/ T9 |
RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
2 n5 c$ U/ f" I "]"}], "/.", "DeltaX"}]}]}], "Input",
' c& `2 f! ^- d2 L CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}}],
) f% E- I# w; |& s6 D6 L7 z$ T$ b& L' q; e
Cell[BoxData[1 P& X0 W7 v) ^+ Y! D- e8 k
RowBox[{"{",
+ r r o) M( Z2 a. n RowBox[{
; T4 }" L ?5 M7 }5 I "0.565217`", ",", "0.572293`", ",", "0.655012`", ",", "0.281852`", ",", $ ]: v) C6 B3 H% e+ i& E
"0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}]], "Output",
6 |/ J$ B+ b3 A( c CellChangeTimes->{3.5779614955246983`*^9, 3.57801227703125*^9}],
- h6 M4 E1 A( f3 C- [' ^+ L; X; R0 z- s; h4 d
Cell[BoxData[
- n7 t3 `# U. `/ E3 E }3 m SuperscriptBox["\[ExponentialE]",
L5 G- F$ C0 @/ G7 v RowBox[{"3.141592653589793`", " ", " e# M" m. T; n4 C
RowBox[{"(",
0 R5 H8 R0 `) m* ~' a RowBox[{4 h7 M$ K0 d7 e& p1 r x5 _/ }# Y! q
RowBox[{"-", ; T: S# O& K e3 C' G
SuperscriptBox[% W E% | \7 X. R& K
RowBox[{"(",
( l* Y* k6 R0 ~' o" A RowBox[{
* l4 ` f$ O, J2 W RowBox[{"-", "0.565217`"}], "+", "x1"}], ")"}], "2"]}], "-", # @- [$ ]# N6 h4 C8 C6 V# G
SuperscriptBox[
7 n2 V$ u, d1 r. b RowBox[{"(",
, G7 Z* e1 `2 A* b$ _ RowBox[{1 T0 j& h( k2 D. J2 s
RowBox[{"-", "0.572293`"}], "+", "x2"}], ")"}], "2"], "-",
5 `# S, L# p2 N! b4 C SuperscriptBox[9 j0 \9 z1 k' ]$ j, J; Z
RowBox[{"(", + l5 C4 Q. W! r9 A+ B
RowBox[{
; m% M* N" H! n/ e7 u+ z* e RowBox[{"-", "0.655012`"}], "+", "x3"}], ")"}], "2"], "-", ' w$ p+ v: N' P4 w, V7 r# t
SuperscriptBox[
) m$ g* J1 [" t( E% w- J# J RowBox[{"(",
- x! ]' F! a6 v4 g: n9 X5 b RowBox[{* X1 Z! F L- K& C& ?5 g
RowBox[{"-", "0.281852`"}], "+", "x4"}], ")"}], "2"], "-",
/ k) T* ]- F) E8 s: e0 B SuperscriptBox[' A i; W9 Q9 Q- F, ^
RowBox[{"(",
" m2 p1 g2 X/ E8 ?7 k RowBox[{"0.`", "\[InvisibleSpace]", "+", "x5"}], ")"}], "2"], "-", ; k# r2 F: Q! B& ~5 b5 p
SuperscriptBox[9 L3 ~- u$ D e. H& I
RowBox[{"(", 9 e6 k* O: U0 S% T3 c# ]
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", 9 e- g* B2 U4 c3 u
SuperscriptBox[
3 {' G% `% \( j RowBox[{"(",
! k5 F. e+ m. ` RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", ~' S* g; ~! X* a+ H) ~" k
SuperscriptBox[* ]' g4 `1 g( x' B" u, Q6 u
RowBox[{"(", 1 [- p6 l; m* x, ]
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", $ F, i C. Z0 ]2 b+ k* V0 X5 r
SuperscriptBox[
+ }, a; v) S/ } U; u RowBox[{"(", 4 D+ l! T" @9 ^6 S! Z+ G
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], ) n! N, ?$ e" R$ |
")"}]}]]], "Output",. `3 u+ y6 Q. @7 m; h: X
CellChangeTimes->{3.5779614955246983`*^9, 3.578012277046875*^9}]2 l0 t; t% a: G
}, Open ]],
& N( Q7 d N' @4 q7 [; ]
+ A0 l# T( ?+ R" m3 R0 d$ \$ HCell[CellGroupData[{9 h9 _' Z( y$ J3 k
8 c: Q7 _4 b* J4 S. pCell[BoxData[{! F4 N; V4 { i9 M( t- h9 o
RowBox[{"C11", "=", "Ca"}], "\[IndentingNewLine]", c: l- x0 f) g- R: O4 M/ Z0 b
RowBox[{"u11", "=",
, C; O& h; U s1 u& \ RowBox[{ W4 `4 o! I) }$ t/ B' F7 n0 V# }
RowBox[{"Exp", "[",
7 u1 L" B, A( m Z% B6 t RowBox[{' F; w6 E& J; r" ]
RowBox[{: C0 `- ]) J" w
RowBox[{"-",
) b' [4 Z s* e- X5 H RowBox[{
! m6 I, U! a# U$ x! F9 }; r RowBox[{"(",
7 y2 _ M4 b' ? RowBox[{"Xa", "-", "Ca"}], ")"}], ".", 5 F+ F0 Y6 r: j+ L% |
RowBox[{"(", / y7 v: j2 Q3 Z- h0 K2 `
RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],$ m- M3 h/ _0 N# V2 n0 r" V! A( B
"]"}], "/.", "DeltaX"}]}]}], "Input",; t. Q3 w9 q& Z5 _; W
CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {5 I" L* S% O1 a
3.57796154237158*^9, 3.5779615434011817`*^9}}],
5 U8 @6 }$ f2 v# V9 }0 b7 C
; `8 t" D& V$ y7 b& n8 m/ F- bCell[BoxData[$ \2 g3 T! e7 j2 o8 {/ y/ ]
RowBox[{"{", 5 K1 [# B" }8 I4 H
RowBox[{$ a8 M: |& U- u- T- N# [
"0.717391`", ",", "0.736205`", ",", "0.267704`", ",", "0.036152`", ",", ) D2 s- `$ h3 y6 t( T6 ^' g; l
"0.307692`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], 6 q+ ~0 w! x6 O) H8 O
"}"}]], "Output",
0 w5 ^* D+ T# O$ g; q CellChangeTimes->{3.5779614955246983`*^9, 3.5779616282029295`*^9, - i/ u2 ^0 F$ C+ `$ `. w% u
3.57801228203125*^9}],
2 |$ L4 h4 d) S. V" _; y3 _! I/ W/ d
Cell[BoxData[4 _7 s7 ~# z! z4 y" X- D2 m
SuperscriptBox["\[ExponentialE]", " c/ A! {1 {$ `* T4 {
RowBox[{"3.141592653589793`", " ", 2 A. V2 C! A$ j& K: @$ x: `6 C8 E
RowBox[{"(", 2 L/ d# a4 l, @
RowBox[{
' z9 @% i. c; j& Z+ e RowBox[{"-", % q$ L2 `# I& C
SuperscriptBox[
4 K9 f- {8 p. ~! V$ _ RowBox[{"(", * E2 W7 }; k. d2 r
RowBox[{4 ~4 W% a+ o1 S! [$ E+ W9 Y; B& f
RowBox[{"-", "0.717391`"}], "+", "x1"}], ")"}], "2"]}], "-",
: u1 A& e* L9 w SuperscriptBox[6 \! g3 H9 B6 Q3 {2 D2 ^# ^6 z4 w' s
RowBox[{"(",
! K. _8 K5 e1 G; J/ k RowBox[{
- J4 g. M& b" M2 S, J3 r+ S RowBox[{"-", "0.736205`"}], "+", "x2"}], ")"}], "2"], "-", & [" S$ D9 K# [0 n
SuperscriptBox[8 C; Z! c. D: u+ [- Z3 Z
RowBox[{"(", 1 w; A6 `0 @% B
RowBox[{
1 s' K. |- O, h4 p6 R& ^ RowBox[{"-", "0.267704`"}], "+", "x3"}], ")"}], "2"], "-", : D- O G h7 V& P9 y3 L; Q
SuperscriptBox[
" v" \4 ^, X0 ^ RowBox[{"(", , B6 p1 A- e' p; X. i5 E
RowBox[{
7 u5 C. y& }+ y/ z+ ] RowBox[{"-", "0.036152`"}], "+", "x4"}], ")"}], "2"], "-", " C9 p/ |; O- U2 w; G; t) X0 x3 R
SuperscriptBox[. g8 ]5 f1 S$ R: E
RowBox[{"(", % _1 n. o( L; l) h
RowBox[{
- q/ A! B/ Y: F) k8 G4 y RowBox[{"-", "0.307692`"}], "+", "x5"}], ")"}], "2"], "-", " |/ N* }, ?0 v! A! a
SuperscriptBox[' [) U! l' B+ o0 f, M
RowBox[{"(",
" ?7 l9 O8 H3 c" [9 Z- `' \. W& L RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
6 J% t! M X5 v* j SuperscriptBox[3 t. E' T1 b* O6 J$ o: ]) W# k
RowBox[{"(",
4 g4 r0 z# ], G! R# V3 L0 u( Z% A, ? RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
7 ~5 h9 R. z2 s( f SuperscriptBox[
" e, i `; A" X0 @6 I6 @ RowBox[{"(",
5 x; e/ |& V- [& [7 |! o1 E RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", # h% J L. o4 ^$ B& j( B
SuperscriptBox[
* F$ Z- D! J$ I( ?: }( C RowBox[{"(", 3 n1 S' Y7 G8 w
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], 3 w0 H+ s7 {: d7 X9 x
")"}]}]]], "Output",
$ U' M9 d1 y+ X* s2 `3 ? CellChangeTimes->{3.5779614955246983`*^9, 3.5779616282029295`*^9,
( ^6 z* Q. x% @2 T) u4 { 3.57801228203125*^9}]
1 O0 s) r2 m9 U* v}, Open ]],
! k6 p9 L2 j7 k8 K1 r5 O6 {* {- M9 [, q8 c* B" q p
Cell[CellGroupData[{/ n/ }% I7 B+ j2 ^! ?. h- R
9 S; Y& d, G9 M# m sCell[BoxData[{
, h# [! L, a7 Z7 w RowBox[{"C12", "=", "Ca"}], "\[IndentingNewLine]",
9 x9 Q+ d8 ~! `. n5 `; T0 P/ e RowBox[{"u12", "=", " V' s1 V5 N: i! t5 S: [$ u3 j
RowBox[{
; N j7 u2 ?: c; l" e, n2 B" X RowBox[{"Exp", "[", 5 W! ?! m% Z9 |9 i* g
RowBox[{
4 i/ l5 n$ ` w& } RowBox[{
4 i1 M ~) G' F3 `: B, k {0 b RowBox[{"-",
% R' x7 x$ e( [/ a- d RowBox[{; S/ l2 n8 ^3 M* ]1 k, \
RowBox[{"(", 2 }4 I4 N; m5 m& V% L
RowBox[{"Xa", "-", "Ca"}], ")"}], ".", % s& ]8 J. x. \
RowBox[{"(", 0 T; n% W# M5 l) [" x/ W: |
RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
s, P5 X: j7 Y$ V/ F2 [ "]"}], "/.", "DeltaX"}]}]}], "Input",
, X3 U* J: q5 O, n U CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {1 p$ O- W# J; p% j
3.57796154237158*^9, 3.5779615576284065`*^9}}],
' M- x# [* b$ K) g" E9 ^4 L9 J [3 ^) a$ M, \. _- C
Cell[BoxData[
" N5 K! Q7 X+ I! C$ r9 _ RowBox[{"{",
# E4 A+ {4 C% o RowBox[{
& v7 _4 b3 J2 Z% Z" Y "0.913043`", ",", "0.170478`", ",", "0.`", ",", "0.012973`", ",", 4 q4 r% D1 h3 j
"0.293706`", ",", "0.`", ",", "0.`", ",", "0.672709`", ",", "0.`"}],
4 O% d) f: h2 d8 m% z+ e "}"}]], "Output",
& H; A1 X0 l" |2 [* P7 z5 K CellChangeTimes->{3.5779616594029837`*^9, 3.57801228759375*^9}],2 |8 X1 T+ _0 V w8 T
/ m. y; L+ x- L; Z% W1 E: f% YCell[BoxData[. p1 l# B7 x1 ?# t+ ~
SuperscriptBox["\[ExponentialE]",
' q! D* v5 H a" a RowBox[{"3.141592653589793`", " ",
9 O5 z6 `! R% E0 [ RowBox[{"(",
* Y, r- `# R3 D$ P RowBox[{ L% [/ N; I9 P" [0 W
RowBox[{"-", 9 k0 I; ~8 z& V _" g% E: t; i# ] n# q
SuperscriptBox[
" F0 u) ^; X, }! E" X5 X5 |; C$ a RowBox[{"(", ) |7 A' X5 d: U! d5 r
RowBox[{
7 x) H4 Q0 M; {5 ~ RowBox[{"-", "0.913043`"}], "+", "x1"}], ")"}], "2"]}], "-", 2 y, j( C0 \$ t' g" L! t D' G
SuperscriptBox[6 k$ O2 ^+ n" @: b) r
RowBox[{"(",
" P' y1 J/ t9 `. o: J RowBox[{
. k% y+ s# g0 u; y. {. x RowBox[{"-", "0.170478`"}], "+", "x2"}], ")"}], "2"], "-", - A/ l, H4 L" L3 N& c, F# y% W
SuperscriptBox[
/ Q% s1 R; v6 X- K: G RowBox[{"(",
+ a9 H- `: O$ A! Q( P RowBox[{"0.`", "\[InvisibleSpace]", "+", "x3"}], ")"}], "2"], "-", ) q5 R- [0 m. Q) E3 d8 b
SuperscriptBox[7 n6 O+ h& v& O& _
RowBox[{"(", & g9 i- f( Y2 F
RowBox[{
* g: x. L9 G( T( r9 M" B# |% p RowBox[{"-", "0.012973`"}], "+", "x4"}], ")"}], "2"], "-",
) u8 V$ V# z5 Y4 Z1 b: F' H SuperscriptBox[0 ~! M; j1 r% j. P' X) ?
RowBox[{"(",
) e/ u7 @ W) l) D, K RowBox[{
. c/ r0 v# v& i# [! ] RowBox[{"-", "0.293706`"}], "+", "x5"}], ")"}], "2"], "-", # x% z1 P8 D. p6 k q$ r- o
SuperscriptBox[6 n6 a/ ?$ |+ h# y
RowBox[{"(",
' `: r% T! L: n) ?6 u3 W, y RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
. R9 p. m; R2 f SuperscriptBox[
+ q; H4 s% T, u+ h" M0 H RowBox[{"(", / @' F; j. D3 ^$ R" b T$ {' Z
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
( u. |- P) X$ S6 Z* t1 v9 \2 ~ SuperscriptBox[8 p, w$ S; ^) c" k6 g4 s
RowBox[{"(",
6 D8 y' n" {6 S) L2 k RowBox[{
* u; `! A9 h; G RowBox[{"-", "0.672709`"}], "+", "x8"}], ")"}], "2"], "-", ' v; b4 S* C! B' J$ O. y! g
SuperscriptBox[
5 E; q+ T7 b. F RowBox[{"(", : Q' `9 O$ x6 j0 W
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
2 O+ l$ c: J# k. n ")"}]}]]], "Output",
S3 w6 z" d" f3 R* s4 ]2 n; T4 ~ CellChangeTimes->{3.5779616594029837`*^9, 3.578012287609375*^9}]
; E C+ H7 ~- h- l5 A# M}, Open ]],' }4 |8 P4 `+ Y( S" f$ l
$ x9 N) f1 ^! B( R# O) f# n) H
Cell[CellGroupData[{
9 T. ?/ d( s) m- G+ m% Y. ]4 q6 B t
Cell[BoxData[{. A! v6 H) R% t' g" F6 v
RowBox[{"C13", "=", "Ca"}], "\[IndentingNewLine]", 8 t* }7 @# ^" Z! ^) n/ f) Q
RowBox[{"u13", "=",
8 @$ q# @" d8 x* ? y RowBox[{. J1 K5 j |3 z g5 ?; B: q! ^
RowBox[{"Exp", "[",
/ D& H% K/ t8 L- _% S5 P. i RowBox[{
7 M' G5 _- m( D" n6 n( V RowBox[{# ]0 Z- P+ Q9 S8 `
RowBox[{"-", 3 W8 k; c4 X" {: W) Y
RowBox[{
- M( O4 v$ j; y2 d RowBox[{"(",
j0 E. p/ M6 M1 k2 ~$ v& B RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
! b& P0 X+ X0 P& h1 L RowBox[{"(", 6 `. ?3 K% |. j9 V: c5 f' k
RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],* A6 O4 r/ Z+ i F0 w) }
"]"}], "/.", "DeltaX"}]}]}], "Input",! Z5 w' @3 \6 D o6 ^
CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {' \' t3 f- Y% |5 f. Q% y
3.57796154237158*^9, 3.5779615599684105`*^9}}],8 i( B5 U- R w/ ^. b. W
3 h' F9 r: L/ O: h! ^Cell[BoxData[
9 a, m4 O; V; Z" ]$ z RowBox[{"{", 2 Q3 ^' ~& z$ J& p, s
RowBox[{
0 z4 k% k* g5 b* H) [/ s, x "0.73913`", ",", "0.193199`", ",", "0.160584`", ",", "0.037907`", ",",
, h. U8 y9 g; y8 |! f "0.461538`", ",", "0.`", ",", "0.684553`", ",", "0.`", ",", "0.`"}], % R) O; X0 r- D% `1 _% r
"}"}]], "Output",8 h8 B$ t5 f6 }. Y+ h5 T. M
CellChangeTimes->{3.5779616928806424`*^9, 3.578012300078125*^9}],3 G. b; M% B: ]3 \; g
4 q" k0 w, S3 X! W( q% J1 B
Cell[BoxData[
0 \- G: E( b# @$ ] SuperscriptBox["\[ExponentialE]",
* z+ r* i' L9 y RowBox[{"3.141592653589793`", " ",
) r! ?! S) Q8 E0 H+ f RowBox[{"(",
* d' o6 M6 j! `$ n# n& K+ Y( R5 u: o RowBox[{# y9 G1 t! x) l8 D7 @; M2 e W, s
RowBox[{"-", O0 |$ @ |* v+ @& @# P5 d
SuperscriptBox[
: |" a* v( u- m3 M2 U! m1 X, F RowBox[{"(",
, r# c+ E3 r0 Q6 X6 W RowBox[{
& }1 I. o7 ?: S4 R) u RowBox[{"-", "0.73913`"}], "+", "x1"}], ")"}], "2"]}], "-",
8 `/ O, X" H& m SuperscriptBox[, ^; ^- _! g& v' E# w# @
RowBox[{"(",
: ~1 @+ b( G+ `1 z3 r# D! z* b RowBox[{' p- |' N2 i7 ?' O; H
RowBox[{"-", "0.193199`"}], "+", "x2"}], ")"}], "2"], "-",
2 V4 G G! f6 Q! a: ?/ ~9 e/ K& q SuperscriptBox[
/ y& e* ? b" B RowBox[{"(", 9 D# V8 Y0 f8 x) K+ a0 F$ {
RowBox[{% R' ~$ @+ m1 n. V9 l! Z9 J$ J. q
RowBox[{"-", "0.160584`"}], "+", "x3"}], ")"}], "2"], "-",
$ @! F3 G5 l! X& e$ ?# K3 E. U: f SuperscriptBox[
4 T2 U/ N1 A- I) p% z3 F P RowBox[{"(", 3 p8 v9 \% b5 s$ A+ L& h" A
RowBox[{6 d k& Z- O/ z& Q/ `5 h3 `! u
RowBox[{"-", "0.037907`"}], "+", "x4"}], ")"}], "2"], "-", * A/ ?+ q# N! ^ q% v
SuperscriptBox[
9 T4 n3 F J; y RowBox[{"(",
Y; p% \, V! `# @ RowBox[{
2 D7 x4 z" ~8 O; f+ I3 W; ]% f RowBox[{"-", "0.461538`"}], "+", "x5"}], ")"}], "2"], "-",
y. j2 Z& [$ ^! P SuperscriptBox[
5 S( q% E# g- S% w! k+ j/ w2 o RowBox[{"(",
0 ]9 i1 {, }! h2 c6 X RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", + s; @ \. }, L
SuperscriptBox[
# i8 g9 q% a" ?4 h# a RowBox[{"(", / Q1 F: S: l2 F0 y+ z2 J* u
RowBox[{
* v9 ~ k. Z) z7 D RowBox[{"-", "0.684553`"}], "+", "x7"}], ")"}], "2"], "-",
; o7 d# j; j/ u$ D: d! o! B8 W SuperscriptBox[
: J, I) k. P+ d w+ o" i! z RowBox[{"(",
# s# \8 _* B# I" o: v RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", . @3 |& k6 T) f! k* \2 T
SuperscriptBox[
- A; c. i4 r& {) U+ {4 u2 ?0 }/ J RowBox[{"(", 3 X7 [, E# R8 X0 d
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
+ ~" M/ A( g# d! ~ ")"}]}]]], "Output",
+ ^- q8 A& k: I6 l/ W# q3 S CellChangeTimes->{3.5779616928806424`*^9, 3.578012300078125*^9}]
& |' y ?7 u6 D4 I; |7 G! [% t& \}, Open ]],$ W1 z( b* \3 I- _+ Y
- [, [( `) o, H" g( p5 T' e% E
Cell[CellGroupData[{
; z3 o% m% J% `- V: D" S- s0 ]8 Y; K5 K: P, _4 }8 l8 }5 Q) a# u6 Y
Cell[BoxData[{0 j6 o8 P( O3 ?
RowBox[{"C14", "=", "Ca"}], "\[IndentingNewLine]",
; p1 r' ~* d3 K! v7 B. f; s$ ^2 p! e3 m RowBox[{"u14", "=", % w7 e6 b# y0 }/ J
RowBox[{. u/ `- e' K) s# |" K
RowBox[{"Exp", "[", 1 C! d4 ?3 j( l E, m: j
RowBox[{1 Z* \2 h5 T* i, @6 I9 x2 g
RowBox[{
+ p( H! T2 X& n& E RowBox[{"-",
: u; F7 _8 M* d9 J7 ~ X RowBox[{
) u% K5 U2 K @9 V" e* l9 e RowBox[{"(",
" R0 X( r8 A- i6 r: W RowBox[{"Xa", "-", "Ca"}], ")"}], ".", ( v! g/ S: K: t X
RowBox[{"(", 7 n1 `. [- I+ ^- V: H5 X
RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
( G6 P: B, I9 R5 f; Z4 u "]"}], "/.", "DeltaX"}]}]}], "Input",
3 |, i- H. S$ e J0 I1 T CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {+ x9 N) i# P) u! x- m$ I1 b+ [
3.57796154237158*^9, 3.5779615663176217`*^9}}],
6 l5 c6 M2 v, q7 @
7 ]2 i% D0 j$ U. [, \7 i& V$ [' ICell[BoxData[- b$ G: q/ J3 D# c$ i: [6 R
RowBox[{"{",
% O0 }* Q+ V: `) O% B RowBox[{9 e' ]1 J! L3 p
"0.826087`", ",", "0.203969`", ",", "0.234619`", ",", "0.27224`", ",",
& L5 E! b# c* ?4 ] "0.265734`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], $ B" S5 w* R8 P' p) Z; z* A5 q
"}"}]], "Output",3 L; c# ?- ]6 Q% ?$ r# {0 C$ p8 `
CellChangeTimes->{3.5779617235034957`*^9, 3.57801230559375*^9}],
9 ~0 H. o- O- u, `
+ Y! u2 D+ n8 M) K5 v2 ^Cell[BoxData[
* j. Q3 u3 Q: @5 m& r7 q- C SuperscriptBox["\[ExponentialE]",
0 o" s) A" h K2 X RowBox[{"3.141592653589793`", " ",
. ^) q8 @: \! r8 C/ K1 }" ] RowBox[{"(",
* P4 v+ k- H- l$ q! {+ N RowBox[{& G0 m, o) H+ p- K. [
RowBox[{"-",
9 N* R5 l& w! o- L5 ]+ c SuperscriptBox[) K/ F. R2 @9 z" U" Q& ^& h
RowBox[{"(", 4 `8 V6 B ]$ a( I8 M3 [
RowBox[{
3 M# }* ]3 s5 F) ~$ L {/ _ RowBox[{"-", "0.826087`"}], "+", "x1"}], ")"}], "2"]}], "-",
! L/ @' u; q3 Z4 C SuperscriptBox[
\* R7 [) w- {# H. f K3 O+ H RowBox[{"(", / j" Z5 c. g0 I/ u
RowBox[{8 z8 a7 }! d* c/ P3 S+ T, `& H
RowBox[{"-", "0.203969`"}], "+", "x2"}], ")"}], "2"], "-",
3 E4 R# @: f( @ SuperscriptBox[8 b( ]" W4 Y3 W* j1 y5 p) o
RowBox[{"(", 9 O9 L+ w7 ^8 k3 @
RowBox[{% |6 H. t1 n6 h2 @
RowBox[{"-", "0.234619`"}], "+", "x3"}], ")"}], "2"], "-", 2 [$ w3 J7 u$ S
SuperscriptBox[
) Y2 [$ {8 ^- _+ c1 M" a RowBox[{"(", 5 q- o; J) J4 T5 W6 w& ]0 b% J, G
RowBox[{
1 A6 b: _* m8 ~! _8 }- }3 { RowBox[{"-", "0.27224`"}], "+", "x4"}], ")"}], "2"], "-", # f3 \$ y4 t/ c9 E7 |
SuperscriptBox[
+ O0 M% f, _& b1 o7 m* N RowBox[{"(",
' r" r' a& d" |. `4 R& m4 L RowBox[{
7 R! }; o- _3 y9 n RowBox[{"-", "0.265734`"}], "+", "x5"}], ")"}], "2"], "-", $ |$ g, c* |- v7 }' _$ r( l
SuperscriptBox[" i/ E0 T/ P. S7 E
RowBox[{"(",
. Y+ c+ I |- Z2 X p2 ]4 K/ X0 B- U RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
# A8 I7 F ?2 e2 E SuperscriptBox[# n2 Q' H4 P9 q! b6 i( n& Y
RowBox[{"(",
1 \- _- X5 {7 y2 i: P5 X% z3 \ RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", $ U7 V9 D( `( q- G; M: c; h
SuperscriptBox[: \8 [! `: r# A C% s1 a
RowBox[{"(",
' _) i3 d7 L# y1 w/ t RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", 5 t) `% J7 o O+ L2 C% ~( P
SuperscriptBox[
6 u, g) o0 Q5 t+ e/ H3 Q RowBox[{"(", ' |+ I, E0 B& b. L& q2 ?9 O
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
3 @$ l p4 i' ~9 x N$ F6 t! P$ [ ")"}]}]]], "Output",9 b+ U! s2 i6 z2 Q4 b9 _, k; E+ b9 O) x
CellChangeTimes->{3.5779617235034957`*^9, 3.578012305609375*^9}]. L T! G, k' i2 R Q5 ?9 B3 z. L1 w
}, Open ]],
# m2 |2 v+ Q2 @8 P" {
" Q; X5 o- k: YCell[CellGroupData[{. c, ^0 Y! e/ P& t7 }. |1 _; S
$ ?; X2 \2 x# M* M
Cell[BoxData[{. R+ b7 p3 J3 `# k7 l. `
RowBox[{"C15", "=", "Ca"}], "\[IndentingNewLine]",
4 h% ^: f3 D3 U I. ] RowBox[{"u15", "=", & g; {) h- {) ^$ k, P9 {) V. ~
RowBox[{/ h- g7 k2 T& i
RowBox[{"Exp", "[",
! H' n! |* V: ]! C/ K+ U- q0 c, ~ RowBox[{: J5 B- f: D8 W: f
RowBox[{8 n+ y) j1 [3 T/ H, Q; \' {
RowBox[{"-",
9 m) e$ _& y& N- c RowBox[{5 S9 A/ v$ E& p- `3 {
RowBox[{"(", 7 L3 U1 J0 \5 J* L
RowBox[{"Xa", "-", "Ca"}], ")"}], ".", 8 M4 e8 F' G) I
RowBox[{"(",
7 u' j' ~ v+ b1 s7 p# B( p) L RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],$ E" H5 g* z3 z& b
"]"}], "/.", "DeltaX"}]}]}], "Input",* E0 F- w: w% Z0 S
CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
* t% X$ N1 ^8 h( C* ~ 3.57796154237158*^9, 3.57796157098203*^9}}],
, i8 W5 P" C8 Z5 o5 [8 o4 Y4 Z5 j1 P
Cell[BoxData[
. Q! U& m- F$ m' M; U RowBox[{"{", . j( \7 q3 a+ i% A R
RowBox[{
6 T0 N" R" S: y' | "0.413043`", ",", "0.551859`", ",", "0.544826`", ",", "0.230503`", ",", 0 Q3 n; C( P4 ?: P3 S( o
"0.244755`", ",", "0.53052`", ",", "0.819512`", ",", "0.`", ",", "0.`"}], 8 M0 C$ i- _$ n! k( T
"}"}]], "Output",6 N8 D2 f9 u; V* A! E
CellChangeTimes->{3.577961751599145*^9, 3.57801231003125*^9}],5 K6 @* a$ f4 P2 H6 ^
5 k; Q }& @) t7 K3 I& k6 G
Cell[BoxData[% P+ v' g0 H4 O8 s. J9 a. T& T+ b
SuperscriptBox["\[ExponentialE]",
* d+ D W' ~4 | RowBox[{"3.141592653589793`", " ", $ y' S- r3 ?3 f" `$ n9 O
RowBox[{"(",
6 z, i; T: D1 P) H% q6 g& r RowBox[{
1 H" U- ~/ p T* U# g: {3 x) o$ m RowBox[{"-", 9 T, I( l9 `3 `. W, ^& |
SuperscriptBox[
: |7 m3 O" X( ~# `5 | RowBox[{"(", 6 i; S1 U2 m# c4 L( ?1 b) c$ T9 Q
RowBox[{
3 @/ `( X- ~9 N RowBox[{"-", "0.413043`"}], "+", "x1"}], ")"}], "2"]}], "-",
' _0 C/ \2 I6 n' ?( p" O1 i: ] SuperscriptBox[
! ~8 f: n% ^6 ^; I3 { RowBox[{"(",
- g6 \5 o+ t) J( W1 n/ A8 r5 { RowBox[{
' u" p" e1 c: K3 `2 I7 K RowBox[{"-", "0.551859`"}], "+", "x2"}], ")"}], "2"], "-",
' t! j$ I7 T( z$ Q# T: A) } SuperscriptBox[
5 D; I- X1 H) Y4 n7 O RowBox[{"(", - F6 |( \! Y0 h2 |) j! w L
RowBox[{) _% o) [/ z2 M L0 I' P: V8 y% R4 Z
RowBox[{"-", "0.544826`"}], "+", "x3"}], ")"}], "2"], "-", 9 G1 ~ ^$ ]' R
SuperscriptBox[
6 ^7 T6 k! J( ^& P+ Q/ { RowBox[{"(",
) _- b9 z. X j. ^4 P RowBox[{
9 S& R' ?& J. x" @6 \, y& c RowBox[{"-", "0.230503`"}], "+", "x4"}], ")"}], "2"], "-",
7 h. `' h7 v6 F, F; Y" g6 O SuperscriptBox[
# @* c% z" ]* ~+ R5 V/ h! c RowBox[{"(", # ~2 k: n# l! {+ z" ~) R/ l
RowBox[{# {4 X5 ?: M0 f. {7 e9 G. F) E% x
RowBox[{"-", "0.244755`"}], "+", "x5"}], ")"}], "2"], "-",
! k2 m& c( b, s) d- I1 P SuperscriptBox[6 c# x" t. }* G' P- k
RowBox[{"(",
5 l% k% y+ F7 u3 Z RowBox[{, x8 |" l6 m5 _9 I' F7 w
RowBox[{"-", "0.53052`"}], "+", "x6"}], ")"}], "2"], "-", 4 `# o# ?3 ?. F5 v4 E+ b
SuperscriptBox[1 c' M8 Z. c% P& R: r
RowBox[{"(", 4 X, b+ b4 ~) O
RowBox[{
& k9 ?/ t$ R a& k0 Q; [ RowBox[{"-", "0.819512`"}], "+", "x7"}], ")"}], "2"], "-", 5 C5 s8 S- z" W. g
SuperscriptBox[, A' ^3 L l- ]" E* C, O9 E7 I y& s, ~
RowBox[{"(",
9 R0 f, r! d! P1 b" W$ ^2 i% G' q, l, h$ h RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
& V5 R- U# R, q& A& z SuperscriptBox[0 i# [9 x; H3 M8 {" O- M
RowBox[{"(",
% z1 Y0 L, O0 Q: G/ d RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], J. V$ m1 c- w
")"}]}]]], "Output",
9 Q" q" [6 M% [4 y CellChangeTimes->{3.577961751599145*^9, 3.57801231003125*^9}]" E" d9 k5 [! m* Q" i2 M ~
}, Open ]],) ?) I/ c* v A; T' j
6 \ K) g4 u4 O {6 j# G7 |: R: Q
Cell[BoxData[
' @. P" H" h0 R RowBox[{"For", "[", ( t) D# ~$ ]7 y) R8 W+ V
RowBox[{8 R/ N$ i8 Z- J( w5 ^4 v
RowBox[{"i", "=", "1"}], ",",
& j7 \3 R$ h# _6 t: J) w RowBox[{"i", "\[LessEqual]", "9"}], ",",
% Q9 Q6 {! h$ q& z- R RowBox[{"i", "++"}], ",",
8 L, k7 h$ [( r& `0 U RowBox[{
# D6 `& `9 r# x9 i- k0 W6 \" o! k0 \ RowBox[{"Ca", "[", 8 E/ d( m2 Y# l2 k( B
RowBox[{"[", "i", "]"}], "]"}], "=", 5 b8 J% F- V2 @3 w n3 H$ q8 w
RowBox[{"CM", "[",
+ O; X/ y4 Y5 L l _ RowBox[{"21", ",", "i"}], "]"}]}]}], "]"}]], "Input",, d" X3 ~3 U9 ^2 d" a4 u( r
CellChangeTimes->{{3.578012202078125*^9, 3.5780123368125*^9}}],
8 u: y0 p1 p- L6 F0 P- y" b, S0 M0 Y, \( ^- S6 A
Cell[CellGroupData[{; o( f i6 @: o6 m3 p: r. g* d9 k
k4 c4 H$ ~1 ?$ Z/ E! g% E: u" @
Cell[BoxData[{7 J6 v0 p/ K$ @7 W) I+ @4 c* A: A
RowBox[{"C16", "=", "Ca"}], "\[IndentingNewLine]", 2 e6 M, F9 g, k# Q
RowBox[{"u16", "=",
r* I/ i& @! @3 e1 K) M) u RowBox[{
& X) X; g* F4 {" g# G( \; y4 c0 { RowBox[{"Exp", "[",
- p3 i* Q: V# e; K J+ a RowBox[{
& ?8 H$ r6 ]/ n# Q RowBox[{) S C: E! o4 m( }
RowBox[{"-",
7 H0 C8 a: J' e& y4 C% W RowBox[{
8 z4 q& w) U! s( y! l RowBox[{"(",
# ~' X, b { v ]9 p RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
9 r+ Y* G% D+ @5 ?8 X! `; C RowBox[{"(", : [) y% R6 `! H3 p; }# _3 h
RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
/ I7 F, @5 q! w6 o$ F "]"}], "/.", "DeltaX"}]}]}], "Input",
; k2 ~) A2 u0 ? CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
$ ^$ ?' J! g: ?4 w' {) O0 Y6 Q 3.57796154237158*^9, 3.5779615434011817`*^9}, {3.5779615741020355`*^9, 3 g; }1 Q. K8 i
3.5779615751004367`*^9}}],+ `2 n* x2 g* P6 I! i) p
1 T' U/ h2 J( ?$ b& a3 j* Y
Cell[BoxData[
9 G( ?; K+ c6 F4 y M& l5 X' a RowBox[{"{", ) t! q! E# ^. ?
RowBox[{3 Q% z% _8 H* a# ~* Q+ Q
"0.434783`", ",", "0.551785`", ",", "0.530346`", ",", "0.151651`", ",",
& t3 q5 f: M& Y% \: z "0.79021`", ",", "0.529013`", ",", "0.409756`", ",", "0.`", ",", "1.`"}],
& ?3 N* P, X9 A C+ c/ u7 { "}"}]], "Output",. h2 W) @) S8 q( L
CellChangeTimes->{3.5779617754359865`*^9, 3.578012314984375*^9}],/ L/ H. z6 H' t0 f% {
& i. C" m; ]. iCell[BoxData[
+ }8 b6 |; P! V SuperscriptBox["\[ExponentialE]",
& n( B& l; D% N, [1 G, Z- `+ ` RowBox[{"3.141592653589793`", " ", % p+ ]+ V; k* l0 ~
RowBox[{"(",
+ R& ^" a+ a3 Z1 Q RowBox[{% _4 ^- y* p( C5 d, ~7 [
RowBox[{"-", $ k3 l- d) F( X+ ~
SuperscriptBox[
2 ^# H; A) P- |, _2 s RowBox[{"(", 7 z, o4 L( ]+ v4 \
RowBox[{
) U `8 X$ E& ^* r- V" M* p RowBox[{"-", "0.434783`"}], "+", "x1"}], ")"}], "2"]}], "-", $ d# q! G. e+ W& G* m5 u
SuperscriptBox[& ?0 U6 ^" K0 C8 k$ V" C+ F
RowBox[{"(",
; G- [' a2 w; }; z ]. G! w2 A RowBox[{
1 t7 A- @% w n$ M* j RowBox[{"-", "0.551785`"}], "+", "x2"}], ")"}], "2"], "-",
8 s# D5 @1 d/ v5 b/ `3 N I SuperscriptBox[; g5 d n: e' i( W; }, P# W
RowBox[{"(", - _, t1 H! r ]/ i. n
RowBox[{
# q+ |( ~+ t# j3 ~6 F9 h3 p: @ RowBox[{"-", "0.530346`"}], "+", "x3"}], ")"}], "2"], "-", 5 \: ]8 I& W4 N0 D
SuperscriptBox[- R: }, G4 c: H8 m Y0 M( O
RowBox[{"(", 3 y- g I9 N- p- j3 y$ V# l9 ]
RowBox[{
9 L5 J9 o& v* z. S% a$ n RowBox[{"-", "0.151651`"}], "+", "x4"}], ")"}], "2"], "-", ( d" X4 ^9 {, z2 Z
SuperscriptBox[& ^# O* |* F4 n5 ]6 r
RowBox[{"(",
' k+ r- z' |. N# X; k% P RowBox[{7 P& b0 M1 E# b
RowBox[{"-", "0.79021`"}], "+", "x5"}], ")"}], "2"], "-", - l7 u$ x8 D9 Q) v. E
SuperscriptBox[
! G1 g0 B* O: @) o2 e! [0 M RowBox[{"(",
# L7 P& ^" } m3 j* I" w) o RowBox[{
4 `* I+ v6 b; I" D4 ~: |7 j; ? RowBox[{"-", "0.529013`"}], "+", "x6"}], ")"}], "2"], "-",
; E1 {" |, R5 r% Z2 f SuperscriptBox[
4 z+ b4 O1 R# X' h0 I( ?( z RowBox[{"(", " q" t2 t/ D" T9 m( d$ i' D8 h
RowBox[{4 a' M9 v2 @$ `- T
RowBox[{"-", "0.409756`"}], "+", "x7"}], ")"}], "2"], "-", 9 w& w8 _# W. {6 n4 y+ |! }
SuperscriptBox[' | Q) C4 ^6 K8 r
RowBox[{"(",
: V# v0 j/ s' F" U U; p RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", z5 R4 y8 v6 G. \ U4 w
SuperscriptBox[2 @# `; }4 A* _
RowBox[{"(", ) P: F5 z+ f% |# z! b8 X
RowBox[{
+ n2 z. u6 G( Y- R* g h7 [ RowBox[{"-", "1.`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]], "Output",8 u4 J5 E0 w6 B9 h
CellChangeTimes->{3.5779617754359865`*^9, 3.578012315*^9}]0 _- G! q; q, B# `+ s
}, Open ]],* g4 Z* i9 Z# e4 ]! W: k! C$ M
) a' L* L* v0 [9 `( W p
Cell[CellGroupData[{8 x6 x) ~/ R# x: x" C2 c( k( I
0 ]0 [( M6 u" D HCell[BoxData[{) p) _* H, ^6 M }
RowBox[{"C17", "=", "Ca"}], "\[IndentingNewLine]",
* I! V w2 l8 [9 ~ e- _ RowBox[{"u17", "=", 0 {' L/ t6 J7 {! @4 z) L
RowBox[{
. B Y& I* L" s- E3 Z RowBox[{"Exp", "[",
# I8 f; D: L; r3 O% K- K RowBox[{
: R' U* _ y6 ]9 R% v% P2 B RowBox[{" J. T& z: [# f4 Y" f# T% G
RowBox[{"-", . x8 d! c4 |5 h: c
RowBox[{
/ t8 Q3 a" O B% j! C! y RowBox[{"(", ) h% `1 P) H$ ~- S/ P& B& k
RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
* K+ o0 p# i( c7 ]( c6 d7 t RowBox[{"(", % U u4 v4 ~# n9 N k
RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
$ J1 }1 B! k# D( X; a8 f K5 w5 Y* J "]"}], "/.", "DeltaX"}]}]}], "Input",
% I$ h9 t$ _/ T& ?# U/ [ CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
# r# p% N7 F1 q8 ^- u3 ?6 X6 R 3.57796154237158*^9, 3.5779615434011817`*^9}, {3.5779615779084415`*^9, ) O! A. y: ? a' |" A2 ^
3.577961578953644*^9}}],
5 O. l' T" `( C9 j- s
8 c/ i( O3 d2 E# N+ `4 W8 Z, q% QCell[BoxData[
7 S, W4 C+ ^$ U. V RowBox[{"{", # v; A, t# G7 w3 v) i* f
RowBox[{) v z5 m1 i6 Y$ q$ z5 ?: G
"0.347826`", ",", "0.705444`", ",", "0.109343`", ",", "0.072008`", ",",
0 }: B; O! Y ~) Z, O "0.496503`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.752567`"}], / v( w3 E" ]2 h
"}"}]], "Output",! q: {2 N& ?! d- u
CellChangeTimes->{3.57796181215845*^9, 3.578012319296875*^9}],
. z7 B% M( X& _ M! L9 E' W! E! h& d) d- C0 e6 n+ M
Cell[BoxData[
: g& V4 F" `0 _- f SuperscriptBox["\[ExponentialE]",
5 w, U& x0 ]) f- n RowBox[{"3.141592653589793`", " ", 0 W/ }2 z: z7 a' ^" M
RowBox[{"(",
! L! z# Q1 z+ ]1 ` RowBox[{
3 ?0 X; D3 `( e0 _' ?0 b8 {; Q4 b9 T RowBox[{"-", . x: f% w: p$ u5 {
SuperscriptBox[
( l0 s" `6 h6 ? k V RowBox[{"(", ' S( z2 J2 ]+ d, E f' k' s
RowBox[{7 l4 ^8 v) Z2 j# ~
RowBox[{"-", "0.347826`"}], "+", "x1"}], ")"}], "2"]}], "-", ; R# s# V) _* u! r' y, ], f0 j$ y
SuperscriptBox[2 Y) v" i# j2 q$ y+ C: Q
RowBox[{"(",
5 P/ U G0 l: [: G* @! @. F RowBox[{
# m) |, L/ E# v1 d) R5 }; Q RowBox[{"-", "0.705444`"}], "+", "x2"}], ")"}], "2"], "-",
% g8 S! K9 p$ m( b9 E. x, [ SuperscriptBox[- }7 ^: ]+ l- v' C" O6 F+ \( X/ [2 M
RowBox[{"(", 4 O( s! s A' ]# @1 i! r* X/ _! a3 \7 }( F5 |
RowBox[{
) t: ]9 a1 G; U& P- `$ N# i RowBox[{"-", "0.109343`"}], "+", "x3"}], ")"}], "2"], "-", , ?! [1 n! q% _
SuperscriptBox[4 R) a4 V" `9 y3 e( c
RowBox[{"(",
+ a5 T6 g5 s% H RowBox[{
. {9 z( h; K9 C RowBox[{"-", "0.072008`"}], "+", "x4"}], ")"}], "2"], "-",
. T! R1 p- H- v! q* G& _ SuperscriptBox[
4 l3 X# Q% T7 t0 V% y RowBox[{"(",
5 Y7 J% q8 t8 G! R1 t4 y RowBox[{
# \6 B9 S' U- A6 U+ [; C+ R( t$ i RowBox[{"-", "0.496503`"}], "+", "x5"}], ")"}], "2"], "-",
; u4 U& a! X/ p$ H7 M" V SuperscriptBox[, M# E7 q; `8 j2 b1 q
RowBox[{"(", 1 q' o6 F. H# G) b+ \ F
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", 6 [6 ]+ H! U9 C( }8 Y3 P3 e! _) T- L
SuperscriptBox[% v2 Q6 e ~7 ^8 \9 T
RowBox[{"(",
& Y( o' M7 q2 F2 @0 x( e RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
9 K; R% j) e# Z: x( x5 x( a5 ?, P' u SuperscriptBox[- }2 G& ]. m! `/ O5 z3 R
RowBox[{"(",
3 \+ V* B1 O% L: G- B3 q+ I" } RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", ! l( h/ R3 ?/ X3 r. O
SuperscriptBox[9 N6 V3 w- N9 d" @6 P" k
RowBox[{"(", ; P* B% }- |$ @8 x
RowBox[{
- m5 q0 F0 J; s( O RowBox[{"-", "0.752567`"}], "+", "x9"}], ")"}], "2"]}],
- w' k3 ?6 ?9 a) ?7 `! l2 @: y) g ")"}]}]]], "Output",$ y; o& v" Q# c- U) D1 e+ g
CellChangeTimes->{3.57796181215845*^9, 3.578012319296875*^9}]
0 ^6 i& l( `+ c$ a! E% v! q9 f}, Open ]],
: C' F7 T- J+ d( T6 W* F3 P1 [, O# l
Cell[CellGroupData[{
7 k1 A, y$ e# d1 b% ]; F7 `* D. Q
Cell[BoxData[{% ?7 B7 R6 O# L
RowBox[{"C18", "=", "Ca"}], "\[IndentingNewLine]", 3 h0 k7 o7 ?7 F m$ X$ I3 U
RowBox[{"u18", "=",
9 f5 h5 Q: i) Y" A5 A& ~2 ] RowBox[{
5 f- P3 s' }9 Z2 h7 n RowBox[{"Exp", "[", f2 s* n3 ?# E
RowBox[{
4 t2 ~ o; `) l RowBox[{
7 B G$ J! m. M9 ^ RowBox[{"-", 1 l+ U i& j$ n+ r k
RowBox[{
5 n/ J2 v6 W7 ^; F! F RowBox[{"(",
9 G# c& F4 s0 F# h _! G$ Y- x$ K% ^2 o RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
. G0 G1 ^- G5 ?8 Y. O8 r6 \ RowBox[{"(", . D+ J o4 @- O, g5 }
RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
5 R+ e5 c4 Q7 A* @: b. \ "]"}], "/.", "DeltaX"}]}]}], "Input",; M1 T& t$ l0 Q5 k
CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
9 M( F3 k& P; S 3.57796154237158*^9, 3.5779615434011817`*^9}, {3.577961581886449*^9, , H$ o# W G( C4 Y! V) k
3.5779615828848505`*^9}}],6 I/ Q6 r; n5 M* H J- l1 \' m
{ @- }* ~$ @2 WCell[BoxData[4 R. z: ~. E' V7 E
RowBox[{"{", 6 ~# `; G+ W" Y6 b$ A5 A5 T7 y
RowBox[{" |0 i+ y" ]0 s/ A
"0.173913`", ",", "0.984656`", ",", "0.420753`", ",", "0.137022`", ",",
" t3 v5 R" {( D* o+ g# u4 q$ Q "0.321678`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], + ^! q, v& Z, `4 a; `2 s0 R5 o
"}"}]], "Output",
% h4 U& t3 P$ a0 M/ ~0 W. M CellChangeTimes->{3.577961839926499*^9, 3.57801232378125*^9}],
" ]3 \- n2 J. q$ Q. t9 S
0 [: B" i' H$ U% f( tCell[BoxData[3 }0 G( q7 P3 s- R7 }5 v H
SuperscriptBox["\[ExponentialE]", 5 y" A [7 k( x, Z m, e% `8 C, [) c
RowBox[{"3.141592653589793`", " ", 6 N# b8 E! }' m4 V' b9 N
RowBox[{"(",
5 a" d: Z& ^7 M# a7 A( p( x3 T RowBox[{* D" |6 G1 X" K+ d
RowBox[{"-",
4 L! b+ `4 b& y+ R3 C SuperscriptBox[
+ t# M; T1 D0 E* U6 @( q RowBox[{"(", ( A0 z+ O; z" g2 {& w( Z+ C
RowBox[{
) {9 t. Z2 i! V5 B8 Q RowBox[{"-", "0.173913`"}], "+", "x1"}], ")"}], "2"]}], "-", ; K$ ?* D5 ^$ \5 n
SuperscriptBox[1 I: n" c! u' o9 ^* d
RowBox[{"(",
+ i, r2 F5 I8 r* r% l RowBox[{
/ V9 w D9 k, Y6 M3 \! V5 g7 u RowBox[{"-", "0.984656`"}], "+", "x2"}], ")"}], "2"], "-",
# u. y+ h7 A) m) I k& n SuperscriptBox[' @, @/ S; X2 z
RowBox[{"(",
* E8 p4 Q6 @( O: ? RowBox[{
4 D. I" V) n. q# j$ @ RowBox[{"-", "0.420753`"}], "+", "x3"}], ")"}], "2"], "-",
' K% M f' N3 Z$ j% X SuperscriptBox[- V1 m) F+ p8 Z N% G" P( R
RowBox[{"(",
; f- J7 z8 l( ~" F: V. J RowBox[{
: _2 w( n3 x3 F6 p9 T/ W" z7 Q RowBox[{"-", "0.137022`"}], "+", "x4"}], ")"}], "2"], "-", # j6 A( Q# e. }
SuperscriptBox[( p% ]0 K5 G; P ]; M& E
RowBox[{"(", ! [) t4 p6 I% J' W. k# {
RowBox[{
) b5 s0 q% R0 w6 ]/ Y RowBox[{"-", "0.321678`"}], "+", "x5"}], ")"}], "2"], "-",
* x. B6 l7 G. l+ ]( I. } SuperscriptBox[" H2 v) i0 b- [9 Z+ g0 C; ?
RowBox[{"(", 5 T4 b" k/ D! x4 d2 [/ Z$ y1 l! G! L, s
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
; k' M/ ^5 R$ t9 D% v SuperscriptBox[& s; z+ X, s% v! Z# e9 |$ P1 O; B
RowBox[{"(", " `2 _5 s4 O( |4 c+ @
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", p! D# s) l- l) L! z4 \& \' o
SuperscriptBox[( ^- T% C3 d3 V+ c6 t
RowBox[{"(",
' P, x) i$ R' q1 h' R# c7 f# C RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
" b6 R0 p0 u& ?3 @ SuperscriptBox[: Y$ ^ u: O3 n9 J! W: i% n- x
RowBox[{"(",
+ r$ f5 ]/ l8 Q7 C1 ~1 D. G9 { RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
8 z8 k: X# E( r' o8 r1 a ")"}]}]]], "Output",- ]/ k$ t' J0 Y) q i0 {
CellChangeTimes->{3.577961839926499*^9, 3.57801232378125*^9}]
# B, g! ?( e1 `7 x" ]}, Open ]],
! D3 t {( ~! y" _% ]2 j) h. E) y
. b' w+ `) [7 A4 k6 V. y9 aCell[CellGroupData[{
9 G& i$ L: c$ u! D# k; y! {
4 q/ P/ p" I0 t% O0 k/ p* XCell[BoxData[{0 a5 s; E, h& G* }) m8 w" k
RowBox[{"C19", "=", "Ca"}], "\[IndentingNewLine]",
! U$ E5 X$ N, a3 e( f RowBox[{"u19", "=",
6 l3 @9 u/ [* R5 K: K6 ]! }) F RowBox[{
6 J4 {( y) K9 ]- c RowBox[{"Exp", "[",
% @2 g! A9 h% m0 e; x. c8 _1 D RowBox[{
$ M- U# s* [/ F9 s) P3 Q RowBox[{- U5 O1 t2 Q: H5 ]- L+ n' F5 P
RowBox[{"-",
3 s% z7 d! C( p/ E ^/ Q3 n' B- K9 Q5 p RowBox[{& {3 z9 _- {* U0 a, |( V
RowBox[{"(",
& O7 t( z! w3 V* D6 q, B RowBox[{"Xa", "-", "Ca"}], ")"}], ".", - X5 x' C4 h: O$ ^& p- \2 y
RowBox[{"(",
/ Q! y: i* Y8 d& d1 R8 _ RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
$ Q9 \. k' V1 W/ S5 R "]"}], "/.", "DeltaX"}]}]}], "Input",- `: `$ O Q5 a# `! t5 P1 y
CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {$ F( m+ y5 N5 E+ k1 `' {" E
3.57796154237158*^9, 3.5779615434011817`*^9}, {3.5779615879548593`*^9, . K5 H8 }8 x3 q7 `0 e2 R2 O
3.577961588890861*^9}}],
: a4 @' w: l" H% I4 ], `2 E# K! q3 ~
a6 J% ~& r" r- PCell[BoxData[
% ^# Y1 W. q( F+ ]% ^ RowBox[{"{", e( j- u# M( u
RowBox[{
, |5 F) M% L& r: |2 H5 f" K% R: R. t "0.391304`", ",", "1.`", ",", "0.452931`", ",", "0.150909`", ",", ) T% M* U2 Q# g8 O5 }, b. w
"0.342657`", ",", "0.370761`", ",", "0.`", ",", "0.509567`", ",", "0.`"}], ) ~. }8 u. Q" z, [
"}"}]], "Output",
! Q1 r; u3 C2 ~, ~* S6 U# t& c CellChangeTimes->{3.5779618714853535`*^9, 3.5780123283125*^9}],. v7 A, J) A; \ Q2 \- Q
^0 e0 Y9 S) dCell[BoxData[* y+ F! K* n% X+ L. `
SuperscriptBox["\[ExponentialE]", , T% I, U8 I4 u: n% ^2 G
RowBox[{"3.141592653589793`", " ", + ?6 [/ @; Z7 Z
RowBox[{"(", ' D9 Z! Z- h# A5 e7 }- ]
RowBox[{& J0 F8 m X. s! z2 D
RowBox[{"-", ( ?( x U- \, U$ b* Y9 x0 x* t) }
SuperscriptBox[
2 J5 H" w) x8 O2 E' |, M RowBox[{"(",
) ]- A6 u6 ]' u+ N5 a RowBox[{
1 E7 q; S. v7 P0 R RowBox[{"-", "0.391304`"}], "+", "x1"}], ")"}], "2"]}], "-",
5 Z" ?) Y C7 `# R0 E# F& A SuperscriptBox[
: _. x# R. |0 w RowBox[{"(",
# J+ }+ R" w7 z RowBox[{
( B- i, \8 t& ^+ z: G: [# P RowBox[{"-", "1.`"}], "+", "x2"}], ")"}], "2"], "-",
/ a2 i# x5 v8 T, f3 ~6 z* m" v SuperscriptBox[' k: W; A8 q+ J, n3 r0 ^% k( |
RowBox[{"(",
& V4 {* j6 T4 ` RowBox[{ T3 M, g0 R/ u/ |+ E5 _* I, Y
RowBox[{"-", "0.452931`"}], "+", "x3"}], ")"}], "2"], "-",
; j' ?- A5 E4 [& t, v" h SuperscriptBox[
: X% D, w3 s3 P% W RowBox[{"(", % d1 ?4 d4 i) i* ?5 ]
RowBox[{$ e9 ^! F3 Y+ \8 R" U+ R0 T
RowBox[{"-", "0.150909`"}], "+", "x4"}], ")"}], "2"], "-", 5 h: @- e8 k& F& b# _4 C
SuperscriptBox[/ X6 x) a9 H( z% H0 n
RowBox[{"(",
7 w* b# v9 H4 O RowBox[{1 V5 q5 H" {# t( t% C* {) R
RowBox[{"-", "0.342657`"}], "+", "x5"}], ")"}], "2"], "-",
) X3 F8 y' H" E+ c! q) ?- J1 e SuperscriptBox[ m7 T% E' L. M" h1 I- k
RowBox[{"(",
% Z2 o& a) _' p9 X9 m% T RowBox[{9 ]/ `/ k3 R6 z, O$ g1 ^
RowBox[{"-", "0.370761`"}], "+", "x6"}], ")"}], "2"], "-", " h5 n% c5 x8 f3 w' S% t
SuperscriptBox[9 z% z# w6 d+ Y3 T
RowBox[{"(", 0 S: A; x+ n* m+ z
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", ' u/ T' l1 F) S/ A; y; }, K: `
SuperscriptBox[, L: `4 w1 q) |
RowBox[{"(",
3 t. i$ _5 l* P/ j: ~ RowBox[{0 \2 Q4 {0 k3 p% x% u' F
RowBox[{"-", "0.509567`"}], "+", "x8"}], ")"}], "2"], "-",
8 K! v) h h9 _ SuperscriptBox[
) T" f, A0 V! N y5 e RowBox[{"(",
8 j8 ?$ |" f) ]; q4 X* X RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], % K7 S- o6 p* u" Q6 F4 O7 T0 W
")"}]}]]], "Output",
% Q$ j$ A" q" S9 j CellChangeTimes->{3.5779618714853535`*^9, 3.5780123283125*^9}]9 j! L7 n) {5 H3 X! I: g! j$ `
}, Open ]],2 u1 n5 W6 ?" w1 p4 k: b ?5 h. t0 n
7 a1 T# T( z/ h5 p& Z% O
Cell[CellGroupData[{
D4 g6 V8 ?9 h, H# J# n
: `: P e6 C" [Cell[BoxData[{
8 t7 G* l; A7 G) S. }' e RowBox[{"C20", "=", "Ca"}], "\[IndentingNewLine]", : h' r* H9 N A* y/ c5 R
RowBox[{"u20", "=",
' G$ d, x' c3 c) U9 p: C! h q8 w RowBox[{: l8 `" D0 T! i" j
RowBox[{"Exp", "[",
, T4 y+ _+ f9 U! R8 E0 v RowBox[{
3 j! S# o# u/ J k2 n* l# U# y RowBox[{! S# o' [7 A0 R# m2 C) q
RowBox[{"-",
7 B1 j$ t2 n" P% `% d9 w( Q, E8 h9 { RowBox[{+ O- L* I3 e4 \& ^! X2 @
RowBox[{"(", 1 f5 q- J! s/ a w3 q
RowBox[{"Xa", "-", "Ca"}], ")"}], ".", - ?1 |# B2 m# D3 B$ j" M
RowBox[{"(",
% _8 E% a$ ]5 j- d' R RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
/ M( {- X. t# Q, O$ M+ w, o; {: B "]"}], "/.", "DeltaX"}]}]}], "Input",; \' J2 g8 ?5 F4 u/ G; V
CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
1 q+ O5 a0 o `, K& v 3.57796154237158*^9, 3.5779615434011817`*^9}, {3.5779615923384666`*^9, 9 h K! \: D0 j3 a! r3 g# {
3.57796159382047*^9}}],; g1 w/ V1 i5 U& e$ D! j. s
# x% u$ Q3 ^: u# [/ K
Cell[BoxData[
' V3 I0 k5 H$ O' ? RowBox[{"{",
# n% C* O; x2 T+ ? RowBox[{ ?, {9 B( i; K4 t3 b# b
"0.782609`", ",", "0.751623`", ",", "0.177646`", ",", "0.350845`", ",",
! t0 M4 {3 e0 b6 t; J: ], W% P) H "0.412587`", ",", "0.502638`", ",", "0.`", ",", "0.`", ",", "0.178973`"}], " F: ?- \1 b) c. F3 R
"}"}]], "Output",% m% X. A/ q: K5 F9 ~. D6 Z
CellChangeTimes->{3.5779618958681965`*^9, 3.5780123335625*^9}],' ]2 x3 _" [& A0 c! l: `
5 j2 Z4 l, f/ R* j2 V$ O, OCell[BoxData[) z1 R$ P1 l0 n, t' G. R( i# R5 W' c" }
SuperscriptBox["\[ExponentialE]",
; Y, p- D% V! [0 Y" p RowBox[{"3.141592653589793`", " ", ) b. A* B$ C( Z! x3 S
RowBox[{"(", 7 A" a0 K2 Z, `% b" h4 H7 y. R7 l4 `
RowBox[{* J8 W' {) y7 n- A( j0 m* B- Y$ M0 ~
RowBox[{"-",
. O n) h/ v& X6 } SuperscriptBox[
/ w8 V `3 K0 J9 q2 f% N1 y' ^ RowBox[{"(",
* S* Z) W, x" ? RowBox[{4 I0 C% ^" Y w( A2 |, L3 `
RowBox[{"-", "0.782609`"}], "+", "x1"}], ")"}], "2"]}], "-", + F8 M0 e( n) W& F) L
SuperscriptBox[* E* @ V% {* p! N' v. r; I: N/ t X
RowBox[{"(", ( L# u3 [. m1 |. s) t% B* B
RowBox[{3 M& o% w& b$ _
RowBox[{"-", "0.751623`"}], "+", "x2"}], ")"}], "2"], "-", 6 t7 b, ^/ F2 y0 x
SuperscriptBox[% Y5 N5 M$ H# _, S+ S8 u+ N
RowBox[{"(",
8 \5 R$ G h t7 I2 G& k' g RowBox[{) y: ~: S+ B5 `3 E9 }
RowBox[{"-", "0.177646`"}], "+", "x3"}], ")"}], "2"], "-", " y" o9 I. q: v
SuperscriptBox[- Z) ] I4 {1 V' B5 y( Y6 O
RowBox[{"(",
$ e2 h7 D- K: {% |& v9 c9 G RowBox[{& g4 q* w1 M. j, Y4 O1 `$ q$ G' e
RowBox[{"-", "0.350845`"}], "+", "x4"}], ")"}], "2"], "-",
6 M" c, z# R: S% B9 q SuperscriptBox[: [% o# @$ f) H. J
RowBox[{"(", ! l% p& D. D- H. H" V
RowBox[{
9 a& ?* }! ^+ ]( N RowBox[{"-", "0.412587`"}], "+", "x5"}], ")"}], "2"], "-",
; ?4 U; O$ U2 L* A SuperscriptBox[6 M- b3 ^2 Q% y/ N+ W( I$ V
RowBox[{"(",
5 D! B0 \- n$ t RowBox[{& ?1 T z, h+ C, Q; m
RowBox[{"-", "0.502638`"}], "+", "x6"}], ")"}], "2"], "-",
5 i; y4 E9 k C" j) K1 W6 ~$ l SuperscriptBox[6 Q( R# D, E( n6 G$ v, D
RowBox[{"(", 1 p. ?3 y$ @% j, l) O
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
! y" }7 R. H3 h" d T9 \( A& k SuperscriptBox[& B2 k) `/ m4 a2 h
RowBox[{"(", " B* y" W) M. P O: R4 m
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
: Y0 p4 B8 {2 e4 K7 ] SuperscriptBox[
& q* A9 `" m9 F- D3 J& E) ^) }4 O& U RowBox[{"(", ) M I1 s2 A7 `& {
RowBox[{; Y; X* a! F; {. f+ @
RowBox[{"-", "0.178973`"}], "+", "x9"}], ")"}], "2"]}], - b# \6 c& I* P% Z5 G
")"}]}]]], "Output",
^- i4 w: D, _$ W3 a, T" u3 X7 } CellChangeTimes->{3.5779618958681965`*^9, 3.5780123335625*^9}]& B; m, F2 F) c9 s! K# d3 O
}, Open ]],2 V7 _/ m# P+ p8 H2 y' F: Q
* q1 j% P. Q. F0 E9 A" z3 Q- A3 K" ZCell[CellGroupData[{
/ J7 n! h3 r0 n0 a' [" N5 G. P+ F* ?
Cell[BoxData[{: m& ?) |. x6 f9 e4 \$ b' y
RowBox[{"C21", "=", "Ca"}], "\[IndentingNewLine]",
! X6 _0 A$ H; A/ Y7 B% D" v RowBox[{"u21", "=",
& X# d. F& Y4 m RowBox[{
9 |# H3 H0 k2 u, W8 _& a* J$ G RowBox[{"Exp", "[", 8 A9 h) a$ F4 W: A3 q1 ^5 Z% X
RowBox[{
4 w8 t0 D, d7 Q3 v6 X RowBox[{
& W$ l* f* z* Y RowBox[{"-", # V0 D0 l, d+ P( n5 F
RowBox[{
6 i$ u8 Y u A& K RowBox[{"(", / @/ ^+ D( q8 {, {- I, }/ a
RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
1 }" u" O+ w: l" o' n% }( E RowBox[{"(", & }; U- F6 w2 t2 P
RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
, T, z. O' r9 U. m' f "]"}], "/.", "DeltaX"}]}]}], "Input",
6 T. v$ T7 c) d! t. [+ W CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, { ?% d G( m4 U8 Z. [; @
3.57796154237158*^9, 3.5779615434011817`*^9}, {3.577961596971675*^9, 2 w5 O& a* w3 N0 L8 v
3.5779615991556787`*^9}}],
/ m$ Z' g6 h2 p. r, Z$ C _8 j# _( p J, K
Cell[BoxData[ p, k5 Y7 {7 [1 P5 [' `
RowBox[{"{", $ q$ ^. b' m# A: l0 M& \2 n& j
RowBox[{9 Q( A8 H8 S" n; f
"0.608696`", ",", "0.606152`", ",", "0.158058`", ",", "0.09017`", ",", 3 w, U; p1 Y0 ~: n% S3 v8 o
"1.`", ",", "0.166541`", ",", "0.278049`", ",", "0.`", ",", "0.236675`"}],
' J, K- c h. z% c, \6 |0 g3 h "}"}]], "Output",
2 R- {. }9 V1 \5 g4 n) h, E! | CellChangeTimes->{3.57796192085944*^9, 3.57801233915625*^9}],8 q/ ~4 L* g! l) c: }. C3 k/ f
# }$ I3 _$ b* u( X/ O/ R
Cell[BoxData[
: t$ F8 t- d0 ~. ` P) V* f SuperscriptBox["\[ExponentialE]", * I: \7 J" b8 `; t
RowBox[{"3.141592653589793`", " ",
, K2 I- E, r0 H- U$ h7 z RowBox[{"(",
# g% c; R$ E. v: O RowBox[{* Z/ w1 O$ @; @( c7 v
RowBox[{"-", ; k# G% x+ S2 z/ H8 O% N
SuperscriptBox[$ E$ ], L7 S/ Z# g. k7 U; F- u0 J
RowBox[{"(",
. I: x$ ]9 U) ^0 i* q RowBox[{
4 r- C8 k+ k1 H, A- d/ b RowBox[{"-", "0.608696`"}], "+", "x1"}], ")"}], "2"]}], "-", # ~0 b: P w# g
SuperscriptBox[' C! E8 G1 T2 x1 d
RowBox[{"(",
& W$ {( [2 Y5 C, D4 B: Q, V RowBox[{
/ l" {1 N1 Y* U* {0 a RowBox[{"-", "0.606152`"}], "+", "x2"}], ")"}], "2"], "-",
, I' B. \0 G2 W7 r, C: t, c: j SuperscriptBox[
1 P/ Y, ~. ]2 D+ b, Q; Q8 f8 \ RowBox[{"(", 3 ?1 g ~) t" |, \' p1 y& i7 ]
RowBox[{2 w c+ A# M5 [: h1 P
RowBox[{"-", "0.158058`"}], "+", "x3"}], ")"}], "2"], "-", 4 f! D7 X" K9 `$ Z _; I' {
SuperscriptBox[
" M' X# ]$ j- X% ^& D+ e- k RowBox[{"(", ) Y V+ M( r7 z1 I0 ^" ]
RowBox[{
8 o; c T" h. H% { RowBox[{"-", "0.09017`"}], "+", "x4"}], ")"}], "2"], "-",
+ x$ o: _3 J7 G1 `) T. E( J SuperscriptBox[, u+ V, z- f: t6 J& v
RowBox[{"(",
0 p- q. y, Z- q0 d RowBox[{
! t8 u/ V0 i7 {, u& {2 t0 o RowBox[{"-", "1.`"}], "+", "x5"}], ")"}], "2"], "-",
" B4 E7 S' L" W: e: c, ^ SuperscriptBox[9 T* J) `6 @0 Q: K9 y
RowBox[{"(", : `; j5 R" a; u6 a& K% b
RowBox[{
" Q; d- y! @2 Q) P9 G RowBox[{"-", "0.166541`"}], "+", "x6"}], ")"}], "2"], "-", " R) b3 f% {; d$ Q1 M
SuperscriptBox[+ t: |9 b3 r7 ]
RowBox[{"(",
6 `: \% h1 f4 n: R2 d RowBox[{
6 _/ t" q" v+ V5 y2 ? RowBox[{"-", "0.278049`"}], "+", "x7"}], ")"}], "2"], "-",
; R U4 Q4 v: G# X3 A3 n SuperscriptBox[
2 }+ z: f) D/ _% y! h RowBox[{"(",
n* a x* p# \7 r RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
; ^ L6 E' _* J! p# p# D SuperscriptBox[
" {* ^$ O7 }* e3 c$ ^ RowBox[{"(", * Y! q1 e. V8 v( k
RowBox[{/ r4 z ] ?2 [
RowBox[{"-", "0.236675`"}], "+", "x9"}], ")"}], "2"]}],
- C# k4 v0 v) D/ M" X5 r. G( A ")"}]}]]], "Output",8 A8 G6 ^( N3 ] S! t! z( K0 x2 W
CellChangeTimes->{3.57796192085944*^9, 3.57801233915625*^9}]: b- \: G) H8 v5 z* U3 G9 g. @# Z
}, Open ]],! K8 Z" V4 Q- @9 D# A, E3 S
* I+ c9 }$ L& S9 u3 xCell[BoxData["\:62df\:5408wi"], "Input",% ?/ ]- @5 h: h7 q* K
CellChangeTimes->{{3.5779225126875*^9, 3.577922521484375*^9}}],
1 j- ~: U$ t2 @; y( f; G9 z: a9 L+ f( f( f" M
Cell[CellGroupData[{
1 K( D; F E" N- X2 \1 I8 e1 c& T% ?# \9 k
Cell[BoxData[& z7 g& @; u) D2 \- p) [4 S1 z
RowBox[{"y1a", "=", ! f) N6 C# v1 G
RowBox[{"Table", "[",
! \1 s7 |' |5 C+ W RowBox[{"x", ",",
5 D1 R4 B& e$ \! F6 B# y RowBox[{"{", 1 `2 i( {/ K1 ^) f6 ^% V) x
RowBox[{"x", ",", "1", ",", "60"}], "}"}]}], "]"}]}]], "Input",
0 o) h9 L/ S9 u7 D) Q: ]0 ]! P CellChangeTimes->{{3.57792262821875*^9, 3.577922633546875*^9}, {% ]: H0 l6 C9 G# L' w' @
3.5779226649375*^9, 3.5779226810625*^9}}],0 P2 O& G% ?" W( P
) S/ X* {/ Y" ^: U: ?Cell[BoxData[
4 ]7 a0 G" M' C RowBox[{"{", ; f1 K( H) J" E
RowBox[{8 `3 D. x8 F; A4 _
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", - _* o% p6 ~2 Y. b# A4 M, @3 {
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15",) k9 T" M. |+ o4 v7 ^8 e0 c/ G Z, l
",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",",
% p! A. V# |4 _* R) q7 N3 [ "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", "28", / U. e& Y# ]9 K8 N
",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34", ",",
( v- s- N% C' {) b% J: _& K "35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",", "41", 4 N9 e5 [3 i# S% v5 G4 {3 U5 a
",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47", ",",
$ |! I' H6 n# f( c& N "48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",", "54",
" Q' N! }2 p m3 r1 @# Z% w% _ d ",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",", "60"}], 1 j! u& o' M! J! L" w% y' C! F% T# e, w
"}"}]], "Output", g3 @9 z; o. i1 h/ X4 J8 k" ^. r
CellChangeTimes->{3.577922682296875*^9, 3.5779575713607535`*^9, : d0 _! U( P9 i0 h& P O) \
3.577958873908263*^9, 3.5779619268186502`*^9, 3.57801234115625*^9}]1 |# D/ b$ D* O) F8 T% {' R
}, Open ]],
& V0 f3 T! A) F$ \! B7 \; d( N, G% d0 u5 f: X
Cell[CellGroupData[{4 X9 S3 H8 @9 i! a8 k& W$ p _
1 B$ |* w6 g1 z0 l) X
Cell[BoxData[. h. Z) p! Y8 C9 V4 M! t+ o
RowBox[{"Data", "[",
! q, w c% y8 J- | RowBox[{"[",
7 S) c% c1 C) b. V8 `# J RowBox[{"3", ",", "10"}], "]"}], "]"}]], "Input",
- f. T/ \% S7 ^6 m CellChangeTimes->{{3.577922711734375*^9, 3.577922728984375*^9}, {/ u( ^& P# ]! O1 t( Y2 k
3.577922912015625*^9, 3.577922912171875*^9}, 3.577958877121869*^9}]," E, f3 W6 p$ T7 {2 t2 O: e3 ^
/ g6 [: j2 v: j! c
Cell[BoxData["0.899882`"], "Output"," Y& n# X7 ^4 h! e
CellChangeTimes->{{3.57792271875*^9, 3.577922729828125*^9}, U! ?' ~# H2 n" Y/ P" w: M" i
3.577922913203125*^9, 3.577957573622758*^9, 3.5779588807410755`*^9,
2 E( E. }! `; T9 {& K+ t* X, w- Z 3.577961929080654*^9, 3.5780123419375*^9}]. i9 \* U5 d9 B+ B; I. t, m9 d
}, Open ]],' `* s* u0 ~5 B$ s% z6 o, Z
$ g0 z; Z) v p* \
Cell[BoxData[
1 S) W* I; K. ^; \% k. b/ N$ e RowBox[{"For", "[", # G$ V& c' r% l, R
RowBox[{ Y3 J: u' Z( S7 ]
RowBox[{"i", "=", "1"}], ",", ; I3 w/ K2 M5 L) x& J
RowBox[{"i", "\[LessEqual]", "60"}], ",",
. C v r3 u+ `$ H RowBox[{"i", "++"}], ",",
- x7 d% B9 r9 a3 f& J RowBox[{
9 W7 s9 f" ?) i9 F; X RowBox[{"y1a", "[", : R" S- @# L: A* z3 [( n# m0 D
RowBox[{"[", "i", "]"}], "]"}], "=",
$ A3 w6 b. Q3 j3 r RowBox[{"Data", "[", ' p; r- h# U2 n3 V
RowBox[{"[",
# I" g- X5 R# ?1 ~$ l7 i6 w$ h RowBox[{"i", ",", "10"}], "]"}], "]"}]}]}], "]"}]], "Input",0 {8 U3 e# Y/ k9 x+ x+ H
CellChangeTimes->{{3.57792259890625*^9, 3.577922624859375*^9}, { y8 K$ a5 H$ z- R
3.577922687234375*^9, 3.577922702859375*^9}, {3.577922917453125*^9,
1 s6 z- a+ m3 P 3.577922923203125*^9}, 3.5779588839702806`*^9}],
u6 V7 e0 z: {! p3 |" R% H/ ?* k
Cell[CellGroupData[{; ?4 c/ `8 q1 L$ ^
9 E8 D. ]& X& Q* ~Cell[BoxData["y1a"], "Input",# T6 Q3 k: m5 N7 k8 H( t" `
CellChangeTimes->{{3.57792293078125*^9, 3.577922931484375*^9}}],
1 X l+ b2 ~7 @, K! V/ p7 ?3 C' J. ^) G& M+ ^) g
Cell[BoxData[7 t- {3 l# i6 M7 H4 b3 u* ]# b) _7 P8 z) d
RowBox[{"{", 5 k1 b% K6 V0 b! G
RowBox[{
; o7 |- p5 ?1 y9 ` "0.277091`", ",", "0.220259`", ",", "0.899882`", ",", "0.265607`", ",", 1 y8 E$ t2 Y R6 d
"0.642226`", ",", "0.306243`", ",", "0.186985`", ",", "0.175501`", ",", . {4 ^6 M7 W# ~+ `7 E3 l
"0.147821`", ",", "0.352768`", ",", "0.23881`", ",", "0.095701`", ",",
$ Y1 S# C, X: j# T "0.162839`", ",", "0.335395`", ",", "0.160483`", ",", "0.398115`", ",",
3 z" \7 L- h* a; v' ]) b. g "0.157833`", ",", "0.315665`", ",", "0.492344`", ",", "0.638398`", ",", ' o6 A) [8 Y1 o$ g0 r1 G
"0.392521`", ",", "0.362191`", ",", "0.114252`", ",", "0.401355`", ",", 7 P; ^+ I9 U; Y/ F
"0.827444`", ",", "0.676973`", ",", "0.331272`", ",", "0.845701`", ",", $ x8 v* Q, F) g2 @9 w
"0.287102`", ",", "0.`", ",", "0.050059`", ",", "0.254122`", ",",
2 s. B4 d W4 s! D2 F l "0.086867`", ",", "0.659894`", ",", "0.317138`", ",", "0.605124`", ",", 4 \0 p) Q1 L1 T2 F; D4 H
"0.32126`", ",", "0.595406`", ",", "0.555359`", ",", "0.333333`", ",", 8 w6 Z O. k" j( H8 }5 D
"0.149588`", ",", "0.493522`", ",", "0.224676`", ",", "0.410188`", ",",
! ~5 u2 Z. ~6 l1 x) d& ^# Y "0.668139`", ",", "0.102179`", ",", "0.380742`", ",", "0.319494`", ",", 5 D5 j* c! d* }1 Y" b8 T
"0.031508`", ",", "0.292108`", ",", "0.329505`", ",", "0.337456`", ",", 3 i8 \0 y# R4 i2 v6 v0 Z( L$ E; ^$ m
"0.766784`", ",", "0.676678`", ",", "0.541519`", ",", "0.064488`", ",",
8 [. i; r1 h! q, k9 t. i- _ "0.463192`", ",", "0.388398`", ",", "0.262367`", ",", "0.290931`"}], 9 c. J# O2 f. A2 f8 ?- F
"}"}]], "Output",
- A6 G$ e" L! A9 \7 Q. ] CellChangeTimes->{3.57792293246875*^9, 3.577957577756765*^9,
7 U% E* J0 A$ v+ |$ x) x 3.577958888806289*^9, 3.5779619425902777`*^9, 3.5780123438125*^9}]
: K7 w' `: G1 x& {5 H; P}, Open ]],
* c9 w! t6 Z% e/ C1 g' M. n$ A h5 [3 r
Cell[CellGroupData[{, f+ X% j" K; F9 u# I: y
. j7 B. C, _% Q2 Z% R+ N
Cell[BoxData[
4 c4 j" e/ \' {4 R/ Z RowBox[{"m60n21", "=", & i8 M3 Y7 ?* V! ]3 C/ {
RowBox[{"Table", "[",
0 C4 X( |( J- x( A4 d7 p( y RowBox[{; X4 |9 x" @3 W3 D
RowBox[{"Table", "[", ) Y* L' b: G3 C; X# ?
RowBox[{"y", ",", & [( D% q0 [; n0 k0 b/ j# a
RowBox[{"{", 9 o a$ a6 y J5 @9 y
RowBox[{"y", ",", "1", ",", "21"}], "}"}]}], "]"}], ",", 1 w9 D; S n% i% l/ j
RowBox[{"{",
6 W; V& n: P! v$ L% p# F RowBox[{"x", ",", "1", ",", "60"}], "}"}]}], "]"}]}]], "Input",; w3 a# z5 T6 _+ ^6 f
CellChangeTimes->{{3.5779239260625*^9, 3.577924021765625*^9}, {3 O: {* z# l7 S2 f- O" g
3.577924052828125*^9, 3.577924101671875*^9}, {3.5779619669419203`*^9, % A/ | _* M5 n' l! B& K/ \" |
3.5779619706547265`*^9}}],
) {0 s4 M+ `: Q
4 w/ c# }# Q8 \) Q) ^$ MCell[BoxData[
, @) I. S' w E9 z RowBox[{"{", 7 Y* n7 c8 k4 e! I, A, k1 Q
RowBox[{
$ q ?) L& ?0 w$ ? RowBox[{"{", 6 X; m- X- o5 }8 V3 k- r3 H# Y7 {
RowBox[{
. T9 u3 ~# k5 S: Z "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
! Q& ^7 q9 }% h# Z7 T2 ^- C ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
2 p) M5 w9 C" y* n "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
1 R4 c& u: E4 R3 f$ r& L& { "}"}], ",", . y( [3 i" V, t% n5 h( m
RowBox[{"{", 7 j3 ^; V4 B: _ O
RowBox[{8 e1 n0 r& p9 Q4 v
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
: V5 a* P" b/ {7 }0 @& Q2 I% \ ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
/ j C3 N8 }4 X+ g/ e& f! l "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
$ @9 M) M ]6 W% p: B; M "}"}], ",",
: b- t( Z0 Q+ V9 K y RowBox[{"{", 9 Q. Z& ~3 [+ n5 S
RowBox[{
h% U4 o. ]6 L- [ "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",+ S8 y, `/ h- E* H% ~% |5 z
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 3 b4 N, e8 f! H' N* E/ g. [& e
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
' ~3 u0 q% t" S7 Y% ^# ? "}"}], ",",
4 N+ B% A( C6 K9 s RowBox[{"{", 0 a: M v# P; h2 d) d* [
RowBox[{( g5 Y2 W- Y6 k$ B0 p6 ]5 E% d3 B
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
$ z- n0 J: R& L3 B ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
$ ?$ C: j) `6 K' y& _6 e5 L3 K "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],2 a& p, u. e+ l) r8 \
"}"}], ",",
+ V* R: T( o+ P* s RowBox[{"{",
/ ?& r; |3 r/ T0 X RowBox[{
2 Z- T; U# {; h& W- X! f6 I "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",$ }# ^* x3 G7 n. J: q' Z: T) \
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", % X. ?# k- g. x7 F* i$ R! S
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
+ {8 M8 o% U k$ z: l' p2 N "}"}], ",",
. d' `1 |5 ^& q4 Y# m% Y# q RowBox[{"{", & W, z' L* G: o& q5 ` V/ }% T
RowBox[{
7 ?- b: J8 h7 j h+ f "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",* t6 F* I, B: T/ [, F: i
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
& c1 P; S, q( W. u1 p; [ "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],+ v" t, l9 x' c* b. I. n9 \, S
"}"}], ",", : b$ m) F1 P" m/ A$ ]6 c$ ~( a5 {7 T
RowBox[{"{",
+ y9 }/ ?& |7 D$ {" j4 g( C RowBox[{
2 L/ D. T- Z% x- Y6 s2 W" t9 S. } "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",* [8 Q7 D7 T- h1 F
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 5 @( p' D! H# Y8 _# [* @! `% w
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],/ d+ W$ v- J, t4 ?8 E
"}"}], ",",
: j' a9 N& E( u n1 W |2 x RowBox[{"{",
% [4 b$ c; O- c7 { RowBox[{& {4 p7 ~- l/ K
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
) p3 A$ j; C* P ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 8 D: E9 ]- C# \7 Q
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],% E, G3 x2 q7 k
"}"}], ",",
. D% k3 Q( C" A# L r/ P" l RowBox[{"{",
. a5 K0 X( t5 L7 E- D RowBox[{
; f4 u0 _" J( F9 q4 o "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",, e5 I$ h" {5 E1 ]2 W F
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 4 R2 q" n6 @. [1 k- L7 |% e# V" B# R
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],% {7 J0 j1 U8 f, L
"}"}], ",", ' N9 [% W- Q: x
RowBox[{"{",
8 @! I6 N6 X0 s3 c* A& _ RowBox[{ q/ @6 C4 F5 p& t1 G
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
, a V5 {* h# U' s2 o0 E ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
8 P8 v. Y% p) z1 l# m$ U/ I2 N4 b "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
5 F' ?! O+ T; F% E4 i "}"}], ",",
, s: Q; t# j; q& U( j2 a7 I1 J RowBox[{"{", , g8 M" S; M: Y m6 a& ~7 h
RowBox[{
, W7 @+ | D4 \ J# V' R# w "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
+ y* R. W9 N' h/ Z" F" Z' z ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 5 d, K" ^0 `/ P# A
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
+ D( l0 r8 m' S) m+ j "}"}], ",", " H4 d$ h5 T1 }
RowBox[{"{", / e# V* }) P+ n1 @( J/ c
RowBox[{& }4 ^! ^* _$ H% m8 s- N
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
. }1 l4 S$ p8 F/ V ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", $ j6 O0 H. V$ u9 Z
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
1 V0 ~# {# Y5 x$ d1 F { "}"}], ",", $ l+ T" y; \1 _9 L
RowBox[{"{",
! J& R$ a' A7 f d' v! N7 j' ? RowBox[{
& f) y: V* C, i5 O6 q "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",& l5 x$ {( G9 O& l
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
4 B/ c" D; {* M9 F "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],6 g9 b/ q4 U6 v1 Y5 O) i' \
"}"}], ",", & }+ `8 H8 [+ ~# `. u+ B1 f4 z" @0 x
RowBox[{"{", 2 r: L1 |) `9 P
RowBox[{1 }) x/ i- K4 l4 e* [
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", o& O' k- H$ H2 D" o7 g8 P
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
, r. r1 b% p: X5 S5 F) D) b "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],0 l! g) u2 W, A) W! E
"}"}], ",",
) `* z+ v% o2 _; W3 `0 W RowBox[{"{",
5 B. h% S, @% l) m6 W9 I RowBox[{
3 X, Z% Q! ]- W "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
$ N# h3 H: [) `3 C ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", * ^9 T- w. w! L- h; U8 f/ f
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
3 V- ]* @) y' O _) H* D5 Y "}"}], ",", 6 T) X% ?% C w$ x
RowBox[{"{",
$ y" ]" o; L7 c9 E V0 a RowBox[{ O' ?8 v* { t$ \$ K0 G0 K& H5 n& N
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
2 H) R, I# \7 | ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
U7 s; `' l6 } D7 i "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
9 d3 s: k {$ [2 [2 i- O! L3 Y "}"}], ",",
8 h; }6 y, d( U8 G RowBox[{"{",
* \% j9 }9 E: B( g RowBox[{7 O# L5 Z- T" m
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
& k: ^( N0 h1 C& w ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
) w7 Q( G- x4 u "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
7 c6 ]8 h6 h* p' I& @6 w, w "}"}], ",",
& {6 N0 a& L4 }+ E) | RowBox[{"{", # A. u/ O; H# P' g# [
RowBox[{
- Z& v9 U4 `, ]: w( H "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",2 U0 A& I7 X8 h& {8 }8 E
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", ; ^- o4 B# V3 p1 @4 H
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],! l. D5 A8 P7 q0 w
"}"}], ",", , W" z9 N2 V: f( Q2 p9 [0 w
RowBox[{"{",
. C" M8 S- b6 \2 o5 A6 T$ d RowBox[{
n8 c9 ?) S5 M1 B& _ "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",* G. O" C. e4 @' n7 y p+ ?
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
4 X- ?* I3 q3 g/ d$ { "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],! O6 V. P b3 R' R( d+ k; |1 f
"}"}], ",", 0 N# n0 Y$ x u) [: O4 W
RowBox[{"{",
8 B$ s% `* W/ s RowBox[{2 w7 n5 Q1 k0 K; o. ]+ S( i: k1 L; K
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",. a9 m* F( W* R3 O( M# _
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
; C% O. ~' W7 y7 L! m1 ?" |3 U! m "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
( z. n- G7 j# ^& `4 s "}"}], ",", 4 H6 W5 Y7 g1 g" A7 d g, @
RowBox[{"{", 1 s) S4 b! @: ^8 G
RowBox[{* m% g- C+ V# c& V6 J' O
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",3 d; k. Y2 \3 h0 j5 S m
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", r" V$ N* y! g& e/ Y6 y
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],6 [! _" l; _9 E8 ^+ h* }4 A
"}"}], ",",
9 I5 W, a* z6 y+ x RowBox[{"{",
* q& v. q- Q4 ^9 N RowBox[{3 Z/ W) v0 @' x+ Y: M r
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",+ _. B4 w$ R X5 p" d, B
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
2 S$ {# g$ G$ D# y- t1 \ "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
' G( E) k& I# r3 Q: \( _/ z$ s "}"}], ",", + b$ d. c6 O% e
RowBox[{"{",
7 z; r+ q5 C5 A6 h+ E9 z& s RowBox[{
8 I8 B, p" }# W0 k& G- _9 V; Q "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",) s+ a) B! o7 J7 z9 Y9 G- A
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
2 w9 N! v: {+ r7 o! | "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
G5 b! Z8 V K3 T0 v" v "}"}], ",",
C5 Q; ]6 r( v: j I RowBox[{"{", + `* h0 I; @1 f7 C, E
RowBox[{/ _; I3 D6 e8 F: A p; g/ u. i
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",8 o) b9 l4 @! j, d! h
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
6 U0 j1 j' }1 d "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],( ~# ?& n) y2 N) G
"}"}], ",",
' Z8 ~4 {" I0 W% d RowBox[{"{",
3 L* [+ t* b i! e) x( } RowBox[{- s# I( b% e9 i; ~2 t u
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",7 R9 x8 L0 ~% c3 c3 T7 g
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", . }, n8 m% x* b
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
+ D& v x% d3 T+ E "}"}], ",",
& B9 Z! t K2 b) J RowBox[{"{",
* k% R6 ~/ L) m) j, } RowBox[{
# Q" k- W/ A0 ^! V2 e "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
- \& l! Y! P9 g! ~- V, o! [ ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
; H5 W6 h2 O4 B5 K' M: K) b "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
2 _$ L% f" V+ \1 X3 L! Z0 [, e! D0 Z "}"}], ",",
4 ]. w/ q2 {/ G! p M5 L4 v RowBox[{"{",
' ?- o7 U, k! k+ A, A$ y RowBox[{
; d) A" A" X5 a2 r; C "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
' n* _( f4 y# z( L& }: o ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", G/ c7 G- {# F- y5 S# y
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
# j ~3 o% H5 h! z+ n( U. V+ Q "}"}], ",",
$ U& s* {- Z8 P6 D, j6 M RowBox[{"{",
/ B3 o# L ^) R& w+ Z$ M RowBox[{9 f* M5 l0 h8 V/ \
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", j6 u& L1 _2 z: @* m% \
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
: P& s$ z7 ]( J( j "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],# V; G: P& p4 `% _
"}"}], ",", , D4 K5 n% X" U& H
RowBox[{"{",
. N$ o) R: d& T. I7 K RowBox[{
; X0 T% l+ ~& j( Z+ r "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",& A/ @! m2 _: w- n
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 1 X0 T+ u+ e @4 z
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],/ \# q2 I/ p6 c9 K9 q/ B9 m* F: ~. ]
"}"}], ",", 1 D4 l( W' B" N& O, A7 ^
RowBox[{"{", ( \3 }3 \) ^& N# O+ X7 H
RowBox[{8 {/ N$ n) Z/ q: Y" @9 ]
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
6 E6 }$ ?# r6 x) s9 t/ A ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", ) j; U+ S+ q5 ~9 }) x
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],. f9 r4 |* e0 @2 V) H1 M. m
"}"}], ",", % c# H: t+ a! ]2 v. `$ s7 R/ J, r
RowBox[{"{",
* i) _; o g0 a+ n RowBox[{( y5 q. e. s7 E: F0 _ _
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
/ e) f3 m% s( { ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 4 T: p( s" e! p1 J O( {
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],7 Y: D" s7 K' u# ]/ \' d
"}"}], ",", 6 L; ^7 U0 ^" [ t+ J9 t* L
RowBox[{"{",
, E9 a: H7 ~& S- K6 K RowBox[{' u# x8 P$ e4 H1 t. [1 q
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",. c7 ]3 U; K5 l6 @
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", # d6 N) z0 l$ R0 u& e$ B+ _
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],) o6 a6 m9 ?7 G% m: Q( V- v0 }% y
"}"}], ",",
6 e0 [5 n8 O& b7 N1 b7 _ RowBox[{"{",
( p1 i5 I0 l' Y' X* D3 } RowBox[{
4 m$ o, l# s: a1 u "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
v- k5 h9 |) E$ L: U( h ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", " B' g9 `: k0 f8 X+ t# {* `- T
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
& n+ Z, }# B. h* l% b0 @ "}"}], ",", - `$ s4 ^6 N4 Z/ ?4 k
RowBox[{"{",
: }2 ?, `6 L: v8 Y' k$ b RowBox[{$ R+ W _/ w6 L2 F/ m
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
- V0 `. e C7 u9 c; \ ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", " x' w8 Z1 x2 U4 y2 m- T
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],( [& W6 j% ~# H
"}"}], ",",
4 W+ i5 D; O% ~6 R' q! P2 ~- Z RowBox[{"{",
$ P1 O6 g- T5 ] RowBox[{8 i" A W4 P" u8 ?$ ?# @+ a9 g5 U `* m
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",3 G: u, j; r9 @ D/ K" P/ w
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", . Y, I. ]2 J& z, J. y4 Q
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
: t: |) @1 c& D# e0 W: x" S7 N "}"}], ",",
7 M( t; N: g p: } RowBox[{"{", & j" D x0 }4 J! D
RowBox[{* H) ^/ k" v2 u9 d7 c5 f& ]
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",' X2 d8 @6 }$ X: J ]6 k3 j q
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", & u1 T: l6 I% ]! _, g3 ]1 _
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
) l" Z9 t$ o ? \ "}"}], ",", 6 g! q2 f3 {/ G, u; Y
RowBox[{"{", 5 g2 ^) s) x8 d2 o3 R- S4 m3 i* K
RowBox[{: Z/ `% }# V+ i1 I3 W5 r" Z
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
7 ~; K3 G) ~3 Y. o& i, V4 C ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
3 H1 ?' t5 O& d3 x! c1 T) I+ T1 U "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
3 @( X$ s5 g8 K1 J- d! K "}"}], ",",
+ g7 W- {) O" ~. S4 I RowBox[{"{",
; @7 T5 V6 O6 r RowBox[{
! ^! p; l+ ^# ]$ a( P "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
4 @% p5 _3 o2 B3 u* D( W) r ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
) @. ^" v" u1 ]7 J "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],- K4 j* @4 [( {! r" ~3 J
"}"}], ",",
( Y' K$ A9 D' ^4 Z" F RowBox[{"{",
: S' i/ s" N- E K# v RowBox[{) L6 o6 c2 t2 Q( y1 \
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
( I5 _) c; v. g2 p) Z ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
1 Z9 t: n3 t/ e3 J "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],* X: m$ U V% F
"}"}], ",",
. j. _/ Q$ I% r# x" R RowBox[{"{", 7 y `& t2 A1 X! J% ~
RowBox[{0 f/ w; h: m/ t* q& I
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",' W0 N: M) L" I8 r' M0 x1 [
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", ! a, n5 o& O4 q7 v& f% \
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],- A4 p6 s% i3 c+ W
"}"}], ",",
+ {2 P0 Z. X( M) M7 e7 l- n j/ j RowBox[{"{", ) e9 M% }6 S* d* m$ [7 f" A
RowBox[{2 M0 I6 E4 E. s" N+ d/ W T! v
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",0 h$ Y# }9 q4 `, J) E
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 8 _% X: I9 l9 G* r
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
, O# v# T3 n: Z! C "}"}], ",",
9 ]( d" x, v2 z \2 ]' g6 j RowBox[{"{",
* Z; o; P0 ?$ M0 o RowBox[{4 \. e" ]) h, t- {
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
" q+ w$ o" Q6 {- ]5 w" B! B ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
0 Z: j0 G* M/ P6 m0 G6 W4 \ "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
, h% k/ G3 e* C* o ] "}"}], ",",
1 t1 ^+ P6 F1 \# J& R- U- ` RowBox[{"{", 7 W. f6 H9 q" R1 e# Y
RowBox[{
6 d x, o8 H j! A; q "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",* D) l4 D2 D3 A
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
6 L, Q- T. w, [1 T, A* m& e8 M; ] "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],# ?. R$ H, M. h
"}"}], ",",
7 Z7 [* D3 |( l; E! v8 f( _ RowBox[{"{", + T1 ~* m5 p1 }. J3 m7 z( Q% a
RowBox[{
' O# U# q3 v2 n, l "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",. C- H. @' e7 [2 y' g/ X0 F5 s
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
# b( a( ^# t( a& x T "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
8 q( J0 V0 Y* S "}"}], ",", + B5 ?; Y6 m" d9 ]& X% u5 j& \
RowBox[{"{", " x$ h0 ~0 ~+ M. U' y3 x
RowBox[{
! ~" V; |* F( e7 ]/ y) H5 R "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
( w& Q/ `. F. S R& w ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
) @. U' ^2 M! B/ x) e "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],+ l* j- l; |* H1 G6 x
"}"}], ",",
+ O7 v" {+ L" r I9 k0 z; q- w" M6 U& l RowBox[{"{",
, V* c( N( c5 P$ V- o3 h RowBox[{9 ~# i* p8 Z3 A2 S) \8 M& v# [3 f& S
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
, l$ y4 R" R+ T2 P$ n5 @ ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", / [' a0 a9 {0 y7 w
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],2 A1 N7 v2 e: b. x1 d1 D" f
"}"}], ",",
7 f y$ c7 w4 @9 ^+ n RowBox[{"{",
. G' e( z, {% M* c RowBox[{: G/ D, M3 W+ Q, m0 S! ]
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",/ `- f2 d) i1 `$ m
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
p4 ~8 c+ C$ y0 } "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],5 X1 P3 n# \( M. c; G- s2 t5 b
"}"}], ",",
* ]- p* j5 O, U, ~" E- j' p RowBox[{"{",
& ?' T W' \, y" q) d! H, p. q RowBox[{
( r' }5 i# P2 ?+ A4 h "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",( o4 }' k/ Y& p+ ^, P) ]- Z2 H
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", ' s9 \: ^6 P- L) Q4 S) _
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],8 X+ D5 l0 N6 W5 I8 N! I* d
"}"}], ",", , \. F" ^' C! x8 z. p9 c- T$ k# w' ^
RowBox[{"{", " b. ~- o9 \) O) P3 F Y/ \8 l
RowBox[{
7 V0 G! Z' r n7 C0 M( Z$ j! q "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
1 e% K& E& s R: | ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
$ M5 v; W( f o& ^. Z "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
) r* L6 j9 w' d6 V7 z& j "}"}], ",",
+ y+ s# m, B0 a' \& [" h* X RowBox[{"{",
" T5 K* |+ W, p/ _ RowBox[{+ Y6 \$ q" n7 k/ J$ v3 m
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",. X2 k! g% E- ]7 P, m
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
- M3 _6 }1 T9 s0 y# G1 t% J "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
2 G! ?/ N+ K& U, M$ U "}"}], ",",
6 J' W3 w9 V' ?# g+ @ RowBox[{"{", * U9 y& v* @+ V" i0 p" h
RowBox[{: [0 U- ]- T% {0 A1 I
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
! W. w% `2 u4 \2 s# F ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", . _# b5 @2 B }/ v7 a
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
8 D( w; n2 d. w1 j+ q "}"}], ",", 0 d9 m6 T0 v! g. O' V4 [
RowBox[{"{",
& f# O9 { F4 y9 [( C RowBox[{
2 ^, \0 v$ {: U ~0 P "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",* I/ z) m: {9 Q: e0 b7 R
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
2 c) c' T( t6 s4 r "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
3 ~, T$ L" c; t3 U1 k! g "}"}], ",",
K2 ?; x# N) }. z# ^3 S/ j RowBox[{"{",
; R! P1 B+ b0 x8 R# ~ RowBox[{
% @3 N" ?8 G, r* I, h3 \ "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
$ a8 H0 n( i) v( W) N9 `5 X ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
" j* Z0 E" U% M7 a "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
0 ^) I$ Q7 g# E; E, z5 Y "}"}], ",",
! P" u) O- R5 W RowBox[{"{", b8 s5 F5 ~, S$ G* D
RowBox[{
7 D4 j& `# R5 ] "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",: T1 N7 u7 x1 Q
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", " h. r+ l/ C1 A! u: `+ l( r
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],! Z2 e1 B# R" i! A% P- j
"}"}], ",",
8 x' d; x" I$ t" \ RowBox[{"{",
; J9 G3 [6 ]( z$ C RowBox[{
9 f" c0 A t1 b0 I/ z7 M, Q, S1 O "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",- p5 X5 l2 \& ~3 s- @" a( q, |
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
4 \) l7 A9 t9 C+ S "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],% w \- |, ?3 l o" D0 `
"}"}], ",",
+ u3 V, g0 W- Q% Q/ ^2 q RowBox[{"{",
; s4 y7 {4 X6 F) v, n) r RowBox[{
2 g, `9 G e' T" K2 M9 c' } H5 R "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
! b) @# N5 r, X2 Z' b& s ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
, _8 ~- u8 ]0 ~9 i+ B "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],8 } A. {# ]8 F& F& I
"}"}], ",",
& ~! f! T7 T+ I3 i" h RowBox[{"{",
( h2 o3 ?5 ` c. N; V' b5 t9 K RowBox[{
( i' R+ `. k% a9 v7 p7 W "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",8 J- Z( f+ k1 |1 s& R0 ]
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", ( z: J8 C9 b; Q9 K2 w
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
3 X" J5 y: |. z "}"}], ",", 1 F6 B o; u5 g: { d8 H( ^
RowBox[{"{",
! e+ j% x- o3 @4 ] RowBox[{
7 h! i) W1 d( I$ D0 k0 a, @. F "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
, ?% _& P6 d t9 |/ E5 k$ o ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 7 a( ]8 \$ C) Q/ H7 O
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
) w7 g! Q/ ?$ b3 x3 z! ]2 y "}"}], ",",
0 k4 A. Y, x* n9 k; h RowBox[{"{",
7 b7 R2 P- J) S0 l RowBox[{+ N6 q: a2 s5 I% c2 d
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",- l4 {$ L# P: O- _' a. d0 v
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
8 S+ O7 m" Y1 H5 M+ B "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],9 S8 i+ u; n7 w, m9 W5 W2 n
"}"}], ",", % j) w( @5 A# G7 {! H, g3 C
RowBox[{"{", 0 m+ O4 z" d$ B! ]- W
RowBox[{
# @, U. U$ G ]* Z "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",7 y3 L. z% _. y( v" k1 b+ V
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", / w2 w6 ~! I- W. K3 \5 l+ z
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],& x" b) A L/ f0 v: e5 K3 y9 h( L1 }
"}"}]}], "}"}]], "Output",
: e8 b# s5 ^( \3 X$ S& C CellChangeTimes->{
5 X0 C# ]( \$ s% Q7 N% ] 3.577924022828125*^9, {3.577924056171875*^9, 3.577924103265625*^9},
7 X5 c* _# s3 _( H9 S. m5 S$ I 3.577957579987569*^9, 3.577958891536294*^9, {3.5779619459910836`*^9,
1 r; Z& p K: i 3.5779619748823338`*^9}, 3.578012345453125*^9}]
' o9 f9 Y) h7 j3 [}, Open ]],+ t% F1 T5 _, f& B5 B/ W
8 j/ i4 b- H( P! h2 fCell[BoxData[3 q u0 i Q/ R! s# i
RowBox[{"For", "[", * b2 [ y9 e$ o% |0 R
RowBox[{
3 A& y2 J8 T( O, m: q9 C RowBox[{"i", "=", "1"}], ",", 9 }# U& O2 R( A+ { C
RowBox[{"i", "\[LessEqual]", "60"}], ",",
. N7 U- x) G! D$ W1 | RowBox[{"i", "++"}], ",", % G9 d. j' l7 |, E
RowBox[{"{", "\[IndentingNewLine]",
+ E* I' V6 A8 R* M- |0 Q RowBox[{
2 ^3 A- S0 a$ C$ x; {$ H RowBox[{
. p: m$ V4 s+ J& H) C RowBox[{"m60n21", "[",
3 z. g1 `. j8 C9 O RowBox[{"[", ' c! J# q' ^ ? c7 `+ O7 n
RowBox[{"i", ",", "1"}], "]"}], "]"}], "=",
9 g* r ^% U' z RowBox[{"u1", "/.",
7 O) s4 b, C2 _3 q6 k; @ RowBox[{"{", ' e, \! e% b0 O0 i+ L! U
RowBox[{
2 Y" Q2 q* u( [ z0 a$ x$ l RowBox[{"x1", "->", 3 e0 u% u6 E0 C. r4 F8 R" E5 F3 X# ]
RowBox[{"Data", "[", / C( I0 y( t3 H- {& g* I
RowBox[{"[", 3 e$ l G+ T# U: _
RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",",
: P! _3 v2 p8 k' ? RowBox[{"x2", "->",
. q) @1 v; X, D8 j" B RowBox[{"Data", "[",
) ^5 A/ J( j8 h; W+ X RowBox[{"[",
% h H2 `; k1 f6 @9 T" ~. b# v RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",",
: P- @# q* v+ P, ~4 ^ RowBox[{"x3", "->", / x4 g: P: ]& s% h* U, E- m
RowBox[{"Data", "[",
7 x7 U# h, c! e Q5 K' y RowBox[{"[",
$ @9 f# [: G# L) e2 j RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",",
% x1 G7 b8 i% c, B RowBox[{"x4", "->", 5 v( Z/ z. r: L1 q/ E; u
RowBox[{"Data", "[",
5 j0 ^* s) J2 z, i$ v RowBox[{"[",
( R& e( w+ b- @( A& J# N, w9 Z RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",", 9 w! P/ [! x! w& G2 x* z7 B8 P1 N
RowBox[{"x5", "->", # ~2 \% \. M: l
RowBox[{"Data", "[",
! a' A9 D1 q" ~( H! A% a RowBox[{"[",
) ~ ^" v, V l p! o; b RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",",
- W# R0 U1 s" j9 u3 X RowBox[{"x6", "->", $ Y! e( J: K7 z0 ~4 o
RowBox[{"Data", "[",
. h3 W+ ], e" A7 c. j* v7 K. z RowBox[{"[",
/ K/ }! Y' I( ]' G* d RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",", 2 ?6 j: ~/ g7 o+ v' \! t, ]$ b
RowBox[{"x7", "->", + j! f3 L. W5 }6 {: A
RowBox[{"Data", "[", ; w: Q9 K6 {( O. a4 Q3 a" ]; Q/ _
RowBox[{"[", ( A2 `7 v9 U8 L$ Q
RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",", $ A8 u) `1 H6 V
RowBox[{"x8", "->",
* H9 W7 q1 M( b7 { RowBox[{"Data", "[",
" n5 j6 Y) ^! ^, ]& o RowBox[{"[", - j' \0 G0 K, f
RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",",
+ @! \- }3 C% q! d' [ RowBox[{"x9", "->",
( _7 z& X) k) G) I2 @ RowBox[{"Data", "[", 3 ~9 a, z8 N' r7 V
RowBox[{"[",
1 n1 q$ w: A: c& |6 O RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";", ) o8 G% y/ A9 L; r. J) K
"\[IndentingNewLine]", % v9 |2 `8 f) O1 {8 S L; M5 {
RowBox[{
) w: ~0 _# U! j- H' V RowBox[{"m60n21", "[",
; [) I% H8 @$ b$ i5 y2 Z& j RowBox[{"[",
1 l% z$ }9 A. t* B, A/ [9 X RowBox[{"i", ",", "2"}], "]"}], "]"}], "=", , v4 _3 x; L* `) r3 x5 J
RowBox[{"u2", "/.", " J# ^4 i/ Y1 l8 x8 U- C/ l
RowBox[{"{", $ C. Z, I: a/ R/ i
RowBox[{. g }9 Q7 z9 L) r. M; g. Z, z
RowBox[{"x1", "->",
; {$ c4 m. H3 S6 ]4 P+ T+ n RowBox[{"Data", "[", 3 c% O8 R; l; ^+ ~* Z
RowBox[{"[",
; i* Q1 k& |3 Q3 N RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",", 8 }/ @9 ]! R7 \& O K
RowBox[{"x2", "->", & @8 k& O( J# r8 R% z: c
RowBox[{"Data", "[", $ N& Y. ?" t2 ?0 `; ^! c9 U
RowBox[{"[",
5 w8 G' a/ `: e v1 z3 p* X RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",",
/ @6 f, {+ Q- {1 M RowBox[{"x3", "->", " W1 m. Y) u: p8 Q
RowBox[{"Data", "[", " E N+ V" Z* W
RowBox[{"[", : L2 ^0 \* p7 `) X1 A, s
RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",",
- C1 n* Z4 g" q* }: e1 C RowBox[{"x4", "->", 7 s9 W7 o0 D9 {
RowBox[{"Data", "[",
: X4 P- |% `6 F RowBox[{"[",
5 S. J( t5 O% H: ` RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",",
s. s! n+ P" G+ O: M RowBox[{"x5", "->",
% I; Y+ Y& {1 {% t# B" d9 m RowBox[{"Data", "[",
& u l7 I2 B5 u6 e RowBox[{"[",
( h; j2 m0 c) Z7 r) C% a RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",", 9 T A, ]. q' d& Z2 g
RowBox[{"x6", "->",
, @- B- Z: Z! S# W5 z/ s: j RowBox[{"Data", "[", * S2 k. O- i) V0 V7 u
RowBox[{"[",
. u# J6 `3 U: B RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",", 4 }- [* y9 z+ T1 j3 z! h9 R1 _
RowBox[{"x7", "->",
+ ~0 p$ i) @2 [* \ RowBox[{"Data", "[", # x( Y2 x% ?7 c, h
RowBox[{"[", % s" ?& t. U9 c: y, W4 ?. k
RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",", ' B+ A' ^6 ]% U4 T3 I' U9 C
RowBox[{"x8", "->", # }: F( S( I$ b2 I# J
RowBox[{"Data", "[", $ M8 x& S1 M/ e0 d6 @" m
RowBox[{"[",
E! ]* d1 j( A* K RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",",
* ~) U1 ~# N! p6 _6 e& K RowBox[{"x9", "->",
" i0 P3 G) a/ ` RowBox[{"Data", "[",
3 q" G& M( X3 q2 | RowBox[{"[",
) p5 t; @2 ]* i9 y! K8 a& ]. O RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";", d+ r$ S3 o# S5 r. t7 _( E
"\[IndentingNewLine]",
: i( v7 T& \5 g/ o# ~/ j RowBox[{0 _. m [! d0 l* G% R1 m& `
RowBox[{"m60n21", "[", ; [. I( [* q1 c! t8 V; W0 l
RowBox[{"[",
& f% F0 ]1 T% b2 g" o% u, E RowBox[{"i", ",", "3"}], "]"}], "]"}], "=", 9 e' s% M7 f- a Q% N/ R' @
RowBox[{"u3", "/.",
: @& M- l% ]( M: e6 O: ]7 S; a RowBox[{"{", 0 j/ z1 ~4 B! h$ f6 F1 R- p2 g) k
RowBox[{
, w7 y1 w! {* |3 A RowBox[{"x1", "->", 8 K, S% u9 ]# K$ s* u9 m& a& g) t
RowBox[{"Data", "[", ; u: Q2 C( X: ~2 H3 ^, |
RowBox[{"[", 8 t& Q" S: `; J4 C! V' Y
RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",",
* F" J5 \: h' n+ q" N+ ^ RowBox[{"x2", "->", . X6 K, V2 W% d8 H- n
RowBox[{"Data", "[",
$ ~# [% H S! h2 s1 c RowBox[{"[", 0 T/ A" h& \% X1 o
RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",",
. M. b: d0 e/ z+ W) E" F9 E7 o+ P3 s RowBox[{"x3", "->",
& r. V8 A/ J' q RowBox[{"Data", "[",
3 E" O/ ]! ^ F* q2 s, T RowBox[{"[", 7 s5 M1 ]+ F0 T- A" l3 D& ~4 l
RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",",
! `. p! z9 L9 ^5 n RowBox[{"x4", "->", ; A+ L Z0 R# _- X+ d
RowBox[{"Data", "[",
2 a" q: v' q% y: H RowBox[{"[",
7 r$ C8 Y* A: x, X1 y RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",",
8 e' T. l' t/ T( U RowBox[{"x5", "->", / `( J' U8 R% `
RowBox[{"Data", "[", " W( ]% S: ?0 ~5 l
RowBox[{"[",
: X; h+ L9 a# H( X; z4 o RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",",
; v: M. {$ B4 B$ W9 v/ r; l1 C RowBox[{"x6", "->",
- H# m2 {! T( p% i/ ~ RowBox[{"Data", "[",
( n6 n+ Z7 E7 k+ [ RowBox[{"[",
, Z* ]$ h4 s1 C# h, y RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",", 1 i$ A3 E( R& V$ t; b# T; A( y
RowBox[{"x7", "->", - H+ o# Q; I9 S2 A
RowBox[{"Data", "[",
. O O8 q$ y( R# C- V) k RowBox[{"[",
& J; \5 K& K3 C# x2 X- \ RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",", 5 M: U O5 B, V. U8 x" N" U3 o
RowBox[{"x8", "->", , J' ~5 M# H6 U6 }, @: S- Q i
RowBox[{"Data", "[",
q+ b: k' e$ r RowBox[{"[",
* O2 M; d; f3 ` e* r( B3 C RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",",
) C! s9 ?( v9 T RowBox[{"x9", "->",
' A0 f7 c; U5 }9 h# f# h RowBox[{"Data", "[",
9 K# y1 K# O) m! p1 G- M( N4 x RowBox[{"[", % t9 ^/ u; @4 H w4 _
RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";", $ _ i) f% x9 ]/ r' a
"\[IndentingNewLine]",
+ w9 m, f8 @0 d; b% F" J RowBox[{
; Y5 z0 O) ^3 A RowBox[{"m60n21", "[", % \( n# i' z M. @0 ]
RowBox[{"[",
6 e9 ~* L- s [9 s RowBox[{"i", ",", "4"}], "]"}], "]"}], "=", % y2 ]7 {$ U/ r6 x+ _1 K! P: o
RowBox[{"u4", "/.", & u8 V3 T2 J9 M- L3 T ~
RowBox[{"{", # p3 H+ H! ~" w7 w
RowBox[{
: i; t9 a: U) v2 W8 d+ a- S RowBox[{"x1", "->",
4 h, Z( ?" @1 Z RowBox[{"Data", "[", # t0 U; U: p$ a" V6 H
RowBox[{"[", , H ?1 n& v, L1 _* K
RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",", 7 B6 @& k! w3 m2 c4 e
RowBox[{"x2", "->",
( L: `+ x, t3 T3 H0 t) L RowBox[{"Data", "[", ; K, m( b# S. P6 j0 Q
RowBox[{"[",
% U. I; `, L' U4 |( e* X& K) F RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",", 2 k- `& D& b- o* Q1 N' s
RowBox[{"x3", "->", 6 i; x5 n8 z3 ~; d) v
RowBox[{"Data", "[", % u& y8 k' e8 A5 Q2 G8 ?( u
RowBox[{"[", ' ?; I0 Q3 R( T" S6 ?9 _) |( `
RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",", ; t" K$ J' s7 o0 h
RowBox[{"x4", "->",
( W9 i8 B1 ^5 ^. U$ R2 ~ RowBox[{"Data", "[", 0 H) ?- m/ J! `+ T/ r* E
RowBox[{"[",
0 t; p' M2 D2 N) T- }7 E RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",", + N ?" e1 Q8 ?# i( ^* \ `% y
RowBox[{"x5", "->", " D+ ~! S1 P2 e! _# p
RowBox[{"Data", "[", 8 [. S. j( N; ~( F0 b- I
RowBox[{"[", & z* S9 a- @7 I6 l1 a
RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",", & V g' D& x* o8 M3 f! r9 _: k7 W
RowBox[{"x6", "->",
* Q0 I, k$ [: O. [1 P RowBox[{"Data", "[", 8 q5 e% n" a: N! ^8 f5 S
RowBox[{"[",
Z' J% u" e. t$ n* D' \/ h o: x RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",", 7 W# {+ D! u) T8 |2 O
RowBox[{"x7", "->", - i* q4 }, k5 n0 @
RowBox[{"Data", "[", - F N6 n! F2 b
RowBox[{"[", 6 H2 ?# g$ \! D# e2 f
RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",",
% Q3 l! Q5 m5 `/ B7 K2 _7 ] RowBox[{"x8", "->", # l% p# D) l+ u1 ^8 T
RowBox[{"Data", "[",
! V' R% i8 ?8 l2 F" m# u2 ^ d RowBox[{"[", ' g! E4 V4 X) a" Q; m0 `
RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",", ; c! w- b1 w) H: J4 K; J! ]( a- ^1 W
RowBox[{"x9", "->", 5 q6 M. q9 y9 S4 B& z- t
RowBox[{"Data", "[",
6 E0 d" ?4 m. g9 i7 q8 ]" a, @ RowBox[{"[",
' @9 H* z1 B. a RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";",
' M6 I0 N2 \9 N1 n "\[IndentingNewLine]", 2 n) x3 R* r5 `- s) V$ ?
RowBox[{
& W- Q- g+ \) b, e RowBox[{"m60n21", "[", 0 e9 d& a+ H2 G+ x4 s& O
RowBox[{"[",
* O0 G. K1 w4 d: M7 j3 } RowBox[{"i", ",", "5"}], "]"}], "]"}], "=", / Z/ F0 ], l8 W; x
RowBox[{"u5", "/.",
; {2 v& M$ t/ h RowBox[{"{",
4 T" ~, I8 x8 i/ ~4 b* c% k RowBox[{$ G, ^) ]% E6 k4 f' P5 W1 }% }
RowBox[{"x1", "->", " g- N* @2 W# \4 V# {
RowBox[{"Data", "[",
5 l; l7 p/ M" n* v) J v RowBox[{"[", " b* k- P' o; R
RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",", + r1 r* Z2 p2 `/ g
RowBox[{"x2", "->", + b1 A; B# ^$ M/ o/ _7 B g4 f( X6 A) A
RowBox[{"Data", "[", * d- e' S4 h- y0 z- }. j
RowBox[{"[",
6 h" O, }( I( e& T RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",", 6 G! z' D9 t6 E+ j0 M
RowBox[{"x3", "->",
% g. i5 T, \! n7 g/ ~% O ^5 Y& ] RowBox[{"Data", "[",
# o5 w* {, ^' k RowBox[{"[", - H' e9 r$ `, @ ]; C6 P
RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",",
- L8 V9 x4 D2 H RowBox[{"x4", "->", 9 L A: v. D& F! b" f E0 w
RowBox[{"Data", "[", 4 m- o% k8 d* ]0 A7 Q+ ^
RowBox[{"[", ( p7 b( u/ |; r) b6 I
RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",", 6 g9 \8 y$ h# W5 U
RowBox[{"x5", "->",
+ I3 @' O4 v- E/ \, O% Q4 A0 V8 k, R RowBox[{"Data", "[", $ a9 r: Q. J; {+ Q2 X) r6 O
RowBox[{"[", 3 \6 l0 t2 Z ^ E9 k
RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",",
) B' t3 p( v, L4 a( `# u2 g RowBox[{"x6", "->",
" S9 f% k7 w: _/ f RowBox[{"Data", "[", 9 u. Q6 L8 \5 k9 Y \- V
RowBox[{"[",
( A9 r" D" K0 p% U5 R RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",", ' t1 g. n3 [9 X, i
RowBox[{"x7", "->",
. a) I- ^9 N8 O P6 N6 L3 O8 X) X$ p4 P RowBox[{"Data", "[",
0 M' T1 a% {8 f0 }! A' y9 U RowBox[{"[", 7 A9 V7 x0 P- e
RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",",
5 o8 L+ W0 Y3 U$ d- C; j RowBox[{"x8", "->",
& [9 ]* m0 n+ ?( F, M0 G5 d RowBox[{"Data", "[",
/ w/ O8 Z# n7 y9 ?* c RowBox[{"[",
+ _1 c) ]& A* `. D+ w" | RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",",
) @3 g2 N* x6 R0 P: m RowBox[{"x9", "->",
% C; z9 w% D6 L6 p) C) {" K+ F0 ?% ] RowBox[{"Data", "[",
( N- O- |/ W' W! d5 D RowBox[{"[", 8 h; V1 z* Y" p
RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";",
. ?1 R1 F' T* L3 F% N9 d* F! N "\[IndentingNewLine]", ' r/ x1 g3 Z0 ?% G8 d- }
RowBox[{
+ Q7 N: A+ ?- w, q2 t9 \ RowBox[{"m60n21", "[",
4 ` E# L' d4 j RowBox[{"[",
% K$ l% g7 z& s RowBox[{"i", ",", "6"}], "]"}], "]"}], "=", * x( n1 h* f8 h) l
RowBox[{"u6", "/.", ) l& r7 x R' T# S( ^% g0 u; j C
RowBox[{"{", ( Q& J/ Z% H3 ^. @7 s3 L) O' Q! _. b
RowBox[{
/ M) W! F: N' t) _6 S2 @& G RowBox[{"x1", "->", , C9 [: N9 `9 y3 O2 `
RowBox[{"Data", "[",
- r' {7 x/ d6 w) ? RowBox[{"[", 7 B" S: x5 m4 y; B* _9 z" r
RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",", 9 ~0 n) t9 @: U/ `/ | A, n
RowBox[{"x2", "->",
0 M* l( z. X+ ?* j' Z RowBox[{"Data", "[",
$ ]5 {; k N8 o M: R0 ~3 Q RowBox[{"[",
$ J$ O; g. t" L# t. I5 g7 {5 }: W( [7 Q RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",", ~! H2 U4 W- D" I B9 H1 Q/ O
RowBox[{"x3", "->",
4 C, f1 N4 T& `, p RowBox[{"Data", "[", % `, B$ \7 [5 I& z
RowBox[{"[", ( b0 Z/ F8 B6 W6 v7 F1 ], ?
RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",", . G1 u6 k4 V) ?! t. C% I- l" y
RowBox[{"x4", "->", ! }3 d* o( {& U* q8 x- p) h* A
RowBox[{"Data", "[", . S6 i d) F& u# O3 c
RowBox[{"[",
, o/ N' A$ F$ _# L( s( ^4 y RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",", $ g$ t" D7 s9 d+ {
RowBox[{"x5", "->", & y; v6 K, a5 W. O+ v! r+ x
RowBox[{"Data", "[",
. k' o+ @% O/ k/ h A RowBox[{"[",
: ?9 {: I# t @% M, q RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",",
; u& n) p% ^& N; u0 a, j4 v RowBox[{"x6", "->", + ?: }# {% y9 w' S
RowBox[{"Data", "[",
5 F9 w/ W! g! b2 I9 g' y2 d7 B3 } RowBox[{"[",
4 e, K1 j9 q) x5 f RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",", 1 B U5 T0 }/ c# y5 h1 V
RowBox[{"x7", "->",
9 L! [& }3 Y+ Y$ t RowBox[{"Data", "[",
3 m- E5 w$ P j RowBox[{"[", , x% o' l& r7 {; g, t
RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",",
0 P4 W, V) Q# v& P% L( ` RowBox[{"x8", "->", 8 T$ x7 W3 w" C$ r
RowBox[{"Data", "[", ) N G Q) i+ P$ X. K9 k- Z
RowBox[{"[",
; B. _4 b) N: b W% H f RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",", 0 @* S8 U; O2 f' p" [
RowBox[{"x9", "->",
, b& b' p. Z3 B1 d) I4 r+ | RowBox[{"Data", "[", & c% z2 S& g4 l. H
RowBox[{"[", , [3 t f" }7 F4 ^& [8 I
RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";",
- H8 C2 `. H3 s# ~8 a) X$ r "\[IndentingNewLine]",
8 A: J. f5 ~9 i+ m RowBox[{
; o, k5 F, n9 c @, R RowBox[{"m60n21", "[", / F. I, Y- E- X4 e
RowBox[{"[",
* d; O# W; i7 G8 m/ V" @& R% v" U RowBox[{"i", ",", "7"}], "]"}], "]"}], "=", 2 F h' @0 H( |. L/ M4 F0 {
RowBox[{"u7", "/.", , n) b$ Z2 c* x6 v- X9 J
RowBox[{"{",
+ `* H3 |' c5 ? j0 N' ] RowBox[{8 S1 u' k/ |( |( A
RowBox[{"x1", "->",
# F4 z d7 n# Q( f" q4 u2 T/ E/ O RowBox[{"Data", "[",
9 m: h4 k/ j( K, k RowBox[{"[", , V6 F$ j0 u1 |! N2 E1 `. y. n4 m
RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",", & ?8 L/ v1 E6 N
RowBox[{"x2", "->",
4 {9 n9 @) N& l/ j( P RowBox[{"Data", "[", ! |6 B4 k- n# E9 p+ I! R$ T
RowBox[{"[", 3 N: N4 |$ P0 C& i
RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",",
" G/ I- d- T% [+ S8 z RowBox[{"x3", "->",
: R3 l, J/ c) Z* y* [$ r# X RowBox[{"Data", "[", 7 @- v& s! [- k
RowBox[{"[", 4 J" {& S( c3 [1 v* L* {
RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",",
& e, L3 P8 o) B. o7 `" k9 Q; W RowBox[{"x4", "->", & i2 }0 E. q' i6 v5 H5 o! e& w) H
RowBox[{"Data", "[",
+ P8 {$ y- o9 Q8 z8 O* y. B RowBox[{"[",
- c2 X- H9 T2 c7 q RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",", / y$ n$ e2 ~' J" m# f
RowBox[{"x5", "->",
& R( g2 j% @9 o5 C3 ~" F" _9 r RowBox[{"Data", "[",
1 M" S! ^& M2 l& }& a! z RowBox[{"[", 4 Z) s% l. r8 ^ f/ N% O9 W
RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",",
9 G, `) N/ j9 A b1 ]$ |& d RowBox[{"x6", "->",
' m8 K" B1 W7 X( U+ n; U+ [ RowBox[{"Data", "[", $ r6 i: f/ V# w' E
RowBox[{"[", % \% s, H$ {) S6 G( X& x
RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",",
: `& s+ m- `9 L+ q/ K) P1 B7 B/ e, X RowBox[{"x7", "->",
2 J5 n% l/ N) _1 x/ ?% j- e9 K6 w RowBox[{"Data", "[", % k D0 I& a6 w7 p/ `2 r" N
RowBox[{"[",
- R2 Z9 t* ~, v" y& X) W RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",", 1 F2 g& Z8 I. g% I5 [; C
RowBox[{"x8", "->", 9 J- W! a. ]9 U& ?, d5 ^+ V4 Q
RowBox[{"Data", "[", ( d* g0 W1 F% h
RowBox[{"[",
6 E4 E- v( w4 }1 G" n, b2 K RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",", 6 b$ n9 H5 y; e+ l7 u
RowBox[{"x9", "->",
o& S2 F0 w% G2 f) z/ r) s RowBox[{"Data", "[",
1 p d& G+ A1 n) Q0 t; [ RowBox[{"[", 3 Z" @. A7 P x/ ^( G
RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";",
% }$ p6 u* ?9 n "\[IndentingNewLine]",
+ B% ^3 b8 C3 V9 Y RowBox[{
! H" U' Q! D! I5 m RowBox[{"m60n21", "[",
$ q7 H2 C- Q" j5 e) P o/ d" P# Q6 j RowBox[{"[", 5 ?+ w: f, N; J
RowBox[{"i", ",", "8"}], "]"}], "]"}], "=", * Z) p1 ?8 l* f' Q; P" }
RowBox[{"u8", "/.", # N7 I" D" g \7 ^4 V
RowBox[{"{",
0 s5 U) C! q) {: p RowBox[{
3 q8 a0 ^, F% n3 J9 n RowBox[{"x1", "->",
: I7 q' C% T) ^+ N( E RowBox[{"Data", "[", ; Z- s7 b) s" x
RowBox[{"[",
$ r# @3 W: [1 K5 w1 I; k3 r: G3 m RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",",
" y# C$ y8 S6 b RowBox[{"x2", "->",
8 d' W+ G# R: ] RowBox[{"Data", "[", 0 p% ^* V& d6 V- j$ E: t+ r2 X
RowBox[{"[",
& e2 {( k. J0 o/ S RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",",
9 E8 T2 x5 ~2 w2 G8 | RowBox[{"x3", "->", 5 Q+ A! `/ I% L- F3 g0 C( [4 Y* D
RowBox[{"Data", "[",
7 A* B2 }* o# p! r$ o RowBox[{"[",
7 F- J5 C; ?7 h RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",",
$ G1 T& ^. o7 K RowBox[{"x4", "->",
, A6 l% i; j+ I L/ L RowBox[{"Data", "[",
' |3 s4 l: D8 C5 B* J; B) z RowBox[{"[",
$ ^) O7 H! B1 H, H$ t3 {! V1 s6 } RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",",
, _6 n9 s: x7 @- \ m RowBox[{"x5", "->",
/ s# @* M# l. V3 \0 a RowBox[{"Data", "[", \: ^, w4 p5 q8 M" Z& w
RowBox[{"[", 6 `0 X6 r! T+ Z$ q; o
RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",", 3 @/ u4 M( K; t6 @
RowBox[{"x6", "->", ( Q' u5 ?7 ^# L, Z) F
RowBox[{"Data", "[",
/ d5 \9 E1 ^4 w& j9 W RowBox[{"[", , ?: Y' { u; i7 q% W6 ~
RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",",
+ a# M6 u( y3 F; r. C, V& |/ d RowBox[{"x7", "->",
$ x! j" P- X& A RowBox[{"Data", "[",
7 I+ R, a9 @ j0 t RowBox[{"[",
) V* X7 h5 B, |! ?. Q2 f/ t5 j RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",", 1 d; @# l0 R0 n3 R
RowBox[{"x8", "->", 9 A) e; E1 O! G: B/ P/ B
RowBox[{"Data", "[",
' G- f1 u7 v4 F( C! \- a) z2 c$ A RowBox[{"[",
+ s) B# L% S2 c& ?' ] RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",",
& ~0 O a3 z/ k# Z RowBox[{"x9", "->", 9 m2 C& V. L' ?; I2 I6 G0 o
RowBox[{"Data", "[", : n# K* p x& r& _+ S7 K w+ {
RowBox[{"[", 2 l, C! i! I* ^% W
RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";", * W5 h' Z' z% D/ p/ ?; N
"\[IndentingNewLine]",
f* t9 A- I" ]% l3 ? RowBox[{5 ?" m' v5 x. B/ f
RowBox[{"m60n21", "[", ' `) B2 z. f, T8 K! g$ V5 O
RowBox[{"[", ; q9 i# ~& H" K) y3 F' ]
RowBox[{"i", ",", "9"}], "]"}], "]"}], "=",
R% @4 r- z& j5 l; f: T. C8 N( \ RowBox[{"u9", "/.",
U8 j. D' A2 g B7 n RowBox[{"{", + Q7 t2 m: `8 A- ?
RowBox[{. Z u! R( u& Y* t" R. t
RowBox[{"x1", "->", 6 a; k& {1 i9 k" h2 I' s7 i# v R
RowBox[{"Data", "[",
7 f. s5 i4 h! n RowBox[{"[",
( O1 Z; x6 Z2 {* {; r" e9 } RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",",
5 j8 W- V+ x. ]' W RowBox[{"x2", "->", 7 S+ e( T% p! y9 l
RowBox[{"Data", "[", 2 _# o/ y' H" p8 x1 ^
RowBox[{"[",
0 U. t' B" u ?: ?) T$ S8 v RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",", * r4 F5 ^1 W7 G1 G* ^: ?* q
RowBox[{"x3", "->",
! v b5 w% y& y( m1 l RowBox[{"Data", "[", R2 T& x- K6 m
RowBox[{"[",
! n. a- f, N3 e2 c, g# N+ T0 _ RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",",
4 D+ V% D' Q: I/ x7 r% q' \ RowBox[{"x4", "->", # o( v4 e+ z. M x) S$ Q1 H
RowBox[{"Data", "[",
1 l0 l: c3 {% E+ r& P! I! p) ? RowBox[{"[",
$ o: C# M: H8 _( S2 u' p RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",",
+ m `! t5 @6 G. [ RowBox[{"x5", "->", . S3 a e Y4 c
RowBox[{"Data", "[",
. e* L ?1 v( g/ T RowBox[{"[",
, J1 v( W t& h: U$ N' b RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",", 4 R% C3 @3 \, \; E$ }
RowBox[{"x6", "->", ) P/ G3 _% G# Z# t0 D2 J
RowBox[{"Data", "[", # q/ K5 i6 X# W5 `
RowBox[{"[",
" E- m# e6 p$ R4 p$ B! X: {. q/ O* n RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",",
- Q. `3 ^7 m# B9 J$ S. v RowBox[{"x7", "->",
) L$ J- R% S1 M# D0 S RowBox[{"Data", "[",
5 @7 ^, Z$ V$ w3 e1 P3 t- I RowBox[{"[",
5 k. ]' O' Q' V0 {7 t2 [0 n RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",",
6 O4 k5 Y) J% S _' l4 d5 t/ I9 o RowBox[{"x8", "->", ) `; ?# o( v N2 P. I1 x
RowBox[{"Data", "[", % m( R" j' G* T7 S# e% ~$ B) D) U& j
RowBox[{"[",
3 C: K' q2 z* t9 h$ @, A RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",", 2 T% m% q/ _$ h# j. K
RowBox[{"x9", "->", " W* q1 q' l$ t j3 i+ |, {) o
RowBox[{"Data", "[",
' e; @! c- n) [* ` RowBox[{"[", 1 `' r9 ^. d; e# \/ N
RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";", 7 G3 O4 v) L& e5 v6 K" F$ i( I5 K
"\[IndentingNewLine]", ' @0 R9 q7 {6 J
RowBox[{& s: ], @/ G. u7 a* Q4 n2 g
RowBox[{"m60n21", "[",
) W& L8 _! Q# `6 K RowBox[{"[",
6 n3 j& S. V' `# u$ Z" C3 h: i RowBox[{"i", ",", "10"}], "]"}], "]"}], "=",
- U$ Y. \$ k# S7 D/ w. |. h; s RowBox[{"u10", "/.",
0 v& ]# F- S! e9 f7 P RowBox[{"{",
) s- \2 h F" M RowBox[{2 c, D: t9 ^" G( W0 d! i- @
RowBox[{"x1", "->", : u) W- Q& a& m n$ G
RowBox[{"Data", "[",
. c9 q) J7 _+ J+ w/ I r+ \( K, c RowBox[{"[",
8 Z, J9 i0 B3 Y& ` RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",", $ ]2 f+ m% A+ T1 l
RowBox[{"x2", "->", % m g1 R; t* y
RowBox[{"Data", "[",
# G) [. k- w8 M RowBox[{"[", 1 v% \$ u- O# z4 e- _
RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",", , @! {& }, s# D2 d9 F6 i$ J
RowBox[{"x3", "->", 5 e. h3 f; z$ a+ v- R
RowBox[{"Data", "[", _+ {. ]- m8 ]' v# t* F
RowBox[{"[",
. Z9 q, S: O3 _; E y$ V* } RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",", 2 W2 b; r0 A# t/ f9 M
RowBox[{"x4", "->",
$ @5 D t/ w" Z RowBox[{"Data", "[",
9 M9 ` ]/ N3 z8 [- S, d RowBox[{"[", ( R" m5 }1 v: e, p9 j
RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",",
R7 A' b$ W9 `; Z! b0 W RowBox[{"x5", "->", 9 o2 g( F+ y9 [' A& Q
RowBox[{"Data", "[", & v+ K/ _0 W9 S0 z9 h7 i
RowBox[{"[",
! y a1 Y2 y( R' L& x% g6 V( ` RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",", ( N+ `0 N* r2 _; o: L
RowBox[{"x6", "->",
_# {+ R. l1 b; H" b; Y# F RowBox[{"Data", "[",
' G% e0 ^* b) _+ ?% A' b RowBox[{"[", + ^5 j: G$ [/ ]. ]5 b
RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",", ( `$ [8 i9 }$ A
RowBox[{"x7", "->", : _3 m" g% o" ^" g) N O% K7 s5 a
RowBox[{"Data", "[",
3 G' B5 I& k) ` RowBox[{"[",
3 h' ^! W$ _* R3 t RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",",
' @' J, L8 Y- @" h RowBox[{"x8", "->", % H1 T7 O1 [+ |6 j9 D/ G5 f
RowBox[{"Data", "[", 8 |3 B2 s2 F* f# g
RowBox[{"[", 7 r9 Q3 S: K- E: i
RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",",
5 P3 M' }' m$ I1 I# O7 { RowBox[{"x9", "->", ' p+ ]5 m7 t2 ]8 d. T ^' K
RowBox[{"Data", "[", # {1 C* _# s# \- D2 d! {
RowBox[{"[",
: t; `& ~$ w( z! B7 ~9 [ RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";",
l3 P$ y T e$ A- U" C# v* _ "\[IndentingNewLine]", / d2 c3 b! ^) w7 t9 G
RowBox[{
# P% |2 t4 _- z- j! O7 V- @ @ RowBox[{"m60n21", "[", 6 a) {0 h6 W9 L6 E* z! {1 K! {; m8 s
RowBox[{"[", ' p+ o5 ^ q, p& E% O; _0 J
RowBox[{"i", ",", "11"}], "]"}], "]"}], "=", " @+ M3 Y7 I9 L+ s9 C y' c* k: r
RowBox[{"u11", "/.",
# N+ D$ g6 m, o3 `! y' O# T RowBox[{"{",
$ I2 Z. k5 [/ I+ P; R RowBox[{) G: w" s' i3 x& W3 F
RowBox[{"x1", "->",
3 J! L! M V1 u( w$ o RowBox[{"Data", "[", * h) Y) M+ F% [, f4 h
RowBox[{"[",
' A( a* F7 Y% j/ M% ~* a RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",", & t! ^6 F3 u, c c4 O3 T& g: B
RowBox[{"x2", "->", ! ?$ ~- c0 W7 V x1 }0 V
RowBox[{"Data", "[",
0 ?; u$ {2 x! m; Y' p, X RowBox[{"[", 9 X# O$ H1 T. w( }8 c
RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",",
/ U8 s. E! n3 a9 r9 t RowBox[{"x3", "->", % R' T7 e) F' o5 V
RowBox[{"Data", "[",
' e7 r9 I- g( w. ^! ~- { RowBox[{"[", 9 ~- }& _! i6 M" B9 b
RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",", - T9 S& _, b. W9 N% M5 R* V
RowBox[{"x4", "->",
8 M4 }/ d; M' N j RowBox[{"Data", "[", , j( K1 H% H& D7 x3 \- N
RowBox[{"[", & ? u) k4 t) Z" B
RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",", ~& P3 E5 s$ ]9 F3 _, c$ r7 t" I& }# m
RowBox[{"x5", "->",
: F, x) J0 t/ f- y, Q5 N* M: _ RowBox[{"Data", "[",
1 H% v3 T9 R$ w1 |# t RowBox[{"[",
. w7 ^1 J: _0 W8 C RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",",
0 t6 z6 A9 Z7 ^ RowBox[{"x6", "->",
# b2 ]0 Z& j/ ] RowBox[{"Data", "[", $ n q- E3 R6 N. I; ]; f4 X
RowBox[{"[",
$ j' D: p$ I0 w2 t6 S9 V0 { RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",", 5 w& m* `, }9 b* F3 A$ @. s9 O
RowBox[{"x7", "->", . U6 Y7 W8 f1 ]
RowBox[{"Data", "[", % B" C+ h+ v8 q' A* v3 {
RowBox[{"[",
: |3 |6 y' z% N& P8 k RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",", % {) E. x+ K$ h! U5 b& a! t
RowBox[{"x8", "->",
2 D2 V$ b7 K& t. U7 P. H RowBox[{"Data", "[",
7 E+ P4 ~/ Z5 k' \# Y" s0 U3 Z RowBox[{"[",
1 S# E" c# a$ M9 y RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",", ) i8 I6 @3 k3 p6 B3 u6 u
RowBox[{"x9", "->",
" O- e8 m8 N. t: k RowBox[{"Data", "[",
5 c5 Y O6 V! }$ C+ c RowBox[{"[",
" A. I/ P- ]* N6 Z2 |7 L RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";",
5 C6 i6 X; e" g7 P( t, g "\[IndentingNewLine]",
! K( v' W8 G4 k2 Y8 C2 }9 e+ w: ? RowBox[{3 E" T' D) n# b8 ?9 f# [
RowBox[{"m60n21", "[",
( n4 o, q( f6 N% c$ o* W3 R% r RowBox[{"[", 3 f- I& K: @; O7 R* p, g6 Q% a
RowBox[{"i", ",", "12"}], "]"}], "]"}], "=", ) ], C4 \* z7 E2 T
RowBox[{"u12", "/.", 9 b- b: f) X1 U
RowBox[{"{", 0 ^# A. N7 b: A' `
RowBox[{" j. a& T; e( {- ^
RowBox[{"x1", "->",
( A# W3 _8 s9 P! n5 d! \( Y RowBox[{"Data", "[",
3 `# A/ `2 b, M' W% w- Z/ V RowBox[{"[",
4 H0 E0 ?7 S1 O3 o" B; {" ~8 e2 T RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",",
) C6 U0 m) f& r W7 m! ^ RowBox[{"x2", "->",
1 u+ E" Q( B1 Q1 X- I5 F# ~ RowBox[{"Data", "[",
' s. K& `0 a; ^6 ?! Z( Y RowBox[{"[", 4 q* P( a* ~6 J% ]& B# z. ?
RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",", 4 K$ v7 h3 A5 z6 {
RowBox[{"x3", "->", & e! z' Z$ t4 b* C1 x
RowBox[{"Data", "[", 0 i( ?; X9 n+ Z# {# n" e G
RowBox[{"[",
" K: i! @; }6 C% y# S$ q RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",", / E; ?5 j% z! F5 t3 U% K) o' n
RowBox[{"x4", "->",
0 N% W8 `7 C: ]: {1 _9 g: n) s RowBox[{"Data", "[",
* L8 u1 O* L2 M5 H* C* r5 P9 T7 L RowBox[{"[", : |/ j9 ~3 o# m, K6 |5 U' y
RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",", / o ~3 h# f! W+ a9 U1 u/ }
RowBox[{"x5", "->", . E [" A9 s5 E! A! V3 l, R
RowBox[{"Data", "[",
* `3 a7 w# T* R% f5 T RowBox[{"[", 8 C6 z; ]# d1 A+ M3 R7 v; Q8 v
RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",",
7 B7 j/ w$ P- p+ C RowBox[{"x6", "->", 7 m1 _4 L' C/ c: {7 ^" ~4 @
RowBox[{"Data", "[",
" J7 D( V U0 b } RowBox[{"[", 1 Z: U! @ N( D! b2 v
RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",", 5 M- L3 K7 M* f$ g
RowBox[{"x7", "->", # d- P# Q$ S1 \2 D$ u1 `4 @, \
RowBox[{"Data", "[", # A0 h9 U) J4 I& {( U( c: O. O% D+ p8 P
RowBox[{"[",
8 ~( W$ B/ F9 T( q: w* r7 b RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",",
8 J) f9 i9 _/ ]! B0 _ RowBox[{"x8", "->",
2 i f1 f0 ~* K0 ~' ` RowBox[{"Data", "[",
/ U) K$ P% B/ q: M RowBox[{"[", & w, E5 W3 N' ]0 A1 L
RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",", 5 K" K7 I1 f, c9 G
RowBox[{"x9", "->",
3 ^/ k8 N/ z3 |( a- u1 k* w1 r RowBox[{"Data", "[", ; p5 z$ T3 x" d7 U: x
RowBox[{"[",
1 {1 u1 [- ^: }) m/ j+ N RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";",
+ @: T u, W S" M) ^ "\[IndentingNewLine]", - h8 J y0 _! l$ \' E' v* p( c
RowBox[{
R! V8 A4 E0 a; c( Y7 _- _ RowBox[{"m60n21", "[", 9 _$ U- Q7 j6 U2 M7 x2 ]
RowBox[{"[", 0 Q* k& {7 F$ w9 d+ Y/ W
RowBox[{"i", ",", "13"}], "]"}], "]"}], "=",
" V) u* k4 a1 H RowBox[{"u13", "/.",
! K, m9 z! \2 n RowBox[{"{",
& @3 H: F) k, {- \# ^( e0 i RowBox[{
3 d ^/ z. e1 j& G1 Y) ^* i8 Q# Y RowBox[{"x1", "->",
/ F' b- R0 B" @ RowBox[{"Data", "[", , K+ Z0 X j' ?2 D5 w1 z
RowBox[{"[", 5 [# k* I' P2 e3 _8 P8 ?$ o# k% L9 i
RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",", $ k* b6 F& D4 z/ o* Z/ R( s
RowBox[{"x2", "->",
w: Y9 J( f0 B& M- L: o RowBox[{"Data", "[", ) @- x) v) U2 [- [( ~8 V
RowBox[{"[", # [& V# |* |3 D
RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",",
, g3 d# p1 C4 \ v6 Z RowBox[{"x3", "->", 7 W. p9 |* K) F! E' |
RowBox[{"Data", "[", $ q5 X8 A5 S1 C! g' k
RowBox[{"[", 3 F( p' u) l, U: i
RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",",
9 Y, o6 o; n( p+ x3 s' R RowBox[{"x4", "->", % G: r# Q) W' f7 Z8 i3 ~/ I
RowBox[{"Data", "[",
8 n) x/ w# U* F9 S* d! Q RowBox[{"[",
) Z6 o6 c; s0 }9 P RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",",
1 D+ t5 \% K) f& M7 J+ ?3 ~+ X RowBox[{"x5", "->", " e) Q' J" L0 q+ z# Y
RowBox[{"Data", "[",
% ]8 d$ E! e" p, s8 d W! ? RowBox[{"[",
0 h0 d6 i( w& J RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",", * r5 {& t8 m. Q! D/ q F0 ~
RowBox[{"x6", "->",
0 a# A: t7 h: ^2 f2 f. b0 ?5 J2 c RowBox[{"Data", "[", : u+ s; U' T- A1 N
RowBox[{"[", + W& n% O3 ~# [) a) W
RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",",
1 P) j d3 O& t5 m. T4 c+ } RowBox[{"x7", "->",
- T0 ]9 N" e, g. e* @( f RowBox[{"Data", "[",
: T9 j2 r2 l! H9 d# ? RowBox[{"[", 3 ~$ u$ j" G3 R) W0 C4 o
RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",",
7 P1 `( {5 s/ V! p RowBox[{"x8", "->",
0 \- U! e6 D' ^# | RowBox[{"Data", "[", $ G+ c! h; [; k/ O- ^8 k
RowBox[{"[",
- q. ?; {, N: e2 g! I1 j4 S RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",", 2 ~' g! D/ ~1 {% W: R0 A: ~8 {
RowBox[{"x9", "->", 1 v/ p- p6 s; x7 V& D* K, B
RowBox[{"Data", "[", * L# D5 F- k9 s# ~
RowBox[{"[",
0 j$ k( K9 s& U* U( V' ^ Y4 S RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";",
5 Y S& [1 `. b3 y/ O "\[IndentingNewLine]", 1 i/ t5 {0 i0 e; y- t2 z
RowBox[{
& a0 j0 v/ ~$ w. u/ `8 x% P0 A$ A RowBox[{"m60n21", "[",
: ]; |: y8 {, e$ ^8 J- B$ k RowBox[{"[", 8 p$ f; E7 @9 T% T) g7 d
RowBox[{"i", ",", "14"}], "]"}], "]"}], "=", - N9 K t5 R9 |4 x
RowBox[{"u14", "/.",
# ]/ l& _% K4 \4 q* P; m RowBox[{"{",
" F4 v1 W9 T' X6 d, _2 _ RowBox[{! F, v; j2 p2 V( T2 ]$ i0 a
RowBox[{"x1", "->", / e; F: k7 `; g; T
RowBox[{"Data", "[",
$ U$ e: ], e6 _+ {2 n% x4 O RowBox[{"[", 5 ]* C9 V0 e; M+ T' U* ?
RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",",
) Q6 m0 a" K# |& I- }$ \# @, Z* G RowBox[{"x2", "->",
& `+ Y0 X a: T9 ]5 P1 A! _& R RowBox[{"Data", "[",
6 @" J9 B, U0 K: s' k6 S( D RowBox[{"[",
" R9 w5 ]3 q9 F" q$ h6 B7 G RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",",
7 X- w3 [, K# l, v! {; ]; R RowBox[{"x3", "->", ( T3 q. Y4 \, l p3 g$ ~) @: [
RowBox[{"Data", "[",
8 p- h, h- R. d: m! C. x; B( U RowBox[{"[",
0 S7 N4 _1 i& X7 c$ _! f, J! U RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",", 5 c1 {9 \0 V8 g5 A- e
RowBox[{"x4", "->", & g0 r- s2 Q3 s K
RowBox[{"Data", "[",
( L R+ a- v7 [ h RowBox[{"[",
1 Z% f7 S' m: ~& o u4 D% j RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",", ' E; Z: S. g( y# T
RowBox[{"x5", "->", * R2 J/ e' \& N F( h' v& H4 V' a
RowBox[{"Data", "[",
+ f8 ~1 d3 g7 V% {: a5 R7 y, [ RowBox[{"[",
9 O, O6 X# J) C RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",", - g7 [# U* |1 p5 Q5 n- h6 f# m
RowBox[{"x6", "->", 8 V+ j3 n% S! h/ ^
RowBox[{"Data", "[", % Q2 r o+ \& x/ f$ f7 O" M. y
RowBox[{"[", + g( w$ }4 ~' |0 Z9 y
RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",", 3 Q& k" [3 z: A1 p8 s
RowBox[{"x7", "->", / x9 `# c" h ?2 |" }
RowBox[{"Data", "[", : J. c4 ?* j9 f+ p. o x
RowBox[{"[", 7 R: A) M8 S. V
RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",",
' X, w( x3 b f/ A RowBox[{"x8", "->", - M2 Y7 y0 h2 J8 N' |3 H
RowBox[{"Data", "[", ; t, Q+ e+ M& i) @
RowBox[{"[", . c. P5 _/ u% ~/ a
RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",", 4 \: m' i# f' m2 X. u
RowBox[{"x9", "->",
9 j- ?: W [* r4 B- I. Z RowBox[{"Data", "[", 4 \. w, V0 g& J6 t+ Q
RowBox[{"[", 1 U% n: G, Y4 y, |6 W6 q
RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";",
: ~. |+ S' s i; i3 C/ S "\[IndentingNewLine]",
$ N# ^7 R# A, o: O) t, M4 p RowBox[{
. B7 a4 G' ` u) Q" ^' a RowBox[{"m60n21", "[",
$ x0 L- R! X& t. o RowBox[{"[",
! @0 ^8 j9 s" X% V5 J RowBox[{"i", ",", "15"}], "]"}], "]"}], "=",
/ A$ ?% _1 S( G3 }/ n; j" ~ RowBox[{"u15", "/.",
) U- g. q1 U3 h/ o RowBox[{"{",
3 y6 D/ e$ A% B/ Z8 O RowBox[{
`( G8 } C: U3 Q4 H, O RowBox[{"x1", "->",
' W& n& @$ X% q2 i) W) K \ RowBox[{"Data", "[", ) a" a$ u# x% g4 ?9 J
RowBox[{"[", 4 @9 I" E/ b! x& H) d! W
RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",",
6 o, Q, `. m" j$ H$ |" `) \ RowBox[{"x2", "->",
5 l" Z {$ \5 m RowBox[{"Data", "[",
2 M# A- W+ ]+ d# R6 r RowBox[{"[",
9 k8 r& D1 ~- ~8 A RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",",
- `/ G* S0 z* {7 f- A9 n* n RowBox[{"x3", "->", - j8 S5 M3 X: Q0 S# X2 Q( x' _
RowBox[{"Data", "[",
$ ^! I+ [2 W+ ?( W; E1 M" V1 e RowBox[{"[", 5 x& A }8 E& ^1 z4 Y& U j; l' C9 `
RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",",
& u; k0 m. J- y( V5 o! R RowBox[{"x4", "->",
8 P4 g0 K$ n, }3 m% R6 H RowBox[{"Data", "[",
6 I. [" G$ l! g5 R2 J RowBox[{"[",
/ x: A! l8 _4 h% O RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",", - J. Y$ S+ c! ~3 n; I, l% |1 p. B* l8 l
RowBox[{"x5", "->",
6 J0 r7 v0 a; J8 a) A: a5 u RowBox[{"Data", "[", . R: k! `2 q9 u" b8 R
RowBox[{"[", " V% c& E/ n: T* h
RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",",
! t" ~5 d/ p& R+ w& O& x4 c/ \$ \ RowBox[{"x6", "->",
1 e1 m, i4 ^; r4 `8 s RowBox[{"Data", "[",
9 @- a# q9 ~' N8 v0 x RowBox[{"[", + F, _1 a1 E" L: H; H( N
RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",",
9 J2 l* b! O6 N RowBox[{"x7", "->",
/ O4 m. ~3 n; N0 o/ F8 O RowBox[{"Data", "[", ! l- ?, X( ?; O. p7 k
RowBox[{"[", , n4 v/ _7 v, k) t
RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",",
' k8 N" }' V1 P6 \6 d6 N RowBox[{"x8", "->",
. B" m3 P& ]) O RowBox[{"Data", "[", $ b& K' Q8 b! b4 C
RowBox[{"[", 2 y5 G# R6 R7 n9 ?9 e- L$ B
RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",", : M9 `& |* R' X# W7 C3 ]
RowBox[{"x9", "->", 6 ]& G g' C; g& k, V
RowBox[{"Data", "[",
* T5 U" W o, D, ^' |) o4 U RowBox[{"[", 9 K, `0 R% J7 x& @
RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";",
; t# y) {& K0 n% Y0 g5 w. G "\[IndentingNewLine]",
' f* | Q2 u+ D3 i+ ^4 I RowBox[{
; O7 g6 f9 D, b, ^4 m1 s RowBox[{"m60n21", "[", ' G$ Q6 V. D- f+ c, x0 P
RowBox[{"[",
/ D+ I$ ] h9 F" J M2 o# w RowBox[{"i", ",", "16"}], "]"}], "]"}], "=",
" T s$ d& I/ k3 I' y( e5 | RowBox[{"u16", "/.", ' _/ S6 {9 M5 M5 b) M
RowBox[{"{", , E' A* [. ?: V3 i' Y/ C7 G
RowBox[{+ `* y! M6 B6 d
RowBox[{"x1", "->",
- R7 E( L- P; Y( C7 K RowBox[{"Data", "[",
6 ]% R+ `. N1 V RowBox[{"[", * X. {# \5 a3 O) ^7 `% E
RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",",
& F! m& `, L4 W. r# D RowBox[{"x2", "->",
8 ]" G3 U1 C) s% K& F& G RowBox[{"Data", "[", # d+ \: ]; B8 a6 ]/ e7 ^, R8 ]
RowBox[{"[",
0 \# I& M( m# ?/ }% ~( G8 I! F RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",",
9 T, ~" l5 l, c$ ?# n0 x; H RowBox[{"x3", "->",
) r2 \0 c8 i2 l- j' U, X2 m$ w RowBox[{"Data", "[", T0 D8 r3 R v8 i6 _. A& V0 I3 k! M6 ~. P
RowBox[{"[",
1 u g* w# p4 f4 m- b- U3 x RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",", 9 } F4 ?) O8 d3 ?% R0 X
RowBox[{"x4", "->", 8 l: Q* ^ l: _1 _7 s0 e) v
RowBox[{"Data", "[", # V% y! [: h+ t: ~6 B, V% r
RowBox[{"[",
8 S4 |( `% u1 ?1 J RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",",
# w9 e" c2 F! M. O/ `" h& a# j RowBox[{"x5", "->", # i8 `! p" a* u) x y; b
RowBox[{"Data", "[", 7 h7 F: K9 K# o2 h& O
RowBox[{"[", 5 V/ t; F0 i9 l: t' G1 R* z$ K
RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",",
* u/ B2 R2 F, i; V RowBox[{"x6", "->", 7 n+ L8 K9 o% y% i" D
RowBox[{"Data", "[", ; V* p5 i! M- S- v* t% _7 I# m
RowBox[{"[",
d, z. S1 Y- ~ RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",",
D& m, }% Z2 i. T RowBox[{"x7", "->",
7 E7 C& a+ p( p) L RowBox[{"Data", "[",
! ]2 n6 N, s2 z9 N5 `2 L% U# I; d' x RowBox[{"[",
1 s F- F$ a0 U, C7 z RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",",
$ |" q# D4 i$ V2 z! k RowBox[{"x8", "->",
; E9 ?: P8 T1 x) m' @( |) W RowBox[{"Data", "[",
" x+ c* q" F! i; `" p0 } RowBox[{"[", / e3 k) [, s) ?. j/ _( G2 Z
RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",", % w: K; h7 O5 |4 U6 H) ~ F3 R: S3 r& s
RowBox[{"x9", "->",
T5 p. r# r1 W) R) t; M RowBox[{"Data", "[",
, B9 C" Y; P. r4 R. v RowBox[{"[", * M8 k- ^+ U: Z7 }( {" o
RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";", ; K2 b! D% f: V' v+ U1 c) I
"\[IndentingNewLine]", 6 o& a7 ^, R' [9 w [
RowBox[{. B) b/ s8 }' u7 {
RowBox[{"m60n21", "[",
- H7 q' e: a8 F$ L RowBox[{"[", 9 C8 _6 [) i( K) H
RowBox[{"i", ",", "17"}], "]"}], "]"}], "=",
Z0 P9 i0 T& D+ {/ X' l RowBox[{"u17", "/.", 3 S& f6 E$ i5 O6 [
RowBox[{"{",
6 K! D5 v. R% |9 {: u. |) A RowBox[{
( M- Y T) Q' }3 C4 ~ RowBox[{"x1", "->", 4 r' R. n' F0 N7 c' ?
RowBox[{"Data", "[", 8 o+ A4 u) j3 N5 K$ [" }) M2 E
RowBox[{"[",
/ w: ?3 M" |8 U* @3 X! \* `6 h RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",",
! p% f( \: o( D$ V) ]" n RowBox[{"x2", "->",
1 o/ [# D) w- r2 I RowBox[{"Data", "[", 6 ~- Q3 E6 h6 G! Q Y0 t6 K* V
RowBox[{"[",
4 A7 E; @) G2 E9 c# P: } RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",",
' ~! C& q, B& a4 _; }( | RowBox[{"x3", "->", - ]( H+ i/ ~& s6 }3 y( B
RowBox[{"Data", "[", 4 o, }( H6 o# ]% }9 K& m' j) U9 S
RowBox[{"[", ' I' `2 e+ o2 P) V* \. U
RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",", : e( a( Z9 |' b0 j$ `7 |' l" o
RowBox[{"x4", "->",
: }% Z7 T0 M, r0 G! I8 M RowBox[{"Data", "[",
& p$ L: r" A4 P! ]5 {3 Y4 Z9 x RowBox[{"[", ( u8 {4 b( t# V" R4 K( Y: U
RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",", ( M( N6 n: v, ^8 `2 M
RowBox[{"x5", "->",
& X% {/ I3 F- `3 C; }. \4 E+ @ RowBox[{"Data", "[", ! ^2 [( p( K- D
RowBox[{"[",
0 F# Q% |( b1 W# [: x RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",",
. {* f$ y' D7 }- W( l1 k RowBox[{"x6", "->", 0 e! s3 q( I+ t' m% X+ r3 b2 K2 L
RowBox[{"Data", "[",
2 }; [/ Z7 [, l RowBox[{"[",
4 G" Z7 n& `/ L% [$ w RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",",
$ _! F" g+ I6 J+ N/ k RowBox[{"x7", "->",
& S# K/ @" A; O0 g RowBox[{"Data", "[", # a" w) X' E7 I& g
RowBox[{"[",
: c; M; L4 R+ S0 w; }$ j RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",",
9 ]: ]# D9 ]; L5 N RowBox[{"x8", "->", # J3 x y" ]* R2 g; ~
RowBox[{"Data", "[", ) D" b/ \% `5 b+ d) A- `% @
RowBox[{"[",
6 z3 C3 ^8 A' i8 Z# s! {7 s" ]0 ]- \ RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",", - `, k2 P# g4 M8 o* \9 u% _
RowBox[{"x9", "->", 5 G1 Z$ Y ~- g! I* A* P9 x
RowBox[{"Data", "[",
4 u. v7 z; q% o RowBox[{"[",
" q2 C( `; F/ c- A5 B8 ^ RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";",
% P8 ^5 G% G) Y+ t$ { "\[IndentingNewLine]", 4 d4 N8 J7 z' `% d
RowBox[{* l' w. B L* L* ^ Q. I
RowBox[{"m60n21", "[", 9 ~& L' C8 a8 O
RowBox[{"[", ' C. p1 t# M2 G- A
RowBox[{"i", ",", "18"}], "]"}], "]"}], "=", 6 o! i$ }! Q5 M) I8 ^9 `
RowBox[{"u18", "/.", - l& Q5 C& e6 J7 p" P" `7 E
RowBox[{"{",
# s! ~ Q, ?5 N( O/ y; m RowBox[{' _8 R0 S- U- A6 e* k8 s
RowBox[{"x1", "->", - `3 f$ T% r4 r$ k/ n7 w- V
RowBox[{"Data", "[",
2 Q7 }- v/ ^- z3 D( F/ o3 _2 f6 ?5 H RowBox[{"[", ; \" g; R/ `" d
RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",",
( k0 T+ c) e, M% w9 K RowBox[{"x2", "->", ; Y, w4 i! s! y3 ?. A1 w. U
RowBox[{"Data", "[",
9 T1 N8 ~' U. f& H RowBox[{"[", - {1 X h! M2 g- I1 k
RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",", ) v8 H, S/ r8 ] X" F9 B% j- d
RowBox[{"x3", "->",
E0 [ s0 g: ?* C% \2 i2 J! D RowBox[{"Data", "[",
- v- T2 a: U, w5 u- b8 ^; A( L. c RowBox[{"[",
+ [# s( D. | \( E9 w RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",",
$ J' G1 c& C( U: p RowBox[{"x4", "->", ! I9 H$ s) o% O% s- R4 K
RowBox[{"Data", "[",
) }0 e" c ^! l% t6 P RowBox[{"[",
2 V4 d2 v! C5 `, x, u! N; d0 l/ x RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",",
; s7 R# i; q$ ? RowBox[{"x5", "->", 1 N( x5 R( h3 B0 x- @: O: D
RowBox[{"Data", "[",
, b V- H5 G. L" |8 @ RowBox[{"[",
6 ]+ {6 e8 W4 a! p+ i; X, y! w RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",", " k6 I _3 \6 q8 r
RowBox[{"x6", "->", * d' Q8 v, O# N; A- @
RowBox[{"Data", "[",
8 Y+ r3 k7 a4 M6 A( v8 s RowBox[{"[", ; I8 ? {- r' ?* I6 j6 f. ^! d- W
RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",", . x* Q" {, a4 P2 {. u- ~8 J" g0 t
RowBox[{"x7", "->",
+ p5 S$ a4 c6 Q Y" _ RowBox[{"Data", "[", " I, g0 L- y. _0 @1 `+ _, W9 f
RowBox[{"[",
: {; f' k" Q+ P% s! c2 J& p RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",",
7 P7 P4 ^1 x3 g5 L( ?4 N% @ RowBox[{"x8", "->", ! A7 E( }, t# d. T+ `% J
RowBox[{"Data", "[",
$ S8 p% N+ \2 ` RowBox[{"[", ( `$ T `* D5 a& v6 ]: U
RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",", $ G: @) X! ^; Y" O' s" x) C J
RowBox[{"x9", "->", " m6 P0 R) l. u# G
RowBox[{"Data", "[", + h9 W$ [5 Y2 H2 d" E7 {# G
RowBox[{"[", 0 O# A) E7 G9 w& ]% R* k0 u
RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";", 2 C3 _/ Q. h0 @6 k) j# `
"\[IndentingNewLine]",
/ b6 m1 c4 l# t4 x( { RowBox[{
6 p8 X' k! F6 c4 v; A RowBox[{"m60n21", "[", 5 N, r8 q9 Z+ @( X- g, X' x% o
RowBox[{"[", 9 s7 l1 _3 h& o- f( S$ \
RowBox[{"i", ",", "19"}], "]"}], "]"}], "=", 7 I3 F) p4 B! G+ ~& h1 ^" C+ [
RowBox[{"u19", "/.", , y' a8 i, s% l. @( ~( R
RowBox[{"{",
! c6 t( x. L) M RowBox[{
9 {- k) q2 I( ~7 B RowBox[{"x1", "->",
2 H) U/ t: p* y4 @" T3 B5 r7 ~ RowBox[{"Data", "[",
. i$ K2 D+ I& ~5 h# q0 s4 D RowBox[{"[",
7 w+ O6 x$ W/ e( c3 Q RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",",
4 F- m$ o5 t" h5 n* R0 Y V RowBox[{"x2", "->",
P0 }+ v, h$ Y5 V RowBox[{"Data", "[", / Y9 A6 K5 c$ R: f( Y
RowBox[{"[", % T; p% z6 L; I1 |+ i( X
RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",", # s9 G# X5 g- g9 p% x2 Y0 W
RowBox[{"x3", "->",
9 G" o) h( u! L7 ]4 R$ ?! J RowBox[{"Data", "[", " y& T* G; Z# f
RowBox[{"[", & N! ^. n. F1 K9 x, m! @8 K
RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",",
* [$ N! g6 i! _" a: k, l RowBox[{"x4", "->",
- K" V9 p3 M4 z6 v, \ RowBox[{"Data", "[",
( k3 N( R4 A6 X+ ?; |; G; i5 N/ M RowBox[{"[", 6 t* x% D% |) l9 s+ [
RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",",
, ?$ y0 x, N5 r- B) u1 B RowBox[{"x5", "->",
* W$ _) q) |; _1 G9 h) F RowBox[{"Data", "[",
+ n; g" `/ O. v1 T7 a RowBox[{"[", 9 h& U4 Q& F) N- r1 q
RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",",
( T, h5 C: `8 Q5 N RowBox[{"x6", "->", ( k2 a3 m3 G# d- V+ Z$ h
RowBox[{"Data", "[",
% s9 \$ K2 ^- T$ Q7 E RowBox[{"[",
5 b- \% a9 p0 B$ d, v! @- @ RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",",
/ Q4 [' J3 |) A5 X# O/ b RowBox[{"x7", "->",
4 e1 X3 ]" |8 a F- g0 j: L RowBox[{"Data", "[", 0 c- K1 c) R! i9 x& A; E7 A
RowBox[{"[",
( F" a+ S: [# {# K5 Y9 d0 Y& } RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",", ' D1 X& \, t- w5 _! n
RowBox[{"x8", "->",
% A; ^/ M Q6 I5 C RowBox[{"Data", "[",
9 V1 l' s6 W, m2 ] RowBox[{"[",
9 Y0 G2 M7 L# @4 T, b, Q RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",", 3 Y2 |4 n' B' B3 L, k2 D
RowBox[{"x9", "->",
! N4 D+ d2 a1 J8 j1 D RowBox[{"Data", "[", 4 q0 A7 `% H0 p0 ~/ p' }
RowBox[{"[", 0 K7 \5 S$ j/ `8 w2 S4 M
RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";",
; k5 u3 a# T+ R% t "\[IndentingNewLine]", + |- t; v& h8 R, i$ v3 P+ a
RowBox[{
6 q( k) h! J0 O0 j: m' M% Z+ `, w RowBox[{"m60n21", "[",
# Q" u) J% F5 H! Q# U/ V RowBox[{"[",
: e4 v$ V T" H2 w2 p, g- ? RowBox[{"i", ",", "20"}], "]"}], "]"}], "=",
. j' a" X! k2 Z2 a. C RowBox[{"u20", "/.", % h8 @$ I. r$ ~$ j; ]! O1 C% o$ e' b
RowBox[{"{",
3 t& h* x4 V4 @ RowBox[{
: s/ _" m; C4 U' `+ t RowBox[{"x1", "->", 0 b; A9 s& C0 F9 _; P, N
RowBox[{"Data", "[", 9 c5 I# Q) T9 z1 N0 P! p! v" c/ J
RowBox[{"[", : W/ ~, E$ b$ b2 l% B; }, d
RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",",
" }0 o6 W( R7 o, U) J& i$ ` RowBox[{"x2", "->",
9 f K! E3 J. ^) e5 d. I2 U RowBox[{"Data", "[",
0 U6 V/ w7 X0 \6 u6 [& j RowBox[{"[",
1 O: K& ~6 R- m; H' m" ^ RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",", 8 X! l. u- {9 l/ z/ H( C$ ]. a
RowBox[{"x3", "->", " G) \" M& f- m6 |9 i
RowBox[{"Data", "[", $ X8 ]+ F. s2 R) ^* [) l+ x0 d
RowBox[{"[", 6 Y: z4 [! K8 w" W; D6 k2 o5 ~
RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",", : P9 v2 [( B$ O) i. M
RowBox[{"x4", "->",
7 g. H. x1 e2 p. V9 ` RowBox[{"Data", "[",
7 f1 G- u& I2 z% H2 Y4 _6 K3 y9 g RowBox[{"[",
8 [: D/ m: d5 i: I) v( f RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",", , N& O- m4 e4 p5 X( H
RowBox[{"x5", "->", 1 s& T& U; ?! q# i3 ^8 q: |
RowBox[{"Data", "[",
6 Q# ]6 W! q- p: B RowBox[{"[", . j$ k) e1 j8 M8 \
RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",",
4 _7 o" Y* Y% J# S% [ RowBox[{"x6", "->", 7 n& t3 a8 F( D1 L: p
RowBox[{"Data", "[",
$ @: J7 k- s" H8 n& w RowBox[{"[", ; c* ?9 k& o: Y+ f& _& V7 ~
RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",", : S" P! ~2 L3 s0 R& B+ v
RowBox[{"x7", "->",
3 a0 J5 {# A/ d. `0 K RowBox[{"Data", "[", * Q9 S: c8 R# J+ E2 T) _5 ]' t
RowBox[{"[", . k5 ]' z5 J1 e3 [( G# M% l6 Y7 S) @
RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",", 3 F7 B, _+ m9 X" S2 z0 a
RowBox[{"x8", "->", 5 o, a+ r2 w3 g* \, K
RowBox[{"Data", "[",
$ i9 d8 t* @: M! X RowBox[{"[", # @; G. `6 N1 G( `6 {5 L) I
RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",",
* Z" [7 [; ^" R* b RowBox[{"x9", "->", ( d0 m$ S4 ~. w
RowBox[{"Data", "[", 9 y( L# ~. d0 f- p8 L8 I2 X
RowBox[{"[",
: k6 O+ R7 V( p; T6 ^% K+ W7 [ RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";",
* c, I; T! Q, _! j( `2 l$ h1 @) B "\[IndentingNewLine]", 1 o8 p: I* c# k( x3 ~
RowBox[{
2 v8 T; B; [- V/ E: G RowBox[{"m60n21", "[",
7 j# j! p; a! R+ \4 y RowBox[{"[",
) N8 b; T4 D' L6 s7 N, y RowBox[{"i", ",", "21"}], "]"}], "]"}], "=", 0 B- I6 H) w* S0 T3 x
RowBox[{"u21", "/.", * a+ F+ d) g) k
RowBox[{"{",
, x, ~! W5 { _ RowBox[{
7 P8 |# R$ P( ^' h2 q- s @ RowBox[{"x1", "->",
1 k1 I5 L6 ^5 x RowBox[{"Data", "[", # W0 M, Y0 k9 c! X2 J
RowBox[{"[", : x0 R0 s, E8 K& k; r! F. S
RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",",
: S4 x4 t2 D" F* r# i1 { RowBox[{"x2", "->",
; h& H0 _; E' B7 G0 @ b# f. U RowBox[{"Data", "[", - C+ L6 a' U3 X/ D
RowBox[{"[", ; ?: G' S4 W' e6 r% Q
RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",", & U. j% t3 O! J1 i6 c. S
RowBox[{"x3", "->",
. b. s. v& h1 R; ^7 o) l4 z5 o3 M RowBox[{"Data", "[", $ X! j9 X$ A, h3 t7 r
RowBox[{"[",
* b' m7 ^5 C8 ]" g8 p( S RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",",
" U0 I/ v+ m: u4 u" _ RowBox[{"x4", "->",
, o! E" u4 V( S+ H) C! n RowBox[{"Data", "[", " q, L* @& }* ~7 ^0 X5 O
RowBox[{"[", 1 y: S+ V* B& _8 v
RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",",
" b x, D9 y" m3 N7 ]" \3 r RowBox[{"x5", "->",
% M/ p' j2 @) u* N RowBox[{"Data", "[",
/ U6 j( o) f O. c RowBox[{"[", * ^3 u& z9 _9 }4 Q0 Y" j
RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",",
" m. Y1 `( Z+ B4 e$ o' K RowBox[{"x6", "->", 8 C) }' x* H' W" f; l, u' s [
RowBox[{"Data", "[", M/ \/ j! K* J1 s+ I7 D4 Z4 y& Z
RowBox[{"[", 0 A8 S4 k+ `6 [
RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",",
( ~8 ]- d# M! E+ v RowBox[{"x7", "->", 5 F3 ]' ]8 i6 }: i1 w: C
RowBox[{"Data", "[", # A$ Q# j* S5 B7 V0 f
RowBox[{"[", 3 Z% ~$ h) O% c; ?1 G$ h
RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",",
& }4 t0 U9 Q% Q o' l4 R5 W RowBox[{"x8", "->",
3 d* M/ o r- H: J; b8 } RowBox[{"Data", "[",
4 A8 f: n/ I+ M g" l RowBox[{"[",
2 O. a3 j. S2 r$ u7 B6 v+ H RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",",
- j7 z5 U8 T- h3 ^$ \ RowBox[{"x9", "->",
/ r( K! }* j/ y% W& y& R RowBox[{"Data", "[",
+ o' B' w) n% P+ ^ RowBox[{"[", ! f( U. y# }8 z1 ^
RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";"}],
7 t0 k8 U: g, J6 } "\[IndentingNewLine]", "}"}]}], "\[IndentingNewLine]", "]"}]], "Input",
' B4 k/ [& C- v; g, m% m CellChangeTimes->{{3.5779241165*^9, 3.57792417728125*^9}, {/ Q& E6 E1 k2 Q; e! T O: I
3.57792428359375*^9, 3.577924585109375*^9}, {3.577958919491543*^9,
* ]8 C( r8 u2 N8 s$ ^ 3.5779589224867477`*^9}, {3.5779619825731473`*^9, 3.5779620676400957`*^9}}],
% k0 }7 J/ j$ j n# {
, x7 z5 e z' H+ g0 I% dCell[CellGroupData[{8 d2 l# Y8 C; @ U, C q6 g6 W. P. L
2 ~- [$ Z/ N+ N6 {
Cell[BoxData[
- R; O% e0 m- B m t/ @* v: Y RowBox[{"w1a", "=", - @( I1 f3 Z/ \$ O1 d( p5 G4 L
RowBox[{"LeastSquares", "[", & l* Q! o4 } _: `$ s. k4 s
RowBox[{"m60n21", ",", "y1a"}], "]"}]}]], "Input",
, Q3 `2 f3 s* O3 Z7 p# r CellChangeTimes->{{3.577924598484375*^9, 3.5779246208125*^9}, {6 F, W$ M5 q' @+ L! y
3.577924662765625*^9, 3.57792466596875*^9}, {3.577962074644508*^9,
2 @" ~/ l9 t7 i0 k% h; ~9 o 3.5779620748317084`*^9}}],
. g7 r6 O& k- O, t# v2 k7 D% A6 x; M' C( X6 S8 |
Cell[BoxData[
5 g+ L% Z( _4 @' B) T RowBox[{"{", - w: n+ L! ~9 ~. Q z) ]
RowBox[{"0.32564305572552416`", ",", "0.500820838606441`", ",",
) X2 h; ~5 O8 G* J% { C RowBox[{"-", "0.5945873894818967`"}], ",", 3 b1 Z2 X. Z; M' T0 D6 T, O2 e
RowBox[{"-", "0.1999688587779198`"}], ",", "0.020180806675835994`", ",",
$ U6 S2 V6 H! f: o" S RowBox[{"-", "0.03345934908892623`"}], ",", "0.25282438852646905`", ",",
* o5 D% A4 [# f RowBox[{"-", "0.17602467625404622`"}], ",", "0.3961180670900672`", ",",
8 A' O/ h" A s; z- ^: y "0.02759193650965952`", ",", + d2 `' p! o2 a+ l
RowBox[{"-", "0.320472847796449`"}], ",", 4 @7 B5 o- C" T! x
RowBox[{"-", "0.07581214474544527`"}], ",", "0.4812237524557292`", ",",
6 U. L: L" {5 m v "0.7528674241482847`", ",", "0.6665374509702799`", ",",
) q1 c7 q& H+ y5 w6 W: v" Y; E) H "0.22861495086373018`", ",", "0.13092706311748484`", ",", 2 L9 p G2 V! U
"0.5252475961933538`", ",", 9 D+ f/ a7 k0 \' y
RowBox[{"-", "0.10599338351843157`"}], ",", "0.6670272593678526`", ",",
. q( [- c5 T1 X) b. o "0.23580523388620733`"}], "}"}]], "Output",& E I4 c, c8 B7 v; y
CellChangeTimes->{3.577924621953125*^9, 3.5779246688125*^9, 1 o' R* @, N/ a$ a5 M
3.5779575884583836`*^9, 3.577958952875601*^9, 3.5779620806661186`*^9, J" i2 Z6 L- z7 c" s$ X2 B
3.578012349875*^9}]
( x* i% ?8 D/ n2 p}, Open ]],
5 h% F ~* }) Z* U0 {( \ Q- j+ V+ g
Cell[CellGroupData[{9 o$ l/ S+ x2 q& j! ]: G
" j" {$ P/ t' ]# V( ?Cell[BoxData[) P1 `6 ~9 }- [- j: Y2 ?
RowBox[{"y1", "=", " `- y2 H/ d" H' T7 B5 d u
RowBox[{"w1a", ".", , N2 }. W# H2 E+ T9 `" y: s6 A
RowBox[{"{", ; [/ n$ n$ n+ b) F
RowBox[{
6 x, ]( R$ `+ P. a* s "u1", ",", "u2", ",", "u3", ",", "u4", ",", "u5", ",", "u6", ",", "u7",
: g( y' N$ P' C$ ]. [1 Y9 i ",", "u8", ",", "u9", ",", "u10", ",", "u11", ",", "u12", ",", "u13", + E6 ?: Z% A; x# S9 i" Q4 i! ?
",", "u14", ",", "u15", ",", "u16", ",", "u17", ",", "u18", ",", "u19", \6 j" N# M0 R0 H
",", "u20", ",", "u21"}], "}"}]}]}]], "Input",, ~9 {% ]3 U% @6 k
CellChangeTimes->{{3.57792471553125*^9, 3.577924755875*^9}, {
' o5 O: z* q3 A" H; B 3.577924897078125*^9, 3.57792491596875*^9}, {3.577962095642144*^9, 6 c/ e0 P2 Z" y5 A
3.5779621231449924`*^9}}],
0 L$ Z: v% N2 N
8 _3 ~, A$ s. V& tCell[BoxData[/ a- x6 s. V0 P$ d( L7 M; l
RowBox[{7 J* N1 C5 o I0 o0 ]1 c; H8 [
RowBox[{"0.22861495086373018`", " ",
. y7 _& x5 Z& Z+ Q* u* v9 ^ SuperscriptBox["\[ExponentialE]", 1 j0 E! W7 Q; y# n
RowBox[{"3.141592653589793`", " ", . R7 O2 Z& B% q1 V$ Z
RowBox[{"(",
4 f+ C7 h. c- ~/ _9 Q6 X6 P RowBox[{
% @ m! v7 R: }2 H7 n9 p0 J RowBox[{"-", # U2 l7 F$ H- ]- k3 Q7 i4 ~
SuperscriptBox[. k9 l7 n" T- ]2 `' a: S
RowBox[{"(",
4 v! Q5 J( R6 r/ X% ^. o- e RowBox[{
2 x0 p% t2 B; Q! a7 P RowBox[{"-", "0.434783`"}], "+", "x1"}], ")"}], "2"]}], "-",
% ]+ p* }0 x5 D. { \4 }; Z: ` SuperscriptBox[' [/ `3 v( ~* Z/ w1 z
RowBox[{"(", ' q" q7 E* h1 P6 v& p
RowBox[{9 G. {8 X5 C1 w& A$ G
RowBox[{"-", "0.551785`"}], "+", "x2"}], ")"}], "2"], "-", 0 E( [7 w) g) k7 G Q
SuperscriptBox[. t, o: j* A. u3 I$ _. `( e
RowBox[{"(", 7 C$ a& [+ r8 }: k; @
RowBox[{8 l7 n$ J0 O3 |! M
RowBox[{"-", "0.530346`"}], "+", "x3"}], ")"}], "2"], "-",
8 p) l* ~( Z/ }4 _# ?: G4 i SuperscriptBox[
$ q0 A! _/ h" | H5 e RowBox[{"(",
& z) }9 I3 {# z RowBox[{. I" m' U& `! \$ b
RowBox[{"-", "0.151651`"}], "+", "x4"}], ")"}], "2"], "-", / B( `: f/ h2 Z( _/ R7 r" l
SuperscriptBox[* i' K5 d9 m% A8 o- ^6 \- R1 R
RowBox[{"(",
& f' I' c5 \) q/ y" q! s RowBox[{
; H) z8 V- i( @6 z RowBox[{"-", "0.79021`"}], "+", "x5"}], ")"}], "2"], "-", Q9 z% V7 `, S# ?5 z
SuperscriptBox[
/ n1 D- J8 s$ o0 f RowBox[{"(",
' x: W p( H) M; a7 ]6 c4 H2 |6 I RowBox[{
+ V; U4 B0 x" s RowBox[{"-", "0.529013`"}], "+", "x6"}], ")"}], "2"], "-", . ?/ p# O6 @' H2 C* Y
SuperscriptBox[
1 Z2 ~3 U5 O& i7 G: h O4 P( R# | RowBox[{"(", " {- A; |" A' y `" r" j* s D8 c+ E
RowBox[{
2 G& l/ ?* W$ O* s: Q! f RowBox[{"-", "0.409756`"}], "+", "x7"}], ")"}], "2"], "-", ! {! Q( I' i1 n8 R; u
SuperscriptBox[
7 o$ G! y, u# @! }6 F2 R RowBox[{"(",
7 N0 y% h, f, L b' {9 x5 v' I RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", + ]1 X( k" d% w4 A5 Y0 Y. d: p
SuperscriptBox[
1 g8 ~1 Z) w9 g4 g- W; x, ?" _* m RowBox[{"(",
0 S$ O1 \% [. \* x' X RowBox[{
* X" _7 f Z! M" q: O- U1 E5 p RowBox[{"-", "1.`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}], "+", + q$ ?* n1 L# M \6 {( ^$ e
RowBox[{"0.020180806675835994`", " ",
m. J1 g1 r8 e! V; `6 j7 G SuperscriptBox["\[ExponentialE]",
6 G$ r6 P2 Q2 `9 K- I RowBox[{"3.141592653589793`", " ",
% h I" e. U5 [# v6 G0 y+ U RowBox[{"(",
: ~: f- d: f$ n, x' p RowBox[{' L; [! |0 D3 m: p5 l* d% ^
RowBox[{"-", ; c! X( I2 }7 ?; G4 U! S! L
SuperscriptBox[) a" f+ [/ a6 ~- f+ V6 Z& t+ W
RowBox[{"(", 7 @# W, s' Q6 W, `/ _$ V/ H
RowBox[{
, c3 y. I# Z |- _1 P% a0 ^ RowBox[{"-", "0.565217`"}], "+", "x1"}], ")"}], "2"]}], "-",
' }' m/ U- A2 T$ `/ e SuperscriptBox[
1 B2 X2 M/ U. m, h; D RowBox[{"(", ' f8 V" J6 ^ S/ o N; w2 O/ ? U9 W$ v
RowBox[{* e$ v3 _( y H$ C
RowBox[{"-", "0.71046`"}], "+", "x2"}], ")"}], "2"], "-",
) R' v H. X3 ?9 d% u1 A8 B6 w SuperscriptBox[
5 Q; k* l* l) ^. l& T RowBox[{"(", / P( _1 P, V; d1 n
RowBox[{1 r. c3 R9 n5 j, o7 N, a' ^
RowBox[{"-", "0.64973`"}], "+", "x3"}], ")"}], "2"], "-",
0 P$ `5 J- A9 E, j7 Y+ T1 @' u SuperscriptBox[% D) m& c% ?# R2 u+ g; _6 w" w7 c
RowBox[{"(",
! J! \$ V/ B6 V! ^ RowBox[{8 G8 r3 {0 S7 ]7 j! v9 D
RowBox[{"-", "0.119897`"}], "+", "x4"}], ")"}], "2"], "-", 6 ?+ ~2 J, _' o. ~. b8 E4 C A* E/ Y3 z
SuperscriptBox[" Q! w( }) a" E
RowBox[{"(",
$ p- a/ k8 A, @/ b' y1 R RowBox[{' I7 d6 E2 @. ~6 v: C) G B2 ^( K8 m
RowBox[{"-", "0.468531`"}], "+", "x5"}], ")"}], "2"], "-",
/ N' p/ {) W/ [, W SuperscriptBox[
6 t5 D0 N* e! t RowBox[{"(",
8 a3 j( N) X# A RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
& p* i1 ~3 a R) n SuperscriptBox[+ x# j4 w* ~* K# n$ }/ ~: H, I
RowBox[{"(", 2 P. Y# ^7 G( N& F
RowBox[{
8 |' ]" Y" y5 }& i% C" D RowBox[{"-", "0.636585`"}], "+", "x7"}], ")"}], "2"], "-",
# B. b& _5 S" y+ c SuperscriptBox[) ^1 j/ b' |2 |1 U/ R6 R( \
RowBox[{"(",
5 U1 }' u' P% w- S RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", + M/ Y! |4 i- q9 C0 u
SuperscriptBox[' g8 h0 |' _/ U: E8 n
RowBox[{"(",
" O/ ? m8 U! i, I RowBox[{
3 x- T" R) {6 o! n- ?- D$ m4 d( p RowBox[{"-", "0.766748`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}],
: I* o: O, y2 z1 ]$ }0 r "+",
0 V- `) l w) I. R RowBox[{"0.13092706311748484`", " ",
: J& F% w2 m# o9 B SuperscriptBox["\[ExponentialE]", ! \, g2 H6 z( G% W A
RowBox[{"3.141592653589793`", " ", / i. m8 t. ]6 ]3 W& R! o8 F8 [. q% k" F
RowBox[{"(",
5 E3 n8 `% @ k RowBox[{
! v, F6 ~/ Q E H# L/ Q RowBox[{"-",
! d/ x$ o4 q3 j3 D8 y' [& E SuperscriptBox[ I2 O: j' @7 P1 f3 R
RowBox[{"(", * ]) z. _0 J& {
RowBox[{5 D( W: R" Z, Y+ w# u
RowBox[{"-", "0.347826`"}], "+", "x1"}], ")"}], "2"]}], "-", : v$ E- w4 k4 Y! o
SuperscriptBox[2 P8 x$ J5 @# H. r( g
RowBox[{"(",
/ i7 S, H3 ^+ ]" w! t RowBox[{
1 Q: Q6 z% x& W- v8 ` RowBox[{"-", "0.705444`"}], "+", "x2"}], ")"}], "2"], "-",
" Z) M$ n8 H1 h4 q/ z S SuperscriptBox[
' a9 G" M# K5 Z RowBox[{"(",
; h: U) P" l+ \( a, ] RowBox[{
2 }6 Q0 H# W+ g H RowBox[{"-", "0.109343`"}], "+", "x3"}], ")"}], "2"], "-", & x+ u& s5 W1 A2 t' ^
SuperscriptBox[% C- {. I' B, w
RowBox[{"(", I( A- T, P1 u$ s6 |
RowBox[{
( W; w0 x2 q! i9 @6 e' P v1 C RowBox[{"-", "0.072008`"}], "+", "x4"}], ")"}], "2"], "-", ' k# G" A! u# O
SuperscriptBox[7 F8 F; f Z3 V# A& x
RowBox[{"(", " S8 y' W [: |, f& G; Q9 P& p# p$ N9 t
RowBox[{
" t/ L1 P$ S- R' |% X! U RowBox[{"-", "0.496503`"}], "+", "x5"}], ")"}], "2"], "-", * l4 e1 y/ O! t8 v# h
SuperscriptBox[. y- U% F2 I% M0 O. c2 t
RowBox[{"(",
3 x5 H+ K! s' `$ q! A RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
7 q& T6 B$ V ]1 y& j8 h! X SuperscriptBox[
' k% H( S4 J0 Y* S RowBox[{"(",
T8 e0 d W9 o& Y" ]8 c, Q RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
; _8 ~5 D# t! ]* s SuperscriptBox[$ Z% F7 e* b( t s/ V
RowBox[{"(", : b# L* {) X# B& i, [
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", # V( _$ i% Q! h/ X* ~: C
SuperscriptBox[
; v. t/ k9 e/ w& a. g4 c- l RowBox[{"(", : K: R: ]& l5 b+ |; G
RowBox[{
2 O2 O# [4 ?6 Z8 N* {& w RowBox[{"-", "0.752567`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}],
& L- `& W- B6 `/ S$ i+ X# L "-",
- c% x, |# s, w RowBox[{"0.03345934908892623`", " ", . U1 F5 K# _" l) h4 e
SuperscriptBox["\[ExponentialE]", 5 }# G/ m; C- V! J, w
RowBox[{"3.141592653589793`", " ", ' C- U( V, T2 Z, ]1 z
RowBox[{"(",
4 m3 W7 R# R5 p$ P7 s RowBox[{% v% v8 M3 N4 ~9 R' |: E
RowBox[{"-",
s' z8 w" e# V T# c! Z SuperscriptBox[6 ], a1 T, U' R0 Z. y1 K2 b
RowBox[{"(", . o5 L3 q8 f4 H% k/ z
RowBox[{8 E4 v* z8 H8 r3 ^
RowBox[{"-", "0.130435`"}], "+", "x1"}], ")"}], "2"]}], "-", 4 ?5 [ |3 a) ^ M
SuperscriptBox[3 x! R. |2 u2 c$ e9 }1 y
RowBox[{"(",
4 Z* Q! X3 k& t# y0 Y+ O% w1 {6 @ RowBox[{# b) E" n3 I0 E- _+ y) ~
RowBox[{"-", "0.682724`"}], "+", "x2"}], ")"}], "2"], "-",
5 l- _: i4 y; w. v% z* i SuperscriptBox[* Q8 Z9 Q2 @7 |1 |+ m
RowBox[{"(", + ^# w- V1 S% v- Y
RowBox[{
6 @3 s' D7 B# e3 H RowBox[{"-", "0.258697`"}], "+", "x3"}], ")"}], "2"], "-", . N2 Y2 F; {% c5 p
SuperscriptBox[
0 S, M6 `/ K3 q4 w; y! B( d RowBox[{"(", 9 B5 P" k9 x) i" k/ e8 U; N
RowBox[{- a3 {: I' F7 s7 F1 v% z$ n! P
RowBox[{"-", "0.019299`"}], "+", "x4"}], ")"}], "2"], "-", ! l2 C' S) V2 V. [2 h* F
SuperscriptBox[# e8 d T+ E9 m0 H2 B9 \) l
RowBox[{"(", 8 A" U x7 m/ P2 L5 @
RowBox[{
' n; ?: R# ]) A3 {* N o RowBox[{"-", "0.51049`"}], "+", "x5"}], ")"}], "2"], "-", ' y1 g7 l1 c3 [* V+ j
SuperscriptBox[6 }7 Q, \- }! m0 d4 |9 S! a
RowBox[{"(",
# @9 _: h! ^* { RowBox[{
. [/ O) z2 D" A8 f$ L/ M1 I RowBox[{"-", "0.420497`"}], "+", "x6"}], ")"}], "2"], "-",
) S1 r ^; V% g+ r4 ~" }3 i SuperscriptBox[
0 c& f0 h0 i; ^: K2 e6 { RowBox[{"(",
4 c7 ^# r( Q% x2 i& e8 ]/ C RowBox[{
4 }1 x8 Y' w8 l/ g+ i RowBox[{"-", "0.535772`"}], "+", "x7"}], ")"}], "2"], "-", / v# m0 w$ p, f( g# d
SuperscriptBox[6 s/ N. L7 o9 I5 _& ]0 U
RowBox[{"(",
/ v0 N0 p# y. B# H3 Z: @3 y RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
* F( s, M: n3 B8 Y7 W c! m( [/ u SuperscriptBox[0 x. l$ L4 ^) j- Y1 O6 X
RowBox[{"(", 9 Q# z0 j; a! ^0 \) H5 I
RowBox[{$ _& K& a( B: B2 F7 q* Z
RowBox[{"-", "0.494866`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}], 4 H) g( ]. h6 |4 B
"+", ; n- f7 _( P3 v8 B
RowBox[{"0.3961180670900672`", " ",
, s2 g9 V. {* m) L2 ?+ [( F1 D" O SuperscriptBox["\[ExponentialE]", 9 A+ A5 x, h" D% S
RowBox[{"3.141592653589793`", " ", 7 h" l) w% ?7 N" B
RowBox[{"(",
) I/ o5 a9 f4 b! b7 E/ o9 f( Y RowBox[{
8 e2 Z0 B) v! v5 C RowBox[{"-",
! [/ ?( d9 b x, K SuperscriptBox[+ q( z8 `6 N( U a$ H" L
RowBox[{"(",
; H! J3 Y' m M RowBox[{"0.`", "\[InvisibleSpace]", "+", "x1"}], ")"}], "2"]}], "-",
; Q4 h* l1 A' O, v2 a, K SuperscriptBox[4 x0 z8 g4 S4 P1 i
RowBox[{"(", 4 e* Q' x- R- v" c
RowBox[{- ~9 z7 S: u h' o( l! J# n
RowBox[{"-", "0.395544`"}], "+", "x2"}], ")"}], "2"], "-",
' G0 w, K; j" T; g SuperscriptBox[( k6 U6 z* D& K
RowBox[{"(",
+ L/ c' ?( e. E8 ]4 R4 B% g' t$ i RowBox[{
, y) U9 J. F8 ?! m! h RowBox[{"-", "0.027011`"}], "+", "x3"}], ")"}], "2"], "-", & R4 F6 \+ o0 \/ | x X
SuperscriptBox[* @6 d* [( _* w9 P
RowBox[{"(",
, @2 i" h K y: b4 R+ b1 |. ^, Q RowBox[{" h8 p6 h: y' l9 @' T
RowBox[{"-", "0.048087`"}], "+", "x4"}], ")"}], "2"], "-", 5 v# K% U) G' D
SuperscriptBox[& T: @3 M6 P4 J3 i; q$ P
RowBox[{"(",
~. f5 L& B+ ~3 _& C& B% X5 ~ RowBox[{/ ~ d) K" D1 A" {5 k1 j* h5 Z
RowBox[{"-", "0.496503`"}], "+", "x5"}], ")"}], "2"], "-", ; Z( a$ ~$ w4 c" O+ ?+ W$ P" p4 x) @
SuperscriptBox[( m+ L' k* S6 G
RowBox[{"(", & Z8 e$ ]$ ~0 d5 A4 n
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
9 k: ^7 g" K/ H2 V4 S SuperscriptBox[
: @ ` [5 J9 A/ m/ H% R RowBox[{"(",
+ a% p2 O7 G. g( R* R RowBox[{
) ?/ M I1 ] w& C0 N* H/ H RowBox[{"-", "0.452033`"}], "+", "x7"}], ")"}], "2"], "-", - |; S' ^. i9 Y/ f& t# n! p
SuperscriptBox[4 U0 |% N. W6 X' C0 d
RowBox[{"(", 2 a4 W6 W3 D: X5 p/ ^ b* }
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", & t7 x# R2 z( h, K* t: C
SuperscriptBox[; l; e0 ]) o5 ^- e5 j
RowBox[{"(", 2 z% I: R6 u. d, G6 r& K6 u
RowBox[{
5 v. Q! g& @' o RowBox[{"-", "0.278729`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}], ! i5 y5 F. v# N, d' t/ _8 {. n
"-", & E1 u- F4 Z5 n+ {
RowBox[{"0.1999688587779198`", " ",
) a- p3 H3 h, C' a1 K6 X, |& d SuperscriptBox["\[ExponentialE]",
: J4 p0 W$ s9 L+ @7 A1 H, z RowBox[{"3.141592653589793`", " ",
/ l" K0 ?7 J3 X- ]' N3 n$ `( c" r RowBox[{"(",
! Q4 g: S y$ i9 w m7 i" r RowBox[{
# I1 Z) ]* }4 k; h RowBox[{"-", + C- o7 A c5 t2 m: R
SuperscriptBox[! h' S2 t' N, @2 J! t, o# G" C$ K
RowBox[{"(",
) N; N' N: Z6 m. S2 H* V5 M RowBox[{6 [+ R8 a J2 C
RowBox[{"-", "0.565217`"}], "+", "x1"}], ")"}], "2"]}], "-", $ q' H6 g: Q" Z
SuperscriptBox[
% r6 L7 R; N) j RowBox[{"(", - F4 c' z, |( J s4 U1 {% c& T+ J
RowBox[{8 K# ]. v. j( k, ~ B' \" w# Q" Z
RowBox[{"-", "0.705518`"}], "+", "x2"}], ")"}], "2"], "-",
# j& J9 n1 {5 I1 q SuperscriptBox[
, y* y. {5 ~" A9 r RowBox[{"(",
6 `4 C. i, o: @- c RowBox[{4 t% ?- v5 X' c% f) n6 M
RowBox[{"-", "0.510223`"}], "+", "x3"}], ")"}], "2"], "-", : B8 [/ `* `: C8 _1 i
SuperscriptBox[$ P/ A y) J; A; w3 X
RowBox[{"(", , U1 {' C5 h/ X; H5 G. _ [
RowBox[{
5 M/ M, I+ ^# ?# b8 A RowBox[{"-", "0.066892`"}], "+", "x4"}], ")"}], "2"], "-", 1 S3 g9 V, c' d
SuperscriptBox[
& o M* m* d4 p. |3 U RowBox[{"(",
( l) ~; D b' O* q6 h RowBox[{& q1 ]$ g; _3 n# M i
RowBox[{"-", "0.244755`"}], "+", "x5"}], ")"}], "2"], "-",
1 Z8 @2 F+ U9 R0 f9 M SuperscriptBox[
5 v- a% ]1 g4 j0 O8 L( G% y, @- @ RowBox[{"(",
6 o4 u- e0 P8 t1 F$ Z RowBox[{
! s/ v Q0 I1 d! G4 ~ RowBox[{"-", "0.748304`"}], "+", "x6"}], ")"}], "2"], "-",
: y; K1 ?( y. h SuperscriptBox[
% P& K5 X q1 Z) H1 g* o) g RowBox[{"(", 0 f2 F" l4 F8 V4 x& J0 h
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
3 C7 Y" Y/ a, o* }. Y+ I SuperscriptBox[3 u5 y+ W( i. _$ i& `
RowBox[{"(", 3 E3 D8 h: x8 j
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", 8 x" Y! f# S& k# B0 o1 R/ `3 h
SuperscriptBox[
. }$ R8 n( C ^+ @! w$ M RowBox[{"(",
- e0 i4 D* Q, T8 h6 d" ~ RowBox[{) p y2 { q( @ o6 B
RowBox[{"-", "0.243032`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}],
% T$ k( t# `0 Q "+",
% d E: W2 j7 Z- m& k0 F; U RowBox[{"0.23580523388620733`", " ",
4 h/ a3 @* ~4 ?8 B9 K4 p( u SuperscriptBox["\[ExponentialE]", ! p4 s& G) O0 d
RowBox[{"3.141592653589793`", " ", ) }6 f+ }% M) s5 Z
RowBox[{"(",
' ~0 U4 j2 v6 i6 ?6 w RowBox[{9 {# `" `( |) L' d5 L6 G
RowBox[{"-", 9 j' L/ |2 G8 h$ k- q) N
SuperscriptBox[
3 S* K+ M9 _/ ?! Q+ T RowBox[{"(",
" I$ B- N- a) y9 i. A RowBox[{3 u( w: A! S2 Z$ {3 I
RowBox[{"-", "0.608696`"}], "+", "x1"}], ")"}], "2"]}], "-",
! o/ S1 D. ~6 l, U SuperscriptBox[
# _0 d$ ]' x: d" C; M RowBox[{"(",
% F X9 f! z9 q2 p RowBox[{
4 B" c, c+ e! Y# j6 {: T" ^: P; x5 B" a RowBox[{"-", "0.606152`"}], "+", "x2"}], ")"}], "2"], "-", ) G3 @4 [0 k" w* N! X
SuperscriptBox[
8 g$ {8 T' @* r2 G RowBox[{"(",
2 d9 L/ o& |$ @5 i* w3 d RowBox[{) |9 |( m* f! Q
RowBox[{"-", "0.158058`"}], "+", "x3"}], ")"}], "2"], "-", ; D: ?$ I. ]& ?, v
SuperscriptBox[
0 q1 B; _) Y" O3 R RowBox[{"(",
0 f* C: Y* [9 W1 K4 n, a RowBox[{ ?/ Q) K3 J9 j3 W' O& L# e, ~
RowBox[{"-", "0.09017`"}], "+", "x4"}], ")"}], "2"], "-", 3 H( K6 Q. d# W& r7 O
SuperscriptBox[7 V7 X4 @! F3 d: L; f
RowBox[{"(",
% r4 f" S4 i2 M5 ] RowBox[{8 S( \ J, c6 {& Q9 ^2 S( }
RowBox[{"-", "1.`"}], "+", "x5"}], ")"}], "2"], "-", ! r; q3 Q$ e( B9 x2 f
SuperscriptBox[$ X9 p% Q( I$ r4 Z. f7 I7 q
RowBox[{"(",
5 a! ~' c" I$ m/ h RowBox[{' _" e. m0 t4 _# h# l
RowBox[{"-", "0.166541`"}], "+", "x6"}], ")"}], "2"], "-", , N( {- Q1 Z4 P* @) r( ~* @
SuperscriptBox[; w/ S5 i9 \/ `* |# e- n2 ^
RowBox[{"(",
0 q8 t) n% [1 u RowBox[{& W) K0 w0 ?9 p3 s
RowBox[{"-", "0.278049`"}], "+", "x7"}], ")"}], "2"], "-",
: {1 f/ @2 t- P SuperscriptBox[
/ p8 g E3 D5 v( i+ b RowBox[{"(", ( C+ x7 [2 I+ p+ D: U
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
! e7 x$ e! I: h9 e* ^. B- R4 K" P SuperscriptBox[
0 E, R; v% R) Y RowBox[{"(",
`" G! C, S/ [6 \6 t3 k RowBox[{
- \, U$ L: U1 G+ _; n3 a D! L RowBox[{"-", "0.236675`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}],
' {0 f; r' P$ u2 C- |1 \ "+",
2 ^( E+ s$ G6 k1 m1 f3 f RowBox[{"0.6670272593678526`", " ", ) r) P( J5 p5 T* S# b
SuperscriptBox["\[ExponentialE]",
7 @# v) H' A+ z+ K1 E' O RowBox[{"3.141592653589793`", " ", & ^1 G' F( ~6 _9 \. d. I
RowBox[{"(", ! H m4 o9 a8 o3 m5 ]
RowBox[{
1 q, c9 e( B: ^% `8 G" M/ R: x0 u RowBox[{"-", ( c- W) x9 Y- i! X. C1 p6 p" X
SuperscriptBox[. L1 B* a* d) Q
RowBox[{"(", 4 I7 {' k5 M) P3 z: F" [$ @8 [
RowBox[{. L. k8 t. D2 n* w$ o
RowBox[{"-", "0.782609`"}], "+", "x1"}], ")"}], "2"]}], "-", * w0 z+ i1 Z* R; r9 l' r
SuperscriptBox[ z f5 l+ i' }% E
RowBox[{"(", 7 u4 R; e' I) X2 g, ?+ a6 A4 x
RowBox[{
6 \! f. E0 x3 i; N O4 {9 B3 } RowBox[{"-", "0.751623`"}], "+", "x2"}], ")"}], "2"], "-",
7 [* d+ p; F& X& E2 \ SuperscriptBox[
2 U: Z$ z+ b: E" L9 k6 Q RowBox[{"(",
# T& }9 V1 w8 A L( H1 N" [ RowBox[{
& E4 q- m! N0 P* ]3 P( _* `7 @ RowBox[{"-", "0.177646`"}], "+", "x3"}], ")"}], "2"], "-", ; l, U8 `" f1 j# q
SuperscriptBox[# h' s! V3 r A6 ~ y% k
RowBox[{"(", ! f$ ] u9 P+ ]8 l0 t+ L! F: P
RowBox[{
1 B* X8 ] ?3 q5 Z2 V RowBox[{"-", "0.350845`"}], "+", "x4"}], ")"}], "2"], "-", # h; ^" T# S) @/ E1 H) Q( d8 n
SuperscriptBox[
$ s8 R. T# U# g( ?* y3 R1 g: o RowBox[{"(",
6 G7 B4 t! [7 y RowBox[{1 {- n# a0 w/ a+ V
RowBox[{"-", "0.412587`"}], "+", "x5"}], ")"}], "2"], "-", 7 L8 g$ E0 X* b( d+ m4 s
SuperscriptBox[
S* z# A4 W9 T7 L+ _ RowBox[{"(",
3 g: l, C3 P1 a9 G RowBox[{
$ i1 _9 _- o1 L1 k RowBox[{"-", "0.502638`"}], "+", "x6"}], ")"}], "2"], "-", , _+ A/ d' u, ]* M
SuperscriptBox[0 S# y2 w/ T% j8 R) C
RowBox[{"(", / t! O" t2 p8 d$ o+ g% G
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", : h( \7 y% e" j- W: k4 g
SuperscriptBox[- x8 z2 v8 U( O) k
RowBox[{"(",
4 u" o( F# u' f7 F: z* I RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
, a0 M6 V2 {6 H$ l+ s3 w SuperscriptBox[; K' {7 w9 V) k6 [; p, {& p" g* t
RowBox[{"(",
5 B8 `5 Y4 y2 }* v( m3 t' _. J2 X RowBox[{
+ U. R) ]! I& o8 }) K8 [2 g RowBox[{"-", "0.178973`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}],
( x/ ^9 }1 q0 l! R& b8 M3 j% r9 q "+",
! X0 q( I4 u$ e7 s8 ] RowBox[{"0.25282438852646905`", " ", ' z2 ], k" ~2 l0 s
SuperscriptBox["\[ExponentialE]",
3 v( D5 B) q: y RowBox[{"3.141592653589793`", " ", 1 ]% j& Q. k+ V4 v& L
RowBox[{"(", 5 F3 \5 \- M" o2 V1 Q
RowBox[{
0 N, M# y! g/ d7 _$ e& b, u% a/ n7 _ RowBox[{"-",
o0 d. b8 U) T6 z" }- X9 P SuperscriptBox[6 A5 O" p! ?8 p8 O4 u7 I/ b# M+ t/ c
RowBox[{"(", 0 I( _- Z4 t/ c: x3 e. P2 ^4 j
RowBox[{
* k+ k" g( Z% ]5 m4 y1 t RowBox[{"-", "0.695652`"}], "+", "x1"}], ")"}], "2"]}], "-",
/ B& y* [( Q4 x$ U) k SuperscriptBox[0 Q, {, x( D& U- r( Y9 [: s
RowBox[{"(",
; }2 ~$ r5 Z5 U7 n0 |/ f h RowBox[{
. W' l: j- M+ @, E1 Q6 B4 { RowBox[{"-", "0.71828`"}], "+", "x2"}], ")"}], "2"], "-", 2 K* Y" _3 ^* z; i- L
SuperscriptBox[' Y& K- ?# K) D
RowBox[{"(",
* Z% b* b" \) K! j7 W7 N RowBox[{7 j$ a7 |0 S7 m+ J! Z
RowBox[{"-", "0.33973`"}], "+", "x3"}], ")"}], "2"], "-", 5 m7 M/ C6 M) R9 Y1 K- r
SuperscriptBox[
4 y7 f# j" |1 m9 b" s& t5 k" D. p RowBox[{"(", 6 q. ~( W' X9 a/ `" ^" t
RowBox[{
2 O- S- z& M" I( E) i: O# A. U6 U3 h& p RowBox[{"-", "0.110285`"}], "+", "x4"}], ")"}], "2"], "-", 8 r$ V4 t0 O7 e" W" W
SuperscriptBox[* x4 q2 {3 _* U
RowBox[{"(",
9 o6 |$ P; P4 G3 R RowBox[{
* i& r0 d4 S8 { RowBox[{"-", "0.335664`"}], "+", "x5"}], ")"}], "2"], "-", - q0 Z7 k4 h% N; x& n9 I8 y8 x; n9 d9 V
SuperscriptBox[7 D L I- P7 Z" K4 [
RowBox[{"(",
* L% @' \5 B" S* V. K+ @ RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
" w6 F ^2 ]7 J) g% F) m SuperscriptBox[
% v' Z; u* t! F0 l: z. k; h RowBox[{"(", " \, }7 X5 O) ]: \
RowBox[{
2 B2 V, I0 V1 \4 s( |( Q' V; u# o RowBox[{"-", "0.636585`"}], "+", "x7"}], ")"}], "2"], "-",
% n5 |+ g) f1 n; J# ]7 H$ S6 p SuperscriptBox[
* F, A. H3 R7 U% E RowBox[{"(", $ @$ P+ l) V w' P' S
RowBox[{( G$ S/ d- ~5 ]" D2 V: M/ m
RowBox[{"-", "0.780463`"}], "+", "x8"}], ")"}], "2"], "-",
/ O7 m) f6 R/ _5 m+ d SuperscriptBox[
0 Q0 J, n ] v7 Z, p9 n8 I4 ?2 @ RowBox[{"(",
* f4 \' k" @; l% p+ i& M. F RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], 9 n5 J2 X1 D! F+ y5 B% G
")"}]}]]}], "-", % M) ~) j+ V' V
RowBox[{"0.07581214474544527`", " ",
7 h( B/ `+ Z# C- }8 ~7 ^ SuperscriptBox["\[ExponentialE]", 4 l& J( d f3 R
RowBox[{"3.141592653589793`", " ",
5 k5 V# p, c. f% F+ H5 [* W) D RowBox[{"(", , w; A/ F( y3 {9 @% p1 y( v* Y
RowBox[{
& ]- H( T" W1 x2 _4 p9 h0 \ RowBox[{"-",
# T0 c) B. H! r, G) T SuperscriptBox[
9 _+ e# q+ k6 H4 p9 j$ f8 c8 b' P, S RowBox[{"(", 8 b/ x. p+ A- t9 G: ]. M
RowBox[{
; ?; n$ ?0 D5 C; Z- H0 \( }3 H: a RowBox[{"-", "0.913043`"}], "+", "x1"}], ")"}], "2"]}], "-", & j2 |1 G& x7 Z/ N
SuperscriptBox[0 `- N, B$ v/ A, q$ J. O
RowBox[{"(", , D. S8 M5 P6 y7 ]( b$ h! _
RowBox[{
5 t4 D- p5 h" x( q4 t RowBox[{"-", "0.170478`"}], "+", "x2"}], ")"}], "2"], "-",
' |6 o+ Y4 K% |/ T SuperscriptBox[& T; \5 m* X8 A8 w
RowBox[{"(",
% u5 y$ I8 \" j( b. l d- Q RowBox[{"0.`", "\[InvisibleSpace]", "+", "x3"}], ")"}], "2"], "-",
* E, e- i' k3 N$ N4 V& ~" n SuperscriptBox[0 ? O% h6 W' N" j
RowBox[{"(",
& d% d T& f& q0 [ RowBox[{0 A" h& y$ P4 e( s x- b5 z/ @
RowBox[{"-", "0.012973`"}], "+", "x4"}], ")"}], "2"], "-",
6 ^8 H: H7 ^. z: x3 ] SuperscriptBox[9 L" z+ e$ \+ |
RowBox[{"(", # c" |5 G' K& D" e
RowBox[{6 v/ I3 S8 {, p. v1 o+ I
RowBox[{"-", "0.293706`"}], "+", "x5"}], ")"}], "2"], "-",
# m) J5 V/ I+ z/ ^/ C* e c: M8 A( c$ j SuperscriptBox[3 w% a$ ~3 ~- \2 T6 R
RowBox[{"(", ! Y5 Y* Q9 z, b7 g4 @4 L8 O
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", , @3 x/ q8 z1 r; ]
SuperscriptBox[) `* C( B8 ^5 ]+ e
RowBox[{"(",
* m6 q3 C, R3 w& r" ^- B RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
( [7 @; i8 I; N SuperscriptBox[
) P# F9 I6 r3 p& ]4 u& a RowBox[{"(", 2 @: J* t- F+ Z) M9 M0 W. {( T( d
RowBox[{
* e. q- y/ `! ?, A# n RowBox[{"-", "0.672709`"}], "+", "x8"}], ")"}], "2"], "-",
! m4 V- h d" k SuperscriptBox[+ p% Q. Z) s) G7 T
RowBox[{"(", - U. A, q. X2 t- Z5 d- l
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
- j- L" d9 ?* A; y/ J8 v# s6 O ")"}]}]]}], "-",
! {: f# N. I u+ p+ m RowBox[{"0.10599338351843157`", " ", 9 l5 {) s$ c* D* r) ^% z" a
SuperscriptBox["\[ExponentialE]", 5 [: _. S$ O( F2 d) Q& S; d5 x
RowBox[{"3.141592653589793`", " ",
1 g1 ^$ {/ g2 {8 a- d RowBox[{"(",
6 ^+ q, O* s2 Y: _4 K6 \ RowBox[{
9 ?) o3 T3 |+ k& T RowBox[{"-",
8 a7 m* |# R* Y# ~2 X5 R SuperscriptBox[$ @# a' s, m5 m2 o2 M' [5 V1 l
RowBox[{"(",
; j: g3 P$ k! n& E RowBox[{
: E" M$ J" f& f c RowBox[{"-", "0.391304`"}], "+", "x1"}], ")"}], "2"]}], "-", ; E( _( b+ {# o7 i5 g7 M1 k
SuperscriptBox[
& B, q: l. j( f/ }7 k RowBox[{"(",
# l5 \7 n7 [1 c1 _. x( T. v c) P RowBox[{
( p# H. w2 V/ ~/ K RowBox[{"-", "1.`"}], "+", "x2"}], ")"}], "2"], "-",
5 j2 A9 u: y, A SuperscriptBox[
! M! J) @3 s4 c" ]% v; | RowBox[{"(", C' v6 b2 j% q6 s4 y
RowBox[{
# B! O' t- x+ U) M RowBox[{"-", "0.452931`"}], "+", "x3"}], ")"}], "2"], "-",
' O* E$ S4 \4 Z. R. u' I( ] SuperscriptBox[
- P& k' L8 N8 Y# d6 F/ e) P RowBox[{"(", ' m) g; i$ _6 H. a
RowBox[{5 a+ V( t! _2 k; q h
RowBox[{"-", "0.150909`"}], "+", "x4"}], ")"}], "2"], "-",
: L; }* g& C+ M, T. j; `5 \; s SuperscriptBox[; K$ B1 O1 F2 i- B- K, W
RowBox[{"(",
1 b# d2 @7 R+ ^9 o' m RowBox[{
7 ~& L$ c4 o, K2 ?1 D7 g& T RowBox[{"-", "0.342657`"}], "+", "x5"}], ")"}], "2"], "-",
" u( G( H' j0 N8 \4 \ SuperscriptBox[
2 S/ [, c0 x& {3 y RowBox[{"(",
" E; y s! {* j) O8 x2 r1 Q8 g RowBox[{
$ }' R' x+ l6 |; s4 V. { e2 [ RowBox[{"-", "0.370761`"}], "+", "x6"}], ")"}], "2"], "-",
+ k- `! x+ N$ _/ i SuperscriptBox[
) x0 P1 l3 f' ~& j& d RowBox[{"(", 5 C, k2 o4 K9 }7 }% N
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", 1 r5 ?6 D& x' C1 H( m2 a
SuperscriptBox[
& O6 [5 s! t# T% v RowBox[{"(", # c- `# U: d+ C( F
RowBox[{9 _0 G6 g. u% f+ k
RowBox[{"-", "0.509567`"}], "+", "x8"}], ")"}], "2"], "-", ; a) Y6 U5 F, N1 h
SuperscriptBox[
9 K5 A$ o# Z) l$ @0 B4 {' {, V3 U RowBox[{"(", 9 a0 I1 q3 `2 i3 V! K8 @
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], ! S$ H& H! {! f9 {) [* f/ H; X, f: N
")"}]}]]}], "+", 2 _" i7 E& i9 }9 H0 z
RowBox[{"0.500820838606441`", " ",
& I. W! X! G6 N* F4 M7 z SuperscriptBox["\[ExponentialE]",
. e- Q+ z: B& M# T RowBox[{"3.141592653589793`", " ", ' f* d+ I7 `+ @7 z
RowBox[{"(",
; c' ?; b4 b: x; X; M RowBox[{* X9 W+ |: \" T* ~
RowBox[{"-",
F7 }4 O1 H" i$ ?, F SuperscriptBox[1 y- O/ \" c( ^+ ^9 m, q! _( O
RowBox[{"(",
/ h: A% d9 D( {8 b# [/ X% W RowBox[{* N8 R! O7 H: V
RowBox[{"-", "0.608696`"}], "+", "x1"}], ")"}], "2"]}], "-",
' M- \$ Q# D; w; z' c: x4 | SuperscriptBox[, i$ l$ M3 Z! g
RowBox[{"(",
6 q9 z$ ~7 ?3 ~1 E RowBox[{ I! w4 X4 B3 C# d4 ]9 D9 f
RowBox[{"-", "0.339186`"}], "+", "x2"}], ")"}], "2"], "-",
, |! s4 _$ Z" J+ s' o! S; a SuperscriptBox[
8 O' D. B% q( Q0 I RowBox[{"(",
: Q c" q/ I( [( ~ RowBox[{5 b) j1 ^. T. A! g! f
RowBox[{"-", "0.4943`"}], "+", "x3"}], ")"}], "2"], "-",
T1 z X. X' F: q% x; E SuperscriptBox[7 Y. x9 R" |/ g( E& K, Y9 @
RowBox[{"(", ) ]: o# F: x4 R: v
RowBox[{' L/ @. H* _6 r4 f
RowBox[{"-", "0.099338`"}], "+", "x4"}], ")"}], "2"], "-",
8 r# j* g' q. y SuperscriptBox[0 v8 N# X& q" C
RowBox[{"(",
& E! ~& U. @; A( w: Y: { RowBox[{/ U3 l! i" h7 u1 H/ n
RowBox[{"-", "0.321678`"}], "+", "x5"}], ")"}], "2"], "-",
* A1 \3 u$ l6 H3 M+ S9 _( K; o SuperscriptBox[0 e$ s! |. p' [9 B" O
RowBox[{"(",
3 }1 L1 x6 U5 R- c RowBox[{5 b4 m" M3 [4 s) u/ O7 H, J
RowBox[{"-", "0.375283`"}], "+", "x6"}], ")"}], "2"], "-",
9 m, e* H3 T6 ~7 ]2 x SuperscriptBox[2 r j3 _6 f' R) }* L: F
RowBox[{"(",
; r! U6 s# i2 z6 ` RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
, W1 b5 q" B+ J9 f H SuperscriptBox[* L3 ?7 C5 e5 H+ V# s& ]
RowBox[{"(",
0 [) F$ y L- V5 m6 I RowBox[{
+ S c. ~& W: K* r RowBox[{"-", "0.505539`"}], "+", "x8"}], ")"}], "2"], "-",
! e3 W3 u: S( h3 d( E SuperscriptBox[
( d, h- u& k X* j q) ]" N RowBox[{"(", 2 J9 W, K$ v# f5 h1 }- t, _+ z
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
9 U# h! \- p4 c3 g' z- c* U( A% k8 E ")"}]}]]}], "+", ( y7 `! ^) X7 T9 V; K
RowBox[{"0.32564305572552416`", " ", 3 j9 d" ]1 c& N! ~
SuperscriptBox["\[ExponentialE]",
* A) N2 `+ E/ I2 g, I: F3 j RowBox[{"3.141592653589793`", " ", . A) R5 L0 k2 |
RowBox[{"(",
: k5 w$ B5 b2 |) _1 _ RowBox[{+ Z$ B9 y1 O) `
RowBox[{"-", " a+ g" X; t+ d' T% N
SuperscriptBox[
# q( n7 w; n+ `4 [' U' ^ RowBox[{"(",
& \* h: T- P! S) j1 V% v9 k* L O RowBox[{) P: Z) K. |# Z" q9 B" H
RowBox[{"-", "0.304348`"}], "+", "x1"}], ")"}], "2"]}], "-", ' v( U0 L0 M/ A+ }
SuperscriptBox[
C' S; s M& P RowBox[{"(", - l5 R9 H0 R& n2 t' B& W
RowBox[{4 q8 o' l& m, D# n/ b
RowBox[{"-", "0.552818`"}], "+", "x2"}], ")"}], "2"], "-",
7 U+ Q9 I" G3 | f- G# D+ T3 M SuperscriptBox[/ p: ?6 _3 R5 W6 w$ q
RowBox[{"(",
# B/ ]8 B, Z& W9 Z X6 O f7 Y4 }+ c RowBox[{ S3 U7 N2 e0 y* c( x- B
RowBox[{"-", "0.33037`"}], "+", "x3"}], ")"}], "2"], "-", 2 W7 n# \! D9 C: Q/ I
SuperscriptBox[, t6 ^+ |- N9 |/ q. V
RowBox[{"(",
8 Z2 j& [# `! \& l. | z1 @3 ^* }0 y2 T& ] RowBox[{
1 X2 ] q) z9 c2 c6 [0 C9 d RowBox[{"-", "0.025823`"}], "+", "x4"}], ")"}], "2"], "-",
! V& K9 R% W. Q SuperscriptBox[3 I- ~" b9 C3 @ _; j
RowBox[{"(",
! ^0 @) e: K, b RowBox[{9 I* V5 }& A7 H" ~" _8 U/ T
RowBox[{"-", "0.538462`"}], "+", "x5"}], ")"}], "2"], "-",
6 ?" s7 v, X5 W: a SuperscriptBox[
4 o7 `$ R* ]. N! j+ i RowBox[{"(",
' V% H- [* I9 _+ b" r RowBox[{# _1 [3 J) S( n& b; Q8 b$ ?
RowBox[{"-", "0.752072`"}], "+", "x6"}], ")"}], "2"], "-", 2 o. p" t6 {; i/ P
SuperscriptBox[( q; w& D; Y; v. s0 \
RowBox[{"(",
. @+ P- s2 f+ \6 M8 }. [ RowBox[{2 q. Q( M1 i7 _$ d4 k% m
RowBox[{"-", "0.408943`"}], "+", "x7"}], ")"}], "2"], "-", / d' E) e: o- P, F: K, \! A9 d
SuperscriptBox[: y7 O9 k/ q3 G
RowBox[{"(",
; d" l" _- K" x" `1 L RowBox[{' v& ?' w3 k8 i# A q! L7 ^
RowBox[{"-", "0.504532`"}], "+", "x8"}], ")"}], "2"], "-",
& ]1 b8 K6 \/ |8 w SuperscriptBox[
7 j0 P- E u: s, G RowBox[{"(",
# d& N# ]3 W4 I" [- t/ p RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], / u7 i- ^* x: k3 R& l
")"}]}]]}], "+",
6 V3 y, {' X& W RowBox[{"0.6665374509702799`", " ", 2 s; j) q3 _' M: e
SuperscriptBox["\[ExponentialE]",
+ c) g" W8 t- n2 D3 h" M6 C RowBox[{"3.141592653589793`", " ",
6 F3 {; B+ z2 i RowBox[{"(", % x5 `& t, O: H+ Q/ p5 H) A I
RowBox[{
/ v: _4 {& f: N3 n5 `9 ~' U RowBox[{"-",
8 r$ o# M8 Y! Z; U# F' @ SuperscriptBox[& Y0 s. d" z, p+ k8 H" i, w+ ^
RowBox[{"(",
( l \7 r, X5 ~8 H RowBox[{
g$ i$ L7 b. }3 B, l. \: u9 p RowBox[{"-", "0.413043`"}], "+", "x1"}], ")"}], "2"]}], "-",
0 i" ~2 N+ M9 P' m `+ Y SuperscriptBox[
2 @+ {$ Q5 c8 H$ `; V RowBox[{"(",
+ N6 k) i# _# X' L9 H E+ H RowBox[{
; w2 f' \4 c- V* m) d RowBox[{"-", "0.551859`"}], "+", "x2"}], ")"}], "2"], "-", 6 p: i" j+ |1 [ z' e1 i
SuperscriptBox[' B# u4 Y! Z$ D1 v! n) O5 r
RowBox[{"(", - M& K2 s( A5 l$ Z* B, l
RowBox[{5 w# B0 |' `, z8 G) ^2 b. E
RowBox[{"-", "0.544826`"}], "+", "x3"}], ")"}], "2"], "-",
9 \+ w$ F+ V9 F- ], A9 T SuperscriptBox[" S5 \. d8 o+ `+ ]" E# b
RowBox[{"(",
* _9 o/ Y6 c( h8 d9 p5 g5 n RowBox[{
( P* j( T- B* W# c RowBox[{"-", "0.230503`"}], "+", "x4"}], ")"}], "2"], "-", & K; d9 S$ H! {) S8 q1 Q
SuperscriptBox[
: ]" u- a" E' Q3 \/ W5 V2 H RowBox[{"(", " E6 i: P" J' y+ }
RowBox[{; c$ m% B D0 F/ r* H: M
RowBox[{"-", "0.244755`"}], "+", "x5"}], ")"}], "2"], "-", $ c. H! r( E& g+ F+ l% q1 Q
SuperscriptBox[0 |- J9 X+ v+ F/ v3 M/ P8 i1 q) H3 D
RowBox[{"(",
& |; U# m6 l v! P1 n RowBox[{
8 C5 `0 z N f RowBox[{"-", "0.53052`"}], "+", "x6"}], ")"}], "2"], "-",
9 ?: R3 h5 D( s0 j3 B! a SuperscriptBox[
% L v/ E) c+ ^7 e1 ?: Y RowBox[{"(", 4 m8 Q; k/ e/ M8 g
RowBox[{
# Y: G. \- Z( E! ^' Q2 `! p6 H4 _2 l RowBox[{"-", "0.819512`"}], "+", "x7"}], ")"}], "2"], "-", # }) r1 Y2 V1 C! \7 M- A2 j0 v
SuperscriptBox[4 x) o# `* q- a. t; ?
RowBox[{"(", . }7 K% `8 N+ y, Z) m
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", ' O* F; n$ W+ ?0 _8 Z6 P5 i
SuperscriptBox[* e( h# F' ^0 ^) G
RowBox[{"(",
2 e4 V1 q% [) Z! D" \; j RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
2 O% n4 p4 I+ ^! h/ ?: |6 G" e# _8 t% ^ ")"}]}]]}], "+",
+ I2 T5 o9 p$ V9 n0 A; l RowBox[{"0.4812237524557292`", " ",
4 Y( a: w7 r0 ^) C: h! ^0 T6 z+ L SuperscriptBox["\[ExponentialE]", * R0 ^4 l) _" s4 N$ c
RowBox[{"3.141592653589793`", " ",
G' c+ Z. ^0 \: x, L0 N5 m RowBox[{"(", ; `, g* L1 @" @( c! A1 Q, ?* G
RowBox[{$ P! M, r1 j, Y, e: S2 D) |' E
RowBox[{"-",
! c6 A; Y# [7 J, u" C SuperscriptBox[
0 K" j" ?) o2 j, n" ^; D RowBox[{"(", 8 _% y; A8 m& N& P
RowBox[{* U4 ~# V& M" [4 n
RowBox[{"-", "0.73913`"}], "+", "x1"}], ")"}], "2"]}], "-", # E) w2 x8 Q9 b6 ]1 t3 y+ j
SuperscriptBox[+ }: z2 {, N0 L G
RowBox[{"(", 0 W& Y ~' r+ `0 P5 [
RowBox[{
: U- m) u% }# Q; U RowBox[{"-", "0.193199`"}], "+", "x2"}], ")"}], "2"], "-",
3 { q- D6 b/ ^' \" h SuperscriptBox[! K! M. M8 h; j5 f4 S; o
RowBox[{"(", 2 t* V! e7 i& t- A
RowBox[{: T: c3 L$ @+ X B% X
RowBox[{"-", "0.160584`"}], "+", "x3"}], ")"}], "2"], "-", / V& B; c6 ^4 m
SuperscriptBox[' Z+ o! [; r# e+ A% J
RowBox[{"(", 2 E. w- n. m0 M; b& ~, R
RowBox[{0 [6 f9 ?- E4 g0 y) g
RowBox[{"-", "0.037907`"}], "+", "x4"}], ")"}], "2"], "-",
: G V- h& ~3 x$ P8 W! p# T A! F SuperscriptBox[
# Y4 A8 j; g! l, X RowBox[{"(", - ~" Y8 y) h8 b# O" F
RowBox[{
- O' e0 P! h8 @ RowBox[{"-", "0.461538`"}], "+", "x5"}], ")"}], "2"], "-",
5 u6 N# s4 t# y1 p0 i/ M SuperscriptBox[9 C% |& o% ]/ `# g1 F* s ]* Z1 t
RowBox[{"(", 0 P. B; T! T; M$ ^4 S5 y
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
$ ?5 H# ^* {7 ? SuperscriptBox[
/ [4 H+ {9 e% O" P* h RowBox[{"(",
" y- M9 D6 p9 f1 n t RowBox[{
% i, y5 `, T" W. e! q/ ` \3 E: s RowBox[{"-", "0.684553`"}], "+", "x7"}], ")"}], "2"], "-",
2 Y& Z' q: f& Q1 \4 i SuperscriptBox[
5 n) @8 Q, H0 d! `7 f RowBox[{"(",
7 w9 N/ ^4 ]9 ]- m RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
, |) n3 H# ^! C I8 s$ X) \ SuperscriptBox[+ h2 ^1 Z' D( U, _6 p3 f
RowBox[{"(", 5 u+ M7 l& _) R+ O
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], - `. m5 ~: x. o; x) [
")"}]}]]}], "-", / _9 A" a6 I2 A J- E
RowBox[{"0.17602467625404622`", " ", / u9 w: t2 m3 c0 c9 e- c8 U
SuperscriptBox["\[ExponentialE]", - L' \# ~% _; {8 G% j9 ?; A
RowBox[{"3.141592653589793`", " ", . n0 ]5 [4 ]5 N: B9 W0 j- p
RowBox[{"(", : L |( v% w4 E7 s7 L! R* a8 J9 J. ?
RowBox[{
2 K4 Z1 @. A0 d/ f u6 Z8 ?' T' y RowBox[{"-",
$ L- |4 `/ s Y: n1 S: Q n SuperscriptBox[
6 ~2 V5 f! [+ o: C! N5 b RowBox[{"(",
: ?0 i1 U- |+ z" Z3 C0 a" x RowBox[{# ~, P% C3 p! l7 S* o
RowBox[{"-", "0.652174`"}], "+", "x1"}], ")"}], "2"]}], "-",
4 [( W' _" V1 E/ x, {: w7 q { SuperscriptBox[9 n' B, E. R- B; _0 e6 G
RowBox[{"(",
0 f4 d5 K2 ]6 N/ Q1 R' ]- a RowBox[{
+ m4 S4 ~$ @9 }/ \/ D& n RowBox[{"-", "0.569711`"}], "+", "x2"}], ")"}], "2"], "-",
" a2 D1 e5 p: d* T% ]$ U SuperscriptBox[
7 N' z. Y$ A3 _ RowBox[{"(",
' M6 V4 g+ b+ G) d/ F RowBox[{6 P! y0 x5 |( M) B% [4 w+ u
RowBox[{"-", "0.414297`"}], "+", "x3"}], ")"}], "2"], "-",
}; b; G2 R2 Q$ l% | SuperscriptBox[! E6 p5 K8 A" m0 f- N/ y) [
RowBox[{"(", & N+ |, Q; {* g3 o+ @. a" o( I* ~! u
RowBox[{, s2 X' p$ l4 D* v
RowBox[{"-", "0.175398`"}], "+", "x4"}], ")"}], "2"], "-", 7 ?: b5 a$ c- j& k, T; [
SuperscriptBox[) q: O, c) z, j( X' J
RowBox[{"(",
0 H. ]) X4 d' E6 b8 J# H K8 [" S RowBox[{" e7 Z0 Q7 ?. _
RowBox[{"-", "0.167832`"}], "+", "x5"}], ")"}], "2"], "-", # a e9 }5 }" Q( @' J$ x
SuperscriptBox[; \7 O7 o1 n* m; C* |( A3 }
RowBox[{"(",
y" T: @# o8 v$ @1 } RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", & F$ p) z( H$ V( |8 n3 N+ p" E
SuperscriptBox[' l( m4 Y9 c3 u$ u( [, d. c
RowBox[{"(", 3 J$ U" d$ Z, ^9 s6 l
RowBox[{
# C+ X: g* N8 Q% f RowBox[{"-", "0.544715`"}], "+", "x7"}], ")"}], "2"], "-",
) _' l# A8 y2 Y0 l# h5 E- Z SuperscriptBox[
( m: X7 l) p- }; I& O) B RowBox[{"(", 8 Z9 j2 Z$ O. V" Q0 C
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
6 \; q& ^. C5 q; X# m SuperscriptBox[' x; g9 y% C3 \3 {' V! R: y0 ?) K
RowBox[{"(", + O2 ]$ j. @" D* p- k
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], ( ^8 l# R9 w; M0 `! S
")"}]}]]}], "-", & |6 t% Y2 W5 D Z
RowBox[{"0.5945873894818967`", " ",
5 V+ D7 [; e/ l! K+ s1 M1 W3 ^ SuperscriptBox["\[ExponentialE]", 8 |) j' I) u' E# n& F
RowBox[{"3.141592653589793`", " ", 6 w0 H# U: a4 g; C! ^' I# q) P
RowBox[{"(",
# x% o/ i3 r' c; m2 c' M1 w RowBox[{4 F4 m% i2 K' I! V: R8 Z
RowBox[{"-", ) g; t8 \% ]0 D: e- k! A
SuperscriptBox[( ^* `0 o4 X1 B
RowBox[{"(",
+ v5 T, S9 z4 \& f RowBox[{. @" @8 l8 T( l/ z+ a- U) n
RowBox[{"-", "0.521739`"}], "+", "x1"}], ")"}], "2"]}], "-",
( X: o! K2 s0 Y) I9 v0 U SuperscriptBox[) I& D' \+ B' }/ L9 }& @9 E. ?" s
RowBox[{"(", . ?- ?- Y: X# h
RowBox[{% ^6 F0 u# t3 h; v
RowBox[{"-", "0.334022`"}], "+", "x2"}], ")"}], "2"], "-",
9 k, |1 E3 u$ U SuperscriptBox[4 Z& M P4 ?6 x. h8 M
RowBox[{"(", . U6 \8 o# l( V
RowBox[{
& K- Y6 p) ], ]) X4 D RowBox[{"-", "0.3555`"}], "+", "x3"}], ")"}], "2"], "-", 6 o1 g# x& g5 I d
SuperscriptBox[* o3 v2 {1 J$ v
RowBox[{"(", # D5 t( S. x3 F1 n2 D
RowBox[{
% Z/ q/ }$ T" ]9 q( A& n+ S0 U+ M" d RowBox[{"-", "0.025156`"}], "+", "x4"}], ")"}], "2"], "-",
" K5 R' s4 S7 Y5 X" m. x$ E+ t! Z SuperscriptBox[
0 H: v* E( w& I0 ?! J: Y RowBox[{"(",
( C$ w3 }( \. q& ~3 a RowBox[{/ z W7 m; [2 j4 L* j. ~1 |
RowBox[{"-", "0.48951`"}], "+", "x5"}], ")"}], "2"], "-", - d9 |" ]" A9 @. ^& [
SuperscriptBox[
& j! I- W3 V# E6 f# c RowBox[{"(", * W5 F8 H% p. s ~* `
RowBox[{7 z: `* R3 `* V. g! H
RowBox[{"-", "0.37679`"}], "+", "x6"}], ")"}], "2"], "-",
$ _! a8 f! `8 D- Q$ |. N0 x6 r SuperscriptBox[& ` j" y2 S: o! b2 t1 J
RowBox[{"(",
% m$ @7 T! p( k3 r RowBox[{
0 t8 R& h3 q4 u. w. Y0 c9 T, J5 e RowBox[{"-", "0.411382`"}], "+", "x7"}], ")"}], "2"], "-",
6 X# M6 L4 r6 [; _5 H! O SuperscriptBox[1 T0 C5 Y% p( M: g
RowBox[{"(",
, p q. }; M- j RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
7 c& Q0 e* F' g" g. o SuperscriptBox[+ z$ I/ `0 `" W8 t5 ?7 Z9 K
RowBox[{"(",
% j+ k4 j' M1 o$ r% j RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], # Q, I! f! l/ A3 C
")"}]}]]}], "+", ( f+ a' k1 z5 a
RowBox[{"0.5252475961933538`", " ", ( W% U2 ], ?, s0 p& J! Y
SuperscriptBox["\[ExponentialE]", % U7 O; _9 G/ W
RowBox[{"3.141592653589793`", " ", # ]; Z+ ^6 m3 J6 ^* F
RowBox[{"(", 1 P: I& c* E) x! p
RowBox[{
3 t6 t* R7 W. \ RowBox[{"-",
4 `5 y* L: K. Y SuperscriptBox[6 I- q8 n; q. ]
RowBox[{"(",
5 ^1 E) I; a3 D+ A RowBox[{+ s9 }- G+ T" z9 V6 `
RowBox[{"-", "0.173913`"}], "+", "x1"}], ")"}], "2"]}], "-", _& h0 l. }1 ^5 e# X0 ~8 F
SuperscriptBox[
5 Y; s( i- y2 a H, }' }) ?7 c RowBox[{"(", ( {0 O/ {. H( G+ o8 R
RowBox[{
7 ^7 E7 S# D# T. u! Y+ w RowBox[{"-", "0.984656`"}], "+", "x2"}], ")"}], "2"], "-", * i8 E O' ~. O
SuperscriptBox[7 E; Z8 L# y2 }3 ~$ \
RowBox[{"(", ' C4 X; T# L O, I+ F
RowBox[{) m5 h4 @! m8 L7 U
RowBox[{"-", "0.420753`"}], "+", "x3"}], ")"}], "2"], "-", 1 V) r$ \, [2 l( {
SuperscriptBox[
/ K5 x2 \; ?$ \' x, k RowBox[{"(", - }& e0 x6 I0 [: g9 N$ r7 f8 w
RowBox[{
- _% e, S. O6 X+ H RowBox[{"-", "0.137022`"}], "+", "x4"}], ")"}], "2"], "-", $ w9 x4 [ S0 A3 a
SuperscriptBox[7 j* N5 o+ s. J* u
RowBox[{"(", ' \1 ^- K- f# P+ X& E1 b4 T% Q
RowBox[{
: x" F {& |( y5 S+ O RowBox[{"-", "0.321678`"}], "+", "x5"}], ")"}], "2"], "-",
; E$ ^7 E$ y: J) A% | SuperscriptBox[
& H3 B; h7 X( F; O1 W; J6 G RowBox[{"(", 1 e, {, Z7 E, n' [
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", 2 Y9 y# t1 j) c1 G \2 k& J# d
SuperscriptBox[" d8 i- S9 U+ w1 A
RowBox[{"(", * h5 h6 J6 @' B' s N# W
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", 7 S" x( Z; [( V2 {* C+ f* Y
SuperscriptBox[
' U0 w3 i1 m: _1 m& ?8 I0 C* u RowBox[{"(", / J1 l; V8 f, E" T
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", * e/ K+ F" f. R
SuperscriptBox[
: @ c# j$ i/ U. k0 v RowBox[{"(", ' o0 j) o! c7 [4 y$ U5 H6 W* w5 L
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
% O/ H8 _5 |9 K4 \/ ` ")"}]}]]}], "-",
. ? k. d& g3 _) j6 |& F; V G RowBox[{"0.320472847796449`", " ", 1 M: Z6 T/ {+ ^+ i
SuperscriptBox["\[ExponentialE]",
& C* {8 }' Q4 q& w3 P$ _, o RowBox[{"3.141592653589793`", " ",
/ B% B% E. F) h Q RowBox[{"(",
1 k6 X# \/ v2 t RowBox[{
' E, B; U5 s& e6 ]- m/ v# n/ h RowBox[{"-", ) [& K; F8 Z; x! a/ }6 t( Q4 _; g
SuperscriptBox[
: x! d+ C( m9 @ RowBox[{"(",
+ b7 z+ [! R( Y6 O# ?/ B" Q4 } RowBox[{
% w1 X5 W* j" U- ] RowBox[{"-", "0.717391`"}], "+", "x1"}], ")"}], "2"]}], "-", + i5 ]4 P; j4 ]0 Y. s9 v0 U: ^
SuperscriptBox[
. P0 `+ s% v6 c4 A- k& ~" Y RowBox[{"(",
" l; O e3 P8 x7 x% q RowBox[{0 T- {( U6 J$ u k6 ?0 C
RowBox[{"-", "0.736205`"}], "+", "x2"}], ")"}], "2"], "-",
# K0 N- _" Z2 _. N4 b% H SuperscriptBox[
6 E7 v7 O3 B5 J6 J( ]% V4 |: f RowBox[{"(",
8 O( p5 `6 o1 \" K. h$ N! X: l7 V RowBox[{
0 I" @* J$ U3 l0 X; m" F: z4 J RowBox[{"-", "0.267704`"}], "+", "x3"}], ")"}], "2"], "-", / {; f0 M4 X8 _8 P
SuperscriptBox[
5 Y+ }- r- Y. X7 s' }2 a& o4 `: c RowBox[{"(", 4 _: R: H' ]4 |& L2 R1 y
RowBox[{
6 J% a, T. y! | H! a1 R RowBox[{"-", "0.036152`"}], "+", "x4"}], ")"}], "2"], "-", ( m5 [1 j4 f9 ~- w$ u2 V
SuperscriptBox[- u/ c2 }' o Y! Q$ N
RowBox[{"(",
! Y+ L" \. S0 Y3 X RowBox[{% t. \' X7 g5 }& J5 r5 t2 s' J
RowBox[{"-", "0.307692`"}], "+", "x5"}], ")"}], "2"], "-", ) k6 } W* ~3 L, h
SuperscriptBox[
2 s7 T! e! B8 Y6 ~6 q5 t9 t; | RowBox[{"(",
+ Y/ j+ i% F* S RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
8 p5 v4 H* W' ^, J6 @; h& p SuperscriptBox[7 H5 r8 l: k' b8 Y# M" b1 H
RowBox[{"(",
7 l4 p2 Z$ q9 q( ^) z( Y: p RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
* J8 S7 e8 d% S- |: x% z6 v SuperscriptBox[4 h: z: O0 S+ t6 y- E2 W- f$ T
RowBox[{"(", ! ^2 m! h/ x; c8 v7 i8 w/ S
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
. ]2 `7 l9 g3 d: `& b3 d. Q% ] SuperscriptBox[
# q6 @. n0 ^+ C; r0 a4 B RowBox[{"(",
, E6 S" A0 V9 v7 m RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], 2 y3 h% j; |& N, {5 t
")"}]}]]}], "+",
- @. b4 ?7 W+ u0 _) j- L6 ~ RowBox[{"0.7528674241482847`", " ", ( n V r7 {7 Y. I9 G
SuperscriptBox["\[ExponentialE]",
/ H% _. p& s2 U. I& X/ o; e: i RowBox[{"3.141592653589793`", " ", 7 J% P/ o3 }: y' v
RowBox[{"(",
( | I2 T6 m! `9 J9 F RowBox[{% H% t- d, P6 ~6 F Q" J( e
RowBox[{"-", + s" R, N' |! D8 ]
SuperscriptBox[( Q0 A5 c5 z9 @! j
RowBox[{"(", 0 T' l+ t# n0 a$ q0 n% z8 B
RowBox[{
* ?) o5 Y( G, c: D5 \% \ RowBox[{"-", "0.826087`"}], "+", "x1"}], ")"}], "2"]}], "-",
+ Q, d- x( O# k! h5 ]9 Z) Q7 t) r% c SuperscriptBox[& N& }) M8 B! `( l' ?& I+ R
RowBox[{"(",
3 c/ }1 J$ \6 y) [/ p( K RowBox[{
! e6 k2 X7 U, k/ D8 s RowBox[{"-", "0.203969`"}], "+", "x2"}], ")"}], "2"], "-",
& `9 q G* i+ W( x SuperscriptBox[
3 x8 W( H& b$ l RowBox[{"(",
) j+ R$ i/ I; i9 |7 _ RowBox[{* {/ G) W, m% V
RowBox[{"-", "0.234619`"}], "+", "x3"}], ")"}], "2"], "-", ' c# H6 |) f" Q: Y& `7 G. s
SuperscriptBox[
6 S! X/ b: _ y8 z RowBox[{"(", & p7 I7 O G$ C( r3 G4 T: Z
RowBox[{
1 Z, u- O, _) T. ]" c' ~ RowBox[{"-", "0.27224`"}], "+", "x4"}], ")"}], "2"], "-",
, K7 {: P/ [2 D SuperscriptBox[
# O* V0 H6 G7 C# X RowBox[{"(", 3 {# [ O# K }: Q3 v/ @- K
RowBox[{7 f+ E8 q0 U" `) P7 W+ Q
RowBox[{"-", "0.265734`"}], "+", "x5"}], ")"}], "2"], "-",
# A0 ]9 r9 K; J$ |: w* v+ { SuperscriptBox[3 [; \, f2 Q% k8 b+ T+ u
RowBox[{"(",
$ A- P" j4 x& [* a7 F: _ RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
0 a: h6 y; A) P SuperscriptBox[
# ^) W1 n( z+ } RowBox[{"(", 5 [" N( F: u, X" h
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", : Y' A+ z% t5 J1 h9 Z1 z
SuperscriptBox[6 d' R( P. F" ^. `# `7 Y% R
RowBox[{"(", ( y0 Q; X4 {0 F. }1 M% `
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
8 s& @' I* i6 I9 W SuperscriptBox[/ S* C* \& w4 Y$ v! {7 `
RowBox[{"(", + B( |% m% n: L" I
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
8 t# |& D% `( @5 q8 G4 d ")"}]}]]}], "+", 9 _; t. y9 R: w
RowBox[{"0.02759193650965952`", " ",
5 u6 [, u5 n. W SuperscriptBox["\[ExponentialE]",
4 j5 E$ @$ ]$ s# |* ^) _ RowBox[{"3.141592653589793`", " ",
1 Q" S0 Q5 I- X s0 c$ V RowBox[{"(",
# a P3 X Q9 e. z. P RowBox[{* u/ F; g6 d6 ]& T( _* Z* S3 Q
RowBox[{"-", ; [3 C; [, m3 S" j# \) b8 p
SuperscriptBox[
5 M, w- \, T9 V! u' q+ N. i6 O3 u RowBox[{"(",
0 {9 }5 D# ^+ H8 f% H RowBox[{6 W5 Y: |* Y& x# L9 J9 |
RowBox[{"-", "0.565217`"}], "+", "x1"}], ")"}], "2"]}], "-", ( |5 e. [6 J* M6 U: l
SuperscriptBox[3 a# p/ y" ?2 U& p% Y+ p/ V3 L
RowBox[{"(",
; H( v" o. u( v# P0 b- A RowBox[{. s- K$ O/ o9 d) E7 Q
RowBox[{"-", "0.572293`"}], "+", "x2"}], ")"}], "2"], "-",
5 N; b- T; e3 H- M$ k SuperscriptBox[1 V* }1 F+ E1 q T/ U4 z9 a
RowBox[{"(",
; x$ V) R! u: y* m9 C R- e RowBox[{5 L6 i! b2 U& Z4 M
RowBox[{"-", "0.655012`"}], "+", "x3"}], ")"}], "2"], "-",
' W! B8 y8 F3 c- @4 }+ I SuperscriptBox[
# n1 g/ X7 Z1 W. t& ` RowBox[{"(",
. t( e [" l/ P9 U RowBox[{) ?1 [5 q; D8 [9 S' y$ J6 y+ D
RowBox[{"-", "0.281852`"}], "+", "x4"}], ")"}], "2"], "-",
4 f1 ` c3 {5 d9 p! N SuperscriptBox[& X4 v& r: a( _* ?0 d2 w
RowBox[{"(",
8 [, H, T( W; l6 t$ K4 ? RowBox[{"0.`", "\[InvisibleSpace]", "+", "x5"}], ")"}], "2"], "-",
7 y7 r6 M+ w8 k; Z. H7 ~3 X2 V SuperscriptBox[6 @, m* \' N* Y- ~% p$ q) o( b y
RowBox[{"(",
7 K# \5 ? s0 ~, a$ h RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", : ?' l8 G! b1 X3 K
SuperscriptBox[
$ n7 Q' }" y# u' S8 q RowBox[{"(", 9 I. x, C' ^3 P, K
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
* n4 J% m6 a5 Y1 o# s$ l! f* i# G SuperscriptBox[
$ U: v3 E" {5 U4 C, S: s" G RowBox[{"(",
4 ~* {" _0 t* D, {- W8 s: k RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", ( G+ ]! L7 c8 t% q5 G, s
SuperscriptBox[; H! d0 O% j* B. m5 s, e
RowBox[{"(",
# o% |3 N# Z, A RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
. @7 }6 M8 V1 ~! A! V ")"}]}]]}]}]], "Output",
# C+ Z6 E) S6 G" p2 g# L3 m5 h+ W CellChangeTimes->{3.577924759875*^9, 3.577924921203125*^9, 3 x; o$ f! M7 @ |
3.57795759203079*^9, 3.5779589554964056`*^9, 3.5779621253913965`*^9, 1 K+ q3 X: h. k: f# q
3.5780123515625*^9}]! d' T/ h3 c# r% p3 p
}, Open ]],! G' K( w5 P& ~: [# Y0 |% v0 s/ H
$ L9 z, ?5 h& @% @
Cell[CellGroupData[{
/ D1 z8 U0 U: N+ r
" G! d' K4 w: N; S; WCell[BoxData[9 O$ b% r8 o2 _. g1 V
RowBox[{"y1fit", "=", . F& M0 v' C6 w
RowBox[{"Table", "[", $ {* V9 P7 j( D4 e
RowBox[{"x", ",",
3 w4 p: y# i+ |' ]" b RowBox[{"{", # T$ j( E z% u2 _
RowBox[{"x", ",", "1", ",", "29"}], "}"}]}], "]"}]}]], "Input",
5 u6 n, W/ ^0 Z. d! g% \) e) Y( [ CellChangeTimes->{{3.577924969375*^9, 3.577924979515625*^9}, {
) D2 n0 B9 V1 T& C* q! u 3.5779252768125*^9, 3.577925277484375*^9}}],0 ?- g# y( z* t8 f
* ^2 j$ n, w; R7 M. x
Cell[BoxData[$ K7 T* D7 [4 a; a/ v
RowBox[{"{", 6 N$ k* \/ R5 E6 b. o# f8 O
RowBox[{
W- N, s* Z8 A+ E: J7 s: \0 j "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", * S/ m! b# S- w1 q% ^6 E& ]
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15",
; E; {* _$ H( ^6 ?( L; Z ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",",
+ f* i5 `1 Q# B/ e5 m' O "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", "28", ; C$ G- d3 A7 A; y2 Y& K0 g+ n$ E
",", "29"}], "}"}]], "Output",
" z3 S+ k9 v$ e( j- ^1 e CellChangeTimes->{3.57792498240625*^9, 3.5779252798125*^9, : |+ I3 b/ @( j4 T& m A: Q
3.577957594916795*^9, 3.5779589579612093`*^9, 3.5779621294942036`*^9,
" W0 W( Z/ v4 {8 P- F 3.57801235340625*^9}]$ q" Y4 `$ U8 l( `- u9 o
}, Open ]],
; H' U) l2 y9 u
5 A* \7 l: A5 J; v% I* XCell[BoxData[
3 \& x& s& q2 z" Z RowBox[{"For", "[",
+ U' \6 p6 I4 J RowBox[{$ m |: h/ d+ I2 t
RowBox[{"i", "=", "61"}], ",", $ M4 s* Y1 _- b) n" h
RowBox[{"i", "\[LessEqual]", "89"}], ",",
! v: a1 O1 W8 T' R1 M RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", V5 g% N. M) t9 [; y' o6 c7 |
RowBox[{
! o$ }! f' p, Z% W RowBox[{
7 A! D+ u" P1 v+ N RowBox[{"y1fit", "[",
& U1 b* Q3 V4 R. P9 V8 N, f RowBox[{"[", 5 X1 o' k( z) l# \$ O
RowBox[{"i", "-", "60"}], "]"}], "]"}], "=",
$ h. [. l% A" B1 i/ z5 ?, m RowBox[{"y1", "/.", 3 } E! Z1 Q$ \& M8 ^
RowBox[{"{", 7 L8 F- a! l, ~9 n' S' E
RowBox[{* [; `, z7 |1 c5 A8 P2 w) _
RowBox[{"x1", "->", , e5 t: s. x, V- A8 t
RowBox[{"Data", "[", ; M! K) W2 X9 M k' x7 T
RowBox[{"[",
) P4 q, Z6 [# w6 J6 I4 K; w+ Z s" i; i RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",", & F. |2 z" I( i
RowBox[{"x2", "->",
2 {1 S" P3 U- r. |, ?: b RowBox[{"Data", "[",
" z+ v" q4 L/ U0 G+ v+ G' ^4 ~, t RowBox[{"[",
& F; _7 }7 J4 n3 |% d RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",", + f% r- a( \* A, p& z$ F
RowBox[{"x3", "->", % ~/ L% {. g" k9 C( @) o
RowBox[{"Data", "[",
% j% D2 s% t+ E7 t1 K3 Y; L RowBox[{"[",
. ?7 I( ~; ]; s, m# J RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",",
/ @. A* `/ {/ H# [ RowBox[{"x4", "->", 0 o" z+ l. ^" a
RowBox[{"Data", "[", / \8 C& Z/ z. ^ {( r" f4 q$ v
RowBox[{"[",
. D# ^- P9 Y. k' k. ~ RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",",
% B8 p4 g! ]# S2 Y RowBox[{"x5", "->", 5 f- k/ E4 B3 m" Q3 V& x
RowBox[{"Data", "[", 7 C8 a; t) d% t4 s
RowBox[{"[", + C, Z+ C) @9 X) h9 @0 o/ O
RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",",
$ j# i9 Q! i" t, C* s- a8 f. N. B0 Y RowBox[{"x6", "->",
2 o* ?5 p. L- o8 {' p) C% n0 `' W RowBox[{"Data", "[", + S; a# ?/ B3 @) o" g; a
RowBox[{"[",
8 H3 s- h9 B. q9 C RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",",
9 P. [, V2 E& F7 Y RowBox[{"x7", "->", 4 a4 a; M% M* H5 z+ k
RowBox[{"Data", "[",
) p' K# h$ o6 H" c3 I RowBox[{"[",
, _' s h, j/ B RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",", 4 l" L/ u' J4 o- Y# R" L( t0 g
RowBox[{"x8", "->", 6 F" }$ B9 H5 j
RowBox[{"Data", "[", 2 i. A: S5 E+ V# h( P5 u- [6 S$ U! x
RowBox[{"[", 5 w4 N6 A6 y( V5 j( t, n0 g5 [
RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",", . d9 s5 X& H; H I
RowBox[{"x9", "->", , L) J/ F* X* Q5 Y. I7 _
RowBox[{"Data", "[",
& ^& W0 Y8 `$ w6 @: S( m# M U RowBox[{"[", $ }: ^0 K4 s4 v: u9 ~! y m
RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";"}]}],
- \6 }3 z2 K" H7 m" N- p ^7 j "\[IndentingNewLine]", "]"}]], "Input"," @, v1 `$ F) j: m' p0 d5 J- g3 F
CellChangeTimes->{{3.577925003234375*^9, 3.577925028578125*^9}, {! A5 L9 q" T* `- ?. I. h# S* Q% G ~
3.577925286140625*^9, 3.577925306765625*^9}, {3.577958922517948*^9,
9 b# F1 i9 e9 I% q; n" j 3.577958922549148*^9}}],
0 w+ O/ |4 r, N8 O( ?. J- F# q' `: i+ L7 Y& c5 S, d# M2 @; M6 a
Cell[CellGroupData[{- `7 r+ u, S+ C; d8 G' `' @( Z
! y# ?: d, w1 Q4 O' JCell[BoxData["y1fit"], "Input"," n y3 Q8 @( p6 \ @7 g
CellChangeTimes->{{3.57783581246875*^9, 3.5778358135*^9}, {
8 u6 O0 }3 o+ `$ P 3.577925040484375*^9, 3.5779250440625*^9}}],
q, A: z- T6 ~9 d- g' P- R& L3 p6 R D' y2 p" }" J* u. N) g& m2 a
Cell[BoxData[
4 {9 Z \5 E0 ` RowBox[{"{",
2 D# }4 U; X9 l) x6 ?: D, C RowBox[{, X' @ m& Y- c0 W# A; ^" Z
"0.43193416525930517`", ",", "0.4501634853493982`", ",",
0 _9 S* {8 L" r) b7 L& T5 j "0.33336034768525247`", ",", "0.4418609896858925`", ",", . y, G+ ]) D0 f0 W
"0.41030378932283024`", ",", "0.516814798191575`", ",",
- ]3 }7 D% i$ u* g& D/ @ "0.4476631213729994`", ",", "0.3016552978696669`", ",",
4 X( }3 p, G% K$ U5 s "0.378122167437847`", ",", "0.020339844919720733`", ",",
P! s3 h7 H, Y "0.018745375782087376`", ",", "0.2919925992695025`", ",",
1 }& @! w9 w9 a9 {" G+ |% L* N% O. H( ? "0.2649067959681263`", ",", "0.16343444284525593`", ",",
9 U9 f+ ^' a, I. H "0.4182466778551563`", ",", "0.27347752211364934`", ",", 9 }4 A5 H z( c8 ]0 W J
"0.38554057386385654`", ",", "0.35253160453718047`", ",",
5 n* A2 v8 [( g, s "0.2054745841100774`", ",", "0.45504377112716676`", ",",
( a( g6 q8 l+ G' t( F; J- U; U "0.1598805094678612`", ",", "0.18662509982279485`", ",",
c% b( X( D% j/ |8 k4 ? "0.10684797493248213`", ",", "0.013349212673286828`", ",",
- {" s2 D9 E O% o) h2 ~ "0.08215836003004297`", ",", "0.2979041599362813`", ",",
7 F( g$ R, ~" R% j+ { t "0.05995976512343641`", ",", "0.3884793499104568`", ",", - R8 n* _3 J/ g! r! k6 Y! N) t
"0.5361889337034293`"}], "}"}]], "Output",
# c: q ^( p( c2 g CellChangeTimes->{3.577835814609375*^9, 3.57792504521875*^9, , L! S3 u" ]) N! l6 q
3.577925312375*^9, 3.5779575978808002`*^9, 3.5779589654960227`*^9,
! I( i$ v3 e5 u, { W' g 3.5779621416934247`*^9, 3.578012355546875*^9}]; N Y: w" c! G. k) q1 l
}, Open ]],; o' k* \1 g" J& D/ ~. v
% c/ U% a Z. ]& K9 PCell[CellGroupData[{2 x& _. P: e7 z5 ]% J* x! c! L' d+ T
( h; U; A5 f0 v. c# PCell[BoxData[* U% v$ [( H' m5 A$ T8 H
RowBox[{"y1fit", "=", }% `1 P( Z( r, W X1 q6 B
RowBox[{"{",
7 d. `2 h) e8 q/ t RowBox[{
+ d6 ]$ ?8 [. j5 Q4 T3 S "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", 1 Z6 V E u% E3 S
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", % `& e5 i' d e+ e, @% ]
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", 6 t% h" {6 Q. l, \1 c
",", "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",",
_9 U% Z9 Q) ^, L; { "28", ",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34", 7 p( c: N: H& v! L
",", "35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",", 8 I) i0 s* i& k+ S9 \; I
"41", ",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47", W* E! {7 I) S8 C
",", "48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",", 3 S5 P; k8 Y) F- f, v
"54", ",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",",
- _: } I2 I/ v3 n9 H "0.4319341652593058", ",", "0.4319341652593058`", ",",
! y# R) o" h3 u, V7 F "0.45016348534939865`", ",", "0.3333603476852527`", ",", 7 ?, T% S3 g! L; d! `
"0.44186098968589294`", ",", "0.41030378932283074`", ",",
- k, N3 E& D+ z1 u "0.5168147981915754`", ",", "0.4476631213729997`", ",", ; O% u) e9 b2 x) j' c- P; \
"0.30165529786966755`", ",", "0.3781221674378473`", ",",
6 V O; W G2 @( ^; H$ M, c( X "0.020339844919720775`", ",", "0.018745375782087393`", ",", $ Y& `. |( R1 `& a7 V
"0.2919925992695026`", ",", "0.26490679596812655`", ",", + P2 i. [7 a( W: l3 Q
"0.16343444284525593`", ",", "0.4182466778551567`", ",", / e# m. C" N( b: n, ]; Y
"0.27347752211364945`", ",", "0.385540573863857`", ",",
4 S) `# M) w& F" f' b% h% Z: E' D, q "0.3525316045371807`", ",", "0.20547458411007796`", ",",
0 d0 _3 C y4 a9 O "0.4550437711271672`", ",", "0.1598805094678611`", ",",
; P* E. |3 ?. `8 y5 h "0.18662509982279502`", ",", "0.10684797493248224`", ",",
3 x! T- f$ W) l "0.013349212673286806`", ",", "0.08215836003004302`", ",", h+ g5 O* L% v8 V8 K( _! t
"0.2979041599362817`", ",", "0.05995976512343637`", ",", ; T: ^3 c0 V0 \% r$ a. M
"0.3884793499104571`", ",", "0.5361889337034297`"}], "}"}]}]], "Input",4 `" o Z: l% b; r& Y+ O+ f) S
CellChangeTimes->{{3.577959701349306*^9, 3.5779597161381316`*^9}, {
7 V* w6 K8 }1 l 3.5779621548286476`*^9, 3.5779621618642597`*^9}}],, A# F7 I! ]" v* C: ^2 ?, e
, n- B0 P$ x$ j3 M; y
Cell[BoxData[- } R7 \. i _- N# l) B) x
RowBox[{"{",
! T4 f/ K- s# ~8 L RowBox[{
* U# ^- ]7 X1 B& L "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", ' ?- O) f' R$ ^- C' |) L" F, J
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15", y+ I( ^6 _/ Y
",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",", 0 w0 s' a9 f) D! A5 n
"22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", "28",
, R2 \4 h' r$ d$ {; ^) M ",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34", ",",
1 w' m& K# P' P5 s "35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",", "41",
% E% M. ^# L. J! V2 ` c" z+ R ",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47", ",", / g3 r7 p: M5 R+ h# D. p, c# d
"48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",", "54",
( a/ k- X5 N) o; n ",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",", 1 ?9 t4 z* i! f3 u3 q- t7 J
"0.4319341652593058`", ",", "0.4319341652593058`", ",", & |/ T# z+ _+ b; J% C( D7 Q
"0.45016348534939865`", ",", "0.3333603476852527`", ",", 1 e3 \7 z6 K8 W- b1 C! V6 G4 f V$ u% t
"0.44186098968589294`", ",", "0.41030378932283074`", ",",
' `# t8 g! ?6 ~+ O( P$ a& V "0.5168147981915754`", ",", "0.4476631213729997`", ",", 6 L$ \' X5 R: V! u
"0.30165529786966755`", ",", "0.3781221674378473`", ",", 4 I/ T+ m8 X# N" Q! i' z2 ]5 i
"0.020339844919720775`", ",", "0.018745375782087393`", ",", # i' A/ ~: C7 W& r2 Q- D
"0.2919925992695026`", ",", "0.26490679596812655`", ",",
# W. W. X+ Z7 d( I "0.16343444284525593`", ",", "0.4182466778551567`", ",", ( P/ W1 N/ m/ Z- T
"0.27347752211364945`", ",", "0.385540573863857`", ",",
" c4 x& U& i p/ C "0.3525316045371807`", ",", "0.20547458411007796`", ",",
" Z1 }- @; h# c7 m& B0 h2 i "0.4550437711271672`", ",", "0.1598805094678611`", ",", ! w5 C' N$ g% l" w8 T u3 ]
"0.18662509982279502`", ",", "0.10684797493248224`", ",", : ~9 p+ v% }. p( T8 C. V$ ^
"0.013349212673286806`", ",", "0.08215836003004302`", ",",
, ~! Z, A. {4 @; w. d* D- }7 V "0.2979041599362817`", ",", "0.05995976512343637`", ",",
3 \3 A8 _# a" J0 z9 z3 x "0.3884793499104571`", ",", "0.5361889337034297`"}], "}"}]], "Output",
) Q5 G% Y3 v& V* u9 R CellChangeTimes->{3.5779597200381384`*^9, 3.5779621650778656`*^9,
3 I% j/ h- ^; E, i, i9 b 3.5780123569375*^9}]) S6 F7 P; E) }% v8 |
}, Open ]],
. a5 ~4 ]. N3 }; }- \8 J
0 p3 Q7 A7 d. `3 [/ N1 R9 u7 Y" uCell[CellGroupData[{( @. J; D, x8 n% f. u Y
4 W. A6 e+ X9 O4 x1 K) r4 xCell[BoxData[& ?+ U0 [1 t0 h3 L ?
RowBox[{"y10", "=", ' f+ }* }: b9 {1 h, |& Q4 M# O$ m
RowBox[{"Table", "[",
4 e9 @! d+ K3 B t# y2 s RowBox[{"x", ",",
" ?7 ^0 h) g3 [# @4 f3 d RowBox[{"{", ( z7 N- M9 o$ v% A! P; ?
RowBox[{"x", ",", "1", ",", "29"}], "}"}]}], "]"}]}]], "Input",
& i+ I4 M* N) `- y CellChangeTimes->{3.5779253628125*^9}],
% d" D& s. `; P- r! u! u
* q( m+ F0 ^& ]$ o8 ^Cell[BoxData[/ J0 B q9 o6 @
RowBox[{"{", 3 a( L' t; O0 A! P% z7 u, u2 d- s
RowBox[{2 n# {* _& F ]
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", ) M V5 T: D0 g7 i0 X
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15",# V; s1 y- j2 Z0 w& C
",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",", * c: H. w7 J, P" f- I
"22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", "28", " n4 _9 ]- d K8 u
",", "29"}], "}"}]], "Output",
2 I8 h% `; b% W; S CellChangeTimes->{3.57792536553125*^9, 3.577957599565603*^9,
: q" _4 V1 M$ c5 ^: h 3.577958967383626*^9, 3.5779621678858705`*^9, 3.578012358609375*^9}]
0 B! H# D& [2 v; R% _}, Open ]],
& K1 h! R. U$ j. E$ g8 ~. C! M, [! Z- A
Cell[BoxData[
1 ?8 m1 [! n$ v( v* ?: y RowBox[{"For", "[",
' I' X9 ?6 }2 L1 V' w RowBox[{
4 h( {: F9 n8 a4 @) k1 O$ e RowBox[{"i", "=", "61"}], ",",
2 K4 h4 c$ [8 P) u) E9 M RowBox[{"i", "\[LessEqual]", "89"}], ",",
$ h8 _. \' _" E+ L RowBox[{"i", "++"}], ",", B7 ^# J8 e! }4 E! V3 w/ h
RowBox[{, l' S8 ?$ y# p+ j$ J
RowBox[{"y10", "[",
* e# j2 f) @$ @5 Q7 l2 A RowBox[{"[", 9 e) Y" H1 h+ y6 x$ o& p) V2 q
RowBox[{"i", "-", "60"}], "]"}], "]"}], "=", - a1 g1 c4 B0 M: j5 A8 z' O* ?
RowBox[{"Data", "[", " C. P1 v! U% w y* T! @
RowBox[{"[",
; t% n' P T w! R RowBox[{"i", ",", "10"}], "]"}], "]"}]}]}], "]"}]], "Input",' @# H3 E+ S' w- N7 c' G& w. l$ L
CellChangeTimes->{{3.57792259890625*^9, 3.577922624859375*^9}, {0 `, D2 J8 }5 M1 L
3.577922687234375*^9, 3.577922702859375*^9}, {3.577922917453125*^9, ! K8 }2 O1 A/ D* s* |. K+ M; w
3.577922923203125*^9}, {3.577925372296875*^9, 3.57792538503125*^9},
/ O+ h% J" Q Y: _" ] 3.577958922549148*^9}],% I) `) g1 E2 \( ~
/ Z/ E6 a( \- o/ \/ n1 f
Cell[CellGroupData[{
: p) R" n- ^; O5 i' \( P4 K3 c' e) n' W' _0 Q8 p" r
Cell[BoxData["y10"], "Input",( f6 {9 Z; J0 j: u: K8 q1 o
CellChangeTimes->{{3.57783581975*^9, 3.57783582009375*^9}, {
% y: d5 b* R; |8 I3 g! P 3.57792504965625*^9, 3.577925050125*^9}, 3.57792539146875*^9}],' ~# @, ?! X# \6 c
f7 U2 U9 W. v7 [$ sCell[BoxData[
/ Z; l) w" d9 l m, K RowBox[{"{", 8 N( i9 {( a& a) p1 n. u
RowBox[{. C8 k5 Z8 W5 p
"0.380742`", ",", "0.429034`", ",", "0.193168`", ",", "0.448763`", ",",
/ M! p2 H6 V$ Q& O+ j5 L "0.442285`", ",", "0.575383`", ",", "0.515607`", ",", "0.057715`", ",",
4 s; N% F, M: s) ^* m& C6 g/ {' k "0.174617`", ",", "0.66755`", ",", "0.371025`", ",", "0.570966`", ",",
+ ?5 H* _9 \/ T! Q& p% c "0.468198`", ",", "0.414016`", ",", "0.18669`", ",", "0.442874`", ",",
8 u8 X% N& A" q+ u5 |: h "0.68669`", ",", "0.244111`", ",", "1.`", ",", "0.957892`", ",", . W: @3 i8 i6 j* s/ v, X; Y
"0.266784`", ",", "0.826855`", ",", "0.341873`", ",", "0.412544`", ",", ! H9 j" V5 i. Z+ O0 N8 O" M
"0.322144`", ",", "0.370436`", ",", "0.333039`", ",", "0.390754`", ",",
/ p, H% l% A0 y r) K# x; ]0 h "0.694935`"}], "}"}]], "Output",# g1 R# ~7 \7 N( k' F! s
CellChangeTimes->{3.577835820984375*^9, 3.57792505125*^9, ' k: s& M6 N9 M1 s6 Z8 m" g
3.577925393046875*^9, 3.5779576032628093`*^9, 3.577958971767234*^9, , q8 X* `* f% `1 _
3.5779621736734805`*^9, 3.57801236071875*^9}]
" Q1 w% _; g% T( X$ a0 Y}, Open ]],
`: h2 ~* H+ p" i/ k# h6 H/ P( Y5 D5 l) Y g; {6 l; v
Cell[CellGroupData[{
, o7 q" P0 D! X7 y; F* A
; y5 S+ {- G0 Q0 c: D8 J# RCell[BoxData[7 j7 ]) V/ ` o, { w8 |
RowBox[{"y10", "=",
- k: [% v3 q8 G- D# L RowBox[{"{", $ @+ ?+ m$ e, l7 N
RowBox[{
3 B9 r2 D5 t* M( A$ A "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
( W% ? m4 P) _( f ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
U! }. o5 s5 Y# {; [ "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21",
W# b: z8 I1 K! B/ k ",", "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",",
1 Q9 j S6 k- G2 o5 r! @# p "28", ",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34",
) h, O5 x3 z: s( Z$ L ",", "35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",", ) f, Q7 H) ]6 v+ x
"41", ",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47",
, l. i: e: g, i% c4 G/ b b2 ~8 B2 X ",", "48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",", % B! N$ K U, B- ?7 D+ e
"54", ",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",", 7 d) _' W$ z7 k# Z
"0.380742", ",", "0.380742`", ",", "0.429034`", ",", "0.193168`", ",",
3 I. I9 L/ l9 N "0.448763`", ",", "0.442285`", ",", "0.575383`", ",", "0.515607`", ",",
7 e( t, k1 c* f& f0 W1 V: k "0.057715`", ",", "0.174617`", ",", "0.66755`", ",", "0.371025`", ",", M& G. l) e7 f& p( I
"0.570966`", ",", "0.468198`", ",", "0.414016`", ",", "0.18669`", ",", 2 C; U* [& [9 u
"0.442874`", ",", "0.68669`", ",", "0.244111`", ",", "1.`", ",", 4 j# n/ Q' u) H3 H2 O+ c
"0.957892`", ",", "0.266784`", ",", "0.826855`", ",", "0.341873`", ",",
# N/ U% Z/ @0 N1 R. R$ M "0.412544`", ",", "0.322144`", ",", "0.370436`", ",", "0.333039`", ",",
* F1 m$ u* |2 A# H, r "0.390754`", ",", "0.694935`"}], "}"}]}]], "Input",
5 R# k. R9 L8 l7 ]0 ?5 Z CellChangeTimes->{{3.577959733438562*^9, 3.57795974955339*^9}}],4 x$ i; }# @$ N% M* [6 Q
/ r' z; ?( K9 w) S% n1 q# |Cell[BoxData[
" F+ h3 k8 w% F5 c+ s7 D& H RowBox[{"{", ) ^: w; Y& w; [
RowBox[{
/ y! b6 H2 h3 Q "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", + Z: |0 ^5 W/ E9 e H) ]; [
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15",
) p, D x. `, n2 p- V# j& h0 m ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",", 7 w+ ?# z$ d \- H
"22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", "28",
% s2 u( W" ]0 ~0 u. M; z+ F ",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34", ",",
2 u. O1 C% ^+ R# d "35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",", "41", 3 q; ?0 I, \5 z; W! r$ ^' c* W: ?
",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47", ",", * F9 f7 R* D$ c9 }" y
"48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",", "54",
5 e4 t2 k0 Q: D0 @, |$ j1 E3 ~ ",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",", "0.380742`",
; w" }8 @, \7 Z7 v. \ ",", "0.380742`", ",", "0.429034`", ",", "0.193168`", ",", "0.448763`", % J! V! ^( t/ g+ Q
",", "0.442285`", ",", "0.575383`", ",", "0.515607`", ",", "0.057715`",
! E0 t: F3 `5 q5 L ",", "0.174617`", ",", "0.66755`", ",", "0.371025`", ",", "0.570966`", ",",
# O G* ~$ i& B8 J; @; n: W% O "0.468198`", ",", "0.414016`", ",", "0.18669`", ",", "0.442874`", ",",
% j7 M E; e* q, h$ j7 P- w; B "0.68669`", ",", "0.244111`", ",", "1.`", ",", "0.957892`", ",", + |8 s1 X$ j0 S7 H) W. k4 k2 c
"0.266784`", ",", "0.826855`", ",", "0.341873`", ",", "0.412544`", ",", 0 r5 ]* M) Z/ i" T/ y0 ^& q" _. s
"0.322144`", ",", "0.370436`", ",", "0.333039`", ",", "0.390754`", ",",
8 G" n N3 Q7 B4 A9 E) ] "0.694935`"}], "}"}]], "Output",$ x7 D$ m h8 M; ]- y* }. }$ f
CellChangeTimes->{3.5779597517529936`*^9, 3.5779621844842997`*^9, 3 M0 U+ _; l7 u- Y+ i- j7 {4 K
3.578012361734375*^9}]
- z; ~* ]2 I4 n1 S5 f}, Open ]],
, L: f4 {+ c, u# c- G6 T1 F, Y0 b; H6 t
Cell[CellGroupData[{" \7 Z9 f5 P8 E) \9 @+ y2 h
' R: u" U+ z/ O% V# ]: E
Cell[BoxData[
$ @% X/ t' l$ e/ [+ Y$ s. k RowBox[{"p1a", "=", & A n: o {! S7 j2 F W2 [( ]8 b
RowBox[{"ListPlot", "[",
; g+ d4 `/ M& m RowBox[{"y1fit", ",",
7 r1 C# Q* x/ F9 K1 b RowBox[{"PlotJoined", "\[Rule]", "True"}], ",",
+ d+ K$ |2 s" G3 a RowBox[{"PlotStyle", "\[Rule]",
: T" ~& U3 c a& ^0 B RowBox[{"{",
s! }7 |! q2 B3 r. C- a+ s5 \ RowBox[{"RGBColor", "[", - j. r c0 A' j9 ^7 Y s
RowBox[{"0", ",", "0", ",", "0"}], "]"}], "}"}]}], ",", - K3 T4 P, O. i/ p* ?+ o D
RowBox[{"PlotRange", "\[Rule]", % J4 [3 M% m9 f9 h
RowBox[{"{",
, E& M# K/ L( `: I( S. @8 L# I1 ] RowBox[{4 [4 R4 `, t/ n9 T. v. w/ E$ I
RowBox[{"{",
4 N( B- H/ o* z8 h RowBox[{"61", ",", "89"}], "}"}], ",",
/ Z5 ]* G2 m4 ]2 A- P$ V, W# _9 f RowBox[{"{",
4 s" h$ b) [ B" d+ n1 ` RowBox[{"0", ",", "1"}], "}"}]}], "}"}]}], ",", 6 r0 ^* ^/ h8 G+ T/ {
RowBox[{"AxesOrigin", "\[Rule]",
' a0 C- @& B, |6 o4 U7 } RowBox[{"{", 0 R* V t3 r& p$ I
RowBox[{"61", ",", "0"}], "}"}]}], ",", 5 H+ \% v+ B. f9 X5 j( {' `9 C. v! p6 s
RowBox[{"Frame", "\[Rule]", "True"}], ",",
3 s" c( d- y& B. g+ m$ Q RowBox[{"FrameLabel", "\[Rule]",
3 \1 t. M c | RowBox[{"{",
/ F# ]% q Y) d+ d' ?; o RowBox[{- ^4 d- Q* y) \" J; F4 c
"\"\<\:7089\:6b21\>\"", ",", ) i2 G) M+ Y9 w) @
"\"\<\:94a2\:6c34\:7ec8\:70b9\:542b\:78b3\:91cf\:ff08\:5f52\:4e00\:5316\
! l5 T) T3 W" N\:ff09\>\""}], "}"}]}]}], "]"}]}]], "Input",4 C) }2 z" M/ i. t1 K
CellChangeTimes->{
1 ^+ p2 Z( ]; @, q: v$ X 3.577925078578125*^9, {3.577925141125*^9, 3.577925141453125*^9}, {
* }* X) `* i* y C, r 3.5779576143076286`*^9, 3.5779576277548523`*^9}, 3.577959769006624*^9, $ ?0 G& ]) ~7 X( q/ m) I. `! x2 A
3.577960184458948*^9, {3.5779602338174343`*^9, 3.577960278745513*^9}, {3 z7 x* _: Q0 Z0 b! `
3.577960347588433*^9, 3.5779603994429235`*^9}, 3.57801239140625*^9}],7 [- x' T8 g9 S& y
8 Y/ L$ b( a5 T" x GCell[BoxData[
+ o/ P* \& N$ C GraphicsBox[{{}, {},
4 w! f6 v! t- j9 b1 K {RGBColor[0, 0, 0], LineBox[CompressedData["
4 g( b; p0 f% R2 k5 D1:eJxTTMoPSmViYGCQB2IQrbz/js6hf74ODGDwwR5C+zm8FykxOr/kNoTfgMZn1 Q: f. y2 e0 t) y6 L
8HfIK73dWHX+DlTe32HNjaOLj4VehcoHOHAIsAYWu0PlHQIcchxULmc53YKq" ^3 S' P0 E, Y
D3Bg8uYy2N/5AMI/EOCgxV5t0bwMqp4h0GH17wOsQX6XofoDHbYVHgpUN74B& `: [. z4 N) _, X7 W5 V
1R/owDX546Pvl6dA9Qc66O7be/+P4WSo/iCHU2FKuxg3XILqD3LY/dVrkfWX* B8 m1 \* b' Z0 y9 _1 r* ?
C1D9QQ67drZXZr8+AtUf5BAnfXhb7xGo+xiCHW5eybq7vOEiVH+wQ9t6xvhN
* f2 Y p# V& e, Sa2D2Bzt4nBLa8aD/GlR/sMO33SV7//qcguoPcZALP/8iX/4uVH+IA1Po9tff
0 a. s0 o1 Z0 V" u' Q, x) @yqD2NYQ4dDHpngt5fByqP8TBaOqv3uSo3VD9oQ6/y+//uxLWDdUf6sDLldMb' x: {1 r+ ~3 l0 W3 E% l
wrEVqj/UQcZIcM4dAWj4HAh1CLjff4d78zqo/jAHnahDtTfuQN3rEObQXX59/ W [- j, l3 f1 c
Y6nGQ3sAieueIw==! a2 ^+ l! a1 f8 l, k! b& ?+ [
"]]}},
) W. Y+ h+ X$ c* y! Y AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],/ M g# q2 K6 o5 P( D1 p
Axes->True,
9 i. q j1 f6 w/ G+ L AxesOrigin->{61, 0},% U' e, D7 W2 d, S3 v+ q
Frame->True,7 O. B; {: v5 r/ P$ z, A
FrameLabel->{
+ J' X l, s! P3 b FormBox["\"\:7089\:6b21\"", TraditionalForm],
8 C* J% Z, G. O- u$ D& }* Q FormBox[3 P. i2 X0 V2 W V
"\"\:94a2\:6c34\:7ec8\:70b9\:542b\:78b3\:91cf\:ff08\:5f52\:4e00\:5316\
& D7 t& b9 V8 [\:ff09\"", TraditionalForm]},
- X+ v' T X3 K( ~3 y, q% L PlotRange->{{61, 89}, {0, 1}},/ e( ]$ b# L: F& f. l8 W
PlotRangeClipping->True,
- x e+ d$ I x6 [0 J7 C! u PlotRangePadding->{Automatic, Automatic}]], "Output",
7 `5 t; k. q) ? D* C CellChangeTimes->{
# n1 s5 ]4 \* |" i' V 3.577925144625*^9, 3.577925396578125*^9, 3.577957630297656*^9, [/ Q. L, ^# D8 ]9 }8 P
3.5779576933061666`*^9, 3.5779589732960367`*^9, 3.577959771908229*^9, 8 w [& ~" \2 f4 z" {# ^0 F
3.577960281756318*^9, {3.5779603518628407`*^9, 3.577960407664138*^9}, / _# W" M# A9 ~8 ` U! H
3.577962187510705*^9, 3.578012396921875*^9}]
$ R( q7 i4 D8 x: X+ |' f; A}, Open ]],
; J! S( a6 y4 V7 E5 k8 s. i8 g) `
' m7 k9 S/ ?( `( F( h" t, c. }) |3 cCell[CellGroupData[{; |4 P- p( o/ E8 Q
1 g9 G, c! T6 K# }) Y. t% w. z) bCell[BoxData[
( A5 ^( x! o w# D1 w9 ` RowBox[{"p1b", "=",
$ e) J) l6 Y S, G" u) Q1 } RowBox[{"ListPlot", "[",
- A: v- t2 ~2 H/ ~5 S4 Q RowBox[{"y10", ",", & B8 f7 e- P0 G2 ^
RowBox[{"PlotJoined", "\[Rule]", "True"}], ",",
4 k& j% i% }. u1 F2 ~2 T+ [. P1 ] RowBox[{"PlotStyle", "\[Rule]", , Y2 }- y5 G. ]) g
RowBox[{"{",
; W* y5 p0 _, Z f RowBox[{9 j. }$ r4 t! W: u: |5 P& X" N2 D
RowBox[{"RGBColor", "[", . |: Z: C1 \1 B0 m6 O
RowBox[{"0", ",", "0", ",", "0"}], "]"}], ",", "Dashed"}], "}"}]}],
' w6 c/ T4 f% R [2 ? d ",", . i. I Y7 l9 Q J) u; C( s
RowBox[{"PlotRange", "\[Rule]", 2 I& W, m9 E# s% }( N
RowBox[{"{",
; Q1 W0 S* y( h( c0 Q RowBox[{
, y ~& h2 Q& P% u& Z" I! i RowBox[{"{",
8 w4 |# u* [/ S RowBox[{"61", ",", "89"}], "}"}], ",", ' m% c4 `' ^# y
RowBox[{"{", ' m5 k: z" u4 P: Y) H% K* S$ D& B
RowBox[{"0", ",", "1"}], "}"}]}], "}"}]}], ",", 9 }; Y7 I3 |. }5 N+ t( X
RowBox[{"AxesOrigin", "\[Rule]", : @* c1 o) P3 m
RowBox[{"{",
$ ^) l' O" P( W6 q4 c RowBox[{"61", ",", "0"}], "}"}]}], ",", # A% }* v" L& A# D' _' `8 A
RowBox[{"Frame", "\[Rule]", "True"}]}], "]"}]}]], "Input",% T+ ~' [' N4 W9 H% }7 M
CellChangeTimes->{3.5779253991875*^9, 3.5779576384564705`*^9, ! x4 {; u+ M& G9 |8 s# A _. g
3.5779597764166365`*^9, 3.578012409265625*^9}],! }# p0 d: M( S& P- r* B
3 [9 l9 C" f$ O- l, F' t% _7 {Cell[BoxData[
- |" z8 ~! _9 U) r. A5 S) Q4 B GraphicsBox[{{}, {},
9 X) \# k6 k: Q9 x6 g) N: F" T {RGBColor[0, 0, 0], Dashing[{Small, Small}], LineBox[CompressedData["
! V& c, K/ Y! i8 n: ~1:eJxTTMoPSmViYGCQB2IQzZemdm3pP18HBjD4YA+h/RzU1vRuFI67AeE3oPEZ
6 Y2 l1 F4 S8 d7 A/B2end/O6l16Gyrv78AgF7hw184TUPkAB46XmkUdO+5A+A4BDvK7FuxL9YPy* {* z8 h8 ?: o( X8 J7 \# V
GwIccqZ8nd2Z+QjCPxDgkH4tyOFW/QOo/kAHNv1fXJd61kL1Bzr4r9OccDPy
5 A* h6 S Z n( R/ k4 y' xGFR/oMNZa7+LE2OeQvUHOpx8ar/k/r7rUP1BDrwSKrVRrlDzHYIc3sU27/vy
5 ]( e- A4 }8 s4 P% K7S5Uf5DD3mDG7zb1t6D6gxz0D9hZlT49DtUf7HDkVb8BTwTM/cEOPBv6/WJ/6 F6 Z- I" T, p& F
Qu1rCHaoZD5Tw25/Hqo/GC38QhzKjBfL8y5/B9Uf4vBK9ZjRX6GLUP0hDvri
% T/ r* ~8 A* r0 |, eH+fOKH0F1R/i0LZqhpf9w6tQ/aEOFn5cn+XSoe5zCHVImah2j3HeFaj+UAeV
Q! F+ o! V& y+ @3 o/ l* |, I0 LrQFGlluh/j0Q6sC1M+h8UwBMf5jD638bBWSZbkL1hzmUC1gHv7B5Zg8Ayg6T
6 w! V6 @0 N+ k2 {vA==1 f1 _/ X! t. q) |; h( O
"]]}},/ }; n3 j- w. ^% D9 R/ {4 x# H0 y
AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
* d. ^3 R+ X; |/ ] Axes->True,' U' t, k' r4 H. {
AxesOrigin->{61, 0},
& q& ]/ i0 @. q8 u- Y3 |- b Frame->True,
, c5 P' Q v2 E+ X, N! F PlotRange->{{61, 89}, {0, 1}},
4 F* ?; @" U* H6 ?# ? PlotRangeClipping->True,
% X) b- H1 p$ v# j PlotRangePadding->{Automatic, Automatic}]], "Output",
2 f# O/ ?$ i% y% D9 G& V; z CellChangeTimes->{3.577925147265625*^9, 3.577925400640625*^9, $ y2 t" Q1 k# c1 u- Z6 T
3.577957640266074*^9, 3.5779576946009684`*^9, 3.5779589749964395`*^9,
1 I9 M: V( ^& Z. r4 e 3.5779597781950397`*^9, 3.577962189476308*^9, 3.578012410328125*^9}]
" b ?; b7 u5 e) k( w r7 ~. o}, Open ]],
1 Y+ ^ R5 [2 q
- r& ^6 z/ v2 L$ ]Cell[CellGroupData[{6 f6 S; h- }! b# ?; p6 e+ j1 b" ?
! _1 M5 Z& y5 `9 U- h: X
Cell[BoxData[8 I+ O+ z' G) n2 L& }
RowBox[{"Show", "[", 4 e+ R) Z7 _$ P$ c; _% l2 E
RowBox[{"p1a", ",", "p1b"}], "]"}]], "Input"],
& [2 u% e) Y9 h' k) l8 l! O/ r3 X X
! [; P/ [+ Q/ U J* ?" o# E& x L' nCell[BoxData[
$ e; g5 {4 W+ t) |+ B0 ` GraphicsBox[{{{}, {},
* }9 O; | I2 b2 Q; M {RGBColor[0, 0, 0], LineBox[CompressedData["
8 }, X d; L3 P5 W. o+ ^1:eJxTTMoPSmViYGCQB2IQrbz/js6hf74ODGDwwR5C+zm8FykxOr/kNoTfgMZn
0 B, H0 a+ W3 r0 K. b0 ^% f8HfIK73dWHX+DlTe32HNjaOLj4VehcoHOHAIsAYWu0PlHQIcchxULmc53YKq6 K# g, Q4 H6 J; u
D3Bg8uYy2N/5AMI/EOCgxV5t0bwMqp4h0GH17wOsQX6XofoDHbYVHgpUN74B
7 `9 F& Y$ ?: {% e/ D1 N8 z1R/owDX546Pvl6dA9Qc66O7be/+P4WSo/iCHU2FKuxg3XILqD3LY/dVrkfWX
$ Y& p. c3 X& a- P- N$ K1 ^C1D9QQ67drZXZr8+AtUf5BAnfXhb7xGo+xiCHW5eybq7vOEiVH+wQ9t6xvhN5 K% b; N7 T6 j' i
a2D2Bzt4nBLa8aD/GlR/sMO33SV7//qcguoPcZALP/8iX/4uVH+IA1Po9tff
- l( v& ~: q- t' c0 zyqD2NYQ4dDHpngt5fByqP8TBaOqv3uSo3VD9oQ6/y+//uxLWDdUf6sDLldMb
7 y! Q1 Z, K3 E3 m' Y3 a7 iwrEVqj/UQcZIcM4dAWj4HAh1CLjff4d78zqo/jAHnahDtTfuQN3rEObQXX59, S, u: i( t2 A( u
Y6nGQ3sAieueIw==
$ Z* u8 P5 C c% Z6 B! H* ~ "]]}}, {{}, {},
3 E9 Q8 F% E1 i$ [. I {RGBColor[0, 0, 0], Dashing[{Small, Small}], LineBox[CompressedData["
. j8 @ y4 v; O% `' y+ d" U B1:eJxTTMoPSmViYGCQB2IQzZemdm3pP18HBjD4YA+h/RzU1vRuFI67AeE3oPEZ
% ?* |9 Z# Y2 X" ^/B2end/O6l16Gyrv78AgF7hw184TUPkAB46XmkUdO+5A+A4BDvK7FuxL9YPy& [5 p2 f0 t+ r, c: Z2 S- K
GwIccqZ8nd2Z+QjCPxDgkH4tyOFW/QOo/kAHNv1fXJd61kL1Bzr4r9OccDPy7 M( U1 O+ j2 o: [; x: |( B8 L' Z
GFR/oMNZa7+LE2OeQvUHOpx8ar/k/r7rUP1BDrwSKrVRrlDzHYIc3sU27/vy4 m4 q1 \4 A# ~% y) X
7S5Uf5DD3mDG7zb1t6D6gxz0D9hZlT49DtUf7HDkVb8BTwTM/cEOPBv6/WJ/" i3 N( b/ m" q( P, L
Qu1rCHaoZD5Tw25/Hqo/GC38QhzKjBfL8y5/B9Uf4vBK9ZjRX6GLUP0hDvri
* b# V8 h7 g3 B' Z: b( I- H2 @" SH+fOKH0F1R/i0LZqhpf9w6tQ/aEOFn5cn+XSoe5zCHVImah2j3HeFaj+UAeV4 M4 N3 O4 ?" X5 J$ h$ W8 ^
rQFGlluh/j0Q6sC1M+h8UwBMf5jD638bBWSZbkL1hzmUC1gHv7B5Zg8Ayg6T
; Q7 _: Z) E7 }* q8 m6 K* v. lvA==
: Y$ U% p: X$ ^" ^ O* }9 V; T( _# ] "]]}}},4 Q6 P9 l! P. @/ Z# A: @9 u* w( l
AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],& Y& J" H/ Z; Q3 l& m; ?
Axes->True,
) q5 n8 W/ x. N' l9 J4 K6 P9 F AxesOrigin->{61, 0},
r2 g3 \4 t. P# s: m Frame->True,
2 G% `: j6 G! k% Z s1 X0 U FrameLabel->{
" I( ]: v! |- r$ ?! b% ^8 \: s FormBox["\"\:7089\:6b21\"", TraditionalForm], * e1 b" S: e: H5 v8 [
FormBox[
# m8 V% p. U$ p "\"\:94a2\:6c34\:7ec8\:70b9\:542b\:78b3\:91cf\:ff08\:5f52\:4e00\:5316\9 j8 Z j# }/ G6 F/ @; a M
\:ff09\"", TraditionalForm]},
1 G! h( \4 g% [$ G5 W, ? PlotRange->{{61, 89}, {0, 1}},5 G# Y5 n' R+ m
PlotRangeClipping->True,
, D1 e: k1 E* v4 a PlotRangePadding->{Automatic, Automatic}]], "Output",9 I" N9 T$ j0 o0 c, B+ `5 B
CellChangeTimes->{3.577962196683521*^9, 3.5780124119375*^9}]# F: _) W' _% A. P9 X
}, Open ]], z4 p* Z3 D6 ^7 p" G
) M# w5 Z7 L9 ^! D& k4 D" h
Cell[BoxData["\:62df\:5408wi1"], "Input",0 R$ J5 r, s% N8 V8 J
CellChangeTimes->{{3.5779225126875*^9, 3.577922521484375*^9},
; Y4 g/ t* N9 Q 3.577959662349238*^9}],. u! g% m2 H1 m& D: J
% k# `. P! X" D4 W! eCell[CellGroupData[{/ D- J7 d+ w1 P0 V; d
. E8 E4 L: ~" s0 S7 }) gCell[BoxData[" R! \ m' Y. [8 t% q
RowBox[{"y1b", "=",
6 c7 M4 {3 X9 z# k7 g- f9 V RowBox[{"Table", "[",
. u6 M6 l d+ w6 I" B3 h9 P. Q RowBox[{"x", ",", 3 P, H2 u0 f/ ~3 E3 A- f
RowBox[{"{",
3 O0 N4 i6 `6 n. m* D, \ RowBox[{"x", ",", "1", ",", "60"}], "}"}]}], "]"}]}]], "Input",; i% A8 j% Y. [6 j3 t. _
CellChangeTimes->{{3.57792262821875*^9, 3.577922633546875*^9}, {
" z2 r1 n) q: p# G4 r' s 3.5779226649375*^9, 3.5779226810625*^9}, 3.577958232403945*^9}],
" o, A1 k4 s% {* E; i0 P% a8 Z0 w3 e- M$ ?4 r) o3 r+ w
Cell[BoxData[
( h ~$ |; `. I' @) G L$ { RowBox[{"{",
. s% ]2 ]: ]2 G: m- l- J' W RowBox[{
! g# E, a9 u; a1 U2 ? "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
+ G1 b7 g9 H- E( W ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15",4 K: H9 e4 n2 p% Y9 W8 h3 J
",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",", * h+ A" h% h( ^/ Z
"22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", "28",
2 ?6 F+ S. x; }1 n- l1 D1 i# o7 ? ",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34", ",", ! w( t# m6 S) Z- o* L' D3 U4 P
"35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",", "41", " V* X, r8 P/ f# P! a
",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47", ",", , \, v' }) M" E1 x; @
"48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",", "54", $ [4 l0 t- e; w; ~" w1 |! i2 K
",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",", "60"}],
( x, L1 {9 \" M" G- T "}"}]], "Output",
& T# G+ A# x+ N6 d! E! p5 { CellChangeTimes->{$ d' \ S& Y; V0 P2 I
3.577922682296875*^9, {3.5779582291435394`*^9, 3.5779582351339493`*^9}, 5 h, i$ t- E7 D5 |1 d& R" o6 q8 a
3.577958478041973*^9, 3.577959010205701*^9, 3.5779622225483656`*^9, - e$ i6 u( x' P% _, O
3.578012438953125*^9}]
Q+ |- E# ^! H) A}, Open ]],9 O! p+ N0 z0 ?8 \9 U
$ \7 p$ |* o; P% U! c2 v" C/ dCell[CellGroupData[{& P& E% l3 X3 s; X$ a% t5 h5 f
+ E$ `* G5 k e% y' ^; _2 ~
Cell[BoxData[0 p6 K5 V7 f) b8 S' m2 Z+ A1 n
RowBox[{"Data", "[", , U1 w# O7 R; B# Q
RowBox[{"[",
( z$ C' t$ @( d RowBox[{"3", ",", "11"}], "]"}], "]"}]], "Input",
" V! u; u: @$ X& G CellChangeTimes->{{3.577922711734375*^9, 3.577922728984375*^9}, {6 [ H6 c2 n( n' C2 \
3.577922912015625*^9, 3.577922912171875*^9}, 3.5779582414831605`*^9, {
! e) d/ p- ]) H% y0 G0 a: u P 3.577959014090108*^9, 3.577959016040111*^9}}],
0 Y( b: O! t* B7 b8 r, P
+ U1 X& }5 [7 Q9 W' p' U! iCell[BoxData["0.492958`"], "Output",5 E5 U9 r8 X8 ?1 a$ v. x5 i
CellChangeTimes->{{3.57792271875*^9, 3.577922729828125*^9}, ! y9 @( C; e- r
3.577922913203125*^9, 3.577958242809163*^9, 3.5779584790403748`*^9,
" N) n' c7 L% r6 _' w 3.5779590175689135`*^9, 3.5779622239523687`*^9, 3.578012439828125*^9}] ?* @4 s |7 S
}, Open ]],- q: X* r+ b0 _, h; u
! k2 W( f9 L& I7 p ~Cell[BoxData[
* p0 s% U( Z. Y5 }; M RowBox[{"For", "[", / A, e+ d8 R3 l( Q0 g
RowBox[{* C1 ]$ Z$ g/ x/ M L( b
RowBox[{"i", "=", "1"}], ",",
+ i A8 P6 Q6 d. \# S& C# D, ^ RowBox[{"i", "\[LessEqual]", "60"}], ",", 7 ^6 n3 S& {6 g
RowBox[{"i", "++"}], ",",
4 u. f1 r+ [; @% ~! C! P* a. g. V RowBox[{
6 V, d+ {# b7 f- k RowBox[{"y1b", "[",
6 u" z" X, [. `4 ^ RowBox[{"[", "i", "]"}], "]"}], "=", + n4 e1 x; ?' K7 [
RowBox[{"Data", "[", ; J4 B' \! n# e$ w/ { h6 C( U8 w
RowBox[{"[", 4 l9 d: N8 i; p( e0 w
RowBox[{"i", ",", "11"}], "]"}], "]"}]}]}], "]"}]], "Input",
3 r- C7 |) Y9 ^5 C CellChangeTimes->{{3.57792259890625*^9, 3.577922624859375*^9}, {
, j- ^" I6 M1 X' f% d 3.577922687234375*^9, 3.577922702859375*^9}, {3.577922917453125*^9,
1 A5 L+ B& T6 [ 3.577922923203125*^9}, 3.577958246272369*^9, 3.5779584755771685`*^9, {
8 V' D! w' X1 P, n, D 3.57795902089172*^9, 3.5779590227793226`*^9}}],' n; _8 K+ P+ s5 e
& c* b9 j. C6 y ]
Cell[CellGroupData[{
: b" q0 h' ]/ ]! d( H9 x
' E; ?/ H1 l& U; |0 JCell[BoxData["y1b"], "Input",: K3 [* h9 Y- r% I) ~
CellChangeTimes->{{3.57792293078125*^9, 3.577922931484375*^9}, a8 ^4 v$ W1 t0 g
3.577958484172784*^9}],
" s6 D% u! Y: Z X$ K5 N( T: d) P- z$ S6 ^
Cell[BoxData[5 g4 [3 Z# V# L" a2 r
RowBox[{"{", " P! `; T- q5 i) F, f; j# q
RowBox[{9 b) \- {" @4 \9 n4 \
"0.873239`", ",", "0.464789`", ",", "0.492958`", ",", "0.774648`", ",",
" r0 G* C4 f1 G) l& U "0.380282`", ",", "0.647887`", ",", "0.56338`", ",", "0.295775`", ",",
% y8 g& k) w9 Q. O+ j "0.338028`", ",", "0.211268`", ",", "0.690141`", ",", "0.43662`", ",", ! v9 J5 h: V9 h& d B& e ~# n+ J
"0.`", ",", "0.267606`", ",", "0.211268`", ",", "0.408451`", ",",
. }& @& }* R# A) n& q" e) i u "0.478873`", ",", "0.380282`", ",", "0.211268`", ",", "0.43662`", ",",
3 S1 Z$ H e% K) E8 O "0.478873`", ",", "0.295775`", ",", "0.028169`", ",", "0.43662`", ",", - u. d0 t" X5 h1 s' W$ T
"0.394366`", ",", "0.295775`", ",", "0.830986`", ",", "0.169014`", ",", " z5 z- p3 P9 a" b& w' ~
"0.366197`", ",", "0.309859`", ",", "0.352113`", ",", "0.309859`", ",", , L( T5 i3 _2 X: F; q: }8 a
"0.774648`", ",", "0.422535`", ",", "0.887324`", ",", "0.887324`", ",", : Y( n* [3 z* |) I
"0.859155`", ",", "0.239437`", ",", "0.295775`", ",", "0.746479`", ",", ( k! |3 W4 f' H& ?
"1.`", ",", "0.549296`", ",", "0.366197`", ",", "0.549296`", ",", & A" `/ S. b4 Q5 k
"0.577465`", ",", "0.690141`", ",", "0.71831`", ",", "0.521127`", ",",
: F0 @3 K: ?. t( x "0.929577`", ",", "0.521127`", ",", "0.338028`", ",", "0.380282`", ",", 2 B. C/ q# v" y
"0.676056`", ",", "0.591549`", ",", "0.464789`", ",", "0.295775`", ",", 6 y) q! [/ y8 h6 O; f( G1 A
"0.380282`", ",", "0.211268`", ",", "0.253521`", ",", "0.28169`"}], ( G9 }0 q; V) \: Q2 z
"}"}]], "Output",3 Q c/ k- @6 A o9 A5 p
CellChangeTimes->{3.57792293246875*^9, 3.5779582549771843`*^9,
& k$ K2 r3 w8 p6 }/ Z( i9 }8 d0 Q# F 3.577958485420786*^9, 3.577959026460929*^9, 3.5779622288195767`*^9,
0 d+ @3 i- X0 \. I8 u4 J9 s 3.57801244275*^9}]
6 Y8 z( Z' Z8 ^' F4 X; j; x$ g}, Open ]],/ N. f$ y* y5 N3 c# F' Y0 r( J
) h( x$ z% h9 b& p/ }- [ iCell[CellGroupData[{
, X% X, ?% [6 n8 C1 e+ Y! y, v+ @* n
Cell[BoxData[6 |- }# d E3 U$ g8 L' a
RowBox[{"m60n21", "=",
1 T$ L) @8 H) }+ t RowBox[{"Table", "[", , T0 N* p% O K+ b! O2 {
RowBox[{
" `: U0 g* |5 @ RowBox[{"Table", "[", 9 R6 B% J7 S5 v \
RowBox[{"y", ",", ; [1 Y' s( j8 U4 n
RowBox[{"{",
" L" d2 D( n }1 Z5 _ r RowBox[{"y", ",", "1", ",", "21"}], "}"}]}], "]"}], ",", + u7 ?0 N! _: J0 y v/ K
RowBox[{"{",
2 u) Y# m* c3 ]$ O0 c7 D RowBox[{"x", ",", "1", ",", "60"}], "}"}]}], "]"}]}]], "Input",1 ]+ M+ E q& R' `9 u0 R
CellChangeTimes->{{3.5779239260625*^9, 3.577924021765625*^9}, {
; L5 B" s& K2 ~ d) O 3.577924052828125*^9, 3.577924101671875*^9}, {3.577962237961193*^9,
9 y5 h( f- U$ n 3.577962240082796*^9}}],( s+ x+ T. {2 P4 V' L
* X: e. S- S/ v3 F' k3 }! E
Cell[BoxData[" K( f6 T6 Y/ u
RowBox[{"{",
/ Q* R* q0 J5 C) o0 p RowBox[{9 T, g& d0 ?7 i6 t! q
RowBox[{"{",
: V# |3 C* X$ {3 n! h RowBox[{/ B# B5 ]* D5 }% v2 y
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
- r2 D Q6 s6 C7 X ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 8 u9 s& ]" u, {+ T8 V% n
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
0 w/ d2 L+ M O) I% T6 J/ ]& D "}"}], ",", % i. u, ?8 p$ ]- w* C
RowBox[{"{", " J; D$ J6 M) m# V1 |; f* F5 N0 L
RowBox[{
/ K$ F! ? z O4 W( I "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
B! G. |: ~, p# D% V# v; p ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 1 T: C! N$ Y3 J3 _( Y+ V- J: \
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
8 e- Q2 C7 L% n "}"}], ",",
V0 h5 G9 Q( @* A/ G) `4 u% _3 F RowBox[{"{",
v& _3 M# n8 J; h1 | RowBox[{
' \2 f. [, b V. F, v" F; ~$ A "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",* r- R: Y* I B+ C2 a
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 2 p- R; ~) d- u* o+ ~) h$ C
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],% H0 q- c) e, g' `+ d3 \
"}"}], ",", / a, e/ |5 J5 [6 X4 n, j* p
RowBox[{"{",
, L# K# N" v1 s3 |) w0 e' S# } RowBox[{
& Z ~$ a+ N* q" y "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
1 b2 ~; C7 ^6 G( j7 i' ^ ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", ( j6 v& s+ f a# |
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
; K. V w) _' r+ s "}"}], ",", 3 W5 i/ d4 S8 `" J* C& v5 t, n/ N2 ]
RowBox[{"{",
* a8 q/ {- \/ Y% T/ C2 k RowBox[{
, p& _) ]+ h$ {$ Z0 b "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",: q* y5 x0 m t C6 R+ }
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
7 @# Z- E8 \ `0 Q6 l' k8 H4 k "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],. b% ]3 R( x! e7 A4 P5 |
"}"}], ",", c6 G" A8 J0 H" P. M
RowBox[{"{", $ d, G4 @! s8 M. M5 M. m) l7 F
RowBox[{
$ v3 R X/ V- c9 e "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",, g5 {6 `/ w# r! k X5 O9 ^
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", ) K0 q9 h/ c( k C8 Z
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}]," x7 B" b- _; G0 S. D2 ^7 }$ [' x
"}"}], ",", 8 u( g0 a- F3 R
RowBox[{"{",
( w0 p3 x: B, |; J7 F RowBox[{# |+ q, Z4 s! A
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
9 |2 t6 o8 v& i* Z ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 1 A, d( H2 Z. U1 E+ L& `
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],) k* @3 B. u/ g: g( h4 B# w
"}"}], ",", 4 x& [* o* H3 e$ |- [8 D( R8 e
RowBox[{"{",
( X2 P/ l8 f0 i4 @1 @4 @ RowBox[{
4 R' K6 M' D& L* r: ]" n. L "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",; N: H4 g7 H1 t1 B9 V$ r) J
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
) l$ D; a8 i8 ]. {: f "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
' N/ P, l$ q: r" z0 a3 a "}"}], ",", * j* r" @+ S( ]. s2 }
RowBox[{"{",
8 T. m9 k. `+ G7 D3 d, G4 T RowBox[{
1 z- g3 P9 [. C+ C2 T' h/ J# x "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
" y/ @- m$ V3 J2 o; J2 E( R' U' F ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
- n; I. m, W0 `; e/ o "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],# r% u1 W, u- N# `/ @! S
"}"}], ",",
8 p; z2 |8 e1 s; G RowBox[{"{",
" m" T9 [6 r- {8 Y6 E RowBox[{7 u/ N9 q9 u$ A# @
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",4 w9 B6 {) H+ F& @% U4 X8 h) Y- |
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", ' x9 G3 |2 z8 L4 B% t
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
/ I4 |, x8 H" E/ K "}"}], ",",
# X# C \0 K) ]* m# y RowBox[{"{",
2 W+ H7 y0 v8 |' l RowBox[{) _1 O4 r3 F' m+ a' ~# Q' d
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
& |2 q5 m- d6 `% {1 J7 X ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 1 @( G: t5 \5 h3 A! v8 N" X
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
. R& _# o# n; Y. @# C' k" ] "}"}], ",", # k& `1 D2 d2 h+ \1 Z+ Z
RowBox[{"{", ) R/ H, Z6 O5 m9 F- R7 r" _' S
RowBox[{
: c1 v, Y, C0 U0 ]1 t# M "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
9 G' j1 V1 {1 V8 _4 ~ ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 4 H. A! A. u6 V4 x; L, e2 G& [
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
) K6 x5 Q4 f& C- F "}"}], ",", ! {! M- i4 L8 D5 s, w9 n, T* D
RowBox[{"{",
8 I: u" i, S) X& k* X+ }5 A RowBox[{3 z% x3 j. H& ^0 Y% Q
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",; O8 |% i1 k$ L% N5 c$ C
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", ; a/ U/ U. n1 [. o# n6 r
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
; K7 z% K0 g, p5 J3 v "}"}], ",", . G% ?2 |. E9 W. O. U
RowBox[{"{",
3 ]+ l, e6 W1 g5 [ RowBox[{
: c2 v7 M( P+ l4 |1 | "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",$ K6 u! q9 V0 \: ]' ^
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", + O$ M3 v/ Q" k# M) \
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],3 Z2 v( N3 Y7 m' v4 U8 d* x; O- z" }
"}"}], ",", * J' H! B& ~5 R# H' u5 c
RowBox[{"{",
1 g! E* S4 _; @ V1 y; d% `- C RowBox[{
: D1 D# s4 f. g$ L4 P. T9 W0 W ?- _ "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
& \1 g4 t6 n5 u9 f3 x, u ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", ( l- r* l0 S# S
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],3 _0 V" J$ z2 o3 `# a
"}"}], ",",
8 A) q% M6 |) b8 s% t: S RowBox[{"{",
1 G2 Y+ H6 s" q8 f* `8 E1 o RowBox[{, B/ o. T; J% E1 m$ w
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",* n0 N3 o5 V2 _1 X( @! H0 p+ e, K& k
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", # q. ?% S/ w9 V& M
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],( t$ b3 a/ K2 S$ H [
"}"}], ",",
- E }9 N9 ^" a RowBox[{"{",
/ o1 r( l/ y7 } RowBox[{
2 _: N' t% y+ a3 b3 x/ g "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",/ R) Y" E1 T& b, S9 l$ J1 n
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", + o2 I% ^; Z: N' C
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],7 w% v/ \3 p! z0 S( }
"}"}], ",",
, T& n5 c3 ~$ M, K$ f4 v! r RowBox[{"{",
F$ L! `# q; {8 e( U) ]& Y RowBox[{' k1 C( \. r+ A
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",9 U. X8 o4 R$ O
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
' J7 h, }# e T P "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],1 y" j+ X+ G" l, S
"}"}], ",",
- u3 V y u1 p. I; ^ RowBox[{"{", 4 {) [; i2 j' b- ~( x
RowBox[{. R' D/ k, Y- n! h
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",. {0 V( `) K3 K+ V5 f* w' D/ h
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 9 O& _- c. k/ I( w4 }' X! I; z
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],% t* i' m% O: S3 f
"}"}], ",", % U- |- N* ^! b; x7 m
RowBox[{"{",
; S+ D; |) W! |, L+ K1 q RowBox[{, b6 b9 C" C8 F$ Y. F' L5 `
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8"," m+ V+ R/ R5 u" v" Q1 u+ B
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
: i$ Z% e4 j3 V+ e1 D "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
( J) y9 [: N6 Z7 ^; T; I% w2 @ "}"}], ",", / @$ H6 ` z! B0 X6 e' q0 T
RowBox[{"{",
% O" ]$ q/ k/ T1 W RowBox[{# H6 {0 b. s ]; A/ a* M
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
5 P9 g1 y$ E% U: Q4 V ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", ' n% v$ U1 K$ d+ s+ p
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
8 d7 M4 B( _# I. Y "}"}], ",",
8 Q9 e: W6 B5 Q4 y RowBox[{"{",
4 r9 E; t; c0 ?/ k8 j0 C' K7 R RowBox[{. }7 ^3 _# A$ W' d- p2 R2 [
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",; {0 k2 h) k. w5 S* i3 L( @
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", / l% I- j0 f0 j+ R/ z; ]
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
0 S6 a) W6 M& Z( Z; E, H0 C, k "}"}], ",", : |) P) {: Z! W% |9 r/ f4 D+ P$ e
RowBox[{"{",
- a4 Y4 B1 `! U6 O& L- I RowBox[{3 i- _# ]7 `! ^
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",9 o' `) i8 ~0 s0 O0 V+ q
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
8 T8 v% e, B1 D4 P- N- N {7 X/ C "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
' A7 y% c7 ~# v' E "}"}], ",",
: V# ]8 C" a4 j. j3 r RowBox[{"{", : U* D& J8 w" q
RowBox[{6 u7 }# i( b6 V
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
6 k0 H( Y1 Y1 m- P% H. y! U3 M5 z ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 7 z/ |$ [$ y1 Q+ n N* O. a
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
/ x ^ H; N d3 U4 S "}"}], ",", 3 m, V' r% m* i$ P- Q% u" i
RowBox[{"{",
- ~6 I9 j0 M; I5 p! S0 C RowBox[{
1 z5 k" {8 T- e% k; c& A "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",8 I( R1 i0 W9 b
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
- o2 N) }! s i" f7 i* ~ "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],$ t- A# i& b$ x- [' r
"}"}], ",", ( K. z! B/ i: H- [. R# H
RowBox[{"{",
2 I$ T, V* y1 `& e) Z( i+ |3 u RowBox[{
" h# {5 V8 D3 F/ W6 x5 ? "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",% f7 i3 e3 B: V5 m4 u. i
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
2 {- L+ {' N% b# S4 x9 G/ J2 g "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],, ? o& r! [7 G: v5 I z
"}"}], ",",
4 l8 P8 y. N* h9 L+ F8 Z RowBox[{"{", ( U! |* Z R% t% k
RowBox[{. `% u) T' C, ~8 J- Z
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
5 A4 f' M* {9 ~/ n6 X p3 y/ s ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
i1 q' O* l5 w" o! t, v "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],- o& q8 y6 T1 ?" Q6 M1 T9 v
"}"}], ",", ' k K5 O" F+ S/ G; r. u+ ~
RowBox[{"{",
/ N( I$ R1 D( @! r RowBox[{ ^+ _, C2 `: ]1 T: e4 c
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",2 ^0 `4 c- [* F! k
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", ( u! ]5 w& {% g$ }% W# C3 J
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
, J" C; Q- h5 ~# l2 ` "}"}], ",", ) ]8 B6 m0 Y/ d6 N! t3 c4 s
RowBox[{"{",
6 W5 h0 r% P, K( L: _: q# a2 y8 W RowBox[{ P: b/ Y0 c) T" P
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",2 T6 p. z" A& R# O6 U8 ?
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
' S( ]1 D# N- q- K2 V& u4 { "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],# _! X5 o( g3 ]6 o
"}"}], ",",
+ g; L9 S. r. a5 v8 K4 s0 c* _ RowBox[{"{",
, {0 s6 e3 u" f: x RowBox[{# S, G. n6 U( b% t8 U' |
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",* N; q3 }! z9 x- m5 [- D
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
+ Q+ Y" p4 `3 C9 v m "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],. }4 m" H. a; O/ N
"}"}], ",", 4 s- R9 o0 R! c: Q' ]6 i
RowBox[{"{", 3 C6 P0 l- o5 B" J: B. {7 l+ M( o
RowBox[{# x) X- T3 i! c" h* D2 F, I
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
6 i$ e6 s. j7 r% W* x* Q' d ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 1 w7 [/ h! B# U
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],: i" H$ |7 e! U/ b6 V
"}"}], ",",
$ Y4 Y% q! Y+ `- b( u; K7 ~ RowBox[{"{",
/ E, l" V% A& i5 V RowBox[{9 D% d7 e5 J+ U
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
! Q) y) P# B4 m7 u4 o1 H9 Q# [0 M ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", ) f# j8 K, s1 b0 g9 P# V
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
% [# F) v# f' S; _. ? "}"}], ",",
4 i! U: B5 O' a/ A RowBox[{"{",
3 e0 H! }6 n: S9 B F* e, Z9 ?( L RowBox[{
3 z) K# b% r: } "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
6 Z* H4 W7 P" R3 R& n ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 7 @7 Z1 U4 ] k2 Y5 Q: G
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],+ B T9 N2 J: `: s: V! V
"}"}], ",", 6 X+ m) m, m* E# J
RowBox[{"{",
! ~9 G. m7 f6 J' ?9 O" t RowBox[{
) D* Q6 }' w/ @) V+ [/ W "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",. \- ~% k; ^, ^; S2 u" t! J u
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 0 V$ G Z: O( u/ _+ {
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],) y+ c8 I1 e" S; L: E& k
"}"}], ",",
0 \# u: D# M# N# A RowBox[{"{",
& Q4 i7 Z7 U# f5 n5 _ RowBox[{. x3 @7 t: W1 \" `8 _% N: G+ y
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
7 q7 K' j7 W6 B" T ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
* U- w$ u+ }) N7 x% [: I "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],4 h" K5 ^9 s2 N* N3 c- X
"}"}], ",",
+ u; I" t! i# A& g5 b" g RowBox[{"{",
& p- [ g$ `0 m- L/ F RowBox[{! _; r+ q* M8 N- x% e) T& J# \0 x
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",3 {) l. U/ x" O, L( e+ V
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 8 h( s2 J# e& I0 O8 l* M. N9 x% T5 m/ Q
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],6 y4 ?& L6 H+ @6 K
"}"}], ",",
7 B1 y& {9 L2 D' E7 M5 A4 N RowBox[{"{", , B7 Q: {/ D8 I5 K9 v5 z1 n# X
RowBox[{
" N3 S, \: f" w# z9 w3 W) | "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",5 n* i8 |& C" Y/ R# ]
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", & F0 w" O6 |8 n+ I
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],* k2 h' c; J1 J; [
"}"}], ",",
" m/ j# _3 V% p& G RowBox[{"{",
9 h9 P6 P! G3 k a RowBox[{+ N% @8 L. o Y
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
% D w R: \) j& V7 h0 K. K3 _4 q ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 7 c6 g. I$ }( d2 s1 Q- C
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],' `6 |/ F2 z- k# I
"}"}], ",", % W9 d; `1 ^. B6 R( |4 y
RowBox[{"{", * h5 c7 C& g. z% ?8 W6 W
RowBox[{
! G1 d% {% T; _- o6 } "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",5 J' Y1 s0 f+ h* I) M, l3 v" I: D
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", - x: H8 h' w) K/ d" n
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
5 ?1 T! o6 p, b. f; u6 f( O "}"}], ",", 2 t! y( ^. R$ b4 p' ?0 ?
RowBox[{"{", ( j( k( [2 g. X+ U- T6 G
RowBox[{) R' C# Q/ A( K- T+ r( I; c
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
; A3 E- z" r- y( p; } ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 2 F5 W) F( E! [/ z- q3 Z
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
) X+ N8 v& q5 p "}"}], ",", , I) w M# v3 T/ _; N
RowBox[{"{",
/ v% j3 R6 t2 n# U J7 P3 v2 \: F RowBox[{
; t' B) J7 N% K1 l "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
. r5 a0 M7 b2 p% c5 M& t4 t ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", # T( b3 p+ p, g, W
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
1 o' u1 O: s- `# k& B3 R "}"}], ",",
- Y% F) ]- U2 E- n7 H RowBox[{"{",
% o- b& B# X$ @, q RowBox[{7 @6 j. x* Z5 Q! K, L
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
6 V; L; Q: t: @9 c- j) u* R2 {/ P! U0 f( j ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
" y7 c$ B9 D) T' b! o5 `, n "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],1 ^: d2 s; ]$ d
"}"}], ",",
% z4 P/ e6 i+ W" z% P RowBox[{"{",
. E$ o; u& B. W: c2 Q; ~ RowBox[{# C1 [" t/ O7 H8 b- X
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
2 c8 ~% d% i: V- ? ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
g! J( S; u+ P& |; T "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
& J: T+ k2 @$ N! Y9 R8 i2 U "}"}], ",",
; `- u9 G! @- r. X, r( q RowBox[{"{",
e8 T8 R- o! |/ J% e% k RowBox[{
' P5 Z0 ^+ @$ H) X% X' H "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",7 ~0 Q' b) e: w
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
+ \# B+ \( r+ ~; E% B "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],6 D5 Y( {7 f3 ^6 F- ?
"}"}], ",", # R2 G' R0 S" Q/ F) ]. g2 i
RowBox[{"{", # U+ c6 ^7 a+ \
RowBox[{
, E- o; E1 G# J6 R$ ? "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",; }8 h* P0 {1 O
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
" Q) d+ F/ o( i, x9 N9 h "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
) W1 }. F* r8 u2 E "}"}], ",",
7 D7 v" A8 }( D$ a3 M) _: G0 w RowBox[{"{", 1 @' \3 H+ {& Z$ Z
RowBox[{
; @ N& g( T$ F0 Y; d' \ "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
4 D a* n6 e/ t1 a* _( c9 S ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
4 O# E+ L3 J3 m! y+ @- @ "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
1 O% t9 _ D; s8 v "}"}], ",", : ~8 {1 X$ a* c @
RowBox[{"{", 6 u" Z0 C2 v- h
RowBox[{
+ X" ~2 _% ~/ O/ h: P "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
' S. I- L; _, j2 ]0 Y ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 1 R$ z" c1 |' {0 H) O
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
$ j- \6 {* o2 P; c$ k" ?( | "}"}], ",", 4 t7 ]* l C+ l" ~, s4 s0 i+ H( G
RowBox[{"{", * z+ V1 r+ q% f# O, G6 p$ s
RowBox[{
# a( K! S+ o& z3 _4 C "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",/ p$ ?7 A+ _3 H$ B4 ^: F9 a
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
1 P* \/ m5 t5 _& p& W6 l5 h/ I "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],( ?1 U% W, e& @6 v3 d& F
"}"}], ",",
4 \6 K% S1 [8 J4 L% T) `8 I$ O: I9 R2 k RowBox[{"{",
) {1 G6 f; Z& \; }, g! W9 x0 c RowBox[{
, L5 v& d: C% h0 s( K! j$ m "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
$ W- y, I' P% g' Q- y% ^ ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
: C$ O9 h( V' h% c8 G( E "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],/ U9 w% I$ k/ w% z/ n' h5 x+ m
"}"}], ",", 1 D6 C1 B& _2 m( ^, c: }
RowBox[{"{",
' j% I7 m2 y e! x" O' C RowBox[{
# u2 Z8 Y( J' k9 { "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",9 i, r: v. B: z1 R7 `8 r4 K
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", ' i: X3 S$ y1 R5 ~ f5 g* L
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
7 ?$ u6 [+ B& m' F1 K; t "}"}], ",",
# ~- u. F2 e9 h& V* K- Q6 k RowBox[{"{",
" _, a* i+ G' p! B' w4 Z+ x RowBox[{
) ?6 t2 |4 l, B2 \6 z- D "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",. g5 s6 Q2 @$ n% t* P! y- s
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 5 u% D8 l, z& O" e3 U# O: J {$ q2 H
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],5 y$ g2 P& B8 o3 ~
"}"}], ",", 9 L* b5 ]3 H3 s: @
RowBox[{"{",
2 N m3 c! H5 \+ U2 X0 ? RowBox[{
0 @- [# _- s$ p7 i. ? "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",+ H4 R- X2 V3 ]" N4 F* Z- b
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 4 E$ a9 S% Y9 T: M) E
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],/ m5 P; U+ }- N5 |- e) w% F
"}"}], ",", # k8 k, H7 f/ Y3 [# Y
RowBox[{"{", 8 q# k/ c: s- c' b
RowBox[{1 J" O+ l8 }' v: {5 \2 x, U6 {
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
& K7 q" ?8 ]$ B6 o; v% q! e ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 0 |" s' `: [0 h0 y" r0 _% j, N
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
$ b' r# ~ {% g# M. \ "}"}], ",", 6 A4 J8 P3 o' B% Y
RowBox[{"{",
. t8 X* U- o/ V6 G" ^ RowBox[{
. B! B3 j4 h% i7 { "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",$ q$ M/ x) g/ f! p! T
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", ) U- |, d- T5 B& ~
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],$ x1 b: E' L) Z7 b3 G0 e
"}"}], ",",
: U8 _$ N$ t/ i2 @. @3 K9 R% | RowBox[{"{", 5 m: o% ^8 b& S, e
RowBox[{6 @1 p# f( b5 u0 ]) Q
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",) ~/ v8 v) J3 l* a5 D
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
5 [+ r% f" H w: J4 M9 z "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
" s3 r1 j6 J/ V "}"}], ",", 2 l; M% _4 n* H, B3 V7 e: f" z' ~5 ?
RowBox[{"{",
j% j3 [& J% t, D RowBox[{
9 [: M/ Y) P# b7 I( S1 M "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
4 A, `/ j) k% c! q/ Y5 E ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
! T3 q& [ [8 ^9 B "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
0 P, S1 j4 x/ z "}"}], ",",
6 s) x( l3 Y" u3 i RowBox[{"{",
9 b9 Q/ x0 ^0 L6 C, z! H0 B* o RowBox[{
6 O/ p( x9 a) \) t "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",$ H! F% G- L2 R; U* v3 j
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", x/ M; U2 E+ r; T" L
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
/ u3 v" v% @, h) ^/ |. E5 r2 D "}"}], ",", 1 y8 Y# @% Y1 `
RowBox[{"{",
$ i& E4 E9 G9 @. ^3 M RowBox[{
" C; ^. a2 {) H" O+ _6 A2 Z "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
/ A$ I7 \+ ?: a7 j* I0 R( \ ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
$ f! y; s/ h7 N( Q9 y+ x0 o. v- \ "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
4 Y* ^7 e+ I) }1 T "}"}], ",",
( y% F7 e9 C7 U" X8 B RowBox[{"{", % M& V; c$ A1 M7 s/ S2 k7 k' H( [
RowBox[{3 y) M2 c9 ], H. c- I) \
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",: ~% x0 V: e* p# h3 X
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", $ q/ D0 q1 Y8 ]2 V2 n9 U
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
7 s' y# S Y/ c8 e m "}"}], ",",
2 }& m. d9 _ j2 l RowBox[{"{", 2 ]0 k! C5 R2 _" y
RowBox[{% `# u; @1 s' u! P* k
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
* _, |+ ]0 }) F) F# ]9 S8 A ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
( f' D2 ^% g0 t6 z, @" }8 x8 y "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
9 s( |5 d: k6 n! @$ v "}"}]}], "}"}]], "Output",
* \6 N" @9 D1 [6 L! R7 G CellChangeTimes->{
k! x+ e) ~( ]8 l! j+ ]! z 3.577924022828125*^9, {3.577924056171875*^9, 3.577924103265625*^9}, 4 }, j* Y/ k4 X
3.5779582609987946`*^9, 3.577958492393998*^9, 3.5779590297369347`*^9,
( X8 x' `# ? u: M9 L8 u& ^6 t& F 3.5779622422980003`*^9, 3.578012443890625*^9}]6 {/ b7 |& B3 B2 q) C
}, Open ]],9 |/ u( n) R4 }% k/ e! s
5 j1 g) @$ X5 U, a
Cell[BoxData[
" }* f. z6 Y( O; D1 z* q RowBox[{"For", "[",
+ \6 }0 y; u7 H5 ?6 {9 D RowBox[{
# E1 {& v# s6 L8 O7 R8 A& P5 Y2 i RowBox[{"i", "=", "1"}], ",",
6 s& W* I4 C. [3 Y. X; [: A RowBox[{"i", "\[LessEqual]", "60"}], ",", 0 w" Z$ [, \2 Q, B
RowBox[{"i", "++"}], ",",
1 f! q5 x, z K, \ RowBox[{"{", "\[IndentingNewLine]", 8 V* l! v) L; L) E
RowBox[{
7 j2 V; t- c8 h RowBox[{8 m7 A! x0 Q0 Q* t- y5 s$ {9 m9 \
RowBox[{"m60n21", "[", 3 F- W8 ?( a/ d/ i2 S: A
RowBox[{"[",
# M: {7 b0 y4 ]( a% r RowBox[{"i", ",", "1"}], "]"}], "]"}], "=", $ B0 A1 E |( h
RowBox[{"u1", "/.",
) M: n0 C M1 L" K: u RowBox[{"{",
, d% {; P7 R3 ?1 F) V, ^7 D RowBox[{: y, }- f, |1 x6 x, G }% B, z
RowBox[{"x1", "->", 3 b7 w# m& Y/ p3 X
RowBox[{"Data", "[",
5 c: Y5 o2 ~/ R9 ]* ^+ ]- f9 r. ?& ? RowBox[{"[",
1 ^! Q& n$ L1 k! k( ?1 X" x1 S RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",", ; P5 m- {! V- ]
RowBox[{"x2", "->", * e- u5 i. v6 m7 L# I
RowBox[{"Data", "[", , _! C9 L+ I9 w M
RowBox[{"[", 9 t m+ \" m" z% D) ~
RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",", & M2 y, M: M7 Z3 {6 g' l: T& E; L
RowBox[{"x3", "->", 9 j5 J# e @& [- i
RowBox[{"Data", "[", : S- `/ d$ g' h1 I, J9 y3 y$ h
RowBox[{"[",
, ~3 g5 Y7 h$ d$ T$ w& @$ g: A RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",", 6 @7 x, r9 P1 {3 G8 M9 t) K+ c
RowBox[{"x4", "->",
, r; E# h" N& n3 E3 P% H RowBox[{"Data", "[", * A1 I2 W* R$ F
RowBox[{"[",
g2 Q+ V& T8 M8 p0 x RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",", 6 f' q& ? W% X6 G
RowBox[{"x5", "->", : w U, E: p* O: F% ^
RowBox[{"Data", "[",
' I/ n' S& o* K" t, {; [ RowBox[{"[",
& B" A- j' B# A4 B R RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",", ) G) w' g4 u2 f3 J5 I( V* B( L
RowBox[{"x6", "->", 0 O- }3 N+ n2 f1 x# c' R5 i+ p
RowBox[{"Data", "[", , d) S0 M- g: f, E
RowBox[{"[",
( i* `5 _: Z% C( n5 ]( z! v RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",", % \9 x/ F) e: d$ Z# F' H& j
RowBox[{"x7", "->",
$ z% S0 ?, a3 N8 R RowBox[{"Data", "[", ) V; v# \) I: g6 V) M1 C6 G
RowBox[{"[", 5 _# L8 z A5 _/ U A, d4 D4 B
RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",", 7 H2 i& f& f& E6 `1 b) m
RowBox[{"x8", "->", 6 n/ {1 ~- h- C' H% U2 O- G: I
RowBox[{"Data", "[", - s( ~6 ]; R9 n, u. N& J
RowBox[{"[", - k% T3 h v9 a; A4 P
RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",", . \1 C( X5 l) [) q/ x
RowBox[{"x9", "->", ( N0 ^2 h: r- E7 C
RowBox[{"Data", "[",
" t* B, `: Y/ M' d RowBox[{"[", / O" Z5 w% I7 W- L
RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";", 9 E8 X1 m- g6 b1 h H2 C9 B4 S
"\[IndentingNewLine]", ! c% ]( q0 {" x- _' T2 G
RowBox[{2 }4 K+ U) m4 Z$ B4 q
RowBox[{"m60n21", "[", : m5 p& f& y6 k$ v& ~1 i
RowBox[{"[",
* s/ T: c) s4 ^4 C4 ?; V- e- \7 i# S RowBox[{"i", ",", "2"}], "]"}], "]"}], "=",
, K9 t' `4 O. M1 H7 |" {: E- _/ ^ RowBox[{"u2", "/.",
. ?8 p5 u$ w7 z; `& N$ J" x/ U RowBox[{"{", . o& s6 I5 C) l& E+ B& }7 W( ^
RowBox[{
\# b z2 J O8 b RowBox[{"x1", "->",
! O( j1 L" \" q6 j RowBox[{"Data", "[", - _# w, D- M" Y4 U6 i$ o
RowBox[{"[",
& R/ y, j& @) w- Y RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",", 1 @# v; B9 b/ l* G$ k. y
RowBox[{"x2", "->",
7 P- e1 h, R: ^+ `2 ^* A: G, f RowBox[{"Data", "[", 5 [# j4 y) U2 D1 @* z8 V
RowBox[{"[",
; f# a u. D: t) A- L- I RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",",
1 K; H+ ?3 h7 o$ |3 |) d8 y RowBox[{"x3", "->", - j& Q9 |; K- f0 ^* @: b% l
RowBox[{"Data", "[",
" ^, ^5 ^7 `5 A, p! |. p3 m3 o RowBox[{"[", 6 w: ^) x' J) C ?
RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",", 3 I* y! A% ~$ \; @) [
RowBox[{"x4", "->", 9 K' v; P( V) X, b4 w2 p4 g- j
RowBox[{"Data", "[",
7 J1 o6 ^6 r. C3 K( J; A RowBox[{"[", ! c$ e+ e0 \' p3 w
RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",",
# b! d4 ]% x7 R$ X: i& B& b RowBox[{"x5", "->",
( v" h0 B3 f& [2 ?0 r RowBox[{"Data", "[",
! L) l! N( j& g* p8 L5 a- D7 p RowBox[{"[", % ]$ v$ G/ Q3 f+ R& C6 B# v( K
RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",",
1 y4 l+ [0 X! J7 t RowBox[{"x6", "->", 2 z0 l+ P2 C! q5 G
RowBox[{"Data", "[",
8 f5 P) A M2 v7 G. N RowBox[{"[", " J4 p% }8 z. u5 Y" f
RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",",
! o' J* F0 Q; Q5 s2 k0 C( O1 h RowBox[{"x7", "->",
5 u& I" W+ W! m8 K RowBox[{"Data", "[", : r8 M, s2 s: k; V, W. m9 D
RowBox[{"[", 2 a% N( r- b( d* @2 w
RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",",
( ?6 K2 b$ r- Y RowBox[{"x8", "->",
$ c' Z: {5 s9 e- \8 Q RowBox[{"Data", "[",
% q" P G% G* |$ G2 O3 S, w7 | RowBox[{"[", " }( {- I4 K& T9 Y$ x
RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",",
/ t u5 f5 H% k0 c- w+ n RowBox[{"x9", "->",
{& \, @- `: g" f& C RowBox[{"Data", "[",
4 L' C5 W8 H, d# k8 h1 z9 S RowBox[{"[", $ f. O8 X. u3 h
RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";", 5 f% p8 h9 W1 ^$ B# g7 |* t
"\[IndentingNewLine]", 5 r( V5 `( Z7 ~& h6 ?& c y" c+ T
RowBox[{2 D8 J, [% n5 X; E7 Z
RowBox[{"m60n21", "[", 6 z4 d! t: R1 n* c
RowBox[{"[",
J: X3 @, H4 w$ w* _0 r+ F2 C RowBox[{"i", ",", "3"}], "]"}], "]"}], "=",
5 p0 e6 I# c. O2 H- K RowBox[{"u3", "/.", ) d/ T5 A; C$ ]* q
RowBox[{"{", - [$ }0 L, p% Y2 q! H, ~
RowBox[{
) Y/ A9 E. q' y+ J) ~) i2 l5 L RowBox[{"x1", "->",
" w1 X2 @' Z. D9 a% s1 X6 x0 p4 D RowBox[{"Data", "[",
8 |$ J+ P, E5 `% N- @5 M0 M RowBox[{"[", + ]% W( T% n' w* g
RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",", % B8 J& G3 V* b: D. L0 d* S4 K
RowBox[{"x2", "->", 5 P" p, C8 b c
RowBox[{"Data", "[",
' w2 s0 P. g0 c% S) ] i RowBox[{"[", 6 L! r- P2 ^5 m5 b. C
RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",", % b6 P7 g4 A! X6 H, {* f# A- M
RowBox[{"x3", "->",
) m5 h2 C. E5 [ RowBox[{"Data", "[", % L( L5 E; F+ j3 m$ Q( Q! ?
RowBox[{"[",
; Z1 \; R% |7 r9 N RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",", 1 P! C# U' k) n# z8 Y
RowBox[{"x4", "->",
H8 ~: L- A m" u5 }) g: T RowBox[{"Data", "[",
, \; c# i/ a/ Y. F) p RowBox[{"[", " f# r( D6 x$ O0 |+ s
RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",",
8 V$ P; A1 A" u5 D/ C$ v RowBox[{"x5", "->", 9 A$ ^5 Z& g) e9 e
RowBox[{"Data", "[", 8 i5 N8 z- {* l3 s, d6 h! _1 h8 i
RowBox[{"[",
# m2 f0 {4 w9 k. c RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",",
. R0 I# B/ D! B- T2 } RowBox[{"x6", "->",
; P8 r2 ]+ x' y- ?# x RowBox[{"Data", "[",
1 B9 N. F( Z2 ]2 w- C7 }2 I RowBox[{"[", . P- ]% N ~3 W# J6 J# D- I
RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",", / Z3 E- M8 S+ Z& c3 L$ @# z4 M
RowBox[{"x7", "->",
5 y& B4 ]. F: [& Z/ Y) } RowBox[{"Data", "[",
( \2 {3 E) A$ e/ h3 \ RowBox[{"[",
) m1 d: C6 z$ r- x$ f- ` RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",",
, z% m4 }5 f7 M' l* K) N$ g RowBox[{"x8", "->",
+ }; }6 X! l b% K- A9 P, i RowBox[{"Data", "[",
) e4 ]6 G, g- l! ?% V& r o RowBox[{"[",
* Z! Q& ^! l9 g' ?& {* k+ s RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",",
8 R- {) w1 H1 ~4 \9 x RowBox[{"x9", "->",
+ x/ Y" E% K) [# @ RowBox[{"Data", "[",
) M# u/ x& K, O! b' r9 O. C- A RowBox[{"[", , O; Z& c. V( o/ d" e+ b8 O
RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";",
& B9 @9 ]3 E) f "\[IndentingNewLine]", ; l1 Q1 e/ R+ Y- a* q
RowBox[{
, U9 n( w5 O- m" d: T" u RowBox[{"m60n21", "[", 1 V8 v7 N& s. \( T& p+ D7 r
RowBox[{"[",
3 l* l( \9 w3 L1 ]8 [5 r RowBox[{"i", ",", "4"}], "]"}], "]"}], "=",
/ w! _# `2 K8 }% p( S y- g1 b RowBox[{"u4", "/.", 1 j* @# }$ [3 [4 Z! ?" X3 Q
RowBox[{"{", 3 V% K2 }% M% i& V. _- G, O: v
RowBox[{$ [5 |$ d2 G( z4 ]- ^8 W
RowBox[{"x1", "->",
$ Q9 z `! r% x# U, q1 i+ l5 d6 \ RowBox[{"Data", "[", 2 ]" J7 G3 b% t* c$ Y2 V
RowBox[{"[", 6 ?% k( \9 o3 n. @$ r( A
RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",",
# e9 o. c" E9 G7 e# ~! C$ a3 c RowBox[{"x2", "->",
+ U3 F- K6 F( G# j4 ?8 g' J RowBox[{"Data", "[", 7 x+ m% N" R3 N. A
RowBox[{"[",
l2 ` ?8 a# g2 m0 A RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",",
2 J7 N% R4 A0 @) [7 x0 I RowBox[{"x3", "->",
& U: P* U8 b8 `9 H; U- o. I' e6 Q RowBox[{"Data", "[",
; \# o( P$ {6 N/ f8 ^, R0 e RowBox[{"[", ; J* l6 y1 }* I! _$ t# M1 }
RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",", ! c' N. Z3 F; j' a* m
RowBox[{"x4", "->", - `( }3 S5 v: d( P- l. }; m# b- k
RowBox[{"Data", "[",
) u9 p5 w! Y9 y9 a" P* L$ c RowBox[{"[", - { c, m& s) [4 C4 ^! B
RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",",
$ w9 s& S$ E, t% s3 l& h RowBox[{"x5", "->",
# `3 e2 Y2 g. M' a K0 D RowBox[{"Data", "[", ! _( N! \2 `' {# V# O, O: U4 |2 q
RowBox[{"[",
1 H1 L" ^ j% ~5 B7 | RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",", ( s0 c0 }7 e, p/ {; j0 f3 w3 D
RowBox[{"x6", "->",
" c4 d4 q8 [- I RowBox[{"Data", "[",
: E0 y" a: z- i3 Z RowBox[{"[",
1 a6 \0 w+ k+ [0 @ RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",", 4 L0 D$ c) {+ ]# k! J
RowBox[{"x7", "->", $ D8 G' l4 g+ V) l6 ?% z# l( P6 o
RowBox[{"Data", "[",
6 ]1 n, v" l1 h4 X) T RowBox[{"[", ) u: @' ^* z% k; d5 p* b( S
RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",", 7 K5 @7 Q+ y0 I* Q: `6 V9 c
RowBox[{"x8", "->", - j2 i: S$ B0 V% a- v8 n
RowBox[{"Data", "[", , b/ x% n& x* j. T# w! ^
RowBox[{"[",
/ |$ E& r- B( j& q- o RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",", & o+ @ |( z* d4 p9 @0 s0 d% a0 D
RowBox[{"x9", "->", / P7 g! }$ C. l& Z, g
RowBox[{"Data", "[", , f) _' t; w8 }0 c% m$ l' A
RowBox[{"[",
) d- y9 P! ^/ `0 }5 j RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";",
- _/ [+ P& Z; Z+ o "\[IndentingNewLine]", ( c% J# V8 f" C4 [: `: R2 Z
RowBox[{
2 P" U$ F0 j8 M7 j9 y) V7 C' l% r5 B, C RowBox[{"m60n21", "[", # `# m3 W) ?" E0 D, v
RowBox[{"[",
; ~: n: m8 f3 g1 n6 B* W RowBox[{"i", ",", "5"}], "]"}], "]"}], "=",
" a* L S9 X; y, l2 s RowBox[{"u5", "/.", - ~' b7 E6 s8 u! k0 d/ s
RowBox[{"{", 8 K3 t, o2 d+ y
RowBox[{2 ?) d' t' [, U/ d) f
RowBox[{"x1", "->", 3 m* ^0 G- }; @" t5 `$ |* s# s! g
RowBox[{"Data", "[",
. u" _) p, m7 Y* X+ W; D& V RowBox[{"[", F0 [6 U( C; F
RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",", : b9 e8 Q( z' G4 w4 o
RowBox[{"x2", "->", 7 Z' k/ T9 }& n
RowBox[{"Data", "[",
7 n2 Z! ] ~: L7 }( @1 V9 _ RowBox[{"[", ' S# o9 T& a: i7 a F/ O7 ^' N
RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",", 9 X6 _1 w( m& Y
RowBox[{"x3", "->",
7 E4 v. F) j0 D/ q! m" H! k" k- t9 D6 n RowBox[{"Data", "[",
+ Y# N; G9 z- Y2 K- R! Z \# C3 D RowBox[{"[",
( g' v$ y3 k" M" y6 [ RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",", 0 `; ^; [/ @: d) m/ U+ Y. N! _
RowBox[{"x4", "->", * u! P. k6 G7 ]3 e! c0 c- U
RowBox[{"Data", "[",
! T- N" ~. F* z RowBox[{"[", ; s" Y+ N7 H( p, }+ O" E
RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",",
4 M& i) P5 C4 Z% j* t RowBox[{"x5", "->", $ _+ k! c$ F- N' N6 j; M
RowBox[{"Data", "[",
5 {) H1 g* x" J RowBox[{"[",
2 s" q1 s: e. f7 ~6 Z RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",", 3 _- B( u3 ~" S
RowBox[{"x6", "->", - h* i# k- S9 T# I7 r1 ?/ u) @
RowBox[{"Data", "[", % O( K* P% ?" _9 q
RowBox[{"[", * Y1 w2 ]" c2 `# O9 k+ A
RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",",
; q2 H' a8 W5 ], c1 M RowBox[{"x7", "->",
: U5 ?! F9 T" E RowBox[{"Data", "[",
- I, {9 c0 Y- R: x& w RowBox[{"[", 1 r" B0 J# y! g7 e. a1 @
RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",",
2 o3 G0 r( C# ]5 F: c8 |. ~ RowBox[{"x8", "->", 1 _8 Z Z# A6 g- X1 I( B7 c# _
RowBox[{"Data", "[",
3 _- @' {/ Q6 Q RowBox[{"[",
; p/ N3 Z" u! Z4 v. U* R" `5 ^. W% ^ RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",", 1 z6 a8 e! Q% w5 ]5 U
RowBox[{"x9", "->",
/ V9 L2 B( w- A, q4 x0 z RowBox[{"Data", "[", / J% ~$ i# O4 E+ m
RowBox[{"[", - o- E& W+ P4 \6 l9 o) D; c6 O
RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";", , T* v) B4 j. y$ P4 {
"\[IndentingNewLine]",
& D. e( A4 Z2 G) a5 [ RowBox[{4 V4 p/ F" J+ S0 s8 x
RowBox[{"m60n21", "[", * |4 c* H9 s% { c5 q; \ t
RowBox[{"[",
* M* i. y1 C& x$ _ RowBox[{"i", ",", "6"}], "]"}], "]"}], "=", 2 z! e. a6 |. F. t8 t& N
RowBox[{"u6", "/.", # M Y# r' ~) X# t. z1 v, o1 P
RowBox[{"{",
6 v% W0 X0 m8 w( b1 } RowBox[{* W9 V- f3 {' F9 I+ \5 [
RowBox[{"x1", "->", / n% X1 W& R6 F! P9 o
RowBox[{"Data", "[",
9 l1 j8 a: K' t; Q" k9 Z4 g W RowBox[{"[", 8 A# d8 [. J. F* P. L
RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",",
E: |1 K# Z* V, s; |: d( U RowBox[{"x2", "->",
7 P/ e4 ^+ Z7 x' [" e2 g6 g RowBox[{"Data", "[",
; D3 t0 B W( C) J: z RowBox[{"[",
) P' k3 k9 O* W RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",",
/ q7 B/ a/ J. C7 ?2 ? RowBox[{"x3", "->", * U% N2 y5 Q" J5 [# B, }, {5 Z! r
RowBox[{"Data", "[", 7 p4 D0 A% e+ P
RowBox[{"[", ) i: {) L( n& B/ Q# U# ]8 N+ m
RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",", ) B+ d4 ~" i0 X: M6 d1 Y6 X
RowBox[{"x4", "->",
8 Q) L r$ h5 J# h$ U" z# r" L8 } RowBox[{"Data", "[", 0 g. I& ]1 X/ O1 ^, r( K
RowBox[{"[", ) s- A7 Y2 R$ y7 L4 V5 a' V. F
RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",",
3 Y4 E6 Y4 N. s1 n) ^. T" R RowBox[{"x5", "->",
5 @7 S$ V/ X' U1 \' j RowBox[{"Data", "[",
7 h5 m: l5 r, o' g, d RowBox[{"[",
; S$ n b) ~' s4 i( J RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",",
8 I* _' T: y) t1 e$ P RowBox[{"x6", "->", 1 a4 I! H# J' u) b" r2 Q2 F
RowBox[{"Data", "[",
7 [! o D3 P) c( R) y8 w RowBox[{"[",
5 O. E$ b6 R4 }# V RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",", ' q4 ]1 b3 t- M1 y0 q
RowBox[{"x7", "->",
y3 h/ \( Q- o: ?: |6 l RowBox[{"Data", "[",
7 _/ i. B4 w/ h0 \; X RowBox[{"[", & M$ `( G2 ^4 H! ~. L5 O) n2 E
RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",", * c2 K9 c2 f( R- s9 }# u" [
RowBox[{"x8", "->",
3 D: {$ P7 J ~) J RowBox[{"Data", "[",
: i3 U/ ~# }3 a RowBox[{"[", 1 _. Y7 `7 S/ x+ X* c5 K! Z
RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",", 6 z& H6 {4 x8 o* D2 V
RowBox[{"x9", "->", " Y# h% N: v9 ]
RowBox[{"Data", "[",
4 J) H) T3 d3 R+ \8 R RowBox[{"[", : T" C9 j3 a/ k
RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";",
* F6 l0 T/ w" ?+ v( X3 F9 [ "\[IndentingNewLine]",
6 A& W% t. p! m; r RowBox[{
" M6 ?3 l( t6 P8 F0 N6 D RowBox[{"m60n21", "[", P) u" E, _# H
RowBox[{"[", $ h$ h0 n Z/ c% W
RowBox[{"i", ",", "7"}], "]"}], "]"}], "=", 9 l. k4 P5 C- e% u# l9 @6 G
RowBox[{"u7", "/.",
2 G3 }5 f9 K1 K RowBox[{"{",
, r" a/ m' Y/ C RowBox[{) ]5 Y$ O$ r6 l8 ]* z% p. c3 v7 ] Y
RowBox[{"x1", "->", ' s2 y! X- t9 R% c
RowBox[{"Data", "[",
: O! l5 b/ t. T! V0 I' F* P RowBox[{"[",
6 }+ U1 k4 j" L3 \4 S6 x RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",", + z# u# J; T4 C0 m
RowBox[{"x2", "->",
; x9 a+ Z- n! }' S. S6 C) R& [# O RowBox[{"Data", "[", & f" R: Z0 L( e2 r: }3 E
RowBox[{"[",
. t1 P! g: g8 O3 X3 Y' h, k RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",", ( K+ o8 j% y9 j! C& k
RowBox[{"x3", "->",
& c' j# G# ?' Q6 J' d! C2 |% G RowBox[{"Data", "[",
$ a& r- J& [/ a* b/ e* W2 D RowBox[{"[",
8 P1 }. C3 g9 G" j RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",",
8 }, ^; y/ }0 x1 J3 W1 A- N" D RowBox[{"x4", "->", # ]7 |; o/ M% ~- G
RowBox[{"Data", "[", * Y) B# t) P. t- b( j
RowBox[{"[", + ]$ r. o* _' |) e7 ?+ E6 k5 W
RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",", 5 j+ a% I% W. d0 j8 I
RowBox[{"x5", "->",
: a, i5 z$ A" J$ a2 F! ^) H RowBox[{"Data", "[", / H& D; I+ w+ R( {% k! Q O
RowBox[{"[", 7 F O6 T, [/ W9 Y4 o+ c
RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",", 7 I& D% p t n" U. g
RowBox[{"x6", "->", F" }' D- [+ w( |% h9 |4 _6 l" r0 B
RowBox[{"Data", "[",
: ~7 M6 p0 `2 I* J, m! t1 h RowBox[{"[",
) y+ z0 g0 E9 p' A/ A/ e RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",", ! f- k; g3 o: |
RowBox[{"x7", "->",
! x" G) c; x; y- f) p, H- A RowBox[{"Data", "[",
6 s- F1 d; w2 s; Y% v' \% q4 | RowBox[{"[", 2 T* H' \' L( x$ d6 ?* t9 D
RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",",
+ ^' r4 Q' J; m7 B6 p/ B% a; l1 i RowBox[{"x8", "->", 3 E9 Y1 I V/ A6 X8 F% s
RowBox[{"Data", "[",
; S' r. m- D9 J2 _6 }# a* X( D/ Z RowBox[{"[",
7 V9 ?& L3 f7 K/ b5 P# h1 w y RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",",
5 M; `. i. [# {6 [8 N RowBox[{"x9", "->",
# A/ z! p* q5 D RowBox[{"Data", "[", ' G9 H0 f2 f: c( B& y
RowBox[{"[", . w9 ]& U. L% R ], ?: ?! w
RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";",
; b& h8 a( ?( r0 S# O0 i9 O3 { "\[IndentingNewLine]",
4 ]4 s7 z* H# O RowBox[{
" F' K9 I6 n( Q J7 K; a3 y" n: r RowBox[{"m60n21", "[",
/ q [6 e- s$ F) x+ ` RowBox[{"[",
( O% m8 I6 v* X' `; S RowBox[{"i", ",", "8"}], "]"}], "]"}], "=", 9 [' D( F- Z5 u3 {
RowBox[{"u8", "/.",
- O1 B5 V# L% |8 _+ e RowBox[{"{",
9 B6 R/ U! @' N& p$ C RowBox[{: C# |* d% b# n0 r6 o1 F6 I
RowBox[{"x1", "->", 0 c1 }3 r/ F, M2 Y% R
RowBox[{"Data", "[",
8 D# ?" H, j5 H, s/ y3 P RowBox[{"[", # r7 {! S! i& D+ m
RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",",
2 X& J. l( `$ q4 J5 p RowBox[{"x2", "->", , G; _" r9 H6 K/ ]$ p" }% D
RowBox[{"Data", "[", , @7 K3 A' D* z
RowBox[{"[", # l. L- f; W% t' Z2 r
RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",", : {# ?) M9 l7 H* h5 ?# S
RowBox[{"x3", "->",
& F$ i. e% f7 f$ C/ M2 P RowBox[{"Data", "[",
+ z, o1 U: t' R4 o8 ?7 C7 u RowBox[{"[", $ m8 T1 ?" K& f; b3 \% o
RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",", / B/ y M& R$ i- Y
RowBox[{"x4", "->", 8 Q( w3 b% _- s
RowBox[{"Data", "[", ) m- X& g% Y2 E( |- \0 J3 d; g2 i+ ?, N
RowBox[{"[", % O- U1 ~3 H+ N8 w) p: m( T. p" f
RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",", ) z* j' s8 O2 I! b% R
RowBox[{"x5", "->", ! X) `1 S( k$ F/ ?0 ^
RowBox[{"Data", "[", , G7 F6 D$ I# |+ ]6 h
RowBox[{"[", 3 q: s5 j8 T& d
RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",", . R$ A% Q' j( ^( h. A
RowBox[{"x6", "->", " X d2 U: O; ]: b
RowBox[{"Data", "[",
3 E2 ^% q1 s5 I# |! j. ]7 [6 v RowBox[{"[", |# I" `" c$ X) q0 u: v7 T
RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",", 6 l% s: T3 ~, f6 i( z
RowBox[{"x7", "->",
, p4 x$ M9 \: ^/ H RowBox[{"Data", "[",
8 b3 [2 D1 v2 } RowBox[{"[", ( G3 k/ O# U3 p( [& ]8 I
RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",", 1 I) z4 V! ?1 o4 u. r5 G- \4 [
RowBox[{"x8", "->", 6 g- H" g% R8 @! G. A, s; R' D( H
RowBox[{"Data", "[", 3 r+ y1 A/ z: `; C- c1 x1 y
RowBox[{"[",
" z& E0 \" G; b0 Q$ b RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",", ( S! o# ?8 G) F% m" d5 n
RowBox[{"x9", "->",
; F3 f: c1 ?# ]) }- T7 j0 f" g6 ^ RowBox[{"Data", "[",
; |0 X: F/ w/ {1 o% g4 ]6 b RowBox[{"[", 7 ?/ V: [( V6 I7 S
RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";", 2 A3 I6 x# H7 M6 A: l1 a2 A; S
"\[IndentingNewLine]", * l; b7 A* L- |* _ [+ G- n
RowBox[{
/ d }9 ~' h8 Q' g1 Y RowBox[{"m60n21", "[",
" H" ?- y( [. T. ]* g1 @# K1 G RowBox[{"[",
) x) W# e* n8 M: j8 i; I2 ` RowBox[{"i", ",", "9"}], "]"}], "]"}], "=", 3 u0 d$ O) N8 L. S) f1 t
RowBox[{"u9", "/.",
# ^" f- t' T4 g7 R1 g$ H/ P# ^ RowBox[{"{", ) b/ ~, E# C1 q6 g0 B1 }
RowBox[{! [8 O" [, y1 t& A
RowBox[{"x1", "->",
3 l( O4 A$ A7 v+ Z0 Z" P% n RowBox[{"Data", "[",
t1 v1 [& \+ Y9 @$ e RowBox[{"[", ( H5 t, F) \, p! O& b7 e$ ~( T
RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",", + V7 w! @! d+ e e, ?5 w
RowBox[{"x2", "->", " @* a2 v% v' Z7 ], u
RowBox[{"Data", "[",
) H6 _0 g9 H" P( Z( _" X RowBox[{"[",
0 g& V: Y& `, [; w RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",",
; a* t8 c/ a% Y RowBox[{"x3", "->",
9 A# `5 y2 v8 F6 K4 e RowBox[{"Data", "[", : C5 ]% h/ D, M* u% l/ i" D
RowBox[{"[",
4 C" R$ B, z1 g( o3 ?* `5 Q RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",",
& `* d0 }' }$ g5 K6 n$ B RowBox[{"x4", "->",
+ C9 T# b; T0 f9 g4 w* i2 l/ f RowBox[{"Data", "[", 5 P& A# {( V- c" J2 i {5 r
RowBox[{"[", 9 E0 l/ T. L# k( g+ O
RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",",
' @8 O- u$ a4 m) p4 q1 K* J' k3 j RowBox[{"x5", "->",
- Y/ v( g" k) y( X; l# |9 } RowBox[{"Data", "[",
" L b# c% F- y1 I6 M RowBox[{"[",
9 R* \# O0 p" v P8 L& j' }& a# t5 C RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",",
9 [5 V$ G. K w% ?1 e RowBox[{"x6", "->",
" X5 L1 Z5 V- X& i RowBox[{"Data", "[", : P1 H; a5 ?; A' g* N# I0 @
RowBox[{"[",
( i" X/ {3 O f( Q7 B5 x% ] RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",",
/ I' k8 ^- n ?, \, O4 N RowBox[{"x7", "->", 5 e* X3 M. S" M1 L/ U
RowBox[{"Data", "[",
; n5 E/ {) V! R RowBox[{"[",
% U/ d' v3 ~' Z7 O1 {. ~4 j RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",",
, \% D7 H" A1 x F5 I/ m RowBox[{"x8", "->", " d1 p$ @3 {' e, \2 f# g3 g
RowBox[{"Data", "[",
8 ~6 ?6 x; s3 `! f( C* D& S RowBox[{"[", 1 ~0 E9 M$ l. K4 M/ D0 U* [
RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",",
/ Z( W& F q0 N% J6 a1 j RowBox[{"x9", "->",
8 O9 S5 U: i; R( r; z2 E RowBox[{"Data", "[",
! d4 F9 q1 z" e RowBox[{"[",
. E' T! b. A3 K! X RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";",
" o, a: S+ ^) i- i "\[IndentingNewLine]",
W& F0 K9 K! x! w. P- i; \* F RowBox[{
: L- Y$ A- \+ G4 g RowBox[{"m60n21", "[",
* G+ ~, O$ f! q% R2 I- g9 Z RowBox[{"[", 6 E8 E! N; w+ D' W' C x6 [) X, w8 d: J
RowBox[{"i", ",", "10"}], "]"}], "]"}], "=", 6 D9 \ d7 N/ [2 p! Y- b
RowBox[{"u10", "/.",
2 |5 r# N) E) N2 E. o2 o RowBox[{"{", & j5 |" ~! ?, E* j0 f
RowBox[{ \( l* p- S' U, s# C6 M
RowBox[{"x1", "->",
# _7 c% S/ R* N6 O" P. E RowBox[{"Data", "[",
3 D1 K- [0 L" c" g RowBox[{"[",
' G. n1 u% t D0 X2 ^' \/ l# o RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",", ( O& p, `/ y8 ^: m; T
RowBox[{"x2", "->", ' u( {; y1 C' b. y9 a
RowBox[{"Data", "[", 6 p5 p9 x) x* [6 j; W- e' H! j
RowBox[{"[", ; p& o. e5 V# I
RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",", & B" |7 O) e# g' I+ o; E4 {
RowBox[{"x3", "->", P9 h! F' ^& W# `( U% j
RowBox[{"Data", "[",
/ t- {/ N) d: u3 y7 E" ^& {8 r& S RowBox[{"[", & w# d! O* _* g
RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",",
3 N+ S% @, c6 ^ RowBox[{"x4", "->", + \" d: ]" q- Y9 H
RowBox[{"Data", "[",
2 }+ ^0 m) s3 B RowBox[{"[", % I5 e, M. u z S4 i6 W' `
RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",",
% E* c0 K9 f% d RowBox[{"x5", "->", 2 j/ ~. _4 D* o/ {
RowBox[{"Data", "[", 5 V+ e+ d; d, U! s* J
RowBox[{"[",
: u3 ^1 n" |7 [0 x$ l7 N- b2 c RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",", # r+ M2 Y: T# F- E- A
RowBox[{"x6", "->",
* C0 Z8 R' y$ Y" {" a RowBox[{"Data", "[",
& { ^7 p# ] z7 h/ ] RowBox[{"[", ]' p( S. t N
RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",",
1 G( g, y+ ?. Q2 Y" o$ w RowBox[{"x7", "->", % Y0 ^8 L b9 C' Y3 S& N) [( b
RowBox[{"Data", "[",
4 q6 i. {3 n. m- g RowBox[{"[", $ o4 V& d/ J5 q! |8 f
RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",", & V! u: a# Z A! W# _2 }- P
RowBox[{"x8", "->",
. j. H' v8 H6 b5 y, l RowBox[{"Data", "[", - E4 t" [ X, }% I% ?& }/ T& X
RowBox[{"[",
8 x, Y$ n5 Y. a RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",", ! b T' O* W: ^3 \( k' D
RowBox[{"x9", "->", ; [8 U3 F2 \7 {. D1 ~
RowBox[{"Data", "[",
% F/ r. v4 n: X RowBox[{"[", - Z5 l! v. k+ W$ o( b
RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";",
. U$ x( f/ x* b "\[IndentingNewLine]",
# |- Q% A8 T! N9 I% r% Q; Q RowBox[{
6 v' O/ J/ |7 {' O* b) p RowBox[{"m60n21", "[",
# A u, ^+ W4 E7 X RowBox[{"[",
I8 B6 G% L; {; t RowBox[{"i", ",", "11"}], "]"}], "]"}], "=", / T4 J6 h2 A; v7 R9 a: Q8 n
RowBox[{"u11", "/.",
& @+ S- |9 b; l8 Y* u2 y RowBox[{"{",
( G4 E. `8 x( z" u RowBox[{
8 }8 m- B% u& h. _4 E1 L- M2 q* G RowBox[{"x1", "->", + m# o, w" {0 r: \1 k2 H
RowBox[{"Data", "[",
- Q( L" d( c6 }0 ] RowBox[{"[", + i/ \' g' K" T, {
RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",",
/ J0 P8 g2 I' i% i) H8 b+ Z RowBox[{"x2", "->", % l1 x, y% d9 l4 b
RowBox[{"Data", "[", , B4 v; f$ D, X. e0 b+ ~5 k( Q' d( t: j
RowBox[{"[",
1 {7 J/ R0 z! G. E- ?) N4 ^ RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",",
0 a; Z7 A/ I; r5 {. K& w6 O# H2 A RowBox[{"x3", "->",
+ F2 A Q! t5 J6 l# b RowBox[{"Data", "[", * O) X. }* N! N5 t. ^0 g' {
RowBox[{"[",
3 K5 C |- w" H! O* V5 S RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",", 2 v! w* |4 W0 u: m: V, K
RowBox[{"x4", "->",
1 ^' E. I S! o5 e RowBox[{"Data", "[",
2 N6 y0 s) k( V# r RowBox[{"[", ( p, f$ u: U f0 O4 Q) z
RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",",
& m. ?) Z+ K: ` RowBox[{"x5", "->",
2 U6 d+ F' K. @* x* p' g RowBox[{"Data", "[", - K/ @ V7 q: ^+ z
RowBox[{"[",
! r- B+ m$ y8 i/ A6 P" x RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",",
0 v1 U: J0 N! N/ g' I) ~4 `5 I RowBox[{"x6", "->", - v( j5 t0 ~% `# L; h6 _2 k
RowBox[{"Data", "[", * X8 s9 ?+ t; e9 f: x& s1 ~$ P" R
RowBox[{"[", 2 H8 c9 _7 c$ ^- c' w& I0 b; S, ]
RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",",
( A& d1 F, L) }% a4 Q: ^3 T* ` RowBox[{"x7", "->",
( _+ g( ^* L( w% ] ^7 Y$ b5 Y# J RowBox[{"Data", "[", & s; u1 r8 K6 f% k9 `3 N
RowBox[{"[", 9 u; H. {, Z- R e
RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",",
c7 t. B }& I2 R q RowBox[{"x8", "->",
; i/ s5 `8 v) a' W1 e2 W: }4 ^1 X RowBox[{"Data", "[",
' V4 m$ v7 ^- q8 Y3 t RowBox[{"[",
' O+ v3 L; y# R RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",",
3 y& v8 ^1 s- i RowBox[{"x9", "->", + u8 L/ ^/ ~, N/ w( P
RowBox[{"Data", "[",
2 X* f1 r$ e) ^ q RowBox[{"[", 1 g: Y: y# u6 V) i; m, a
RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";", ! ?/ B. \/ F( ^& u; L8 _( x
"\[IndentingNewLine]",
* a) O, {5 k; X& G RowBox[{: ? m2 r8 o* H; O5 O! [
RowBox[{"m60n21", "[",
4 C, B, u, a3 ^1 L( S+ Z RowBox[{"[",
, e- u! i; w6 k/ C RowBox[{"i", ",", "12"}], "]"}], "]"}], "=", 1 o& A M! E" k7 n" D" ~
RowBox[{"u12", "/.", ; X6 I. J# Q/ o( P3 q9 s! o2 @
RowBox[{"{", " `; @. o+ y' v( \
RowBox[{. B8 ^2 M* x/ o: s1 p$ \0 T& t9 M% s
RowBox[{"x1", "->",
# m6 ]- b& z* `1 R8 a RowBox[{"Data", "[", ) ^( Z/ s% R2 f. h
RowBox[{"[",
! O- Z% P y( q/ Q, ^3 [! V RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",",
l4 _3 |0 l$ C7 O RowBox[{"x2", "->", 0 u% F% X9 B& _4 s
RowBox[{"Data", "[",
" f' ~* W! e q% D6 W RowBox[{"[",
5 F& U6 R% _, E/ }& r5 Q4 P7 C0 I RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",",
7 u6 \! |% t! F8 W6 Q RowBox[{"x3", "->", 1 ~; Y) G$ j9 i; p6 P2 B: p' I
RowBox[{"Data", "[", 9 `; L+ A* ~6 a2 L/ F9 O" {
RowBox[{"[", & N- Z1 f' ^3 q$ P8 P. Z
RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",",
. t* D4 {+ T8 O) d RowBox[{"x4", "->", * g+ k3 k' c/ d, Y6 m7 P
RowBox[{"Data", "[", 7 f# G+ W* f- H8 F1 t' i
RowBox[{"[",
8 {$ d! E( o( u6 R% j% `# z0 L RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",", ( t' g0 Y {% p) Y: q# V, j
RowBox[{"x5", "->", 1 u( E; `( d8 M, B, a
RowBox[{"Data", "[", ( M$ S( A. B6 T0 w+ D; }
RowBox[{"[",
& D) j8 P& p3 x2 P" M3 F: e# s RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",", 5 a$ D: I l' \1 K+ B
RowBox[{"x6", "->",
, |& d/ ^2 {& p. a# K RowBox[{"Data", "[", % o$ x+ W* K" N! Y8 N
RowBox[{"[", 6 M3 r J, _, I
RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",",
$ f) I H3 n: g( G3 d RowBox[{"x7", "->",
m0 x" x( p! i2 C' ` RowBox[{"Data", "[",
" G- L; l6 U* M3 y1 s% w RowBox[{"[",
, ]/ E( t( i3 N0 O) h RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",",
& R9 @ A- ]7 s$ B: X5 k8 t" f RowBox[{"x8", "->", 5 k M% I+ K; ?% @* R
RowBox[{"Data", "[", - e% L% U6 u1 }- b- P4 a; v
RowBox[{"[",
# _% e8 b& ]5 B5 k2 c RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",", ; i' z( u) |# ?( g
RowBox[{"x9", "->",
2 J( C1 P4 I4 y5 ~4 F RowBox[{"Data", "[",
* r$ |" n9 j) q) j' {, O) s s RowBox[{"[",
$ q# t$ s$ I& B% k+ v4 I; E RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";",
2 y r$ a) ~ y; J "\[IndentingNewLine]", p) N" O0 r3 W4 j
RowBox[{
+ h+ u4 `) i0 d* r2 \# H% ` RowBox[{"m60n21", "[", $ m; e# S- ^3 E6 t# c: z( D0 }
RowBox[{"[",
0 @5 R6 g, L, L# a* x5 i RowBox[{"i", ",", "13"}], "]"}], "]"}], "=", ( C7 u- @. U" J! {- J* @% n4 E! f
RowBox[{"u13", "/.", 1 _: K2 B& [$ X$ ]$ O0 f" I' V8 ?. V
RowBox[{"{", ' v4 T. e2 K2 d! G$ {5 F8 l P
RowBox[{
+ Z7 B. @6 d( S O6 `5 @ RowBox[{"x1", "->",
0 @; \9 S. `2 l+ u+ ^ RowBox[{"Data", "[",
; e( N" I" `" L4 g. u$ L- K4 k. S, J RowBox[{"[",
0 J/ L$ w3 \% S0 s5 s% v$ h RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",",
3 a/ h6 m2 D; e% _& q: g& m' y; p RowBox[{"x2", "->", ( V( ~2 `. [. a% W7 q- J/ @
RowBox[{"Data", "[", , y/ i- c& \( ]9 e5 ~7 L' x
RowBox[{"[",
. E1 F9 S$ ~' _/ s% X; G8 Z9 u* V RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",", 1 N9 z6 r3 X. W
RowBox[{"x3", "->",
: Z8 a. S8 i0 v3 i RowBox[{"Data", "[",
Q6 H" I. U* V4 Z0 W+ U& M RowBox[{"[", 3 E; @8 h4 a* e
RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",",
6 r7 h$ U: t7 d' t; C# w RowBox[{"x4", "->",
# O$ Z+ a7 a6 B6 i8 [4 K" r RowBox[{"Data", "[", 2 ~* u; D% s* N4 _7 K, ?! a* \
RowBox[{"[", ' {$ r Y Z# t/ t3 @5 y/ c
RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",", - K8 l, m3 a' t; [
RowBox[{"x5", "->", 0 L* A/ s( M7 s' }4 }
RowBox[{"Data", "[",
5 |- \' i3 S: q7 O2 |) b* ^1 K* ` RowBox[{"[", ' {. k" [$ `# R& I) T+ z. v& j8 B
RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",",
- Z. }& x8 s3 k, `* E1 R L RowBox[{"x6", "->",
: t1 s: T* Y- B' a" b, J, V RowBox[{"Data", "[", / p( l9 \' Z* d' B; ~2 R& K
RowBox[{"[", 4 e( o R: n4 w9 J5 k
RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",",
4 W6 J0 ?. L# V* f8 A RowBox[{"x7", "->", + I0 Y8 M J2 P F+ X
RowBox[{"Data", "[", & l9 Z- z d% A/ f5 z C2 ^/ v
RowBox[{"[", ) h1 F4 S6 ?9 j) ^" P6 Z7 S& Q6 c
RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",", # S. p* V# {# p# ~; w `+ M' p
RowBox[{"x8", "->",
# P" l3 M, s3 \" j* c& @3 Q RowBox[{"Data", "[",
F9 F6 K0 W& l* k2 V RowBox[{"[", 8 E t6 P& x1 a
RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",",
) s( N! h* _1 o1 x! ^ RowBox[{"x9", "->", % @7 M4 E5 t$ y8 D ?. S: |
RowBox[{"Data", "[", : K: b; I% Q8 h! n: j+ \5 a
RowBox[{"[",
# S, R! x( p! [0 Z RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";", 3 Y7 m5 Z0 A) L( j
"\[IndentingNewLine]", & R0 ?& @ w: {
RowBox[{4 s+ j3 Z, c6 I# Q% J* u- a9 k
RowBox[{"m60n21", "[",
0 j' J0 W$ a' s2 w RowBox[{"[",
# i0 [* C% f/ A( }7 i RowBox[{"i", ",", "14"}], "]"}], "]"}], "=", : A7 \; G* @. M+ W. j( i, ?
RowBox[{"u14", "/.", 9 C, ^8 t% w7 Z% @& n" B6 X
RowBox[{"{", 2 w: `/ J* r s5 A$ o1 G P
RowBox[{
7 X2 M1 m/ W9 a+ s; C RowBox[{"x1", "->",
# D0 K- m3 G1 I9 M RowBox[{"Data", "[", . l- `1 ^& i9 W. W2 ]) D5 C
RowBox[{"[", 1 J( n/ ?3 F; K0 K/ w+ x
RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",",
* S6 J0 H% H6 H# R) ~& f, U RowBox[{"x2", "->",
1 |' F% ]$ s( N) \( l2 X RowBox[{"Data", "[",
% H2 _- d' V" T$ A5 q7 r/ t9 _: H1 D* v RowBox[{"[", # h2 _) K/ n0 z S$ n2 w
RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",", 7 Q2 `" @# t" H
RowBox[{"x3", "->", " u- H% h C2 ^# k4 X+ b2 n
RowBox[{"Data", "[", 0 C. ]3 m/ S& W6 [0 w
RowBox[{"[",
: B# z# B5 ~- K5 b7 I RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",",
' i `& C5 |/ B, V1 I- L! f RowBox[{"x4", "->",
3 ?2 Z$ h. h( C: [ RowBox[{"Data", "[", ( Z; c! X2 T: F1 `# T
RowBox[{"[",
' g# @, t) o" w; L8 B RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",", + j2 j5 d* T# o: G5 M$ W" q
RowBox[{"x5", "->", / |' Z6 v- R* _! g$ k) q
RowBox[{"Data", "[",
" B9 a$ \ @. |, t: ] RowBox[{"[",
3 K" {1 w. R& \9 `! S% { RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",", ; @0 N1 ^3 `7 ?( b& |2 y S' U t5 F4 ?
RowBox[{"x6", "->",
$ c7 L1 i. G } RowBox[{"Data", "[", " q+ s9 k* N" h w
RowBox[{"[", : q1 _7 Q4 B+ }* t( r. v: r
RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",", : f4 r6 }+ P" [$ ~
RowBox[{"x7", "->",
5 j' y+ p6 [. y( e: B RowBox[{"Data", "[", ; p3 s# P0 }8 w# O" M# t2 p
RowBox[{"[",
0 `1 s" P$ \) v( M+ R RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",", / i1 G' }, K5 s- k5 Q
RowBox[{"x8", "->", c3 W! J/ H6 s( ?) U3 ~: U/ }
RowBox[{"Data", "[", 9 l! D- ~/ U! i& ?* @7 ~* E: n
RowBox[{"[", ' }: P3 ~: D+ x( a
RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",", 5 j% D& A8 Q3 q" w5 ]0 N
RowBox[{"x9", "->", 8 m3 I% f& L) h" R: m
RowBox[{"Data", "[",
: T3 m% V7 J6 O RowBox[{"[", - V3 [# R* `2 u8 `5 ^6 Q
RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";",
2 J9 y( L8 d5 O* Y- A2 K$ S5 P "\[IndentingNewLine]",
- u2 d! Q0 Q9 a% Z2 P+ ? RowBox[{
; O' a F. g+ @9 ^+ A$ E RowBox[{"m60n21", "[",
6 Z( X" ^2 Z6 B2 n, g RowBox[{"[",
" D. K- t2 I" n RowBox[{"i", ",", "15"}], "]"}], "]"}], "=",
1 m( l0 W$ |0 K. W; ^! p RowBox[{"u15", "/.", 4 J! @- i* o" A3 h* [
RowBox[{"{",
6 p' ^- m9 r8 G0 O8 H" d RowBox[{$ e1 t& B' R4 x! i0 S
RowBox[{"x1", "->", 2 i% f. z' G) {2 X5 I9 Y
RowBox[{"Data", "[",
) i1 V# W, \" f" R- F. d RowBox[{"[",
; b9 D5 v! M9 m/ `( R: n" u RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",", / \! k6 m4 h, b/ C- J. o" x
RowBox[{"x2", "->",
) h2 W& ^, X1 Q4 T7 q RowBox[{"Data", "[",
" d9 r/ G. _( w5 Y RowBox[{"[", # F1 c& Z, u% j0 Y9 S
RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",",
; l, [6 i. b8 J/ k) ~4 N& A RowBox[{"x3", "->", 6 j5 M1 r0 }# \* R2 P0 r
RowBox[{"Data", "[", 0 y; w* L4 \+ b* V( Q
RowBox[{"[",
, }8 Z* S- b0 b' c' e RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",", : W# P+ D- a. {/ G0 |
RowBox[{"x4", "->",
& M: F) W0 y- [7 G RowBox[{"Data", "[",
2 o! N8 W6 X6 w. V RowBox[{"[",
0 n9 s) Q9 i, ]7 S RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",", 6 ]$ ^* c7 F6 ]( b9 @4 d; B
RowBox[{"x5", "->",
3 C: s. B" c/ a% R! a! ^% y+ b) c RowBox[{"Data", "[", 5 _9 ?( O; c e' e0 a: I$ O
RowBox[{"[",
! @, k; |" V4 X$ n RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",", ; m' `9 t% T, E
RowBox[{"x6", "->",
& q5 s9 X1 \0 G, t/ ~! A! Z6 U' J RowBox[{"Data", "[",
' }7 \0 e4 a# `4 V; e/ i RowBox[{"[", + g% a7 n# h* {0 k5 A/ Q
RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",",
# j# `& X6 l5 `$ N RowBox[{"x7", "->",
) J. B( [6 ?! l* K5 x RowBox[{"Data", "[", ; p7 Z t+ @) b: s
RowBox[{"[", 8 d1 q1 U. e* `1 n+ h) O! y
RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",", ) |! t7 s: L6 j
RowBox[{"x8", "->", 1 J& f2 U# Y$ H% P
RowBox[{"Data", "[", 5 O2 Z6 O) P- j/ ?3 r5 O" e1 _) g
RowBox[{"[",
$ C2 f' d6 L p2 M G RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",", / E) B, ^* A8 j: [! j5 X
RowBox[{"x9", "->",
, z" [- o% z; |, C RowBox[{"Data", "[",
9 N! @+ Z8 x/ F# X# M$ C" [ RowBox[{"[",
' q) S0 l3 f4 e" B, [7 R7 q3 | RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";",
8 S$ V$ O7 d p+ i4 h& n+ U "\[IndentingNewLine]", 0 ~6 Z6 ?$ r' e, k& {
RowBox[{1 ~3 s2 n) o' H9 C4 U5 }
RowBox[{"m60n21", "[",
7 ?8 Z9 v' k! p1 {+ ~/ d RowBox[{"[",
u- z( z( M3 [2 x' B$ u8 w" y* ] RowBox[{"i", ",", "16"}], "]"}], "]"}], "=",
5 W' n5 X5 S$ j& W3 }! z RowBox[{"u16", "/.", * u6 H7 y8 O; W/ k( `5 m' ~
RowBox[{"{", }! `4 T8 G! g% F
RowBox[{- p$ o. E0 w* j" O9 p
RowBox[{"x1", "->", $ x+ Y: V+ x& E5 V( n* a& r6 k! X
RowBox[{"Data", "[", : C1 i" R& Q# Q K' c% C& x
RowBox[{"[",
" s- z1 Y( Y. f6 n) L, j( e5 [ RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",",
) m- Z6 _6 F( W& W- z5 d RowBox[{"x2", "->", : ?% l+ y% d( g. e. w
RowBox[{"Data", "[",
; K; p' n: F& ^8 e" A RowBox[{"[",
! J& C8 H& U4 I7 Q4 { RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",",
7 q6 u# k h2 j/ `1 Y* h RowBox[{"x3", "->",
' V3 N u3 h7 G RowBox[{"Data", "[",
/ L4 d+ L) ]4 x9 i; G RowBox[{"[", 2 A- q# P, S' y8 f" ?6 V/ r! s/ Y
RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",",
& F2 c2 `" T7 } ?+ K/ g" M- h RowBox[{"x4", "->", " ~) F1 L% c+ \% W K4 M1 q
RowBox[{"Data", "[",
3 w1 S7 A* w0 p Q6 q3 U( H& s RowBox[{"[",
9 F5 ]3 O" m3 x$ ?& c9 s RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",", 0 g$ M7 P' {6 L' ]$ L
RowBox[{"x5", "->",
1 X3 R" n1 x4 {8 A) a RowBox[{"Data", "[", , m9 j1 _( p4 B" i
RowBox[{"[", - r0 t/ o/ R8 T
RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",", ; ~6 y9 n7 ]8 P; f6 O
RowBox[{"x6", "->",
7 v, F9 F1 ]- e' H RowBox[{"Data", "[", ( r8 e: ]9 {; d5 m$ m$ z3 u
RowBox[{"[",
# `( R5 I, _- l! T6 g2 x9 {/ g# n RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",", 5 c0 ?! G4 y+ a$ I" V- h) |
RowBox[{"x7", "->", 0 |4 b: S' k6 K7 `
RowBox[{"Data", "[", 8 i4 ^1 p% Y6 W i) g
RowBox[{"[",
/ E4 w' U6 X I* E9 ~) }1 X RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",", / d" m1 @# P( e
RowBox[{"x8", "->",
0 f& o2 d7 O$ u4 T! C! Z* Z RowBox[{"Data", "[", * |9 b% Z8 g9 z
RowBox[{"[", S1 K' ~) v z0 h8 g- h; C2 a
RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",", " m4 L6 \: `9 q2 k+ M' h
RowBox[{"x9", "->", / d1 ~& E7 I+ K n2 [
RowBox[{"Data", "[",
; r0 t3 v8 P# Q7 v RowBox[{"[",
9 R' f. ^' Z: M8 F; C: { RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";", + r4 D7 D3 W9 o, s7 m* c
"\[IndentingNewLine]", ) t4 W' h3 z" a F
RowBox[{
5 A: K/ u/ P5 _ RowBox[{"m60n21", "[", " }8 [$ F5 g. z5 @
RowBox[{"[", ) H' x/ q7 y0 i% L' a o
RowBox[{"i", ",", "17"}], "]"}], "]"}], "=",
4 E {5 [+ Q: @5 f: n0 p7 ] RowBox[{"u17", "/.", ; ^+ }2 r# a; ?0 i
RowBox[{"{", 0 q$ Q9 @# P) S
RowBox[{
( K) N: e( f( ?( c* z& g RowBox[{"x1", "->",
[* |1 `/ _0 ?. F& T RowBox[{"Data", "[", , f8 `3 u% F8 N, N& C
RowBox[{"[", , K8 S' ]% B5 R' H% i7 ], F- V! E
RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",", 4 g% I- {* d2 V! x9 K, [
RowBox[{"x2", "->",
# F# U& V6 E7 P4 s! C% U5 ` i RowBox[{"Data", "[", 0 k: X2 i7 L7 y0 ^
RowBox[{"[",
, t. R# c1 i( S+ K/ l RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",",
; o: z5 X/ A8 _) N! `+ Q& o RowBox[{"x3", "->",
, u& X, s1 c% \& n q$ p- M3 ] RowBox[{"Data", "[", 9 h# T+ o- c, s2 C
RowBox[{"[", 3 b, F; h9 A% B9 r# }
RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",",
) I* v0 ]8 p, ~7 h9 i9 ]( y RowBox[{"x4", "->",
& S! }4 ?# Z6 ^- V" v' }5 j RowBox[{"Data", "[",
2 M! D* n& i1 ]3 Q RowBox[{"[",
. R' ~; t- e$ u. d8 q8 G& |6 W5 p! a RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",", * c( R+ C( S5 s% z
RowBox[{"x5", "->",
0 s% t. `( [* b3 @ p% S6 x RowBox[{"Data", "[", " N- @6 a0 F- C9 P# z
RowBox[{"[",
: I( ^! e" g9 ]. | N6 N& z RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",", : A* N: Z1 ?; H4 u: G) K+ p: ?
RowBox[{"x6", "->",
7 R1 I+ |# f% D0 L# B& L4 T RowBox[{"Data", "[", , V3 k( l! F* {1 ^* p( Q- W' S
RowBox[{"[",
3 M& x) W! o; A" `4 o( {: b RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",",
T/ x$ D& e! [ RowBox[{"x7", "->",
" G3 f" c6 J& ~8 q RowBox[{"Data", "[",
. }, l* h9 q% p! R( i4 S: }8 k6 Q RowBox[{"[",
! X; B8 N' b5 H I/ ~! b- n/ L RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",",
/ ^' ^+ L) V' p, \ RowBox[{"x8", "->",
0 L! Y( M5 `) z RowBox[{"Data", "[",
+ r5 a& U$ d* W RowBox[{"[",
+ Q! E7 o9 N" c2 g RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",",
l' Y6 V3 f9 Z: J6 R6 R RowBox[{"x9", "->",
. J. ~& ^. D4 y7 \6 l- D RowBox[{"Data", "[",
1 { X" u, `! O+ S RowBox[{"[",
& X" A2 f3 v: u* Q7 | r RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";", 0 C- j% d7 e# e6 F! A6 n
"\[IndentingNewLine]", ; f9 i; S6 R6 Q9 W) b( p
RowBox[{
- W# U2 K# A3 x7 S9 `! T+ B RowBox[{"m60n21", "[", * L. t! y; k+ q
RowBox[{"[", ! p5 d5 K' R/ x. r8 q
RowBox[{"i", ",", "18"}], "]"}], "]"}], "=",
7 v; c5 `' h* Q! l( k: H RowBox[{"u18", "/.", # y! ^' X7 y6 X- n
RowBox[{"{",
; b5 h" P+ b$ }& i: ^1 y2 X' ~: t1 s RowBox[{/ `1 U6 ]1 b8 }
RowBox[{"x1", "->", ' z8 Y4 R# r! F, l
RowBox[{"Data", "[", 1 ]4 N9 }3 _3 q+ K
RowBox[{"[",
. r# J. V* ?6 Y+ b7 S4 s' f, f) s RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",", . U+ ?5 M4 T& o) f, B7 H
RowBox[{"x2", "->", ! [# I$ f; \4 D5 e8 @8 T
RowBox[{"Data", "[",
# k( g1 l/ _: z9 I; M6 s' [6 b RowBox[{"[",
4 R/ Z n/ D- q RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",",
2 \4 t. T. [. O3 U: W RowBox[{"x3", "->",
0 F. e- l/ d. v RowBox[{"Data", "[", + ]; ^( b% n& J8 U
RowBox[{"[", " M7 g. e. M( n. [( U% H
RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",", 1 n( |2 u! ?# g2 k
RowBox[{"x4", "->", # P, K7 b7 r( k0 W
RowBox[{"Data", "[", 7 r: G7 I* e' S& p k: l
RowBox[{"[", # p2 U" m. i. p$ `" z
RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",",
% W# W& l9 H" N2 A2 L% g0 \" v RowBox[{"x5", "->", , |: B2 B- {: |5 i% [9 n% J9 C
RowBox[{"Data", "[", ) ^# d7 D6 O; r9 v; J9 ^
RowBox[{"[", 7 c* X& _* h% Z* `- W) ]
RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",", 5 j; h7 T- v3 ? q
RowBox[{"x6", "->",
9 P# ^" r4 N2 V; q* T2 j RowBox[{"Data", "[",
1 P6 }) x4 `, D6 s, p$ x RowBox[{"[",
5 k. k! h- o& E0 L; e RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",", 6 C: h/ ^2 }/ M/ Y( v8 \4 J/ Z' D, |
RowBox[{"x7", "->",
; i) Q. s8 N; V+ L8 s6 P. m* [ RowBox[{"Data", "[", : S; f* e2 G6 l& m; g
RowBox[{"[",
6 s$ L9 [0 b, ~6 A RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",",
- }* S$ i2 W0 T5 K- [* c. Z# d RowBox[{"x8", "->",
4 \2 k% d2 L" F5 g& P9 t7 {( F RowBox[{"Data", "[",
0 c; s+ `6 X4 ]' l! G7 S RowBox[{"[",
1 h# ~; I- O+ D3 t RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",",
" s6 Y$ r8 z" I1 f w RowBox[{"x9", "->",
$ q7 p7 M& b) v, A/ J RowBox[{"Data", "[", 9 i1 D6 r+ f* T5 K
RowBox[{"[", : d" Z4 C, u0 H
RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";", & K+ n- C) G' B# S# R- r; t/ K3 E; V
"\[IndentingNewLine]",
9 H ^7 K- Q6 o RowBox[{
% D/ [" h; |6 r1 x; s5 X RowBox[{"m60n21", "[",
@; a# c: a& q4 o9 g [ RowBox[{"[", 8 L. Q5 T, E3 i) ^$ U: m4 |- ?
RowBox[{"i", ",", "19"}], "]"}], "]"}], "=",
5 A( {6 y% h+ c. V RowBox[{"u19", "/.", 7 @2 ~$ T7 k% F
RowBox[{"{", ) o. j: x; w" ^# {
RowBox[{! X6 q! L+ i7 n7 g! E! S. A
RowBox[{"x1", "->",
( L4 a6 l7 ]1 b: O4 A% X f! u' I; u RowBox[{"Data", "[",
. H+ A* z3 A$ k( ` RowBox[{"[", ( P% S. V8 d. {$ @4 c
RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",",
6 L; l' A3 }2 z$ G- R; M& t V2 ? RowBox[{"x2", "->", 6 a9 g- S) W {* s
RowBox[{"Data", "[", ; v8 ^/ e" _9 \7 r1 J& N0 I
RowBox[{"[", : t) ^ O5 r' l7 w
RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",", 9 N" j& }9 i4 T1 p, B. G
RowBox[{"x3", "->",
6 A+ M( x" e. d2 V RowBox[{"Data", "[", ) _* b8 m5 Z! B* C! O6 [8 g9 z
RowBox[{"[",
& c' {9 G$ n$ ?* ?" i. ^& j RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",",
. e: t, G( k: d& b. T5 F RowBox[{"x4", "->",
" w. f6 L( ^4 I. r2 c6 i! z RowBox[{"Data", "[",
! X: k" M; ~6 x9 \ RowBox[{"[", # ~( H) t0 n+ t- \, j d" T5 V
RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",",
, ?! U4 i8 {( E# E, ^ RowBox[{"x5", "->",
7 s4 R. s( t5 j9 x' [$ ~ RowBox[{"Data", "[", ; _0 a- M. b) T; {
RowBox[{"[", - g, U# R7 |8 @, K! S# `. x7 j
RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",",
0 k' L; n% V* S( X- u9 P* ]; o7 |9 O RowBox[{"x6", "->", # B) P ] |) s/ V
RowBox[{"Data", "[",
% P/ e: [, {$ X) \7 w# j9 ]5 q RowBox[{"[",
$ v2 g& s+ K4 q e% u/ h$ g+ G* | RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",",
( _+ h5 h6 H ?/ B RowBox[{"x7", "->", 3 O5 A4 p3 i: M. q
RowBox[{"Data", "[", 1 v! i) j' m1 ~" ^( Y" G; T" ]
RowBox[{"[", H, _# u7 T5 ^1 T, z
RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",",
?- \; [& k; @5 Y RowBox[{"x8", "->", 3 f0 g- }9 v$ @" r8 [
RowBox[{"Data", "[",
$ F, Y5 a" W' S$ j6 u RowBox[{"[",
. v1 V& Z* A) _" g8 A5 X0 Y RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",",
+ K2 Q0 Z! [$ o1 i& c5 Y6 D RowBox[{"x9", "->", : S" j( ?4 X# T7 v6 A8 Z
RowBox[{"Data", "[", ! Q) u; p0 n& h6 G/ m/ r* j" Q5 { C! }3 B
RowBox[{"[",
+ D. w: |/ x& z x RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";", - F- W! c- b8 B# V4 m8 w9 l
"\[IndentingNewLine]",
- [" [6 N7 Y1 v: R+ L1 d% | RowBox[{
9 {, T; z- [1 a% X \ RowBox[{"m60n21", "[",
! f1 A5 A* y7 i; ?0 O4 ` RowBox[{"[",
, V# e1 G* W) ]" c6 `5 E. m+ \ RowBox[{"i", ",", "20"}], "]"}], "]"}], "=", 8 f% B2 g9 l! G3 @2 C3 e
RowBox[{"u20", "/.", 2 X* f% x# d" S+ b& t7 L( S
RowBox[{"{",
) X8 j1 E4 L' N' a c RowBox[{5 E/ p4 z0 X# K- B
RowBox[{"x1", "->",
! g" D5 y: O* a4 {$ A' S3 q RowBox[{"Data", "[", , w3 V9 X/ z1 N$ U4 I7 a
RowBox[{"[",
7 v8 V# |& l) ]1 i. s7 B RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",", - S& ~" X4 B& B3 q- K9 B+ S
RowBox[{"x2", "->",
% z, v; g) W0 e' \' ?9 n RowBox[{"Data", "[", 5 X* N) O, Y5 j( V
RowBox[{"[", ! t! N( G" J% K6 I
RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",", ) i- C# K& N0 a" R9 `7 p" e
RowBox[{"x3", "->",
" {1 a' N$ J, `3 v+ w! Z6 s RowBox[{"Data", "[", # ?! F& P) x/ P. L
RowBox[{"[",
. i3 |- e2 q3 u RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",", 9 q9 N- e& b- I5 v3 _0 u
RowBox[{"x4", "->", 4 t2 h9 @) Q+ W" G: ?
RowBox[{"Data", "[", & @4 `* O% U8 n4 @* `6 [# a
RowBox[{"[",
. d \; x( }; J( A RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",",
- A6 P! K4 c, q1 ]; u) u1 y RowBox[{"x5", "->", ! y8 Z: g- Z7 H. x# Q4 a
RowBox[{"Data", "[", 5 q# @* @6 j! S8 k6 \! \
RowBox[{"[", ~2 s6 X, j% i$ k8 k5 z
RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",", 9 u' w$ n% S+ v+ q" K( X
RowBox[{"x6", "->", + {4 N8 r2 l ]. M
RowBox[{"Data", "[",
- m) A+ f5 H/ E6 t5 R- J RowBox[{"[", 1 {) K5 ?: i! _
RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",",
4 m- a+ S# k( E; S k u RowBox[{"x7", "->",
" R; T8 m7 E7 e# _2 w RowBox[{"Data", "[",
% P7 ?1 u; b* U6 Z8 `4 Y RowBox[{"[", & z' O4 S# w% S+ m; H
RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",",
" x8 Q4 @4 ]- U RowBox[{"x8", "->", ) v0 ^: |& p+ n$ t( @- N; |% ?8 Y7 }
RowBox[{"Data", "[", $ E' r) P; o6 n0 e% \
RowBox[{"[",
, d% `; O# U( y% `; s; O4 n RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",", b- N/ a7 q) K* F5 B |4 L m6 ~
RowBox[{"x9", "->",
7 Q( \$ z {; J- H( B$ ? RowBox[{"Data", "[", + Y3 l ^1 P, E# E" u/ W7 j b
RowBox[{"[", 8 Y: D0 s% _) [8 i* e
RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";", . b' B' L/ m) y" v
"\[IndentingNewLine]", & _ H. y8 w6 Y8 v
RowBox[{
0 u7 M6 H' [( M2 _ RowBox[{"m60n21", "[", * l: G6 U1 f/ Z6 ?2 U, ]9 Q3 X
RowBox[{"[",
% ^- w; n( z& c# N/ l' A1 K% K RowBox[{"i", ",", "21"}], "]"}], "]"}], "=", ( U. U+ Z: F3 w" E4 H) m/ f$ O4 K" Q: A* i
RowBox[{"u21", "/.",
2 W- k8 j9 r9 g a; K0 ^& i RowBox[{"{",
" g+ V' X/ c, K6 ^+ g% m5 }# Y8 } RowBox[{
/ [; y9 J2 O) x# s RowBox[{"x1", "->",
+ Y# M( I+ E" c* W( n' r, p9 [ RowBox[{"Data", "[",
+ ^6 Q4 T# `/ J9 n1 r; h' r RowBox[{"[", 9 X7 ?; g& }+ ]1 t% i% j: L% ]3 f
RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",",
1 q! v) ?+ E/ e# \ RowBox[{"x2", "->", 6 c( |4 ~# \* }9 I$ P1 `, Z+ }' E
RowBox[{"Data", "[", u3 V1 V1 @# Q$ B8 ^( H
RowBox[{"[",
; M* V) |6 F" Y# ?* s RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",", 1 r0 I/ B) R' r4 F" h& T- z
RowBox[{"x3", "->", 7 r d K ?4 C2 X# f" r
RowBox[{"Data", "[",
6 o# f5 u2 E" C. j, a RowBox[{"[", 3 h7 m2 N q" S1 V
RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",", 8 x. @) Z7 o# A" M2 `' S( r0 ?
RowBox[{"x4", "->",
5 U8 s2 ~2 s2 w6 t' h2 j RowBox[{"Data", "[",
. y7 _6 I9 B0 j3 w9 d/ { RowBox[{"[",
+ X& f% O" v% c4 W2 V# {% b RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",",
7 b% ?3 g$ I/ i; K( ~ RowBox[{"x5", "->",
# {! `: s" J( D, k0 Y RowBox[{"Data", "[",
& H1 @4 X. E1 G6 N& N8 J5 ^5 Y RowBox[{"[", / S6 x- F6 k& W7 Q0 Z
RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",",
# a v- T/ k6 [ e! Y RowBox[{"x6", "->",
( K& J. N; y; a/ _ RowBox[{"Data", "[",
! j6 i% Y+ g/ V5 p J( S RowBox[{"[", - p4 r7 ~+ q; e/ N( D5 U# c/ J
RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",",
* L8 j5 a9 c6 S& ]- w- {- i7 N RowBox[{"x7", "->", 0 ^4 \* g6 s: Z0 g) b
RowBox[{"Data", "[",
4 V( F. P4 x' b& u, } RowBox[{"[", ! B# f2 F% X x! D6 _/ }5 ?. p
RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",",
' b9 [, O+ m. c! p I9 X4 r+ J/ a RowBox[{"x8", "->",
b+ B& K+ j8 f% i( o4 h RowBox[{"Data", "[", + k& I4 w& T5 _; ]3 X0 K
RowBox[{"[",
" ]7 u: [/ Y: R0 i2 I3 g0 N RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",",
% Y# \5 @* K: T6 x) Z: k RowBox[{"x9", "->", 6 K# k' j: P6 c* @
RowBox[{"Data", "[",
$ N8 V/ _/ `6 A) C6 S! e' } RowBox[{"[", 1 S5 X6 D0 t: y# U+ r- v
RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";"}],
' X: t' j" j3 _% @ N5 S( a/ L; h "\[IndentingNewLine]", "}"}]}], "\[IndentingNewLine]", "]"}]], "Input",
6 p# d- Q2 Y' Y6 r CellChangeTimes->{{3.5779241165*^9, 3.57792417728125*^9}, {
. H# R! ?0 F6 M1 d# f2 c$ Q& C 3.57792428359375*^9, 3.577924585109375*^9}, {3.577958919491543*^9, . y5 F$ ^' b7 @9 ?5 s
3.5779589224867477`*^9}, {3.5779619825731473`*^9, 3.5779620676400957`*^9}}],/ K, ]# S1 z' O7 @) O4 Z5 R
2 \# C; S1 [ f' d% \" K( N7 jCell[CellGroupData[{: @# g* T: C5 p( N+ m- B1 ?( }
- }) O F- b" o1 I* f
Cell[BoxData[& l) J5 }7 I+ J1 w$ `) S2 h- i
RowBox[{"w1b", "=",
1 i5 N0 u( X$ N! P% P RowBox[{"LeastSquares", "[",
+ l0 [' ]! F, F! f4 C0 s. G/ q3 o RowBox[{"m60n21", ",", "y1b"}], "]"}]}]], "Input",. L( ]0 b# e5 C- H+ Y+ ]9 R0 N
CellChangeTimes->{{3.577924598484375*^9, 3.5779246208125*^9}, {
: ?; E& \7 s+ u4 B/ g 3.577924662765625*^9, 3.57792466596875*^9}, {3.5779582865360394`*^9,
% [% b7 i, X- \9 `; Y% r6 [& S 3.5779582963172565`*^9}, {3.5779622900808835`*^9, 3.577962290377284*^9}}],, s+ v- t. Q0 I, Q
% y; R$ v# F* `: t% _: @
Cell[BoxData[
( U4 \! K4 }- V; t$ f5 l6 h RowBox[{"{",
. d1 j) D6 Z/ O9 z: l0 k RowBox[{
# l6 N0 a9 L& a3 Z s) V4 x "0.48228184971363947`", ",", "0.16041393254115022`", ",",
M) }/ q$ g: E+ v* M5 m) x "0.3741982811661129`", ",", 8 g' f- i% V! E, g$ ^- b) n
RowBox[{"-", "0.12620581913715245`"}], ",", "0.28831860112966734`", ",",
. O, ?& e) M# H8 R' H! ~! { RowBox[{"-", "0.2282993884666894`"}], ",", "0.3207174990295839`", ",",
8 B$ a: U: b- B' {- @1 N RowBox[{"-", "0.4666313851213302`"}], ",", "0.27551257162880227`", ",",
! R/ [/ S n$ {8 }7 d( s; ^ RowBox[{"-", "0.025873988843993667`"}], ",", 8 v, a0 A8 ~/ p7 C
RowBox[{"-", "0.1339854044819916`"}], ",",
. x/ C) M X( K U$ ~9 |! C RowBox[{"-", "0.15852708848338315`"}], ",", "0.3129687276967983`", ",",
. M: C3 Z3 R0 e. h I4 f) E7 L "0.45723850991134063`", ",", "0.2954923840077215`", ",", * I$ ]+ \' t! o8 b& ?
"0.9125798890455868`", ",", "0.21159052285983104`", ",", . \7 P- _1 Z. r- q5 [7 }
"0.5575503376854456`", ",", "0.6019775648968265`", ",",
5 z% d4 l+ p( C6 P "0.2361524780938108`", ",", "0.12782130225993923`"}], "}"}]], "Output",
" y! [( ~7 E! r CellChangeTimes->{
( b0 _5 {8 ^, `, [ 3.577924621953125*^9, 3.5779246688125*^9, {3.5779582894220443`*^9, & ]' d* ]" E7 j
3.5779582992968616`*^9}, 3.5779584995700107`*^9, 3.577959040157753*^9, 2 \$ w5 {9 }' E8 S1 q& c) l: L
3.5779622919996867`*^9, 3.578012447734375*^9}] E" _ `) a! d: w$ ~( I
}, Open ]],8 |1 E% _% B3 `/ Y3 k
4 C; T2 g" O- H' OCell[CellGroupData[{
9 H( M" v( _! k' A' Z( O1 R' B
( d E) a2 G; o1 x# k5 vCell[BoxData[
1 a+ h5 f# p! `1 I5 e RowBox[{"y2", "=", ' |" q2 J+ l1 W; o4 _% S
RowBox[{"w1b", ".", - M, \- [2 R# |( Y% ?6 a6 i) L
RowBox[{"{", ) q3 _! l8 `, p w& e6 T
RowBox[{: k; Y0 s/ u% i2 q5 i, E
"u1", ",", "u2", ",", "u3", ",", "u4", ",", "u5", ",", "u6", ",", "u7",
4 j4 q' ?3 A9 [7 [% B9 w ",", "u8", ",", "u9", ",", "u10", ",", "u11", ",", "u12", ",", "u13",
% v7 V! O3 J% ?5 h+ `% l; i ",", "u14", ",", "u15", ",", "u16", ",", "u17", ",", "u18", ",", "u19", 8 w6 H5 m8 ?7 C/ {; T
",", "u20", ",", "u21"}], "}"}]}]}]], "Input",
1 u! t% ^, m S" z; x9 I! b CellChangeTimes->{{3.57792471553125*^9, 3.577924755875*^9}, {) A4 A8 ?+ Y7 g
3.577924897078125*^9, 3.57792491596875*^9}, {3.5779583101856804`*^9, 1 \$ z0 _9 g* @
3.5779583178920937`*^9}, 3.5779623163513293`*^9}],
% E1 r. s4 Y, m, \$ ~. I% B! Y4 @& V$ M, K, t8 n
Cell[BoxData[
7 W# z0 N0 e6 @5 o6 {+ A3 U RowBox[{$ {, o! s$ D4 p) O) {5 u/ j- s' I, R
RowBox[{"0.9125798890455868`", " ", 7 i" G7 b# A6 V5 z7 I9 d7 R _
SuperscriptBox["\[ExponentialE]",
4 S% u" g6 F9 h- ]( `* r7 L9 U1 @ RowBox[{"3.141592653589793`", " ", - t( G* q( W; ~, e i( \! [2 P8 \
RowBox[{"(",
! B/ i0 B) n& z, E; x RowBox[{
8 ~: K; A* K9 ]! d: h$ H. U RowBox[{"-",
/ \7 B6 {, d' c7 _# O SuperscriptBox[/ O* |! e+ W `5 f
RowBox[{"(", : g1 H& F+ S$ I- W5 g4 z2 J
RowBox[{9 i) x& C. m/ v- |( F7 z
RowBox[{"-", "0.434783`"}], "+", "x1"}], ")"}], "2"]}], "-", ( m! a+ v. P( H
SuperscriptBox[0 S* m8 }1 r2 E' z; D! w5 a9 r0 ^
RowBox[{"(",
" F* V6 y p/ G& M; }3 u1 m RowBox[{
5 K5 v$ T7 ~2 H8 | RowBox[{"-", "0.551785`"}], "+", "x2"}], ")"}], "2"], "-",
2 y+ t9 N+ H/ [$ d% M3 o% A SuperscriptBox[ v) r# A! z- p) m; b0 n# G% T0 L: p
RowBox[{"(", - A# I( V$ u. H! y/ K" }5 T
RowBox[{( k' E2 }+ p% P! |& t" {: `. Y* q2 A
RowBox[{"-", "0.530346`"}], "+", "x3"}], ")"}], "2"], "-",
' C' a- K8 |' v! g3 G SuperscriptBox[
, C B9 V# C) ~$ J! v RowBox[{"(", & O5 v& D4 \% p: E! f6 Y9 R9 s6 N
RowBox[{! L$ W- ~) k. @7 g% c+ P Q
RowBox[{"-", "0.151651`"}], "+", "x4"}], ")"}], "2"], "-",
( q/ a6 W+ d0 ?/ u+ h0 b! V2 m SuperscriptBox[
; ]. |. r5 ^* V5 b9 n- r- v: V RowBox[{"(", 1 ~) h. ~% y7 x
RowBox[{
3 X: K1 Z! o' b3 A$ F( G3 _ RowBox[{"-", "0.79021`"}], "+", "x5"}], ")"}], "2"], "-", & e$ D% {& ^, j* k- S
SuperscriptBox[
% w( S2 ^. X( m. F' U' o0 g; g* A RowBox[{"(", ' S+ x8 |3 p% ?7 z' z
RowBox[{) e% U# X2 y7 S# }# h0 i5 Y
RowBox[{"-", "0.529013`"}], "+", "x6"}], ")"}], "2"], "-", 9 R/ W7 s7 A. W0 U( {
SuperscriptBox[ I) K0 d) |1 x4 E! q
RowBox[{"(", 8 _4 n$ l, B4 B3 S* d2 {
RowBox[{6 d) y! F k% x0 r- f" l/ A
RowBox[{"-", "0.409756`"}], "+", "x7"}], ")"}], "2"], "-",
( `% T, l3 G4 `. U" K SuperscriptBox[, x2 e' L( a8 e) R1 m: ]
RowBox[{"(",
# A2 O& M. l) j8 Q RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
D' G# s3 S7 w. F- i SuperscriptBox[+ l0 s3 W7 Q5 W% q- M( w5 r
RowBox[{"(", ! w8 k% a% r& M9 T) O
RowBox[{
9 r4 q2 J2 Q% D9 K RowBox[{"-", "1.`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}], "+", $ \% S6 y9 E* k" F! e
RowBox[{"0.28831860112966734`", " ",
* D, r2 d o W: C* U! J5 z SuperscriptBox["\[ExponentialE]", 3 } U6 U0 \# {
RowBox[{"3.141592653589793`", " ", , \2 }' Z3 B2 h' J& d3 I2 m/ D) [
RowBox[{"(", ! l# q7 D' `9 U: x
RowBox[{1 a; c$ {8 ~) t6 \; d, ?% C
RowBox[{"-",
+ x4 a. L$ Q6 |2 z% i8 j. h SuperscriptBox[- g7 t3 t7 E' u
RowBox[{"(", " n; y/ @& F1 \$ R+ l. M& N6 o1 k" V5 }
RowBox[{2 u5 ^6 z) F Q# I3 {- P
RowBox[{"-", "0.565217`"}], "+", "x1"}], ")"}], "2"]}], "-",
' f) i& x3 |% B! h& \' o# I SuperscriptBox[
! {: x, G8 t8 R" T8 r RowBox[{"(", 1 c$ c; ?. @9 {' K a1 i9 L
RowBox[{
9 n: @" l8 f4 @! k: J RowBox[{"-", "0.71046`"}], "+", "x2"}], ")"}], "2"], "-",
% {& x' J( ~- O2 T; b SuperscriptBox[! E" X1 U- }) ~& f
RowBox[{"(", $ Y% ]: P# h2 s2 ?7 Y
RowBox[{" r% ^$ f4 c( v% l7 e
RowBox[{"-", "0.64973`"}], "+", "x3"}], ")"}], "2"], "-", 2 {0 a# j) F M
SuperscriptBox[5 b' u+ h7 D+ L; |) h/ Q) @! J! ]
RowBox[{"(",
) X1 l) d) s3 h7 `# u4 r' Y RowBox[{
) w% `8 G% v8 c) O# ~. h+ r; l RowBox[{"-", "0.119897`"}], "+", "x4"}], ")"}], "2"], "-",
& x5 C; y& I5 j& U+ T' @ SuperscriptBox[ P: E4 R7 U: e6 R
RowBox[{"(", " r- H# t8 P j' z/ u s8 w* M
RowBox[{$ r# m: N y7 w9 y- g
RowBox[{"-", "0.468531`"}], "+", "x5"}], ")"}], "2"], "-",
% L0 d/ c& ~2 Y7 y, E SuperscriptBox[# i3 | C6 ]% l; k/ x
RowBox[{"(", 5 C8 ]3 E, i$ j! ~
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
" L7 w1 k: n' L; l: V7 ~ SuperscriptBox[
. N$ T, c+ ]- h" b# e9 { RowBox[{"(", ! n7 R: \3 D" j% d/ i
RowBox[{
* B0 A s9 d, q5 J RowBox[{"-", "0.636585`"}], "+", "x7"}], ")"}], "2"], "-",
+ \/ p8 G H1 M: O: Z: l: _4 I" O SuperscriptBox[7 j5 g. {8 x# N1 l7 w( H' Q
RowBox[{"(",
% `' _ r5 @9 F* x6 e R6 ^0 Q RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", , I E! r6 S$ W! h( e8 }: \
SuperscriptBox[
% Y; M$ e$ y: [& U: d; }2 b% g6 v RowBox[{"(", 8 V `$ p1 m. u2 N/ Q
RowBox[{8 |% L2 E3 @7 }- n+ @4 e- T1 ^# w9 }
RowBox[{"-", "0.766748`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}], l: A$ y. e2 U$ K! b/ m
"+",
, h3 {% p' p& f9 J! o) P RowBox[{"0.21159052285983104`", " ",
$ _9 [+ ?# ?- F$ N" Q7 `( y G* v SuperscriptBox["\[ExponentialE]",
- |0 w- Y7 P: k! g2 ~& U RowBox[{"3.141592653589793`", " ",
@8 m7 H, k: h+ H' r" P% }5 p ^& W RowBox[{"(",
; w4 q- @$ F5 c3 Y4 T1 o/ b z9 A RowBox[{; z, Q7 V! |) q+ v# `
RowBox[{"-",
2 I' L$ \. ?2 l SuperscriptBox[. |, a2 {6 b% ]* C' ?: t
RowBox[{"(", - e5 R L! x8 P, f- F- T0 P0 [
RowBox[{3 @8 [) O$ F6 }, V' X+ E# C
RowBox[{"-", "0.347826`"}], "+", "x1"}], ")"}], "2"]}], "-",
" |1 _0 o6 b$ A& H3 j SuperscriptBox[
( [* V/ c% g) |* L/ [3 f, k) N RowBox[{"(", - v8 F5 M r8 m" `2 E
RowBox[{
( p! v4 G4 C( V9 c" h! Q RowBox[{"-", "0.705444`"}], "+", "x2"}], ")"}], "2"], "-", 7 p+ ?0 [3 t7 Z& X1 h
SuperscriptBox[$ p, g* x& p& N
RowBox[{"(", - s! Z% _: z6 y2 [6 }
RowBox[{
' V7 L, h4 \. C- H6 L; V RowBox[{"-", "0.109343`"}], "+", "x3"}], ")"}], "2"], "-",
; W5 q. X) Q: }0 O$ [! @% D+ K SuperscriptBox[
6 [' L1 A" _6 O8 E RowBox[{"(", # v2 `0 P5 e# w1 `/ O
RowBox[{
% _+ w: z0 v" s1 d$ P RowBox[{"-", "0.072008`"}], "+", "x4"}], ")"}], "2"], "-",
4 H( W9 g0 W/ N$ Q# ^1 x SuperscriptBox[
4 ^2 y2 j' _0 e2 p5 y Y+ t6 h9 U L RowBox[{"(",
9 p( H0 s, ?3 t/ D3 A# }7 A RowBox[{+ A( E( u0 y+ A& r) F3 n% d
RowBox[{"-", "0.496503`"}], "+", "x5"}], ")"}], "2"], "-",
) x1 E, Z3 N. s6 k t4 r0 S SuperscriptBox[$ e; y% c# a h3 S6 U5 e
RowBox[{"(", ) r g' X2 P- ?, m
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
9 V2 |- [8 X% i* W& i5 w SuperscriptBox[
3 ]5 z, Q/ H4 r- |) [" m6 x! T RowBox[{"(", 7 z7 E5 }6 m9 B" \+ ]$ j3 K. ^" s
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", 5 F& G4 K9 @8 Q. Q; P
SuperscriptBox[
) J: Z) \, x4 I. R ]0 | RowBox[{"(",
" ^) k) y" T4 A- |/ T, D* g4 M RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", # k- V- q- R3 ~3 ^, B. m# r
SuperscriptBox[
/ i7 G- Y1 w7 E* f B& Q1 D4 h RowBox[{"(", 0 a2 n! Z K- ^; D; Q9 Q3 E
RowBox[{
% \2 |, b- a1 `4 g RowBox[{"-", "0.752567`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}],
* Q8 `, o/ k" F% R# P! l( d "-",
, ?; a+ k+ b! L5 E" i0 \5 m RowBox[{"0.2282993884666894`", " ", 0 N0 Z, ~* L! H
SuperscriptBox["\[ExponentialE]",
: j) U: `( _' N: ?4 ~' _) g RowBox[{"3.141592653589793`", " ",
1 `) j% g6 ?! m" t( p) @ RowBox[{"(",
' f3 F l( f T# R- C( o* k RowBox[{
) d: U8 I! ~8 v0 R8 y; T RowBox[{"-",
3 K1 `2 b4 c+ e4 l SuperscriptBox[
8 C! T5 |0 t" a5 ?1 M. y RowBox[{"(", & e; N% Y3 ]! h* s2 j5 V
RowBox[{/ m3 R; P) x$ A% b$ e* s
RowBox[{"-", "0.130435`"}], "+", "x1"}], ")"}], "2"]}], "-", 8 I& M8 w: ]0 B+ r s2 e: @" H" z9 q
SuperscriptBox[; m* p. E2 |& c) w9 F, p
RowBox[{"(", 8 L! w: k0 O' k b
RowBox[{
8 x! r/ M( X: i% z# r RowBox[{"-", "0.682724`"}], "+", "x2"}], ")"}], "2"], "-", 9 O# e/ D4 d7 k: N
SuperscriptBox[4 x0 e* r9 h9 \& a" K {
RowBox[{"(", , g) y5 Z! K, ~# d
RowBox[{! D3 r3 ^9 H/ M% d1 y. Y7 q; O
RowBox[{"-", "0.258697`"}], "+", "x3"}], ")"}], "2"], "-", 4 _. n* o' s6 O6 Z* {" ^. R
SuperscriptBox[6 N) \2 _4 Y; b. X0 b4 U
RowBox[{"(",
& ?; ] n1 ^1 h RowBox[{
) G' `, D& d# F- x RowBox[{"-", "0.019299`"}], "+", "x4"}], ")"}], "2"], "-", % B! I+ w7 N. s2 {3 W+ l
SuperscriptBox[
2 m& e3 \" ?! C$ o! V) ^- B4 u ] RowBox[{"(", 7 ]; z. t5 v. }9 p2 D) g
RowBox[{
+ F) W3 y [( q; W- P! @ K RowBox[{"-", "0.51049`"}], "+", "x5"}], ")"}], "2"], "-",
2 J5 F; D$ ^+ I2 s SuperscriptBox[
( C9 S/ l& T0 `9 i) W2 w RowBox[{"(",
, T7 k# Z6 n! G& g0 V5 S0 h8 U RowBox[{
: n3 H4 L9 |, f9 k2 s& U RowBox[{"-", "0.420497`"}], "+", "x6"}], ")"}], "2"], "-",
1 [! b( C" _# I. l% r SuperscriptBox[
0 b# A$ R v8 l6 b# G# Z( N RowBox[{"(", " I- [9 J; y5 D [- G- f, n
RowBox[{
1 X: |( G) \4 Z& K RowBox[{"-", "0.535772`"}], "+", "x7"}], ")"}], "2"], "-", Z+ ]# v1 I" r4 k+ c7 \9 B
SuperscriptBox[4 b8 ^: b9 i0 z; w. r9 P0 B; g, L& P0 E/ Z
RowBox[{"(", $ G, [. R7 O9 s7 A
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", 2 t4 k9 t* @# g, J4 i
SuperscriptBox[
- H3 Z. _8 I) k+ [! [3 T RowBox[{"(", ( c& _4 { M1 t# T! C) W
RowBox[{, R+ X4 n7 x9 s9 `) j; Q
RowBox[{"-", "0.494866`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}],
3 I+ ~: `5 x# X" L' S& g _5 B: F "+",
- l7 t4 Z x# {* z RowBox[{"0.27551257162880227`", " ",
, r1 Y- V) @$ p3 t SuperscriptBox["\[ExponentialE]",
. _) j; D0 p1 M B0 a5 V RowBox[{"3.141592653589793`", " ",
7 t5 n5 k: H) X2 b$ R* C8 E9 } RowBox[{"(", 3 [1 N/ C( Z- a. s" M# a e8 _
RowBox[{5 P" h1 i8 l. X5 r/ A P
RowBox[{"-", # d8 V) g( n; n3 o
SuperscriptBox[7 s3 W$ G% m e
RowBox[{"(", , P* _- }1 \8 P$ r0 i1 z) {
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x1"}], ")"}], "2"]}], "-", . a. W- x8 ~$ _5 b$ E8 S
SuperscriptBox[# A4 W1 \7 P4 m) Y3 v
RowBox[{"(", % ~* B7 U# Y4 B+ v/ z
RowBox[{. t' g, N1 [9 v, ~: x# U& n
RowBox[{"-", "0.395544`"}], "+", "x2"}], ")"}], "2"], "-", ; P) f d- p( v- D( F, C% v
SuperscriptBox[
, A9 s; A( I: ^' m RowBox[{"(", 2 e$ p! h/ e4 ?* t
RowBox[{
& i ]1 }% Y5 ^- C% x& v( p8 C' y& s RowBox[{"-", "0.027011`"}], "+", "x3"}], ")"}], "2"], "-", + \$ A' ]. j. P R4 f8 q
SuperscriptBox[
% a+ }; G5 X- B RowBox[{"(", 1 n1 F8 s6 M1 s1 R7 K
RowBox[{
" @' y1 o8 c) e6 k" {1 E RowBox[{"-", "0.048087`"}], "+", "x4"}], ")"}], "2"], "-", ! u8 H' y% z4 A
SuperscriptBox[
9 c3 q& {1 ^! r2 U q. q; L+ I RowBox[{"(",
8 \0 A: y2 u5 L; ^# c* L RowBox[{ |0 B* h: D6 z; {+ Z
RowBox[{"-", "0.496503`"}], "+", "x5"}], ")"}], "2"], "-", & Z% @9 h' y6 F$ G X
SuperscriptBox[# m y- ~* G3 y. P, I- K
RowBox[{"(", ) p' v' h: x1 t, P" f
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
5 d, {( Z" @' m- `3 N: u SuperscriptBox[
2 \/ z) S. h* \& P/ B/ ~# d6 M RowBox[{"(",
7 X( R V: {. D3 N5 Q( T! y RowBox[{& b8 G! s# C" p F# L7 I; w9 a
RowBox[{"-", "0.452033`"}], "+", "x7"}], ")"}], "2"], "-",
6 `/ o+ U: e( |6 z9 `8 C. N3 w" u SuperscriptBox[
% F# O9 q3 j7 r/ _& d2 Y RowBox[{"(",
; o) H }; Q# t- Q' v3 i* y RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", ' O6 a. X! t O6 @0 _. i, F: g- F
SuperscriptBox[/ V' X- V; D/ r& L" ^, O
RowBox[{"(", , A7 M' |& h$ | P
RowBox[{
. M4 o: | A, U9 W3 l& s' _2 A RowBox[{"-", "0.278729`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}], $ o' P+ H; f* {9 d3 l% d
"-",
6 l/ D* m! }9 `3 |9 G' ~ RowBox[{"0.12620581913715245`", " ",
$ J2 l# F' \! C# i- K# J; r m SuperscriptBox["\[ExponentialE]", : i; \' q" _2 Y' X; d! m# y R6 Q
RowBox[{"3.141592653589793`", " ", " V G; O& y; Y# {* `
RowBox[{"(", * k" q2 H# i+ r' I; e4 x1 i, W
RowBox[{
& y+ E9 L+ `/ x5 `7 W! |4 M- e' r RowBox[{"-",
( P/ k: h. G- h SuperscriptBox[
9 [# L( ]' ?$ d RowBox[{"(",
8 l3 ?/ V; l" N RowBox[{
% u* P* ?2 V3 z+ N RowBox[{"-", "0.565217`"}], "+", "x1"}], ")"}], "2"]}], "-",
: e, h' Q. E: r SuperscriptBox[
! v, [: o4 P- |- ]# e6 h$ h% D7 F RowBox[{"(", 3 T- K" ~/ n' p% M. z2 v
RowBox[{
% P* f) V) ^" A" v7 L RowBox[{"-", "0.705518`"}], "+", "x2"}], ")"}], "2"], "-", F+ u5 k9 |; H) E7 o: @! b
SuperscriptBox[( e0 K9 Y$ b. [# S9 F% U
RowBox[{"(", # l. ^# l) P+ l& M( |% y" @
RowBox[{/ I- w6 g9 d/ l+ Q
RowBox[{"-", "0.510223`"}], "+", "x3"}], ")"}], "2"], "-",
' W4 X4 p# h. s! R$ J' e& w SuperscriptBox[" a( }4 c- `. e+ r# j& w
RowBox[{"(",
9 o) z& A( @1 D# m7 v. i8 ^2 H RowBox[{
! s2 |4 S4 | ?9 V RowBox[{"-", "0.066892`"}], "+", "x4"}], ")"}], "2"], "-",
4 J' j1 Q$ ^- K8 w' s& ] SuperscriptBox[" p( t, e4 o4 r, V
RowBox[{"(", / i6 z2 C( i. C; j4 N
RowBox[{
9 |# I7 j) L, u RowBox[{"-", "0.244755`"}], "+", "x5"}], ")"}], "2"], "-", $ Y( M) ]5 ?1 ^2 ^% h! H `, G h5 y+ `0 W
SuperscriptBox[
' I" w' W' d2 l$ K7 k, Y RowBox[{"(",
u% f8 p, V0 y1 N" S: V) O2 q RowBox[{
* E M+ d2 v. |; \: k3 u RowBox[{"-", "0.748304`"}], "+", "x6"}], ")"}], "2"], "-",
% k7 I# f; o5 y5 n0 `. u0 d SuperscriptBox[+ E$ H+ o5 W/ D' s ?0 r" k
RowBox[{"(",
& h" H5 L: Z% B. c3 v RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
0 ~1 |. H* t4 H" N$ ? SuperscriptBox[5 A( S* x; V2 }4 r% [" x: H
RowBox[{"(", # @. D! { Y' x
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", : ~/ q: Y H R, e' `- q
SuperscriptBox[6 f& ] S! z8 l `5 V
RowBox[{"(",
5 |0 X$ ?0 v$ f( O4 G RowBox[{
' @2 M1 }, T5 V \1 z1 i, h RowBox[{"-", "0.243032`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}],
/ W; W# D# r) b6 w: b "+",
0 S6 _4 d) r. _4 [& J4 S& h RowBox[{"0.12782130225993923`", " ",
" M+ v/ ]8 b P9 P/ A6 n) [ SuperscriptBox["\[ExponentialE]", ' |: q! V0 t1 C& W
RowBox[{"3.141592653589793`", " ", " u) k0 ]3 I( W0 N
RowBox[{"(", 4 b' o9 {6 _' H/ q2 P% `4 V
RowBox[{- L% w) J4 g' Q8 E7 n
RowBox[{"-", " R' F$ c g( w$ X' c2 ^/ i
SuperscriptBox[* I) \, x1 {# Z/ }6 U0 K( [
RowBox[{"(", 4 Y3 H3 i( P, @4 A! g5 b
RowBox[{# @* I% M3 z" b& L$ n4 N
RowBox[{"-", "0.608696`"}], "+", "x1"}], ")"}], "2"]}], "-", : M# n; J- A- D$ |4 ^+ ^
SuperscriptBox[
+ M l6 s4 p: M8 E# A4 T6 e& j7 Z RowBox[{"(",
! R$ N! w! X) B9 Y" O. G5 D RowBox[{
# k$ U2 Y7 L9 D' N RowBox[{"-", "0.606152`"}], "+", "x2"}], ")"}], "2"], "-", * G2 m7 o" g k: M% ^$ x
SuperscriptBox[
2 p1 J7 u0 U) @5 w RowBox[{"(", $ m: Z3 }* L# \6 I0 a1 `- K% i
RowBox[{9 O- ?/ C. g$ W$ @
RowBox[{"-", "0.158058`"}], "+", "x3"}], ")"}], "2"], "-", ( B2 o2 L0 H* ]: D! ]* d9 a- I8 N# W) @
SuperscriptBox[* t. J' t% O5 C+ |4 Q# e
RowBox[{"(", % v8 \8 Q5 S. U2 i5 ]
RowBox[{7 r" t. n4 b- P
RowBox[{"-", "0.09017`"}], "+", "x4"}], ")"}], "2"], "-", % p, J/ d* `: y4 |% ^
SuperscriptBox[
9 m4 f+ f3 P8 a3 U RowBox[{"(", 0 N2 t2 A6 j. A/ X9 l% B8 c" D
RowBox[{9 ~8 p' |8 K+ n. r: n8 @9 R
RowBox[{"-", "1.`"}], "+", "x5"}], ")"}], "2"], "-",
- e4 G$ A5 T4 w1 K9 Y SuperscriptBox[" ], N |8 ]8 _. Y$ G( r
RowBox[{"(", 5 S4 ]% n( y+ y. {- a( o2 c9 C
RowBox[{7 _) |: G4 X; n% ~
RowBox[{"-", "0.166541`"}], "+", "x6"}], ")"}], "2"], "-",
0 F1 r2 T9 p" j% C SuperscriptBox[
3 ~/ Q; g& Y1 i9 J3 F* l' j6 Y RowBox[{"(", 9 t. T7 F, c% f* H6 c
RowBox[{
@3 l5 s; x2 F6 h4 i H3 `! e( Q RowBox[{"-", "0.278049`"}], "+", "x7"}], ")"}], "2"], "-",
' r' n, c( W5 ~: D7 C SuperscriptBox[2 l r+ L( R% A4 U
RowBox[{"(",
3 q( Z. v# f2 ]" J! G' C3 s3 ]3 d RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", - z6 f- Y7 J9 W" e" U. `! a2 D
SuperscriptBox[
* I1 E- n( K/ a: ]# s RowBox[{"(", 8 q" F" P) u# H0 j1 r! I
RowBox[{
9 _/ ?4 g0 I' \& o RowBox[{"-", "0.236675`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}],
$ k& x0 w& N8 {3 f. N, y+ o4 U "+", : ~+ Y8 e7 K: d6 O0 C7 |2 O
RowBox[{"0.2361524780938108`", " ",
+ T- r# B6 y; O* d) D SuperscriptBox["\[ExponentialE]",
& O' }) d. H* y% X3 W8 W: j RowBox[{"3.141592653589793`", " ",
, j6 c) K. Z! W& K RowBox[{"(", # j& [8 U2 T8 r* w1 Q. d" H
RowBox[{4 P+ o4 }. V# S5 t+ F! f4 u
RowBox[{"-", 1 p/ v4 @5 D) J& K' N
SuperscriptBox[
/ l1 s; U. K6 q7 W6 e RowBox[{"(", % h% m% d8 r' m9 J
RowBox[{; g( }0 q/ |+ y5 Y; A% D
RowBox[{"-", "0.782609`"}], "+", "x1"}], ")"}], "2"]}], "-", , j' w6 W/ |- t% W, i! _
SuperscriptBox[+ D3 B. g2 a. S
RowBox[{"(",
$ ~9 [$ F. e: e c4 M RowBox[{, C: s9 p( J3 q: A" A0 B: C
RowBox[{"-", "0.751623`"}], "+", "x2"}], ")"}], "2"], "-", 2 n9 ^, j0 o4 f* c$ z6 M
SuperscriptBox[( z7 ~% N$ l$ P6 Y& Z9 [
RowBox[{"(",
+ ]! R8 }( N% H% z9 u/ V RowBox[{) ~5 F, i) d" z* ^# \; w0 b
RowBox[{"-", "0.177646`"}], "+", "x3"}], ")"}], "2"], "-", , S$ i' ~2 L, x8 F1 F6 L
SuperscriptBox[
; B5 q1 V4 x) |! a9 `% V( r0 w RowBox[{"(",
: z+ I% ?% C% h! F+ F! ] RowBox[{3 P) u. q6 w# P, Z Z
RowBox[{"-", "0.350845`"}], "+", "x4"}], ")"}], "2"], "-", 2 w+ C. @: e V4 F
SuperscriptBox[3 a, z9 g8 g6 L2 |% n+ b1 V0 O
RowBox[{"(", 7 {* o$ l+ w$ S% E
RowBox[{
3 j, J: w( T: G; I( a% Y- z/ \ RowBox[{"-", "0.412587`"}], "+", "x5"}], ")"}], "2"], "-", 3 l; s- W% b! Y& S9 k" Y0 f
SuperscriptBox[2 X8 K" t& O7 O4 [5 l3 |. `
RowBox[{"(",
j! X9 n5 j+ f8 k$ L RowBox[{% N' R( j ?* o" N! ~. ^- i
RowBox[{"-", "0.502638`"}], "+", "x6"}], ")"}], "2"], "-",
" b: r3 Z( D2 Y) F6 ] SuperscriptBox[
" b2 q7 o8 q% `" ^, N; a* K RowBox[{"(",
+ h. ]2 Y8 U1 \, K9 _) p7 h RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", ; C# z _% m( U3 |8 o* k
SuperscriptBox[9 s1 q! z! n8 w2 `' f. E D+ ~
RowBox[{"(", 1 o5 p' [: C p7 M
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
0 C* }# _$ _, D SuperscriptBox[# P* ^# g# v) c) j( g6 c
RowBox[{"(",
) l2 V! g. t+ _/ X# J RowBox[{
$ U+ s5 b( Z, |7 n f1 l RowBox[{"-", "0.178973`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}],
. [% E7 T" o; G& R1 _9 @ "+", : O _8 @! N" {3 }+ A9 N
RowBox[{"0.3207174990295839`", " ", 9 r; q0 H2 p6 G$ K% z- f
SuperscriptBox["\[ExponentialE]", ) w2 U6 I: P5 H/ C
RowBox[{"3.141592653589793`", " ", 7 ~5 P( ^0 g# @' _8 \0 G- G% L
RowBox[{"(",
$ z' t$ p7 ~. s) r+ u9 J7 v RowBox[{
1 \/ C6 L6 J/ Q RowBox[{"-",
+ x$ N* O. n) W+ `6 p SuperscriptBox[
/ S4 c5 n0 `9 s; v. n9 E" Q RowBox[{"(",
- ^$ O. Z3 U" N4 x& x2 c RowBox[{4 z0 O/ B2 d6 H7 @( c
RowBox[{"-", "0.695652`"}], "+", "x1"}], ")"}], "2"]}], "-", 5 R6 U5 F. C9 @" d6 |% n) M
SuperscriptBox[* g L! d& _ o
RowBox[{"(", 9 s5 ` {; N7 U& Z- T7 B9 P- Y
RowBox[{+ x$ A8 D3 i) z9 O& j9 W9 _: @
RowBox[{"-", "0.71828`"}], "+", "x2"}], ")"}], "2"], "-", 5 F- b) g" p v& j% X0 ~4 t
SuperscriptBox[3 T: i2 E% f0 h$ }6 n0 h$ z
RowBox[{"(", 2 {( I) v' X j, x5 `
RowBox[{: {7 i) n9 E* N2 a) u8 ?
RowBox[{"-", "0.33973`"}], "+", "x3"}], ")"}], "2"], "-", $ S& z8 m. s+ ^
SuperscriptBox[
) l, Y8 ^5 H% { RowBox[{"(", # l6 S& j; \0 M
RowBox[{
# U; O$ g) G/ @ RowBox[{"-", "0.110285`"}], "+", "x4"}], ")"}], "2"], "-",
! k& v, Z# l( T3 t6 R8 C6 c SuperscriptBox[
( K, _! j6 E/ l# c. k0 ]6 w) P RowBox[{"(", ) G7 ^4 Z, o) m
RowBox[{* X. M, y* L; a6 u
RowBox[{"-", "0.335664`"}], "+", "x5"}], ")"}], "2"], "-", ! j$ R. l5 z8 x: l d
SuperscriptBox[6 ~1 Z! M! l+ Q" a" v# M
RowBox[{"(", ' u5 {- I( [' W+ j: K$ R( I/ W, \0 }
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
1 h4 r0 J9 q5 F/ H$ b, x* e# B3 T/ H SuperscriptBox[8 I; U) X& `/ j' M
RowBox[{"(", / D2 X. d# c y
RowBox[{ J" y" `9 n7 q5 @/ t
RowBox[{"-", "0.636585`"}], "+", "x7"}], ")"}], "2"], "-",
9 O8 u1 G, `0 K SuperscriptBox[
8 U; S6 V) f/ T+ {! ^3 _/ v RowBox[{"(", 7 o2 g; r' c) i2 x8 R
RowBox[{
/ _" @$ Q l$ [" A. } RowBox[{"-", "0.780463`"}], "+", "x8"}], ")"}], "2"], "-",
4 X- o y0 q3 |7 I' `, R: | SuperscriptBox[
; R7 [( \: g) o- \4 n# t RowBox[{"(", X2 J% Q5 y# R8 V
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], & @; h! `7 h/ y1 q8 p# v; B
")"}]}]]}], "-", & D" F$ w; E h+ w; w9 K
RowBox[{"0.15852708848338315`", " ",
; v7 i/ W2 J# C3 n9 q$ G" ? SuperscriptBox["\[ExponentialE]", 8 Z4 ~3 P# v! _ G
RowBox[{"3.141592653589793`", " ", 6 ~; ?9 c+ f2 b* I, u
RowBox[{"(", : w7 b1 e8 J' y: F( O0 i0 s9 i
RowBox[{ w- E4 w4 _* G% B" d4 Y5 }; F
RowBox[{"-", 9 |5 C& K% B9 [; x& ?
SuperscriptBox[
2 V) W; W7 p5 `' } RowBox[{"(", % q# b& H* m/ j% U0 _- e' i6 R
RowBox[{
0 }7 P8 Y. B9 l7 {7 k! v RowBox[{"-", "0.913043`"}], "+", "x1"}], ")"}], "2"]}], "-", * t6 M) H# {. }: I2 V
SuperscriptBox[
4 z: |" ?$ E5 ^! b RowBox[{"(",
* O+ k1 u! K* _- a" u a6 U* u RowBox[{
& U7 J! s( f0 L6 A2 ~1 p RowBox[{"-", "0.170478`"}], "+", "x2"}], ")"}], "2"], "-",
+ o8 w2 j& o- R4 W SuperscriptBox[
5 U, p8 n/ R' ^3 e" |9 X$ { RowBox[{"(", " {# @& |8 C5 }4 }7 B
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x3"}], ")"}], "2"], "-", 1 F2 Y- j# T" f/ f
SuperscriptBox[
4 _5 M2 I, Y+ Y/ r( H RowBox[{"(", , M1 ~% L E0 |+ `& @. ]' f
RowBox[{
0 j3 e( G8 h4 F/ z( N. Q RowBox[{"-", "0.012973`"}], "+", "x4"}], ")"}], "2"], "-",
$ Y. m/ M1 U `5 k1 B SuperscriptBox[
, x0 ^" d$ Q6 ~4 J# ^, C/ g RowBox[{"(",
9 f$ D9 g0 Z7 H; i3 \ RowBox[{
2 a6 D9 L' N) e8 s& o) I# X. f RowBox[{"-", "0.293706`"}], "+", "x5"}], ")"}], "2"], "-", 1 ^% v0 {( x4 |# f
SuperscriptBox[
' [" k4 Z9 I7 K a! S0 P6 x+ d2 y RowBox[{"(", . a* `6 o) @6 r$ N
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
& @- }/ x v# e3 S0 S SuperscriptBox[8 |. ~" n3 F Y5 ?' T1 w
RowBox[{"(", 3 k, \; K9 k; |; g/ p% h1 Q
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", " E' m ]4 U- w/ t
SuperscriptBox[$ \. U0 }* i! K" U! p- i
RowBox[{"(",
( J5 R* V @7 s! y- ?- b* E- p% c RowBox[{0 L- b" r2 d. E7 a2 S
RowBox[{"-", "0.672709`"}], "+", "x8"}], ")"}], "2"], "-", 5 R3 ]! V% J% Y' i% o; ~8 v
SuperscriptBox[7 k" O# e& i2 J1 w4 u
RowBox[{"(",
. k' m4 u% }" D RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
+ }4 ^9 D; Z/ E) B ")"}]}]]}], "+", $ `2 L# J. C! ?% Y( u4 g
RowBox[{"0.6019775648968265`", " ",
. V: L' H! S4 E: |) o SuperscriptBox["\[ExponentialE]", ( K1 @9 A) P) x6 D3 M
RowBox[{"3.141592653589793`", " ", 7 ~* e" k" N; L. W% \" O
RowBox[{"(", % f0 l: I/ E# _
RowBox[{
( A4 H+ O3 |8 }2 {$ o9 d+ E, J RowBox[{"-",
5 y. Y c2 l2 f+ N1 b SuperscriptBox[
% _: O* y7 t9 c, `2 n4 P% ^ RowBox[{"(", ; h0 T' Y, Z3 s! }! \+ H
RowBox[{
8 b- n) M* F( U( t' [; o0 l RowBox[{"-", "0.391304`"}], "+", "x1"}], ")"}], "2"]}], "-",
; e7 ?$ I8 H/ j" X SuperscriptBox[8 d3 w* v4 F$ ~8 ~. r
RowBox[{"(",
& w+ `1 X+ g0 b RowBox[{; v" j' K5 o! |& Y, r
RowBox[{"-", "1.`"}], "+", "x2"}], ")"}], "2"], "-", 6 |5 |) j, U7 b$ g9 S+ C# I
SuperscriptBox[' u9 n9 L$ b. t# m- r Q
RowBox[{"(",
2 d: G) n8 ?! \. F5 b! b6 U( ^ RowBox[{! |/ t. u: R0 S
RowBox[{"-", "0.452931`"}], "+", "x3"}], ")"}], "2"], "-", , C$ H/ `7 t0 g
SuperscriptBox[; q" H t. X/ x7 F
RowBox[{"(",
; n* s9 s( Y6 F [ RowBox[{7 r, ]. s3 p. u! Y( z1 t, ~0 J1 y
RowBox[{"-", "0.150909`"}], "+", "x4"}], ")"}], "2"], "-", 2 C" W% j, D3 b
SuperscriptBox[% |: Q& Y: l% c
RowBox[{"(", 9 I/ A* A( W P
RowBox[{; o, B% s( k1 V
RowBox[{"-", "0.342657`"}], "+", "x5"}], ")"}], "2"], "-", ) B8 a1 K% n7 Q/ q: q d+ F
SuperscriptBox[6 o4 T D2 E" b& |3 Z! p9 ?) V
RowBox[{"(",
7 y- ^7 ^; ]4 [! N RowBox[{
$ e4 j/ R1 K9 C9 A RowBox[{"-", "0.370761`"}], "+", "x6"}], ")"}], "2"], "-",
' p/ X7 s% N1 p, h. e' n$ }% I SuperscriptBox[
% L) D9 |2 v$ |) O4 ~+ _9 J2 `" k RowBox[{"(", $ N0 ]6 i2 p: [: l
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
4 R1 N2 m% Q' `. N; D SuperscriptBox[
3 q! \/ j& f" x RowBox[{"(", 3 |' _7 L, g( i7 I3 ^
RowBox[{' U. `: z* v; S+ Y1 O6 B
RowBox[{"-", "0.509567`"}], "+", "x8"}], ")"}], "2"], "-", ) L; ]: `" F( {& @; [6 J! R
SuperscriptBox[# Z5 i. K5 ]/ R
RowBox[{"(", 9 R/ q; `% m' i' P5 @: y$ a
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
/ j, m2 A3 v4 A8 S6 K1 k ")"}]}]]}], "+", % X( x. f+ k! ?3 l
RowBox[{"0.16041393254115022`", " ",
0 Y- }% Z1 C9 Z0 H1 t: Z6 m SuperscriptBox["\[ExponentialE]",
& W9 \: t; J" G: K. b- N5 L! {9 J7 n RowBox[{"3.141592653589793`", " ",
9 a& n+ H# V4 o5 o3 ] RowBox[{"(",
& k% o1 X! A% Z1 N1 X3 {! P RowBox[{
/ ]) I |$ y7 {3 M H, Z T7 a) b RowBox[{"-",
7 J' x9 u0 k5 }$ }) } SuperscriptBox[% t7 u. U, Z; E8 D7 i
RowBox[{"(",
& ^' |# r2 x& @, ~8 d3 u# f RowBox[{' i# A0 p& O( a' O# {
RowBox[{"-", "0.608696`"}], "+", "x1"}], ")"}], "2"]}], "-", # J% ~' h! r* N8 T
SuperscriptBox[
! f* Q' r& n! A( R& A6 s n RowBox[{"(", % J6 |! g* u# g, \/ m# a- J
RowBox[{
) D4 W6 `3 O- _ RowBox[{"-", "0.339186`"}], "+", "x2"}], ")"}], "2"], "-",
0 Y Y0 d" c( k! }1 W. | SuperscriptBox[: X* } f* _5 z3 ~# B
RowBox[{"(",
8 F1 l5 L) o8 k' ?% g0 B) Q RowBox[{' |7 t4 m; {7 b" c6 H
RowBox[{"-", "0.4943`"}], "+", "x3"}], ")"}], "2"], "-",
; _: b3 u* k# K2 J- j# U SuperscriptBox[/ \2 Z1 s% i: I2 W5 a) O5 a
RowBox[{"(",
; \. _& z( j+ x( V( H RowBox[{; P' T9 M" r9 H0 V0 d' y
RowBox[{"-", "0.099338`"}], "+", "x4"}], ")"}], "2"], "-",
a& y( C) I% p SuperscriptBox[ N. [3 \: m6 f9 S% Z: O( l
RowBox[{"(",
* x! f2 H3 e: G1 m& }+ y1 r0 N RowBox[{
" h7 N; f6 s5 v! Z* a% ? RowBox[{"-", "0.321678`"}], "+", "x5"}], ")"}], "2"], "-",
1 s0 y @7 I. o7 T# \" w P SuperscriptBox[# Z9 L: e/ W2 S! d: e/ P& S7 ^. i
RowBox[{"(", / r3 w/ x: E. G' d
RowBox[{) ]: l8 x% |4 j+ C; S9 l3 w; D
RowBox[{"-", "0.375283`"}], "+", "x6"}], ")"}], "2"], "-", 0 I U/ j2 u8 ~3 z8 ^* y9 w
SuperscriptBox[6 L# M. d# M8 Z# k, Z8 c% r
RowBox[{"(",
' j) C# ]% U' z; }6 A RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", . }$ y. B2 g( E- `/ n0 R, [' Y
SuperscriptBox[' i% Z& w( Q# @7 b* m
RowBox[{"(", ! j6 b. w" _5 U2 c) y
RowBox[{* a2 q% `2 J: N3 O, J
RowBox[{"-", "0.505539`"}], "+", "x8"}], ")"}], "2"], "-", 8 F3 `& O1 r1 \6 N4 V, Q
SuperscriptBox[+ ~1 g& \. O& ~5 Y
RowBox[{"(", 0 S- a/ V# I+ j) E) D
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], # r) b: M, J( Y2 e- n
")"}]}]]}], "+",
' h+ o4 P8 m7 i3 z) W RowBox[{"0.48228184971363947`", " ",
3 @4 w" G9 ?4 } SuperscriptBox["\[ExponentialE]",
7 E% j/ l3 Z! p7 f RowBox[{"3.141592653589793`", " ", 2 y8 ]7 X9 L( \$ e$ Q* {. f: Q
RowBox[{"(",
; I7 u; O3 f) E" U RowBox[{( h q4 z' l8 S3 D) f/ ]( @4 C5 W
RowBox[{"-", ; F4 k/ `2 I. k
SuperscriptBox[' \1 `5 t/ b8 r
RowBox[{"(",
# Q" v% u6 }$ w! \, J' W& [% x+ Y/ @ RowBox[{, y$ a1 f0 R3 U* r, ^, \
RowBox[{"-", "0.304348`"}], "+", "x1"}], ")"}], "2"]}], "-", : F; p9 j' g, W, ^0 y
SuperscriptBox[5 ?+ w/ G8 D& D, n' m2 ^. Y
RowBox[{"(", - G4 K$ L9 Z( i Q5 U4 d, I/ G
RowBox[{0 H T3 @; B% q# o1 k
RowBox[{"-", "0.552818`"}], "+", "x2"}], ")"}], "2"], "-", ; F: C- F4 ~3 y' `9 _% X7 W1 J1 U9 g
SuperscriptBox[* f' l9 t! E& V
RowBox[{"(", 8 i( @3 r4 {! e0 y3 W( J
RowBox[{
" ~0 D0 L; _9 X0 z, x RowBox[{"-", "0.33037`"}], "+", "x3"}], ")"}], "2"], "-",
4 H @, V& Y* L' U8 d, \( @& I6 a/ a SuperscriptBox[( l3 ~" A7 K+ H4 W4 G3 A% k* Q9 t
RowBox[{"(",
, F$ O% e( t7 k9 i RowBox[{5 L8 N, x, w( i" K0 s& E1 v( r
RowBox[{"-", "0.025823`"}], "+", "x4"}], ")"}], "2"], "-",
, r( ?4 A& Z7 J4 q9 i5 ~ SuperscriptBox[
$ t4 J' @# k0 d' n4 E RowBox[{"(", " Q8 q; I: P( S: o m9 z" M1 e# m
RowBox[{9 l( A6 `; }+ x1 z/ x6 r @
RowBox[{"-", "0.538462`"}], "+", "x5"}], ")"}], "2"], "-",
9 q+ F" l3 M' q0 ^! ]3 @/ @, f7 j$ g5 [ SuperscriptBox[2 l6 u0 ~ i# y( c1 w
RowBox[{"(", 1 B) R# p0 f1 I& f! G& X0 N \
RowBox[{
5 q" C( b8 n- g5 O1 L9 X RowBox[{"-", "0.752072`"}], "+", "x6"}], ")"}], "2"], "-",
, ?$ ]: t% G5 ^ SuperscriptBox[9 I' K* F/ i% m* d2 Q2 _( f
RowBox[{"(",
9 e+ w' z9 s: I+ K* p RowBox[{/ C% a1 p* y8 i. ?- G
RowBox[{"-", "0.408943`"}], "+", "x7"}], ")"}], "2"], "-", ' E+ {# I6 R, @% n! P9 D( m
SuperscriptBox[% }' \! p$ W% l7 z/ i. L( X* K. _
RowBox[{"(", : N# L- R8 ~; `1 ^
RowBox[{
) Q& F( Y) w9 D3 b6 F RowBox[{"-", "0.504532`"}], "+", "x8"}], ")"}], "2"], "-",
4 }; `0 G- o) c1 g5 I3 E SuperscriptBox[9 @) w4 V% F6 }) G9 ^2 l. V$ t
RowBox[{"(",
& Y v* V j4 o: H$ B4 f RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
4 q- o* n' \/ V& W, E+ n ")"}]}]]}], "+", & E. r5 A; I6 H, j( [: s- R% z
RowBox[{"0.2954923840077215`", " ",
) \ s( V* v* N1 R2 F$ z SuperscriptBox["\[ExponentialE]", * g* L# H% X6 a0 ?) o9 o# E! x% i
RowBox[{"3.141592653589793`", " ", 5 M$ D. v0 G& u$ X3 C3 f& ?0 P
RowBox[{"(",
0 Y- @' E s8 T: H1 v3 k# X RowBox[{
. e2 G2 j z0 R" K2 h) T& }; { RowBox[{"-", . O& w2 [. `$ c+ P6 t1 K$ {
SuperscriptBox[2 t6 q- U* _3 G4 Z( e
RowBox[{"(",
+ W1 u% l8 ?* s. }# K RowBox[{
; b# |; ~4 p7 n7 H ^: y RowBox[{"-", "0.413043`"}], "+", "x1"}], ")"}], "2"]}], "-",
0 ?; S* d0 I8 e2 W! \ SuperscriptBox[4 l* k9 [6 ^2 D" @+ \
RowBox[{"(",
( }4 P' {4 }, L. C1 k' b RowBox[{2 \ ?& O& [. `/ T* v& j4 ?0 H
RowBox[{"-", "0.551859`"}], "+", "x2"}], ")"}], "2"], "-",
; l1 B7 r; S* j' f& {% e SuperscriptBox[( P% s# ?4 g9 R
RowBox[{"(", ( h% H5 F7 n0 x* Z+ h6 D
RowBox[{
. q; V# X# Q. y+ s RowBox[{"-", "0.544826`"}], "+", "x3"}], ")"}], "2"], "-",
! n# O. o2 _1 c8 c* p0 U5 p& B- R SuperscriptBox[
; F5 p7 ]5 k* _) R( A$ u RowBox[{"(", % S* q% p& R8 |8 ]. _/ \/ f( T" D
RowBox[{
# c0 K5 [( F7 y/ l" q RowBox[{"-", "0.230503`"}], "+", "x4"}], ")"}], "2"], "-", 3 z1 b7 Y3 e7 E, J; _1 {& V
SuperscriptBox[9 W- W6 k( }1 h" D4 G( C7 Q. f5 F& q
RowBox[{"(", 0 S' i1 P* U) M* z
RowBox[{# k" ]) Q4 M4 p9 I% i5 [9 I: d
RowBox[{"-", "0.244755`"}], "+", "x5"}], ")"}], "2"], "-",
I, E' f/ t1 B0 c. A7 G& o* X SuperscriptBox[* ?) ?/ J- C) K( I! K- t
RowBox[{"(", , U( x" @+ @% m+ J/ p/ F
RowBox[{5 z- Q. d! T7 r* g8 U) d
RowBox[{"-", "0.53052`"}], "+", "x6"}], ")"}], "2"], "-",
8 W. [& F r# i/ R- s9 x2 J SuperscriptBox[3 y& P9 l/ j- c
RowBox[{"(",
5 P& _" V# G7 Y0 c RowBox[{
' X; y" s' U/ s; q- h RowBox[{"-", "0.819512`"}], "+", "x7"}], ")"}], "2"], "-",
& _ S T8 m/ f" ?/ a SuperscriptBox[
$ f: _) I. \8 n" R RowBox[{"(", - k F* r$ r3 _" S! d' ?0 C. G
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", ( e. I* T# l& Z1 Q2 P5 j6 p
SuperscriptBox[
) t: e2 ?; ?$ a RowBox[{"(", ! ^1 Z3 I4 {: I8 x" d4 Q
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], ( l- z' n2 Z# \' ?$ S0 d
")"}]}]]}], "+", 3 D. _' Q- m: e; _
RowBox[{"0.3129687276967983`", " ",
7 z* k& T5 Q4 G8 h SuperscriptBox["\[ExponentialE]", * t4 r; x$ y# h9 V
RowBox[{"3.141592653589793`", " ",
% x* C/ P4 y7 ~* B! \' ^ RowBox[{"(", " U: j* R# k" n3 F! A8 n
RowBox[{
4 Q! g' Z% M8 M/ T RowBox[{"-",
8 u7 F6 C# ]- @6 j SuperscriptBox[* |4 F3 H! ]# g9 ]& V/ _
RowBox[{"(", + d0 h- z; S3 v: H
RowBox[{
7 r. o8 w/ L1 E8 o RowBox[{"-", "0.73913`"}], "+", "x1"}], ")"}], "2"]}], "-",
1 w3 j1 F, S$ Y/ V$ n6 E0 f SuperscriptBox[
v* ^4 s8 s* ], P5 w RowBox[{"(",
3 R. O/ Z; U5 t8 U) c. d7 X: s RowBox[{0 ]" t3 B w" ^/ S( U! z
RowBox[{"-", "0.193199`"}], "+", "x2"}], ")"}], "2"], "-", 1 }1 @+ u: j5 S" n9 M
SuperscriptBox[
& Y0 h$ P9 r2 K1 [4 V$ V RowBox[{"(", 6 Z4 k& S9 `# M3 W0 T5 H/ }
RowBox[{) N) r/ R* r8 A# R
RowBox[{"-", "0.160584`"}], "+", "x3"}], ")"}], "2"], "-",
6 c0 D& n4 a, I; v7 N SuperscriptBox[
" g: g: P7 L$ _5 S RowBox[{"(", - u% m7 S m2 V4 p- v+ s
RowBox[{! }9 J f; c' Q6 F
RowBox[{"-", "0.037907`"}], "+", "x4"}], ")"}], "2"], "-",
% b* h* P" R- K7 t; R X SuperscriptBox[
! w/ e! g4 S9 k: m0 q RowBox[{"(", / W) o( E5 {- A# X& v
RowBox[{7 k+ g( ?0 B. I2 ^& @3 U* V- y; w
RowBox[{"-", "0.461538`"}], "+", "x5"}], ")"}], "2"], "-", 6 c& t. g+ k% P8 v3 O, i2 y
SuperscriptBox[
e) ^1 y4 J! ]6 @/ ` RowBox[{"(", , S( L0 F( [( b3 v8 P
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", 6 u: z' E- t, r2 Z4 W0 l3 T
SuperscriptBox[
7 P4 @* W1 J8 p0 E4 I RowBox[{"(",
, I: \ Q; s0 H* e2 X* \+ Z RowBox[{5 M* h: F) J: {! }
RowBox[{"-", "0.684553`"}], "+", "x7"}], ")"}], "2"], "-",
/ K3 R2 [* Y; V' d" B' a1 P& q* [ SuperscriptBox[ ^2 X, T9 K; }3 S. R
RowBox[{"(",
, ?# a' A$ K0 _( d/ a; S9 { RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
6 Y0 x' s4 ]; Q+ N" Z! S SuperscriptBox[
4 V2 k M" b7 U0 B6 r. B RowBox[{"(",
/ b" K- E, A, @; A' ]) ~& Y RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
! i2 H! j/ L3 x. C ")"}]}]]}], "-", 2 c/ |3 z6 W g7 }3 Q) W
RowBox[{"0.4666313851213302`", " ", - A9 H0 [2 R3 W+ M7 i% D
SuperscriptBox["\[ExponentialE]", 2 P9 |3 d( X7 v0 P
RowBox[{"3.141592653589793`", " ",
! F: F4 R- t, [5 }; D9 ~ RowBox[{"(", , e- U; D, \8 v. e+ y
RowBox[{
6 Q d' p" E' S& T' R RowBox[{"-",
- W# G W7 G F0 @3 f SuperscriptBox[0 D" D% q+ b# {5 j) l7 s- _" L: J. b7 ~
RowBox[{"(", 1 K* N4 C1 p# p6 m- L
RowBox[{
; T8 O6 j; T' j* {4 @ RowBox[{"-", "0.652174`"}], "+", "x1"}], ")"}], "2"]}], "-",
! k8 V5 u# v9 ]8 W; ? SuperscriptBox[& @% B2 M& J7 j* E' W; O: i
RowBox[{"(",
, G& h- n. @' m6 N1 P0 \0 g4 G& S2 Q* l RowBox[{
* ?4 O3 l( W; J5 u* F1 }* h RowBox[{"-", "0.569711`"}], "+", "x2"}], ")"}], "2"], "-", $ J) T+ p/ T3 v* C% J. W) p
SuperscriptBox[
2 ]+ S! C8 J6 |7 ?4 L/ `! z0 A! K RowBox[{"(",
) s9 w* y$ A Y( Z( F5 l RowBox[{7 k+ r7 k5 Y6 K/ L
RowBox[{"-", "0.414297`"}], "+", "x3"}], ")"}], "2"], "-", * U0 S+ H" B- ~( e1 n( {2 B1 f9 x
SuperscriptBox[0 {# f( P7 a% m
RowBox[{"(", # g4 s8 Q7 `# \3 {, s4 u
RowBox[{( X3 K, k/ K8 v6 Z" v. k) `" g
RowBox[{"-", "0.175398`"}], "+", "x4"}], ")"}], "2"], "-", # n& g$ k+ o. x7 P
SuperscriptBox[
6 {/ A% [6 h* ]9 A RowBox[{"(",
X! @6 Q% d: M( Z RowBox[{" W I0 @) X. c- P/ p3 c
RowBox[{"-", "0.167832`"}], "+", "x5"}], ")"}], "2"], "-", 9 P5 f0 ^( r O G' K5 o* c
SuperscriptBox[& L) X7 e$ N; z6 J
RowBox[{"(", ( C' d8 [" h; C$ L2 I. h9 {
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", / B2 E/ A/ y1 k9 h) r
SuperscriptBox[- i Q) [4 K: l. Q
RowBox[{"(", . ~! p/ {, n# e6 |+ y8 _5 n
RowBox[{
Z5 e' I4 }0 @: ~: |8 L RowBox[{"-", "0.544715`"}], "+", "x7"}], ")"}], "2"], "-", ( G3 i0 H" e6 u) x5 I% m
SuperscriptBox[* D: T( \$ i" g$ I3 h; c5 Z7 Y
RowBox[{"(",
$ \0 L+ _7 y4 c; F. A RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
' T- `5 r g5 j6 K2 f! v8 @ SuperscriptBox[
% `9 n0 g) D( n1 ^ RowBox[{"(", , B3 }" D* a; }0 R1 u
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], & @7 L0 j( y1 c
")"}]}]]}], "+", : n$ A! v ^3 k1 C m
RowBox[{"0.3741982811661129`", " ", ! T' K. ^6 a- s t3 F0 o! [
SuperscriptBox["\[ExponentialE]",
8 k G1 r% o5 u2 ^ RowBox[{"3.141592653589793`", " ",
+ ^/ F& [; a: L1 K5 p RowBox[{"(", 7 S7 v5 P- |% Q' C% }$ Q
RowBox[{
' |5 z7 i7 E+ @ RowBox[{"-",
! O* C' `- `# u; q$ [2 ]! i) g SuperscriptBox[
- C0 a9 `: ]1 M3 ~# A RowBox[{"(", 7 }7 @' _8 `2 v! U9 U- ~; f
RowBox[{' p% G; w* P4 Z
RowBox[{"-", "0.521739`"}], "+", "x1"}], ")"}], "2"]}], "-", " ?* n K/ z: A$ W
SuperscriptBox[' ]- p" A; B4 S. g. t
RowBox[{"(", " M3 v3 `$ T! B
RowBox[{
- y& j# T# J* ]. k. O! { RowBox[{"-", "0.334022`"}], "+", "x2"}], ")"}], "2"], "-", ; V# w0 S4 i' Y; y+ ~: s4 r
SuperscriptBox[
e& L8 j- b. l) R2 G) ] G RowBox[{"(", + _$ p, B8 J3 U5 u0 B9 P
RowBox[{
. f6 s1 W7 v5 t+ f' r RowBox[{"-", "0.3555`"}], "+", "x3"}], ")"}], "2"], "-",
- V- K/ p( y3 W SuperscriptBox[
+ W, e% X L+ d2 e7 Q RowBox[{"(",
: y. X7 K/ c5 d* P+ P3 m: N4 [; T RowBox[{3 W; q+ t3 H' h, a1 z3 ?# ]: s
RowBox[{"-", "0.025156`"}], "+", "x4"}], ")"}], "2"], "-", ; l6 ?& W7 u" j8 I) v" A3 y \
SuperscriptBox[
6 C9 i7 ?! |$ e) q5 k |5 |) ~ RowBox[{"(", ' U8 h4 t5 A/ y' j& G+ R5 w' \
RowBox[{+ m9 h+ j* ?7 m6 e
RowBox[{"-", "0.48951`"}], "+", "x5"}], ")"}], "2"], "-", 7 i% A1 p) o0 ~, L: c' g
SuperscriptBox[$ J, Z& \9 o$ q
RowBox[{"(",
0 `+ C2 n; D) |5 R2 a RowBox[{
5 x" I, n0 R% Y& u! {6 A. k RowBox[{"-", "0.37679`"}], "+", "x6"}], ")"}], "2"], "-",
" ?0 G2 ^7 ]& d SuperscriptBox[
# u! _6 V) V2 U! j RowBox[{"(", ; \" O" K) [2 e4 H
RowBox[{, } C5 c! b; R A3 w0 i7 g
RowBox[{"-", "0.411382`"}], "+", "x7"}], ")"}], "2"], "-",
" B3 \1 [' h9 i9 E SuperscriptBox[
8 |( K' s0 M8 {9 Y, |/ J, l4 @ RowBox[{"(",
0 T3 {9 @# a7 @, F RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", ' b! q. _& t1 L7 e) e$ W
SuperscriptBox[
5 N/ y- ]. d- s; V% [$ W# x RowBox[{"(", & @ r1 T& R6 Y& q- v" Q! l
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], - e& p% K4 @" _1 s( s3 a. _
")"}]}]]}], "+",
9 P1 i# t' C- l+ b8 f& @ RowBox[{"0.5575503376854456`", " ",
; K: K# D- h/ M" q. C SuperscriptBox["\[ExponentialE]",
5 i- w2 l5 p# p o1 r* k C9 V RowBox[{"3.141592653589793`", " ", + ]# k5 b. V' G% {
RowBox[{"(",
, ^' K" C) ?9 E$ ]+ p( m2 A0 q! d RowBox[{
0 ?2 `7 O) K$ A/ W) w7 W RowBox[{"-", , d0 y* B; F% v+ W# g& U& d' M1 J) h
SuperscriptBox[
2 {+ X W7 U+ z: U RowBox[{"(",
; ~! q8 V! |$ x/ X W0 i. B RowBox[{
{0 D2 Q# w% u: V RowBox[{"-", "0.173913`"}], "+", "x1"}], ")"}], "2"]}], "-",
! S$ O8 M" v. B; k0 Y0 g% Q+ j SuperscriptBox[
7 ?1 }( M8 S" Z1 @ RowBox[{"(", ! M6 p% S L3 X; }; r
RowBox[{8 N3 D! {' ?8 U* a
RowBox[{"-", "0.984656`"}], "+", "x2"}], ")"}], "2"], "-", ) T$ w& a9 F6 Z* j; A- P
SuperscriptBox[
, v% n9 X* s7 g1 [( W. _6 u RowBox[{"(",
3 }- G5 J! w7 `, [ RowBox[{
/ f! M/ B4 H/ c! k RowBox[{"-", "0.420753`"}], "+", "x3"}], ")"}], "2"], "-",
( V$ [% e0 y8 X* R SuperscriptBox[
% C" M* }4 s9 b RowBox[{"(",
$ J$ Z2 ~& f0 i: O* k$ e6 W2 ] RowBox[{
$ l* o# J0 }+ M" a RowBox[{"-", "0.137022`"}], "+", "x4"}], ")"}], "2"], "-",
4 E# Y3 y% t3 x9 }$ L SuperscriptBox[
# M# C4 |1 x" x9 p0 w% o1 e' W! \ RowBox[{"(", % k: t7 }- d- m# J4 V% z
RowBox[{
5 p2 O9 q( z& ?/ {1 C. I RowBox[{"-", "0.321678`"}], "+", "x5"}], ")"}], "2"], "-",
& ]' }' |& q e5 u% d g SuperscriptBox[
2 U @' u9 n: D, q( g% [$ i I; I6 M: ]" g RowBox[{"(",
* h& i, s3 ?, d Y7 m; y RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", / k7 `2 i( |5 o( M' n9 \
SuperscriptBox[/ Y2 @1 a2 M8 [* K* t w7 ^9 r
RowBox[{"(", . `) v* p3 i b7 A( e' o
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", ' C# j: @) A+ J2 B. |: A5 m
SuperscriptBox[
2 z+ H; q4 X% m6 k# O4 O RowBox[{"(", & D) u2 Z! G' K
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", ; C' b; l( H% C! L$ n7 W1 } ]
SuperscriptBox[; N2 ?# W: I' C1 I0 q
RowBox[{"(", 1 k0 i6 y9 h2 w2 V
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], 4 {6 A* K9 M6 n3 c. S+ ]
")"}]}]]}], "-", 0 A5 a* Q G6 E1 r- K3 u. U
RowBox[{"0.1339854044819916`", " ",
. {# A- n+ |. J. N8 o SuperscriptBox["\[ExponentialE]", % F I' l% D( @' b: n3 g
RowBox[{"3.141592653589793`", " ", ; T: l2 r% s9 N
RowBox[{"(", 6 R& Z3 n; ?9 w. V1 I
RowBox[{
' b7 T3 r1 e+ |9 h6 c! I RowBox[{"-", - D+ p3 f, N/ W: f! J
SuperscriptBox[
9 R7 p Y9 z1 K! a0 b4 ?! N. f RowBox[{"(",
_7 X; R M2 ^& n) D RowBox[{
+ d5 S0 J9 e% Q: d. Y* v; B RowBox[{"-", "0.717391`"}], "+", "x1"}], ")"}], "2"]}], "-",
) ]0 @) i( [( A' F% a! c H SuperscriptBox[
3 d9 x6 z" H* }3 x1 u) x3 X0 M RowBox[{"(", ! l9 `1 U; I3 I5 R
RowBox[{) A6 s! B v+ T& Z+ D3 M% ]
RowBox[{"-", "0.736205`"}], "+", "x2"}], ")"}], "2"], "-",
- t: V- n( w- S. g SuperscriptBox[, b* ~8 m, {$ q/ I' K, ~: Q' x
RowBox[{"(",
8 ^/ ~# x8 N& d( S. \6 ? RowBox[{
4 S0 e1 {! X1 Z RowBox[{"-", "0.267704`"}], "+", "x3"}], ")"}], "2"], "-",
: d* G( r _7 ` i) j: A" j SuperscriptBox[
1 `0 f+ c1 @/ h! g RowBox[{"(", 4 b, a8 t) b; W
RowBox[{
0 ~. \3 b: i3 T+ ^8 w+ ?6 X* S RowBox[{"-", "0.036152`"}], "+", "x4"}], ")"}], "2"], "-",
/ r4 D+ j: H+ a* ~2 H2 S; y2 I SuperscriptBox[1 d6 I* J5 J6 {/ E+ k) S
RowBox[{"(",
% l) M+ k/ T* t; v: @3 ? RowBox[{
2 [3 b: R* I& F& D5 C RowBox[{"-", "0.307692`"}], "+", "x5"}], ")"}], "2"], "-", / F# ]0 \8 I6 Q1 [: r; `
SuperscriptBox[
9 C1 {' _$ w4 e6 Y! {3 d7 |( G RowBox[{"(", - }3 N- ]' x; u- O- m
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", ) q5 J* ?! W. e+ S1 ]8 M3 f9 r
SuperscriptBox[
+ s0 ~& y- i, C$ y- J RowBox[{"(", ' V) e4 V% V' n! F/ D- y
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", 1 H1 P: r5 F+ D: Z
SuperscriptBox[
# X+ l7 V/ V3 J RowBox[{"(", 4 V3 Q- x* ^" b7 S+ B9 `! J
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
8 }- f" j$ q% f' q SuperscriptBox[5 m! G- x# s; A2 k
RowBox[{"(", , n) g2 b" j, J9 c5 v# K
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
# p: p7 |0 X, H$ T9 ?+ A ")"}]}]]}], "+", 5 W3 O G) v+ I! d0 U" `1 t0 ]
RowBox[{"0.45723850991134063`", " ", , w( h: `+ ]0 r- C
SuperscriptBox["\[ExponentialE]", - _, z! A3 t- F0 ?4 y& c" ?/ k
RowBox[{"3.141592653589793`", " ", % G- C! Q" H9 w1 O! u0 a
RowBox[{"(",
2 H) O% n* _& T8 `5 K8 K RowBox[{
8 [+ H" g% n3 q4 U2 _# l, F# G RowBox[{"-", / V5 |; C+ Y. u3 w. j
SuperscriptBox[* T) ?, t- e! Q Y, J* T
RowBox[{"(",
& l4 F6 D, W" d7 E RowBox[{9 Q ]" Y3 K5 r
RowBox[{"-", "0.826087`"}], "+", "x1"}], ")"}], "2"]}], "-",
$ W. A0 {: ~4 a, u# h SuperscriptBox[
2 |) S, N( A% z% I* i RowBox[{"(",
6 ~2 [2 W, e/ g4 |+ Y0 Y RowBox[{
8 e$ W) j) L% E0 } l3 c RowBox[{"-", "0.203969`"}], "+", "x2"}], ")"}], "2"], "-", 7 T, D! k0 @9 Q8 ^& a% _) B
SuperscriptBox[
! A9 V1 T$ G+ ~9 D. |3 r# V RowBox[{"(",
8 I0 U2 Y5 }) J7 Z' o RowBox[{
( H* a, P- ?! G; o& D) R RowBox[{"-", "0.234619`"}], "+", "x3"}], ")"}], "2"], "-", @8 }1 E0 l" \# B) f3 \" C+ `
SuperscriptBox[
; R6 Q8 \4 c9 Z$ J% p+ j RowBox[{"(", 1 ?2 m0 }5 l, q" I1 T! J+ Y
RowBox[{
4 \) N4 C. ^$ C9 M RowBox[{"-", "0.27224`"}], "+", "x4"}], ")"}], "2"], "-", - b( K; t2 ` F+ o' d% [$ b) y
SuperscriptBox[* G4 P& M+ ^, Y8 h- T- y
RowBox[{"(", $ {. h d) _$ ^! k$ H9 N
RowBox[{' g$ \' M/ J- v- U
RowBox[{"-", "0.265734`"}], "+", "x5"}], ")"}], "2"], "-", 3 `% j* w" ]! Y8 \& G! n
SuperscriptBox[6 B$ W3 m# u0 Z# Q$ \
RowBox[{"(",
# U) H1 h( v! [. h- b; s4 D RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", / m3 l0 \, R7 |
SuperscriptBox[ \% W3 R# }- o( j5 }! Y4 T% e7 f
RowBox[{"(", / K5 `/ ^- I y9 [) N3 O
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
' \6 {! R5 N8 p SuperscriptBox[% S( _0 ?3 f+ I. b8 ^$ u
RowBox[{"(", & h, O" X+ U2 W+ y3 p
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
' G* k/ e2 g" U5 T# R9 E8 Y5 C7 ^ SuperscriptBox[
% K: f, M1 _" b) x RowBox[{"(", : q, O+ J' R; B8 n! e* L
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], + l$ w1 k5 y3 x2 ^% L2 B
")"}]}]]}], "-",
6 h0 B$ A1 m( X2 s4 R RowBox[{"0.025873988843993667`", " ", # E8 C( N1 g7 D+ ^9 `/ L3 D
SuperscriptBox["\[ExponentialE]",
# f' Z" B5 P. d* C0 \1 ^$ L RowBox[{"3.141592653589793`", " ",
X9 U6 o0 H% s/ u) ] RowBox[{"(",
u1 r1 U9 e+ k$ _ RowBox[{
. S7 ~$ M1 E9 v \ RowBox[{"-", , i% w+ n' ]4 h: _1 `' N3 t- Y b7 L
SuperscriptBox[* Y* `7 _5 T {# A7 u7 O) \6 H2 X
RowBox[{"(",
# a+ c; L7 g+ I e RowBox[{
5 d. D4 \! J N( I RowBox[{"-", "0.565217`"}], "+", "x1"}], ")"}], "2"]}], "-", m/ d* U% m7 M! K/ M8 Z! k! }
SuperscriptBox[: I8 Y3 `1 n8 c( @
RowBox[{"(",
3 w2 }( c A1 u2 Q& r RowBox[{1 @; |2 Y, B4 a
RowBox[{"-", "0.572293`"}], "+", "x2"}], ")"}], "2"], "-",
) X7 N* W. H" ? SuperscriptBox[
% R0 X+ ~# J$ I5 r0 a0 T5 T RowBox[{"(", 2 ^" j8 _1 B4 ] @% P2 i0 _
RowBox[{
' m4 y: r( O0 e% ~% @ RowBox[{"-", "0.655012`"}], "+", "x3"}], ")"}], "2"], "-", 1 V: _+ I! v7 Y: ]3 |8 G
SuperscriptBox[
- [3 ?5 H7 m; R) c/ g7 m RowBox[{"(",
% H; l( s: L- ~1 \" j- C# ]5 J RowBox[{
* @) E; m l% o& \ RowBox[{"-", "0.281852`"}], "+", "x4"}], ")"}], "2"], "-", , o# y' Z+ g: r$ A
SuperscriptBox[' \' ?4 z) U- P8 z5 F; i
RowBox[{"(",
) R, G, e# B8 U5 X9 H5 u9 g RowBox[{"0.`", "\[InvisibleSpace]", "+", "x5"}], ")"}], "2"], "-", - \, ^8 N" b/ t# |- V) k- z* ]
SuperscriptBox[
4 t4 m) \) i, w6 q7 U# P RowBox[{"(", t7 A' J; \+ z* p0 _% |
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", & a. h( C0 \$ V% y+ l# m
SuperscriptBox[; p( f9 k4 w& w5 |
RowBox[{"(",
! M0 k, h' c5 a& G2 v$ U RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
* Y" ~+ I. C/ e; U/ r SuperscriptBox[" _$ j3 M- R1 j
RowBox[{"(",
$ ?! o. P; H8 D! C$ G4 f8 x RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
6 S [5 ?3 J0 K8 a( X SuperscriptBox[
. D3 C: ~- e% k RowBox[{"(",
$ H. G! P: {3 [4 r% } RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
! o/ _! V/ H' @7 J _3 b ")"}]}]]}]}]], "Output",. t6 ?9 d! g, b
CellChangeTimes->{3.577924759875*^9, 3.577924921203125*^9, 1 b; ^+ x* c6 V% Z0 @
3.5779583210432997`*^9, 3.5779585060284224`*^9, 3.577959043308958*^9,
$ g3 I$ }# ~) L5 i/ E$ B& o 3.577962317973732*^9, 3.578012448875*^9}]
3 e: w0 I& G( T2 |+ z' c( x4 Q* S}, Open ]],4 I; b; I$ p2 H& I
, n, i6 D' u N3 W
Cell[CellGroupData[{: [( k* j3 r; I: k
: ~* G- i5 I) |. K( o' r2 BCell[BoxData[+ r$ H c9 p+ i/ N. |9 \! t
RowBox[{"y2fit", "=",
( E. q5 e6 |/ y3 ?0 j4 k RowBox[{"Table", "[", ( r4 j8 H0 Z5 t5 ^' {: h3 f. S% T
RowBox[{"x", ",", B! A0 L" i7 h4 c5 o
RowBox[{"{", 7 }% y% b4 ~8 ?1 S: H/ H, O
RowBox[{"x", ",", "1", ",", "29"}], "}"}]}], "]"}]}]], "Input",
* b+ E/ ?4 g' l4 a9 Y CellChangeTimes->{{3.577924969375*^9, 3.577924979515625*^9}, {
. Y; ?4 F9 |$ ]& } 3.5779252768125*^9, 3.577925277484375*^9}, 3.5779583246625056`*^9}],
7 m, C& |: `; \; n. i* U1 G7 `9 y* l( @: `
Cell[BoxData[
; S8 o( V9 S5 |% v$ ^+ h o( s5 ` RowBox[{"{", , J3 |/ n' \$ q7 Z, r6 Q$ R
RowBox[{* v) t) S5 `; t8 V1 K
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
L! I8 h; v7 K8 b% @8 a ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15",
j% q7 z, r, c$ ]: @ ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",", " C2 H; c3 n7 z ^8 [% L# m( N
"22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", "28",
) C+ p9 V/ A1 o# A7 Q ",", "29"}], "}"}]], "Output",
& E2 k* V* V; K3 I0 u3 M J CellChangeTimes->{3.57792498240625*^9, 3.5779252798125*^9,
3 |0 n, N; {: ?. m 3.5779583268153095`*^9, 3.577958508118826*^9, 3.5779590470685654`*^9,
. f3 [* _8 C* o# p8 U( s 3.577962320173336*^9, 3.57801245028125*^9}]
^' {9 K! l# x" H2 ~7 o8 `+ o}, Open ]],0 [ s! G# O; d6 S: m7 F
/ J M* N' {$ l3 `9 u Y d9 }! Z8 uCell[BoxData[
' e/ V& h( V4 F2 _4 ] RowBox[{"For", "[",
5 R7 ^2 K. V5 t2 r# c RowBox[{! z, g! {0 s) W. R
RowBox[{"i", "=", "61"}], ",",
4 v+ }4 Q2 J& K5 L0 _ _+ B RowBox[{"i", "\[LessEqual]", "89"}], ",", # p/ H5 b4 q' W; g7 p
RowBox[{"i", "++"}], ",", "\[IndentingNewLine]",
( q* O1 W M m, l% B0 n RowBox[{. I2 y" \* x4 t1 F( k+ O2 x
RowBox[{) K3 ] M' k; R1 x ?
RowBox[{"y2fit", "[",
9 Z1 b: r7 @+ w0 I+ N RowBox[{"[", 3 E4 r) c- g- z2 A* Z
RowBox[{"i", "-", "60"}], "]"}], "]"}], "=", * m" C0 W* A g8 K2 r
RowBox[{"y2", "/.", A+ _$ h' G3 {: h$ [
RowBox[{"{",
* \% y4 S% ]2 B# _- d% t# r RowBox[{" a$ y2 e8 L5 ^2 x# d2 t. G8 m
RowBox[{"x1", "->", / m" l( W5 |2 ~/ s+ _
RowBox[{"Data", "[", ) g, a6 t* k" {+ L6 }2 u$ i( @
RowBox[{"[",
% c4 L# {3 v# l RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",", , A3 M# Y4 m% k! D8 n
RowBox[{"x2", "->", 4 Q+ ~( l$ _0 c) H
RowBox[{"Data", "[",
: U) ]8 F; H+ y RowBox[{"[",
! V" [ S2 Q1 B# ]3 L. _3 O RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",",
7 ?* l- h. b- }0 I RowBox[{"x3", "->", ' j5 y( X& C: ^4 U
RowBox[{"Data", "[",
4 S, n/ N% H. h# K5 D RowBox[{"[", % [+ I( Q/ e3 c1 r
RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",", . ]1 _5 a) {* J4 H' I
RowBox[{"x4", "->",
/ p2 N2 e$ O7 @$ p) ?4 ` RowBox[{"Data", "[",
1 b4 h( A2 M& s9 C" f RowBox[{"[",
2 l0 J7 G7 Y, X, e8 J# y/ l RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",", + f+ O5 @$ ^& ]% V
RowBox[{"x5", "->",
+ ~" g4 Z3 \* K0 E* l RowBox[{"Data", "[", 2 k1 ^( @. `) }' D1 E
RowBox[{"[", 9 w4 g- ?2 u& d, @$ F# L5 }/ S
RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",", ! R( L# E; ~! Z8 N! I& E- S& }
RowBox[{"x6", "->",
# V/ l1 K2 I% q# s6 V( F RowBox[{"Data", "[", # ?1 I! N" X2 e! K
RowBox[{"[", ! s1 C# \: z1 x! Y P0 b
RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",",
2 |/ @" C% _% e2 q. C5 R RowBox[{"x7", "->", J+ t- c b5 L' \- z
RowBox[{"Data", "[",
# E8 m y6 y2 z s$ b2 f1 m RowBox[{"[", * [& \0 o+ J8 W1 j6 A
RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",",
* } P8 q. d. P D- k# \- V RowBox[{"x8", "->", ( ]) e0 r! r6 y0 L2 }% q
RowBox[{"Data", "[", : f: u: `$ K2 K6 S
RowBox[{"[",
) D. x4 a$ D5 a, P5 W& y+ W RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",", 0 `. ?+ o6 |4 @# P
RowBox[{"x9", "->",
: T- q6 z X7 g2 c M+ h, c RowBox[{"Data", "[",
V! b; v4 l. [5 w8 C1 R8 k RowBox[{"[",
/ B$ E) j0 v1 Z1 C" ]; E0 [/ F RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";"}]}], $ ~/ l# Q5 H$ R
"\[IndentingNewLine]", "]"}]], "Input",# Z& E+ }3 U( h8 Z) [% |- z
CellChangeTimes->{{3.577925003234375*^9, 3.577925028578125*^9}, {0 z; e g" `* V
3.577925286140625*^9, 3.577925306765625*^9}, {3.577958329919715*^9,
! J& b! o# R3 x+ K* Q7 J# t, w) ^8 Q% Z 3.5779583326341195`*^9}, {3.57795892351635*^9, 3.57795892354755*^9}}],8 u3 E; W1 Z9 g7 Z' m9 E
- c9 K) h. K# }. H2 a& u% n% y" L
Cell[CellGroupData[{( l$ J% N5 t" F
. R4 O" d( ]( g0 {/ v3 N6 v
Cell[BoxData["y2fit"], "Input",; B. f+ f1 r* ]' {4 O q) {5 k! {
CellChangeTimes->{{3.57783581246875*^9, 3.5778358135*^9}, {' d4 U( V$ d- A n- M# O
3.577925040484375*^9, 3.5779250440625*^9}, 3.5779583419785357`*^9}],* g7 v: a- g2 a) _' y0 T
; ~3 ^. p8 n* J0 z! y
Cell[BoxData[4 z3 u C2 T/ L! H
RowBox[{"{",
0 i" f+ t4 l+ t9 E1 ]1 {( E RowBox[{
, D) v. b) D$ O3 @ "0.4853171132859182`", ",", "0.4508635216665074`", ",",
* o7 _3 [) |) Z4 ^" p0 z: y "0.3642119241752518`", ",", "0.42852077425595436`", ",",
2 r; u% L* r* K: V "0.4712694272667798`", ",", "0.5257533056184774`", ",", # @. b) @/ D- W9 M
"0.48620658140716133`", ",", "0.41106838915591876`", ",", 5 E! c( a& A) r9 J
"0.5486894206610674`", ",", "0.007731168540073459`", ",", % `6 Y' Q3 t, W* y
"0.013872406140339109`", ",", "0.3956995051659558`", ",",
+ O; C( z4 R7 O3 V3 s8 } "0.3663118256142708`", ",", "0.29094217358055163`", ",",
, Z6 b* o2 _3 @# A) x8 N "0.5453093690736555`", ",", "0.44138898880777927`", ",",
7 O' L" y: v1 t6 {& [# p, e "0.42944922031163496`", ",", "0.43092890556748836`", ",", / u' p1 W8 q/ W N5 v
"0.5942402821739969`", ",", "0.330046090785457`", ",",
' Y' U9 f" H9 Q4 f' W7 ? "0.18938658036630585`", ",", "0.4263720292858679`", ",",
2 K0 j9 S5 q; g0 y4 o2 G& M( Z; G "0.23377136184738775`", ",", "0.02232858193309988`", ",",
- q* J: }8 ?9 ?9 x/ P: i "0.244364200084268`", ",", "0.5562383565309971`", ",", 8 P3 y# k$ Z6 `2 f: ~
"0.13114103402954333`", ",", "0.5815052048989465`", ",",
9 _* M) |( n6 |4 ^ "0.4253455966293501`"}], "}"}]], "Output",
. U7 Z( n) u3 O% c4 u CellChangeTimes->{3.577835814609375*^9, 3.57792504521875*^9, ) A. ]) z7 N1 v" |! Z6 w+ I' Z& d
3.577925312375*^9, 3.577958343257738*^9, 3.577958511784832*^9,
4 N$ n4 P9 h: {8 Y 3.5779590518421736`*^9, 3.5779623249157443`*^9, 3.578012452421875*^9}]
- Q0 s' j( c9 |' f4 E# K& B) l( Y}, Open ]],# k: c/ I* _1 i0 l
9 y! @1 ]; B# a( u
Cell[CellGroupData[{
" {) C+ ]" B1 ~ t" s. g! H9 ?/ q0 M7 g1 g0 ?0 _1 @6 R
Cell[BoxData[8 ?1 c8 e. R: f1 w3 T' m( t) z& E
RowBox[{"y2fit", "=",
4 k+ T @% J: R6 Q RowBox[{"{", 0 o1 _1 O/ c$ ? ?/ F
RowBox[{# p' m1 V! q% _
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
* i$ Y/ T# y2 i( r: H ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
, n* z- ? _! _4 o M "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", / V& P3 C' ^+ _8 Y3 a/ N: Y B. B$ @
",", "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",",
/ g& |+ Z h; ~- L- M# o6 l$ f+ Z "28", ",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34", 8 i, i0 N) K3 ?: J
",", "35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",",
/ R" s* V2 h, n "41", ",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47",
/ Y2 y/ t- [ d; {1 c ",", "48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",",
0 ?$ Z) T/ n! W5 O/ S "54", ",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",", ( C% M; n4 ?: i' k! h% F
"0.48531711328591953", ",", "0.48531711328591953`", ",", 8 N3 F, ?& x' B% q
"0.45086352166650845`", ",", "0.36421192417525217`", ",",
& Z ~; g+ D; A3 l) W1 M3 m6 G "0.4285207742559556`", ",", "0.4712694272667811`", ",", , N, `6 B' E$ m" w6 s' P
"0.5257533056184786`", ",", "0.4862065814071623`", ",",
. j6 h- G& A0 |7 b/ c y "0.41106838915592014`", ",", "0.5486894206610683`", ",",
. o3 c! F4 Y) y5 E$ l: U/ { "0.007731168540073532`", ",", "0.013872406140339166`", ",", $ L( R1 N0 }6 r
"0.3956995051659565`", ",", "0.3663118256142717`", ",", 7 _1 y W1 i; w0 `: S
"0.29094217358055185`", ",", "0.5453093690736568`", ",", # L* t5 m; j) O8 _* y
"0.4413889888077799`", ",", "0.42944922031163585`", ",", & ]$ F$ g$ |& ]+ @
"0.4309289055674891`", ",", "0.5942402821739983`", ",", 2 Z& M M$ P% U: w
"0.33004609078545805`", ",", "0.18938658036630632`", ",",
* `4 m: P8 y, }( l "0.4263720292858688`", ",", "0.23377136184738778`", ",", " _1 ~, t! T5 G
"0.022328581933099827`", ",", "0.24436420008426807`", ",", 5 V( U8 g6 @9 ~2 \8 }5 \( L3 D
"0.5562383565309981`", ",", "0.13114103402954314`", ",", ( J6 i7 K9 q' X+ D- C: J
"0.5815052048989473`", ",", "0.42534559662935123`"}], "}"}]}]], "Input",9 A$ G9 j( h# e1 _
CellChangeTimes->{{3.577959355746303*^9, 3.5779593854019547`*^9}, {5 x* `2 v, \. {$ Z% }1 l
3.5779594223272195`*^9, 3.577959425104024*^9}, {3.57796233399496*^9,
4 o7 ?! f$ X6 C9 ]. j; [+ M 3.57796233957977*^9}}],
+ O3 Q* z" b9 ~7 o$ b
4 s' h6 b/ s, A& P/ FCell[BoxData[
) J ]1 O6 C' g2 v( y; c RowBox[{"{", " F! l4 _* j& d( Y( t) ?
RowBox[{0 J1 j$ |/ ^2 P. i) c' Q0 @2 j
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", * r8 K4 C+ r( D! O- w4 U
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15",
& {$ h/ h6 `3 \5 q/ u0 ? ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",",
, @& }4 V5 M2 T8 a "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", "28", 1 z$ V. G. P) F
",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34", ",", ! r) A8 p( u! P" W0 N" _- ~0 M T
"35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",", "41",
; p7 \/ m* U" b% b, @ ",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47", ",", : F& u q7 ]& Y, p
"48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",", "54",
) ?# o9 }/ f6 @9 d( A7 u ",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",",
" l4 [9 z' m( ^* Y! j "0.48531711328591953`", ",", "0.48531711328591953`", ",",
- c8 s! B+ L' T2 b) u' C9 e "0.45086352166650845`", ",", "0.36421192417525217`", ",", % V% q) F/ l3 {& Y0 m4 D
"0.4285207742559556`", ",", "0.4712694272667811`", ",",
" A' p) f2 p$ M/ t$ i2 {5 U4 w "0.5257533056184786`", ",", "0.4862065814071623`", ",",
$ l4 L w3 s0 Z "0.41106838915592014`", ",", "0.5486894206610683`", ",",
7 ] e3 @) v: t9 K6 s. p "0.007731168540073532`", ",", "0.013872406140339166`", ",", + P1 G/ J) n3 x' b- C: N( z$ K
"0.3956995051659565`", ",", "0.3663118256142717`", ",", , o, @/ G: Y: P
"0.29094217358055185`", ",", "0.5453093690736568`", ",", ; y. M. r- x4 }3 p* E$ k
"0.4413889888077799`", ",", "0.42944922031163585`", ",", 4 a7 g2 Q+ x2 @
"0.4309289055674891`", ",", "0.5942402821739983`", ",",
' _4 u3 a7 M6 g [ "0.33004609078545805`", ",", "0.18938658036630632`", ",", % L7 U) d- g! K" a
"0.4263720292858688`", ",", "0.23377136184738778`", ",", - T7 b# x6 R$ A! e2 C, \: {; _, p" N
"0.022328581933099827`", ",", "0.24436420008426807`", ",", , k0 e7 X7 C) Q
"0.5562383565309981`", ",", "0.13114103402954314`", ",", 4 Y' x3 j/ D( @& I
"0.5815052048989473`", ",", "0.42534559662935123`"}], "}"}]], "Output",2 ~ Q9 _. M- Y4 Q8 R) W
CellChangeTimes->{3.5779593961191735`*^9, 3.5779594268512273`*^9, + n7 A& h9 U$ `) D% c. C
3.577962342060174*^9, 3.57801245340625*^9}]
5 y% X2 ?" `5 C& e}, Open ]],8 E- X+ J# f* X. w
' p" u- V7 |& |
Cell[CellGroupData[{/ `$ K- D2 @7 n- s/ X+ }
4 j/ F6 o. ^1 V7 c, b; U
Cell[BoxData[/ G7 S# n1 ^: M: R
RowBox[{"y20", "=",
! P& s; s* f7 A3 o _) F9 K! E* R RowBox[{"Table", "[", ; B# v5 x' ?' C, H
RowBox[{"x", ",", " ^0 y* r4 J' k' y4 m
RowBox[{"{", V. c1 p( ?; g; K
RowBox[{"x", ",", "1", ",", "29"}], "}"}]}], "]"}]}]], "Input",
9 m3 `, V; B0 V- p CellChangeTimes->{3.5779253628125*^9, 3.577958351198152*^9}],3 b: I9 r4 [9 b0 a
( x1 A, i! q/ ]3 S8 PCell[BoxData[
0 m% W, y2 p& ~6 b; ]: s) k RowBox[{"{",
& @' @9 s) d/ G1 E3 v RowBox[{
: V- {# e2 P; u "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
$ R4 a# i9 a3 E/ f# x+ `6 t7 K ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15",- A$ E% ]6 R4 H# Y
",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",",
1 Q1 ]" }$ w1 ? "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", "28", . i8 N1 H; I& n3 O9 G: x X7 J
",", "29"}], "}"}]], "Output",
4 T3 b; z( A2 l* _ CellChangeTimes->{3.57792536553125*^9, 3.5779583535225563`*^9,
3 Y- C) P! R& e' I) n. M 3.577958515653639*^9, 3.577959053714177*^9, 3.5779623443065777`*^9,
3 Z( j% E# E6 X8 @4 ]# O 3.578012454875*^9}]
9 V9 ^4 ^( [$ M. Y( x}, Open ]],* G; `) ~0 c& Q L6 g* P
5 R* L- B; H5 E2 G. v
Cell[BoxData[1 o. k& \; W9 h: @) K4 N7 l2 C7 p
RowBox[{"For", "[", . n* W6 c7 n `
RowBox[{
1 C( G7 a! \, e3 z RowBox[{"i", "=", "61"}], ",",
+ k$ V3 x+ Y5 j9 }+ H% e RowBox[{"i", "\[LessEqual]", "89"}], ",", / E6 Z3 v' X. o1 k
RowBox[{"i", "++"}], ",",
8 l7 O0 W: \8 x A& O RowBox[{! J6 n2 E8 ]8 L8 X
RowBox[{"y20", "[",
: U1 c @" w! l- y$ j0 C RowBox[{"[", 0 w3 \+ L, v) K7 O) y
RowBox[{"i", "-", "60"}], "]"}], "]"}], "=",
( a: w$ l9 U! [ RowBox[{"Data", "[", 4 t( X& ~; V4 n- W3 T
RowBox[{"[",
$ c5 n1 U! O2 j0 E: I: l' |, K RowBox[{"i", ",", "11"}], "]"}], "]"}]}]}], "]"}]], "Input",; \7 t; G- C9 }$ S0 t
CellChangeTimes->{{3.57792259890625*^9, 3.577922624859375*^9}, {
. t! x6 z: Q& e/ u" d4 C9 S 3.577922687234375*^9, 3.577922702859375*^9}, {3.577922917453125*^9,
" G: J' F6 r/ Q5 {$ s: E3 T9 p 3.577922923203125*^9}, {3.577925372296875*^9, 3.57792538503125*^9}, {7 R8 e/ H* r4 A% {1 M# m k, s- |
3.5779583574225626`*^9, 3.5779583606673684`*^9}, {3.577959056849782*^9, 1 ` e( d( N* p. _* W
3.577959058690585*^9}}],
' F* e0 {, b! x% v
; [; M; O8 n# V6 Y: eCell[CellGroupData[{
8 g% }3 Y7 A# S& @/ x* @7 Q. G
Cell[BoxData["y20"], "Input",
; j7 l% {: v( l2 Y! U1 V2 j6 W CellChangeTimes->{{3.57783581975*^9, 3.57783582009375*^9}, {5 o- k+ J1 j$ X" d( p9 J3 ]
3.57792504965625*^9, 3.577925050125*^9}, 3.57792539146875*^9, # }" ?; r& {# M A8 R5 s
3.5779583657841773`*^9}],( c U. e( R m6 R/ Y) C) R
- a2 P- P; c+ i1 \. r2 kCell[BoxData[; ` _$ \* z' g. K0 b1 j* ~
RowBox[{"{", , D& Y" q3 a8 T
RowBox[{( T2 ?: f+ I# u$ x9 x+ X; C
"0.507042`", ",", "0.239437`", ",", "0.394366`", ",", "0.338028`", ",", * h* j# |. m/ p
"0.394366`", ",", "0.15493`", ",", "0.591549`", ",", "0.408451`", ",", 4 ? L6 Y$ |5 [: {4 G& ~5 Z/ j8 y
"0.295775`", ",", "0.661972`", ",", "0.774648`", ",", "0.746479`", ",",
, w) f8 r9 z; K9 z( S "0.887324`", ",", "0.84507`", ",", "0.704225`", ",", "0.760563`", ",", 8 C6 a& z8 O7 h. L% q2 j6 ]# V
"0.43662`", ",", "0.633803`", ",", "0.422535`", ",", "0.295775`", ",",
9 D! h8 j$ i8 ?" b4 K0 q "0.309859`", ",", "0.408451`", ",", "0.197183`", ",", "0.732394`", ",",
5 t( _% \0 M7 Y1 Q' n5 y "0.802817`", ",", "0.746479`", ",", "0.380282`", ",", "0.56338`", ",", % [+ v `" }$ y3 I, V8 N* n2 z* C7 \
"0.323944`"}], "}"}]], "Output",
$ Y2 w$ x: K, {' T6 I- x5 f CellChangeTimes->{3.577835820984375*^9, 3.57792505125*^9, , O+ ~) s! m1 z- j, Q8 C
3.577925393046875*^9, 3.5779583678277807`*^9, 3.577958517946843*^9,
- J# E0 E% v1 l# Y 3.5779590634017935`*^9, 3.577962347629384*^9, 3.578012456484375*^9}]: v$ ~& m: E: \" L. m( i5 P8 ?0 a
}, Open ]], z5 a I7 F8 R( U6 d$ r3 ~' a
; _+ h v- i$ @7 _4 u3 aCell[CellGroupData[{& \) o2 u# Y6 H6 K9 R
* }! t1 i, P: {( d- {0 ]& eCell[BoxData[- a: x5 B/ C( ]- w/ W$ R; V
RowBox[{"y20", "=",
' i6 J; s' e/ L RowBox[{"{",
! |/ c; f$ p) i- v+ X8 E. ?3 ~) c6 ` RowBox[{
& h; U# B+ c; d "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", : j2 D# E4 t3 g, s. n3 r" I2 G
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", " E f; W, h7 E+ ~4 ]4 F- g
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ) m' r$ j4 R, h! [* y8 c: l
",", "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",",
- T, Z0 o6 ?, r "28", ",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34", . |1 J! k3 s1 a/ a/ [& j
",", "35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",",
o( @3 {* Z0 _: _. l' X$ E9 k "41", ",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47",
& p, ?$ d. i. a. e9 u9 j ",", "48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",", * u2 F) u/ V7 R6 M8 V6 d
"54", ",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",",
C! a8 ]9 v" ]: A "0.507042", ",", "0.507042`", ",", "0.239437`", ",", "0.394366`", ",",
! W5 @( ^0 ~2 t! k& s4 p" a "0.338028`", ",", "0.394366`", ",", "0.15493`", ",", "0.591549`", ",",
- _( E2 V" N% Z4 b "0.408451`", ",", "0.295775`", ",", "0.661972`", ",", "0.774648`", ",", 8 k# E# w& @5 Q5 `% Z( |% {# s. ?
"0.746479`", ",", "0.887324`", ",", "0.84507`", ",", "0.704225`", ",",
: ~! g' G" S4 d8 G "0.760563`", ",", "0.43662`", ",", "0.633803`", ",", "0.422535`", ",", $ M8 O: m! W" y% }. D. b
"0.295775`", ",", "0.309859`", ",", "0.408451`", ",", "0.197183`", ",", - q8 Y. v5 }" ]& u! h2 B
"0.732394`", ",", "0.802817`", ",", "0.746479`", ",", "0.380282`", ",",
: ? |/ G/ V+ m: e6 U "0.56338`", ",", "0.323944`"}], "}"}]}]], "Input",- h" X8 c& a: {* L
CellChangeTimes->{{3.577959534959416*^9, 3.5779595573142548`*^9}}],
b: b% Z; @: Q4 Q/ O0 @# s7 t+ ^3 }; h4 W
Cell[BoxData[$ d$ i! T, j9 u" H0 U+ W# O o
RowBox[{"{",
) t/ K# w v5 w# O, M: ^# l RowBox[{
/ A5 `7 G% A+ s4 l6 h& W3 a8 } "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", . Y( w4 S% J7 v, \: q
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15",: H. e9 }& @5 M5 z+ W) O4 X5 B1 @8 D
",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",",
8 d, ]: l0 K, A# A "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", "28",
7 D; ~4 x) b# M$ }* V1 l% W, Y ",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34", ",",
, C4 [& S9 }; F+ h$ x. y "35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",", "41", 3 p) K/ l+ Q2 v! b9 c
",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47", ",",
2 Z/ ?# f3 B# p3 F' O5 X "48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",", "54",
, z6 K4 j, W+ p+ H' q! [6 V ",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",", "0.507042`",
( ]" H) H' p |( e9 } ",", "0.507042`", ",", "0.239437`", ",", "0.394366`", ",", "0.338028`",
9 q% S7 Q+ n% `; W ",", "0.394366`", ",", "0.15493`", ",", "0.591549`", ",", "0.408451`", ",",: a/ t9 P4 n. y+ M4 \
"0.295775`", ",", "0.661972`", ",", "0.774648`", ",", "0.746479`", ",", . l# I, w, e3 l9 E% C
"0.887324`", ",", "0.84507`", ",", "0.704225`", ",", "0.760563`", ",",
" |: O8 L2 ^0 O" Y3 \: P8 I "0.43662`", ",", "0.633803`", ",", "0.422535`", ",", "0.295775`", ",", & y) s! o0 @; v7 K8 S
"0.309859`", ",", "0.408451`", ",", "0.197183`", ",", "0.732394`", ",",
T4 k6 G+ Z# w- j' ]7 N$ E0 t; ] "0.802817`", ",", "0.746479`", ",", "0.380282`", ",", "0.56338`", ",", ) g% C, |8 F4 k/ o7 i
"0.323944`"}], "}"}]], "Output",* L, t. C( W( j
CellChangeTimes->{3.5779595594514585`*^9, 3.577962351778991*^9, ' u5 [/ ~- _8 x3 w
3.578012457234375*^9}]
- y5 u9 Y9 U) G' W2 \}, Open ]],
+ L: a0 J! Q5 c# G- j& \* } \
- a: m+ }2 Y8 W jCell[CellGroupData[{$ g1 s: a B* w0 x
* T7 j/ C5 v3 ~$ |* |1 x. G
Cell[BoxData[4 F/ _- ]4 h7 |! V9 q2 Y2 C
RowBox[{"p2a", "=",
( V O0 r3 Z& e( g9 n4 g RowBox[{"ListPlot", "[", 7 A) L* H9 r) ?# i6 |% S
RowBox[{"y2fit", ",",
: ^, J3 j+ ^, D9 i" x* u. W; D9 j RowBox[{"PlotJoined", "\[Rule]", "True"}], ",", / u( Y4 ~+ u) B% B) h1 L! X
RowBox[{"PlotStyle", "\[Rule]", 5 @+ Y6 ^! M' m# A( ~
RowBox[{"{",
4 a2 P; O0 ?6 D RowBox[{"RGBColor", "[", & i+ I, v5 X, M, c. ~7 K
RowBox[{"0", ",", "0", ",", "0"}], "]"}], "}"}]}], ",", - m* s0 I7 J: V! }
RowBox[{"PlotRange", "\[Rule]", 7 d- }$ V4 |' n* ~; r6 q
RowBox[{"{", . L0 @0 ~* T- a# A5 w
RowBox[{
8 j, G) N7 v: x RowBox[{"{", ) a) J- ^. A$ b$ _% F' A8 v/ I
RowBox[{"61", ",", "89"}], "}"}], ",",
% F8 e+ K% X5 g5 X4 M RowBox[{"{", 8 ]. d* d8 o: y5 l
RowBox[{"0", ",", "1"}], "}"}]}], "}"}]}], ",",
5 _/ T, P$ i0 h# M; Y5 w3 ~! ` RowBox[{"AxesOrigin", "\[Rule]",
7 ?, M8 d. }' v$ p& a; ^( s RowBox[{"{",
( v: t: X7 B0 d5 R RowBox[{"61", ",", "0"}], "}"}]}], ",", ' ~) ~3 O6 S, J0 d
RowBox[{"Frame", "\[Rule]", "True"}], ",",
( B3 _# O% a! K% f: \ RowBox[{"FrameLabel", "\[Rule]",
0 B1 i5 v7 G% ~) Y3 ?: m7 \ RowBox[{"{",
- J2 T' ~- X: U RowBox[{ q; t% q* S# J
"\"\<\:7089\:6b21\>\"", ",", ) Q: b! _: q/ F/ m5 ]1 C
"\"\<\:94a2\:6c34\:7ec8\:70b9\:6e29\:5ea6\:ff08\:5f52\:4e00\:5316\:ff09\
9 v9 {1 v& A" J6 [& D( j' E\>\""}], "}"}]}]}], "]"}]}]], "Input",
- B* d. T0 ^! q4 U% @* i* P CellChangeTimes->{* s0 q$ }% e8 \9 z) \: F, t
3.577925078578125*^9, {3.577925141125*^9, 3.577925141453125*^9}, {
+ s4 `7 g+ `4 n( G9 u/ {! c" s9 a 3.5779583712597866`*^9, 3.5779583781393986`*^9}, {3.577958536604475*^9, , y4 b6 y u( W2 y U- [- e) h7 W& h
3.5779585491624975`*^9}, {3.5779592802577715`*^9, 2 |9 ^: i9 q* }" A
3.5779593014270086`*^9}, {3.5779594039971876`*^9, # N; }$ D) c* m; Z# g
3.5779594059783907`*^9}, {3.57795949706695*^9, 3.5779595174717855`*^9}, {4 V$ ?$ t8 A+ i$ Q+ }
3.5779604302529774`*^9, 3.577960442311798*^9}, 3.57801246978125*^9, ! A: R d/ n5 }- y
3.578012920859375*^9}],
/ e4 ~/ G6 M m0 W
# O! m& `/ v, j' i7 h/ t* ZCell[BoxData[
5 R& a- [* G0 i0 M- D: h" N8 D, ~ GraphicsBox[{{}, {},
" k) P9 j$ n# s" o# O3 i0 K0 { {RGBColor[0, 0, 0], LineBox[CompressedData["! G) w0 w- Z W8 F" T9 A
1:eJxTTMoPSmViYGCQB2IQLfG6//j9f74ODGDwwR5C+zk4KBc05fPfh/Ab0PgM m& F/ C' j3 d* r
/g4m4oprPt26A5X3dxAJP9lu738dKh/gcKP+aOqjnNsQvkOAQ9SpXDt3zXtQ
- u# e1 S# K% Z9QEOX5eumfHj0gMI/0CAg/bMflMmOZj5gQ4JrN9OfvS7BdUf6LDxwhrZu30P
, M% |+ q9 A" b0 SofoDHVZuXXhg+6p6qP5Ah8uuLVeVMnug+oMcck/nsagE34TqD3I4uP6k+vJC
7 x3 B. z: z8 f8 p! |qPsaghzi+pXfnJ53Cao/yOHQV+9FOsVQ8xmCHcrmvJ+53R7qP4dgh6P/FKdK
5 W1 o) M6 I" h% F7 |$ e i: A+ P1ED90xDsEMcvcjVsCpR/INih6pmNEQvLY6j+EIfv6m2LK+WvQvWHOOTuqzlx8 i8 ~% ~& n) P( v% n5 f) U
0fYEVH+Iw5EJuS/WesL0hzi8kP0QYPHmLFR/qMO/I2uO+N6dBtUf6rAj61p17 h6 {5 P9 a! J
sPt5qP5QB47ZhxK3nIG690CoQwOb5i6rkweg+sMc+K6uP7th9iOo/jCHdUEH
& |1 n8 ?$ b) v99yxuG0PAHw7nyU=- p% D5 g+ h& J
"]]}},
6 G8 B3 j9 P J; |# z! c AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],6 T/ Z% l! r3 n6 u& n
Axes->True,: ?* t! \/ d- U# x. E$ n' ]4 w% n- ^
AxesOrigin->{61, 0},
0 G! p" d: p% W Frame->True,2 G$ P0 n$ j! a. o. x
FrameLabel->{. ]1 b w( _. P7 @2 D
FormBox["\"\:7089\:6b21\"", TraditionalForm], / B, O: i5 I3 G* Y
FormBox[
5 i5 h& c" E, n3 `/ Z7 N "\"\:94a2\:6c34\:7ec8\:70b9\:6e29\:5ea6\:ff08\:5f52\:4e00\:5316\:ff09\"", 4 S [" L+ T6 @6 N% q* H
TraditionalForm]},5 l( g% b& s& @' ?9 G" y6 ^+ o! N
PlotRange->{{61, 89}, {0, 1}},+ r( j+ o2 A. F& v, z! s
PlotRangeClipping->True,) W3 l& _2 I# O- r' x$ B4 r
PlotRangePadding->{Automatic, Automatic}]], "Output",
) f; e$ l/ K3 m' f( K CellChangeTimes->{, h: q" E0 L* D3 ` [( a
3.577925144625*^9, 3.577925396578125*^9, 3.5779583797150016`*^9, 3 f7 ~% e$ p9 E/ G$ n' D0 _
3.577958519990446*^9, 3.5779585510813007`*^9, 3.5779590670678*^9,
) J5 v+ G' w: i+ {" }8 m9 W 3.5779593035642123`*^9, {3.5779594075383935`*^9, 3.577959430158433*^9},
1 T# Y2 N" a+ Y: v2 D 3.5779595184233866`*^9, 3.5779604438874006`*^9, 3.5779623548833966`*^9,
7 C' @: M0 B$ T; d" p( A 3.57801247209375*^9, 3.5780129225625*^9}]/ ~ \9 o) K* f3 J1 r8 |3 \7 H
}, Open ]],) u: M( V2 z9 t) Y5 `
: D0 k7 _* i6 K* YCell[CellGroupData[{
; H$ v0 I5 M( h
# [! p# E2 r- w3 Y$ M* C. l4 _Cell[BoxData[% y5 D" k- I2 k- I& y
RowBox[{"p2b", "=", + j0 N9 b& a: `4 T6 ^* e3 j& _. n+ }( {
RowBox[{"ListPlot", "[",
# ]: D0 k! U/ S9 ?$ v/ @ RowBox[{"y20", ",", $ [% |2 p- Y0 o9 {
RowBox[{"PlotJoined", "\[Rule]", "True"}], ",",
0 p. G" S' [5 K RowBox[{"PlotStyle", "\[Rule]",
3 v) V3 ?$ `5 E. H RowBox[{"{",
( v/ K) U { X, B$ B' ^ RowBox[{
! Z3 C5 b1 e. P: ]# g. \ RowBox[{"RGBColor", "[", . c5 A' X0 g3 F+ z$ C& t: }
RowBox[{"0", ",", "0", ",", "0"}], "]"}], ",", "Dashed"}], "}"}]}],
, X( A) ^+ t6 B( l ",", $ U# V8 S: q" b3 C) h6 r' F
RowBox[{"PlotRange", "\[Rule]",
$ F) r/ D" b" ` RowBox[{"{", 1 H' i; t- T+ R- z
RowBox[{
7 G) Z c$ m, m* ^8 H RowBox[{"{", 0 s+ M- v S$ Q5 H. V* m3 U
RowBox[{"61", ",", "89"}], "}"}], ",", ) ?5 }- i$ C2 K- q7 k- M* Y
RowBox[{"{", ( H3 M( L$ O' b' _2 C
RowBox[{"0", ",", "1"}], "}"}]}], "}"}]}], ",", ; c& s3 M- |7 }% A1 V
RowBox[{"AxesOrigin", "\[Rule]",
1 R- q3 ^ s0 n* G( h* H+ ~3 V- u RowBox[{"{",
( r$ T3 S: w. @0 @; H RowBox[{"61", ",", "0"}], "}"}]}], ",",
2 n0 `$ E. l. L RowBox[{"Frame", "\[Rule]", "True"}]}], "]"}]}]], "Input",7 L: `2 g8 |4 d; [3 Z
CellChangeTimes->{' Y' C/ c" `% E. \1 u( O
3.5779253991875*^9, {3.577958382429406*^9, 3.5779583843326097`*^9},
& X/ K, t2 F/ N I& K4 ` 3.57795855655691*^9, 3.5779595724462814`*^9, 3.57801248346875*^9}],
' [7 @$ \3 i! h9 U2 f6 h1 T4 W" {- P( `+ L% F
Cell[BoxData[* m: I4 M) [- E, D% A& u$ C
GraphicsBox[{{}, {},
; A2 k+ Y# Z* ?' `' c6 H {RGBColor[0, 0, 0], Dashing[{Small, Small}], LineBox[CompressedData["$ ~% L4 M1 \+ r) P9 X$ q, y/ n- K
1:eJxTTMoPSmViYGCQB2IQbff56PXX/3wdGMDggz2E9nPoi/ymssHyAYTfgMZn. v- d4 {& P+ D# z7 O
8HdY88xS6f7Sc1B5f4clDzSfeNnehMoHOGSUexg6LLoK4TsEoMo3BDj8WDWV
9 Y& I2 I) P; r p! \( pc/+VwxD+gQCH6gx57R9vH0H1Bzpw6R9cya9yC6o/0GFSzD/nX28vQfUHOvgc
b/ O/ V/ P7 T; g( ?5 n4 m& H1 jiX5+X+8pVH+gQ4eu7axXJ19A9Qc5WF5ueav++DlUf5DDkWlyvl9T3kD1Bzk4
% A/ W: I' d' w9 @9 lTZ1le4HrNVR/kMP2iwz3mDqfQfUHO4S2FZp3hEHNcwh2WPHYkHnqx9tQ/cEO1 k$ l) C4 Z9 t: h. P
fzMXW8l6PIHqD4aaB5VnCEF1r0OIw6lD16/vunIZqj8E1X8HQqDhcxKqP9SB
9 H/ X$ q' Z3 L" b7 T$ B9 T0 \4 fTWdn19F8mPtDHa63f3Vbu+ElVH8oqv8OhDrkVAUEdIXdgOoPc9DhS68zZYeG: Z u3 K8 A1 G$ r; Z- S
p0OYg4Fg/tz63VfsAdsCnzU=& d& M( M8 v! y a1 `
"]]}},
% @" ?* w. z8 m) f# e* E2 F AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
4 N5 U8 b* t+ {$ k5 n$ F Axes->True,
0 s: G3 O7 W6 F' m8 o- @$ \$ U AxesOrigin->{61, 0},
6 r" x8 f7 T3 o0 v Frame->True,0 i9 O9 e6 W% ^# j& K+ ?
PlotRange->{{61, 89}, {0, 1}},
8 Y. n! L% h9 R h PlotRangeClipping->True,
2 t& P) n+ b7 @ PlotRangePadding->{Automatic, Automatic}]], "Output",. H: j* p' T( v6 {( |& q
CellChangeTimes->{3.577925147265625*^9, 3.577925400640625*^9,
; U; R/ X; T& m# R; L d+ F 3.5779583861890125`*^9, 3.5779585219092493`*^9, 3.577958558132513*^9,
+ I) h4 M& W5 _+ Y/ w' l0 w 3.5779590691114035`*^9, 3.577959577906291*^9, 3.5779623569426003`*^9,
4 u3 s, ]+ p0 u' e9 q% G+ [* d 3.578012484703125*^9, 3.578012925875*^9}]# n: U: C* W {# X$ W1 ^% I
}, Open ]],8 {6 @$ W7 I7 ~3 c) p
* s8 t4 x. ?+ k2 f( a c% ]$ ~Cell[CellGroupData[{* W4 H4 L( z$ \4 e
! q y. h6 b( [0 fCell[BoxData[
& j5 L! |' ~, i8 T( M RowBox[{"Show", "[",
2 V0 e$ f# P1 v3 @ RowBox[{"p2a", ",", "p2b"}], "]"}]], "Input"],- F w, W, u& j5 y' E
) d. }7 n; p: @+ c+ M, e4 w2 j: FCell[BoxData[" l7 ~; t3 Z; [3 M
GraphicsBox[{{{}, {},
+ a4 ]9 d+ O B; |( l* _. Z {RGBColor[0, 0, 0], LineBox[CompressedData["
6 Q5 d0 s9 J7 x, o, }7 ^1:eJxTTMoPSmViYGCQB2IQLfG6//j9f74ODGDwwR5C+zk4KBc05fPfh/Ab0PgM+ A* Q ~4 |! X v7 J' S
/g4m4oprPt26A5X3dxAJP9lu738dKh/gcKP+aOqjnNsQvkOAQ9SpXDt3zXtQ4 ~. q% n0 b' Q: T
9QEOX5eumfHj0gMI/0CAg/bMflMmOZj5gQ4JrN9OfvS7BdUf6LDxwhrZu30P9 _8 k" w) E! e8 L
ofoDHVZuXXhg+6p6qP5Ah8uuLVeVMnug+oMcck/nsagE34TqD3I4uP6k+vJC
( x$ s% E0 M0 NqPsaghzi+pXfnJ53Cao/yOHQV+9FOsVQ8xmCHcrmvJ+53R7qP4dgh6P/FKdK) b8 H, j3 W2 {- F0 Z! s
1ED90xDsEMcvcjVsCpR/INih6pmNEQvLY6j+EIfv6m2LK+WvQvWHOOTuqzlx
- G# o/ J% Z! a$ A0fYEVH+Iw5EJuS/WesL0hzi8kP0QYPHmLFR/qMO/I2uO+N6dBtUf6rAj61p1
/ L8 B' L D9 D' m6 o6 B. x% ZsPt5qP5QB47ZhxK3nIG690CoQwOb5i6rkweg+sMc+K6uP7th9iOo/jCHdUEH+ }+ O: Z; \ g
99yxuG0PAHw7nyU=6 z0 P! I( X e3 X* O& h" p
"]]}}, {{}, {},
% B: V; Y/ p! v0 n- b) @+ g {RGBColor[0, 0, 0], Dashing[{Small, Small}], LineBox[CompressedData["' C, R% Z0 P1 \( p/ ^
1:eJxTTMoPSmViYGCQB2IQbff56PXX/3wdGMDggz2E9nPoi/ymssHyAYTfgMZn
+ f+ \6 ]! F. ]0 M! T: _) J, w8HdY88xS6f7Sc1B5f4clDzSfeNnehMoHOGSUexg6LLoK4TsEoMo3BDj8WDWV
7 Z0 Y9 M/ @2 _, V0 ?c/+VwxD+gQCH6gx57R9vH0H1Bzpw6R9cya9yC6o/0GFSzD/nX28vQfUHOvgc
\ ^: x9 W T9 o, _& E uiX5+X+8pVH+gQ4eu7axXJ19A9Qc5WF5ueav++DlUf5DDkWlyvl9T3kD1Bzk4
' c _" a h* U8 zTZ1le4HrNVR/kMP2iwz3mDqfQfUHO4S2FZp3hEHNcwh2WPHYkHnqx9tQ/cEO1 e- ~) m- |& ]6 c6 i
fzMXW8l6PIHqD4aaB5VnCEF1r0OIw6lD16/vunIZqj8E1X8HQqDhcxKqP9SB0 s9 L. @0 q4 V1 ~4 x
TWdn19F8mPtDHa63f3Vbu+ElVH8oqv8OhDrkVAUEdIXdgOoPc9DhS68zZYeG
9 V+ B( P- l& i0 Z& v% n3 W; x# b: Rp0OYg4Fg/tz63VfsAdsCnzU=" z$ F5 C- b/ t+ |& ]1 G" P
"]]}}},
9 n# G, a+ H$ r6 }9 m' a" A: R R/ w AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
* @: D* e* x0 Y Axes->True,
: U3 U- ~3 \. i9 w# U1 X% p0 n AxesOrigin->{61, 0},
7 w2 M+ h, O. p+ N Frame->True,# }! G+ h4 ^+ s* Y
FrameLabel->{; J) U) C, j* F
FormBox["\"\:7089\:6b21\"", TraditionalForm], / H0 Q4 T, H, B J! x
FormBox[, O7 f* u% @! N3 G& B: o2 z7 B
"\"\:94a2\:6c34\:7ec8\:70b9\:6e29\:5ea6\:ff08\:5f52\:4e00\:5316\:ff09\"", & P" B/ n. c* d+ ^2 m
TraditionalForm]},
2 |8 A2 e6 d4 W& _; ^2 u2 P PlotRange->{{61, 89}, {0, 1}}," h8 J4 I( w" \* l7 g0 i
PlotRangeClipping->True,
! T8 e- r9 u" D+ A, G" | PlotRangePadding->{Automatic, Automatic}]], "Output",
! Q ]; l- U8 U0 ^- t CellChangeTimes->{3.5779623624182096`*^9, 3.5780124863125*^9, " J% V# ~: Z/ C
3.578012927734375*^9}]
: O' {; E' E `' S+ k}, Open ]],
( d6 F2 N1 I3 j2 ?; s/ l# b! H, t! H0 }3 o
Cell[BoxData[9 F6 C3 }: U6 }6 i' Z! S
RowBox[{"\:ff08",
4 J8 L& b- ~0 C4 Y9 o8 {, i RowBox[{
" }# K% ?/ ^# b# b" h$ K ]1 W' o "\:5df2\:77e5\:521d\:59cb\:94c1\:6c34\:8d28\:91cf0", ".7406",
% K2 s; w V3 ^% a+ r "\:3001\:5e9f\:94a2\:8d28\:91cf0", ".4621",
/ |, @1 _4 d& ]- X "\:3001\:4e0b\:526f\:67aa\:65f6\:7684\:94a2\:6c34\:6e29\:5ea60", ".5208", $ r1 n7 {0 v1 G2 u$ x
"\:3001\:4e0b\:526f\:67aa\:65f6\:7684\:94a2\:6c34\:542b\:78b3\:91cf0", 4 {" h- d# O9 C6 q7 e
".2221", "\:ff1b\:76ee\:6807\:94a2\:6c34\:7684\:7ec8\:70b9\:6e29\:5ea6\7 d( }. K! i9 I
\:4e3a0", ".6224", $ U; {- T" u s9 X0 u
"\:3001\:76ee\:6807\:94a2\:6c34\:7684\:78b3\:542b\:91cf\:4e3a0", ".2521"}],9 E) p& w+ t$ N( m6 z2 Y6 S L
"\:ff09"}]], "Input"],
7 \0 @& n& ~+ o
. T( d8 e4 G* h: {! v1 TCell[BoxData[1 D: V; e5 V6 V5 Z) S4 `- _" ~) P. J/ T
RowBox[{"{",
0 y$ [+ F# U) z$ D RowBox[{
& M: p9 T3 ?3 z. P H/ b "\:94c1\:6c34\:8d28\:91cf", ",", "\:5e9f\:94a2\:8d28\:91cf", ",",
- u! C4 I& [; I# ~6 D0 W7 j) g3 N3 E "\:5439\:6c27\:91cf", ",",
$ j. ~) s# y% v2 a: W' { "\:4e0b\:526f\:67aa\:65f6\:7684\:542b\:78b3\:91cf", ",", 3 ^0 Y+ M/ G# g. x* R* _0 k
"\:4e0b\:526f\:67aa\:65f6\:7684\:94a2\:6c34\:6e29\:5ea6", ",",
6 q& P' j. A% k. G& y "\:5757\:72b6\:77f3\:7070", ",", "\:8f7b\:70e7\:767d\:77f3\:7070", ",",
$ W% H+ r$ T5 R% a- o "\:83f1\:9541\:7403", ",", "\:5757\:72b6\:767d\:4e91\:77f3", ",",
# J d1 N+ [% f N3 q& @# O "\:94a2\:6c34\:7ec8\:70b9\:542b\:78b3\:91cf", ",",
n! w: J' x* y3 w2 g "\:94a2\:6c34\:7ec8\:70b9\:6e29\:5ea6"}], "}"}]], "Input"],' v% p& R* {6 w) _
2 I0 W2 m% h. H/ S) s: B; [% @Cell[BoxData[" "], "Input",
0 L5 t1 N* D+ D' F0 M) G/ R3 q5 V+ U CellChangeTimes->{3.577962834553033*^9}],+ G* [3 A8 ~: n/ B* O( I
8 {( a' d: m* s8 }7 @5 mCell[BoxData["\:94a2\:6c34\:7684\:78b3\:542b\:91cf"], "Input"],0 T' `, G/ Q5 h2 f( ^' \8 {4 U6 |
0 X2 |9 k6 \; wCell[CellGroupData[{8 D( c3 R& M! ~7 m) s5 b( `0 A
& W8 l1 [1 W R: v6 J- o
Cell[BoxData[- P* {- }0 t% J7 t
RowBox[{"y1", "/.", + W5 p" Q# X3 \4 V' r7 W! z
RowBox[{"{", ' ^ ]( p* c a# Q
RowBox[{- w) V. x5 M6 Y& e
RowBox[{"x1", "->", "0.7406"}], ",", 2 l" q5 v7 ]9 |3 Q
RowBox[{"x2", "->", "0.4621"}], ",",
% [" a2 F# B; _2 M" j RowBox[{"x4", "->", "0.2221"}], ",",
* t: b( |; Y( v4 C- | RowBox[{"x5", "->", "0.5208"}]}], "}"}]}]], "Input",
2 o8 c& u$ ~9 O4 |$ s8 t: |/ V+ C CellChangeTimes->{{3.57796267209435*^9, 3.5779627224200373`*^9}, {
* a0 f# @# m7 } 3.5779627663029137`*^9, 3.577962774820529*^9}}],! ^8 ^1 v. R( a* o6 B
+ B. n+ v, B# N4 p6 u
Cell[BoxData[
0 e/ c1 }# }) N9 {- u; W RowBox[{9 D+ o* h# J; ]! B2 O3 a+ R
RowBox[{"0.2286149508637297`", " ", , M0 H8 R( m X* v# U+ D
SuperscriptBox["\[ExponentialE]",
4 F5 x8 O- H$ V, i( _ RowBox[{"3.1415926535897936`", " ", ; z" |$ a% H8 x1 y. g5 R
RowBox[{"(",
% l* A# j, b) C5 C/ l RowBox[{$ o4 R' q& O$ `" |$ d
RowBox[{"-", "0.17911224641499998`"}], "-",
4 K0 l9 E( P9 M SuperscriptBox[
: A4 U4 u* m) e1 ?; G RowBox[{"(",
% D* s" @7 o( M& K L RowBox[{
: h/ f) X A1 P2 T7 Z RowBox[{"-", "0.530346`"}], "+", "x3"}], ")"}], "2"], "-", ; |4 _) D7 o) ?: ~, o. m$ H: [$ M. V9 S
SuperscriptBox[" u# n$ V; v, t- I# c
RowBox[{"(",
& J$ O% a# z$ y& ~ RowBox[{* ~: [9 O; s+ t) _7 m8 ]. S6 S
RowBox[{"-", "0.529013`"}], "+", "x6"}], ")"}], "2"], "-", 6 `& S m* h! Q5 O! Y& ]! X
SuperscriptBox[! F8 @# E9 E" b) L# ?
RowBox[{"(", . x" s& {2 Q _1 l7 g- }) j
RowBox[{
$ I! ~+ g8 @6 Y# ?4 @% W1 q RowBox[{"-", "0.409756`"}], "+", "x7"}], ")"}], "2"], "-",
" x7 O' A9 m% _ SuperscriptBox["x8", "2"], "-", , f. z' u0 Z* B' d9 M5 p
SuperscriptBox[
# ?* V+ \9 A1 w" }* P' ] RowBox[{"(",
! m4 d0 _7 i8 |2 e: U( X2 O* w RowBox[{
. ~/ Z5 U& `2 R( A2 m0 I RowBox[{"-", "1.`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}], "+", , D; _" h* b. O, A
RowBox[{"0.020180806675835994`", " ", 6 v+ s8 Q4 n- N& U
SuperscriptBox["\[ExponentialE]",
" L+ V! o+ r2 K# t/ Z0 } RowBox[{"3.1415926535897936`", " ",
8 \ x9 X+ ^+ U/ ^: G0 k& Y) O' F RowBox[{"(", ( W/ C( @+ C2 w3 k; Q: Y
RowBox[{
1 c8 O3 [! |. U% P( s RowBox[{"-", "0.105619387859`"}], "-", ! C! p' v: E0 A8 r% L. g
SuperscriptBox[4 p% e$ p3 S- K; o* b) t
RowBox[{"(", 6 K- X* [! X# f0 G8 ]. Y4 J
RowBox[{4 i- ?' Y6 q q5 u. P3 j B3 N
RowBox[{"-", "0.64973`"}], "+", "x3"}], ")"}], "2"], "-",
3 d1 j- ^# A- T5 e+ I+ H( \& ^* { SuperscriptBox["x6", "2"], "-",
B- O' b. ]) s$ P( Z/ P SuperscriptBox[0 m2 G! D5 }6 h P/ Y0 d( [+ D, v
RowBox[{"(",
5 |! l5 f( y- j) {" l RowBox[{. h' v2 A0 X+ `5 V, }. n) x
RowBox[{"-", "0.636585`"}], "+", "x7"}], ")"}], "2"], "-",
# A! u+ j( X+ s8 S( O SuperscriptBox["x8", "2"], "-", - B0 u" S, j: J4 L
SuperscriptBox[. ^ E4 ]/ V0 R9 `
RowBox[{"(", 1 I5 b/ o" y% e6 Z- T+ M& M
RowBox[{4 `- k5 c! e6 ?) q8 H; y* @3 Z
RowBox[{"-", "0.766748`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}], % b. x8 a! D" Y
"+", " \* z5 G$ c, T- f
RowBox[{"0.13092706311748437`", " ", . Q+ ]. M! S* c. R& d
SuperscriptBox["\[ExponentialE]", $ r) r& G- v: X$ J
RowBox[{"3.1415926535897936`", " ",
7 z% n( F) Y" z RowBox[{"(",
" @3 e& A6 o8 I$ [# c RowBox[{
3 [5 K" G7 Q! b) m$ L- \, ` RowBox[{"-", "0.236605670085`"}], "-", ( u. L% F0 v6 e4 I$ ~! m1 [! _3 }
SuperscriptBox[! `3 d: I! x- R k# p$ S4 K- h
RowBox[{"(",
4 q0 A, {2 S9 E+ l- m$ H' Q% ` RowBox[{4 i. {) l: m ~+ A. p" S
RowBox[{"-", "0.109343`"}], "+", "x3"}], ")"}], "2"], "-", 3 S+ n6 s% f N
SuperscriptBox["x6", "2"], "-", % B( ?4 g7 f/ V
SuperscriptBox["x7", "2"], "-",
$ O8 b) X: x& \* n Z; W SuperscriptBox["x8", "2"], "-",
. m* ~9 o) P% [$ o: L6 t- S, l2 R0 Z6 _ SuperscriptBox[2 I( ?" h- ~5 j4 `5 S! @
RowBox[{"(",
* S- }( Q; c: o4 K1 d4 c' U6 _ RowBox[{
. B& c1 x0 e; B0 d# v4 J! v s! F RowBox[{"-", "0.752567`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}], 3 l- ~6 B. h% E R* G# w
"-",
9 J: s: Y, I! t) Y RowBox[{"0.033459349088924784`", " ",
4 [! X$ a* a) @% c; Q7 r SuperscriptBox["\[ExponentialE]",
6 H' H# V t) O5 }4 {0 j y RowBox[{"3.1415926535897936`", " ", . _: ^, {7 r/ g$ j+ J ~
RowBox[{"(",
& l. ~) v8 l7 h! n: X RowBox[{
4 f: ~1 V S' R0 k( p$ R4 o RowBox[{"-", "0.46221081830200006`"}], "-", 8 K: `$ h: s& L ?" N
SuperscriptBox[' p# ` i$ C5 B+ y; y# ?# g& W
RowBox[{"(",
- n+ |2 g, n W% f RowBox[{2 G |3 t* [* n( g) u0 |& M2 {+ P, \
RowBox[{"-", "0.258697`"}], "+", "x3"}], ")"}], "2"], "-",
% M6 W- N' W6 i0 i SuperscriptBox[0 c; X9 q! J6 [ E. u4 y$ n2 Z, ]: e
RowBox[{"(", 3 l, G% F. W" b9 o$ M
RowBox[{* A, T) m: w( y4 V3 L% D
RowBox[{"-", "0.420497`"}], "+", "x6"}], ")"}], "2"], "-",
; K. Q; M' t; K) `% s! k SuperscriptBox[. ]/ t8 D: @% C
RowBox[{"(",
. X# K9 ?# \& c: X$ D. Q RowBox[{# G8 }# e6 t- n# { f
RowBox[{"-", "0.535772`"}], "+", "x7"}], ")"}], "2"], "-", % z% |% E/ H0 ~9 l4 A( g- H
SuperscriptBox["x8", "2"], "-", & H& T' F Y9 B6 K( Q) Z
SuperscriptBox[9 R- [' X$ M* t5 F. J+ C
RowBox[{"(",
9 w0 x, a7 U/ |9 |0 I RowBox[{3 b* s, k7 w+ F( o: }" p
RowBox[{"-", "0.494866`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}], 1 |, s' [( u# K+ F; i
"+",
. g9 ~* L! r, K RowBox[{"0.39611806709006653`", " ",
% l2 q g* I# f- a% f SuperscriptBox["\[ExponentialE]",
f8 C* C' T# n Y. u" y RowBox[{"3.1415926535897936`", " ",
. z! a; `& n9 ?. b: \/ O& u RowBox[{"(", 1 }6 n( z! \7 Q/ _: m
RowBox[{
1 a7 ]# l' R7 \, ~1 E. e( @0 A RowBox[{"-", "0.5837889295140001`"}], "-", - n |, G2 z( v
SuperscriptBox[
7 U# E% v! X3 ? RowBox[{"(",
3 G) p: W2 i& [& x. ~ RowBox[{
. Z$ U; N- o. _+ [' W0 L RowBox[{"-", "0.027011`"}], "+", "x3"}], ")"}], "2"], "-", & I7 O; o2 R! e' A* m0 r. m" I+ q
SuperscriptBox["x6", "2"], "-", ' B9 i- I. ]8 p
SuperscriptBox[
' y5 k2 N9 L! O6 d- L6 B5 d RowBox[{"(",
$ Z" \- \% S) h V, w RowBox[{" d; G1 b2 p- @7 F: [8 N
RowBox[{"-", "0.452033`"}], "+", "x7"}], ")"}], "2"], "-",
" w- ]( G- a l/ F SuperscriptBox["x8", "2"], "-",
. ?9 }# Q+ S: _/ C: O SuperscriptBox[
, H7 A5 H9 {/ `6 ]# r RowBox[{"(",
) [1 Z0 @8 |/ C6 z4 F RowBox[{
1 L! p8 n; |% W2 n$ @ RowBox[{"-", "0.278729`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}], 2 D# n* [, m3 u& i/ U8 ?: {/ {
"-", 1 U2 r% ~# O8 @9 Z* G" _. \) n9 N! U
RowBox[{"0.19996885877792045`", " ", : R& h; Z0 G8 L+ y6 j
SuperscriptBox["\[ExponentialE]", 4 L: ?0 D" N) I$ A1 @
RowBox[{"3.1415926535897936`", " ", " G5 H$ \) @' {+ G
RowBox[{"(", & O& C0 k8 _9 x
RowBox[{
1 o5 m8 e. `5 g9 q1 G9 w RowBox[{"-", "0.19030188470200005`"}], "-", $ Y5 n: m) _1 [
SuperscriptBox[
; G8 I9 J# [+ i& t5 d! K RowBox[{"(",
! E& n7 ` R6 s/ w( F0 h" B+ Q RowBox[{5 O& H0 a) [1 ?
RowBox[{"-", "0.510223`"}], "+", "x3"}], ")"}], "2"], "-",
. `. [1 J. I3 k( k SuperscriptBox[
& h, N2 a6 c0 I5 ^) r/ Q RowBox[{"(",
9 S3 r# j' E; j8 h% z8 f5 ~ RowBox[{
* V# f) D; W+ \+ a1 A+ q1 T) Y RowBox[{"-", "0.748304`"}], "+", "x6"}], ")"}], "2"], "-", ' k7 M _, A. m) o1 l- e% `
SuperscriptBox["x7", "2"], "-", 5 z- |" k* K8 F+ [3 k* ^
SuperscriptBox["x8", "2"], "-", & X6 X7 t/ C. E0 z1 |0 R( b
SuperscriptBox[
$ `; q0 f1 D: K RowBox[{"(", % e. r4 l4 Y- O: i
RowBox[{
3 h l. V( |/ V5 x! C0 ] RowBox[{"-", "0.243032`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}], ; A) f/ \- m# Q4 p% y! d* [
"+", / f/ V) G& s* }0 E& f, K( P5 v' ~. O
RowBox[{"0.23580523388620744`", " ",
E3 n0 r F5 i SuperscriptBox["\[ExponentialE]",
9 B2 g$ n3 P6 @; G0 n; ~ RowBox[{"3.1415926535897936`", " ",
- N( r* F9 ~8 S0 T RowBox[{"(",
( R1 ?1 A, x1 \2 F) a# v RowBox[{; J s. X) U" y1 ^6 O# x; \7 ?6 t- w
RowBox[{"-", "0.28518780882`"}], "-", ) }1 _0 E5 l w5 I( p( [' B
SuperscriptBox[
' r; M' z9 k! ?) J& c' C RowBox[{"(", ' D5 L! l9 M- j5 v
RowBox[{
; f3 @' _% N1 {9 m: Q4 ` RowBox[{"-", "0.158058`"}], "+", "x3"}], ")"}], "2"], "-", . C3 y& ^! ?: S' Y- T
SuperscriptBox[
x1 z) {& z& ] RowBox[{"(", 6 C v, R3 N, C9 z
RowBox[{
8 _- n9 U+ c$ z7 p( u( w RowBox[{"-", "0.166541`"}], "+", "x6"}], ")"}], "2"], "-",
* V) z( v: R" g2 |' k" A% W SuperscriptBox[) C2 l& a( D ~. c0 i) Y- A, d
RowBox[{"(", # V) P( w& T+ ?: d
RowBox[{1 l3 u/ T) V4 S9 e. y [- [5 \" x/ Q
RowBox[{"-", "0.278049`"}], "+", "x7"}], ")"}], "2"], "-", 3 y: ?7 y( U- n: E5 M. a( W# O/ X
SuperscriptBox["x8", "2"], "-",
, D% A! `. y( z SuperscriptBox[( z' L3 I6 O0 g3 S
RowBox[{"(", - c0 \7 Y, V7 X- [1 |2 i
RowBox[{: Z, t1 @1 I7 g, n1 Z% r0 s
RowBox[{"-", "0.236675`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}], " ?/ V; g3 H2 a6 `
"+", " T& W; Q6 y/ G
RowBox[{"0.667027259367853`", " ",
1 e$ ?7 y; c* p- G) ]- i SuperscriptBox["\[ExponentialE]", " E& J6 t' s# k5 M- ^; H; q, m0 c1 V
RowBox[{"3.1415926535897936`", " ",
3 }; l4 k7 ]& l6 U7 E; T RowBox[{"(",
$ j6 O& F( M9 R" a" v& ] RowBox[{
4 b: x! c* c" X" p3 }5 i* z9 O RowBox[{"-", "0.11387365200400001`"}], "-",
8 W3 }0 w- R7 Q4 d; s SuperscriptBox[
6 ?" b' S5 a: l: ? RowBox[{"(", 6 v2 P; F/ u) P3 l8 {' a
RowBox[{# S0 e1 G- W: q8 E; s9 I
RowBox[{"-", "0.177646`"}], "+", "x3"}], ")"}], "2"], "-", 2 u8 ]; j, n2 U- U6 S3 J
SuperscriptBox[
3 C0 ^8 G _0 G% ^ RowBox[{"(", $ F/ f* p; ~. n* x/ o
RowBox[{" u0 S8 n6 Z: v( H2 k6 a
RowBox[{"-", "0.502638`"}], "+", "x6"}], ")"}], "2"], "-", / ?8 e1 W- t, z1 E: |$ N
SuperscriptBox["x7", "2"], "-", 2 Z3 V: K( x5 T
SuperscriptBox["x8", "2"], "-",
7 s! D( M: o k3 _# o& n SuperscriptBox[
5 f( ^+ k9 V0 M3 Z- h7 r+ A4 J0 n* X RowBox[{"(", ; p7 K( b& C: @3 W5 S: P$ f
RowBox[{
# p% L4 U7 Q; Q7 l2 m RowBox[{"-", "0.178973`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}],
7 Q1 j/ D( A2 O- L "+",
O3 m7 V7 H# H( \) o RowBox[{"0.25282438852646905`", " ",
3 v) G: B, ~; `7 D2 ?, l SuperscriptBox["\[ExponentialE]", 9 y8 l& b8 W Z! f
RowBox[{"3.1415926535897936`", " ", $ A% h( X m6 y7 p
RowBox[{"(", " y1 K9 m! F( Z* z4 ?. v# j% {
RowBox[{% t9 @ _8 l3 D- I
RowBox[{"-", "0.11442644782500001`"}], "-", 6 p0 u* L& p) C6 ]9 j
SuperscriptBox[
7 A1 e1 n: K v8 |0 T1 X$ n ` RowBox[{"(", / `) [: a1 f n7 G- F% M) c1 k
RowBox[{4 R# q. n0 R5 u* i3 r) i4 u( J
RowBox[{"-", "0.33973`"}], "+", "x3"}], ")"}], "2"], "-",
5 K, S. c* i7 I6 T6 b SuperscriptBox["x6", "2"], "-",
8 `: A$ k5 @& \. I3 V* s SuperscriptBox[
- }; I A* h' b9 q* t( k t RowBox[{"(",
! s! c1 y/ ?* D RowBox[{
4 z, R1 {& G( v) G RowBox[{"-", "0.636585`"}], "+", "x7"}], ")"}], "2"], "-", * W5 l4 B4 t- d5 f; r, `! l
SuperscriptBox[2 ~% H5 f3 |; H O
RowBox[{"(", ! Z7 s* m2 Y' R5 _6 A# Q# F6 O
RowBox[{ b9 m" y* l( @3 P9 J8 J
RowBox[{"-", "0.780463`"}], "+", "x8"}], ")"}], "2"], "-", 0 @. B4 s0 ]! }
SuperscriptBox["x9", "2"]}], ")"}]}]]}], "-",
N% J8 a, u" u* k& b RowBox[{"0.07581214474544536`", " ", * h# Q0 q% q9 B; }& H f
SuperscriptBox["\[ExponentialE]", 6 p* V7 M- a7 f1 L% [6 _9 q$ s
RowBox[{"3.1415926535897936`", " ",
$ m. s! k3 K# l+ x# _% u RowBox[{"(",
, z# u- Q) K0 z# W RowBox[{6 E, n. L2 s/ b6 d
RowBox[{"-", "0.21008576609800003`"}], "-",
0 Y; n( e! g, I% U! V5 I+ d SuperscriptBox["x3", "2"], "-",
6 }$ w4 x7 x/ }3 I3 F* ] SuperscriptBox["x6", "2"], "-", + f8 T" i7 e# n: c9 M. P
SuperscriptBox["x7", "2"], "-", . R9 q+ P" s' X; R5 x$ m
SuperscriptBox[
' h; t! d) |1 R1 I RowBox[{"(",
' Q9 f2 \' ]' F! J4 @. @ RowBox[{
& H8 U) p2 ?; c) i3 R" S RowBox[{"-", "0.672709`"}], "+", "x8"}], ")"}], "2"], "-", . N' [# O" K8 z5 k( c
SuperscriptBox["x9", "2"]}], ")"}]}]]}], "-",
( n A6 h, i" ~, j) @" S RowBox[{"0.10599338351843121`", " ",
5 z e! ]; A9 [: t9 G6 Q SuperscriptBox["\[ExponentialE]",
: `1 w7 H) p# @& e; r8 h1 g RowBox[{"3.1415926535897936`", " ", 8 x0 \$ r# S( S* Y
RowBox[{"(", ! G; U- x7 M9 z4 K7 S
RowBox[{
8 d7 b( m0 n2 U3 U9 v/ [ RowBox[{"-", "0.4481471925460001`"}], "-",
4 H5 j! ~& _2 N& K) O* c SuperscriptBox[% r, b) C5 x" }% B! P
RowBox[{"(", / z# O4 H- }) \+ E
RowBox[{
4 e% |1 g. \ }7 j$ o' O4 q RowBox[{"-", "0.452931`"}], "+", "x3"}], ")"}], "2"], "-", 0 @: z" X! H$ s5 {; c
SuperscriptBox[
+ h' R9 }7 e; b+ _2 L5 h. | RowBox[{"(", 1 f. v: Q R$ ]2 W8 ^& `, [
RowBox[{
" k- y& b, D) C+ \* x: ?! o* R RowBox[{"-", "0.370761`"}], "+", "x6"}], ")"}], "2"], "-", 8 o R/ R# J7 D+ d& D2 ~, `& }
SuperscriptBox["x7", "2"], "-",
3 n# {( O7 ~$ D0 l& { SuperscriptBox[
: J# k3 P7 R4 n4 V0 C& A) ^ RowBox[{"(", & C5 N k8 |0 K7 m% x; P. f
RowBox[{( r0 N% y% m v- i5 P0 m4 G
RowBox[{"-", "0.509567`"}], "+", "x8"}], ")"}], "2"], "-",
7 Y, H' _% q+ \$ [ SuperscriptBox["x9", "2"]}], ")"}]}]]}], "+", , l8 N0 {: @8 ?* W" x" ^+ n9 m- Z
RowBox[{"0.5008208386064421`", " ", 9 ~4 K9 H5 o4 R2 W: @9 G
SuperscriptBox["\[ExponentialE]", I- m& S* S! ^* b0 Y/ {
RowBox[{"3.1415926535897936`", " ",
: X8 Y! X( X5 ^! c2 `* @% a RowBox[{"(", 6 \) J- g" r R- x' I- v$ U
RowBox[{
b k( q1 @ {( I) N/ p RowBox[{"-", "0.08722659614000003`"}], "-", ! a/ ~9 H. e- n" ^
SuperscriptBox[
+ d; H- G, m$ v5 _ RowBox[{"(", + Z. [ _: k) W0 y. E" J6 `
RowBox[{
# N# K+ }% @7 k# n+ | RowBox[{"-", "0.4943`"}], "+", "x3"}], ")"}], "2"], "-", 5 x3 g$ e- r3 K+ P3 N
SuperscriptBox[0 B" M9 p! N3 D2 }8 M
RowBox[{"(",
- L& \' P' m" I7 q4 q# @* X6 K RowBox[{
6 P9 Q' t, k3 |' B" }9 y9 E S7 S7 A RowBox[{"-", "0.375283`"}], "+", "x6"}], ")"}], "2"], "-",
& q+ E3 Z5 H# u" I: X, j; v: N SuperscriptBox["x7", "2"], "-", ( v* @8 w+ p/ X9 F7 \: M/ K
SuperscriptBox[, q4 e2 R* m7 z8 D4 X* @% S8 }
RowBox[{"(", 1 H) o, }" H# U# |# N( y
RowBox[{
& G s7 g$ |( \" ~ N t RowBox[{"-", "0.505539`"}], "+", "x8"}], ")"}], "2"], "-", ( h3 u9 H/ K# r2 X5 i4 x
SuperscriptBox["x9", "2"]}], ")"}]}]]}], "+", + \7 w1 g9 p! Q' z! b1 i$ L2 g
RowBox[{"0.32564305572552343`", " ",
" Z7 N" N$ X- l. u SuperscriptBox["\[ExponentialE]",
3 k) {% C# l/ K RowBox[{"3.1415926535897936`", " ", & {! A+ t$ N& E6 h' f5 w
RowBox[{"(",
7 Z3 H) w# N: y RowBox[{
, V3 C) ~$ o7 q9 u: W$ y RowBox[{"-", "0.23738217000100004`"}], "-",
2 @" p7 @" S" _) U1 t; Y" i* U+ ^ SuperscriptBox[
1 ]2 l% s6 n& x6 h( G* ? RowBox[{"(",
" L8 I+ M* w6 J7 y4 C RowBox[{% V$ v2 A/ o; `, s) {
RowBox[{"-", "0.33037`"}], "+", "x3"}], ")"}], "2"], "-", * N* r- J' ` s, [
SuperscriptBox[5 Z0 d- ?, w; B# A, |
RowBox[{"(", / ` m1 v- U+ [
RowBox[{3 k- m- j7 E( B/ N- ~# s
RowBox[{"-", "0.752072`"}], "+", "x6"}], ")"}], "2"], "-",
! v. w: m% ^4 U6 J SuperscriptBox[
- x7 `* p& i5 i8 g% d) v% X3 d RowBox[{"(", 3 M! K- }2 E1 ^4 O3 h
RowBox[{* h" r+ n! l* D3 U8 u
RowBox[{"-", "0.408943`"}], "+", "x7"}], ")"}], "2"], "-", + l) N5 {$ d. j& `! I' N: T- s0 }
SuperscriptBox[$ u3 N9 V) n& |0 Q" N
RowBox[{"(",
6 {. J7 G a, G- Q5 i* @ RowBox[{! v3 P2 H7 s0 T
RowBox[{"-", "0.504532`"}], "+", "x8"}], ")"}], "2"], "-", ! v# X1 V8 a# L% I. H' L
SuperscriptBox["x9", "2"]}], ")"}]}]]}], "+", I4 f9 A$ C0 a8 \0 l$ k
RowBox[{"0.6665374509702793`", " ",
( Q# |/ p* M% N& J% @ SuperscriptBox["\[ExponentialE]",
8 A& t9 t$ a6 F RowBox[{"3.1415926535897936`", " ",
" @7 _: n4 B& N3 @ ^ RowBox[{"(",
% t; y, m0 {- I8 Y& |/ v7 Y$ h# k0 p RowBox[{
8 T' `* Q' W( g" | Q RowBox[{"-", "0.19162171876400003`"}], "-", 6 h/ j9 G$ h* D
SuperscriptBox[
+ k& R/ }7 y0 u ~ RowBox[{"(",
# t6 \# p+ y0 E0 H RowBox[{) C! t% s# a! H% }( n, x2 B
RowBox[{"-", "0.544826`"}], "+", "x3"}], ")"}], "2"], "-", 9 J, [! u8 a9 I" [" w7 [
SuperscriptBox[
. S; g* a0 C2 Y0 _ W RowBox[{"(", ' `4 Q6 p1 @5 N% y& K2 P" D
RowBox[{, k1 Z) Q( p. X* s4 m
RowBox[{"-", "0.53052`"}], "+", "x6"}], ")"}], "2"], "-", , d/ p- d z# D# j4 k
SuperscriptBox[
* f! ]* D2 @4 ?& F( r RowBox[{"(",
& X, Q$ Z4 W) ~) H. K. e RowBox[{
9 }9 w. R6 |1 Z RowBox[{"-", "0.819512`"}], "+", "x7"}], ")"}], "2"], "-",
: H% q9 l; ?( t$ b& i2 @8 I SuperscriptBox["x8", "2"], "-",
% v }9 [5 [) H! m6 i SuperscriptBox["x9", "2"]}], ")"}]}]]}], "+",
8 h8 J, p( x- Z: L RowBox[{"0.4812237524557293`", " ",
( `: F. a# d1 I" [% L% u4 I7 S; i SuperscriptBox["\[ExponentialE]", 1 i0 x; g0 O# m
RowBox[{"3.1415926535897936`", " ",
( e; X5 W" J& a0 l, k RowBox[{"(",
! k6 T- s) p: B) e0 q, J. e& u- q) [ RowBox[{
& z" y; N3 J- {3 ~ |% j/ y5 R7 {" [ RowBox[{"-", "0.109748954594`"}], "-", 3 g l3 u% _9 m! z5 k
SuperscriptBox[
7 K2 x, B) C# k6 }9 U8 }/ H: V RowBox[{"(", 9 i ?) ^6 Y- O5 T5 ~
RowBox[{6 }) P" w9 W3 T' K8 G
RowBox[{"-", "0.160584`"}], "+", "x3"}], ")"}], "2"], "-", 6 `* ]$ |9 x& x5 N, [
SuperscriptBox["x6", "2"], "-", / G' A) n; P( a2 z# ^3 L" o
SuperscriptBox[; {1 z: X2 q7 k9 k& k
RowBox[{"(",
' A# M6 A7 g# C3 Z RowBox[{
0 w5 R( b6 P9 S# | RowBox[{"-", "0.684553`"}], "+", "x7"}], ")"}], "2"], "-", 1 g' B3 D1 \( ?9 s# b
SuperscriptBox["x8", "2"], "-",
' y! m- u" C- T c d3 Z SuperscriptBox["x9", "2"]}], ")"}]}]]}], "-", + D. O/ f* @4 g! t, R
RowBox[{"0.176024676254045`", " ", ! W$ \1 ?" r. w( ^! h8 B
SuperscriptBox["\[ExponentialE]", 8 G* ]. M5 h9 T+ o
RowBox[{"3.1415926535897936`", " ",
6 ^; p8 z. r- p( n5 k* ^! g0 B RowBox[{"(", $ s0 e; e' g5 \. U2 u
RowBox[{% N x+ V9 C# ~; m+ l" V
RowBox[{"-", "0.14616677062500003`"}], "-",
! ~/ v' i* D8 g1 `3 M, G SuperscriptBox[
/ H, c2 ^- _0 {5 ? q RowBox[{"(",
% ?& ?/ A Q+ C2 o% m& m8 F4 |8 I2 w9 L RowBox[{
) S0 I: s. A7 W4 U1 T5 y RowBox[{"-", "0.414297`"}], "+", "x3"}], ")"}], "2"], "-",
: K2 A: U. I6 v- q5 {4 J, q8 Y SuperscriptBox["x6", "2"], "-", 5 D" M) h) S. a
SuperscriptBox[
$ P5 Q2 V& R: f' v RowBox[{"(", " |5 s5 m+ V! ` U/ Q0 t5 f2 |' K
RowBox[{
2 l+ j, p. w5 f7 e$ s0 Y5 U) f RowBox[{"-", "0.544715`"}], "+", "x7"}], ")"}], "2"], "-",
5 A5 Y, l+ O; x/ M: t& t SuperscriptBox["x8", "2"], "-", ' |# g$ _# R5 |
SuperscriptBox["x9", "2"]}], ")"}]}]]}], "-",
& p/ U, x( u) Z' _7 e) Z( Q RowBox[{"0.5945873894818965`", " ", $ {# A& w1 i1 t4 X5 g
SuperscriptBox["\[ExponentialE]",
, R( i( |1 n- U9 i RowBox[{"3.1415926535897936`", " ", 8 Y- i1 ^' f& {3 U. a
RowBox[{"(",
8 @* b+ x* u9 J& g: R RowBox[{+ W2 s5 D, i3 ?* v
RowBox[{"-", "0.10407011464100005`"}], "-", # l1 d# Z, F6 v- f
SuperscriptBox[. @1 ~! q) \+ D l, Z
RowBox[{"(", 8 i- s* l; N% Z! |5 j, [3 T
RowBox[{% c! S2 l2 T9 |8 I
RowBox[{"-", "0.3555`"}], "+", "x3"}], ")"}], "2"], "-",
9 O8 `, S6 k# D( i h8 j5 z SuperscriptBox[3 W8 o7 f! q& [6 `2 J
RowBox[{"(", ' y% E; m" e( B5 F2 U
RowBox[{
l" G9 T1 V/ v' J RowBox[{"-", "0.37679`"}], "+", "x6"}], ")"}], "2"], "-", ; r l. i- }4 c5 K2 }9 v
SuperscriptBox[
" }/ {8 G+ b8 y3 X: @( G: S: B+ P RowBox[{"(",
- s+ ~# ]2 L/ n, \9 M, H RowBox[{" o% C6 [! f6 A: o
RowBox[{"-", "0.411382`"}], "+", "x7"}], ")"}], "2"], "-",
5 T) \8 E/ d+ m SuperscriptBox["x8", "2"], "-", % n, G3 S4 k |* [1 u$ N+ ?
SuperscriptBox["x9", "2"]}], ")"}]}]]}], "+",
4 B' V+ z4 A! h2 O RowBox[{"0.027591936509660075`", " ",
6 B. q( J2 T4 f8 I: @6 e SuperscriptBox["\[ExponentialE]",
; i5 c' G# c8 A& ~! n' Z RowBox[{"3.1415926535897936`", " ", , ~5 `0 C: O* |/ w" r( c
RowBox[{"(",
j4 W! W% L4 @- V! } RowBox[{
5 j. Z5 f$ ~/ ~. M, ^0 C: z RowBox[{"-", "0.31770463544200006`"}], "-",
. J- o, S/ L" Z4 d SuperscriptBox[
2 f& k9 E! L) Z% U' x RowBox[{"(", ) c6 I. e* R; q1 G
RowBox[{+ o) B2 Q3 p9 E8 G
RowBox[{"-", "0.655012`"}], "+", "x3"}], ")"}], "2"], "-",
$ K U. U% C+ [- v9 j) e SuperscriptBox["x6", "2"], "-",
; T( S1 m( U' w" E4 k: Y SuperscriptBox["x7", "2"], "-", 3 b) ~. y: p# \% w2 }- j
SuperscriptBox["x8", "2"], "-",
: w3 k- [ @6 G, r SuperscriptBox["x9", "2"]}], ")"}]}]]}], "+",
+ ?3 i1 z1 y J" |; I# N/ N9 h RowBox[{"0.5252475961933536`", " ",
8 y, r( k- \" q( F" f SuperscriptBox["\[ExponentialE]",
6 L1 |* e' l4 q( I& c/ ^# u+ L1 ] RowBox[{"3.1415926535897936`", " ",
5 a7 b- _0 i+ k! o RowBox[{"(", 2 S+ P; M0 v2 r/ w
RowBox[{- g7 \$ M* X: T: g
RowBox[{"-", "0.6410867660730001`"}], "-", ! ^7 }; B# {% @; H, z5 I4 H& [
SuperscriptBox[# V% U8 n, H/ `
RowBox[{"(",
8 y# Q, E& z5 B RowBox[{
0 T4 m, }: [ q8 A% y RowBox[{"-", "0.420753`"}], "+", "x3"}], ")"}], "2"], "-", " U0 Q0 d- z C2 ^; o
SuperscriptBox["x6", "2"], "-", 7 ]. x% H2 q3 s8 \! s$ `
SuperscriptBox["x7", "2"], "-",
" k1 Z/ w) B! X, d SuperscriptBox["x8", "2"], "-",
. E" d7 q/ G5 l. P6 u0 h: ~5 f SuperscriptBox["x9", "2"]}], ")"}]}]]}], "-", % F. v& {8 c1 q5 t7 Y. z0 l2 T
RowBox[{"0.32047284779644936`", " ",
- }+ ?8 M$ j% |+ E# D SuperscriptBox["\[ExponentialE]",
. J: @, n5 r% |% y RowBox[{"3.1415926535897936`", " ", 2 m5 U* n8 l8 T1 W+ X! K3 \$ t" X
RowBox[{"(", - M1 A9 {7 g/ u/ e1 j' B" s% Y
RowBox[{
. L1 Q' X/ s8 c0 b0 K RowBox[{"-", "0.155663887074`"}], "-",
4 X0 ?0 u% E/ b# m7 }2 K' I SuperscriptBox[0 D+ t5 x, h$ z0 o6 K
RowBox[{"(", 4 N' h1 R% Q4 n$ _, a
RowBox[{7 Z. Q% O2 _- i2 P! r
RowBox[{"-", "0.267704`"}], "+", "x3"}], ")"}], "2"], "-", ) G. ^& d m1 S' B) p# k
SuperscriptBox["x6", "2"], "-",
" ^! f0 F7 C; j SuperscriptBox["x7", "2"], "-",
$ l. J3 P% H0 H4 u- _) A" E I SuperscriptBox["x8", "2"], "-", * b) M: b9 Q% `
SuperscriptBox["x9", "2"]}], ")"}]}]]}], "+", ( J1 Y" r: b& ?- I2 J! y; A
RowBox[{"0.7528674241482847`", " ",
: r( V% L0 \" @/ q7 O* H; o SuperscriptBox["\[ExponentialE]",
6 ?! z( S7 h. k) o% A3 ^- c# X RowBox[{"3.1415926535897936`", " ", . n- N* ~6 _, F$ n- h+ ~6 E2 b
RowBox[{"(",
0 v) s2 r4 X* b# n; I; N RowBox[{
! X# L. d% K" O- s RowBox[{"-", "0.14151232428600002`"}], "-",
0 j$ ?( a9 V0 R( T7 _1 ` SuperscriptBox[
8 F. w. ~* S5 x; v; C RowBox[{"(",
4 y6 b; ~ ?" i+ z RowBox[{
& H3 V* J. g, t% p, ? RowBox[{"-", "0.234619`"}], "+", "x3"}], ")"}], "2"], "-",
B8 I! M+ C* Y7 } J, ^ SuperscriptBox["x6", "2"], "-",
* Q' X) Y% G! `$ {9 t# f( C6 P: { SuperscriptBox["x7", "2"], "-", ; ]+ \1 `, |# E' a/ G) J
SuperscriptBox["x8", "2"], "-",
: F( M5 I0 Y1 ^: k. d3 \ SuperscriptBox["x9", "2"]}], ")"}]}]]}]}]], "Output",
' t0 b' y/ P/ g: y7 P CellChangeTimes->{3.5779628386090403`*^9}]
# P4 y% f' v! a" E. }; a}, Open ]],
5 F/ U3 D1 ^2 r! `8 ?( | t$ Y2 f
Cell[BoxData[" "], "Input",, m1 \% U* ~! N, R1 C6 T
CellChangeTimes->{3.577962835879035*^9}],
0 \6 T1 Z4 r! `5 G# V
) t# D, H2 W% r A1 iCell[BoxData["\:94a2\:6c34\:7684\:7ec8\:70b9\:6e29\:5ea6\:4e3a"], "Input"],7 o) B9 d$ Q [3 q$ b% k" s5 D* c
; T; T8 k4 f1 \5 s' F+ FCell[CellGroupData[{" g% r7 f+ y9 j, q* {0 \, H
% ?3 t6 j2 |5 k9 W
Cell[BoxData[; ?+ u. F3 j4 f( j
RowBox[{"y2", "/.", 3 i/ [7 @4 d& z" b2 K" T! \
RowBox[{"{",
( b; S; }) D$ b3 H) o7 t RowBox[{
/ ?) z! b2 `" o& A RowBox[{"x1", "->", "0.7406"}], ",",
- Z% J3 A$ P- | RowBox[{"x2", "->", "0.4621"}], ",",
2 n$ o- O/ M2 \# b RowBox[{"x4", "->", "0.2221"}], ",", $ R" O G Q7 J8 m6 |6 u
RowBox[{"x5", "->", "0.5208"}]}], "}"}]}]], "Input",
" O) s% q S% {1 @4 ^. ]/ i0 }( [ CellChangeTimes->{3.577962787784151*^9}],
. V. s4 s* g: e; X2 d$ l$ G- R
, v/ Z, i- X- C/ ~ q( Q. yCell[BoxData[/ e; _2 |2 a* I) _% E
RowBox[{; n- H2 ~2 l4 h% }* M' G/ f8 v
RowBox[{"0.9125798890455848`", " ",
: h2 y Y' u# y# b SuperscriptBox["\[ExponentialE]", , Q, V; U+ H6 [( i& ~+ y" y: G
RowBox[{"3.1415926535897936`", " ", # X2 l# }8 ~) P& D% q
RowBox[{"(",
& U! c$ {. P9 S# @6 \8 }" I* m RowBox[{9 G7 m/ t8 ], G1 h4 l8 L7 p, l
RowBox[{"-", "0.17911224641499998`"}], "-", 0 k! W1 k' e8 k
SuperscriptBox[
- [/ ]8 q/ r0 `- N5 Z RowBox[{"(",
% g8 b( z7 ?9 {# Q* F8 J RowBox[{
: r% h8 I' `2 J9 l' @1 { RowBox[{"-", "0.530346`"}], "+", "x3"}], ")"}], "2"], "-",
5 L( h( L2 ?8 ^6 z6 ^% c SuperscriptBox[
0 H. E4 R' A0 Y( D' n5 |, G& G RowBox[{"(",
2 ^2 \- M: j! U( P/ N# ~) t0 b& a RowBox[{' y6 l" _) s o8 ]* o! I& A# s2 v
RowBox[{"-", "0.529013`"}], "+", "x6"}], ")"}], "2"], "-", 5 o( }7 R8 a7 ^& n4 W" ?) e
SuperscriptBox[
3 B( j3 g1 [4 x, f8 l RowBox[{"(", 6 l" n4 O; [$ d9 P, J1 t" p
RowBox[{
4 @: r. h4 V$ Z* b6 _2 Q, | RowBox[{"-", "0.409756`"}], "+", "x7"}], ")"}], "2"], "-", ( r! [$ i1 ?8 f5 B/ r; O* v4 @
SuperscriptBox["x8", "2"], "-",
8 }( {8 p- l( l, J1 N6 y& U SuperscriptBox[. G2 r5 V) g6 z% q# `
RowBox[{"(", . W2 s8 _4 s; ~. l2 g0 x& _
RowBox[{0 J# x- G" |; X* Y$ d
RowBox[{"-", "1.`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}], "+", 9 Z. J" G+ O% U# N3 L+ m1 d7 S
RowBox[{"0.2883186011296682`", " ",
" K( q* c# y& a4 g! I% I SuperscriptBox["\[ExponentialE]", 7 q, B+ u: p$ h7 h& ^+ a8 D2 T/ z
RowBox[{"3.1415926535897936`", " ", % ^" I7 D6 f% X% H1 S- ~6 Y6 O
RowBox[{"(",
0 u0 H/ a, M- Y! f" J6 }6 u- ` RowBox[{
. n) @- L2 c$ X5 H( K7 X7 [' V5 p RowBox[{"-", "0.105619387859`"}], "-", O8 k3 C3 `" i
SuperscriptBox[6 r3 T3 s) J0 }* S
RowBox[{"(",
$ j; Q$ i: N. d: T% c4 P, v RowBox[{
5 y/ L/ K. d/ o9 e RowBox[{"-", "0.64973`"}], "+", "x3"}], ")"}], "2"], "-", n. x' k# j6 X5 [" H9 S
SuperscriptBox["x6", "2"], "-", 6 Q0 @# @! H) l
SuperscriptBox[
, H# c2 A: D9 } RowBox[{"(", 0 N# V* K% b6 {* d: {4 v* N
RowBox[{
3 i: \3 I1 l5 }& Y# e! ]& K4 J RowBox[{"-", "0.636585`"}], "+", "x7"}], ")"}], "2"], "-",
+ g/ ]2 Y7 ~$ {, A SuperscriptBox["x8", "2"], "-",
/ {8 n: a& X8 U3 ^& Y5 N7 L SuperscriptBox[% t: ]. W9 I' b! V* p% b- h
RowBox[{"(", 9 v) E2 g+ ^- Q7 a Q# T
RowBox[{
( ] ?6 r2 h* w* t, G0 h RowBox[{"-", "0.766748`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}],
8 {6 ]0 U3 e' L "+", + s' K5 v* w* K" S2 @
RowBox[{"0.2115905228598317`", " ",
; x4 e: C8 L3 f2 c+ u' z& U7 ^& W SuperscriptBox["\[ExponentialE]",
/ {! O1 ?" G, V7 G g RowBox[{"3.1415926535897936`", " ", 4 m5 O+ L0 {- B) ^( P' G
RowBox[{"(",
2 I+ q6 @/ B+ }3 F' R6 C RowBox[{2 J2 V" i7 x6 D$ ^% I
RowBox[{"-", "0.236605670085`"}], "-",
" G3 r2 P! b% K+ R8 N8 O SuperscriptBox[, C8 `0 \5 Y0 K6 i) C5 k! t" i* Z
RowBox[{"(", 0 q, a' `8 b( l$ B5 G% @
RowBox[{
/ U9 ~2 A, u6 f RowBox[{"-", "0.109343`"}], "+", "x3"}], ")"}], "2"], "-", . Q: ?7 e# X& Y; N7 B q1 I: M0 z/ g
SuperscriptBox["x6", "2"], "-", 2 v$ _/ K r8 j, @# F$ ^
SuperscriptBox["x7", "2"], "-", 2 k; }4 U5 Y: J9 ^6 |( j
SuperscriptBox["x8", "2"], "-",
* J6 U& H+ k! I8 ?4 @; H+ { SuperscriptBox[! e* i( z( w. l. q
RowBox[{"(", 7 |: {- j" f. V- D( _$ {
RowBox[{7 l6 ^1 u. n, N X( X9 W
RowBox[{"-", "0.752567`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}], # @- d0 L. N2 n
"-", " `1 C% }* p/ o
RowBox[{"0.22829938846668896`", " ",
) N2 {; R* s0 r8 V2 N SuperscriptBox["\[ExponentialE]",
; c" U5 M- i% K, z7 N) b RowBox[{"3.1415926535897936`", " ",
: H b# z3 ]6 }- t RowBox[{"(", 1 t& W5 K4 q4 ?7 ]* }. D
RowBox[{
, F. }' N* C8 H( i# I( |7 y2 F RowBox[{"-", "0.46221081830200006`"}], "-",
& q7 }2 D p- H {* {% Z SuperscriptBox[. K3 ]* e) y: x5 F
RowBox[{"(", # ~2 n8 ?5 b& A7 t. a Y5 R
RowBox[{
. w7 I4 t; k4 R" Z7 A RowBox[{"-", "0.258697`"}], "+", "x3"}], ")"}], "2"], "-",
" [0 T) }9 x0 v- t: D- a# P: O SuperscriptBox[5 _" t7 O( Z- ]& ?. ^. k
RowBox[{"(", ( K/ a. g3 C; O5 _% `- P3 h
RowBox[{# e" Q. ^( ^, t# k! P
RowBox[{"-", "0.420497`"}], "+", "x6"}], ")"}], "2"], "-",
# _! j, b- z7 k2 G$ J: K) b SuperscriptBox[+ r& k/ c: V" o1 k( C; Y( B: b8 b
RowBox[{"(", 9 A7 R5 j( T5 ~3 H
RowBox[{
4 Z, m5 K# |1 R RowBox[{"-", "0.535772`"}], "+", "x7"}], ")"}], "2"], "-",
. T8 E8 K/ M1 V0 ~; Q SuperscriptBox["x8", "2"], "-",
7 \3 \1 i K2 Q; D5 }( f6 O: D SuperscriptBox[9 b' r# L& X, z& v
RowBox[{"(", 6 ~4 z& }9 s7 X+ }
RowBox[{
* j0 _4 q/ e9 Y4 A- j" m6 _( @* I RowBox[{"-", "0.494866`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}],
0 m# d0 I2 n; J3 k$ U5 v "+", ) o+ X Q! w8 q- y, n5 x& F
RowBox[{"0.27551257162880105`", " ",
# E* G6 M' |( e" G SuperscriptBox["\[ExponentialE]", ) V" a0 }' w3 K" f# L2 E3 R8 s5 I, Q3 g
RowBox[{"3.1415926535897936`", " ", 2 ~) K0 p! i' w
RowBox[{"(", 6 Y/ A3 i9 ]+ l% a) F" C" z; d& Q
RowBox[{
; J6 g4 D- m/ j- C. ? RowBox[{"-", "0.5837889295140001`"}], "-", 6 \% V' V3 G' F$ E$ x& }7 L. D2 `
SuperscriptBox[
9 C" T# [/ D( l2 I' v RowBox[{"(", 4 R" u2 \) O$ l% t$ Q
RowBox[{
! |# r6 {0 t( G \( d+ E4 f8 P RowBox[{"-", "0.027011`"}], "+", "x3"}], ")"}], "2"], "-", 7 v" e" l& G: X2 n6 l+ [) j
SuperscriptBox["x6", "2"], "-", ' W% W; s, I: E: W) o9 R
SuperscriptBox[
3 F2 ~, i4 @4 O( v% k3 n. D RowBox[{"(", ( S7 E9 a4 W0 a6 |7 g" W2 h
RowBox[{
6 l9 S4 k* m7 b/ ? RowBox[{"-", "0.452033`"}], "+", "x7"}], ")"}], "2"], "-",
/ R, z$ ?$ p5 b. @( c1 b( W SuperscriptBox["x8", "2"], "-", . `/ Z5 p8 l; g: h
SuperscriptBox[& j t+ d7 @4 ]* E/ \9 }
RowBox[{"(",
% D, i' l/ H1 v; t. ~: C; y+ A RowBox[{ r" x2 F1 [$ W) t2 h: c9 d# ^
RowBox[{"-", "0.278729`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}],
1 p2 @8 L: C- W: d9 j( A! z "-", % P" u2 O2 b" J0 x1 \5 r; _( L
RowBox[{"0.12620581913715256`", " ",
6 q" r7 {8 D4 d3 i4 @* l SuperscriptBox["\[ExponentialE]",
) N# j3 ?$ w ~9 s, u RowBox[{"3.1415926535897936`", " ", . ~9 D: B w4 n
RowBox[{"(", / h: l/ W4 y9 z4 U7 u
RowBox[{. u1 z2 m( l9 x( E! H2 r# \5 U
RowBox[{"-", "0.19030188470200005`"}], "-", , F7 c4 y; [, D" X% X
SuperscriptBox[
2 |" C9 Y$ y K( c1 f RowBox[{"(",
/ T: _% M9 j, `# ~& V- H RowBox[{6 i& m% D$ V) G) Z( w& K- O
RowBox[{"-", "0.510223`"}], "+", "x3"}], ")"}], "2"], "-",
/ p+ W. h0 F4 {+ N" k SuperscriptBox[4 I5 S, V! o% j
RowBox[{"(",
) P+ }* T- H% M5 J% `% @ RowBox[{
- u4 C- Q, [) ?+ X. |1 B RowBox[{"-", "0.748304`"}], "+", "x6"}], ")"}], "2"], "-",
% n' l5 R+ y r/ e( A SuperscriptBox["x7", "2"], "-", 5 @3 R5 v& D, {( y; s( p
SuperscriptBox["x8", "2"], "-", * O: n- K% X" }9 k
SuperscriptBox[+ M* X$ w2 f( a6 g8 |
RowBox[{"(", " `( v, ~8 d/ |, O6 x+ V
RowBox[{
) I# S" W6 Z: I! {8 ] RowBox[{"-", "0.243032`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}], 3 f5 \' B( G% O
"+", r* V1 h4 g% f& b" `
RowBox[{"0.12782130225993898`", " ", , R$ A* t% M( _$ n% W1 \: M% m
SuperscriptBox["\[ExponentialE]",
. y2 E7 G' R5 b! z RowBox[{"3.1415926535897936`", " ",
% a5 R. ? n& O; U RowBox[{"(",
* o/ s5 Q+ d3 r RowBox[{5 L: o2 L8 L7 N/ j" R+ _- V
RowBox[{"-", "0.28518780882`"}], "-",
, W1 m) @) N, T3 @# h( }9 t, b: ` SuperscriptBox[
. T4 B+ p* e1 T. q* y& N& A RowBox[{"(", ( H& N3 T& _( U! _8 I6 O& \
RowBox[{. W1 c: W4 x! |) V& ~$ [% j& b6 U7 t
RowBox[{"-", "0.158058`"}], "+", "x3"}], ")"}], "2"], "-", 0 V/ ]- d C% i) E1 o' k c. B' v h5 w
SuperscriptBox[& x/ p# m/ r ` G5 C
RowBox[{"(",
$ i6 V/ Z* A. {, G, g, t+ x; l: R: `9 p* h RowBox[{6 F4 ^/ j5 C, t ^( H. B& B
RowBox[{"-", "0.166541`"}], "+", "x6"}], ")"}], "2"], "-",
3 b9 a6 e5 z1 y- D+ K5 | SuperscriptBox[
' L. _/ a- H* {2 @ RowBox[{"(", 2 E* p0 p9 G0 I- Z
RowBox[{9 v; \8 e. V0 o% D
RowBox[{"-", "0.278049`"}], "+", "x7"}], ")"}], "2"], "-", + C1 }' Q% a) J' |" |
SuperscriptBox["x8", "2"], "-",
, \) Q) s9 x4 Y( P2 a( x6 l SuperscriptBox[
7 @4 @. A6 A4 F! K RowBox[{"(", " w) u% W( x- {; Z( J c# V" ~. h* m
RowBox[{. k; s9 B/ y/ A" h
RowBox[{"-", "0.236675`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}],
5 U) D' A5 E; h/ Y+ p' Y+ q "+", 3 s& F2 z% y# K1 {! e8 R
RowBox[{"0.23615247809381104`", " ",
- w1 o7 _. o: A, i. ] SuperscriptBox["\[ExponentialE]",
2 w U. q: b$ F6 I RowBox[{"3.1415926535897936`", " ", 4 y% u4 J0 t% d* J/ k$ \4 s- K
RowBox[{"(", 8 Y6 j. G1 a& W2 ~) p' R
RowBox[{
+ m' @( R) y0 l$ Q" I& ^$ m" ^ RowBox[{"-", "0.11387365200400001`"}], "-", ; ~5 Y8 H" `8 ]! F* y" U
SuperscriptBox[8 F2 _ I, G6 H
RowBox[{"(", 8 G6 u1 U. f4 e. G& ]
RowBox[{
. T1 s( k. F& O+ V7 `: R- J) z) Q RowBox[{"-", "0.177646`"}], "+", "x3"}], ")"}], "2"], "-",
; Y! y* j& O. q7 G& S9 ]+ S# G SuperscriptBox[
+ o. n# Q/ w4 w- e8 ^# b RowBox[{"(", + m) X: p1 H, c& o& }
RowBox[{
8 [+ R( D$ q: J3 g RowBox[{"-", "0.502638`"}], "+", "x6"}], ")"}], "2"], "-",
* |0 g. u" P. _' a SuperscriptBox["x7", "2"], "-",
6 B5 `1 {' F* i) P. s SuperscriptBox["x8", "2"], "-",
' n9 M0 i \, w: [5 `; @% n% x SuperscriptBox[8 H. B4 [7 k- V3 |0 X5 C! \
RowBox[{"(", , x$ e: ?& q4 N$ b9 L* d
RowBox[{
- E* i! k5 l4 q$ H0 z2 l/ M" q7 i6 R RowBox[{"-", "0.178973`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}], $ G( ?# n5 X/ W+ \1 h) ^0 z
"+", ! Z5 v' l1 y; f
RowBox[{"0.3207174990295845`", " ", - l$ Y" o! K! E L* K6 M$ q
SuperscriptBox["\[ExponentialE]",
+ g2 R( q: p5 P9 n) j RowBox[{"3.1415926535897936`", " ", # I" N0 N: y2 _: u
RowBox[{"(", 1 l2 D) v$ u% k
RowBox[{+ X; p& l2 C6 u2 f1 Y+ e
RowBox[{"-", "0.11442644782500001`"}], "-",
7 e2 V+ r- X2 z- Y, i4 \! K SuperscriptBox[
0 S8 a) Z# b- a+ H) U& h RowBox[{"(",
8 B6 P) O/ H; o3 ]! | RowBox[{7 [% m- [9 H/ t1 W* n8 m4 O
RowBox[{"-", "0.33973`"}], "+", "x3"}], ")"}], "2"], "-",
, @3 ]& w# y# d: r5 P0 y SuperscriptBox["x6", "2"], "-", 9 @( @. Q, `0 W8 e! G, D$ s
SuperscriptBox[* \- w' B: ?5 n3 X2 i# v
RowBox[{"(", / Z, r0 e t7 _- B V) }
RowBox[{9 E# t* l0 I; X4 T" Z7 E
RowBox[{"-", "0.636585`"}], "+", "x7"}], ")"}], "2"], "-", 1 ^3 S0 X1 W# k7 a- }6 ^
SuperscriptBox[1 h5 G( L+ P& R, A8 f
RowBox[{"(",
3 T8 w {1 z; j, K7 [$ |& E8 a RowBox[{5 U$ y* _" _5 [# m5 t7 v5 g1 q
RowBox[{"-", "0.780463`"}], "+", "x8"}], ")"}], "2"], "-",
9 k7 a- r' Z; q+ d6 h; R) m5 m SuperscriptBox["x9", "2"]}], ")"}]}]]}], "-",
, o4 S4 k5 n ~' L' Q RowBox[{"0.15852708848338293`", " ",
6 F* S/ ]; X$ [ SuperscriptBox["\[ExponentialE]",
4 Z v+ p% s2 x% k, h, I RowBox[{"3.1415926535897936`", " ",
1 P6 M. L& H6 o8 H8 A RowBox[{"(", 3 Y8 ], i% k1 f# s1 r5 z
RowBox[{) G6 }' H0 @: R' v5 |7 M
RowBox[{"-", "0.21008576609800003`"}], "-",
- A d" e7 W6 f& W; Y6 M( Q6 {. R SuperscriptBox["x3", "2"], "-", 3 b; A1 @- V: [
SuperscriptBox["x6", "2"], "-", $ z; S3 p$ F3 q& P- h
SuperscriptBox["x7", "2"], "-", 5 M, K7 @ P" A, P
SuperscriptBox[7 W: P0 V9 e4 ~! M( n! Z/ n
RowBox[{"(", ; h- }& N+ ? [
RowBox[{
! N' c0 H+ c! ` RowBox[{"-", "0.672709`"}], "+", "x8"}], ")"}], "2"], "-",
$ q8 T- Y3 B0 k: s% u( y! J SuperscriptBox["x9", "2"]}], ")"}]}]]}], "+", % b7 d# X% R. {7 t( k, R6 a$ H
RowBox[{"0.6019775648968266`", " ",
' M2 i+ t% E" H7 M$ w SuperscriptBox["\[ExponentialE]", + X4 Q2 [1 C3 k; h* G. D
RowBox[{"3.1415926535897936`", " ",
( n& ]! d- d: T. W0 t RowBox[{"(", 9 o+ w1 Y- g9 y* [) q
RowBox[{
. `/ \6 e# @8 B6 G- o RowBox[{"-", "0.4481471925460001`"}], "-", 4 w: ?/ G: J# P( @" v9 h( |
SuperscriptBox[# \2 P5 S& W+ R+ Q
RowBox[{"(",
9 b9 J( R' f1 i$ d* A1 c" t. p RowBox[{
, O4 _% q# H1 n# `* w RowBox[{"-", "0.452931`"}], "+", "x3"}], ")"}], "2"], "-", w9 R4 z9 r/ E# H6 A& E4 ?
SuperscriptBox[
+ ]+ J! A) M5 H0 X8 _; Q# c RowBox[{"(",
- E" ~, Y% y7 J& Q; T# S. m RowBox[{
9 j3 i* m; F$ O, O- W" A4 B6 c RowBox[{"-", "0.370761`"}], "+", "x6"}], ")"}], "2"], "-",
! U$ @" N& l5 t3 g1 K F SuperscriptBox["x7", "2"], "-",
0 a% }, [* a6 s; s2 d SuperscriptBox[
: g9 x' d; a% o3 ]$ K7 n5 u& ?# d RowBox[{"(", ; A4 @, i' Y6 Z0 `+ E0 @' }6 W
RowBox[{" s# ~1 t1 k3 z% m
RowBox[{"-", "0.509567`"}], "+", "x8"}], ")"}], "2"], "-",
' V6 ]4 E( y; `2 o' k, e" a SuperscriptBox["x9", "2"]}], ")"}]}]]}], "+", 5 H5 ]5 Y% K, N8 G- J# s& r/ {8 y
RowBox[{"0.16041393254115266`", " ",
& ~" V: f+ F/ e1 F& {/ X, P SuperscriptBox["\[ExponentialE]", . m9 T, o" f3 F
RowBox[{"3.1415926535897936`", " ",
4 _' D" e# c% I+ @/ h9 E$ W RowBox[{"(", ! ^$ a# K% t& O% {* X9 S0 h, n
RowBox[{
. G- F/ N4 |: @: }: X6 l RowBox[{"-", "0.08722659614000003`"}], "-", - i4 `% d' Q2 j8 }
SuperscriptBox[+ s7 ?8 _- u4 A l( Z
RowBox[{"(", * ?4 G0 o6 o6 p* i- c
RowBox[{- X' @! C$ [7 C, c+ ]3 J
RowBox[{"-", "0.4943`"}], "+", "x3"}], ")"}], "2"], "-",
( G1 L- S. u: r; m0 G6 m) x SuperscriptBox[+ ?% _- B L) b/ f
RowBox[{"(",
0 j4 G) e% h3 [, S7 h RowBox[{$ u# c# E1 Y5 l& ]# J
RowBox[{"-", "0.375283`"}], "+", "x6"}], ")"}], "2"], "-",
# k- m+ N( u: B3 g4 Y# T& a' v SuperscriptBox["x7", "2"], "-",
/ E: a! x L w0 O- s4 a @ SuperscriptBox[% R8 ]- _* a) ]3 C* V+ k) n
RowBox[{"(",
5 p7 K( {9 k7 M1 H3 q) N RowBox[{
7 y/ ~6 r# E( r) W" L RowBox[{"-", "0.505539`"}], "+", "x8"}], ")"}], "2"], "-",
2 E2 Y( |3 W# m1 c; h# r SuperscriptBox["x9", "2"]}], ")"}]}]]}], "+",
3 y& H8 M' U7 h6 E- \ RowBox[{"0.482281849713638`", " ",
# C* \3 T+ {( K( E SuperscriptBox["\[ExponentialE]",
5 `% \# Z9 ^. d% t$ d. N RowBox[{"3.1415926535897936`", " ", , Z% k. m8 }6 A5 }+ e; ]
RowBox[{"(", 0 p1 A% z( D' g% F
RowBox[{& P1 r/ N. G+ c2 Q, k
RowBox[{"-", "0.23738217000100004`"}], "-", 3 C$ l, B7 |2 W; L
SuperscriptBox[5 ~) y& S; h9 M! r A6 T
RowBox[{"(",
( B3 K' m% ? m- [6 }7 H+ |( |; w RowBox[{
9 d! P) Q& J, w0 o# W7 o' O/ r RowBox[{"-", "0.33037`"}], "+", "x3"}], ")"}], "2"], "-",
F# E0 n* P) i6 Z SuperscriptBox[/ @ d' S" H5 ?( ?# l3 Y1 w4 g
RowBox[{"(",
$ b, C, U: o% }: X! A/ O8 b RowBox[{
0 ~2 V, F, R7 p# E1 f" z RowBox[{"-", "0.752072`"}], "+", "x6"}], ")"}], "2"], "-", / G/ W \# X d2 f6 {
SuperscriptBox[
" L: @$ M4 C2 P D6 R5 o" }3 j RowBox[{"(", 9 f- \8 n# p% t3 A7 U) c- N' N7 T
RowBox[{% s; Y% T9 j, L/ d2 o* B
RowBox[{"-", "0.408943`"}], "+", "x7"}], ")"}], "2"], "-",
6 N( g% W+ v4 I/ h# ` O7 R SuperscriptBox[
! ~& H' L( u. J) Q& R% t) K: i. z RowBox[{"(",
`( w, s$ u2 ^$ s RowBox[{
- S9 y( x5 d- g, y RowBox[{"-", "0.504532`"}], "+", "x8"}], ")"}], "2"], "-",
$ h: h% w( y* L* b/ f6 K; T) ? SuperscriptBox["x9", "2"]}], ")"}]}]]}], "+", - P% o1 }; Q6 F' @
RowBox[{"0.29549238400772093`", " ", ( Y4 `. I: ~+ L+ m/ b- b
SuperscriptBox["\[ExponentialE]",
! a8 j. [, [+ i; G$ ]7 c8 Z, J d RowBox[{"3.1415926535897936`", " ", 5 _8 g9 D4 w0 @8 n! o4 \
RowBox[{"(", 3 {3 d H% G$ Q) R/ H
RowBox[{
9 s( n0 ]& e! U3 T RowBox[{"-", "0.19162171876400003`"}], "-",
; t2 _( t) p/ b& i3 Z- e SuperscriptBox[
4 D8 |) J- I, y1 O1 j2 |: w RowBox[{"(", / U( N6 i( a, k, Q
RowBox[{
7 y! X" K! E/ |0 R: X. i w- z6 ^ RowBox[{"-", "0.544826`"}], "+", "x3"}], ")"}], "2"], "-", 9 e7 D: ^* b h( K2 e. ?
SuperscriptBox[) Y# V" u& x" q2 {6 N W9 V4 q1 w$ `
RowBox[{"(",
0 K1 K1 W6 z7 u8 P RowBox[{; s; b% R T6 Y% ~. P) z; A
RowBox[{"-", "0.53052`"}], "+", "x6"}], ")"}], "2"], "-", ; H" f+ q5 m7 u) q
SuperscriptBox[2 o- ^8 I5 T" a8 `& _6 h1 t, k
RowBox[{"(",
" g* \$ t4 I( }- B/ F RowBox[{+ A* X% A, _ x# ? i4 n
RowBox[{"-", "0.819512`"}], "+", "x7"}], ")"}], "2"], "-", % b7 M" p: E) ]. i) `+ k( q4 a! k. e
SuperscriptBox["x8", "2"], "-",
i( ]0 K7 ]7 y+ o6 {1 [ SuperscriptBox["x9", "2"]}], ")"}]}]]}], "+", - o/ V: Z( W+ c1 {+ D' ~0 p! F
RowBox[{"0.31296872769679895`", " ", C! _3 q" E e, M$ v0 y
SuperscriptBox["\[ExponentialE]", & g* p8 T) P O5 ?6 A" K
RowBox[{"3.1415926535897936`", " ",
% t1 w! [. g/ V. s e. J3 K( J RowBox[{"(",
) ]& V) Y' H' C+ O: y' K8 b/ x# Q RowBox[{
6 F) i* c8 m/ @1 B& @ RowBox[{"-", "0.109748954594`"}], "-",
: L' ]5 w& z" v7 e/ f* a0 J9 m# O SuperscriptBox[. l% K e$ D0 A0 W8 k1 P
RowBox[{"(",
+ c9 h0 `- [5 R/ r8 G+ R RowBox[{0 u- D$ v0 P! V9 [ O1 L; X8 L
RowBox[{"-", "0.160584`"}], "+", "x3"}], ")"}], "2"], "-",
8 L+ L3 E3 L) a; u8 o SuperscriptBox["x6", "2"], "-", 5 M, m ]- @+ I4 `5 |# @! ~* m; \
SuperscriptBox[1 j1 ?- R- l. B3 X+ J0 {
RowBox[{"(",
$ q. s! G, n+ p RowBox[{/ M' E/ E q' L: T& ]
RowBox[{"-", "0.684553`"}], "+", "x7"}], ")"}], "2"], "-", ; f" m5 C! ?6 }* L" Q( ~5 \
SuperscriptBox["x8", "2"], "-", $ q& g' p3 | ?) p" Y& y
SuperscriptBox["x9", "2"]}], ")"}]}]]}], "-", ) C2 S4 v4 u. R+ n6 y; w8 B- v
RowBox[{"0.4666313851213299`", " ",
. T# u7 D6 X8 r9 x, S SuperscriptBox["\[ExponentialE]",
& ?& c9 S4 q: E6 d: L! U1 Q. w RowBox[{"3.1415926535897936`", " ", $ P j; P9 {, Z% D
RowBox[{"(",
0 R3 A# F$ w% i0 G+ ~ RowBox[{
% \' m) b$ n/ j3 D- F. T RowBox[{"-", "0.14616677062500003`"}], "-",
+ {; ]9 E' i# J: Q% e SuperscriptBox[
8 O3 {+ T* J# k2 s5 l RowBox[{"(",
* j* H" e/ Y1 V% g; G RowBox[{7 ]7 J8 D2 |! X1 F, A) P
RowBox[{"-", "0.414297`"}], "+", "x3"}], ")"}], "2"], "-",
# P9 \" T' [/ y* p0 d$ Y SuperscriptBox["x6", "2"], "-", 9 A# t- ~) D+ E
SuperscriptBox[
' y* B1 ^ R6 A' ~# e" g! w RowBox[{"(", `& N) k: Y' ~& J0 {
RowBox[{
4 k* n1 ?( `' U- W, J. p RowBox[{"-", "0.544715`"}], "+", "x7"}], ")"}], "2"], "-",
7 Y. [: S' F1 K, |" p4 v SuperscriptBox["x8", "2"], "-",
' ^2 o3 d( ?6 J: t' Q' o SuperscriptBox["x9", "2"]}], ")"}]}]]}], "+", $ [4 N$ t$ N* m( \2 @
RowBox[{"0.37419828116611387`", " ", $ f* d- ~; {& e5 d
SuperscriptBox["\[ExponentialE]",
3 I" G* t6 c4 |8 V; J% f, l" J; ^ RowBox[{"3.1415926535897936`", " ",
" B3 i+ k' j" }5 O0 a& C$ V0 n; q RowBox[{"(",
! @0 V0 b2 q0 I5 Q1 w( t RowBox[{5 B7 `* `7 j- ?6 I& h8 _* ~
RowBox[{"-", "0.10407011464100005`"}], "-",
3 S$ H8 f) T" B, E3 v% L SuperscriptBox[: s' o8 _+ B/ V9 O% r4 f
RowBox[{"(",
, l% p$ Q6 K* A* K* K5 S8 `* d RowBox[{
7 v# ?9 P6 j% I* d5 _! h RowBox[{"-", "0.3555`"}], "+", "x3"}], ")"}], "2"], "-", 3 A3 B9 E5 j' h" E& N3 d
SuperscriptBox[# X# E+ R' U- |# K+ w5 [! v
RowBox[{"(", 0 q% q' S* C; [# q+ P; a1 t
RowBox[{
( X2 ~* G+ M4 W) s8 U' u7 ? RowBox[{"-", "0.37679`"}], "+", "x6"}], ")"}], "2"], "-",
# @$ \7 f- f6 @) g+ ` SuperscriptBox[
) f/ n K0 G# Y& V1 \ RowBox[{"(", 7 U v+ X( d- G1 X) V4 |; n
RowBox[{8 v: q) y- w* p% v5 B
RowBox[{"-", "0.411382`"}], "+", "x7"}], ")"}], "2"], "-",
; D. I4 f4 ^ T) f+ }% P( Y SuperscriptBox["x8", "2"], "-",
9 ~9 E1 J4 G. g3 f1 p# q6 }8 C SuperscriptBox["x9", "2"]}], ")"}]}]]}], "-", 5 y9 W7 P, P' U' c+ I+ H
RowBox[{"0.025873988843992612`", " ", & }! m% n( A* G9 C( @9 y
SuperscriptBox["\[ExponentialE]",
# u: M! ]/ F1 ~& ^: P1 I1 r RowBox[{"3.1415926535897936`", " ",
; j" n# ^1 ?) k5 l RowBox[{"(", 8 x( b% g0 q c& t: {8 O. p
RowBox[{
' X6 L; [4 o# E3 c9 z7 C) t RowBox[{"-", "0.31770463544200006`"}], "-", 2 U3 M8 W! O8 r; F
SuperscriptBox[9 `- [* M3 t3 o- g) J) X0 Z4 _+ h
RowBox[{"(",
: ]; I1 h3 y8 Z2 O. U RowBox[{
8 z( q' ]9 S8 c& p4 B$ l RowBox[{"-", "0.655012`"}], "+", "x3"}], ")"}], "2"], "-", 3 u6 [# `9 D/ N
SuperscriptBox["x6", "2"], "-",
! G$ @, T4 w' C% Z( v% s( ?* [ SuperscriptBox["x7", "2"], "-", ! D& p% Y4 w2 T9 q9 n
SuperscriptBox["x8", "2"], "-",
0 g9 u) ?4 Q7 X9 z) G k SuperscriptBox["x9", "2"]}], ")"}]}]]}], "+", 6 E B( U+ \( S: z5 }8 q7 V6 _+ n' ?
RowBox[{"0.5575503376854455`", " ", ' x2 u/ L+ k; F# ` k
SuperscriptBox["\[ExponentialE]",
( ^2 H- a D# Q& o RowBox[{"3.1415926535897936`", " ", 7 Y9 c' T( ~3 d
RowBox[{"(",
) w5 r- h9 e. ~4 [. W- a) A RowBox[{
* X1 [3 p+ E9 U7 V RowBox[{"-", "0.6410867660730001`"}], "-",
$ M2 T/ O& H3 @% H" e, c SuperscriptBox[
: I7 |; w" X: n4 p8 Z! v0 O RowBox[{"(",
4 W+ @. i1 B q- D RowBox[{% f( W) P; `8 ?8 l
RowBox[{"-", "0.420753`"}], "+", "x3"}], ")"}], "2"], "-",
2 X. N$ x6 v( _ SuperscriptBox["x6", "2"], "-", ! C. y( @7 F+ J1 I4 Q" I9 @
SuperscriptBox["x7", "2"], "-", / V6 E' ~( p( I6 J9 f
SuperscriptBox["x8", "2"], "-", : k# Z7 j! i- v4 ~4 `& n# T5 h
SuperscriptBox["x9", "2"]}], ")"}]}]]}], "-", + s n' Q8 L/ K; ^
RowBox[{"0.13398540448199214`", " ", ( p- x1 ]- H6 G8 x( ^( }( |
SuperscriptBox["\[ExponentialE]", $ b* C* i9 t. K8 B& a) U
RowBox[{"3.1415926535897936`", " ",
4 \. g% K. g( @( C7 m RowBox[{"(",
1 T- g( n3 L2 K* {2 L& o RowBox[{
& j" q) P7 \$ a4 @) h RowBox[{"-", "0.155663887074`"}], "-", ' l2 w* N- q/ \+ d4 A
SuperscriptBox[, V& A. y1 D9 o
RowBox[{"(", ' C% I. } x( I3 y! l
RowBox[{
9 S3 X$ B( l7 ~) C0 X RowBox[{"-", "0.267704`"}], "+", "x3"}], ")"}], "2"], "-", 5 k& U0 k1 ~" p
SuperscriptBox["x6", "2"], "-",
. \$ K; h1 M! n SuperscriptBox["x7", "2"], "-", ' G( v' m$ C" @+ V
SuperscriptBox["x8", "2"], "-",
, @( Q# i: S. q4 J/ `' i( k SuperscriptBox["x9", "2"]}], ")"}]}]]}], "+",
/ Z4 @6 }* s9 L4 l' h0 X( z" J' m RowBox[{"0.4572385099113415`", " ", + j# g B4 `, j" O$ ?% e
SuperscriptBox["\[ExponentialE]", ' i2 @8 @6 H3 e3 U, K
RowBox[{"3.1415926535897936`", " ", ; ^8 Y! P g Q
RowBox[{"(",
& K6 K8 j0 k" N' q, e8 r" u RowBox[{' ?" V5 A, E1 M, E
RowBox[{"-", "0.14151232428600002`"}], "-",
! C* v! N* a8 n% K6 S SuperscriptBox[
/ D' P7 j+ d4 R RowBox[{"(", 5 ~0 U% r T0 C5 [3 @. P
RowBox[{" F. c/ e4 F% S+ M: h) y1 h
RowBox[{"-", "0.234619`"}], "+", "x3"}], ")"}], "2"], "-", : j ?2 p: a: k$ f' f- X
SuperscriptBox["x6", "2"], "-",
; s; X3 z2 c; E4 g9 y0 g' D' x SuperscriptBox["x7", "2"], "-",
7 H& X+ k5 E1 I2 S2 D" O0 \ SuperscriptBox["x8", "2"], "-", 6 W. I" l: l" M% g
SuperscriptBox["x9", "2"]}], ")"}]}]]}]}]], "Output",9 Q+ T. O1 [1 Y* S+ ]
CellChangeTimes->{3.577962841401445*^9}]: x8 S; m) Q; _5 i
}, Open ]]+ O# W$ Q [: K' u3 K: V% S# r
},5 S3 j6 D* p% z* b+ q" \
WindowSize->{1093, 659},3 |) o) C" i! s- e
WindowMargins->{{61, Automatic}, {Automatic, 15}},. E$ z- `2 P% Y/ `' @
FrontEndVersion->"7.0 for Microsoft Windows (32-bit) (February 18, 2009)",8 }& Z8 e/ a1 W9 [
StyleDefinitions->"Default.nb"
# `! i! c) W% m: n7 z0 A, o' C) Z' G]0 M/ H! e9 g J- k
(* End of Notebook Content *), R1 r! b. \$ b E! J3 W1 I6 V
j: e v6 j1 z* O. ^
(* Internal cache information *)
# Z2 D8 ^" N0 v% q(*CellTagsOutline5 W& S4 h% \! o
CellTagsIndex->{}' c8 e6 p$ i! t. ^& |( \ C
*)& t6 K6 c0 m" h2 C$ O
(*CellTagsIndex' i f `/ f9 x" _9 s& G# }
CellTagsIndex->{}
; ?7 x z/ m% n*)/ A0 V! _ H' D4 r, n) u( ^
(*NotebookFileOutline
& \4 A) v. a' Q9 H, Q4 @$ h- zNotebook[{) W. h" i( N, |) y2 k' Q9 j# C5 D
Cell[CellGroupData[{
$ v5 P6 V$ P8 u/ F, E" ]Cell[567, 22, 22639, 450, 1792, "Input"],
$ T; O& y# p& R v" A. R, HCell[23209, 474, 21281, 449, 1703, "Output"]
) a$ }* ?9 B% a/ A2 a7 l/ {}, Open ]],1 j' h5 j, g) r: h
Cell[CellGroupData[{
; U$ H3 j, D9 P7 D4 O3 |Cell[44527, 928, 198, 5, 31, "Input"],
# n! m# S* u( M( }" n1 ~4 j8 vCell[44728, 935, 53666, 1605, 1532, "Output"]+ b s3 N0 `+ b' p5 r: ?( B2 Q# h: }
}, Open ]],
5 i } ^3 \% g$ n0 x$ jCell[98409, 2543, 614, 16, 112, "Input"],
1 s: a. O- w9 Y+ V( A5 Q6 {8 uCell[99026, 2561, 667, 17, 72, "Input"],4 e* t$ u( ~% w9 |% A& R
Cell[CellGroupData[{: E3 Y: `% m; W9 b! M, h/ w; y
Cell[99718, 2582, 885, 13, 52, "Input"],; ^1 R1 y9 E) \$ T9 X! N2 X
Cell[100606, 2597, 935, 14, 30, "Output"],
4 m6 X6 N& W& n* L9 k8 J, B* G- [Cell[101544, 2613, 932, 14, 30, "Output"]4 j+ X% }; m" z
}, Open ]],
) s `2 _6 W j! {1 [. kCell[102491, 2630, 4236, 93, 412, "Input"],
! V# \1 ~9 f/ e6 O" F' _Cell[CellGroupData[{
$ W Z' m; J- v7 K4 w! P/ CCell[106752, 2727, 90, 1, 31, "Input"],) b& W5 `" L* D0 K
Cell[106845, 2730, 872, 13, 30, "Output"]
0 k, S" j1 R, D4 \$ `}, Open ]],
3 Q5 ^. x H/ k1 i! v/ f! p JCell[107732, 2746, 458, 10, 31, "Input"],. e8 J, o2 |4 t4 _9 a7 e$ t- \
Cell[108193, 2758, 126, 2, 31, "Input"],4 c; v6 f1 ~8 n0 W: ^* \" ?' q
Cell[CellGroupData[{
* w- j! L% E8 N9 b/ n2 G1 ?" ECell[108344, 2764, 248, 6, 31, "Input"],
9 j O+ @, T; I; U/ |, D! u" w! XCell[108595, 2772, 1007, 17, 30, "Output"]
) K7 M' |& t) d5 [/ \7 F p" \}, Open ]],
1 t2 m% I- A3 L4 X+ v2 iCell[CellGroupData[{5 b5 n7 `* k* }, X
Cell[109639, 2794, 251, 6, 31, "Input"],% q8 S$ I9 d( ], ^
Cell[109893, 2802, 1013, 17, 30, "Output"]2 m; e0 V B0 \ b( S. I! G
}, Open ]],+ n( G1 l" O8 R Z# d6 X. Y( ?; s
Cell[110921, 2822, 1232, 23, 31, "Input"],1 F3 t+ R! J1 x) ]9 F. [1 K( e9 s
Cell[CellGroupData[{8 q" y0 g/ f5 v& v+ ~! f- \
Cell[112178, 2849, 147, 5, 31, "Input"], ~5 f% V3 i) N: o- {9 o. G
Cell[112328, 2856, 1979, 50, 50, "Output"]
7 k3 e+ C" s6 Q/ [}, Open ]],
2 t$ D6 v6 h6 r. _Cell[CellGroupData[{
0 d% y' z Y) i3 c BCell[114344, 2911, 195, 5, 31, "Input"],2 E# H0 g1 ]7 M/ L
Cell[114542, 2918, 123, 2, 30, "Output"]
: Z2 c J5 _ D: O}, Open ]],) D, |, V X1 m/ p0 P3 O9 Q% q
Cell[CellGroupData[{
; T6 K c; Q' q1 L' L9 `- B( w- \Cell[114702, 2925, 144, 4, 31, "Input"],
|. Y, L+ z( q' Z. i n/ J; W4 bCell[114849, 2931, 96, 1, 30, "Output"]
& r9 _2 M6 l" G) d}, Open ]],5 R5 ]( g5 x' I" I
Cell[CellGroupData[{8 I$ }' r( S+ ~7 E" F
Cell[114982, 2937, 146, 4, 31, "Input"],; V' @% ~9 a; g9 o5 D
Cell[115131, 2943, 495, 7, 30, "Output"]. V0 @' M# O9 P; i% {1 M. e
}, Open ]],1 J H+ l8 J" t& Z5 i3 D
Cell[CellGroupData[{% D" x6 u+ {4 G' l- d3 D
Cell[115663, 2955, 144, 4, 31, "Input"],
- b2 ^* s1 o5 R7 ?/ p0 bCell[115810, 2961, 418, 6, 30, "Output"]# V9 [$ s( O4 X' O6 p3 U
}, Open ]],
0 q9 p' ], [- p6 zCell[CellGroupData[{, N1 E2 {4 a3 ]9 K! R
Cell[116265, 2972, 144, 4, 31, "Input"],: y/ R- a' z) f: O4 b7 F+ @
Cell[116412, 2978, 549, 8, 30, "Output"]! I7 D8 [6 @" Z7 i6 @4 B
}, Open ]],
" @# K, u6 B2 v# y8 K0 |Cell[CellGroupData[{0 i) M; \; k; P+ Q! u7 L5 D- z
Cell[116998, 2991, 537, 10, 31, "Input"],
! l& d2 m8 H/ k) [8 ^- W5 BCell[117538, 3003, 998, 14, 30, "Output"]
: J; I) O) M- e& I: H}, Open ]],8 ?2 H7 S; A) w+ H: c
Cell[CellGroupData[{
* f* I [; L. c% @3 v4 b9 |$ wCell[118573, 3022, 2321, 55, 44, "Input"],
0 S; A" Z- R' ^# I/ Q. E% l4 ?Cell[120897, 3079, 1541, 38, 91, "Output"]8 C; b) x: Y6 n H* y, r; Z- I+ n
}, Open ]],1 G# T4 V1 k8 v$ i S8 m, W$ j
Cell[CellGroupData[{
4 R, q$ N+ Y% |Cell[122475, 3122, 856, 19, 87, "Input"],
! P/ F' B/ B9 g& k3 mCell[123334, 3143, 568, 14, 91, "Output"]
z, j3 C$ r; x, m7 G( \& L}, Open ]],- c3 y& a- P* t6 \) K4 g1 `
Cell[CellGroupData[{
( i, a! s8 _6 b& ]2 j N, u0 uCell[123939, 3162, 437, 10, 31, "Input"], L1 f3 b) L7 \: w/ t* ~+ P: ~
Cell[124379, 3174, 739, 12, 30, "Output"]
9 m- Z1 T) B- r+ C8 q}, Open ]],. m. t9 f- G2 L+ w. `) ?" c$ ?
Cell[125133, 3189, 242, 3, 31, "Input"],% ^* h Z/ T. Q, k& N+ Q
Cell[CellGroupData[{
. k# ?/ Q3 j; l( m4 ICell[125400, 3196, 109, 2, 31, "Input"],1 V% O5 E' O7 A
Cell[125512, 3200, 323, 7, 30, "Output"]
3 M q( `! |, ?$ u2 C! v}, Open ]],9 R3 v! u# v; Z8 V- v- t
Cell[CellGroupData[{- v. M! x4 L9 e8 D
Cell[125872, 3212, 526, 15, 31, "Input"],
! A/ v# [, v, c& YCell[126401, 3229, 1436, 44, 36, "Output"]2 v4 v8 |( {3 a# [" R* s; B
}, Open ]],- n! W7 M9 Y3 f; L7 o0 G5 d' g+ Q
Cell[CellGroupData[{1 ?; V; g& B5 B) X" a x G
Cell[127874, 3278, 92, 2, 31, "Input"],- m; U. i; W& \( i
Cell[127969, 3282, 326, 7, 30, "Output"]
6 ]# j e& s c; o: w# s# |}, Open ]],3 A8 k5 n8 }# B; {+ S& f
Cell[CellGroupData[{
* |$ ~* H8 Z5 C; H) t6 i) R% ZCell[128332, 3294, 388, 13, 31, "Input"],# O* D$ c3 j: E: U! ?0 b
Cell[128723, 3309, 1381, 42, 36, "Output"]
& s5 ?3 I/ n" ?: B# q. L}, Open ]],
r% u( n* u5 PCell[CellGroupData[{$ S, k* \8 f" i7 [8 h* ?
Cell[130141, 3356, 89, 2, 31, "Input"],; B- D/ l8 V* u2 p
Cell[130233, 3360, 320, 7, 30, "Output"]5 S) r( ^' r; C/ k
}, Open ]],
* @4 b( z5 B/ I ACell[CellGroupData[{
; e/ U. j/ r% Y( WCell[130590, 3372, 387, 13, 31, "Input"],
! @9 j% ^/ n/ VCell[130980, 3387, 1381, 42, 36, "Output"]
; ?$ g! u0 c$ W3 ]$ k}, Open ]],7 i4 V8 Q8 l$ n; c+ _
Cell[CellGroupData[{# j( A, S- g% f" N" b* N
Cell[132398, 3434, 91, 2, 31, "Input"],. e% m3 O& f9 Y3 _
Cell[132492, 3438, 328, 7, 30, "Output"]6 Q1 r1 h4 H4 m$ w4 p. _% h
}, Open ]],
) m* b1 f2 G5 K8 ?: f' ^Cell[CellGroupData[{
) d" c+ ~; g M2 G' FCell[132857, 3450, 384, 13, 31, "Input"],
3 l: X/ c3 ~! }5 [% kCell[133244, 3465, 1379, 42, 36, "Output"]
: n$ ~) p% U. A0 w! k- {}, Open ]],' o$ a% p N- {- O" e6 |: R( `: @
Cell[CellGroupData[{8 k/ f7 b! l$ T8 m% ?. ?" v2 k2 V
Cell[134660, 3512, 93, 2, 31, "Input"],
4 q- D' C$ v8 i# f4 q! {0 aCell[134756, 3516, 322, 7, 30, "Output"]# w9 U# ?+ x: l9 R! _
}, Open ]],' ?* K- b: g# o/ `; n0 i# f
Cell[CellGroupData[{
- e3 D& A9 T& E. U* P0 f& K& SCell[135115, 3528, 385, 13, 31, "Input"],% Q8 K# v4 O# R
Cell[135503, 3543, 1379, 42, 36, "Output"]$ g& _9 Z3 i2 k' `2 y) R+ h
}, Open ]],
- ]9 ]6 M @8 A/ Y: v7 pCell[CellGroupData[{
% t" X+ i+ \- ?Cell[136919, 3590, 113, 2, 31, "Input"],% f0 [* b- _3 V I
Cell[137035, 3594, 348, 7, 30, "Output"], g% O8 d# ?( j) b; R
}, Open ]],
; k3 Q4 E6 q: `' t' j& x; OCell[CellGroupData[{- A7 C4 p* R" u
Cell[137420, 3606, 406, 13, 31, "Input"],
8 b% E9 X z6 d% D, m: e4 ]* mCell[137829, 3621, 1414, 43, 36, "Output"]) ?; L: J+ F: k% L/ D
}, Open ]],
& `: Y& I+ z; r6 ^Cell[CellGroupData[{
- z! k0 G" X3 z) Q" g3 @" ECell[139280, 3669, 135, 3, 31, "Input"],( \7 s! W) A @) q
Cell[139418, 3674, 358, 7, 30, "Output"]$ D# v: @5 f8 E2 `
}, Open ]],$ @. z0 h& p! x+ P
Cell[CellGroupData[{
5 o, `' ~; J0 O, @; b3 Q. s. }7 DCell[139813, 3686, 430, 14, 31, "Input"],
/ \! t% `# x5 A- m% uCell[140246, 3702, 1426, 43, 36, "Output"]
) H, G4 n( b! h2 t! H}, Open ]],
- d7 k. y7 n0 x5 RCell[CellGroupData[{7 Y% A7 `& d! o" F9 O# a5 h1 V2 h+ ^5 r
Cell[141709, 3750, 156, 3, 31, "Input"],
' U! I9 Y l" {. h0 wCell[141868, 3755, 377, 8, 30, "Output"]
" R4 X* H$ z/ u* U2 |; k2 o! m. {}, Open ]],* ^1 L. f* D! ?" q; ~5 k( ]
Cell[CellGroupData[{
2 f3 b- ?0 u/ _7 D) WCell[142282, 3768, 452, 14, 31, "Input"],/ L/ _( I1 O5 b5 k5 x
Cell[142737, 3784, 1440, 42, 36, "Output"]
( z! }! S: I0 ~+ f8 T( ?}, Open ]],
; Y m: W, R# {5 i7 D7 JCell[CellGroupData[{/ W4 R, m. f& N3 ?2 m% q. o
Cell[144214, 3831, 178, 3, 31, "Input"],
1 {1 U5 ?2 ]2 B7 C& [* w& T5 JCell[144395, 3836, 448, 9, 30, "Output"]/ F4 `% ?; w6 `+ H
}, Open ]],
3 ] q2 n# Y/ f, f3 mCell[CellGroupData[{! [# C0 `2 w2 j* d$ M m3 _
Cell[144880, 3850, 474, 14, 31, "Input"],
7 i4 b. H' m4 h7 y2 CCell[145357, 3866, 1510, 43, 36, "Output"]1 N# S/ e9 |4 q
}, Open ]],7 o' z" U9 S; R" X3 m
Cell[CellGroupData[{
% u$ N/ {( `* S4 }Cell[146904, 3914, 470, 14, 52, "Input"],
6 Z" [/ n9 ^( X# \# `Cell[147377, 3930, 257, 5, 30, "Output"],' l% d: A% j1 I, j A" r6 f
Cell[147637, 3937, 1310, 38, 36, "Output"]) X7 C: L, V ~" P: k1 I$ i
}, Open ]],7 j8 q% O- s8 [
Cell[CellGroupData[{
: ~: ]) t* k! ~) `1 G% DCell[148984, 3980, 520, 15, 52, "Input"],
3 \* A1 e: l+ Q$ GCell[149507, 3997, 293, 7, 30, "Output"],
; o$ \$ h$ m( u% GCell[149803, 4006, 1345, 40, 36, "Output"]4 X x2 h+ ]4 Z# q
}, Open ]],. P6 H4 [" K6 a
Cell[CellGroupData[{* T# g) e- v' x) o8 j3 o
Cell[151185, 4051, 520, 15, 52, "Input"],$ ~& w* j8 e, M7 B6 B
Cell[151708, 4068, 266, 6, 30, "Output"],
% B9 I; \& D# i5 n7 T! ~6 pCell[151977, 4076, 1319, 39, 36, "Output"]
: Z0 D# C! L8 S}, Open ]],% z2 u3 ?6 }4 X! G; e
Cell[CellGroupData[{% o% g7 X& i4 Q; B3 t9 A
Cell[153333, 4120, 520, 15, 52, "Input"],' t; s9 v8 f5 f7 w/ i4 |2 |' m9 t
Cell[153856, 4137, 272, 6, 30, "Output"],, Q9 C, o% i8 R9 S- V6 X
Cell[154131, 4145, 1327, 40, 36, "Output"]6 [/ |/ N9 a9 A3 S o
}, Open ]],
$ |2 U& p/ M" M O7 h3 ]: ~Cell[CellGroupData[{
* y% r% b: ?+ J* hCell[155495, 4190, 520, 15, 52, "Input"],/ G- ^& M2 I" D$ R# Z' D" x9 y
Cell[156018, 4207, 265, 6, 30, "Output"],+ D, {9 Z$ \; ~! ]
Cell[156286, 4215, 1318, 39, 36, "Output"]
# E7 N/ M& b3 `, r# u2 ^+ i}, Open ]],: m/ H2 V4 ]- r( |% V
Cell[CellGroupData[{1 a0 G/ W3 K$ x( _* F# i& R- Q
Cell[157641, 4259, 517, 15, 52, "Input"],
0 ]6 K. b n7 B Y& |2 QCell[158161, 4276, 275, 6, 30, "Output"],
* V! M, b% h4 j1 e/ B6 xCell[158439, 4284, 1333, 41, 36, "Output"]
4 t2 [ A; s2 h8 r5 b/ R7 P}, Open ]],
0 h% y# z+ K! ^( T( R/ [& O3 Y6 a. lCell[159787, 4328, 381, 11, 31, "Input"],
, _% S6 J' u1 V, X# W! R& ?Cell[CellGroupData[{
. H: S# X$ [6 K8 BCell[160193, 4343, 573, 16, 52, "Input"],# E8 @0 z( G, U; O& W M# K4 q
Cell[160769, 4361, 278, 6, 30, "Output"],
0 c t3 p+ F0 jCell[161050, 4369, 1328, 41, 36, "Output"]
, l3 @* K+ H+ |. t( Q ?; }}, Open ]],% O5 ]" R4 q4 q b) L
Cell[CellGroupData[{: ~/ b3 b6 o- t9 p( B5 G' j" S5 g
Cell[162415, 4415, 571, 16, 52, "Input"],
' w1 u$ ~. \. R- `# U+ wCell[162989, 4433, 270, 6, 30, "Output"],' [. S. z2 n! r4 f- d! O7 e) V/ H% e
Cell[163262, 4441, 1325, 40, 36, "Output"]7 [- _/ d* q: Y+ g3 K7 Z
}, Open ]],
3 f6 ^+ \, W8 d/ X2 \; Y5 ]0 Y) aCell[CellGroupData[{5 n0 u' j: ]# v
Cell[164624, 4486, 571, 16, 52, "Input"],
# Y% C6 i" ~- C- m0 WCell[165198, 4504, 264, 6, 30, "Output"],
. {0 ^3 v0 Q& P, Y( MCell[165465, 4512, 1316, 39, 36, "Output"]- T0 l! k! D% C$ z$ l/ w Y
}, Open ]],
" K, Z6 N2 |: Y6 y! Z8 \Cell[CellGroupData[{8 `2 C ~) u0 e& m* ^# }, t/ f$ T
Cell[166818, 4556, 571, 16, 52, "Input"],
; n, N( n1 [0 j3 S3 gCell[167392, 4574, 271, 6, 30, "Output"],1 [! f- B7 n7 ?7 q, [
Cell[167666, 4582, 1329, 41, 36, "Output"]% N7 \. [! w. T$ |8 U4 p
}, Open ]],
* B2 d" a0 Z4 |% w5 d+ {* bCell[CellGroupData[{2 @- I* \0 a+ M K9 `) T* x5 Y) g
Cell[169032, 4628, 570, 16, 52, "Input"],
# Y9 n/ ~) y2 i3 I# k8 v9 l# GCell[169605, 4646, 277, 6, 30, "Output"],
0 p* j0 N1 t$ R M; Q( }2 F3 YCell[169885, 4654, 1335, 41, 36, "Output"]
! x5 z$ I) V* x3 U}, Open ]],. q7 b: l+ g; z
Cell[CellGroupData[{5 I( l( D- U# A( X* i$ V4 ?, d
Cell[171257, 4700, 571, 16, 52, "Input"],0 h! N0 M7 a1 e$ j3 I
Cell[171831, 4718, 274, 6, 30, "Output"],
- X' h! X% K P9 F3 w! }Cell[172108, 4726, 1335, 42, 36, "Output"]
2 J4 v+ T* w4 l- u1 c# ^}, Open ]],; t* Z" d D0 R6 q$ V
Cell[173458, 4771, 104, 1, 31, "Input"],
: n8 t j4 R& C$ Z/ LCell[CellGroupData[{
+ t2 A2 w; f+ B& J9 yCell[173587, 4776, 279, 7, 31, "Input"],* S+ \3 W" C: [( \ _, A) h
Cell[173869, 4785, 878, 14, 50, "Output"]! |/ Q M) V! s; M2 A" ~
}, Open ]],
& Y* _" A y+ L- tCell[CellGroupData[{9 O! k' P$ k- H g$ m0 \
Cell[174784, 4804, 243, 5, 31, "Input"],
3 t2 j7 Q5 O! f- tCell[175030, 4811, 216, 3, 30, "Output"]( R8 n/ x0 @/ s! y4 \
}, Open ]],, U/ S# [: `+ g( z, N
Cell[175261, 4817, 537, 14, 31, "Input"],
# O ?$ g, E. D& {) Z$ g, F# [Cell[CellGroupData[{3 A6 c: [* h- j3 ?$ f
Cell[175823, 4835, 94, 1, 31, "Input"],
' q" n4 u" R1 ~0 J' NCell[175920, 4838, 1319, 20, 107, "Output"]
# f3 R/ u3 I9 V% \}, Open ]],
/ j5 S: H q, x/ z& N( J- oCell[CellGroupData[{0 t+ \2 s* `8 O: R6 A
Cell[177276, 4863, 464, 12, 31, "Input"],' s$ q, F( A: E3 C0 p {7 p
Cell[177743, 4877, 17248, 366, 582, "Output"]
" }% Q T1 J$ X" W8 O4 i4 w}, Open ]],
' V% k; O+ `. J- zCell[195006, 5246, 32810, 934, 912, "Input"],5 p2 P4 a a, S
Cell[CellGroupData[{
( y' [* p* G/ C2 ?4 NCell[227841, 6184, 284, 6, 31, "Input"],
$ j) O4 z0 G8 Z" x2 |0 u$ {& RCell[228128, 6192, 961, 17, 50, "Output"]3 F1 J. Y$ _; I( L
}, Open ]],0 B" H9 F/ o8 g
Cell[CellGroupData[{
+ o" n( e* W2 }" p$ e0 B# I, v( U4 GCell[229126, 6214, 531, 11, 31, "Input"],! H6 A% W) c) ~5 k% [
Cell[229660, 6227, 28858, 853, 537, "Output"]6 n2 Q6 {, R% C. x' ?- U9 J
}, Open ]],. A3 M. e" C$ ^" i+ q: b
Cell[CellGroupData[{9 \7 u. p% r0 y6 _. O0 H9 ~( E
Cell[258555, 7085, 281, 7, 31, "Input"],
7 v; C- `1 T% x( H* D6 FCell[258839, 7094, 540, 10, 30, "Output"]" Q, S3 n- \6 a h0 P
}, Open ]],
8 ]3 p3 O8 O C6 SCell[259394, 7107, 1869, 53, 92, "Input"],
& P: b, [; ?& t8 o* p @% wCell[CellGroupData[{
, F U" E& y, Y! Z& lCell[261288, 7164, 138, 2, 31, "Input"],
& d' H& M o1 BCell[261429, 7168, 1122, 20, 69, "Output"]4 J9 e# ^4 A/ E* u& g( D h
}, Open ]],
% U* |- u; W! d% \) H; MCell[CellGroupData[{
+ h5 u7 X9 o+ H7 eCell[262588, 7193, 1816, 29, 152, "Input"],
& o0 p& ]6 s7 lCell[264407, 7224, 1736, 28, 88, "Output"]
' o3 G7 e4 x8 X/ K, F2 F8 D}, Open ]],. F+ f) i! Z$ `0 S
Cell[CellGroupData[{
& ?% `+ |: ^8 Y+ d+ }: Z9 ]Cell[266180, 7257, 209, 6, 31, "Input"],
# T* T% C$ v# R7 f: oCell[266392, 7265, 516, 9, 30, "Output"]
% b+ D% f- p6 S2 ?( ~# R5 m) Z}, Open ]],1 u) Z# `/ |0 y0 h& t* e
Cell[266923, 7277, 613, 16, 31, "Input"],* {- R: R! Z- [, N! Y% W; |8 d, l# l
Cell[CellGroupData[{, q; D" i1 x1 b' s* M3 _% Q2 G* w( \
Cell[267561, 7297, 157, 2, 31, "Input"],# _9 j/ ^) }) [8 G7 {4 \
Cell[267721, 7301, 776, 13, 50, "Output"]
y- R' n5 y& m1 F$ D! G @* [}, Open ]],
! ~9 V- S. `6 P" W( U9 _3 T' {Cell[CellGroupData[{
+ D0 Q3 J4 `3 l' ^' {1 H3 A! e A3 {Cell[268534, 7319, 1397, 21, 112, "Input"],
. V; }4 Y' k) A4 H* [+ _4 F0 V/ zCell[269934, 7342, 1384, 21, 88, "Output"]
0 j! q7 M3 d4 Z# d F: J" l' D% q2 i}, Open ]],: T8 i: t+ }" D1 x3 r
Cell[CellGroupData[{& P3 l$ a/ i" c2 Z( I5 y
Cell[271355, 7368, 1208, 30, 55, "Input"],
( e) {' f9 ^8 C6 _. Z: xCell[272566, 7400, 1299, 29, 256, "Output"]
0 M6 b) F }# i+ i( o}, Open ]],. S5 w9 I* i# g5 i% i9 \. V
Cell[CellGroupData[{
& q1 N+ ~2 w3 R/ N. ?! RCell[273902, 7434, 829, 23, 31, "Input"],% x, F' X5 v0 J4 K. O
Cell[274734, 7459, 1053, 22, 249, "Output"]) R R# q9 E* M; I% r$ p- y
}, Open ]],2 C$ X# y- A- c6 }4 P" b. r$ d0 o6 v
Cell[CellGroupData[{0 v& |, q( _- Y$ \( x$ R
Cell[275824, 7486, 84, 2, 31, "Input"],1 c5 f: r+ {( a7 R | y. N. h
Cell[275911, 7490, 1675, 36, 256, "Output"]
; X7 }- u9 }6 S! {, V}, Open ]],# C) v1 n3 G6 v; c1 q2 Y
Cell[277601, 7529, 131, 2, 31, "Input"],
! ^9 `, V* E/ s0 V( g/ _1 i; JCell[CellGroupData[{
& _8 q) r3 V* S- m$ P- d s$ ^; e. CCell[277757, 7535, 302, 7, 31, "Input"],
, N* {3 y+ v6 R& F# G& l |+ nCell[278062, 7544, 935, 16, 50, "Output"] M* Q2 F% t+ E! R9 F; ]
}, Open ]],- V% @& Z8 V! ?% ?
Cell[CellGroupData[{
! @, l3 Z4 X# ]. Z" m: Y" J, |Cell[279034, 7565, 295, 6, 31, "Input"],
) o; H- G$ Z, q p. c$ uCell[279332, 7573, 244, 3, 30, "Output"]
9 g; J9 J9 u# @. m- c}, Open ]],8 q* e( G! Z" {7 R+ r6 \+ W, ~
Cell[279591, 7579, 610, 15, 31, "Input"],
* S+ y+ W& a. U, ?Cell[CellGroupData[{8 j. p. i7 o9 N, o* z1 `
Cell[280226, 7598, 120, 2, 31, "Input"],
0 C8 A1 z6 |& Q- H9 \5 eCell[280349, 7602, 1334, 21, 107, "Output"]9 o5 v* g- G8 j1 f1 i$ ?
}, Open ]]," [" i6 A) [' |/ J3 p% A) a8 n( A5 Y
Cell[CellGroupData[{
: x" C/ u5 q" M, GCell[281720, 7628, 460, 12, 31, "Input"],
, H5 {$ W& _- d, C( E4 WCell[282183, 7642, 17248, 366, 582, "Output"]( X/ `! o* C) _9 q; ?
}, Open ]],
3 U4 V& h' m3 y& z$ u+ B8 q, l% OCell[299446, 8011, 32810, 934, 912, "Input"],6 n% y* h7 D) t5 x3 |1 e3 @
Cell[CellGroupData[{- ^; F6 D' h* H; G6 e
Cell[332281, 8949, 334, 6, 31, "Input"],2 }6 J; E; R: [' W b
Cell[332618, 8957, 1004, 18, 50, "Output"]
9 c/ Q. ^' I$ a; C! E5 c}, Open ]],2 Y7 Q: Y9 G8 }* L* P
Cell[CellGroupData[{* M+ ~6 a3 I, Q8 o* Y, R' y1 P
Cell[333659, 8980, 559, 11, 31, "Input"],( L6 n8 m% C6 e4 ^; ?" T) F# |
Cell[334221, 8993, 28881, 853, 537, "Output"]! B' `; O* ~# j" \' A# C6 A, y
}, Open ]],
0 j7 m* d1 F' S* bCell[CellGroupData[{! ^9 ~4 l8 r8 H7 u" M4 J# s
Cell[363139, 9851, 306, 7, 31, "Input"],7 |% c, @; H K/ V
Cell[363448, 9860, 562, 10, 30, "Output"]
8 F# r* X \- d' f; e) B7 M}, Open ]],3 }% G( {8 U# t) x
Cell[364025, 9873, 1915, 53, 92, "Input"],
$ X2 }5 F, L- G8 w1 f5 NCell[CellGroupData[{
# s6 t/ f! T$ I% q% M3 HCell[365965, 9930, 163, 2, 31, "Input"],
* B1 C- D! |- w+ j1 J* RCell[366131, 9934, 1139, 20, 69, "Output"]! R$ }5 i& j: m$ O5 {
}, Open ]],) k2 k" B) v# F6 C5 L1 u
Cell[CellGroupData[{' }: n) I c) f, X u
Cell[367307, 9959, 1863, 30, 152, "Input"],, E! g- u* q( i9 I' t8 c8 D
Cell[369173, 9991, 1761, 28, 88, "Output"]6 ` ] s) h& o$ D, f8 i
}, Open ]],' w) n: s" K! g& v5 M( z
Cell[CellGroupData[{
9 R5 | }& o4 p- K: k. R9 tCell[370971, 10024, 231, 6, 31, "Input"],
2 `# l. F( m7 c% l M* sCell[371205, 10032, 540, 10, 30, "Output"]
/ u8 d4 v6 X# h2 b: l+ N}, Open ]],
6 {9 k" [* P- o9 p: yCell[371760, 10045, 687, 17, 31, "Input"],& h8 d5 i5 m+ L+ i1 c# n# Q
Cell[CellGroupData[{7 W/ ?* C' J' E- M( A: _
Cell[372472, 10066, 185, 3, 31, "Input"],
' t, U' d# V4 S ~Cell[372660, 10071, 804, 13, 69, "Output"]
) \# {8 B, F2 D `! g) u}, Open ]],
, S7 Z m+ ^, H# i1 z3 h- uCell[CellGroupData[{" J# L3 B7 s" z0 K: Z3 w* X6 @
Cell[373501, 10089, 1405, 21, 112, "Input"],! P1 ]2 H# j# h7 v% B) T$ X8 c
Cell[374909, 10112, 1387, 21, 88, "Output"]
2 `2 N7 Y! g6 J/ T- t}, Open ]],1 V, M! w& |1 G7 ?3 U8 E1 p- N2 C
Cell[CellGroupData[{7 x9 D9 N" A2 T5 B" ]: ?* n
Cell[376333, 10138, 1339, 33, 55, "Input"],
" C% `. E& A( a1 \( p" NCell[377675, 10173, 1370, 30, 256, "Output"]- }# D6 }! d; P. k2 \
}, Open ]],6 X: Q i: G: G) i! d8 E
Cell[CellGroupData[{
1 ^$ l/ I% ?) }/ ?) u% JCell[379082, 10208, 877, 24, 31, "Input"],
7 a* a. d% A- H4 Y8 ~2 aCell[379962, 10234, 1058, 22, 249, "Output"]" b2 z% X- n8 v9 z8 {7 I5 I
}, Open ]],
0 t3 @5 ]0 p [. i6 i2 q" A+ s+ aCell[CellGroupData[{' z4 V8 I" K4 T: O' i e: q
Cell[381057, 10261, 84, 2, 31, "Input"],
& @3 a" O6 J `8 LCell[381144, 10265, 1659, 36, 256, "Output"]* h7 {, D' |6 I$ _# d# a) b" l8 o+ f
}, Open ]],3 f8 {# a5 z% r) I( N) B
Cell[382818, 10304, 509, 10, 52, "Input"],
. {, G- O: V: CCell[383330, 10316, 530, 10, 33, "Input"],' g b% z1 `* e6 j
Cell[383863, 10328, 69, 1, 31, "Input"],: w3 z3 c+ b% s) `, Y3 g
Cell[383935, 10331, 62, 0, 31, "Input"],
5 W3 f9 X0 m& rCell[CellGroupData[{
5 L/ S; o/ V* R4 L( n5 f" QCell[384022, 10335, 364, 9, 31, "Input"],( N7 f$ _3 o. q6 A
Cell[384389, 10346, 13864, 402, 287, "Output"]
7 i. h8 ]+ R$ }+ {- T}, Open ]],7 R& o, y( A5 x* y4 N+ R# }+ i
Cell[398268, 10751, 69, 1, 31, "Input"],
4 g" [ i3 W5 _/ uCell[398340, 10754, 74, 0, 31, "Input"],
( D7 V, ?' |, Q4 F* z) ACell[CellGroupData[{
& M" o# \% t: j' Y# g9 rCell[398439, 10758, 288, 8, 31, "Input"],
, ^+ Q( n! r4 X6 C, LCell[398730, 10768, 13861, 402, 287, "Output"]' r' G! P* U! a6 w
}, Open ]]2 ~# b& l4 W' F/ T: i8 K8 B( y/ \
}+ T3 w l2 G: o5 [
]; e, M8 c* M; T4 o/ l4 N, s
*)
* S C: s1 c% W8 g
$ z D6 q, [% t1 }) ~ v(* End of internal cache information *）
& q( B; d, H4 H8 g7 t7 i2 r* ?/ z b. b \4 s
这个是用mathmatic做的神经网络，能导出最后的权值，就是可以写出表达式，我想用matlab做，却不知道怎么做 |
IP卡
狗仔卡
发表于 2013-7-29 20:37
转播
淘帖
分享
收藏
支持
反对
微信
提升卡
置顶卡
沉默卡
喧嚣卡
变色卡
抢沙发
显身卡
