涳夢 发表于 2013-7-30 20:31 ![]()
2 r% D5 } [2 j- ]( m: J7 q) L1 C9 e神经网络系数？有这种系数吗？可不可以具体一点儿，给出原问题或更具体点呗
(* Content-type: application/mathematica *)$ z9 x0 j- ^% O' V- o( ^. u
" z4 p" G0 q; l5 J$ O8 m(*** Wolfram Notebook File ***)
9 @* u: @: a1 z5 |8 T(* http://www.wolfram.com/nb *)
0 Q5 }3 i) R2 c. ?# t% Z+ u
" J) {+ ]& ]' H9 W( @2 A(* CreatedBy='Mathematica 7.0' *)$ q e8 y- I1 X3 {
/ i' t; f* a: ?" R
(*CacheID: 234*)- b' M# |3 m/ B2 y4 v0 n
(* Internal cache information:) c, i w, U, `( c
NotebookFileLineBreakTest
! m% C W" M1 C! r# DNotebookFileLineBreakTest; B6 a3 Y4 W, @' V
NotebookDataPosition[ 145, 7]" D0 }' k+ p" x
NotebookDataLength[ 423629, 11534]
: C7 a/ p2 |, ]5 R: f8 |* K! y/ e, RNotebookOptionsPosition[ 412607, 11173]( _* [6 _% H6 q9 ^+ H% p
NotebookOutlinePosition[ 412953, 11188]
) `1 }( G0 V1 e! RCellTagsIndexPosition[ 412910, 11185]' r: ~! F4 E. J( f$ D" l
WindowFrame->Normal*)
6 w* {6 z+ h s% z2 \; v4 s( b1 R1 r0 r
(* Beginning of Notebook Content *)
( M( t9 g! J/ z; @Notebook[{
: Q* G, _9 a& Y8 p8 V5 w7 u* |: f
6 F- r: u- ^5 S+ i& XCell[CellGroupData[{% z+ u% }, Y2 H' {# y' E
Cell[BoxData[: N, o8 A6 T3 E1 X
RowBox[{"Data", "=",
# s6 Q+ b; D- L, c RowBox[{"{", ! [( j- D o) f+ g: G9 O1 }: }
RowBox[{
2 z5 y4 J- \% w9 Q* F+ T$ U RowBox[{"{",
5 Y! {; T8 y- [% y' d RowBox[{$ y0 I% O3 C% }
"0.304348", ",", "0.552818", ",", "0.330370", ",", "0.025823", ",",
4 \3 x" ~2 q% i X0 Z. i* r "0.538462", ",", "0.752072", ",", "0.408943", ",", "0.504532", ",", 8 V% P; i7 [/ m( |
"0.000000", ",", "0.277091", ",", "0.873239"}], "}"}], ",", " ",
( C$ }/ ]( f9 j8 C' L3 e% f8 e RowBox[{"{",
: Z- Q2 g7 j( _: [ RowBox[{
7 D5 K3 Q2 Q6 ] `7 f" X9 }* C "0.565217", ",", "0.346857", ",", "0.393585", ",", "0.118785", ",", 6 Y% a' X. I, ^1 x
"0.349650", ",", "0.370761", ",", "0.413008", ",", "0.502518", ",", 1 t- z; t: E, Z$ I
"0.000000", ",", "0.220259", ",", "0.464789"}], "}"}], ",", " ",
- _! Y( t4 s) V0 _' B RowBox[{"{",
% K2 ?9 y0 I0 `5 Q5 m' V4 @0 D RowBox[{+ b: B, w$ v$ j- I
"0.608696", ",", "0.339186", ",", "0.494300", ",", "0.099338", ",",
' ~/ a" U8 ^' _* N- ?% A+ r; V5 q "0.321678", ",", "0.375283", ",", "0.000000", ",", "0.505539", ",", % ~. l d6 |( |; G7 l/ m, f
"0.000000", ",", "0.899882", ",", "0.492958"}], "}"}], ",", " ", ; g8 r$ H; H2 `& x0 ]8 J2 u" U% `
RowBox[{"{", 4 W4 g5 @5 C% S# ^
RowBox[{
) c/ F7 s( O4 n& f6 N" } "0.521739", ",", "0.334022", ",", "0.355500", ",", "0.025156", ",", . M$ X7 Q$ G7 l4 o7 G
"0.489510", ",", "0.376790", ",", "0.411382", ",", "0.000000", ",",
3 |: h5 \) A6 r' x x6 |" f$ S9 [ "0.000000", ",", "0.265607", ",", "0.774648"}], "}"}], ",", " ", 6 z0 ~3 j6 ?3 T- Y
RowBox[{"{", . T0 B" l |. D. a1 S% K" T
RowBox[{
6 B) m$ a8 {, X6 u6 b' R "0.565217", ",", "0.346931", ",", "0.218229", ",", "0.043639", ",", : m( E4 X7 }2 s) Y2 q" {7 I: X
"0.503497", ",", "0.761115", ",", "0.415447", ",", "0.503525", ",", 3 B+ t, s2 m0 \( ?+ {* o
"0.000000", ",", "0.642226", ",", "0.380282"}], "}"}], ",", " ", ' G3 t* F' B \- s0 [$ b: y
RowBox[{"{",
$ F" O! c- G1 V: t RowBox[{
! t5 D, `9 Y% ^8 e9 w "0.478261", ",", "0.293154", ",", "0.259368", ",", "0.026688", ",", * V0 ~* U4 {1 n" x0 u
"0.587413", ",", "0.755840", ",", "0.409756", ",", "0.498489", ",",
2 u; k! @+ ?) q+ t* I "0.000000", ",", "0.306243", ",", "0.647887"}], "}"}], ",", " ",
. W/ F8 Z9 `( g; t. z4 V5 {3 c RowBox[{"{",
9 R8 s, I7 O% x8 F. O RowBox[{
a* B# p3 b, E/ r "0.347826", ",", "0.359693", ",", "0.614393", ",", "0.081521", ",", + x$ a, _( N" P$ I- y/ W9 V ]
"0.258741", ",", "0.367747", ",", "0.410569", ",", "0.499496", ",",
# J5 J" m0 v) M8 R$ ^0 L "0.000000", ",", "0.186985", ",", "0.563380"}], "}"}], ",", " ",
' P2 G7 M% T' W RowBox[{"{", 9 z! W5 [$ k4 k
RowBox[{& J3 [0 ]3 {* @2 B, M
"0.565217", ",", "0.705518", ",", "0.510223", ",", "0.066892", ",",
4 I' T o$ y* H2 C "0.244755", ",", "0.748304", ",", "0.000000", ",", "0.000000", ",",
1 n1 m/ c6 j6 d+ p "0.243032", ",", "0.175501", ",", "0.295775"}], "}"}], ",", " ",
6 b' o0 `' T/ B4 ]& n; p3 M# | I RowBox[{"{", ( v0 f6 e, C2 [1 L D, {) c8 H4 p
RowBox[{
5 y% C5 H7 g, P' o5 g "0.565217", ",", "0.710460", ",", "0.649730", ",", "0.119897", ",",
8 B4 h/ q$ H% K" z. M2 h$ U "0.468531", ",", "0.000000", ",", "0.636585", ",", "0.000000", ",",
3 U' H6 c3 k. a6 o+ r4 r "0.766748", ",", "0.147821", ",", "0.338028"}], "}"}], ",", " ", ! g5 A# Z- v+ m. X, m/ a6 E
RowBox[{"{",
+ s4 }, J4 e* B$ N: ? RowBox[{$ N0 C7 P0 n2 H+ B' y- P) |
"0.565217", ",", "0.697772", ",", "0.171587", ",", "0.028566", ",",
T* B$ L( r' e1 R. ]! A "0.363636", ",", "0.449887", ",", "0.408130", ",", "0.000000", ",",
6 Z2 i* C/ a! |( B: D6 f "0.000000", ",", "0.352768", ",", "0.211268"}], "}"}], ",", " ", % i4 T U+ Q1 R* N( b
RowBox[{"{",
) y u- W6 D3 c/ q4 F8 l RowBox[{1 l* j! C: l% @9 p# R$ t$ ]
"0.282609", ",", "0.660888", ",", "0.460064", ",", "0.110334", ",", - B) i! @, u& l9 Y/ V
"0.475524", ",", "0.000000", ",", "0.545528", ",", "0.000000", ",",
- J/ m6 D$ m0 V ^# H "0.551100", ",", "0.238810", ",", "0.690141"}], "}"}], ",", " ", " m" J2 g; }: u; ]
RowBox[{"{", ; a5 e. Y! s! Y6 Y
RowBox[{
" X4 I/ B$ d/ }# Q' G" z "0.130435", ",", "0.682724", ",", "0.258697", ",", "0.019299", ",",
1 Z% k6 b9 [" F0 v4 O "0.510490", ",", "0.420497", ",", "0.535772", ",", "0.000000", ",", % b0 o" `3 R5 T9 ]2 e5 w& q
"0.494866", ",", "0.095701", ",", "0.436620"}], "}"}], ",", " ",
6 |5 z; Q. s1 ^! z E* _ a' | RowBox[{"{",
! e1 o* O8 a: |: Q5 u RowBox[{% Y4 K" ~9 W" H# K( J3 }3 o
"0.347826", ",", "0.697772", ",", "0.108288", ",", "0.022413", ",",
1 R& P9 z2 v3 ] H4 m "0.356643", ",", "0.247928", ",", "0.908130", ",", "0.000000", ",", ) l) @+ {, S. ~. u1 n
"0.383374", ",", "0.162839", ",", "0.000000"}], "}"}], ",", " ", 9 @! J: m( ^+ I% b
RowBox[{"{", ' D! E. w* H8 l/ R! M ?& O
RowBox[{
$ ?* S3 G2 S9 H; Y+ d, u "0.695652", ",", "0.718280", ",", "0.339730", ",", "0.110285", ",", / w- g, a7 Y" s3 C. g3 r. T
"0.335664", ",", "0.000000", ",", "0.636585", ",", "0.780463", ",", " c2 @1 ?, Q$ `# k7 t6 u: K
"0.000000", ",", "0.335395", ",", "0.267606"}], "}"}], ",", " ",
: m4 o0 b: e i7 C RowBox[{"{",
7 Z9 r. K* _# Z7 w& G8 k- v RowBox[{
! }0 p! A0 o1 i4 y$ } "0.652174", ",", "0.569711", ",", "0.414297", ",", "0.175398", ",", . n% D# I" a! v% ?4 |. d4 ]/ B1 d
"0.167832", ",", "0.000000", ",", "0.544715", ",", "0.000000", ",",
4 o4 P* p2 S$ g2 ?- m/ U6 U0 n6 u1 U "0.000000", ",", "0.160483", ",", "0.211268"}], "}"}], ",", " ",
3 _- O4 T# v9 u4 y& q7 H3 d4 t# {1 A& X RowBox[{"{",
0 b0 `' h4 r( N. |4 A$ x; E RowBox[{
' A* J: z2 S* V# Y4 f# N) | "0.000000", ",", "0.395544", ",", "0.027011", ",", "0.048087", ",", 7 c$ z0 ^6 E: Z9 A6 b- w9 G
"0.496503", ",", "0.000000", ",", "0.452033", ",", "0.000000", ",",
% e0 E- i; n7 Y; n+ o) H6 U, E "0.278729", ",", "0.398115", ",", "0.408451"}], "}"}], ",", " ",
: {0 y5 W& b( D0 _% ? RowBox[{"{",
$ K. z g: |. p! n* K N4 M RowBox[{- m p6 b+ F& w( n6 Z9 k
"0.608696", ",", "0.425199", ",", "0.012979", ",", "0.000000", ",",
: q, S8 D+ ?& N- l5 O( a "0.482517", ",", "0.509420", ",", "0.406504", ",", "0.000000", ",", . h, D4 v5 b& A5 w
"0.000000", ",", "0.157833", ",", "0.478873"}], "}"}], ",", " ", , `/ Z& O9 _4 P9 H0 V. F. Y/ B) |
RowBox[{"{",
+ I2 x' c3 E# ` RowBox[{
" N; x6 \$ L; X; P "0.608696", ",", "0.577973", ",", "0.213587", ",", "0.030889", ",", 6 [* i. V$ ~9 z2 Q X/ A
"0.370629", ",", "0.000000", ",", "0.452846", ",", "0.000000", ",",
: B2 t; {: G! A# A; N7 S "0.000000", ",", "0.315665", ",", "0.380282"}], "}"}], ",", " ",
1 [9 x2 f# e- d! [7 ]3 Y0 G: ~ RowBox[{"{", / j. b4 G5 x. x; Y3 n8 \. p/ @0 x
RowBox[{; `) [' b/ q- ^9 \/ e$ L9 L
"0.565217", ",", "0.572293", ",", "0.655012", ",", "0.281852", ",",
) b# E* S# A j2 A. x "0.000000", ",", "0.000000", ",", "0.000000", ",", "0.000000", ",", $ r/ g# a2 c) P7 W3 |, {
"0.000000", ",", "0.492344", ",", "0.211268"}], "}"}], ",", " ",
) }$ w" I, [! i; ?! |7 Y6 f- r3 q3 z1 ` RowBox[{"{", - u; ~; }+ o' u* i( x
RowBox[{9 I- V, `" L( A9 B1 I
"0.130435", ",", "0.562039", ",", "0.331662", ",", "0.032643", ",", 9 B* s8 {2 H: T4 f" k: K" `
"0.314685", ",", "0.414469", ",", "0.275610", ",", "0.000000", ",", - F S d0 s% v. o
"0.000000", ",", "0.638398", ",", "0.436620"}], "}"}], ",", " ", # T7 c8 A, \- z4 ^ k/ x; J+ P
RowBox[{"{", 4 Q! g# a/ u! K2 s% E% V0 O: j
RowBox[{
- L" ~( E2 ^. w4 w/ A+ V "0.717391", ",", "0.736205", ",", "0.267704", ",", "0.036152", ",", : e3 W# }4 h( a. X9 I' c
"0.307692", ",", "0.000000", ",", "0.000000", ",", "0.000000", ",",
, ~/ G5 I8 p. t# g1 n$ h "0.000000", ",", "0.392521", ",", "0.478873"}], "}"}], ",", " ", # a8 H0 l# C4 ?8 _2 j
RowBox[{"{",
6 U8 t& T* K$ e! q4 P4 E' [ RowBox[{
' N4 D# {* b3 u5 B" F* E% m "0.608696", ",", "0.769475", ",", "0.289283", ",", "0.022882", ",", 6 p2 M/ Y2 D4 x1 {+ l/ U
"0.321678", ",", "0.000000", ",", "0.274797", ",", "0.333333", ",", # X% `/ d, @: A7 B( l& f& E
"0.000000", ",", "0.362191", ",", "0.295775"}], "}"}], ",", " ",
- ^4 T# W) Y# H3 [7 i RowBox[{"{",
; ]% {- X- Z' E6 p, K RowBox[{4 I# u. k6 i4 j
"0.913043", ",", "0.170478", ",", "0.000000", ",", "0.012973", ",",
3 l. s8 c" N. F v' D8 `" P "0.293706", ",", "0.000000", ",", "0.000000", ",", "0.672709", ",",
4 F4 l1 y/ [2 g+ g# n$ w$ r "0.000000", ",", "0.114252", ",", "0.028169"}], "}"}], ",", " ",
3 B4 C1 ^7 s: k% a RowBox[{"{", 4 _2 ]6 g! |' W3 w. ^
RowBox[{
. J2 K0 T' `+ O2 S& u "0.739130", ",", "0.193199", ",", "0.160584", ",", "0.037907", ",",
( I7 j1 h) ]* s3 ?. X, g' Y8 U( }$ E "0.461538", ",", "0.000000", ",", "0.684553", ",", "0.000000", ",", : n! K! M3 ?8 Z. _- d3 S# U3 Y
"0.000000", ",", "0.401355", ",", "0.436620"}], "}"}], ",", " ", E) c& j1 o1 w# N' P; R# F' L( ^
RowBox[{"{",
7 @. }' s1 I* R1 E RowBox[{
0 e2 N5 j1 v9 [8 j v "0.826087", ",", "0.203969", ",", "0.234619", ",", "0.272240", ",", ~5 Y8 E4 t. f7 _0 ~1 r3 S) Q
"0.265734", ",", "0.000000", ",", "0.000000", ",", "0.000000", ",", : Z( o# @& x, b* I# E
"0.000000", ",", "0.827444", ",", "0.394366"}], "}"}], ",", " ",
3 s9 I% @# G/ v# i5 o! G RowBox[{"{",
+ Z& z/ r( w5 p2 B9 H7 u7 L! T RowBox[{. Z1 X* j: k) ^' L
"1.000000", ",", "0.199248", ",", "0.295044", ",", "0.041613", ",",
; y: a: [- s9 b9 ? "0.209790", ",", "0.000000", ",", "0.000000", ",", "0.000000", ",",
8 u# q9 g. W. L2 L6 o- D "0.000000", ",", "0.676973", ",", "0.295775"}], "}"}], ",", " ", ) g! [; I9 J5 G% X+ D
RowBox[{"{", $ j9 ]/ S' v# @2 ^6 H" A. R2 b4 q
RowBox[{2 h- ^6 o: C4 V/ |4 f. B7 F6 S
"0.869565", ",", "0.180363", ",", "0.243056", ",", "0.098349", ",",
) S' W. n! h- r0 ~) ] "0.265734", ",", "0.503391", ",", "0.000000", ",", "0.000000", ",",
, p, E$ q @9 g0 u6 d. D# ~* H "0.000000", ",", "0.331272", ",", "0.830986"}], "}"}], ",", " ", 2 F& @0 |; M2 L" q8 a/ e( t) B7 b3 p
RowBox[{"{",
/ j( e+ u. X) y7 u# _ RowBox[{
1 w; _8 Y. c& G$ ~4 l( c& M "0.695652", ",", "0.551785", ",", "0.326201", ",", "0.253608", ",",
' T, P: \. v3 w0 G9 ? d+ l "0.195804", ",", "0.000000", ",", "0.000000", ",", "0.000000", ",",
, P& A+ C$ ?4 n# A3 G "0.000000", ",", "0.845701", ",", "0.169014"}], "}"}], ",", " ", 4 f$ N/ A. r8 [; Q9 i. g8 i1 ^
RowBox[{"{", + q: b( ]! D( T3 S* s
RowBox[{
- s; A7 g( K' Q' v" [4 x "0.652174", ",", "0.572293", ",", "0.111511", ",", "0.035584", ",",
' L8 P- I$ x& i/ C+ P "0.405594", ",", "0.249435", ",", "0.544715", ",", "0.000000", ",", : W. R5 q) P6 e0 u
"0.000000", ",", "0.287102", ",", "0.366197"}], "}"}], ",", " ", [3 t$ E* m3 S! C/ ~% z& l
RowBox[{"{",
+ w5 q* v4 l. i9 @" d$ W: T RowBox[{
+ R( H) `- O! I. f/ x "0.652174", ",", "0.562039", ",", "0.336155", ",", "0.014604", ",",
7 `/ I3 r' I- x( _' e/ ~5 l; C "0.174825", ",", "0.244160", ",", "0.000000", ",", "0.000000", ",", 3 q# U9 H$ }5 C1 b
"0.000000", ",", "0.000000", ",", "0.309859"}], "}"}], ",", " ", 2 h: b: C ^2 g5 D+ J- W: c( }
RowBox[{"{",
0 ]% u& G% B' f* B1 @+ ^& ` RowBox[{
; h6 M% n/ _, n! g" F "0.565217", ",", "0.577383", ",", "0.155870", ",", "0.030963", ",", ; n$ f( }7 k6 m, q9 I/ m
"0.258741", ",", "0.000000", ",", "0.000000", ",", "0.000000", ",", 8 s* p* U0 p/ \ B( w9 c
"0.000000", ",", "0.050059", ",", "0.352113"}], "}"}], ",", " ", ) |+ O% a3 w2 ^6 w: L% N. ]9 S4 r
RowBox[{"{",
' W6 j2 p& ~( i9 G& B5 V4 m RowBox[{
G6 S- B. \% G6 m, ^- m "0.565217", ",", "0.613234", ",", "0.232956", ",", "0.053870", ",",
( F& Q) M; t; F! h$ H8 O h "0.230769", ",", "0.000000", ",", "0.000000", ",", "0.000000", ",", % R4 ^* K# q3 k+ e5 d O1 ]
"0.000000", ",", "0.254122", ",", "0.309859"}], "}"}], ",", " ",
3 g6 N3 h q! I2 d8 g0 \ RowBox[{"{", 0 p% m6 Q$ x# C$ B7 }2 z6 p5 R7 B
RowBox[{
8 ?' }$ G# ~, P4 v" _ "0.565217", ",", "0.559531", ",", "0.493262", ",", "0.046209", ",", # S2 I9 x4 ^! e, G4 }$ @6 M. d; @
"0.293706", ",", "0.000000", ",", "0.000000", ",", "0.000000", ",", 1 }' |/ {5 j$ h
"0.000000", ",", "0.086867", ",", "0.774648"}], "}"}], ",", " ",
W7 z7 P+ M" r RowBox[{"{", ( I, ?4 `3 G Q; c9 [) |
RowBox[{
% i, L; D! ?* Y; F "0.608696", ",", "0.569711", ",", "0.111932", ",", "0.013542", ",", ( v8 j1 X. j ?+ v: Z) q% ~
"0.335664", ",", "0.000000", ",", "0.000000", ",", "0.000000", ",", - g$ u/ o! }" W+ P1 U9 w1 K7 k
"0.168704", ",", "0.659894", ",", "0.422535"}], "}"}], ",", " ",
: b3 ]! b! ]5 N1 v" {/ o" {* K RowBox[{"{",
3 c, D) G% D# \1 a7 i RowBox[{
- J9 l# L- k9 F" [, m$ ]( o "0.608696", ",", "0.564547", ",", "0.329844", ",", "0.202036", ",", * N# p7 r" k( p) s8 Y. K- O
"0.510490", ",", "0.000000", ",", "0.000000", ",", "0.000000", ",",
/ h0 |5 ^# ~2 c c) h5 D "0.000000", ",", "0.317138", ",", "0.887324"}], "}"}], ",", " ", 1 V. y1 ?6 Y9 x% v" S# e' p2 j, s
RowBox[{"{",
* ^& |6 ^7 C7 B( `! G2 r RowBox[{# P& d E ?, i6 \! f% G5 A
"0.521739", ",", "0.546695", ",", "0.165788", ",", "0.029431", ",",
5 s% N/ g I5 i" o. x "0.510490", ",", "0.000000", ",", "0.000000", ",", "0.000000", ",", . T/ K! q1 H2 X$ S+ a
"0.000000", ",", "0.605124", ",", "0.887324"}], "}"}], ",", " ", # ?2 I! m! q p4 d
RowBox[{"{", 6 U0 F# K0 q% r% j" N
RowBox[{
8 W# k. J( }: a' Z9 j1 @ "0.521739", ",", "0.564178", ",", "0.400518", ",", "0.045023", ",",
2 x9 n& k" R- r( y3 H" o "0.615385", ",", "0.368500", ",", "0.660163", ",", "0.301108", ",",
% Q1 Q) a! U" N "0.000000", ",", "0.321260", ",", "0.859155"}], "}"}], ",", " ",
l/ h8 i" g" m1 n+ ?6 c' X RowBox[{"{", & m( y/ Y% A1 J( ^
RowBox[{
7 A" M% z0 g$ w( V3 ` "0.413043", ",", "0.551859", ",", "0.544826", ",", "0.230503", ",",
" b8 ~ D4 V+ j N, o "0.244755", ",", "0.530520", ",", "0.819512", ",", "0.000000", ",", + ^9 Q: r' r! [
"0.000000", ",", "0.595406", ",", "0.239437"}], "}"}], ",", " ", 3 E* Z9 ~6 P6 |' d* H
RowBox[{"{",
h, m) Q- |; M2 O o/ Y RowBox[{
* k( U3 R: {1 U "0.652174", ",", "0.549277", ",", "0.257578", ",", "0.058688", ",", / e3 f1 g( ]+ v& \& y; U
"0.356643", ",", "0.000000", ",", "0.817886", ",", "0.000000", ",",
X" r/ E, L1 L4 M "0.000000", ",", "0.555359", ",", "0.295775"}], "}"}], ",", " ",
, m$ L# B7 L& z, |7 I RowBox[{"{",
/ Q) q- e' t1 e$ [( K' n RowBox[{3 u' ~: ?# c! f( Q
"0.695652", ",", "0.549277", ",", "0.572308", ",", "0.082411", ",", 7 n1 _# O% c) b! W
"0.461538", ",", "0.528259", ",", "0.819512", ",", "0.000000", ",",
- c; `) f& C: w) k2 ^2 w "0.000000", ",", "0.333333", ",", "0.746479"}], "}"}], ",", " ", % b" K5 R8 i6 d+ g. d$ r
RowBox[{"{", 3 O, \ N! h; [, P" ^
RowBox[{6 Q( a2 K! u- n: N+ {
"0.434783", ",", "0.551785", ",", "0.530346", ",", "0.151651", ",",
6 N$ ?# t+ C9 c$ l, r" r+ I "0.790210", ",", "0.529013", ",", "0.409756", ",", "0.000000", ",",
# w$ w9 F8 v1 S9 K2 X "1.000000", ",", "0.149588", ",", "1.000000"}], "}"}], ",", " ", $ R$ [, n% ?6 ]. j/ ^8 O
RowBox[{"{", 6 G0 K' k5 o( ]: v/ S1 Q: ^
RowBox[{. Y+ i% e/ G6 F+ p- k! Z* U4 F
"0.282609", ",", "0.531278", ",", "0.321428", ",", "0.228625", ",",
, P7 L9 l% M [- C. \+ g "0.594406", ",", "0.530520", ",", "0.410569", ",", "0.000000", ",",
3 [5 B! e" e% o. k* m- v "0.757457", ",", "0.493522", ",", "0.549296"}], "}"}], ",", " ",
$ Y( n0 y2 k+ G RowBox[{"{",
# M+ E9 P1 q6 ~9 P3 P! Z7 \ RowBox[{
( ` G; y5 r2 U M' R "0.347826", ",", "0.705444", ",", "0.109343", ",", "0.072008", ",", - ]! y0 j' V6 g" p; n, f$ R
"0.496503", ",", "0.000000", ",", "0.000000", ",", "0.000000", ",", & z9 K8 M2 ~0 n
"0.752567", ",", "0.224676", ",", "0.366197"}], "}"}], ",", " ", , D# ^; {% u& o/ F4 |9 k$ t; X
RowBox[{"{", 2 h9 O2 C2 D+ o5 @, x
RowBox[{
0 N$ ~6 ?; W3 ~* c6 c/ o: | "0.391304", ",", "0.705444", ",", "0.045908", ",", "0.073120", ",", $ E+ k0 C( x6 a! C
"0.622378", ",", "0.000000", ",", "0.000000", ",", "0.000000", ",",
" U/ J9 p9 J1 K. q9 H6 }1 C "0.496333", ",", "0.410188", ",", "0.549296"}], "}"}], ",", " ",
" n' T2 d9 E; l: [$ g$ ? RowBox[{"{",
( W8 i1 j: W! P7 d RowBox[{( T: P! y* z' F) M
"0.282609", ",", "0.661921", ",", "0.344992", ",", "0.085178", ",", ( D8 R5 W/ h& k
"0.293706", ",", "0.000000", ",", "0.000000", ",", "0.000000", ",", 6 O3 l/ ~' p! p/ i( [# _
"0.000000", ",", "0.668139", ",", "0.577465"}], "}"}], ",", " ",
# ^& `$ N5 {% G# ]/ u RowBox[{"{",
4 \# H/ m i3 P z# ~& ~& k RowBox[{
8 k# Z [+ q$ L' `/ w "0.478261", ",", "0.661921", ",", "0.644209", ",", "0.077296", ",", / g- m3 v8 r* | w
"0.412587", ",", "0.000000", ",", "0.413008", ",", "0.502518", ",",
) w1 o8 G2 j J8 y$ B7 S "0.000000", ",", "0.102179", ",", "0.690141"}], "}"}], ",", " ",
* |! M" ~& ~" K RowBox[{"{", 6 ~5 p9 d) w3 ]( \' {( G
RowBox[{
; |" L, o0 l7 K: V8 D "0.173913", ",", "0.984656", ",", "0.420753", ",", "0.137022", ",", % a9 n, j0 A2 V4 l J
"0.321678", ",", "0.000000", ",", "0.000000", ",", "0.000000", ",",
/ i4 o7 k8 c; W6 H8 m7 u "0.000000", ",", "0.380742", ",", "0.718310"}], "}"}], ",", " ", 4 R$ C7 N. E. e
RowBox[{"{", + ^5 [8 e/ [4 C$ R
RowBox[{( ?; r8 c! D8 g- D& {7 t c
"0.500000", ",", "0.984656", ",", "0.288432", ",", "0.047692", ",",
$ ]4 Z2 i$ L. A$ P: r x! ?% V "0.279720", ",", "0.000000", ",", "0.821138", ",", "0.510574", ",", ( q( p3 V: _1 P( W
"0.000000", ",", "0.319494", ",", "0.521127"}], "}"}], ",", " ",
% M! N: ?" I V( [ RowBox[{"{",
" O( N" z+ i$ A' F' E( C" Y4 s" X RowBox[{; s8 [& u% k: v. ]" j9 O
"0.391304", ",", "1.000000", ",", "0.452931", ",", "0.150909", ",", r) `, V& P5 n* x8 Q- s7 [4 o9 M
"0.342657", ",", "0.370761", ",", "0.000000", ",", "0.509567", ",",
; m9 ?: X4 V% V ` "0.000000", ",", "0.031508", ",", "0.929577"}], "}"}], ",", " ", 7 z ]+ u" V, F' J E! V x; E; |
RowBox[{"{",
p% V4 ^: k9 Z, `! ~+ y$ t. ]9 } RowBox[{
: J* w% H3 w; y/ X5 t "0.739130", ",", "0.774639", ",", "0.175120", ",", "0.036498", ",",
. X4 h1 U3 n. l" T* a "0.391608", ",", "0.739261", ",", "0.408943", ",", "0.553877", ",", 9 m8 t J$ h& Y# i1 E
"0.000000", ",", "0.292108", ",", "0.521127"}], "}"}], ",", " ",
% S0 e& `% p5 U, R J RowBox[{"{", ) G! Q+ f" L" m. M) x8 O
RowBox[{' Q; r# c' W, ?5 O
"0.586957", ",", "0.982074", ",", "0.158462", ",", "0.063902", ",",
* b# _5 T ~, \. b2 i "0.321678", ",", "0.000000", ",", "0.000000", ",", "0.000000", ",", : v& g. F, r) ~ }0 q
"0.000000", ",", "0.329505", ",", "0.338028"}], "}"}], ",", " ", ( e# p. j9 e0 T8 Z
RowBox[{"{",
1 _" c5 ~: r- Z0 S( M' V RowBox[{3 O2 R; c* r8 d0 U+ p a2 ?! [& K2 M3 _
"0.543478", ",", "0.982074", ",", "0.306872", ",", "0.041934", ",", ( L, a# ?' Q* D4 t# s
"0.426573", ",", "0.380558", ",", "0.414634", ",", "0.506546", ",",
0 }9 V+ Q6 I6 f; v8 [& \ "0.000000", ",", "0.337456", ",", "0.380282"}], "}"}], ",", " ",
" _1 N; b3 Y; C7 u1 Z RowBox[{"{",
, q4 i' J' Z0 Q7 u3 }0 s# Y RowBox[{5 Y0 N7 u9 E' T) R; R% c) }9 A
"0.739130", ",", "0.997418", ",", "0.170143", ",", "0.058268", ",", ! L7 D& P' M- k5 R _& ^; q& D
"0.538462", ",", "0.248681", ",", "0.000000", ",", "0.339376", ",",
6 V) {6 b" O- L. K7 N- r& C9 O "0.000000", ",", "0.766784", ",", "0.676056"}], "}"}], ",", " ", # A6 f4 a# P1 g( ~
RowBox[{"{",
% s' c6 @' n I; R" o RowBox[{
P7 c. P% s# E8 n9 B5 w "0.695652", ",", "0.700428", ",", "0.139361", ",", "0.182169", ",", 9 M* N% R1 ?- a. T7 m. u5 u' q
"0.412587", ",", "0.243406", ",", "0.000000", ",", "0.000000", ",", 6 o7 n$ M) @! |
"0.136919", ",", "0.676678", ",", "0.591549"}], "}"}], ",", " ",
: A- h w" o* M5 _# o6 s RowBox[{"{", T. N6 R- c$ j; a4 }' m1 ?
RowBox[{3 w7 p( w7 [- \) E) o
"0.782609", ",", "0.751623", ",", "0.177646", ",", "0.350845", ",",
& s" Y; E$ z) ?' f5 e3 J "0.412587", ",", "0.502638", ",", "0.000000", ",", "0.000000", ",",
5 K! H, Y3 _* l- }1 g6 j& r "0.178973", ",", "0.541519", ",", "0.464789"}], "}"}], ",", " ", 1 { A# \3 A. p: d' `% V
RowBox[{"{",
1 y I" ]" i$ r* a RowBox[{
8 r- I9 e+ W& L. _: g# O% L, y "0.652174", ",", "0.751623", ",", "0.355593", ",", "0.039883", ",", 8 r' O! h: D1 \0 {$ X5 D! V* X
"0.195804", ",", "0.000000", ",", "0.000000", ",", "0.000000", ",",
4 U0 |; n8 |- l5 ?" Q7 e; D6 { "0.000000", ",", "0.064488", ",", "0.295775"}], "}"}], ",", " ", ' p# s6 T% D0 t$ B3 c/ v
RowBox[{"{",
% I. @4 i0 u9 g. R A. A4 G { RowBox[{
2 o8 }5 N) r/ f1 o3 K "0.521739", ",", "0.679847", ",", "0.152375", ",", "0.030048", ",",
9 l; \* \5 A3 o0 p7 t2 G$ M( C. `6 T "0.363636", ",", "0.000000", ",", "0.271545", ",", "0.000000", ",",
0 ?( C7 f0 T; m3 l) V "0.000000", ",", "0.463192", ",", "0.380282"}], "}"}], ",", " ", , ]3 L) W# Y9 M( y- L5 G7 v" Z
RowBox[{"{", ) [1 W' P8 }/ C) y A) s( ]' L7 F9 p. l
RowBox[{
! |! |2 C& h& Q9 G( m "0.434783", ",", "0.728533", ",", "0.186830", ",", "0.129510", ",",
- k# Y( O/ `9 x9 g/ \9 p5 n "0.195804", ",", "0.000000", ",", "0.269919", ",", "0.000000", ",", 6 Q9 F8 y% M+ r6 l
"0.326650", ",", "0.388398", ",", "0.211268"}], "}"}], ",", " ",
& X# p1 b+ @& b0 z RowBox[{"{",
8 W2 R1 B6 t. ]7 x1 n; O) u3 } RowBox[{
3 b' Z5 ^, i! @5 |- o "0.608696", ",", "0.606152", ",", "0.158058", ",", "0.090170", ",", + L7 I9 T+ ~+ K5 T( T, R: W( F7 q
"1.000000", ",", "0.166541", ",", "0.278049", ",", "0.000000", ",",
6 ?9 [7 {2 D( G5 ?1 { "0.236675", ",", "0.262367", ",", "0.253521"}], "}"}], ",", " ",
* n# Q. E8 N, \, F. m. g RowBox[{"{",
5 B* o& ]0 H' w RowBox[{
! Z+ m! [$ \1 A/ @ "0.608696", ",", "0.633742", ",", "0.322697", ",", "0.068597", ",", ' I8 m% L, H% J! \9 F5 m, }2 A
"0.328671", ",", "0.000000", ",", "0.000000", ",", "0.000000", ",",
& ?1 N; o& o7 p( F. D "0.287042", ",", "0.290931", ",", "0.281690"}], "}"}], ",", " ",
6 L( t! ]+ ^2 J4 ?( P0 d) E. I RowBox[{"{", - y/ S& }5 O, x$ J: y- L! @
RowBox[{9 U/ E' Q& p% _# J! u& j
"0.478261", ",", "0.539023", ",", "0.412108", ",", "0.107566", ",",
0 M- O; W8 P. N! d7 P "0.237762", ",", "0.000000", ",", "0.000000", ",", "0.000000", ",", % N3 k. e2 Q2 E
"0.000000", ",", "0.380742", ",", "0.507042"}], "}"}], ",", " ", 6 \$ ~+ Q" F7 Q4 v ]7 n: L* `# D
RowBox[{"{",
) J4 W( l/ Q3 T RowBox[{% R6 p& N- ?) b3 b) L
"0.608696", ",", "0.551859", ",", "0.176821", ",", "0.076332", ",",
) u# c* `/ O: T: X ` "0.265734", ",", "0.000000", ",", "0.000000", ",", "0.000000", ",",
1 o4 S- J8 v! G# T "0.000000", ",", "0.429034", ",", "0.239437"}], "}"}], ",", " ", : h( P1 M7 _! Z. V$ Y7 |& z& ]+ g7 s
RowBox[{"{",
J. ^% ~- B% _) z% i& W RowBox[{' y/ K9 U/ A `2 U. c
"0.652174", ",", "0.551859", ",", "0.033549", ",", "0.018459", ",",
/ K; c3 W8 d/ G2 b: w+ W "0.573427", ",", "0.000000", ",", "0.553659", ",", "0.000000", ",",
% ~ G5 f4 I7 R$ U( o) e: @3 x "0.404890", ",", "0.193168", ",", "0.394366"}], "}"}], ",", " ",
. `7 X* r6 d5 p% i" v! r: E" l RowBox[{"{",
' D4 X3 ~- i/ r( O, y9 V* u RowBox[{
& K$ K5 M3 f8 | D8 c "0.695652", ",", "0.595382", ",", "0.277493", ",", "0.100326", ",", 6 K4 Q* g' a& O6 D
"0.286713", ",", "0.000000", ",", "0.000000", ",", "0.000000", ",",
. I% r& Z5 v, t9 s0 O% L "0.000000", ",", "0.448763", ",", "0.338028"}], "}"}], ",", " ", 6 h' `; Y4 U# ]# I' T5 A( J
RowBox[{"{", , |- {6 M2 Z3 c# j; Z4 Z: g1 |, Z; D" W
RowBox[{5 m6 T: L, e( r; O* C2 z5 Q
"0.565217", ",", "0.559531", ",", "0.422669", ",", "0.078111", ",", / L0 i5 G" y, ^: G4 P; j
"0.286713", ",", "0.000000", ",", "0.000000", ",", "0.000000", ",",
6 u# R0 ?- }% P7 ^; P& ? "0.000000", ",", "0.442285", ",", "0.394366"}], "}"}], ",", " ",
4 Q0 K2 x$ @* G; e- h6 U" e RowBox[{"{", - ?' z1 c, C8 Z0 R0 F' j
RowBox[{
# v4 q& Q6 K9 s "0.586957", ",", "0.398126", ",", "0.140619", ",", "0.069116", ",",
. u% k- e* }! w0 |. E "0.461538", ",", "0.000000", ",", "0.000000", ",", "0.000000", ",",
' }4 f9 q0 L3 n, P. Y6 G8 R "0.000000", ",", "0.575383", ",", "0.154930"}], "}"}], ",", " ",
. i# J/ d1 b' G5 r7 g2 i, ~ RowBox[{"{", # w& Z+ U" c4 T {3 P9 o
RowBox[{' F y! j$ @0 ^& F. l) F8 _
"0.695652", ",", "0.398126", ",", "0.019829", ",", "0.041366", ",", & Z3 Z4 d. _6 [& u
"0.552448", ",", "0.244160", ",", "0.000000", ",", "0.000000", ",", & h" u; {. R/ V* C3 C1 f
"0.000000", ",", "0.515607", ",", "0.591549"}], "}"}], ",", " ", ( q2 w D! s9 n$ g2 B+ E7 G8 [2 g
RowBox[{"{", $ e7 C% ] x- L! [9 r' m
RowBox[{
5 G2 Z! n7 D& A O9 ~* @! T "0.695652", ",", "0.700354", ",", "0.422467", ",", "0.068128", ",", 2 ?9 X+ D$ H3 M+ ~
"0.209790", ",", "0.000000", ",", "0.000000", ",", "0.500504", ",",
) s% Z& [) x/ b" Y5 v- k "0.000000", ",", "0.057715", ",", "0.408451"}], "}"}], ",", " ", * H( u/ G! P9 `
RowBox[{"{", ! C5 l# j+ L# l- f1 h- u
RowBox[{
+ l, b6 Y( w" g( x. f7 D! Z9 J "0.521739", ",", "0.193125", ",", "0.210582", ",", "0.110433", ",", $ c% @2 V3 W% T) W5 b
"0.447552", ",", "0.382065", ",", "0.413008", ",", "0.498489", ",", " ]4 e- Z8 C) _6 `' J( S
"0.000000", ",", "0.174617", ",", "0.295775"}], "}"}], ",", " ",
0 n# c5 P$ p, Y8 m6 j5 ^ RowBox[{"{",
8 u7 V2 a0 k; y# g RowBox[{
) ], i+ \$ z0 c2 m' {5 ? "0.347826", ",", "0.063588", ",", "0.830527", ",", "1.000000", ",", # ?& H! {0 {8 b( t
"0.111888", ",", "0.000000", ",", "0.410569", ",", "0.000000", ",", # V4 s+ D& j8 }" c
"0.000000", ",", "0.667550", ",", "0.661972"}], "}"}], ",", " ",
6 w5 h" v/ M! g( w. ^ RowBox[{"{",
/ P& B- t* C0 E) L. S; C- h RowBox[{0 f$ K {1 J/ \; Y
"0.521739", ",", "0.188109", ",", "1.000000", ",", "0.785485", ",",
1 w% a. i/ w6 T* f% H' u "0.342657", ",", "0.373775", ",", "0.406504", ",", "1.000000", ",", 2 ~4 {& Q2 C5 X( t8 c; m5 C( c' }; [
"0.000000", ",", "0.371025", ",", "0.774648"}], "}"}], ",", " ", 1 k( m0 a( f- @4 f+ a. ?
RowBox[{"{", / |5 o$ T* ~+ |# M
RowBox[{+ K2 y( o/ r! c( b1 K; c, v! ?
"0.695652", ",", "0.188404", ",", "0.088836", ",", "0.059504", ",",
; D4 x1 J" W0 z% M "0.706294", ",", "0.376790", ",", "0.000000", ",", "0.000000", ",",
j$ d! j. w3 F) c+ b "0.000000", ",", "0.570966", ",", "0.746479"}], "}"}], ",", " ",
" W6 {3 x' J! J( I, v2 V0 P RowBox[{"{", % ?' K9 n, D1 @, n, S: }
RowBox[{
) F8 i( |) W/ J" R& S6 g0 R "0.695652", ",", "0.057465", ",", "0.316316", ",", "0.151280", ",", + a% f4 M& d" V5 l: N7 A9 B% }+ @1 @* ~
"0.615385", ",", "0.371515", ",", "0.412195", ",", "0.500504", ",",
. j' k( d' f, k$ {6 X8 t "0.000000", ",", "0.468198", ",", "0.887324"}], "}"}], ",", " ",
2 L9 k- x9 [8 x( a; T) Q RowBox[{"{", 9 j# n# a1 ?6 m: Z8 |
RowBox[{
$ ^9 u$ s( {+ l8 B- M "0.608696", ",", "0.011360", ",", "0.295586", ",", "0.113892", ",", 6 e' C& y8 a' |4 q2 z: S
"0.580420", ",", "0.746044", ",", "0.405691", ",", "0.501511", ",",
- Y; z' u! E3 N: d3 P# { "0.000000", ",", "0.414016", ",", "0.845070"}], "}"}], ",", " ",
" t% v. p1 f$ I: O6 C; r! b. a3 Y RowBox[{"{", - U# Y( d# p; V
RowBox[{
: B* ^3 f8 z$ k "0.608696", ",", "0.364783", ",", "0.130582", ",", "0.020214", ",",
0 M# Q; l2 h9 P. x+ r* |$ \ "0.356643", ",", "0.379804", ",", "0.000000", ",", "0.000000", ",",
) s; Y) ` f% n9 a "0.000000", ",", "0.186690", ",", "0.704225"}], "}"}], ",", " ",
$ [0 ~4 J; Z$ n# P- E RowBox[{"{",
. x: I! i% W8 T# ~- O5 Z RowBox[{+ T1 D4 \* u( S# z6 e
"0.608696", ",", "0.193199", ",", "0.112690", ",", "0.036152", ",",
1 b& |$ z1 x) p, L* l. J. E "0.636364", ",", "0.382065", ",", "0.409756", ",", "0.495468", ",", + N( S/ H7 ~$ `# ~& n
"0.000000", ",", "0.442874", ",", "0.760563"}], "}"}], ",", " ", 9 f3 Q: w2 q! ~, e' L6 X
RowBox[{"{", ) H6 Z' H- f- j
RowBox[{% E2 Y2 n c% b' F p
"0.739130", ",", "0.328932", ",", "0.246779", ",", "0.126520", ",", : A$ [3 T# G1 W8 a# L. Y6 c( @
"0.454545", ",", "0.000000", ",", "0.495122", ",", "0.000000", ",", o) [! ]4 Q/ M4 u
"0.414181", ",", "0.686690", ",", "0.436620"}], "}"}], ",", " ", 8 c# [' B- T1 E' F! e5 O; Q$ |3 K
RowBox[{"{", ) e; k5 u0 c5 l: C0 M2 @
RowBox[{
1 ~! n& _6 D; J$ Z) j "0.739130", ",", "0.341767", ",", "0.362090", ",", "0.183528", ",",
7 s$ F3 u$ e& `& r7 W "0.573427", ",", "0.413715", ",", "0.454472", ",", "0.661631", ",",
4 u" p2 f3 T G1 v3 w+ K. s "0.000000", ",", "0.244111", ",", "0.633803"}], "}"}], ",", " ", $ A" D! Y) q2 [3 `
RowBox[{"{", 1 K* S- Q2 _' o/ o2 J8 @, |
RowBox[{/ C) s( M5 e0 ~5 R- X+ i
"0.695652", ",", "0.187076", ",", "0.279724", ",", "0.006252", ",",
2 j. e9 _# [& t0 r. P6 G/ J "0.405594", ",", "0.418237", ",", "0.544715", ",", "0.000000", ",",
# G2 J" A! C/ F8 x) M3 ~ "0.000000", ",", "1.000000", ",", "0.422535"}], "}"}], ",", " ", + V8 k8 k& ]3 e% L+ m. B
RowBox[{"{",
3 D$ _1 |& j& k RowBox[{
& G- z3 ^: N! F' G. S "1.000000", ",", "0.333948", ",", "0.064750", ",", "0.065855", ",",
. B; c. t8 d2 l+ s5 f. ?. Z* k "0.342657", ",", "0.000000", ",", "0.408130", ",", "0.000000", ",",
1 c+ [7 w, R3 W& x0 l* D+ a/ q v "0.000000", ",", "0.957892", ",", "0.295775"}], "}"}], ",", " ",
7 t# |+ c" I8 y) l' G/ W; G RowBox[{"{", 2 n6 b9 ?+ V" b; U5 ~% s
RowBox[{3 t5 i- ]/ E& [/ Q8 `% H q
"0.739130", ",", "0.305400", ",", "0.374567", ",", "0.132870", ",",
& X0 ?' d2 k1 M9 }& `. d "0.258741", ",", "0.834966", ",", "0.000000", ",", "0.000000", ",", * `: O2 F5 m: [1 u
"0.272861", ",", "0.266784", ",", "0.309859"}], "}"}], ",", " ", 5 ~4 v( q4 I( a+ v0 v
RowBox[{"{", * `- O7 a6 e0 {% F/ t
RowBox[{
- H0 O2 `, j9 o& ? "0.826087", ",", "0.151962", ",", "0.360280", ",", "0.221632", ",",
% D+ r: l3 C. W% n "0.447552", ",", "0.584778", ",", "0.457724", ",", "0.000000", ",",
/ U! A F8 `0 y% _) j "0.000000", ",", "0.826855", ",", "0.408451"}], "}"}], ",", " ",
5 Q4 x3 c1 W b# C RowBox[{"{",
8 v3 H# l+ G( p' \# A RowBox[{. E( f# P$ ?/ K; U% a9 a
"0.565217", ",", "0.047212", ",", "0.233154", ",", "0.121528", ",", 9 a3 h' f9 U0 x" J6 B
"0.314685", ",", "0.417483", ",", "0.546341", ",", "0.000000", ",",
- }( j, U- {" S0 H t, n "0.669438", ",", "0.341873", ",", "0.197183"}], "}"}], ",", " ",
8 K. e, T. [* C6 r: y* a2 } RowBox[{"{",
3 R( c" \ b9 J- ^9 S: S' F RowBox[{
( ~, k# d" F% m "0.826087", ",", "0.034376", ",", "0.690349", ",", "0.512380", ",", & q: V+ X3 s7 V0 U( \0 S
"0.685315", ",", "1.000000", ",", "1.000000", ",", "0.000000", ",", ( }; \& x9 f5 c9 k' |) ]
"0.556479", ",", "0.412544", ",", "0.732394"}], "}"}], ",", " ",
: I7 Z) X0 e7 z4 Z9 ^- | RowBox[{"{",
: x' K/ U7 n( J' C3 }9 Y% [ RowBox[{( J" C" j/ t( P$ s$ q
"0.652174", ",", "0.000000", ",", "0.374417", ",", "0.188075", ",",
0 s' r s6 \9 [" I "0.706294", ",", "0.498116", ",", "0.729268", ",", "0.000000", ",",
1 g d; T% |$ L1 s y# E8 N "0.454279", ",", "0.322144", ",", "0.802817"}], "}"}], ",", " ",
; I& ?& W0 v0 s& S RowBox[{"{",
7 b, ]5 O2 N0 F9 Y- d/ W: a( I RowBox[{
( c/ x" v: ?3 k: s$ K "0.782609", ",", "0.180363", ",", "0.237142", ",", "0.054809", ",", % G: |& _- D C$ a$ P. F) L: ~
"0.629371", ",", "0.373775", ",", "0.247967", ",", "0.000000", ",",
. I' C% @( D n9 ?, H "0.163814", ",", "0.370436", ",", "0.746479"}], "}"}], ",", " ",
0 Z0 @/ C% V9 Q RowBox[{"{", ' ]. Q* i; Q: D) S7 |+ Y( @
RowBox[{
4 a1 C( _6 T$ ?) x3 ~: _* [) p "0.608696", ",", "0.169150", ",", "0.368148", ",", "0.393768", ",", , F7 X; ~1 j1 e# Z2 \
"0.440559", ",", "0.995479", ",", "0.545528", ",", "0.000000", ",",
: M0 z1 W# ^0 p "0.565770", ",", "0.333039", ",", "0.380282"}], "}"}], ",", " ",
6 _5 b! |. `" Q- b RowBox[{"{",
/ [9 e, ` a* l/ ] RowBox[{
( _8 ^5 v% v) u$ Q3 Z' E3 X' y/ r "0.695652", ",", "0.390454", ",", "0.186683", ",", "0.039439", ",",
5 q4 N# q% J. A1 |7 G& Y! M "0.482517", ",", "0.497362", ",", "0.415447", ",", "0.508560", ",",
+ [8 |( w7 v+ D( b8 ?6 R+ ?* Y "0.000000", ",", "0.390754", ",", "0.563380"}], "}"}], ",", " ",
' O3 Y' y. _/ H' | RowBox[{"{", ) b7 b: R9 W, d; ^
RowBox[{4 Q+ q4 L# h& X- C
"0.739130", ",", "0.428888", ",", "0.082728", ",", "0.070154", ",", 6 f) y1 `3 [+ E) P r* O
"0.279720", ",", "0.000000", ",", "0.000000", ",", "0.000000", ",", 9 n9 }+ i! m. \3 B+ c' _
"0.000000", ",", "0.694935", ",", "0.323944"}], "}"}]}],
- X8 n3 J1 T( W G2 ]" H/ H3 c "}"}]}]], "Input",
( I! F6 z' t2 } CellChangeTimes->{3.5779587825701036`*^9}],0 |' M( U) j _6 p, C8 t
. L% U3 V: q4 | U6 {Cell[BoxData[* t& w6 b4 f# Z3 L7 v
RowBox[{"{",
. S- O/ ?$ M* x( b RowBox[{, ~2 O: T0 v% {3 \4 l
RowBox[{"{", # C F3 K; H# K; Z2 y
RowBox[{0 s5 E5 n# I' n7 k) k
"0.304348`", ",", "0.552818`", ",", "0.33037`", ",", "0.025823`", ",", - R" F$ p. ^) b3 ~
"0.538462`", ",", "0.752072`", ",", "0.408943`", ",", "0.504532`", ",", : `9 y7 K7 q- W! M, b( H8 J
"0.`", ",", "0.277091`", ",", "0.873239`"}], "}"}], ",", , ^; ?. n' F4 w4 K5 z, {
RowBox[{"{", r9 r/ U# C5 y3 B
RowBox[{+ |, U+ m9 V$ |: h4 ~
"0.565217`", ",", "0.346857`", ",", "0.393585`", ",", "0.118785`", ",", - j5 c7 p# P* n$ B
"0.34965`", ",", "0.370761`", ",", "0.413008`", ",", "0.502518`", ",", ( T9 I$ J8 j3 R& y
"0.`", ",", "0.220259`", ",", "0.464789`"}], "}"}], ",", . U7 |' R) K6 }) M% o4 M
RowBox[{"{",
0 F l% z3 G+ d( ~ n RowBox[{6 b* u3 d4 \% {1 t0 t I7 W3 d
"0.608696`", ",", "0.339186`", ",", "0.4943`", ",", "0.099338`", ",",
" c, ]- n6 {. f! t, T "0.321678`", ",", "0.375283`", ",", "0.`", ",", "0.505539`", ",", "0.`", 6 v; x9 L' O! h4 t* o2 \+ m$ J+ i
",", "0.899882`", ",", "0.492958`"}], "}"}], ",", / W* y& G2 I6 ~. r0 D7 x- X, ?
RowBox[{"{",
# Z9 R8 z7 k% B. S5 c RowBox[{( R3 x% d# W8 f+ C
"0.521739`", ",", "0.334022`", ",", "0.3555`", ",", "0.025156`", ",",
3 e2 r; \' I7 g8 Z, A a, n0 K: z5 Q "0.48951`", ",", "0.37679`", ",", "0.411382`", ",", "0.`", ",", "0.`",
/ X$ s0 U& M- A5 L/ B3 u ",", "0.265607`", ",", "0.774648`"}], "}"}], ",", - Q4 \$ E, a) _; G7 v0 } O
RowBox[{"{", 2 X3 G W3 N" U$ f& ? C
RowBox[{' h' v1 b8 ?8 @& C& Y( B4 G
"0.565217`", ",", "0.346931`", ",", "0.218229`", ",", "0.043639`", ",",
" T3 n. w& K6 [& p d) {% O "0.503497`", ",", "0.761115`", ",", "0.415447`", ",", "0.503525`", ",", * u! d! L/ Q, H S7 b
"0.`", ",", "0.642226`", ",", "0.380282`"}], "}"}], ",", 5 ~7 C4 L6 H/ e
RowBox[{"{", # [8 h/ D r( u( k L6 R
RowBox[{
- A) X) `& z- }9 r6 i$ b0 t "0.478261`", ",", "0.293154`", ",", "0.259368`", ",", "0.026688`", ",",
7 D9 d- S, b& {; e "0.587413`", ",", "0.75584`", ",", "0.409756`", ",", "0.498489`", ",",
) P5 C/ A) O5 ^3 q/ s "0.`", ",", "0.306243`", ",", "0.647887`"}], "}"}], ",", 3 F$ x8 e1 K& J
RowBox[{"{", , R' E& a& i& M( [9 b) e X, s
RowBox[{
5 x& l0 |$ s% A2 g) C "0.347826`", ",", "0.359693`", ",", "0.614393`", ",", "0.081521`", ",", 6 a4 y' m8 `0 D, S3 D0 H1 K
"0.258741`", ",", "0.367747`", ",", "0.410569`", ",", "0.499496`", ",",
% [" A9 l, Y7 V "0.`", ",", "0.186985`", ",", "0.56338`"}], "}"}], ",", 8 i# t) K/ c& P$ k
RowBox[{"{", 8 ~: e9 _9 ~5 I$ D: J! m
RowBox[{
, W0 h- Y& t9 G, l# s3 A+ }& ?* E "0.565217`", ",", "0.705518`", ",", "0.510223`", ",", "0.066892`", ",", : {% H8 @: ]+ h3 s/ M& c
"0.244755`", ",", "0.748304`", ",", "0.`", ",", "0.`", ",", "0.243032`", + a0 D% c$ X& O) b" ^: l4 _/ R
",", "0.175501`", ",", "0.295775`"}], "}"}], ",",
9 e! G3 c+ ~$ a! n RowBox[{"{", ) F4 x, N7 V- ?5 |! j* t' [
RowBox[{
X* K3 e9 T- o% u6 ?& { "0.565217`", ",", "0.71046`", ",", "0.64973`", ",", "0.119897`", ",",
; i- D9 Y* T% n "0.468531`", ",", "0.`", ",", "0.636585`", ",", "0.`", ",", "0.766748`", 4 W6 [2 s, A5 z0 q* K0 h& |
",", "0.147821`", ",", "0.338028`"}], "}"}], ",",
. X& G- N+ P Q RowBox[{"{", % f4 ?0 G+ x' d$ _" o% m, Q
RowBox[{9 _+ q+ w3 ?1 g9 [* P
"0.565217`", ",", "0.697772`", ",", "0.171587`", ",", "0.028566`", ",", 8 P) S8 S9 s. X4 {/ \6 z& q; }
"0.363636`", ",", "0.449887`", ",", "0.40813`", ",", "0.`", ",", "0.`",
! ?! b, Y; Y2 Y( T9 G2 n1 A4 d ",", "0.352768`", ",", "0.211268`"}], "}"}], ",",
2 b" X. E0 x5 g RowBox[{"{",
( M& f' W8 r' m; q; F0 H) a5 h RowBox[{( p ?- D6 d, C( `
"0.282609`", ",", "0.660888`", ",", "0.460064`", ",", "0.110334`", ",", 3 P+ I) ] A/ a1 z$ t7 X
"0.475524`", ",", "0.`", ",", "0.545528`", ",", "0.`", ",", "0.5511`", 5 Y- q0 u- R- d( _9 G5 ~
",", "0.23881`", ",", "0.690141`"}], "}"}], ",", 1 e+ T: U8 k3 e* d. k7 }* j9 S
RowBox[{"{", 5 t( b% @) H1 R6 w" M
RowBox[{
8 D5 I/ L6 ?0 X. z" i* z "0.130435`", ",", "0.682724`", ",", "0.258697`", ",", "0.019299`", ",",
" M6 b, X0 J6 q. n2 j5 W9 h' X( e: X "0.51049`", ",", "0.420497`", ",", "0.535772`", ",", "0.`", ",", - P: @" N1 U# o6 x( e
"0.494866`", ",", "0.095701`", ",", "0.43662`"}], "}"}], ",",
, i( R( `9 c3 `: ]5 L RowBox[{"{", ' w5 \: N+ ?6 ~/ |, e: _: C
RowBox[{
: _2 r' p/ Q* m$ x8 C "0.347826`", ",", "0.697772`", ",", "0.108288`", ",", "0.022413`", ",", " Y5 ^6 u& R( N2 e5 T) i
"0.356643`", ",", "0.247928`", ",", "0.90813`", ",", "0.`", ",",
3 z6 C) M. ^7 O% Z. H6 x "0.383374`", ",", "0.162839`", ",", "0.`"}], "}"}], ",",
$ P+ S% `. D% @& k RowBox[{"{",
5 M% V' ^% ]6 d; B" M: ~ RowBox[{- Z0 l( ?- W- p6 Z8 u
"0.695652`", ",", "0.71828`", ",", "0.33973`", ",", "0.110285`", ",", C9 ^. c; {( l
"0.335664`", ",", "0.`", ",", "0.636585`", ",", "0.780463`", ",", "0.`", ; k4 b: B% O7 p; K# c
",", "0.335395`", ",", "0.267606`"}], "}"}], ",", : P! X4 z! F5 B, ~ _6 Y
RowBox[{"{", ) Y# C# I/ [/ u% t3 y* g( f" u" o
RowBox[{
" x2 V3 j* m0 e# u1 ?2 n "0.652174`", ",", "0.569711`", ",", "0.414297`", ",", "0.175398`", ",", 7 e ~$ G6 E& Z) r% c k
"0.167832`", ",", "0.`", ",", "0.544715`", ",", "0.`", ",", "0.`", ",",
- n- b `" K! |! h% k* ^ "0.160483`", ",", "0.211268`"}], "}"}], ",", 1 |7 {* i6 q& `0 k/ L9 n) ? ~1 B
RowBox[{"{",
" O$ s& G% {3 c" t: M RowBox[{
; x# G7 S* b& M/ a5 g9 s+ x7 \# B( k "0.`", ",", "0.395544`", ",", "0.027011`", ",", "0.048087`", ",", ( P6 Z7 r2 P6 ?
"0.496503`", ",", "0.`", ",", "0.452033`", ",", "0.`", ",", "0.278729`", , g0 |1 \: Z! S6 [* l
",", "0.398115`", ",", "0.408451`"}], "}"}], ",", $ \* R& l, F6 {. R* V. ?6 Q( t" _
RowBox[{"{",
, p9 W% ?$ @5 G v6 t" P RowBox[{
9 w# A! b F6 l "0.608696`", ",", "0.425199`", ",", "0.012979`", ",", "0.`", ",",
( i8 V S3 A: J) m "0.482517`", ",", "0.50942`", ",", "0.406504`", ",", "0.`", ",", "0.`",
3 I0 {. J9 R1 w/ t# J( J ",", "0.157833`", ",", "0.478873`"}], "}"}], ",", 4 @+ E( e8 A. F2 x E6 Y' q6 _4 _9 S
RowBox[{"{", , D& N- t9 R0 t( Z7 D
RowBox[{# }4 b6 a/ [0 f4 Q/ w% [' p
"0.608696`", ",", "0.577973`", ",", "0.213587`", ",", "0.030889`", ",",
1 x+ ]( B8 f' B) v "0.370629`", ",", "0.`", ",", "0.452846`", ",", "0.`", ",", "0.`", ",",
/ }$ O, V9 t8 { "0.315665`", ",", "0.380282`"}], "}"}], ",", ! w, x1 A/ X7 J& q3 z
RowBox[{"{",
- {0 m& L1 s% w8 Z5 }9 e4 ]- x RowBox[{7 n2 e, g) e" ^5 J% E( I; t' L
"0.565217`", ",", "0.572293`", ",", "0.655012`", ",", "0.281852`", ",",
]5 h3 S: X8 g3 m4 m2 W "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.492344`",
7 H) X N0 X, p1 y4 ?& y ",", "0.211268`"}], "}"}], ",",
8 Z4 u$ U% A* \! V$ @$ r! L1 o RowBox[{"{",
4 ^$ ]2 b5 N$ I E. y RowBox[{
_$ z0 x+ e# ?! @) E "0.130435`", ",", "0.562039`", ",", "0.331662`", ",", "0.032643`", ",",
, o* \ [# D& [" x& y9 k3 v' m "0.314685`", ",", "0.414469`", ",", "0.27561`", ",", "0.`", ",", "0.`",
( K: U& g+ ]9 ] ",", "0.638398`", ",", "0.43662`"}], "}"}], ",",
7 q: Q! J v5 f; C6 t. M7 G RowBox[{"{",
0 n5 M1 o+ X, F$ M# F6 G RowBox[{
3 i( S. u- {) e2 _. A) Y "0.717391`", ",", "0.736205`", ",", "0.267704`", ",", "0.036152`", ",",
3 v+ n" [7 H: x9 g6 D- V& u* ]; X! x% d "0.307692`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
; t7 n4 ^3 c3 r& `3 s& U "0.392521`", ",", "0.478873`"}], "}"}], ",", ' z1 O9 \6 K. j' x4 A7 S$ y
RowBox[{"{",
! @' U' r, `0 @ RowBox[{0 G( ?8 u W1 Y4 f7 j$ f0 w2 ~
"0.608696`", ",", "0.769475`", ",", "0.289283`", ",", "0.022882`", ",", 4 r2 C0 `8 Z2 m& }& c: j) O# e
"0.321678`", ",", "0.`", ",", "0.274797`", ",", "0.333333`", ",", "0.`", / z" B( ? }" g6 k; G1 `9 p: G
",", "0.362191`", ",", "0.295775`"}], "}"}], ",",
4 Q, P1 K9 B5 A, r$ v8 z* z! N RowBox[{"{", 0 F0 z* \& N; z# K/ P4 E% Q: x8 Z
RowBox[{
% U' H8 @+ K' o, C. j& Y7 E "0.913043`", ",", "0.170478`", ",", "0.`", ",", "0.012973`", ",", 0 T9 F' M/ R& h! N
"0.293706`", ",", "0.`", ",", "0.`", ",", "0.672709`", ",", "0.`", ",", w6 P3 [( a$ N/ h- }9 Y
"0.114252`", ",", "0.028169`"}], "}"}], ",",
' A* @9 T$ [& h: X, K RowBox[{"{",
. T( T/ u1 _/ b9 j, ~ RowBox[{
0 j# _0 T- S ]8 ` "0.73913`", ",", "0.193199`", ",", "0.160584`", ",", "0.037907`", ",",
2 h. T# Q3 `( V6 ?; G2 F1 c "0.461538`", ",", "0.`", ",", "0.684553`", ",", "0.`", ",", "0.`", ",",
7 n5 ^6 S9 _( A1 T! u "0.401355`", ",", "0.43662`"}], "}"}], ",",
& D5 ~# Q8 e" D1 m/ z RowBox[{"{",
( l( x3 G7 b$ p* T5 \ RowBox[{
9 y9 i; Q4 i* \# W9 J* m8 S "0.826087`", ",", "0.203969`", ",", "0.234619`", ",", "0.27224`", ",", 3 g+ o( ]2 b6 G) O
"0.265734`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
& N$ ]' k7 b" k6 F7 ]: P "0.827444`", ",", "0.394366`"}], "}"}], ",", ; n3 E+ [9 t6 p S6 a. b* f
RowBox[{"{",
_3 |6 {9 V4 a RowBox[{# j9 f; g) P4 o; L: Y
"1.`", ",", "0.199248`", ",", "0.295044`", ",", "0.041613`", ",", ' t" `) ~$ l# Q
"0.20979`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 4 _7 |/ k+ w2 A6 B+ u, l
"0.676973`", ",", "0.295775`"}], "}"}], ",", 2 }9 b Z' G1 I2 M9 E1 ~
RowBox[{"{", * V4 b: u4 m6 v. \0 @1 D: l
RowBox[{; l) E- e' O. H) x! V) u
"0.869565`", ",", "0.180363`", ",", "0.243056`", ",", "0.098349`", ",", 9 U4 M# m! v$ k
"0.265734`", ",", "0.503391`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
& N- b/ h6 g& Z "0.331272`", ",", "0.830986`"}], "}"}], ",",
- s0 B& m& T# f( s e. x# d RowBox[{"{", $ {4 Y5 ?7 n( @9 s2 Y
RowBox[{" R7 ~2 o3 E4 q! u
"0.695652`", ",", "0.551785`", ",", "0.326201`", ",", "0.253608`", ",",
) [$ V2 e3 h$ m: Q8 w- S "0.195804`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
. H9 V. d3 m V$ d "0.845701`", ",", "0.169014`"}], "}"}], ",", " O, \' q& J) A# X) R) M
RowBox[{"{", / b, }9 v3 q/ i
RowBox[{
/ h6 t- j1 T1 R5 l2 s- o) n "0.652174`", ",", "0.572293`", ",", "0.111511`", ",", "0.035584`", ",",
2 V( |9 k" x3 z1 s) }# i0 j) ~ "0.405594`", ",", "0.249435`", ",", "0.544715`", ",", "0.`", ",", "0.`", - e5 t% c, w1 v( h) w, ], m; O
",", "0.287102`", ",", "0.366197`"}], "}"}], ",", ; E% C: J- i( i& e/ A! n
RowBox[{"{",
" v8 }# ^9 o5 L3 q$ ^ RowBox[{
/ c$ \( |. }, b0 { "0.652174`", ",", "0.562039`", ",", "0.336155`", ",", "0.014604`", ",",
' y$ u' ]6 i$ U$ a1 D* e "0.174825`", ",", "0.24416`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 2 D4 g7 `% P8 _. ?% x: Y! g! h# f
"0.`", ",", "0.309859`"}], "}"}], ",", ; v m+ T# i6 S
RowBox[{"{",
5 `3 B; P. A0 P- O RowBox[{) V( c$ D f) @1 O' o
"0.565217`", ",", "0.577383`", ",", "0.15587`", ",", "0.030963`", ",",
5 Y# v/ [6 X# F# y7 n& g; F2 U "0.258741`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", ; d9 X% t2 F- t7 ]
"0.050059`", ",", "0.352113`"}], "}"}], ",", $ J# I1 s: t& x! q! Z: u, n, Q
RowBox[{"{",
: z4 g0 k) D6 k9 s* X, a" @' u j RowBox[{. {( }& u& _9 a- z
"0.565217`", ",", "0.613234`", ",", "0.232956`", ",", "0.05387`", ",",
! D: a# e- m$ x) J; c; b "0.230769`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", " V+ V7 I8 e* w7 o
"0.254122`", ",", "0.309859`"}], "}"}], ",", 5 x( [- ^' |) W# ]
RowBox[{"{", ; O4 V/ j8 y0 y/ w4 R/ Y F. v, b
RowBox[{1 C0 T; w; M& M) J/ X7 [
"0.565217`", ",", "0.559531`", ",", "0.493262`", ",", "0.046209`", ",", / y h" H6 B& c* K1 V- |
"0.293706`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 1 _0 B! o/ d: s
"0.086867`", ",", "0.774648`"}], "}"}], ",", 4 u* a* _: }& Z% F! Z: ]# k
RowBox[{"{", ) b9 y7 q, }3 {% _6 k! z
RowBox[{2 A6 K) C- w" x* a4 \
"0.608696`", ",", "0.569711`", ",", "0.111932`", ",", "0.013542`", ",", . R) {8 H1 _0 Y, h6 Z( _
"0.335664`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.168704`", ",",
4 j: M* v- `5 p "0.659894`", ",", "0.422535`"}], "}"}], ",",
3 t. c% ~; ^* V. t" `/ W RowBox[{"{",
; h+ A$ ?/ ~. r# y RowBox[{% _: _; _7 k5 D+ ?4 t
"0.608696`", ",", "0.564547`", ",", "0.329844`", ",", "0.202036`", ",",
# }7 v5 h/ }4 K "0.51049`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
; j1 J! {* B4 b8 U( F4 D. M "0.317138`", ",", "0.887324`"}], "}"}], ",",
1 X0 k5 }1 s9 X# y9 {# a& Y* ?+ |. { RowBox[{"{", 8 N. I8 ^ Q3 z: j/ k5 F# {! L2 n
RowBox[{
! V+ O- K/ E H1 Q* m1 y& K "0.521739`", ",", "0.546695`", ",", "0.165788`", ",", "0.029431`", ",",
& r6 ]: y. e! L "0.51049`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 7 Z0 E1 |* m2 t: h$ E
"0.605124`", ",", "0.887324`"}], "}"}], ",",
! j f# H% A3 O RowBox[{"{",
( s$ |2 I' O- R5 H$ ~: R RowBox[{# Y. j% V0 @+ ?1 c9 Y5 g
"0.521739`", ",", "0.564178`", ",", "0.400518`", ",", "0.045023`", ",",
8 ~, j; e/ {3 F6 C4 y "0.615385`", ",", "0.3685`", ",", "0.660163`", ",", "0.301108`", ",", # r* z! v# E5 a1 N/ ]
"0.`", ",", "0.32126`", ",", "0.859155`"}], "}"}], ",",
9 d, \& g% t0 L2 K RowBox[{"{",
; @' J& Y0 A% a+ U9 E' }1 E& _ RowBox[{5 a. w* z$ B+ x* K$ M O
"0.413043`", ",", "0.551859`", ",", "0.544826`", ",", "0.230503`", ",",
, d* X8 t/ H# E0 F7 e$ F "0.244755`", ",", "0.53052`", ",", "0.819512`", ",", "0.`", ",", "0.`", % H6 B7 a' X! c) x# e
",", "0.595406`", ",", "0.239437`"}], "}"}], ",",
0 z7 T# i3 y# L+ O7 D- b RowBox[{"{", 1 ^3 Q6 w- C5 K) t: v
RowBox[{
& R( Z; I2 D. m' T) T3 I6 \% m "0.652174`", ",", "0.549277`", ",", "0.257578`", ",", "0.058688`", ",",
+ R! l8 H: G' ?- A- C- b# F "0.356643`", ",", "0.`", ",", "0.817886`", ",", "0.`", ",", "0.`", ",", 6 s, f: z: r( v/ K$ o6 ~5 n+ h) G
"0.555359`", ",", "0.295775`"}], "}"}], ",", - U4 }$ J. |1 l- [$ ^' H
RowBox[{"{", & o4 H- L" y/ E' d! v
RowBox[{7 w& e) H% E. U3 S: c$ I4 A
"0.695652`", ",", "0.549277`", ",", "0.572308`", ",", "0.082411`", ",",
) V/ w+ Y% R* T- } "0.461538`", ",", "0.528259`", ",", "0.819512`", ",", "0.`", ",", "0.`", ' D* i; C7 k4 A" A3 A, d# L; b
",", "0.333333`", ",", "0.746479`"}], "}"}], ",",
- {: |; F: `: L RowBox[{"{", % z1 P9 F' y9 ?" w
RowBox[{" \" q6 _6 t& D n- t2 ^; ]1 z
"0.434783`", ",", "0.551785`", ",", "0.530346`", ",", "0.151651`", ",",
1 K* ?$ O# A+ P% z "0.79021`", ",", "0.529013`", ",", "0.409756`", ",", "0.`", ",", "1.`", % {) ]% y2 T/ F' z8 h5 m
",", "0.149588`", ",", "1.`"}], "}"}], ",", 9 }; `! ?8 j: _
RowBox[{"{", 5 J2 f- M c, Z1 t9 l
RowBox[{: q# s. b, k+ ^) x n+ J p
"0.282609`", ",", "0.531278`", ",", "0.321428`", ",", "0.228625`", ",", 8 n2 C+ y. P* w' ^
"0.594406`", ",", "0.53052`", ",", "0.410569`", ",", "0.`", ",",
6 m6 F. V# b2 e @ "0.757457`", ",", "0.493522`", ",", "0.549296`"}], "}"}], ",",
* Q/ J* P# d0 V, H8 [" ~" z8 M& O RowBox[{"{",
) m9 \3 x& X8 D. | m U/ u RowBox[{
0 A$ m' e8 p. a9 l9 [& C4 i "0.347826`", ",", "0.705444`", ",", "0.109343`", ",", "0.072008`", ",", q3 w2 c& Y9 x
"0.496503`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.752567`", ",", : I- X: ^1 J- u- e+ K" s
"0.224676`", ",", "0.366197`"}], "}"}], ",",
/ m$ e3 k' t4 \: K; ?$ [ RowBox[{"{", D( r) W/ {$ `. W5 T" ?# T& }! z
RowBox[{0 K N8 {2 S# G* | B) F* l* ^
"0.391304`", ",", "0.705444`", ",", "0.045908`", ",", "0.07312`", ",", 7 y& `, t% K" @9 a* I
"0.622378`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.496333`", ",",
; n! I+ y( w8 o) [7 e( y s "0.410188`", ",", "0.549296`"}], "}"}], ",",
1 R" ~7 e6 `- C RowBox[{"{",
) |0 S; U5 l1 ?, n4 x8 d# E RowBox[{9 K# ]& q' g" n; {. G- S
"0.282609`", ",", "0.661921`", ",", "0.344992`", ",", "0.085178`", ",", 7 s- K( ^- [5 L* r; A8 l% a
"0.293706`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
5 o. l4 s5 s) w, C; A "0.668139`", ",", "0.577465`"}], "}"}], ",",
' D/ o/ Q9 m2 R' ^; ? l1 Q RowBox[{"{", : Y. e$ O8 ~$ G9 | {
RowBox[{' J3 s' B6 `& J* V& t0 _9 |0 X
"0.478261`", ",", "0.661921`", ",", "0.644209`", ",", "0.077296`", ",", % r* n) |4 B7 ~0 w7 G& r, [
"0.412587`", ",", "0.`", ",", "0.413008`", ",", "0.502518`", ",", "0.`",
% P! @9 c% G' P" m, G; i0 [ ",", "0.102179`", ",", "0.690141`"}], "}"}], ",",
6 S- u0 I, }5 D1 B( b& a% i: B RowBox[{"{", " G# S$ v) [! Y+ J4 n
RowBox[{
0 }8 e9 N9 Z6 L7 w: h3 b "0.173913`", ",", "0.984656`", ",", "0.420753`", ",", "0.137022`", ",", # T! S( u* s) D$ w; a+ T
"0.321678`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
# p# |9 p2 B. _ "0.380742`", ",", "0.71831`"}], "}"}], ",",
+ V P; L" ]9 L8 T% ^5 _7 g RowBox[{"{", 6 N0 R2 W" u& {
RowBox[{1 a- h7 Q1 Y4 p, X" q. @
"0.5`", ",", "0.984656`", ",", "0.288432`", ",", "0.047692`", ",", , o* _. S8 \3 Y# |
"0.27972`", ",", "0.`", ",", "0.821138`", ",", "0.510574`", ",", "0.`", ' o9 h" ^6 x4 R2 p E# o
",", "0.319494`", ",", "0.521127`"}], "}"}], ",", 5 s4 ` G8 o! t' A! @/ Z0 {( z" k
RowBox[{"{", & z/ n6 i# o! l- `& m4 Q; C
RowBox[{
4 E6 T( Y/ T7 g4 \9 h7 Z "0.391304`", ",", "1.`", ",", "0.452931`", ",", "0.150909`", ",",
6 A: j) G6 T8 H. F: l "0.342657`", ",", "0.370761`", ",", "0.`", ",", "0.509567`", ",", "0.`",
; t- B4 X, a2 f9 P: \8 w s ",", "0.031508`", ",", "0.929577`"}], "}"}], ",", : a9 X9 Y+ v1 f3 R( m' y' T( w
RowBox[{"{", 4 i% J2 ?+ z8 j" I% ]& k) v% B& }
RowBox[{
. N% r/ s" z! B) }7 c; n "0.73913`", ",", "0.774639`", ",", "0.17512`", ",", "0.036498`", ",", % d5 w' P3 j$ d! ?- C1 @
"0.391608`", ",", "0.739261`", ",", "0.408943`", ",", "0.553877`", ",",
+ S7 y( `# o( O9 N: J9 i# B "0.`", ",", "0.292108`", ",", "0.521127`"}], "}"}], ",", % _4 o2 a D3 g
RowBox[{"{", 4 z- o4 E7 j3 ~& ^' F. `4 B* b
RowBox[{. h) p/ U/ ?* b$ r
"0.586957`", ",", "0.982074`", ",", "0.158462`", ",", "0.063902`", ",", & Q) @) |) Z1 x* u6 T
"0.321678`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
5 s; z; x+ R4 x "0.329505`", ",", "0.338028`"}], "}"}], ",",
; E/ |( y, _( H4 f2 @) N) B RowBox[{"{", 8 U: H) \9 V# S) w o& z# }; w
RowBox[{% v" H. y( X) {! u# I* L# L) H
"0.543478`", ",", "0.982074`", ",", "0.306872`", ",", "0.041934`", ",", 5 O& X0 W0 U' r k* E7 J
"0.426573`", ",", "0.380558`", ",", "0.414634`", ",", "0.506546`", ",", ! I# C1 @0 s% M: {) W3 ~! O- a* ~
"0.`", ",", "0.337456`", ",", "0.380282`"}], "}"}], ",", % m+ t9 o2 w+ ?. \* R! b
RowBox[{"{",
) V6 ]; u; J7 e# h( y+ L RowBox[{
* e( [+ b( g6 R) R" G "0.73913`", ",", "0.997418`", ",", "0.170143`", ",", "0.058268`", ",", , f. L. q/ f M
"0.538462`", ",", "0.248681`", ",", "0.`", ",", "0.339376`", ",", "0.`",
$ x' A" @2 A" i* X/ B3 n ",", "0.766784`", ",", "0.676056`"}], "}"}], ",", 0 A- ^3 e" Y1 C/ C# y
RowBox[{"{", 5 T3 L6 k. p& l# R3 F7 ]
RowBox[{. t# h/ G: T4 F5 ^; ^. n, r6 ?
"0.695652`", ",", "0.700428`", ",", "0.139361`", ",", "0.182169`", ",", a+ Z* v9 a9 J! Z- L& g
"0.412587`", ",", "0.243406`", ",", "0.`", ",", "0.`", ",", "0.136919`",
5 e4 _' t: I* L( X0 ^9 `/ \ ",", "0.676678`", ",", "0.591549`"}], "}"}], ",",
. D' N4 d; R8 x- W. u* W; r; K RowBox[{"{", $ f: i' ^: L4 X7 Z" ?
RowBox[{
* V( d- ]4 X( u: i% q+ t5 [7 ?) L/ { "0.782609`", ",", "0.751623`", ",", "0.177646`", ",", "0.350845`", ",",
% i- L4 c5 h$ s "0.412587`", ",", "0.502638`", ",", "0.`", ",", "0.`", ",", "0.178973`", 8 m6 ^9 B& z& Y% H- T
",", "0.541519`", ",", "0.464789`"}], "}"}], ",", W5 [9 }7 t% y' z+ k9 L" k
RowBox[{"{", ' u+ H) x! s; V6 ~) @" m4 F( Q
RowBox[{
& F \. Y2 ^4 u! U( W0 v "0.652174`", ",", "0.751623`", ",", "0.355593`", ",", "0.039883`", ",", ! U: e0 c3 b8 ~6 P* T7 u F- O
"0.195804`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
1 Y3 i5 d& M( W* o, h; m "0.064488`", ",", "0.295775`"}], "}"}], ",",
5 d* n6 u2 }. V! @( Z) h RowBox[{"{",
; F: w: }- ]% E3 T& t( S- } RowBox[{' Z1 D$ ~1 c1 b
"0.521739`", ",", "0.679847`", ",", "0.152375`", ",", "0.030048`", ",",
7 J' Z& |( }8 _! }* y* X; T1 T# t "0.363636`", ",", "0.`", ",", "0.271545`", ",", "0.`", ",", "0.`", ",",
4 c. M2 M: L0 K, ] "0.463192`", ",", "0.380282`"}], "}"}], ",", " ^# ]! }, j5 E3 V E j* M
RowBox[{"{",
0 z% K& r$ R. @3 q) j5 E RowBox[{
8 Z' y" c7 G1 E6 Y+ F+ n& I! U- {$ Y# Q "0.434783`", ",", "0.728533`", ",", "0.18683`", ",", "0.12951`", ",",
9 a+ ~% [- Q% ]6 [4 } "0.195804`", ",", "0.`", ",", "0.269919`", ",", "0.`", ",", "0.32665`",
6 T1 T. B5 X% r8 H! k" L ",", "0.388398`", ",", "0.211268`"}], "}"}], ",", 1 u* }# ? a- F4 r, j+ p) T7 X/ s
RowBox[{"{", 3 l3 d7 w! _' H j5 N j
RowBox[{
/ b2 \7 j6 I8 o( d "0.608696`", ",", "0.606152`", ",", "0.158058`", ",", "0.09017`", ",",
; x+ a8 g: l1 X9 [: R "1.`", ",", "0.166541`", ",", "0.278049`", ",", "0.`", ",", "0.236675`", 1 z4 P Z* k0 Q% A' ?; Z: g7 y
",", "0.262367`", ",", "0.253521`"}], "}"}], ",", g5 y4 D; F; L2 a. }
RowBox[{"{",
1 s+ |$ o9 _ D; x/ z1 L RowBox[{
9 y. Q3 e* k4 L& J( ^ "0.608696`", ",", "0.633742`", ",", "0.322697`", ",", "0.068597`", ",",
, Q) a0 n7 x; D* w7 [( r% e* F "0.328671`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.287042`", ",", ' v+ e+ K4 z" K4 A: x7 T
"0.290931`", ",", "0.28169`"}], "}"}], ",",
- Y$ z3 v. o. r% v2 b; C RowBox[{"{", ; Y4 a6 n& z$ S4 V
RowBox[{; S- X" a1 ?& K, E. K: C
"0.478261`", ",", "0.539023`", ",", "0.412108`", ",", "0.107566`", ",",
7 a4 s0 Q, v, m "0.237762`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 1 ^# v" a+ j/ O N- K. l0 m4 P1 i
"0.380742`", ",", "0.507042`"}], "}"}], ",", 7 I$ }/ [0 U9 ?) ^/ u7 n$ p
RowBox[{"{",
2 D% u/ Q+ d& A; d- {, c* K2 H7 k' Z RowBox[{
+ G0 `) l9 i& k "0.608696`", ",", "0.551859`", ",", "0.176821`", ",", "0.076332`", ",", c! `" T: j) E: Z8 d% C
"0.265734`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", , \! o. @0 W$ V9 E
"0.429034`", ",", "0.239437`"}], "}"}], ",", ; ?% w3 Y, D3 X% ?% n' O. z+ C
RowBox[{"{",
) n# x3 {- f/ y) C S# [" A# h RowBox[{
' G1 J. B4 X% j8 A "0.652174`", ",", "0.551859`", ",", "0.033549`", ",", "0.018459`", ",",
) h. e* ?- M- q/ t4 `$ w "0.573427`", ",", "0.`", ",", "0.553659`", ",", "0.`", ",", "0.40489`", ( K; x+ _' x0 F
",", "0.193168`", ",", "0.394366`"}], "}"}], ",",
Z* I& S- j3 ^) q RowBox[{"{", ; _9 Z4 W" @) c Y! ^) j6 A
RowBox[{/ a" x! F2 F ^1 h! h+ _0 S4 a5 b
"0.695652`", ",", "0.595382`", ",", "0.277493`", ",", "0.100326`", ",", # z9 D) }7 f7 _+ e8 N4 r
"0.286713`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
% r! C# O# r5 |" d8 r5 U. m; Z "0.448763`", ",", "0.338028`"}], "}"}], ",", 5 c& x5 w8 U8 D# k1 S
RowBox[{"{", . K/ I# x0 N8 m5 K) N; X
RowBox[{
; O8 |2 I% b0 U2 ]0 M "0.565217`", ",", "0.559531`", ",", "0.422669`", ",", "0.078111`", ",",
2 O; H+ D9 V- D" D! \$ W- T "0.286713`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
0 a9 K/ E" m+ h3 G1 A6 }/ ` "0.442285`", ",", "0.394366`"}], "}"}], ",", 7 l# R. P! Z% K% o' n' v- g( q1 y
RowBox[{"{", # M# N9 u. \/ i7 x# q) q. t7 r
RowBox[{
" H: E/ K% u% n4 H9 S- A "0.586957`", ",", "0.398126`", ",", "0.140619`", ",", "0.069116`", ",", 4 O$ N6 G) p6 u E
"0.461538`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", / K, L& {- N# F( k2 Q& T
"0.575383`", ",", "0.15493`"}], "}"}], ",",
& J3 \, ~. q7 h! B# ]5 V RowBox[{"{", 4 y" A2 W. P G# }' }
RowBox[{3 Q* a1 K$ a) Z1 V( f2 w
"0.695652`", ",", "0.398126`", ",", "0.019829`", ",", "0.041366`", ",", - X" O4 L0 ~1 a3 ^7 }# H! X6 x
"0.552448`", ",", "0.24416`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 5 Q' m+ x, x; n: t# Y: @; e
"0.515607`", ",", "0.591549`"}], "}"}], ",", + U; _# N3 t2 n* w: b R
RowBox[{"{",
) E: x. E( A- j7 D RowBox[{
+ d7 O4 A, }- X9 R "0.695652`", ",", "0.700354`", ",", "0.422467`", ",", "0.068128`", ",", 3 g: k6 f- Y5 h4 y( z
"0.20979`", ",", "0.`", ",", "0.`", ",", "0.500504`", ",", "0.`", ",",
8 @. u( Z2 I/ r$ U) K7 X+ m4 B "0.057715`", ",", "0.408451`"}], "}"}], ",",
4 d" n. G% R6 t" f; m RowBox[{"{",
- M7 s, L* R- k. {: U& `' q RowBox[{! F7 w/ Z% l" V
"0.521739`", ",", "0.193125`", ",", "0.210582`", ",", "0.110433`", ",",
4 x, ^$ T, z+ G/ P "0.447552`", ",", "0.382065`", ",", "0.413008`", ",", "0.498489`", ",", 9 L( X0 Y I: T$ g0 _1 I( l
"0.`", ",", "0.174617`", ",", "0.295775`"}], "}"}], ",",
* I& {' S) @1 W" E# [# e RowBox[{"{", & D7 U) e. G4 q! i& v: _( V
RowBox[{/ P E1 T! a. e2 k
"0.347826`", ",", "0.063588`", ",", "0.830527`", ",", "1.`", ",", : B. e# Y8 |% N [
"0.111888`", ",", "0.`", ",", "0.410569`", ",", "0.`", ",", "0.`", ",", & f. M2 z. h4 N! B4 d- l2 `7 I
"0.66755`", ",", "0.661972`"}], "}"}], ",", 0 o0 Y" c1 }$ x- r& C+ t7 S& j
RowBox[{"{",
4 \: _+ B( {! [4 z4 h RowBox[{
3 t. K+ f* J7 a ?- k; A9 d$ K( I: m* J "0.521739`", ",", "0.188109`", ",", "1.`", ",", "0.785485`", ",", " x+ X, R9 E8 z
"0.342657`", ",", "0.373775`", ",", "0.406504`", ",", "1.`", ",", "0.`", " k+ N7 K1 \% F- U) t
",", "0.371025`", ",", "0.774648`"}], "}"}], ",", # d) O9 Z. U7 g
RowBox[{"{", & h D3 d& V. w
RowBox[{1 S! N6 Q) p+ E! A& H3 g7 A
"0.695652`", ",", "0.188404`", ",", "0.088836`", ",", "0.059504`", ",",
9 H+ ?- z) E' { R& d+ ]4 V, d1 D "0.706294`", ",", "0.37679`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
! z% v. p* y2 K1 e+ x "0.570966`", ",", "0.746479`"}], "}"}], ",",
" m( p7 d+ U7 w% g6 G( V RowBox[{"{",
! w. P4 v' c* }/ [/ M4 V; r8 `1 w$ P RowBox[{$ t1 A7 J2 ?8 y$ @
"0.695652`", ",", "0.057465`", ",", "0.316316`", ",", "0.15128`", ",",
0 G% b: L$ C9 D$ @ "0.615385`", ",", "0.371515`", ",", "0.412195`", ",", "0.500504`", ",", ' K! J9 |) }1 g- P2 N5 v4 [! x
"0.`", ",", "0.468198`", ",", "0.887324`"}], "}"}], ",",
8 X9 S0 q6 ~1 v4 B( [6 v) X* s* x9 D7 s RowBox[{"{",
e( a: c; C$ ?: K RowBox[{9 `0 M9 A: O; B0 u ]: b
"0.608696`", ",", "0.01136`", ",", "0.295586`", ",", "0.113892`", ",", ) ^, o. c/ M" R+ R) P
"0.58042`", ",", "0.746044`", ",", "0.405691`", ",", "0.501511`", ",", & f3 g4 A5 I8 W) j
"0.`", ",", "0.414016`", ",", "0.84507`"}], "}"}], ",", / ^" [0 J' `( m" O8 I! y$ x
RowBox[{"{", & U3 {" m, X* ~ z; s" ?2 k9 p) J
RowBox[{- A! I I0 q" V8 D1 X0 ^
"0.608696`", ",", "0.364783`", ",", "0.130582`", ",", "0.020214`", ",", 0 m X7 m) d6 L
"0.356643`", ",", "0.379804`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
/ m7 x8 @, z3 s0 C- [, J0 C/ i "0.18669`", ",", "0.704225`"}], "}"}], ",", 9 L- `8 K& A4 T6 Y
RowBox[{"{",
! T& h; N# A; b) T RowBox[{7 Z5 i! n* P# ?! E ^0 t4 J
"0.608696`", ",", "0.193199`", ",", "0.11269`", ",", "0.036152`", ",", ) R7 \7 l( I) {- C/ x
"0.636364`", ",", "0.382065`", ",", "0.409756`", ",", "0.495468`", ",", * d$ D: i5 M$ d4 L- ~$ g2 D/ I* ?
"0.`", ",", "0.442874`", ",", "0.760563`"}], "}"}], ",", ! ^+ z4 A4 c: B* D ~- r# H9 K
RowBox[{"{", - z$ Z+ s& c* ^
RowBox[{
8 n+ W/ _" W* k- N. Q, I' K "0.73913`", ",", "0.328932`", ",", "0.246779`", ",", "0.12652`", ",", ! d) E; \& [, p
"0.454545`", ",", "0.`", ",", "0.495122`", ",", "0.`", ",", "0.414181`", 7 m" T! [8 `: i( L: ~1 a
",", "0.68669`", ",", "0.43662`"}], "}"}], ",",
% ], P* t9 Y, ^& J& ` RowBox[{"{",
) b; s# Y# A2 C* N+ l' `& z( ^' z RowBox[{2 g, f8 Z7 X; k2 H
"0.73913`", ",", "0.341767`", ",", "0.36209`", ",", "0.183528`", ",",
' J4 D: p! C' }. O/ x' A "0.573427`", ",", "0.413715`", ",", "0.454472`", ",", "0.661631`", ",", / M H( O) H1 w4 c2 a% c
"0.`", ",", "0.244111`", ",", "0.633803`"}], "}"}], ",",
& g! j5 T, {) Z RowBox[{"{", , f4 A: \8 }% }6 z, w! u( Y
RowBox[{
& F' n* |9 K+ ~( ]3 F "0.695652`", ",", "0.187076`", ",", "0.279724`", ",", "0.006252`", ",", # f# ~2 J9 k% o5 r" z
"0.405594`", ",", "0.418237`", ",", "0.544715`", ",", "0.`", ",", "0.`",
: H# y- _5 n+ L0 O3 u2 Q8 c ",", "1.`", ",", "0.422535`"}], "}"}], ",", " `( Z8 N1 P7 m9 \1 e5 o. o
RowBox[{"{",
; l/ X8 d' D- t( H5 J- j RowBox[{
9 m0 }4 \) o7 w' K. J "1.`", ",", "0.333948`", ",", "0.06475`", ",", "0.065855`", ",", * g! l$ F, |0 L( F6 C* K
"0.342657`", ",", "0.`", ",", "0.40813`", ",", "0.`", ",", "0.`", ",", 8 ?9 I" m6 r2 F( }8 p
"0.957892`", ",", "0.295775`"}], "}"}], ",",
+ F" W" f' p6 @2 ` a0 T RowBox[{"{",
6 P7 L* n8 L5 c3 y" R1 T RowBox[{' w$ D. u( B, s$ o: n) i
"0.73913`", ",", "0.3054`", ",", "0.374567`", ",", "0.13287`", ",", 2 g* Q- V" L2 x9 G
"0.258741`", ",", "0.834966`", ",", "0.`", ",", "0.`", ",", "0.272861`", : I8 X F" N5 k
",", "0.266784`", ",", "0.309859`"}], "}"}], ",", * Y l/ X% q, X# h2 {
RowBox[{"{", 6 o1 d- a7 e( G
RowBox[{
! }1 T6 ^! d5 \% u n! S# V- v "0.826087`", ",", "0.151962`", ",", "0.36028`", ",", "0.221632`", ",",
1 I. w+ q. \) u4 U% f8 B$ s1 X5 d% e "0.447552`", ",", "0.584778`", ",", "0.457724`", ",", "0.`", ",", "0.`", ; j5 ?# j: _. o6 N( s, d ?2 y
",", "0.826855`", ",", "0.408451`"}], "}"}], ",", 5 M, M1 V6 I* o& q+ K# V: `$ e$ e
RowBox[{"{",
1 Q4 Q" ^5 v+ N1 r& x0 d e' e RowBox[{& G) B2 \) K# |
"0.565217`", ",", "0.047212`", ",", "0.233154`", ",", "0.121528`", ",", ; j- @+ ?, w9 x- Q. }7 c+ M
"0.314685`", ",", "0.417483`", ",", "0.546341`", ",", "0.`", ",", 2 X" k, D7 a8 N ^
"0.669438`", ",", "0.341873`", ",", "0.197183`"}], "}"}], ",", ; x5 \" b0 y) W h1 G
RowBox[{"{", 3 g6 m% c/ F! J. K2 P
RowBox[{( u( ]" K. @1 d) o3 d& `( Z5 b9 }
"0.826087`", ",", "0.034376`", ",", "0.690349`", ",", "0.51238`", ",", / D+ @# d) _' z
"0.685315`", ",", "1.`", ",", "1.`", ",", "0.`", ",", "0.556479`", ",",
1 f, g& ]* }* Y/ g% v, c2 O" G1 w "0.412544`", ",", "0.732394`"}], "}"}], ",", ( M( n5 ?) W( v9 u$ I
RowBox[{"{",
4 q. {. y, I3 T1 u RowBox[{1 x8 ~1 e( G: E4 g
"0.652174`", ",", "0.`", ",", "0.374417`", ",", "0.188075`", ",", 0 s* O% ]4 S2 {% e Q9 U+ ?
"0.706294`", ",", "0.498116`", ",", "0.729268`", ",", "0.`", ",",
# w$ b. A) J V m( A "0.454279`", ",", "0.322144`", ",", "0.802817`"}], "}"}], ",",
. W. ^8 H }$ x6 p" M8 d RowBox[{"{", 9 [1 d8 t- B" w% A
RowBox[{
) R; B6 ]' `" e3 d8 P3 M9 ] "0.782609`", ",", "0.180363`", ",", "0.237142`", ",", "0.054809`", ",", 3 Y1 t! M/ D: x$ r: o1 C6 U
"0.629371`", ",", "0.373775`", ",", "0.247967`", ",", "0.`", ",",
& ~$ z7 q4 c. }! x. Z "0.163814`", ",", "0.370436`", ",", "0.746479`"}], "}"}], ",", , ] ?. z: @5 _ w1 M) D
RowBox[{"{", ( K1 K, K; k Y. ^3 P4 O
RowBox[{
+ E @% O( M1 F "0.608696`", ",", "0.16915`", ",", "0.368148`", ",", "0.393768`", ",", ! c9 X: n4 n3 t
"0.440559`", ",", "0.995479`", ",", "0.545528`", ",", "0.`", ",",
. h& S4 S6 v" C" r$ H "0.56577`", ",", "0.333039`", ",", "0.380282`"}], "}"}], ",", 8 ~1 n. X, u* L# }3 f9 g; x7 x- F U
RowBox[{"{",
: x% m, e, a/ p& ^; Z RowBox[{
4 M7 B0 O& N3 Y4 L* K "0.695652`", ",", "0.390454`", ",", "0.186683`", ",", "0.039439`", ",", - q6 x% b- Q4 ~& C
"0.482517`", ",", "0.497362`", ",", "0.415447`", ",", "0.50856`", ",", 5 [; }, a7 {8 N" c2 U
"0.`", ",", "0.390754`", ",", "0.56338`"}], "}"}], ",", 7 ~1 s" E9 x) K: X% P
RowBox[{"{", 3 I+ i: z" C) S& g7 {
RowBox[{2 r0 ]9 I- V5 R7 U% B- H
"0.73913`", ",", "0.428888`", ",", "0.082728`", ",", "0.070154`", ",",
' ]0 G! Z9 L- t+ U "0.27972`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
0 {, _5 }0 j8 q# T1 ^! _2 ]" { "0.694935`", ",", "0.323944`"}], "}"}]}], "}"}]], "Output",5 G7 P3 V- J1 K
CellChangeTimes->{3.57795879182092*^9, 3.5779604974578943`*^9, $ Y, C5 p& ]; K/ V
3.57801214396875*^9}]& a6 o9 V( c$ j& G. Y T
}, Open ]],) @: s# J, s+ z8 |$ [
2 {, F& d3 n' OCell[CellGroupData[{, {0 o% j/ h6 ^3 p3 w
" T* S. Q- b. q* o! l
Cell[BoxData[! `2 Y+ m" v1 a1 h! Y( O! t& i
RowBox[{"Array", "[", ; g2 ~6 O- b4 X+ j$ @$ K
RowBox[{"CM", ",", " y$ ^6 u0 v2 R% c9 l" u
RowBox[{"{", ) k0 A- N! N5 U. k# v
RowBox[{"80", ",", "9"}], "}"}]}], "]"}]], "Input",5 I' J) Q' Z4 [* Y0 W- W
CellChangeTimes->{{3.577844235859375*^9, 3.577844291953125*^9}}],2 m! l h+ d- @$ S
; S- r6 C5 |: ?. J BCell[BoxData[( W- n6 j/ c8 u
RowBox[{"{", * `9 s4 v p* Y# P- a8 j! K% _
RowBox[{
9 y0 A4 ] E8 D1 k+ q RowBox[{"{", 9 ]# g& k3 L6 b; O2 q. E8 c
RowBox[{# M; n3 y: v4 p% C- ?
RowBox[{"CM", "[",
4 i9 w/ a3 ^2 d& X$ t! W% g( q RowBox[{"1", ",", "1"}], "]"}], ",",
; p6 X2 v8 s* @2 n4 o8 B RowBox[{"CM", "[",
# f8 K/ y$ @$ t* e3 y- ~) v, a RowBox[{"1", ",", "2"}], "]"}], ",",
% h- e) |- {/ _/ f5 s2 j3 } RowBox[{"CM", "[", % Z8 J3 ^* Z3 F6 |" |/ R* R3 d
RowBox[{"1", ",", "3"}], "]"}], ",", 9 X0 l' @/ k/ e% O& g2 i
RowBox[{"CM", "[", & G9 \1 Q, Q) x: Y/ u+ {4 k2 i2 P: |
RowBox[{"1", ",", "4"}], "]"}], ",",
/ f2 ^$ ~6 `5 Y- Z! y RowBox[{"CM", "[",
$ @3 ~) ?; O1 P0 U* N8 Y+ c RowBox[{"1", ",", "5"}], "]"}], ",", * B4 g8 @7 X6 J. e; _) G
RowBox[{"CM", "[",
* V8 @. w Z" M! o. B( P RowBox[{"1", ",", "6"}], "]"}], ",", 1 x" d6 o& Y0 I, s K
RowBox[{"CM", "[",
3 _4 Z4 y: [5 ]# ~ RowBox[{"1", ",", "7"}], "]"}], ",",
3 X9 t2 n! n7 C7 @, [ RowBox[{"CM", "[",
; b7 ]. n7 b- t9 o* h RowBox[{"1", ",", "8"}], "]"}], ",", / i9 O( h- l9 b* a% n7 P: y/ N
RowBox[{"CM", "[", 8 A. ?4 n% V2 _! e8 k. @" P
RowBox[{"1", ",", "9"}], "]"}]}], "}"}], ",", G( b9 f1 a1 B% F ]
RowBox[{"{",
' |; ~0 \8 j' s% V9 ]4 I2 e& { RowBox[{# S. J4 t& L$ h. K5 {
RowBox[{"CM", "[",
+ @) W6 @, o# [3 h5 E0 K6 R RowBox[{"2", ",", "1"}], "]"}], ",", ' p) c! x8 a9 V/ r8 [$ K
RowBox[{"CM", "[",
X' F4 @9 B; ?) e; _$ ~: b RowBox[{"2", ",", "2"}], "]"}], ",",
8 R' @* @# l, S2 X* q RowBox[{"CM", "[", - _" `/ H/ X, R1 \) r0 q) b p5 r. n
RowBox[{"2", ",", "3"}], "]"}], ",",
( } r$ I& j( W5 s RowBox[{"CM", "[",
; ?8 {# j1 `& ]1 U3 Q$ B- x RowBox[{"2", ",", "4"}], "]"}], ",",
. @. i( G) N m# _* z' E# O RowBox[{"CM", "[",
) k9 {. a; [$ h0 }9 L RowBox[{"2", ",", "5"}], "]"}], ",",
" f; g# H, U: E RowBox[{"CM", "[",
: w' {, c9 o& @) B RowBox[{"2", ",", "6"}], "]"}], ",", / @' o: ^$ \1 g, c& D! K. g
RowBox[{"CM", "[",
, f4 u/ D. \4 {$ S" n. | RowBox[{"2", ",", "7"}], "]"}], ",",
; i2 x6 n. z! d. q# ^; {: _ RowBox[{"CM", "[", : v% U) K/ A! Z6 E8 \/ p: d
RowBox[{"2", ",", "8"}], "]"}], ",",
1 i, r, i0 D+ [# f0 R- _6 p8 | RowBox[{"CM", "[", 7 `, U G3 p4 G& M, A j
RowBox[{"2", ",", "9"}], "]"}]}], "}"}], ",",
9 V1 N7 ]# u. j RowBox[{"{",
2 l* ]/ I N1 y2 F% F8 | RowBox[{2 F- k0 t4 i% m0 j+ k$ C
RowBox[{"CM", "[",
$ F8 ?% ^" T a6 I3 e& \ RowBox[{"3", ",", "1"}], "]"}], ",",
( M. ~- B( L. g; }4 \ RowBox[{"CM", "[",
; G$ L2 N$ A3 Z4 @* T2 l. D RowBox[{"3", ",", "2"}], "]"}], ",", 3 d0 a# p7 c+ R8 U1 t8 Z$ b: \
RowBox[{"CM", "[",
' W4 A: u+ f( J7 T3 E+ { t3 q) r- E RowBox[{"3", ",", "3"}], "]"}], ",", * d% q* k8 r7 F$ Q7 v6 l3 v X& P( y
RowBox[{"CM", "[", ' H5 B! s" l2 E3 O+ Y) V) M
RowBox[{"3", ",", "4"}], "]"}], ",", ( f6 X# Y2 C9 z: D
RowBox[{"CM", "[", - A( x, U9 ~: T$ w5 c
RowBox[{"3", ",", "5"}], "]"}], ",", 5 w2 B( [! Z8 f" Z' K
RowBox[{"CM", "[", - N6 a& H+ n2 \
RowBox[{"3", ",", "6"}], "]"}], ",",
. G7 I3 Y0 [& R3 e6 @2 f/ n) z- ]+ d RowBox[{"CM", "[",
3 _) ^1 l! O# Q8 Z5 L5 p/ q RowBox[{"3", ",", "7"}], "]"}], ",",
6 U" F+ y3 E! p& B RowBox[{"CM", "[",
4 ]5 P3 _# ~) m! P: @9 @ RowBox[{"3", ",", "8"}], "]"}], ",", 7 s, _2 a! L& }+ ^# t: k/ @4 S
RowBox[{"CM", "[",
- L: h8 F* F# ?$ u2 l. v, d1 x4 I RowBox[{"3", ",", "9"}], "]"}]}], "}"}], ",", # M l' }0 g. Z2 H
RowBox[{"{", 7 _* x* H' X- U( L
RowBox[{
# {8 w' P3 {' @# b( q. } RowBox[{"CM", "[", : c. Z$ F6 G1 U0 d, u1 i
RowBox[{"4", ",", "1"}], "]"}], ",",
. ~( @) Z- d1 Q4 B1 N' _' l! t* L RowBox[{"CM", "[",
6 A* _; o9 D6 Q; m+ w3 q9 C( ^ RowBox[{"4", ",", "2"}], "]"}], ",", 3 c. C+ O. {3 r/ R
RowBox[{"CM", "[", ( N& L8 o+ x6 B8 Z/ o( y) ^9 G
RowBox[{"4", ",", "3"}], "]"}], ",", : S+ C @2 T" j. q) a4 t" M( T7 ^
RowBox[{"CM", "[", " ^2 j& u3 Q; E# M: w
RowBox[{"4", ",", "4"}], "]"}], ",",
+ h: X4 w7 l; C3 ^/ r0 c RowBox[{"CM", "[", " I' }* n4 l/ h! c/ u
RowBox[{"4", ",", "5"}], "]"}], ",",
s5 S3 X! T5 [+ `1 J- [ RowBox[{"CM", "[",
4 A; W# _: m8 F1 m# n, t2 I RowBox[{"4", ",", "6"}], "]"}], ",", 2 _- `" ~, ~. S: d7 n
RowBox[{"CM", "[",
" a# ^% | h1 y1 t: n RowBox[{"4", ",", "7"}], "]"}], ",",
0 a7 s; K6 R* |( k6 ` RowBox[{"CM", "[", 1 |! _) o% U d8 i0 G3 B6 E4 k* R
RowBox[{"4", ",", "8"}], "]"}], ",", 1 r+ G0 y" q% V& y
RowBox[{"CM", "[",
/ D! N! Y) N* P4 F RowBox[{"4", ",", "9"}], "]"}]}], "}"}], ",", 9 {) ~5 w2 o/ F; X0 I2 T2 N
RowBox[{"{", , h' Y6 ^& X; s% {3 j; E- e; }
RowBox[{3 S) e2 F8 E% I
RowBox[{"CM", "[",
: F. U) o4 P I( h RowBox[{"5", ",", "1"}], "]"}], ",", 1 P% D4 c. Z0 _3 u' K7 |2 m; ]
RowBox[{"CM", "[",
/ I- V2 f) J0 n# L' a! I RowBox[{"5", ",", "2"}], "]"}], ",", N+ ~! Z) o8 f3 q) P
RowBox[{"CM", "[",
8 C, z- w) `" I+ Z RowBox[{"5", ",", "3"}], "]"}], ",", " [% e( Q) X# X
RowBox[{"CM", "[", 6 Y% R! Q' }' y+ ^, M$ E: W3 R
RowBox[{"5", ",", "4"}], "]"}], ",",
/ o7 H/ o% ?9 q& a3 d2 _8 D; N. a RowBox[{"CM", "[",
9 k( J- V$ | q7 N2 @+ ^/ y RowBox[{"5", ",", "5"}], "]"}], ",",
8 a; ^, y; {) F x RowBox[{"CM", "[",
; _6 I7 J4 c6 m$ [3 o+ r) v: _ RowBox[{"5", ",", "6"}], "]"}], ",", 1 F7 Q7 \: ^5 t, f4 ~1 t/ x6 Z
RowBox[{"CM", "[", ( X. B4 B( ]; E. x, h1 t
RowBox[{"5", ",", "7"}], "]"}], ",", 0 z" y ^, {5 u O
RowBox[{"CM", "[",
% c! t& Q$ ~- P$ M) Z/ ^" P RowBox[{"5", ",", "8"}], "]"}], ",", 7 X( N: @/ [ _* c. a9 x2 F4 e
RowBox[{"CM", "[", 1 y) M+ Y* }3 l( X5 c
RowBox[{"5", ",", "9"}], "]"}]}], "}"}], ",", % k) C- ^5 g& A3 e2 L' l% D$ Q' Q
RowBox[{"{",
9 Z1 d% l: V/ b b( C RowBox[{
, I n: C L% M% X RowBox[{"CM", "[", / J8 I4 z& T7 t4 [1 u) h3 w
RowBox[{"6", ",", "1"}], "]"}], ",",
% l. `* ^* T+ ^/ t- @# T RowBox[{"CM", "[",
+ Y- o9 B$ @& A) H; z RowBox[{"6", ",", "2"}], "]"}], ",",
$ D' E! M( \0 [8 t( ^6 U, ] RowBox[{"CM", "[",
# F6 Z& K ], w' |& E; |( c, V RowBox[{"6", ",", "3"}], "]"}], ",", 2 ~" [0 ^& }/ k n
RowBox[{"CM", "[",
* i: H; u5 W7 B5 `) ~( }! v RowBox[{"6", ",", "4"}], "]"}], ",",
m; v' @$ }! K6 M" S$ l! j RowBox[{"CM", "[",
/ c6 b% X+ a/ k$ n/ D RowBox[{"6", ",", "5"}], "]"}], ",",
( d6 c0 D- v' w$ O% Q0 m- Q. K# s RowBox[{"CM", "[", 2 R' S- {& y8 I6 k; h g+ Z
RowBox[{"6", ",", "6"}], "]"}], ",", , @3 f* ~9 D* Y$ \5 s9 A. I; C
RowBox[{"CM", "[",
1 Z2 E' B/ S7 U9 a8 v2 G- o RowBox[{"6", ",", "7"}], "]"}], ",", / K! I& X- j2 |# N- H% L8 V$ s
RowBox[{"CM", "[",
" A# _5 c, D4 K m RowBox[{"6", ",", "8"}], "]"}], ",", $ ~/ W0 A; g% g5 p+ s! c
RowBox[{"CM", "[",
% w" d% J4 g; Q4 n. ? W RowBox[{"6", ",", "9"}], "]"}]}], "}"}], ",",
' |" \4 |# w$ C# k. r1 v9 ^1 j7 Z$ y RowBox[{"{",
$ O6 D: g4 q; e2 f RowBox[{
9 R4 K0 `/ h# r K( I RowBox[{"CM", "[", / J( ~/ h9 R% a( C0 V% G
RowBox[{"7", ",", "1"}], "]"}], ",",
$ i# P" s7 W! ^' `$ y+ v! U RowBox[{"CM", "[",
3 S0 X3 z/ ^7 ^ RowBox[{"7", ",", "2"}], "]"}], ",",
: s2 U, C) M6 V3 g% ^ RowBox[{"CM", "[", ' J) _$ g" h& Y
RowBox[{"7", ",", "3"}], "]"}], ",",
/ f/ O4 x$ Y" U$ a" ] a RowBox[{"CM", "[", 3 f% l- \1 N* U) k
RowBox[{"7", ",", "4"}], "]"}], ",",
4 X" q/ Q3 s1 K$ v RowBox[{"CM", "[", 5 B- p# G7 T1 E: I" V: k& P
RowBox[{"7", ",", "5"}], "]"}], ",",
( j% s- ^$ x; z+ O# @ RowBox[{"CM", "[",
3 j) c+ H( q- I# Q, G' @; ~% \+ X# p RowBox[{"7", ",", "6"}], "]"}], ",", 3 m; F( p2 M) t) D
RowBox[{"CM", "[",
, |/ P8 |+ d4 r& `2 C) M( y RowBox[{"7", ",", "7"}], "]"}], ",",
9 v0 U9 |* k3 f! Y8 _ RowBox[{"CM", "[",
4 C h( T' Y9 z RowBox[{"7", ",", "8"}], "]"}], ",",
! P9 Z* C5 t. p+ t- T+ C8 q& [, H RowBox[{"CM", "[", 9 [6 W$ |( \3 O1 S( e% k$ c
RowBox[{"7", ",", "9"}], "]"}]}], "}"}], ",",
2 t3 J# n* d8 u' v. u3 T" W* L3 { RowBox[{"{",
Z6 I& D! s' [ i& t A( V RowBox[{+ \0 l+ [5 J9 L
RowBox[{"CM", "[",
4 \6 N t, a2 h% W RowBox[{"8", ",", "1"}], "]"}], ",",
$ \2 X& K; ~) h2 F- ? RowBox[{"CM", "[", & l% f. ]& l l4 {' D
RowBox[{"8", ",", "2"}], "]"}], ",",
/ w9 x% P; M: E RowBox[{"CM", "[", 9 @) Y9 v0 {" m6 `
RowBox[{"8", ",", "3"}], "]"}], ",",
; r; J$ I R3 C2 y7 I RowBox[{"CM", "[",
* |% o3 P/ f y3 I9 i% _& U RowBox[{"8", ",", "4"}], "]"}], ",",
2 t5 }0 ^ I w9 w% F: ^6 b1 d RowBox[{"CM", "[",
/ O: ] V: O% g" _ w RowBox[{"8", ",", "5"}], "]"}], ",",
* [4 D. M3 y9 k+ e6 p4 ^8 D RowBox[{"CM", "[", * H0 ?2 ~; r' j9 A
RowBox[{"8", ",", "6"}], "]"}], ",",
3 [5 R6 L, { {! W% p RowBox[{"CM", "[",
1 Y! A( Q! N5 e RowBox[{"8", ",", "7"}], "]"}], ",",
* ?$ n+ `: E$ l: ?5 O RowBox[{"CM", "[",
! F; m8 r+ e4 U" M RowBox[{"8", ",", "8"}], "]"}], ",",
3 h3 R$ p& B: g1 k0 M& V- k RowBox[{"CM", "[",
0 O. r* n6 m( R& |4 a RowBox[{"8", ",", "9"}], "]"}]}], "}"}], ",",
# |" A' k% p& U* e7 @ RowBox[{"{", 1 g. w: i1 ^* f9 ]" Y
RowBox[{1 v6 v! [5 g( Y E' |/ a- L
RowBox[{"CM", "[",
; @. q9 }5 o( z% _ RowBox[{"9", ",", "1"}], "]"}], ",",
3 h) a- B* c k7 ? W RowBox[{"CM", "[", # i) q$ d8 g% [" z! H K
RowBox[{"9", ",", "2"}], "]"}], ",",
5 H9 G; n* u2 h6 I" @9 y+ L& b RowBox[{"CM", "[", ! Z* d9 T: b$ Y
RowBox[{"9", ",", "3"}], "]"}], ",", $ s! I/ r7 y! f; @" ^' v( B
RowBox[{"CM", "[",
* ~1 L: a9 _5 b7 p RowBox[{"9", ",", "4"}], "]"}], ",",
+ x5 Y& E5 T+ l( r' S# ]6 [% l& t RowBox[{"CM", "[", . P' h7 c$ Z; a8 ?
RowBox[{"9", ",", "5"}], "]"}], ",",
9 J& c2 x! g/ f% S RowBox[{"CM", "[", # M% ^: U0 M7 x5 `
RowBox[{"9", ",", "6"}], "]"}], ",", ( u A( I1 ~" T& f: k) X/ Z/ G' v
RowBox[{"CM", "[", * j% P1 b7 V( D1 i3 s: y3 U m
RowBox[{"9", ",", "7"}], "]"}], ",", , }. D B8 O& Y2 P
RowBox[{"CM", "[", - F o4 Z ] Q, ]& m
RowBox[{"9", ",", "8"}], "]"}], ",",
- G6 e7 v/ i0 V. J RowBox[{"CM", "[",
. @. g0 ~9 }6 @6 ~2 X$ r RowBox[{"9", ",", "9"}], "]"}]}], "}"}], ",",
% l6 b/ V! x: v4 P$ R RowBox[{"{",
/ F. p2 d, ]# ^9 Q6 ^2 s RowBox[{- P$ b& Z) q( g: S
RowBox[{"CM", "[", 4 Z7 D9 f: ^7 ]4 q6 Y
RowBox[{"10", ",", "1"}], "]"}], ",", + ~' c% t S- D5 R% J# G
RowBox[{"CM", "[",
1 `1 T; B; S; w2 R RowBox[{"10", ",", "2"}], "]"}], ",",
/ M, I% M3 Z) Q6 E5 l# H6 L RowBox[{"CM", "[",
* I; U/ L X7 ?: M5 ?4 x. T9 I RowBox[{"10", ",", "3"}], "]"}], ",",
6 a8 Q! u( n' @# [( m7 ~" N/ h J RowBox[{"CM", "[", ; }: b3 V. j( E- J9 g6 {% g+ A
RowBox[{"10", ",", "4"}], "]"}], ",",
7 a Q# \% Q9 [+ I- u+ K RowBox[{"CM", "[", 5 I, I6 c; a* V" x2 P: ]
RowBox[{"10", ",", "5"}], "]"}], ",",
@" l2 q5 k* s8 B+ y RowBox[{"CM", "[",
( u" `6 i1 U+ V" \ RowBox[{"10", ",", "6"}], "]"}], ",",
/ @; N" i1 z! R7 V' Q8 l8 O' I RowBox[{"CM", "[",
& {7 E( D* k; d6 g! |6 n RowBox[{"10", ",", "7"}], "]"}], ",", 5 I1 |, c. ~# e6 I+ T5 q& e
RowBox[{"CM", "[", . l* s. U# e( l; m
RowBox[{"10", ",", "8"}], "]"}], ",",
% A/ v" D% P- e8 d) ^ } RowBox[{"CM", "[",
, j3 h9 f' |8 b, R RowBox[{"10", ",", "9"}], "]"}]}], "}"}], ",", 7 I. F. `: i1 b3 f! ?: T
RowBox[{"{", ' R: u+ y {9 {, ?
RowBox[{
: ]" D4 k; P; ^% E0 C RowBox[{"CM", "[",
+ h- p. c2 O0 Y# s8 s. P RowBox[{"11", ",", "1"}], "]"}], ",",
* Z. C9 p, V0 o s$ f! U! _1 g RowBox[{"CM", "[", & G6 k& U$ f" r0 ]; K; n
RowBox[{"11", ",", "2"}], "]"}], ",",
' M* G" z5 g* h6 B) I% ~$ I RowBox[{"CM", "[",
8 j& U% Y+ }% A) I! m7 }. B/ v4 h1 ?5 W RowBox[{"11", ",", "3"}], "]"}], ",", * A; ~, P$ U$ ]: Y' M, y2 }
RowBox[{"CM", "[",
) b- T6 N- m j; a5 K+ R. M7 { RowBox[{"11", ",", "4"}], "]"}], ",",
2 K" _ R g: n# j D8 P; r, f RowBox[{"CM", "[", 0 x" i% S$ ^) N9 z. V" U# H
RowBox[{"11", ",", "5"}], "]"}], ",",
% j% C# o9 `" Q6 ` RowBox[{"CM", "[", + v% B3 ~+ ]+ v' W
RowBox[{"11", ",", "6"}], "]"}], ",",
+ V# B! P/ e+ N, X' h- p6 G RowBox[{"CM", "[", ]- k% X% R5 J
RowBox[{"11", ",", "7"}], "]"}], ",",
, M5 H A$ n/ s9 v9 M( ` RowBox[{"CM", "[",
2 u' s7 v. }! D3 s; ~9 e+ Q2 G RowBox[{"11", ",", "8"}], "]"}], ",",
, h& s( g+ j, W! \. E- g! x# b- U RowBox[{"CM", "[",
* W4 o+ l5 `. K" Y5 O1 l$ X8 w1 b/ R RowBox[{"11", ",", "9"}], "]"}]}], "}"}], ",", $ G; p" X4 q) Z6 ]1 n$ y
RowBox[{"{", % q- e, Z* F9 n! c) I) ^8 t
RowBox[{7 \) [# S0 c& ?! x# O9 i% V
RowBox[{"CM", "[", * B) T, x3 w& j7 a3 z
RowBox[{"12", ",", "1"}], "]"}], ",", * Z' r: Y& K; S2 U+ a" O4 k6 d. ]
RowBox[{"CM", "[",
. ~ Z( R; g( j' Q) J1 Z2 w S; l RowBox[{"12", ",", "2"}], "]"}], ",",
4 r8 o8 k+ _2 h4 X4 j7 j RowBox[{"CM", "[", 4 N; Z; K: V& ?; k' E
RowBox[{"12", ",", "3"}], "]"}], ",", ! ^7 G' U. x- }8 |+ I
RowBox[{"CM", "[",
) E& e6 B% r; m9 j% _. y* Y RowBox[{"12", ",", "4"}], "]"}], ",",
9 L8 W9 ?( L8 l0 y5 S* ~ RowBox[{"CM", "[", 7 p- R! c/ c# N' y: ]7 V8 L
RowBox[{"12", ",", "5"}], "]"}], ",",
7 h8 R. q0 S7 F5 z' D RowBox[{"CM", "[", 5 O4 r( R! j$ {5 |
RowBox[{"12", ",", "6"}], "]"}], ",",
' Z( J& c( e# {8 _$ ~( ? RowBox[{"CM", "[", . h2 N6 P6 _ Z6 Z3 ]/ ^3 F3 y( c
RowBox[{"12", ",", "7"}], "]"}], ",", 1 o& t" v# E! C* S' m
RowBox[{"CM", "[",
; }) `9 ` b: q, L" ^" t# V( l0 g- z RowBox[{"12", ",", "8"}], "]"}], ",", / J' p( ^* c% ?/ T8 r" Y% F
RowBox[{"CM", "[",
, a$ x3 o9 L% E) S RowBox[{"12", ",", "9"}], "]"}]}], "}"}], ",",
5 c1 b1 g+ m# Q) d* w+ }# `/ ~ RowBox[{"{", 2 [ l% y# \3 V# t
RowBox[{
! u) m; i/ G8 _5 @, K* g RowBox[{"CM", "[", % Y) r) O: U- {
RowBox[{"13", ",", "1"}], "]"}], ",", $ s2 ~# H2 [$ i1 Z: Q
RowBox[{"CM", "[",
, K. b6 n: k5 Q. G/ a RowBox[{"13", ",", "2"}], "]"}], ",", % V# A. X+ Z2 g9 v7 n7 l+ G
RowBox[{"CM", "[", ! }3 q9 u4 C# J1 }6 T) P7 M
RowBox[{"13", ",", "3"}], "]"}], ",",
1 P+ r7 z' g# w' U RowBox[{"CM", "[", 2 `. s- I3 }+ X0 F# I* j8 |
RowBox[{"13", ",", "4"}], "]"}], ",", * m N& |- x+ o0 ]1 _% Z; a/ y2 y
RowBox[{"CM", "[",
( [- N( Z# a( {1 s) v RowBox[{"13", ",", "5"}], "]"}], ",",
( ` x: t, _( h2 D: u$ _+ z RowBox[{"CM", "[", 6 V% G2 p' j# L! ^$ B3 x$ Z2 u3 B
RowBox[{"13", ",", "6"}], "]"}], ",", 5 r: t4 G; \5 }: T) a
RowBox[{"CM", "[", ' F( Z. _3 V% T$ C6 w7 ^
RowBox[{"13", ",", "7"}], "]"}], ",",
* P( j+ l7 D+ E2 j7 b) i; M RowBox[{"CM", "[", ( N2 n" E. Y5 `5 W. N
RowBox[{"13", ",", "8"}], "]"}], ",", 9 }5 \) [! x) @- z5 P' |0 d6 C" ?/ @
RowBox[{"CM", "[",
/ b6 P) t( j' W# ?( r) ?5 x: j RowBox[{"13", ",", "9"}], "]"}]}], "}"}], ",", 8 ]" e+ U% l& L7 w7 Z% z
RowBox[{"{",
- D- f) G @, d# s0 e { RowBox[{
/ n. Q. a3 y: G- a RowBox[{"CM", "[",
+ v1 {5 H% D$ M. |7 w6 M. k RowBox[{"14", ",", "1"}], "]"}], ",", + m1 ?' R; s9 r6 V2 J+ @1 j/ ?
RowBox[{"CM", "[", 8 |" p( o8 Y+ ^
RowBox[{"14", ",", "2"}], "]"}], ",", * G% M; a4 @# M
RowBox[{"CM", "[", # T# B& @$ r& |7 ^. W9 c7 S+ a' r
RowBox[{"14", ",", "3"}], "]"}], ",", 7 V3 r4 D4 h. Z6 L
RowBox[{"CM", "[",
% j% A& |. d5 B% Y1 t Z. e8 Q RowBox[{"14", ",", "4"}], "]"}], ",", 9 r( _9 {3 M. G" h* O0 W; m6 K2 N
RowBox[{"CM", "[", * I9 ~ r; u$ E
RowBox[{"14", ",", "5"}], "]"}], ",", - A5 Y2 U: }7 q* X
RowBox[{"CM", "[", 2 b" w+ {" a3 X! E4 v f
RowBox[{"14", ",", "6"}], "]"}], ",",
2 z5 j% k: i% R RowBox[{"CM", "[",
% |/ i1 a* R% D8 m( i/ R RowBox[{"14", ",", "7"}], "]"}], ",",
* @" `: c' N) v: t RowBox[{"CM", "[", ! t" }8 j c& g/ b
RowBox[{"14", ",", "8"}], "]"}], ",",
8 Z" r7 j$ K- q: ^/ @) G/ i RowBox[{"CM", "[",
( S; ]4 k3 ~0 }; ] RowBox[{"14", ",", "9"}], "]"}]}], "}"}], ",", / J& D0 t8 d+ p4 ^' G. F. f4 r/ d
RowBox[{"{",
3 u+ ]: D. J8 N: ^& P4 {+ s. @( N. B RowBox[{
& J( K) k n; e6 D! { RowBox[{"CM", "[",
( k7 Q+ m$ u" P* k- h RowBox[{"15", ",", "1"}], "]"}], ",", $ l. V! C( E) j$ R/ Q
RowBox[{"CM", "[", $ X* V8 N! v, [7 q6 |
RowBox[{"15", ",", "2"}], "]"}], ",",
) j J: O6 K: d RowBox[{"CM", "[",
: R1 h( i9 o* `# ~ A: v+ s RowBox[{"15", ",", "3"}], "]"}], ",", 9 A# H6 j. ^+ l3 `1 C& k3 \
RowBox[{"CM", "[",
2 L# l3 g; s% K: K' U0 a RowBox[{"15", ",", "4"}], "]"}], ",", , ^ z$ F3 u, a) i5 {- I! {: D
RowBox[{"CM", "[",
. P- y$ U- |: B+ {7 O RowBox[{"15", ",", "5"}], "]"}], ",",
6 m1 U' ?) O( {* x3 g6 g h4 | RowBox[{"CM", "[",
/ {( B3 y# y0 a; n, M3 @% q RowBox[{"15", ",", "6"}], "]"}], ",", ' z; Y1 X0 O) @/ e# g! C
RowBox[{"CM", "[", W4 q3 |, m% f& u6 D% [6 ]. W
RowBox[{"15", ",", "7"}], "]"}], ",", . ]8 n. E1 q4 | P3 k/ F+ k% c6 f& L5 O
RowBox[{"CM", "[",
) c' E; K% B7 Y! t- i+ B# B RowBox[{"15", ",", "8"}], "]"}], ",", : q4 i- Y$ H8 R, w7 y w% X
RowBox[{"CM", "[",
( A: ~+ b2 R6 C; _ a' ? RowBox[{"15", ",", "9"}], "]"}]}], "}"}], ",",
3 U5 P0 k- x# `. c/ Q: ]5 d6 p) A3 O RowBox[{"{",
+ V _$ }: H8 ^/ O RowBox[{: @* c# M6 P" Y$ t4 n R3 f
RowBox[{"CM", "[", 4 ?: [! g! g. F2 e& v
RowBox[{"16", ",", "1"}], "]"}], ",", 8 {0 M1 j, t1 C* b' E
RowBox[{"CM", "[",
2 y( W8 E: U( l: H& q+ i; P) s4 W% l RowBox[{"16", ",", "2"}], "]"}], ",",
: L! O6 \& S* E) a6 q& K* { RowBox[{"CM", "[",
# r, P+ B7 ~ B1 v" Q6 s( Y RowBox[{"16", ",", "3"}], "]"}], ",",
# k8 f- }$ T) d* i RowBox[{"CM", "[", ; R8 R& j- R' [# T; {4 {1 _
RowBox[{"16", ",", "4"}], "]"}], ",", 5 S& A3 S G! @- `$ R! T
RowBox[{"CM", "[",
! l% w8 Z" `9 P6 W. S' O RowBox[{"16", ",", "5"}], "]"}], ",",
& W9 j9 b$ Y ]( L3 X' a6 F RowBox[{"CM", "[",
+ L* x; m* D' j0 g RowBox[{"16", ",", "6"}], "]"}], ",", , w6 O- H6 _# @, M, w0 W
RowBox[{"CM", "[", ( w6 Z! V6 t4 y1 W
RowBox[{"16", ",", "7"}], "]"}], ",", " m' u# h9 O9 H* B2 z2 P2 z
RowBox[{"CM", "[",
7 \$ {0 J* U6 v" @& K RowBox[{"16", ",", "8"}], "]"}], ",",
! T. ]+ K$ A& n0 R) x6 D# x9 c RowBox[{"CM", "[", 4 f7 s7 h4 l2 N
RowBox[{"16", ",", "9"}], "]"}]}], "}"}], ",",
: ~2 q7 u. N/ U* n RowBox[{"{",
5 J8 r" K5 r7 L3 @ RowBox[{
, t% g/ U# j! v: x3 }- k6 Q N RowBox[{"CM", "[", 8 q+ f; g5 h+ `7 \/ @+ A
RowBox[{"17", ",", "1"}], "]"}], ",",
$ n0 n+ d$ K6 I5 |7 }6 I RowBox[{"CM", "[", # A P: H% z* ~$ T
RowBox[{"17", ",", "2"}], "]"}], ",",
0 o4 w9 k+ {# v: d5 @6 S% S RowBox[{"CM", "[",
& U. [$ [, l/ M/ D! Q7 [: O ^ RowBox[{"17", ",", "3"}], "]"}], ",", 1 u0 w3 W1 K( a! {- c
RowBox[{"CM", "[",
+ Z a# A3 G$ R0 {8 K1 w RowBox[{"17", ",", "4"}], "]"}], ",", ) J+ m+ {$ T$ W3 [# y% `8 o: Q& m
RowBox[{"CM", "[", 3 U7 E* Y8 s: R/ O, \/ c, |
RowBox[{"17", ",", "5"}], "]"}], ",", 0 ]) v9 A" n# a; F4 R. q
RowBox[{"CM", "[",
, N4 @! V# r5 W9 a( h% J% v1 B: s1 A RowBox[{"17", ",", "6"}], "]"}], ",", / B5 D* C( }- q3 }
RowBox[{"CM", "[", 8 y- f% i. \- O( j6 o
RowBox[{"17", ",", "7"}], "]"}], ",", ( U% c* B1 ]# a l. M/ o
RowBox[{"CM", "[", 4 O: `) H7 t6 ^/ W( G
RowBox[{"17", ",", "8"}], "]"}], ",",
. B9 X7 [4 X" `' i RowBox[{"CM", "[", 7 ? w3 t7 R# i- k
RowBox[{"17", ",", "9"}], "]"}]}], "}"}], ",", * O8 Q! E) o- P& x. r3 @+ e
RowBox[{"{", 0 h; A& ?- S& L" W
RowBox[{5 Q+ o% \8 P/ g! _0 R' w7 s ~
RowBox[{"CM", "[",
1 H; B1 \- f4 c" A! |. {* x RowBox[{"18", ",", "1"}], "]"}], ",", 5 |% S5 @7 V: K O8 g
RowBox[{"CM", "[", - Z1 q8 G- k* w
RowBox[{"18", ",", "2"}], "]"}], ",",
, n( J. t7 D2 a k7 c; ~9 Y7 C RowBox[{"CM", "[",
# ^- s' u/ K& q" {2 c RowBox[{"18", ",", "3"}], "]"}], ",",
+ d2 ^2 R x; U& D RowBox[{"CM", "[",
8 N) s1 m) K; J" K+ d% {6 M5 J RowBox[{"18", ",", "4"}], "]"}], ",", % k8 \3 m& J; x: m9 `
RowBox[{"CM", "[", ( [$ _& V! s3 ]4 U0 \
RowBox[{"18", ",", "5"}], "]"}], ",",
2 I; b# d! E; ^: {6 f e1 O/ E RowBox[{"CM", "[",
5 N; t4 j: g( p; S RowBox[{"18", ",", "6"}], "]"}], ",",
& |- u% n" \; s6 C+ A& W1 Z: Z ]% g RowBox[{"CM", "[",
+ d* h( |- U: G9 f; N RowBox[{"18", ",", "7"}], "]"}], ",",
6 ` ?7 J9 @/ ?, l- f, [ RowBox[{"CM", "[",
+ u9 ?% k3 a7 k RowBox[{"18", ",", "8"}], "]"}], ",", - l( {$ m9 `: O8 |
RowBox[{"CM", "[",
9 d# R8 d+ e/ m RowBox[{"18", ",", "9"}], "]"}]}], "}"}], ",",
9 P. F7 h* [% B2 n' _" [ RowBox[{"{",
0 T- B+ K i- q& I RowBox[{
& o0 W" j4 @5 p# k: e8 V RowBox[{"CM", "[", : X- n8 F# K2 C( N# x7 l( Y
RowBox[{"19", ",", "1"}], "]"}], ",", 8 k% J! ?; U) w' Y3 T- K" ^
RowBox[{"CM", "[",
0 h2 K4 l P4 | RowBox[{"19", ",", "2"}], "]"}], ",", " |8 P" b; Y+ j; M9 p6 T
RowBox[{"CM", "[",
( _+ \/ R; I3 u# i RowBox[{"19", ",", "3"}], "]"}], ",", % v2 ^8 L, g3 s& S" g5 c5 G
RowBox[{"CM", "[", ( B/ }" z0 s5 U, f6 ] P
RowBox[{"19", ",", "4"}], "]"}], ",",
" z( L$ e7 V8 D: ~ RowBox[{"CM", "[",
, F9 L7 \4 `# v3 X b+ W RowBox[{"19", ",", "5"}], "]"}], ",",
: G- G: N0 ]7 b P* c# u) ? RowBox[{"CM", "[", ' C. c5 ~' T6 | \
RowBox[{"19", ",", "6"}], "]"}], ",", $ O9 {+ e* F9 S5 E' b
RowBox[{"CM", "[", , V2 P l3 ~: p9 [- b; y
RowBox[{"19", ",", "7"}], "]"}], ",",
" Y! p. }% Q+ c RowBox[{"CM", "[",
& A0 ~# }6 `9 A4 E RowBox[{"19", ",", "8"}], "]"}], ",",
) O2 M% o3 D* m* i8 Y l RowBox[{"CM", "[", 1 m8 J! r! k* `+ J) \7 Q
RowBox[{"19", ",", "9"}], "]"}]}], "}"}], ",",
( O4 e, y( T$ K, s4 h+ {+ Z+ W+ @ RowBox[{"{", & ?1 O% [" P( f* j2 \! U' y
RowBox[{
. E2 S: |, E1 Z RowBox[{"CM", "[",
: v. c7 j+ a5 D$ @ RowBox[{"20", ",", "1"}], "]"}], ",",
9 `0 [8 J- q4 V& x) b0 w4 e6 C( R; J RowBox[{"CM", "[", 5 M4 r* q& M" ?5 Z( w- H8 D
RowBox[{"20", ",", "2"}], "]"}], ",", + V" o' x! L7 Z
RowBox[{"CM", "[", $ d) K) ~' z1 _4 d" b: d
RowBox[{"20", ",", "3"}], "]"}], ",", 6 P7 ]6 @5 q5 R; m7 C) l) s
RowBox[{"CM", "[",
9 f* |6 ^. x% l4 e9 \0 H5 f! M6 O) ] RowBox[{"20", ",", "4"}], "]"}], ",", ) x$ e3 s2 K" p9 I2 q
RowBox[{"CM", "[",
8 }; h$ D+ Q4 J, b1 B RowBox[{"20", ",", "5"}], "]"}], ",", & Y4 d4 [ F; B+ L
RowBox[{"CM", "[",
) q6 I& P. s5 @5 }& y+ I' H RowBox[{"20", ",", "6"}], "]"}], ",",
: s" \% Z2 K. I! v RowBox[{"CM", "[", 4 G5 h( _5 v9 a
RowBox[{"20", ",", "7"}], "]"}], ",", ! Y' Q1 V# f" L2 M6 ?1 o: f4 h2 o
RowBox[{"CM", "[",
8 V# ]8 e6 i* h+ y7 i- X RowBox[{"20", ",", "8"}], "]"}], ",", ; u6 b4 K1 H: }4 @. f% b
RowBox[{"CM", "[",
' Y# J8 g) D! S" S RowBox[{"20", ",", "9"}], "]"}]}], "}"}], ",", $ P/ V! |7 `0 G$ k" I" V# B: T( z
RowBox[{"{", ( i$ o" V( r: U A8 a
RowBox[{' H0 l" ]5 s I4 i
RowBox[{"CM", "[",
. m1 T, F o/ H' Q6 P w9 i RowBox[{"21", ",", "1"}], "]"}], ",", # j. Q0 C! @: A% A1 ]
RowBox[{"CM", "[", + L! Z' V# b% A0 u9 q/ p
RowBox[{"21", ",", "2"}], "]"}], ",", ) _( X! U! f* Q2 |/ j9 j
RowBox[{"CM", "[", " }- _2 ?6 r# [7 E& ]) D! W7 {8 f/ K, P
RowBox[{"21", ",", "3"}], "]"}], ",", . v2 W0 B9 t/ D, K* m3 F
RowBox[{"CM", "[",
4 Q9 A0 ~& d ^5 E: P% s RowBox[{"21", ",", "4"}], "]"}], ",", 9 L4 i& Y. [" p( b
RowBox[{"CM", "[", 3 z2 A# Z+ z" @0 R. C
RowBox[{"21", ",", "5"}], "]"}], ",",
$ J/ s @3 U7 B0 D RowBox[{"CM", "[", 6 O9 q8 W2 u( C3 W4 T, |
RowBox[{"21", ",", "6"}], "]"}], ",",
# B1 l# n# e- j RowBox[{"CM", "[", # m1 G- L9 B1 c" L) t3 r
RowBox[{"21", ",", "7"}], "]"}], ",", - s2 j. Y' r' O7 u* M* F. u4 j
RowBox[{"CM", "[", * Z6 [) ^/ V/ f8 s l
RowBox[{"21", ",", "8"}], "]"}], ",",
, t6 k5 m& o( a& A RowBox[{"CM", "[",
1 X5 D' p& b0 K RowBox[{"21", ",", "9"}], "]"}]}], "}"}], ",",
. X) ^+ Y, R9 { RowBox[{"{",
4 e' ~ A' n4 u. F: S+ e RowBox[{7 T1 b$ k" L& C5 q' R
RowBox[{"CM", "[",
6 R$ W Z$ W% V- V RowBox[{"22", ",", "1"}], "]"}], ",", 8 l$ k# k& a# h9 }5 r
RowBox[{"CM", "[",
0 V( K1 y y. n: X$ k) b RowBox[{"22", ",", "2"}], "]"}], ",", , u5 l$ ^3 H% u9 Y& |
RowBox[{"CM", "[",
3 [7 l0 l( T, j7 p1 H9 i RowBox[{"22", ",", "3"}], "]"}], ",",
, b8 ]; [5 q. c/ a1 R+ I7 t' i RowBox[{"CM", "[",
0 b( O( [$ c& z RowBox[{"22", ",", "4"}], "]"}], ",", 2 Y/ \* K, R0 e1 h( _8 y
RowBox[{"CM", "[",
: Q- z( b" R5 a RowBox[{"22", ",", "5"}], "]"}], ",",
! \& t. Z5 e. r6 L RowBox[{"CM", "[",
' u y+ S' a5 w4 h4 |" Y) H RowBox[{"22", ",", "6"}], "]"}], ",",
% \% P/ L) R, l% q3 V* U2 ^+ @ RowBox[{"CM", "[", . E* r- `, C a; q$ Z) ]0 {! p" \
RowBox[{"22", ",", "7"}], "]"}], ",", 9 l8 @1 m8 L* f1 X7 P" t
RowBox[{"CM", "[",
N; R6 R! K: Y- u3 s RowBox[{"22", ",", "8"}], "]"}], ",",
4 B, f; d0 m, G8 h6 _ RowBox[{"CM", "[", , _( ? p8 [# S& X) W
RowBox[{"22", ",", "9"}], "]"}]}], "}"}], ",",
( t# n, c7 E0 Z RowBox[{"{", + G) j: _, z) R( O3 h4 V
RowBox[{
$ w7 m q3 E! {+ ^2 L9 x$ N RowBox[{"CM", "[",
7 m2 A2 O7 s4 c RowBox[{"23", ",", "1"}], "]"}], ",",
6 q) F- H5 V1 _9 L( m& A) ] RowBox[{"CM", "[", # Z: q7 |, w a) p5 V$ m: R5 H
RowBox[{"23", ",", "2"}], "]"}], ",",
1 r! k" F1 o5 @7 I- e' |4 D RowBox[{"CM", "[", ; |! }$ M3 Z- N3 S% \
RowBox[{"23", ",", "3"}], "]"}], ",",
8 C0 p' w5 o4 ?! o* n RowBox[{"CM", "[",
2 f. p! W! @$ R/ R7 N RowBox[{"23", ",", "4"}], "]"}], ",", 9 O; G! d9 Z5 i$ D
RowBox[{"CM", "[", ; ?2 h% D* J3 @" t L. M
RowBox[{"23", ",", "5"}], "]"}], ",",
# C' X# i1 b) c( W: t4 n3 g RowBox[{"CM", "[", " Q7 j# @2 L- i6 o/ N& P
RowBox[{"23", ",", "6"}], "]"}], ",", 5 s" M- w% a) ^& M& _
RowBox[{"CM", "[",
8 B$ Q' p9 C0 H8 Y8 M, C) Y RowBox[{"23", ",", "7"}], "]"}], ",",
& E' h; g. }! ^ RowBox[{"CM", "[", 7 x, U f0 v$ F5 h% m, l
RowBox[{"23", ",", "8"}], "]"}], ",",
5 B2 k0 Q6 H! w2 f RowBox[{"CM", "[",
0 k( R6 L- h1 X4 r7 }5 M RowBox[{"23", ",", "9"}], "]"}]}], "}"}], ",",
1 s4 m- p* F0 Y3 ]8 }4 Q7 _ RowBox[{"{", 1 T# ], p4 p8 |
RowBox[{: R/ g, z7 z2 L1 a8 R/ z% F& B- n
RowBox[{"CM", "[",
5 a- s$ @( [& S' S, _9 G0 B RowBox[{"24", ",", "1"}], "]"}], ",", + v* s9 y: k1 [
RowBox[{"CM", "[", # W8 \9 h& x; f- l
RowBox[{"24", ",", "2"}], "]"}], ",", 9 B+ b. g: ~" }2 I# \! \* Z
RowBox[{"CM", "[",
6 l3 ~/ _- A/ R& G RowBox[{"24", ",", "3"}], "]"}], ",", 0 F2 U3 ~/ z) O
RowBox[{"CM", "[", ; m( {: w# L, R/ ]
RowBox[{"24", ",", "4"}], "]"}], ",", ! X0 K$ ~: k7 P, N% i7 ]
RowBox[{"CM", "[",
8 `4 a7 M. w' o7 T5 X& P1 w RowBox[{"24", ",", "5"}], "]"}], ",",
! p2 u4 f6 S' O4 P5 E5 Y+ L7 V+ W RowBox[{"CM", "[", 0 W. e. b# w) S, f5 k* s
RowBox[{"24", ",", "6"}], "]"}], ",",
# B. C3 m8 i+ d RowBox[{"CM", "[", 3 f9 V8 r# _, B+ A* v; f
RowBox[{"24", ",", "7"}], "]"}], ",",
6 `1 b6 C! N: P3 r+ U& x) w RowBox[{"CM", "[", 6 r, Z }. p0 G( n+ e# i
RowBox[{"24", ",", "8"}], "]"}], ",",
" z2 k% b. c+ w& |4 r6 r$ F' v1 \ RowBox[{"CM", "[",
) D: X& j- H) n- i: h: t/ R RowBox[{"24", ",", "9"}], "]"}]}], "}"}], ",", 5 }+ s2 O- {# ^5 e; k7 ]' Q% e
RowBox[{"{",
6 R& k2 M/ z) w0 | RowBox[{7 Y g( i. K3 d F4 A2 E
RowBox[{"CM", "[",
' f: I5 C' q( m3 J9 r; t) S RowBox[{"25", ",", "1"}], "]"}], ",",
0 R0 {( y7 Z8 `, E% | H RowBox[{"CM", "[",
/ \5 [8 r' r. E$ @' l2 n E6 \" \ RowBox[{"25", ",", "2"}], "]"}], ",", 3 S: K$ H) w2 X* l$ Z
RowBox[{"CM", "[", : F4 l9 T6 T ^, T
RowBox[{"25", ",", "3"}], "]"}], ",",
* F0 J/ {& q6 Z7 k/ S5 Q3 K7 B RowBox[{"CM", "[",
& t7 |% a$ g' I6 g RowBox[{"25", ",", "4"}], "]"}], ",",
, h; o5 M+ b, o ~/ U RowBox[{"CM", "[",
8 {/ ?) c/ O% k o1 g# W! O RowBox[{"25", ",", "5"}], "]"}], ",", 2 e: ?2 ?2 Q$ o
RowBox[{"CM", "[",
) _' k$ z; h0 }$ d RowBox[{"25", ",", "6"}], "]"}], ",", ; u3 _2 S d& P+ P( r2 [0 A& q
RowBox[{"CM", "[", : e2 C1 U# x8 K8 t; w5 d
RowBox[{"25", ",", "7"}], "]"}], ",", ; L, ]) X" M! I" T
RowBox[{"CM", "[",
( X9 G. @9 T/ C; d8 p2 P p/ Y RowBox[{"25", ",", "8"}], "]"}], ",", 5 E" Z/ w, S4 a5 E
RowBox[{"CM", "[",
) n! y, M4 P! ?, H0 s RowBox[{"25", ",", "9"}], "]"}]}], "}"}], ",",
2 N$ b& g- o9 f7 v% L/ F! U; H5 q RowBox[{"{", , M: P3 [9 f8 l; M8 k$ {. C! X! Z
RowBox[{
2 E6 N8 _' _; J2 Y8 w9 U5 B) K RowBox[{"CM", "[", : f' b. o, i9 `. @( Z/ }
RowBox[{"26", ",", "1"}], "]"}], ",",
2 ~& X2 s, T' V! N- H: K; F% C& Z RowBox[{"CM", "[", 0 f+ U- ?7 V' V! d
RowBox[{"26", ",", "2"}], "]"}], ",",
* j, k0 s+ v& S* j8 L+ a2 n. Z' _ RowBox[{"CM", "[",
* l1 t- I4 U$ E5 Y0 F1 e RowBox[{"26", ",", "3"}], "]"}], ",",
' p' d$ Y) e" B- n# S RowBox[{"CM", "[", . r" G1 {& {3 G* C" i" ^
RowBox[{"26", ",", "4"}], "]"}], ",", 2 B& R% }( R5 ~
RowBox[{"CM", "[",
( l6 X9 T: c% ` _1 |: v# ^ RowBox[{"26", ",", "5"}], "]"}], ",",
$ O* Z" r/ a% C- a( d" N RowBox[{"CM", "[", & |: g' V: {9 m0 r
RowBox[{"26", ",", "6"}], "]"}], ",", 2 R+ S1 I$ _1 w; R. @4 O
RowBox[{"CM", "[", ; S' q# k3 W3 H+ q: I/ @
RowBox[{"26", ",", "7"}], "]"}], ",", 3 Y% f. a; d2 e. J+ b
RowBox[{"CM", "[",
2 x+ Q2 U# C, p3 Q/ I RowBox[{"26", ",", "8"}], "]"}], ",",
! h' b& h. L" C( J# E7 x5 R RowBox[{"CM", "[", - H; h7 _- W& ?& F3 z( j. e
RowBox[{"26", ",", "9"}], "]"}]}], "}"}], ",",
0 v& }2 _9 q; w RowBox[{"{", % c! F& ~2 R) S: t: ?
RowBox[{
( r4 F4 q. Y9 q' Y1 b7 @ RowBox[{"CM", "[",
& @! y+ c6 j+ k. u; d* b( ^4 b% N& e& _ RowBox[{"27", ",", "1"}], "]"}], ",",
$ `1 k& W, Y. a4 e3 E+ b% q RowBox[{"CM", "[",
2 y8 ]( n) W: o, k3 L1 T RowBox[{"27", ",", "2"}], "]"}], ",",
5 p ^5 i) o, ?' v2 |. z3 T RowBox[{"CM", "[",
4 b k) ?6 S2 r6 h0 x3 D( Z, o RowBox[{"27", ",", "3"}], "]"}], ",", " y6 a% b6 |& m; \3 B
RowBox[{"CM", "[",
0 Z3 y0 E' T: ^8 ]- H6 l$ S RowBox[{"27", ",", "4"}], "]"}], ",", 7 ]; ^2 p, m- C, G. R; H4 }
RowBox[{"CM", "[",
0 f" U- K7 n: M% q RowBox[{"27", ",", "5"}], "]"}], ",",
7 I' _1 C3 R# O' @ RowBox[{"CM", "[",
( {/ }; U/ k' E/ r; I4 B& A RowBox[{"27", ",", "6"}], "]"}], ",", % i$ r! m, f1 G$ O/ x, h/ y0 Z- V' G* n* `
RowBox[{"CM", "[", 3 f. h }6 B) b& ?4 R$ b
RowBox[{"27", ",", "7"}], "]"}], ",",
9 ?8 Z8 b, N/ ^7 n) z$ k RowBox[{"CM", "[",
4 g! Y* @8 c' p! Y RowBox[{"27", ",", "8"}], "]"}], ",",
1 Q, [5 Z- F: t0 t RowBox[{"CM", "[", + p; c5 V7 [: ^& W- P* ^
RowBox[{"27", ",", "9"}], "]"}]}], "}"}], ",", . R. t' [! i' v# a! O, N3 G
RowBox[{"{",
$ \7 z! K# w& x) Z( B RowBox[{9 X! p# V, {- {3 p- a/ B) a/ J* H
RowBox[{"CM", "[",
8 W, z( o! a0 [( _* U" z2 q1 B RowBox[{"28", ",", "1"}], "]"}], ",",
/ C! P- F, Y) g0 I/ |! e: R RowBox[{"CM", "[",
. @+ \# q1 P8 G& z9 J RowBox[{"28", ",", "2"}], "]"}], ",", * n$ U! _$ L- k f& |
RowBox[{"CM", "[", $ ~" e! Q# a0 c2 T4 e) d* b
RowBox[{"28", ",", "3"}], "]"}], ",",
7 r: U* H# b8 T0 W- g3 V; y- `8 m RowBox[{"CM", "[",
1 k7 x* |8 B6 i- N RowBox[{"28", ",", "4"}], "]"}], ",", 6 I/ X# Y! v. ?" R
RowBox[{"CM", "[", ) N P6 ^6 d% v1 F
RowBox[{"28", ",", "5"}], "]"}], ",", % j1 U- d& _ \1 E8 k
RowBox[{"CM", "[", $ g4 G5 p; s: _3 ^
RowBox[{"28", ",", "6"}], "]"}], ",",
% r! ~' Z" R8 A/ W5 y RowBox[{"CM", "[",
0 j- |! } E0 k m) h+ Z7 s8 P$ n9 w RowBox[{"28", ",", "7"}], "]"}], ",", 5 j. W& V* p4 z: `& r4 q! l
RowBox[{"CM", "[", 0 r. Z1 E* \( B7 Q1 Q, x4 }
RowBox[{"28", ",", "8"}], "]"}], ",",
8 ?/ o9 `" j1 p9 H+ X9 V RowBox[{"CM", "[", & Y, c. i8 z* m$ r/ v
RowBox[{"28", ",", "9"}], "]"}]}], "}"}], ",", ! S) z% V- z2 N- L7 O
RowBox[{"{",
9 l$ F& P; z+ a+ l9 g RowBox[{
# C( M9 b* K, w0 j" O0 n- ~ RowBox[{"CM", "[", 6 d% L Z% M& A" q, X4 b
RowBox[{"29", ",", "1"}], "]"}], ",", , w+ k* S9 T3 ?7 R" N) y- \
RowBox[{"CM", "[",
+ V [, s% U" P" }* [! p2 X$ k RowBox[{"29", ",", "2"}], "]"}], ",",
/ t6 c* W% F, B0 |, h RowBox[{"CM", "[", + l/ i6 T- R9 F: O5 C6 z
RowBox[{"29", ",", "3"}], "]"}], ",",
! D1 [" G( ]7 z4 I/ W- h* A RowBox[{"CM", "[", / [& Q3 @9 j# ?1 T
RowBox[{"29", ",", "4"}], "]"}], ",",
4 Q# ]; A6 u' p7 P4 X* z RowBox[{"CM", "[",
, Q7 ~& s' `( x, j3 D9 K$ Y4 h RowBox[{"29", ",", "5"}], "]"}], ",",
" f$ G# i; r0 A2 C8 p RowBox[{"CM", "[", 5 ]1 u3 p5 G7 p' D+ k4 X
RowBox[{"29", ",", "6"}], "]"}], ",",
6 @1 Y0 y% K8 w8 G7 x9 Q- n% H RowBox[{"CM", "[",
8 v! Y4 h, N$ x! e0 g, k RowBox[{"29", ",", "7"}], "]"}], ",",
* m) _$ g+ D- h/ o- Z RowBox[{"CM", "[",
/ h! F& q& _% K1 m RowBox[{"29", ",", "8"}], "]"}], ",", + P5 s0 I. j7 o5 A8 X M
RowBox[{"CM", "[",
1 @# @# Z, I( v6 V9 N RowBox[{"29", ",", "9"}], "]"}]}], "}"}], ",",
" E; g' `2 y+ j/ {1 a+ _ N, g* [ RowBox[{"{", ! y- q7 `4 V- k" Z3 V5 m9 [
RowBox[{
" t" z+ L3 `, ~! D r5 y) f4 q6 r RowBox[{"CM", "[",
" k: X8 Q* j$ Y& K RowBox[{"30", ",", "1"}], "]"}], ",",
( n2 Y( `! E8 C RowBox[{"CM", "[",
% b: }# U. Z- w" e# Z) ~ RowBox[{"30", ",", "2"}], "]"}], ",", ( @& e1 t. q6 n! l9 w
RowBox[{"CM", "[", ( k# M8 X; q* p* k3 h+ j
RowBox[{"30", ",", "3"}], "]"}], ",", 4 v3 W" r( Q/ a( J+ Y) I
RowBox[{"CM", "[", ) o; u. {0 I+ V/ ~6 ~/ U4 \
RowBox[{"30", ",", "4"}], "]"}], ",", ; I1 r7 E5 l; J* t6 d# Z
RowBox[{"CM", "[", 7 @2 ]3 y5 ^( J3 g0 k
RowBox[{"30", ",", "5"}], "]"}], ",", ' _0 F! S a* u" _0 v/ u
RowBox[{"CM", "[",
* J6 |& G4 p9 Q! V% M RowBox[{"30", ",", "6"}], "]"}], ",", # a9 B A* G) o9 w3 v, L9 }: j
RowBox[{"CM", "[", 3 t: w- ^% ~' ^' e: \% z% E
RowBox[{"30", ",", "7"}], "]"}], ",", ; Y% ]( q/ k* d4 ^
RowBox[{"CM", "[", * I8 f8 U) M5 F# V3 K& I& Z+ F/ `
RowBox[{"30", ",", "8"}], "]"}], ",",
: g/ y% c# @( k( l' p RowBox[{"CM", "[", # I) C. s3 f8 V
RowBox[{"30", ",", "9"}], "]"}]}], "}"}], ",",
7 p( u' ~$ h3 R/ [, N( v p! q RowBox[{"{",
( k+ x3 Q1 z/ o# z# m+ c RowBox[{% ]' f2 j, ?: T. P- o3 H
RowBox[{"CM", "[",
( I0 s- h4 ^4 I$ } RowBox[{"31", ",", "1"}], "]"}], ",", 4 e1 {7 E! ?* H; T: n( d
RowBox[{"CM", "[",
9 M6 s2 {) Z$ p" L6 z& K- l9 C- \ RowBox[{"31", ",", "2"}], "]"}], ",", & @- {0 w9 I/ ~# Q
RowBox[{"CM", "[",
( F; p/ y3 |- C' z6 F6 i RowBox[{"31", ",", "3"}], "]"}], ",",
3 G# l. P) N5 l/ ] RowBox[{"CM", "[", ) p! h; C R' C! p' E. C
RowBox[{"31", ",", "4"}], "]"}], ",",
! B8 j' [# `+ w" [9 J) @) T7 ]& Z RowBox[{"CM", "[",
: \- A' H: o/ Q2 T; d! Z" K( ] RowBox[{"31", ",", "5"}], "]"}], ",",
, F8 Q$ `, h4 ?+ Z! T RowBox[{"CM", "[",
. |+ p* t' S) I4 U1 U2 Q RowBox[{"31", ",", "6"}], "]"}], ",",
% u/ K1 ~! S4 ~+ ~ [7 q* [1 T6 @ RowBox[{"CM", "[",
+ B6 J, K9 I K8 x! k9 ] RowBox[{"31", ",", "7"}], "]"}], ",",
5 o( k, c1 m- R2 I RowBox[{"CM", "[",
y9 s0 N/ `- S7 e RowBox[{"31", ",", "8"}], "]"}], ",",
0 r) z4 u( R, {% N' b) j8 d% N RowBox[{"CM", "[",
' d+ |2 \3 s8 y# [' F8 a RowBox[{"31", ",", "9"}], "]"}]}], "}"}], ",", % O$ I. l2 K, J% Z1 q+ z
RowBox[{"{", & F) x8 ?: ]; V/ e
RowBox[{9 D; A1 Y* z; g) E
RowBox[{"CM", "[",
& }5 N. ~. B& y) t. k2 B4 B RowBox[{"32", ",", "1"}], "]"}], ",", / s3 G; v: k# P! n% A' d% O) m E2 [- V
RowBox[{"CM", "[", & b6 k( q) ^: j& G$ E
RowBox[{"32", ",", "2"}], "]"}], ",",
M; X% ]1 R6 D/ V b3 L4 k l RowBox[{"CM", "[", $ t" N, T1 e9 s8 ^8 [! U4 @ y8 I9 k% }
RowBox[{"32", ",", "3"}], "]"}], ",",
) f; F- c+ w. ?5 M5 k2 }- N7 Q! k RowBox[{"CM", "[",
& ]* H! H2 Z/ T2 l, B: |1 A RowBox[{"32", ",", "4"}], "]"}], ",", 0 k/ R/ f0 U: a# m
RowBox[{"CM", "[",
% g4 d3 r& `2 v8 x RowBox[{"32", ",", "5"}], "]"}], ",",
& _- i+ }" B, K3 m RowBox[{"CM", "[", 9 T: |( ?, C% U Q
RowBox[{"32", ",", "6"}], "]"}], ",", $ E' w7 Q( f. V* F% L! G& H
RowBox[{"CM", "[",
' L. Q$ t% K& J! _* g RowBox[{"32", ",", "7"}], "]"}], ",",
& _: |8 P4 w+ _( o$ ] RowBox[{"CM", "[", + v5 H0 N1 @$ e) @" e
RowBox[{"32", ",", "8"}], "]"}], ",",
1 v6 p" a. q9 u* y, E RowBox[{"CM", "[", 8 r3 I, }# Y) G# w
RowBox[{"32", ",", "9"}], "]"}]}], "}"}], ",",
3 s# f$ L- z) {) E3 s5 R, d O7 L- r RowBox[{"{",
6 R5 l$ W: {3 J* q RowBox[{! S6 f- M0 @( Q0 ?
RowBox[{"CM", "[", 8 W1 ]0 S7 \ E8 Z0 J+ V7 X
RowBox[{"33", ",", "1"}], "]"}], ",",
2 K- f. |, K( Q3 f# V: x RowBox[{"CM", "[", & G' n% f, ?& R, q% j% G
RowBox[{"33", ",", "2"}], "]"}], ",", G4 A3 w. x+ C7 P9 L
RowBox[{"CM", "[",
/ C& \! z, z- G$ j# r" v RowBox[{"33", ",", "3"}], "]"}], ",",
" i7 y5 f! `" v RowBox[{"CM", "[",
* j2 \, { d2 C* N( t* { RowBox[{"33", ",", "4"}], "]"}], ",",
1 l# [! \6 k5 y4 N0 Y% M RowBox[{"CM", "[",
0 n& ~. g; E/ d7 u5 h$ ^; S% G RowBox[{"33", ",", "5"}], "]"}], ",", $ R: O# F# Q) n: \' I
RowBox[{"CM", "[", / \$ Y2 R; y% @
RowBox[{"33", ",", "6"}], "]"}], ",", 6 U$ G5 W- q, R! L# v8 z$ a
RowBox[{"CM", "[", : z3 p1 J. I H6 R# X
RowBox[{"33", ",", "7"}], "]"}], ",", $ H7 ~+ q/ ?- x# }* e% [: R" S
RowBox[{"CM", "[",
I9 E0 l/ f$ E- R1 W$ x RowBox[{"33", ",", "8"}], "]"}], ",",
% E" S, e7 h' `- m% E. _! N) Y/ B2 k RowBox[{"CM", "[", ' w. Y5 P' Z0 M4 i2 u
RowBox[{"33", ",", "9"}], "]"}]}], "}"}], ",", ) t4 M, t8 y! P7 m( W, a9 ^
RowBox[{"{",
# n2 X' N1 y, l: L RowBox[{
" @( }; D0 U9 w% Q; T! _ RowBox[{"CM", "[", 2 y" o/ I3 K+ V9 S: ~4 r
RowBox[{"34", ",", "1"}], "]"}], ",",
# A9 Q6 L" _/ i$ u0 d9 @ RowBox[{"CM", "[",
/ ^0 F0 y% r! v RowBox[{"34", ",", "2"}], "]"}], ",",
' N7 I J) B I4 Q$ ^& O RowBox[{"CM", "[",
8 y$ l) u& ]) V: h2 S RowBox[{"34", ",", "3"}], "]"}], ",", * F( k6 H. L3 D( U: ?& P2 c
RowBox[{"CM", "[", " U/ p0 \1 \1 R
RowBox[{"34", ",", "4"}], "]"}], ",",
1 f$ }9 X5 {$ T; o4 ?: W RowBox[{"CM", "[", 6 E7 Z, T/ z) z2 i/ e! g
RowBox[{"34", ",", "5"}], "]"}], ",",
! D, g2 _# t( [9 V& u+ }- B RowBox[{"CM", "[",
6 D# U' S. E2 q6 O5 Q4 X RowBox[{"34", ",", "6"}], "]"}], ",",
% m1 o: ?) V2 W, e RowBox[{"CM", "[",
/ s+ D4 L1 ^ Q RowBox[{"34", ",", "7"}], "]"}], ",", o) O7 u7 n8 f- |$ M: z6 y+ m
RowBox[{"CM", "[",
- q5 c# \ w/ z8 C3 _# S( r) k RowBox[{"34", ",", "8"}], "]"}], ",", ( j$ N1 o0 s. l2 v6 @. A
RowBox[{"CM", "[",
- g" d0 ^% k' R$ D, k RowBox[{"34", ",", "9"}], "]"}]}], "}"}], ",", 3 a4 Q7 [. T! ~/ h+ `! d: u9 ?
RowBox[{"{", % j! ?9 A& ?% Y. |0 l
RowBox[{
$ Q# b. R1 L& c$ x( x RowBox[{"CM", "[",
" v d; F6 j) t& a RowBox[{"35", ",", "1"}], "]"}], ",", 8 a X. h* R- b; I( l* F; ?
RowBox[{"CM", "[",
0 G% |* H4 O; r! J* G* Z RowBox[{"35", ",", "2"}], "]"}], ",", 2 J4 u6 a: ]+ r* e) o$ l+ v
RowBox[{"CM", "[", " }" V7 U+ v5 U6 L7 U: W
RowBox[{"35", ",", "3"}], "]"}], ",",
" S# N+ b( t9 ]* ~8 z) M RowBox[{"CM", "[",
. u4 U; S$ ]2 @* u6 w" K9 } RowBox[{"35", ",", "4"}], "]"}], ",",
$ X# o1 {9 `( N. S. Y t RowBox[{"CM", "[",
7 ?% u3 c9 w' g. p( q3 E RowBox[{"35", ",", "5"}], "]"}], ",", : c) ?2 Q) ~/ \- F! {2 f2 h6 n
RowBox[{"CM", "[",
8 u" T) C$ \4 V RowBox[{"35", ",", "6"}], "]"}], ",",
+ m& R0 f; c8 _4 v& T7 Z RowBox[{"CM", "[",
4 v c1 {7 W' ^ RowBox[{"35", ",", "7"}], "]"}], ",",
) g! G8 j! ~7 `) s- O; ~, q, Z RowBox[{"CM", "[", % o" |& D, c( r1 G
RowBox[{"35", ",", "8"}], "]"}], ",",
6 k# P% W1 H7 ^' l1 P RowBox[{"CM", "[", 9 T% J$ ?# d4 j' {1 l
RowBox[{"35", ",", "9"}], "]"}]}], "}"}], ",", K, F6 y( R5 |& G. V3 n8 X
RowBox[{"{",
0 A- k) J* Q( A$ L4 q3 n RowBox[{" U2 \* \) {" d
RowBox[{"CM", "[", " O& ^2 b6 ~. J: ~, X
RowBox[{"36", ",", "1"}], "]"}], ",", ' W& _) A1 z: ?. s p3 o. B4 y
RowBox[{"CM", "[", . t5 |/ ^8 ^3 R( Q3 v) X
RowBox[{"36", ",", "2"}], "]"}], ",", 2 \' b/ L( p: G$ v5 { d. @. F& _
RowBox[{"CM", "[",
% }, \4 T/ j8 K) x' `0 i H# j9 i RowBox[{"36", ",", "3"}], "]"}], ",", ( t, G2 D8 c7 U
RowBox[{"CM", "[",
" a/ c S7 i" C+ X1 y/ h RowBox[{"36", ",", "4"}], "]"}], ",",
! X0 H/ N& o# Z RowBox[{"CM", "[",
/ J& ]5 v+ w+ _6 u. J' G RowBox[{"36", ",", "5"}], "]"}], ",",
+ I' Z/ G2 {% ]9 C, _3 O- o# K RowBox[{"CM", "[", 4 u: g3 L/ d8 j5 ^& G4 E
RowBox[{"36", ",", "6"}], "]"}], ",", 5 S3 f3 n2 a4 j6 p( F3 g4 I
RowBox[{"CM", "[", 3 @9 q& m: n5 H
RowBox[{"36", ",", "7"}], "]"}], ",", 5 Y( k& k. n: P+ N
RowBox[{"CM", "[",
9 L- t$ m$ g7 T" R' Z7 k RowBox[{"36", ",", "8"}], "]"}], ",",
6 z. ~4 d `9 r! O5 A a RowBox[{"CM", "[", 0 l& G: y+ A5 S- c) L" o7 D9 h# e3 S
RowBox[{"36", ",", "9"}], "]"}]}], "}"}], ",",
6 y+ B; D. w; K+ ~$ D( C* b, { RowBox[{"{",
: j, x9 H W q" ?( H RowBox[{ m! J2 J' l# r, u2 f
RowBox[{"CM", "[", - e/ ]* d4 V4 o5 X. q) q
RowBox[{"37", ",", "1"}], "]"}], ",",
X B! N9 }. x+ ^- o RowBox[{"CM", "[", ! b( A* n4 u/ t; N- n1 @
RowBox[{"37", ",", "2"}], "]"}], ",",
7 K- J0 U% s+ R" U6 Q+ c: s' z7 h RowBox[{"CM", "[", ' _: w& {9 _# ]. h6 q4 N
RowBox[{"37", ",", "3"}], "]"}], ",",
3 o" c' w9 T6 R+ c& f- m RowBox[{"CM", "[", 2 f( o& ?% |& D* a& N$ b7 J* a
RowBox[{"37", ",", "4"}], "]"}], ",",
0 f2 m( Y: l# s3 a RowBox[{"CM", "[",
8 W% c9 x0 ?- G+ Z: w, E' { RowBox[{"37", ",", "5"}], "]"}], ",",
5 B) R# r( b& l: C) Z9 N, }1 d RowBox[{"CM", "[",
' e3 k; ]$ k7 q6 @ RowBox[{"37", ",", "6"}], "]"}], ",", - b9 S1 @. O3 _5 S. M
RowBox[{"CM", "[",
4 d2 ~) L4 X/ |+ |& t' T! a. t. Z RowBox[{"37", ",", "7"}], "]"}], ",", 4 [: S( k5 @2 Q/ V5 W2 {
RowBox[{"CM", "[", 5 i7 g5 U7 x+ z
RowBox[{"37", ",", "8"}], "]"}], ",", : R- `9 _( z, Z2 j1 d
RowBox[{"CM", "[",
* ^+ d7 p. D3 c1 f% e RowBox[{"37", ",", "9"}], "]"}]}], "}"}], ",", 6 X' w" A3 @! \2 Y$ g
RowBox[{"{", 6 y, Z8 k6 W" V# p7 P7 y# t. C7 |
RowBox[{
! ^( M) z8 b. [( Z$ c# h RowBox[{"CM", "[",
' z L4 g5 P. N/ F RowBox[{"38", ",", "1"}], "]"}], ",",
1 S, a0 v! L( A4 }/ E0 W( i RowBox[{"CM", "[",
6 k ^9 j3 z1 b3 {5 j& h RowBox[{"38", ",", "2"}], "]"}], ",",
- n n9 o0 o z RowBox[{"CM", "[", / A8 V6 f" T/ U2 }3 p) O: l
RowBox[{"38", ",", "3"}], "]"}], ",", + N: W$ x* z# F. K% j, V( E1 G4 U' W
RowBox[{"CM", "[", 5 U2 }# a {( q
RowBox[{"38", ",", "4"}], "]"}], ",", 7 ~7 V) c5 Z+ a; M/ X* C1 q( |( Y* @( a
RowBox[{"CM", "[",
; W# }/ l4 J. W- V( }8 G, [ RowBox[{"38", ",", "5"}], "]"}], ",",
/ T3 U, E& d3 h RowBox[{"CM", "[",
: z/ ]- j4 |; K7 ~1 T+ M! c: { RowBox[{"38", ",", "6"}], "]"}], ",", / [- t: s1 B; h8 b% R8 n9 G
RowBox[{"CM", "[",
+ z1 i1 b' z# j' u- E8 c9 V RowBox[{"38", ",", "7"}], "]"}], ",",
2 e; K; ~ i% L m, C9 R# R. P RowBox[{"CM", "[", 0 S, H# V- }0 d4 |& f
RowBox[{"38", ",", "8"}], "]"}], ",",
! J0 [% [6 V9 h5 m, J) y RowBox[{"CM", "[",
# Q' u0 f7 A8 F4 H RowBox[{"38", ",", "9"}], "]"}]}], "}"}], ",", * e- w! E/ e% [
RowBox[{"{",
s" U# n, O6 J* |7 J& `* a RowBox[{
; ]- `9 P* Q# I+ z RowBox[{"CM", "[",
* q8 i# a, f# ~0 U5 g1 O RowBox[{"39", ",", "1"}], "]"}], ",", 2 L5 ?) n2 x% w# c
RowBox[{"CM", "[", 7 m$ I! l7 e- {# f* G) b. D8 Q
RowBox[{"39", ",", "2"}], "]"}], ",", 7 P" u0 h1 `: v2 e! @5 L
RowBox[{"CM", "[", 1 }# d" N( D) r5 b S% B0 u
RowBox[{"39", ",", "3"}], "]"}], ",",
" B0 J/ H2 q5 W RowBox[{"CM", "[", + E7 g% A/ F5 d
RowBox[{"39", ",", "4"}], "]"}], ",",
4 v* r) h0 Y! ]2 l" O RowBox[{"CM", "[",
. ?" ^1 h+ d$ F* N6 ?! s6 y4 U6 p RowBox[{"39", ",", "5"}], "]"}], ",",
9 T) ^5 Q6 ~* {4 T0 O, t. @- w; O. h RowBox[{"CM", "[",
6 X$ l& [7 t& Y' A: v RowBox[{"39", ",", "6"}], "]"}], ",", , G( [; R ?/ X+ L) V2 |
RowBox[{"CM", "[",
1 t( H) g, F+ |) A/ Z RowBox[{"39", ",", "7"}], "]"}], ",", - z c; ^# d& I. e5 ~8 f2 f
RowBox[{"CM", "[",
; b6 W- m5 Q, { RowBox[{"39", ",", "8"}], "]"}], ",",
|2 x# ^1 c, c RowBox[{"CM", "[",
* G- ~1 U, z! F- a6 A v8 U RowBox[{"39", ",", "9"}], "]"}]}], "}"}], ",", - j Q/ G+ e, [4 P" y& |- ?
RowBox[{"{",
6 B, K& R5 i; l, P5 ? RowBox[{
: c) y1 `2 N& \6 T6 e! m* _ RowBox[{"CM", "[", , D O. S G& W/ K$ J4 P0 w5 p
RowBox[{"40", ",", "1"}], "]"}], ",",
' C/ Q5 P$ T; v RowBox[{"CM", "[",
+ T/ c# m) f' W u3 ~ RowBox[{"40", ",", "2"}], "]"}], ",",
$ u/ V' w) z8 I9 m RowBox[{"CM", "[", d b5 _+ |2 z9 F
RowBox[{"40", ",", "3"}], "]"}], ",",
4 d2 w7 [8 b) Y, l9 O; v3 | RowBox[{"CM", "[",
) s' d% Q! Y% x+ p) `, q$ i RowBox[{"40", ",", "4"}], "]"}], ",", + h; }7 w' T, Y. F% O I
RowBox[{"CM", "[",
0 \( r5 V, V# j" b/ V RowBox[{"40", ",", "5"}], "]"}], ",",
& Y6 q& I- _7 B/ q RowBox[{"CM", "[",
7 ?# q( Y. i1 b2 Z0 W2 H5 n# M6 i RowBox[{"40", ",", "6"}], "]"}], ",",
- R5 B, x7 R" x* P1 X RowBox[{"CM", "[",
( Q' j) Y( C& c5 x! f RowBox[{"40", ",", "7"}], "]"}], ",", " n! p7 x7 U4 F. P3 M6 g
RowBox[{"CM", "[",
4 \4 s2 g+ ]; d RowBox[{"40", ",", "8"}], "]"}], ",", ( @$ V# f' |* n. r8 f
RowBox[{"CM", "[",
# _0 R& j, \/ Q v+ d RowBox[{"40", ",", "9"}], "]"}]}], "}"}], ",", 8 r0 E( X; ]% Z+ b( E. O& D
RowBox[{"{",
! F0 h! Q( \' F" J2 ] RowBox[{0 J& ?8 F" E- k0 @
RowBox[{"CM", "[", / o' u2 W3 q9 N3 G
RowBox[{"41", ",", "1"}], "]"}], ",", / g- [- u4 I* f1 m' p' z" u# h- k
RowBox[{"CM", "[", 1 s# I7 Y! Q; c* C+ [5 h
RowBox[{"41", ",", "2"}], "]"}], ",",
9 H" o: X2 t$ k8 v9 Z9 k' Z+ D RowBox[{"CM", "[", 1 ^- D' a4 U9 }/ w+ U( b" G
RowBox[{"41", ",", "3"}], "]"}], ",",
) p1 I$ ^+ f2 \4 ?8 h1 z RowBox[{"CM", "[", & X6 F5 \+ r" Z+ F+ S
RowBox[{"41", ",", "4"}], "]"}], ",", & X. h }7 u2 q" ? R
RowBox[{"CM", "[",
( g- O# t, p" A1 x0 _- B RowBox[{"41", ",", "5"}], "]"}], ",",
& S! Z) ]7 }. `9 z* C2 I RowBox[{"CM", "[", & Y9 M9 w9 w1 X& B- s1 F
RowBox[{"41", ",", "6"}], "]"}], ",",
7 N% V5 z- a% W- B RowBox[{"CM", "[",
9 A6 ~$ d1 N5 M, W/ K% K RowBox[{"41", ",", "7"}], "]"}], ",", - i$ `( p: V- ]
RowBox[{"CM", "[", 9 f- t5 m$ N! g2 z5 r
RowBox[{"41", ",", "8"}], "]"}], ",", 5 c, h; K' L+ M# e9 X4 C: P# o
RowBox[{"CM", "[", & q* O) u7 j% w r! T8 H; l
RowBox[{"41", ",", "9"}], "]"}]}], "}"}], ",", . Q5 r1 j3 v' w6 c
RowBox[{"{",
2 L2 y4 C6 D* a1 [* ~# P RowBox[{) S8 Q; D z% |! a
RowBox[{"CM", "[", 8 Z" t ?( L- ~6 {9 i6 N' J
RowBox[{"42", ",", "1"}], "]"}], ",",
- C2 K1 y, P, h: g2 ^& d7 h. T: E RowBox[{"CM", "[", & H- m) k+ Y9 \
RowBox[{"42", ",", "2"}], "]"}], ",",
" y F1 y# B; C7 W% R8 z4 t. o3 z RowBox[{"CM", "[",
) v q0 N$ D& f. C) B RowBox[{"42", ",", "3"}], "]"}], ",", 2 C9 h2 h) C4 g' q' F
RowBox[{"CM", "[",
4 _7 Y, I8 x' G. l2 x2 i RowBox[{"42", ",", "4"}], "]"}], ",",
) y! ]; L1 Q) q( c RowBox[{"CM", "[",
# j8 A) n, e7 ^8 h" M, ]- J RowBox[{"42", ",", "5"}], "]"}], ",",
( `! C: _2 S% h RowBox[{"CM", "[", 9 H; C" |# X" q# W( {. V& Z; P
RowBox[{"42", ",", "6"}], "]"}], ",",
3 O! N- r. x4 q: ` RowBox[{"CM", "[",
8 I8 d8 |+ _. y& M! U! F4 l! m- b) k& z5 E RowBox[{"42", ",", "7"}], "]"}], ",", 1 @+ z- n% U, F. m2 ^8 h$ y
RowBox[{"CM", "[",
! |" V& m3 G4 p( Y7 ~9 D7 H# ?: j RowBox[{"42", ",", "8"}], "]"}], ",", ! p) w4 `% s: t) \9 x& c
RowBox[{"CM", "[", 8 K6 Z5 c" h1 ~& x+ n8 c3 R, o
RowBox[{"42", ",", "9"}], "]"}]}], "}"}], ",",
* N9 k! t! I7 A* A* w1 W RowBox[{"{",
/ o) K3 m: k9 x) h RowBox[{7 D1 U0 z, j; K/ |
RowBox[{"CM", "[", t5 L* \9 p! k8 [) P2 W( Q6 ?8 [/ ?
RowBox[{"43", ",", "1"}], "]"}], ",",
8 H5 q4 e: t4 M, K: U" z& i1 | RowBox[{"CM", "[", $ X3 L5 b9 h) d1 `% Z$ S/ d2 E
RowBox[{"43", ",", "2"}], "]"}], ",", " f/ ^1 z5 T5 D$ s
RowBox[{"CM", "[", 3 ]( w+ Q* H2 j
RowBox[{"43", ",", "3"}], "]"}], ",", $ j/ K% T" i' ^8 u
RowBox[{"CM", "[", - r! ^. Y% w l
RowBox[{"43", ",", "4"}], "]"}], ",", 1 B2 y0 l4 J! v% O" t
RowBox[{"CM", "[",
( [/ d/ W. L/ C6 ]3 X; J! a RowBox[{"43", ",", "5"}], "]"}], ",",
0 H% r- I. Z z: I+ K9 T RowBox[{"CM", "[", + x/ X0 N. z6 _% X* r" A
RowBox[{"43", ",", "6"}], "]"}], ",", / P2 U) m6 Y* }9 Z$ J
RowBox[{"CM", "[",
8 S2 Y2 D1 a9 ~' u7 K0 x6 T RowBox[{"43", ",", "7"}], "]"}], ",",
; ]4 o2 n+ F0 f- M RowBox[{"CM", "[", 1 o$ J3 @8 |; X8 Y3 C ]4 q# p. d
RowBox[{"43", ",", "8"}], "]"}], ",", 9 G% x( X# N8 T& w1 u8 P, ^2 [
RowBox[{"CM", "[",
[# j+ l. M3 X8 u RowBox[{"43", ",", "9"}], "]"}]}], "}"}], ",",
: l9 _# f$ p* ]" Y9 [3 r. {3 G RowBox[{"{",
0 s) |% J4 x3 \9 u& C RowBox[{
6 Y1 ?/ ?! G# R( c& z% o4 ` RowBox[{"CM", "[", 7 E, G% A! l% F, E& R7 k; a/ ^7 h
RowBox[{"44", ",", "1"}], "]"}], ",",
) T7 }9 s( i% y0 D; ? RowBox[{"CM", "[",
/ j& ^2 W6 [2 m: V$ i- _( w3 W5 q RowBox[{"44", ",", "2"}], "]"}], ",", 7 Q7 }1 \, p, m4 v
RowBox[{"CM", "[", : k, U, l: v3 k* X* A* Q8 _
RowBox[{"44", ",", "3"}], "]"}], ",",
8 i+ A- I0 U' C# }4 T& v' b RowBox[{"CM", "[", [! k b( D l% J) y, {2 c/ ?5 _
RowBox[{"44", ",", "4"}], "]"}], ",", 4 O; v4 Y, d3 x& K$ M1 a3 O: ~1 d
RowBox[{"CM", "[", 5 r% n- Z- V& i
RowBox[{"44", ",", "5"}], "]"}], ",",
`1 t: f/ X% _( v6 d* i RowBox[{"CM", "[", % x# M. l' a8 x" Q7 n7 B2 a9 n
RowBox[{"44", ",", "6"}], "]"}], ",", n& |5 e4 w7 j" W8 `! m; f H
RowBox[{"CM", "[", 2 N9 T9 C8 [0 ` f- u4 _' M/ T
RowBox[{"44", ",", "7"}], "]"}], ",", 4 r( u2 e7 w0 Q; ~) ?% H$ t) S+ z9 A) h
RowBox[{"CM", "[",
& B/ F. B' x- ^% h. M8 W RowBox[{"44", ",", "8"}], "]"}], ",", $ A- T$ x9 B x: w. v
RowBox[{"CM", "[", 9 A3 Y: W/ t e' ]8 N
RowBox[{"44", ",", "9"}], "]"}]}], "}"}], ",", , d2 D; {. f% y% |2 A( ?
RowBox[{"{", 7 p9 o4 i+ [# ~9 w/ A' J5 i
RowBox[{
( y) a2 \. W) T5 O. U RowBox[{"CM", "[",
8 v' z( o9 p' W( M4 x4 S RowBox[{"45", ",", "1"}], "]"}], ",", 4 K# L7 u* W2 U; {2 I
RowBox[{"CM", "[",
, |" r0 y0 e. Y! y& m RowBox[{"45", ",", "2"}], "]"}], ",",
4 ?- v, _' d0 r; f! I6 X+ U RowBox[{"CM", "[", 0 H( s9 m2 q+ w* S' T
RowBox[{"45", ",", "3"}], "]"}], ",", G8 F7 X i4 a2 ?+ |) I
RowBox[{"CM", "[",
6 s& Y* r ~- ]. `, L. l RowBox[{"45", ",", "4"}], "]"}], ",",
8 o* x, H! e: l7 V6 q) z RowBox[{"CM", "[", : A; i) s. A' R" I! m+ V: D3 T
RowBox[{"45", ",", "5"}], "]"}], ",", 5 f9 J* e8 U5 o* z: L
RowBox[{"CM", "[", 3 {! u" T# F' f' v- O( w
RowBox[{"45", ",", "6"}], "]"}], ",", & Z: J$ g, S0 _3 T8 b
RowBox[{"CM", "[", 4 b3 z3 h: n7 o' e2 U& f, B
RowBox[{"45", ",", "7"}], "]"}], ",",
+ V* U4 G6 T) [8 D$ `8 u RowBox[{"CM", "[", 6 \/ M% L5 p/ \2 e( a% I3 c3 P3 y
RowBox[{"45", ",", "8"}], "]"}], ",", 8 p( O8 q. |! Q: Y
RowBox[{"CM", "[",
1 O3 F. }8 F- `* g9 m5 |* Q RowBox[{"45", ",", "9"}], "]"}]}], "}"}], ",",
! L- c% D7 @9 o RowBox[{"{",
" `# L) {3 t+ A* V RowBox[{3 a8 ?# i! T' H2 ~5 U; L7 i
RowBox[{"CM", "[",
/ ~$ s" h1 H0 d: k! M' y9 F0 R8 U& h RowBox[{"46", ",", "1"}], "]"}], ",",
8 X: i; o a2 q5 d$ s8 {% I RowBox[{"CM", "[", ; ]) }: P) U& f1 g' B
RowBox[{"46", ",", "2"}], "]"}], ",",
0 |. b( F9 u% J+ S9 a0 H1 u RowBox[{"CM", "[", 9 b" b( y4 F% m- H
RowBox[{"46", ",", "3"}], "]"}], ",", 4 b- k2 _! E6 g$ S
RowBox[{"CM", "[",
( ]; t7 V7 m" p/ O+ V! p RowBox[{"46", ",", "4"}], "]"}], ",", + d; e' I0 @! [
RowBox[{"CM", "[", 9 O3 C" u- w, e( }
RowBox[{"46", ",", "5"}], "]"}], ",", - G1 Y: `. x: w3 T) V" P
RowBox[{"CM", "[",
1 h7 [) Q4 }* l+ B! {5 F RowBox[{"46", ",", "6"}], "]"}], ",",
# U9 v0 N6 `2 ^$ N$ F, m RowBox[{"CM", "[",
1 ?+ m8 h0 L' Z7 z/ G# Z) t1 { RowBox[{"46", ",", "7"}], "]"}], ",",
2 @9 f* t3 z( p7 H RowBox[{"CM", "[", # }, _$ X6 ?4 N% w
RowBox[{"46", ",", "8"}], "]"}], ",", # z- d) k& d2 n* }. N
RowBox[{"CM", "[", 2 L7 ^% e7 D E* j8 j
RowBox[{"46", ",", "9"}], "]"}]}], "}"}], ",", " ~; z; }+ q* t1 [. T$ i+ a
RowBox[{"{",
' |5 P) f+ m$ q- h# K( O& A RowBox[{4 G, D# [* M6 Y
RowBox[{"CM", "[", ' b) G- z7 H4 J$ T( D) f9 H
RowBox[{"47", ",", "1"}], "]"}], ",",
1 D" S4 F$ i% V/ ]4 H! U RowBox[{"CM", "[",
$ ~; L+ i! a( M) Q RowBox[{"47", ",", "2"}], "]"}], ",", ) j+ N9 O0 ^% p8 E t( N
RowBox[{"CM", "[", 5 _( T9 r* p6 Z/ q. Q
RowBox[{"47", ",", "3"}], "]"}], ",",
* Y5 S- @# P. U RowBox[{"CM", "[",
T4 p/ }/ [3 D0 L: b% j RowBox[{"47", ",", "4"}], "]"}], ",",
: A$ d# ^0 _* t/ ] RowBox[{"CM", "[",
' |% Z9 p0 l, o& _ RowBox[{"47", ",", "5"}], "]"}], ",",
6 G0 k& l: J& w! h! D! } RowBox[{"CM", "[",
; G2 R' H& `8 x/ N; i5 \ RowBox[{"47", ",", "6"}], "]"}], ",",
# T8 ~3 P) Z6 N7 E" Q RowBox[{"CM", "[",
' [# u9 ` {9 z# {, C; w RowBox[{"47", ",", "7"}], "]"}], ",",
( k0 s6 Q0 y; N RowBox[{"CM", "[",
* ?+ w8 R0 f( d RowBox[{"47", ",", "8"}], "]"}], ",", ) Q7 s- m' `/ y5 Q" ~5 ~' I: }7 m
RowBox[{"CM", "[", , Z1 R6 [: j7 i3 L
RowBox[{"47", ",", "9"}], "]"}]}], "}"}], ",",
" F6 d6 \6 x( x7 n* R" e5 \- t RowBox[{"{",
9 d+ s+ s" w D$ |1 ~/ S/ d: _ RowBox[{
9 y% v# F; [5 @$ X k ?1 ~9 p. A/ C RowBox[{"CM", "[",
1 q- l$ U! a; g- B7 @ RowBox[{"48", ",", "1"}], "]"}], ",",
9 I" _7 e( a8 U0 x RowBox[{"CM", "[", ' W' D9 R: i* H/ |! b* C
RowBox[{"48", ",", "2"}], "]"}], ",", 7 `9 l/ H+ k( p+ B
RowBox[{"CM", "[",
; j8 M- m) s g) k1 H& f RowBox[{"48", ",", "3"}], "]"}], ",", & k. G1 z/ @/ ?
RowBox[{"CM", "[", 1 W F6 |* M; t- }# s1 T
RowBox[{"48", ",", "4"}], "]"}], ",", ; k& v( q: g9 ]
RowBox[{"CM", "[",
# R: }4 L, u1 V; j" Z2 C l RowBox[{"48", ",", "5"}], "]"}], ",", 9 b% d5 W( ?- n; ]: \1 L
RowBox[{"CM", "[",
1 H5 D9 H# C) {! Y! D: P3 R& V' K4 N7 k RowBox[{"48", ",", "6"}], "]"}], ",",
# L; G! ~, E3 k+ n RowBox[{"CM", "[", # g3 S$ k& j. Q6 z6 U( R, t4 ^
RowBox[{"48", ",", "7"}], "]"}], ",", ' p+ w6 u& ~& A5 `8 ~
RowBox[{"CM", "[",
/ x& [0 O5 ~' M) J! y RowBox[{"48", ",", "8"}], "]"}], ",", 7 H( k* O, z4 h- q$ }# P8 w) ^2 Q
RowBox[{"CM", "[", & m2 N: Q( k n, o- o* `& u
RowBox[{"48", ",", "9"}], "]"}]}], "}"}], ",",
) {( i' q3 I4 C+ p; o! u' v RowBox[{"{",
7 z* o. Q2 K( U$ y# i# p RowBox[{
0 `8 ~4 G' j0 E; ~ RowBox[{"CM", "[",
$ K# U( X w+ L" \; P, e: S RowBox[{"49", ",", "1"}], "]"}], ",",
, p& E. ?" H2 c; C+ k8 @ RowBox[{"CM", "[", % I9 l) T9 T6 o& U- C/ _! X
RowBox[{"49", ",", "2"}], "]"}], ",", 4 J1 @" g# K- {; B: f" [6 B
RowBox[{"CM", "[", : b5 v' [* i+ R8 _" r
RowBox[{"49", ",", "3"}], "]"}], ",", ( Z2 `. @( f Z p+ i* s8 g3 \
RowBox[{"CM", "[",
! B4 Z% o- ^& ]% B0 q" x5 \ RowBox[{"49", ",", "4"}], "]"}], ",", * V! p' g! y0 C; H) C7 n
RowBox[{"CM", "[",
: ^3 i& C: y* a( }/ f6 Q7 f RowBox[{"49", ",", "5"}], "]"}], ",",
) C: K6 S. K: U& K" E" O" A RowBox[{"CM", "[",
: c" y4 t! {$ k8 F RowBox[{"49", ",", "6"}], "]"}], ",",
7 T7 N' u# g; U& k- I RowBox[{"CM", "[", ~0 {4 F m- Y, X- [0 b4 @' s
RowBox[{"49", ",", "7"}], "]"}], ",", 3 \1 v- P3 ^+ R
RowBox[{"CM", "[",
5 y9 {3 r, e$ Q2 j0 @* ~5 [. \+ J RowBox[{"49", ",", "8"}], "]"}], ",",
3 K! e" B9 w8 \ }1 h2 M4 m) p RowBox[{"CM", "[", + `2 X# k m* u
RowBox[{"49", ",", "9"}], "]"}]}], "}"}], ",",
. \4 G' a- I9 z8 w. A RowBox[{"{",
8 T% Z! r2 i6 p3 _0 U+ X RowBox[{
; R0 K& l6 h. Y$ R O RowBox[{"CM", "[", - [$ F R9 I3 U& I& R
RowBox[{"50", ",", "1"}], "]"}], ",", 5 w1 R" ]% N. M2 l' A$ Z/ p0 K
RowBox[{"CM", "[",
! ~# u) T6 B. _; w# Z# \3 H2 _ RowBox[{"50", ",", "2"}], "]"}], ",",
" L3 @$ |! d0 W, R RowBox[{"CM", "[",
4 g, _/ I1 g2 v9 y RowBox[{"50", ",", "3"}], "]"}], ",", ) Q4 z8 _: m% `8 V' H( }2 `
RowBox[{"CM", "[",
* }/ u+ y+ Y3 ^7 z. ^ RowBox[{"50", ",", "4"}], "]"}], ",", 1 |: L8 b( D0 Y
RowBox[{"CM", "[", 6 U$ B# \5 C! K9 f
RowBox[{"50", ",", "5"}], "]"}], ",", * b# E, s% H% U |& ?: n
RowBox[{"CM", "[", + M) g3 i+ H/ I+ G. d5 {/ P* g( c3 A
RowBox[{"50", ",", "6"}], "]"}], ",",
- K9 J# N! j$ M3 X RowBox[{"CM", "[",
5 q- b7 Z. b/ r2 T RowBox[{"50", ",", "7"}], "]"}], ",", $ @, O' t* b. f. f4 R
RowBox[{"CM", "[", $ u: z8 H7 S/ @' j+ ~/ }
RowBox[{"50", ",", "8"}], "]"}], ",",
4 C6 _- l# v% |2 z. L RowBox[{"CM", "[", 2 X8 a7 c/ ]. M p
RowBox[{"50", ",", "9"}], "]"}]}], "}"}], ",",
; B/ M7 f0 O9 @+ ]$ k RowBox[{"{",
/ b8 W y# F3 y5 X/ a6 d3 `3 I RowBox[{
3 G$ `+ R2 E. |9 `( a/ q RowBox[{"CM", "[", 1 V5 p% V5 V; N5 b( n
RowBox[{"51", ",", "1"}], "]"}], ",", ) B. p1 j# \/ S4 l( B6 P
RowBox[{"CM", "[", 7 d T$ H. \- b6 `/ a' A
RowBox[{"51", ",", "2"}], "]"}], ",", ; ^: W. [* H( K; c
RowBox[{"CM", "[", : M/ i3 n) ^# Y0 Y
RowBox[{"51", ",", "3"}], "]"}], ",",
& Y( O7 x% Q5 G- o+ O3 n RowBox[{"CM", "[",
$ f6 P) K; i$ j. ^, a8 w9 s8 H RowBox[{"51", ",", "4"}], "]"}], ",", 9 k+ T, o& W9 z2 c9 H! P- L
RowBox[{"CM", "[", & l. k7 E5 \; x' f1 Z
RowBox[{"51", ",", "5"}], "]"}], ",",
' g l6 z" H3 d4 q: X) e RowBox[{"CM", "[",
, y" ]8 g. m/ Y RowBox[{"51", ",", "6"}], "]"}], ",", 6 S- Z7 V3 [8 k* n/ }' @
RowBox[{"CM", "[", - u; ?& |7 J" z- A7 V4 k0 Z
RowBox[{"51", ",", "7"}], "]"}], ",",
+ y+ T5 T( ^ L& I2 g RowBox[{"CM", "[", 9 b: }& e0 J% \. N" h$ J1 u
RowBox[{"51", ",", "8"}], "]"}], ",",
! z C7 v8 |% x7 g3 t RowBox[{"CM", "[", 6 h. q5 A0 o; [
RowBox[{"51", ",", "9"}], "]"}]}], "}"}], ",",
) c7 a5 E/ h5 ^0 c T8 f RowBox[{"{", 6 X; n1 `# N* S% H/ ~
RowBox[{' D- {) [' l/ t, V/ }
RowBox[{"CM", "[",
% |" k* q$ t+ O& b" B RowBox[{"52", ",", "1"}], "]"}], ",",
- h& a' ~7 W( b- @7 c$ X) X' O) S RowBox[{"CM", "[",
- w4 r5 i, M, \, S RowBox[{"52", ",", "2"}], "]"}], ",",
, T) v& B( n- C; M1 A X9 C' ? RowBox[{"CM", "[",
2 m8 a. M. H! \5 i RowBox[{"52", ",", "3"}], "]"}], ",",
8 x Q6 o5 r2 @ RowBox[{"CM", "[", B) {5 @7 W& z" s3 m4 `/ C$ S
RowBox[{"52", ",", "4"}], "]"}], ",", ( e1 m% {) f' P+ \& j- t
RowBox[{"CM", "[",
2 N# @7 x3 g$ z O# r; Q4 \ RowBox[{"52", ",", "5"}], "]"}], ",", + k* R F5 x2 j. t; V& k
RowBox[{"CM", "[",
- t, D& f# F- j2 k e. k4 J$ ` RowBox[{"52", ",", "6"}], "]"}], ",",
' d1 F5 ]# P4 M+ g9 f, c RowBox[{"CM", "[",
3 j1 i" @8 K7 {4 k RowBox[{"52", ",", "7"}], "]"}], ",",
+ G+ V$ o! [! X9 p1 L; m RowBox[{"CM", "[", 9 u( q' U1 b7 m4 }. U. g$ |
RowBox[{"52", ",", "8"}], "]"}], ",", $ y y; \2 U, P" T$ `$ Z$ D
RowBox[{"CM", "[",
% T6 g+ y' x: f! y RowBox[{"52", ",", "9"}], "]"}]}], "}"}], ",",
* @7 \# w6 `& P# r RowBox[{"{", . K; f8 j9 w; }% J& E4 v
RowBox[{, L2 q# p. b8 B. v
RowBox[{"CM", "[", c) `$ i) B3 C
RowBox[{"53", ",", "1"}], "]"}], ",", - w. L" O9 p- e( {1 Z& U; r+ n
RowBox[{"CM", "[",
1 a/ `1 c( \6 W RowBox[{"53", ",", "2"}], "]"}], ",",
* U& {& w$ U" R9 R) z3 Z RowBox[{"CM", "[", 5 O: f) ?! }+ k0 K, W
RowBox[{"53", ",", "3"}], "]"}], ",", # x/ I! _! l$ h9 z' I
RowBox[{"CM", "[",
. _- } R" L6 S1 `, p+ o RowBox[{"53", ",", "4"}], "]"}], ",",
0 v) z+ o3 N8 n0 b4 v* J RowBox[{"CM", "[", - b/ g* ?7 C3 [5 M, F% U
RowBox[{"53", ",", "5"}], "]"}], ",", # p5 u$ k; ^) ?
RowBox[{"CM", "[",
* z0 R; e' ` w) b- K/ t. z RowBox[{"53", ",", "6"}], "]"}], ",", 1 x4 ]4 R- P2 }- K5 U0 T$ e
RowBox[{"CM", "[",
) u5 s% \, H) Z( W RowBox[{"53", ",", "7"}], "]"}], ",", & a# Q( a+ _7 ?, R$ ?
RowBox[{"CM", "[",
+ a1 [/ S% A3 p RowBox[{"53", ",", "8"}], "]"}], ",", 7 Q- t: c) O- O4 g
RowBox[{"CM", "[", v2 v2 n" y2 m. O" f
RowBox[{"53", ",", "9"}], "]"}]}], "}"}], ",",
* ?6 G {7 C& v/ H5 |0 N r RowBox[{"{",
6 O# K& [. B0 ^0 [+ U4 N RowBox[{3 W) K" ~3 h2 A P2 Y& {
RowBox[{"CM", "[", / n- l' J( x6 h' b
RowBox[{"54", ",", "1"}], "]"}], ",", . H$ T9 }! L1 R8 _8 J7 e: S: ^1 F
RowBox[{"CM", "[",
. J/ `; c! x" t/ p; P RowBox[{"54", ",", "2"}], "]"}], ",", 1 \2 ^' j9 W7 C9 v
RowBox[{"CM", "[",
% O2 O" n% I+ D. Z- T$ Z0 m/ q9 g RowBox[{"54", ",", "3"}], "]"}], ",", - t5 h+ m5 K1 a. s
RowBox[{"CM", "[", 0 t+ Q; L% N9 ]/ Z, V+ a
RowBox[{"54", ",", "4"}], "]"}], ",", . q0 z8 ?1 {& [3 c
RowBox[{"CM", "[", 9 w: g0 [9 r# N! @
RowBox[{"54", ",", "5"}], "]"}], ",",
' h0 M( w2 G+ N. e RowBox[{"CM", "[",
' S# t9 k: r' D* o: F RowBox[{"54", ",", "6"}], "]"}], ",",
2 A5 P. D8 Z4 p2 S! e6 } }: Y& U RowBox[{"CM", "[",
. T0 h R. d' e9 O( n. u& F RowBox[{"54", ",", "7"}], "]"}], ",", ' N& x# f) X/ G( h/ T0 D( W
RowBox[{"CM", "[", 1 |9 N/ _/ K3 B9 Z) K Y4 Y( Z
RowBox[{"54", ",", "8"}], "]"}], ",",
1 ^( P @9 M, |& N RowBox[{"CM", "[",
4 K0 i7 m! w2 j+ X/ ~ RowBox[{"54", ",", "9"}], "]"}]}], "}"}], ",", & x# M2 ?0 {0 h1 ~
RowBox[{"{",
4 _- j5 A5 S! I RowBox[{
( Y- g2 L( F3 O. R; { RowBox[{"CM", "[", 4 P& U9 N9 L, Y, ]
RowBox[{"55", ",", "1"}], "]"}], ",",
2 R/ q& d7 j, w) {( M- a RowBox[{"CM", "[",
$ y. u H7 l9 ?& v3 g% d RowBox[{"55", ",", "2"}], "]"}], ",", 3 a3 q( J; \- f
RowBox[{"CM", "[", 4 E0 |. h" ^" y& {
RowBox[{"55", ",", "3"}], "]"}], ",",
- L7 B- @3 R0 {# {" S( C RowBox[{"CM", "[",
: ^. Q' [" N! \/ \7 { RowBox[{"55", ",", "4"}], "]"}], ",", 8 z* J5 }5 r8 H- Y/ i
RowBox[{"CM", "[",
2 H, n3 Q h J( U4 t6 t4 ` RowBox[{"55", ",", "5"}], "]"}], ",", & f! C+ P* _4 L q) f4 `6 `; z
RowBox[{"CM", "[", , R& z) x2 K ]2 d, j" j
RowBox[{"55", ",", "6"}], "]"}], ",",
& j( G# }" X' b RowBox[{"CM", "[", ! s' A% i9 o0 r% O1 s
RowBox[{"55", ",", "7"}], "]"}], ",", 6 [/ [6 J% W* |4 ~% C8 f+ x
RowBox[{"CM", "[",
0 i4 H$ B* w3 U- j RowBox[{"55", ",", "8"}], "]"}], ",", . L6 X; m" J( C4 x
RowBox[{"CM", "[",
6 V" V0 ~8 ?8 H) [0 K RowBox[{"55", ",", "9"}], "]"}]}], "}"}], ",", 4 D$ U5 I1 N" \% }0 C
RowBox[{"{",
* d6 T. \$ B6 T/ ]8 @" @; V RowBox[{6 c; O7 m" x7 P' p u$ l
RowBox[{"CM", "[", 7 z+ C0 w1 }8 x: i1 i* t8 {
RowBox[{"56", ",", "1"}], "]"}], ",", & z/ z$ {& V; s# ]: K7 R
RowBox[{"CM", "[", 4 U- h" `. g0 h" Z
RowBox[{"56", ",", "2"}], "]"}], ",",
' @3 z3 M1 D, U( O/ Z6 t RowBox[{"CM", "[",
; w/ @& e" q; e- G) R RowBox[{"56", ",", "3"}], "]"}], ",",
1 A: `* _+ o4 {9 }; }( O! } RowBox[{"CM", "[",
* z. g8 ^7 M6 f% [1 V RowBox[{"56", ",", "4"}], "]"}], ",",
3 T$ C- d$ B0 B5 \ RowBox[{"CM", "[", ! c, ? \1 A. T8 g H" X9 K
RowBox[{"56", ",", "5"}], "]"}], ",", + J0 \+ D! d5 }6 p9 Y
RowBox[{"CM", "[",
2 F B0 E/ `5 A: n" ]4 u$ r, Y RowBox[{"56", ",", "6"}], "]"}], ",",
1 V5 S5 C2 T5 ~9 p- c RowBox[{"CM", "[",
# V8 ]2 N5 e: P% \ RowBox[{"56", ",", "7"}], "]"}], ",", 1 |9 W( s1 r' {8 @, V2 z
RowBox[{"CM", "[", 4 u- ^& d1 k4 @8 h! c2 D) L
RowBox[{"56", ",", "8"}], "]"}], ",",
! P7 Z2 N% ~, G! ^- x" d! @ RowBox[{"CM", "[", % J6 i6 G6 [' j1 V& T
RowBox[{"56", ",", "9"}], "]"}]}], "}"}], ",",
+ A& j5 [" v' h8 B* g RowBox[{"{",
4 Q# A+ j9 ~" ~# d `# b RowBox[{ |1 d) @/ C$ X: L ?8 m9 {
RowBox[{"CM", "[", ! x2 V0 n& [4 r S3 z' [/ Z K; d
RowBox[{"57", ",", "1"}], "]"}], ",",
2 s$ f0 F8 V/ u, l- Y RowBox[{"CM", "[",
7 B6 `$ _4 S' p# A RowBox[{"57", ",", "2"}], "]"}], ",",
9 W' Z5 H" v7 }6 _1 r( Z, p RowBox[{"CM", "[", & ~5 f4 F; q, Z# r! c/ L3 m& ~
RowBox[{"57", ",", "3"}], "]"}], ",", * m1 [) v- D1 a9 y# ~7 c
RowBox[{"CM", "[", 8 p+ v$ h8 W* s9 |: a
RowBox[{"57", ",", "4"}], "]"}], ",",
: P( x [8 [7 h4 S7 k# `# S8 C- X7 q RowBox[{"CM", "[", " {% Y; r y/ Q2 a( t: Z
RowBox[{"57", ",", "5"}], "]"}], ",",
; Y2 e" C5 Q" B9 M RowBox[{"CM", "[", ( ?0 y1 V/ R* @* @
RowBox[{"57", ",", "6"}], "]"}], ",",
6 g5 g2 J+ V4 `/ y @5 c) O RowBox[{"CM", "[",
( Z$ {6 V1 g# j v. X2 _/ k RowBox[{"57", ",", "7"}], "]"}], ",",
, i8 g8 T+ f! e+ b! M C8 }" s; y% w RowBox[{"CM", "[", , `7 Z4 R* ~& x. L3 S. W& y. K
RowBox[{"57", ",", "8"}], "]"}], ",", & x3 U" j4 N8 ~5 t1 D# J' }
RowBox[{"CM", "[", ! H( q8 D$ s F: f) }: h
RowBox[{"57", ",", "9"}], "]"}]}], "}"}], ",", 8 b, a2 a0 r1 k7 O* @2 s) G4 s
RowBox[{"{", 9 ^. U0 t& j9 |3 `
RowBox[{8 O) C1 b9 z5 J$ {9 _/ A5 a+ [
RowBox[{"CM", "[", 8 f! k& W3 T# y! E) V- K
RowBox[{"58", ",", "1"}], "]"}], ",", * \: J! s! T' C8 m
RowBox[{"CM", "[",
. d* k6 w$ \5 g6 h* J RowBox[{"58", ",", "2"}], "]"}], ",", - `! `3 u* n& ^) a; E* t/ Y- x
RowBox[{"CM", "[", / W: {' M$ S% T
RowBox[{"58", ",", "3"}], "]"}], ",", ) L: V1 z+ K& B, Y- D$ W0 T
RowBox[{"CM", "[",
6 V, C) I ]" Y4 o/ l RowBox[{"58", ",", "4"}], "]"}], ",",
- j+ P8 F; A/ D' a" b. L0 O. G RowBox[{"CM", "[", 4 Q. c3 M' z3 G9 u: x7 S+ R
RowBox[{"58", ",", "5"}], "]"}], ",",
$ V% [9 u' L$ _, j% j RowBox[{"CM", "[", 6 y1 C7 t( [% E8 B$ [5 p- |7 F
RowBox[{"58", ",", "6"}], "]"}], ",", 1 p' [0 h4 [, J6 ?; p
RowBox[{"CM", "[",
+ G7 J, V7 }: O( n6 w- {8 A RowBox[{"58", ",", "7"}], "]"}], ",",
w$ `* b! C8 z! \ RowBox[{"CM", "[", 7 \' Q6 j9 f/ e- N
RowBox[{"58", ",", "8"}], "]"}], ",",
4 `4 K" D0 H" O) t" d2 v, G1 ? RowBox[{"CM", "[",
y5 e; A* W2 [4 g RowBox[{"58", ",", "9"}], "]"}]}], "}"}], ",",
3 k7 Y# S4 C4 A# J/ x3 d RowBox[{"{",
# R/ P* @" W/ d7 A; t RowBox[{
, z8 F1 g5 M& }8 `: S0 q RowBox[{"CM", "[",
0 m, P v1 I, n4 x% s6 e# K' ? W RowBox[{"59", ",", "1"}], "]"}], ",",
% F- t; p; v" V2 Q" J. l) Y1 r RowBox[{"CM", "[",
- d& }; F8 _- Q$ s RowBox[{"59", ",", "2"}], "]"}], ",",
4 [ Z2 }" [6 Z, P RowBox[{"CM", "[",
* j D6 O2 Q6 m( s! D RowBox[{"59", ",", "3"}], "]"}], ",", 2 C1 D2 l2 ^: R0 s- F
RowBox[{"CM", "[",
2 R$ ~- B9 @$ t4 Z RowBox[{"59", ",", "4"}], "]"}], ",",
p* U( j( x) B& m# f- m6 z$ k RowBox[{"CM", "[",
: V. V* Y5 i& ~, E b' w. N RowBox[{"59", ",", "5"}], "]"}], ",",
* L+ m2 L0 G. F t RowBox[{"CM", "[", - \4 M* P7 u @: H. V/ z. X w
RowBox[{"59", ",", "6"}], "]"}], ",", / H- F9 d7 T- F
RowBox[{"CM", "[",
0 d8 m+ w) r- a4 H/ G W RowBox[{"59", ",", "7"}], "]"}], ",", * B" g& F" f4 g _/ P2 c( ^" E
RowBox[{"CM", "[",
& v! k$ t4 ?' C- r/ m7 s RowBox[{"59", ",", "8"}], "]"}], ",", . h, I2 R) x) x6 {' F, v9 p/ l- `
RowBox[{"CM", "[",
/ K1 F% b4 I& A8 _* ? RowBox[{"59", ",", "9"}], "]"}]}], "}"}], ",",
* h2 i1 s( M8 k/ n6 X8 t1 Y) x RowBox[{"{", 9 a4 X0 c$ [# ]$ l* F+ Q" C
RowBox[{
& c6 ?0 S; _" e: P4 O0 O# l2 w* h1 X RowBox[{"CM", "[", + N r4 q: ^2 u6 Z
RowBox[{"60", ",", "1"}], "]"}], ",",
) N7 S% ]0 @0 C2 A' V0 M RowBox[{"CM", "[",
$ ~3 p' n+ I8 ?9 H m* \4 Z. E RowBox[{"60", ",", "2"}], "]"}], ",",
8 {* m) s6 ? g; y4 ^( Q" e& T0 M( q4 b& O k RowBox[{"CM", "[", - L9 m7 P) c R1 k; ?) s4 m
RowBox[{"60", ",", "3"}], "]"}], ",", 3 ^5 }( M' S, Q" D7 v" h+ R
RowBox[{"CM", "[", % y$ `7 W# Y4 R- q. I1 D
RowBox[{"60", ",", "4"}], "]"}], ",",
, u# c4 ]3 }. V RowBox[{"CM", "[", 8 n; z; b( b2 h3 k
RowBox[{"60", ",", "5"}], "]"}], ",", % j/ G9 n( Z/ ]1 ~% A8 E1 G
RowBox[{"CM", "[",
7 ]6 a! _2 C5 a* \ RowBox[{"60", ",", "6"}], "]"}], ",",
& T% N+ C% e$ M$ w( z RowBox[{"CM", "[",
: [ ~5 C$ O+ ~5 b& \ RowBox[{"60", ",", "7"}], "]"}], ",", - @# |* [. I' [1 c& c0 `# E
RowBox[{"CM", "[",
# u) [: j ]& B, y9 b' G. z! w RowBox[{"60", ",", "8"}], "]"}], ",", 9 z6 g9 `' H; [5 @
RowBox[{"CM", "[",
" O* m& r( c- q& \# I5 z RowBox[{"60", ",", "9"}], "]"}]}], "}"}], ",",
! k2 e) E' @( @ ^ D1 M# Q4 u0 L RowBox[{"{", 6 r8 q; \ v1 I2 A- t/ M" y
RowBox[{
/ t2 Q) Q( f9 U, Y$ T; Q* F1 Y! B RowBox[{"CM", "[",
4 V2 }) \# W8 b0 }3 K RowBox[{"61", ",", "1"}], "]"}], ",",
9 z: h3 u& V2 a9 y( U S7 Z- H RowBox[{"CM", "[", - S% v9 Q% w8 _1 a
RowBox[{"61", ",", "2"}], "]"}], ",", + P6 A; D8 _/ }5 b* g- ]2 D
RowBox[{"CM", "[", ' C4 h9 ~& }, r: D2 H9 ^. }% v
RowBox[{"61", ",", "3"}], "]"}], ",",
l! Q. \+ [- O+ u: ^; a( I2 Z. t1 q RowBox[{"CM", "[", ! o. C [7 a: Y0 I# @
RowBox[{"61", ",", "4"}], "]"}], ",",
( }4 E% M& M( l( n) q( m( ?+ ` RowBox[{"CM", "[",
a2 T; u( ?$ R2 l+ R: x/ X RowBox[{"61", ",", "5"}], "]"}], ",", 3 W5 [& r! f+ _6 F3 i6 U
RowBox[{"CM", "[", ! H# }3 \ {# L
RowBox[{"61", ",", "6"}], "]"}], ",", ; e4 g3 F8 l2 B F8 f
RowBox[{"CM", "[",
/ \& S3 b- a& z+ U% ` RowBox[{"61", ",", "7"}], "]"}], ",", $ y _' M0 v: O8 R2 K5 ?' Z* K
RowBox[{"CM", "[", ( z1 ~) Y5 f4 v
RowBox[{"61", ",", "8"}], "]"}], ",",
" c& }& r% W p$ e7 d2 L4 n8 o2 P RowBox[{"CM", "[",
! ]8 z( T9 x7 d8 H/ r RowBox[{"61", ",", "9"}], "]"}]}], "}"}], ",",
6 O* J- X( O& R- Y RowBox[{"{", 3 X# Z2 T' M8 L* b; B; r
RowBox[{5 Q# r8 r+ k, l5 v
RowBox[{"CM", "[", 7 j! _' c" A1 c6 i. o
RowBox[{"62", ",", "1"}], "]"}], ",",
2 S3 B3 }/ V4 W9 m- A8 T% l' G" C RowBox[{"CM", "[", 4 R# P6 E4 Q$ p8 d+ h
RowBox[{"62", ",", "2"}], "]"}], ",",
) Q% S4 e" o( E- r RowBox[{"CM", "[",
1 a J; E2 `& ] RowBox[{"62", ",", "3"}], "]"}], ",",
7 @' ^1 \; R! O) u; @ RowBox[{"CM", "[", 1 V C2 k$ Y2 _
RowBox[{"62", ",", "4"}], "]"}], ",",
3 i1 p+ b& V3 `5 \' T" K8 l RowBox[{"CM", "[", ' W2 M7 D2 P7 q& u) d& K
RowBox[{"62", ",", "5"}], "]"}], ",", % w/ |+ m: _4 U
RowBox[{"CM", "[", ; W2 q0 c, c) C, s( c
RowBox[{"62", ",", "6"}], "]"}], ",", + i% b" @: B7 y" @7 I. S! P8 M
RowBox[{"CM", "[",
+ K% r& X( z% @6 m$ R$ J RowBox[{"62", ",", "7"}], "]"}], ",", / w" D( R6 ?- L0 }5 T3 K7 }" E; D# i
RowBox[{"CM", "[",
' i: T+ h% \( @- M2 z, y% h RowBox[{"62", ",", "8"}], "]"}], ",", 5 {+ j: Q8 @, u/ n/ V$ ?
RowBox[{"CM", "[",
) T/ i, ?0 g# u$ i6 _( ? RowBox[{"62", ",", "9"}], "]"}]}], "}"}], ",",
7 E9 e$ C0 p& j: i5 N8 B, ] RowBox[{"{", ' D1 `' _% ^% m0 v2 d& j4 Z ^
RowBox[{
% v+ X( b# Y* B& _# w RowBox[{"CM", "[", 0 L! i: ]; P" ]
RowBox[{"63", ",", "1"}], "]"}], ",",
1 u, h, A5 X( A) Q3 L5 X* v RowBox[{"CM", "[", 1 x& s3 d; P& {" B2 h
RowBox[{"63", ",", "2"}], "]"}], ",",
, Y; Y( ~, i, w- ^4 S1 [7 ~% y RowBox[{"CM", "[", & g1 W( D% }# P9 d
RowBox[{"63", ",", "3"}], "]"}], ",", 5 {' `2 T3 U7 v( r5 a9 v
RowBox[{"CM", "[",
/ X; Z- m% k5 [' k RowBox[{"63", ",", "4"}], "]"}], ",",
3 r$ S4 o. i7 `! D/ \# f# \ RowBox[{"CM", "[",
5 p; Y; s* x0 S RowBox[{"63", ",", "5"}], "]"}], ",", - @( V$ D z4 N, t5 k M: n5 B
RowBox[{"CM", "[", / B) h5 P+ ~4 ]
RowBox[{"63", ",", "6"}], "]"}], ",", 2 m# G" ~5 S9 G" y0 x1 J
RowBox[{"CM", "[",
5 J( _' S9 V) L! W* A8 s" o3 F6 E RowBox[{"63", ",", "7"}], "]"}], ",", & U1 A# f. U2 k1 _& \. u! @- c
RowBox[{"CM", "[",
4 T0 L5 ?6 _# H# W RowBox[{"63", ",", "8"}], "]"}], ",", ' J& Q& {# N, Y& L6 ^+ r9 C
RowBox[{"CM", "[",
) K7 l" k) Z/ D- G1 Z' i1 U% w6 J RowBox[{"63", ",", "9"}], "]"}]}], "}"}], ",", 9 y/ M- l x7 g# B( X6 S
RowBox[{"{", 3 V, h& O5 m: g( g Q; O% C
RowBox[{7 Y [ ~% s, q' @: {
RowBox[{"CM", "[",
8 r8 k+ ^ B# e' ~6 A( T! y RowBox[{"64", ",", "1"}], "]"}], ",",
7 D+ ?# H) i' d+ a0 `% |: k RowBox[{"CM", "[",
6 b. L/ S3 o! b, r RowBox[{"64", ",", "2"}], "]"}], ",",
# L, }5 t- F/ J M7 S7 F RowBox[{"CM", "[",
' F+ Q* s: P8 t2 ?7 e RowBox[{"64", ",", "3"}], "]"}], ",", 8 G$ ^7 s1 p% G
RowBox[{"CM", "[",
; ]+ f8 A2 C1 k8 t- A& p' x4 z RowBox[{"64", ",", "4"}], "]"}], ",",
/ b. f7 [8 ^& ` RowBox[{"CM", "[",
4 v% h& r; s) d3 A! ^- V9 \ RowBox[{"64", ",", "5"}], "]"}], ",",
5 H0 p1 B/ N' {: n. r; _- Z$ B9 n& J RowBox[{"CM", "[",
, F- T1 D5 B6 [' f# T RowBox[{"64", ",", "6"}], "]"}], ",",
: x: P1 k x) r5 | RowBox[{"CM", "[", 1 p# I P4 ^% V0 v
RowBox[{"64", ",", "7"}], "]"}], ",", ' p. e. V# c* p7 v2 e2 G8 Y
RowBox[{"CM", "[",
1 W' l- Y( u L4 _# w( r/ |3 R RowBox[{"64", ",", "8"}], "]"}], ",", ) A; p- I2 U9 U8 q& V) x
RowBox[{"CM", "[",
. U& f# T! W3 X8 G7 `' O' V' s RowBox[{"64", ",", "9"}], "]"}]}], "}"}], ",", # u" C9 i! f) @, O2 F- g
RowBox[{"{",
2 S, U# x9 y6 y2 V# c, [ RowBox[{
+ H8 y; i7 B0 [' G5 c5 D( B& {1 ^ RowBox[{"CM", "[", , H0 k/ B' z6 R5 N
RowBox[{"65", ",", "1"}], "]"}], ",",
! U. U+ ?$ q' ^" S: @& O RowBox[{"CM", "[",
0 _3 d5 ?' q1 j' ^$ a- y1 b- i RowBox[{"65", ",", "2"}], "]"}], ",", 6 N0 `( c. L- i0 w5 S) Z% \
RowBox[{"CM", "[", / y0 t2 T: Z4 D h- s- T
RowBox[{"65", ",", "3"}], "]"}], ",", 8 I: C( m. [, [- ?$ h9 z
RowBox[{"CM", "[",
m: Q% i' h3 o! p; w, v RowBox[{"65", ",", "4"}], "]"}], ",", / s# B7 x# F( q
RowBox[{"CM", "[", , ?! _* p: C5 @6 W& K6 `
RowBox[{"65", ",", "5"}], "]"}], ",",
4 j2 i, @2 Y7 c1 m: H RowBox[{"CM", "[", 7 t2 J7 e h( E
RowBox[{"65", ",", "6"}], "]"}], ",",
% B' c+ u5 Z" K/ X# ^ RowBox[{"CM", "[", : x6 r4 c5 A* [/ F& h- G4 m
RowBox[{"65", ",", "7"}], "]"}], ",",
5 Z: r& @, x- D; |6 ~) } RowBox[{"CM", "[",
1 t1 S0 d% Y: [0 M3 I RowBox[{"65", ",", "8"}], "]"}], ",", $ ~; j, Q+ r2 g- |
RowBox[{"CM", "[", ! q& e# \% q# y% |4 ?3 P1 ]
RowBox[{"65", ",", "9"}], "]"}]}], "}"}], ",", $ G/ L" f! ]) k/ v L. x
RowBox[{"{",
% y6 a; n( D; o5 z+ c, b RowBox[{
: c. o1 f6 @/ m% `+ C g RowBox[{"CM", "[", 5 f; U* o. j' f3 s& C$ p
RowBox[{"66", ",", "1"}], "]"}], ",",
* Z- Q# ^9 b- k' P5 y3 o RowBox[{"CM", "[", " i% }( d. ^0 M: J7 ^: g
RowBox[{"66", ",", "2"}], "]"}], ",",
2 X, u& d# h- v3 e r! G0 x RowBox[{"CM", "[",
0 v1 f% r* `- V$ y$ ` RowBox[{"66", ",", "3"}], "]"}], ",",
) s6 D* z# x q7 J RowBox[{"CM", "[", % I# p& Y9 W9 F1 @
RowBox[{"66", ",", "4"}], "]"}], ",", % w, i- W. Y+ p' D. t
RowBox[{"CM", "[", 7 ~9 A1 l! v* V& k$ b" d
RowBox[{"66", ",", "5"}], "]"}], ",",
X& L! _) X5 X; \$ ]# Z! ? RowBox[{"CM", "[",
' B r, r4 L2 B RowBox[{"66", ",", "6"}], "]"}], ",",
7 ?8 H7 j0 i0 W& t+ r1 L6 { RowBox[{"CM", "[", / I. T$ N8 i W0 |+ ~
RowBox[{"66", ",", "7"}], "]"}], ",", , Q8 I4 `1 M8 T. c
RowBox[{"CM", "[", 5 B* @ w2 A6 G9 W
RowBox[{"66", ",", "8"}], "]"}], ",",
6 V+ [& ?& u7 T: s5 G1 N/ x" ^ RowBox[{"CM", "[", ' W4 I( P: p! F* R& L+ M, }) p
RowBox[{"66", ",", "9"}], "]"}]}], "}"}], ",",
8 i- C; _1 c8 E1 C z7 y) M1 q RowBox[{"{", 3 \5 y1 v# D7 X
RowBox[{0 }9 [" ^" }- n" b
RowBox[{"CM", "[",
1 z% r8 T" T$ k/ k RowBox[{"67", ",", "1"}], "]"}], ",",
- P4 L/ \ n* g4 U9 I RowBox[{"CM", "[",
8 o2 J* z' D, g7 N- T2 N4 \) I) H RowBox[{"67", ",", "2"}], "]"}], ",", 0 {* O# j' a5 G+ k
RowBox[{"CM", "[", ; P) H0 C8 @# \3 W3 ]; |1 T+ N
RowBox[{"67", ",", "3"}], "]"}], ",",
6 S) F9 K* {# M* r RowBox[{"CM", "[",
# R8 l- J! R) V$ A RowBox[{"67", ",", "4"}], "]"}], ",", & ^: k2 i8 f# I8 C
RowBox[{"CM", "[", - O* G# i. R! w
RowBox[{"67", ",", "5"}], "]"}], ",",
3 y9 p- X! p- V% h$ r) y9 n RowBox[{"CM", "[",
) u- ]+ |( V8 C* C9 Y/ r RowBox[{"67", ",", "6"}], "]"}], ",", : {+ e5 T% L3 H2 a/ X# R
RowBox[{"CM", "[", + ?( _3 z7 _1 ?' i& ~2 L
RowBox[{"67", ",", "7"}], "]"}], ",", : ~, Q6 A( L. G; l
RowBox[{"CM", "[",
, u- \9 x" V2 @! C1 j5 C- V RowBox[{"67", ",", "8"}], "]"}], ",",
) l- D3 I% ^' h5 X RowBox[{"CM", "[", : f1 R* W7 E5 s: P" [- ~# X8 G' J9 {
RowBox[{"67", ",", "9"}], "]"}]}], "}"}], ",", ' E* ]" V% s! m6 c9 n
RowBox[{"{",
1 a- C3 \9 i1 t+ ]3 N RowBox[{
9 H: N, \! R9 I5 }# e7 @ RowBox[{"CM", "[",
( p+ K" ]: I0 |, p0 G* l RowBox[{"68", ",", "1"}], "]"}], ",",
) W3 w0 G/ v/ B3 }% l RowBox[{"CM", "[",
1 X" d. q# @! v7 b2 v; Q RowBox[{"68", ",", "2"}], "]"}], ",",
7 b6 t) q/ l7 m2 ?# Q# Y RowBox[{"CM", "[",
& Y0 V# ^6 [! I% u) r7 i; } RowBox[{"68", ",", "3"}], "]"}], ",", ! z; ?* |. B; x/ i) V
RowBox[{"CM", "[", $ x7 v% v- S5 C4 H
RowBox[{"68", ",", "4"}], "]"}], ",", 0 }) ]; z+ N4 R* m: w, X
RowBox[{"CM", "[", $ V6 o h0 A# ], w+ r8 Y* c
RowBox[{"68", ",", "5"}], "]"}], ",", 4 I. m4 T& t! V: E% S& R
RowBox[{"CM", "[",
" n% I- [& {7 j, p RowBox[{"68", ",", "6"}], "]"}], ",", 0 f5 E$ `# U; F# n0 m2 y1 L0 G
RowBox[{"CM", "[",
; l0 |; ?- b+ G$ Y+ x; {$ R RowBox[{"68", ",", "7"}], "]"}], ",",
4 r5 j7 M' P6 l+ l RowBox[{"CM", "[",
4 G$ Y3 r" w* r9 W( z: O RowBox[{"68", ",", "8"}], "]"}], ",",
! C0 ^$ f" ~7 o% p {: d; V0 o RowBox[{"CM", "[", 5 [; n% y% D' B% F, y, S
RowBox[{"68", ",", "9"}], "]"}]}], "}"}], ",", / e$ d3 N8 L) H- B2 R
RowBox[{"{", . ]7 e0 w' E# ~1 o4 l0 e
RowBox[{7 V# v6 ^9 c. x3 f+ k- t
RowBox[{"CM", "[",
) X4 x% I( @8 E+ M' ~( B( e RowBox[{"69", ",", "1"}], "]"}], ",", 3 m4 g6 v; M( X) A3 g
RowBox[{"CM", "[", 8 {# [4 D% |7 q" L! a$ u8 |. u
RowBox[{"69", ",", "2"}], "]"}], ",", $ V; x' \. w3 d4 a# G/ _6 ?
RowBox[{"CM", "[", : D7 t7 q+ R8 l/ G
RowBox[{"69", ",", "3"}], "]"}], ",",
2 x& }" g; X6 z' K RowBox[{"CM", "[",
7 C0 K: V M/ ?0 h( E W RowBox[{"69", ",", "4"}], "]"}], ",",
6 C) K4 h4 l5 m9 e2 A' ]3 V RowBox[{"CM", "[", 3 y- D( G. L( P- D4 F% }
RowBox[{"69", ",", "5"}], "]"}], ",",
5 f3 O7 L! B6 D' u RowBox[{"CM", "[",
1 e: m q! D- j4 y RowBox[{"69", ",", "6"}], "]"}], ",",
3 ?$ q% s2 j- ` RowBox[{"CM", "[", 8 t9 R' p- w; M6 D! i9 R; r$ n
RowBox[{"69", ",", "7"}], "]"}], ",",
5 ^; E; }* D6 s6 U RowBox[{"CM", "[",
' N I+ x$ r1 Q% u) R9 l RowBox[{"69", ",", "8"}], "]"}], ",",
, ?1 F$ R; t# {( P RowBox[{"CM", "[",
+ G& z% R0 H$ J0 G& f& a RowBox[{"69", ",", "9"}], "]"}]}], "}"}], ",", ' t! ]3 m$ L+ q# @/ ?) H
RowBox[{"{", 3 v. L8 T& ?$ ]+ v
RowBox[{; K4 I4 A" @$ X2 Q4 C3 P, E
RowBox[{"CM", "[", / e! s4 T9 B/ m
RowBox[{"70", ",", "1"}], "]"}], ",", 3 A6 |! C! U4 b
RowBox[{"CM", "[",
% I* [0 w' I+ u2 v0 _ RowBox[{"70", ",", "2"}], "]"}], ",",
! v" q; \6 g8 P* ?+ ]8 W: E RowBox[{"CM", "[",
' H+ Q& P1 y5 e RowBox[{"70", ",", "3"}], "]"}], ",",
4 C8 G" ]; d9 T% Z& C RowBox[{"CM", "[", + s" W, J( }4 C" g
RowBox[{"70", ",", "4"}], "]"}], ",", # C5 g0 t l/ K% ^5 j. _
RowBox[{"CM", "[",
. e' Z7 a- g* W9 z/ H( c8 x! Q: C RowBox[{"70", ",", "5"}], "]"}], ",", 0 Y) k6 t: A' j+ }
RowBox[{"CM", "[",
|; P" o# V1 R! p/ h% C m RowBox[{"70", ",", "6"}], "]"}], ",",
5 C" j3 R8 ~ S RowBox[{"CM", "[",
" }) m: S9 Y3 _. \ RowBox[{"70", ",", "7"}], "]"}], ",", ' x" p/ J/ f+ E% ?8 L4 `) F
RowBox[{"CM", "[", . s0 e8 c0 z0 J; G( f2 w5 u* z
RowBox[{"70", ",", "8"}], "]"}], ",",
$ q7 Y/ H( T1 r3 ], E# p RowBox[{"CM", "[", 0 C! ~- G4 t6 d; g" k3 [
RowBox[{"70", ",", "9"}], "]"}]}], "}"}], ",", 6 ~/ Y9 w, u$ y2 V
RowBox[{"{",
( E- b' h1 C8 H6 r+ w RowBox[{5 K5 W- p9 C2 A. ]7 P
RowBox[{"CM", "[", . {+ m, D N& d8 y2 [
RowBox[{"71", ",", "1"}], "]"}], ",", 8 r% s' a: n5 z/ ~
RowBox[{"CM", "[",
* C# {5 Y, k( z2 E RowBox[{"71", ",", "2"}], "]"}], ",", ' |5 h$ U- c$ m3 K/ H0 \
RowBox[{"CM", "[",
. B) P0 r7 j0 _3 T# j4 G RowBox[{"71", ",", "3"}], "]"}], ",", 6 _7 b& n% [$ x$ r5 `
RowBox[{"CM", "[",
1 R5 x3 e5 [! T: O0 ? RowBox[{"71", ",", "4"}], "]"}], ",",
) }& q! @ ~, _$ P RowBox[{"CM", "[",
$ S9 b ^$ R7 C u( }/ Z3 g5 n RowBox[{"71", ",", "5"}], "]"}], ",",
- [$ b O- f& K. E RowBox[{"CM", "[",
' x9 \! l$ B1 K) a& P1 F RowBox[{"71", ",", "6"}], "]"}], ",", 1 z2 K; {" s5 T
RowBox[{"CM", "[", h: V7 F G( ?, u* A, {$ E" f2 j
RowBox[{"71", ",", "7"}], "]"}], ",", 7 a; Z, P4 B9 h/ P
RowBox[{"CM", "[", , i' X" l, D4 K4 m( Q
RowBox[{"71", ",", "8"}], "]"}], ",",
" I+ i& I' @3 y RowBox[{"CM", "[",
! N: |5 G7 O* `+ e" s. v RowBox[{"71", ",", "9"}], "]"}]}], "}"}], ",", 0 p9 E' Q+ n" Y9 n8 [% h
RowBox[{"{",
% r1 f R2 _" v9 H5 i RowBox[{
7 e1 U# J1 x7 G9 S RowBox[{"CM", "[", # g" D7 _' d- X2 z, ^7 k8 B E
RowBox[{"72", ",", "1"}], "]"}], ",",
9 ~( u& k0 R; H RowBox[{"CM", "[", 7 C. }; N6 W, y/ @6 ^5 F0 r0 j% E
RowBox[{"72", ",", "2"}], "]"}], ",", 9 c+ o! |; @" G$ p$ {& ~+ }$ J
RowBox[{"CM", "[",
5 }1 [/ v4 ~ \( e RowBox[{"72", ",", "3"}], "]"}], ",",
5 V; ?& V) ]& F; k RowBox[{"CM", "[", ; K2 j) _' v) o5 K# _- w T) R5 o
RowBox[{"72", ",", "4"}], "]"}], ",", 4 \5 \$ ?9 {7 N- U6 N: h7 G) L4 x4 I- V
RowBox[{"CM", "[",
) w: O9 ^; O, Q( n, q RowBox[{"72", ",", "5"}], "]"}], ",",
) X6 K( L% k/ }% s8 y RowBox[{"CM", "[",
! y+ c! I* e. y5 k ^ RowBox[{"72", ",", "6"}], "]"}], ",",
$ u0 U, i' K3 w/ o RowBox[{"CM", "[", ( D& p9 K0 w, W3 I
RowBox[{"72", ",", "7"}], "]"}], ",",
. W% H* C4 } {+ F( d8 u6 e RowBox[{"CM", "[",
$ b2 R. J7 Z, y! E RowBox[{"72", ",", "8"}], "]"}], ",",
" f- A9 H' D( w }; t4 h E9 `, w RowBox[{"CM", "[", / n6 W! x0 [+ t7 _: q. a6 C8 n
RowBox[{"72", ",", "9"}], "]"}]}], "}"}], ",",
0 j1 R Q' Y! s1 w0 ` l# s/ M* o2 X RowBox[{"{", , ~3 W$ T4 p7 c! t4 }
RowBox[{. G6 D" o0 |/ V3 G# H
RowBox[{"CM", "[", 2 D/ d# J. c" m8 h. A" C) I
RowBox[{"73", ",", "1"}], "]"}], ",",
U+ a) I4 b0 @! }) x6 x RowBox[{"CM", "[",
* |+ b9 L$ l. l0 j. Q RowBox[{"73", ",", "2"}], "]"}], ",",
# q. s4 @- |0 f3 [ RowBox[{"CM", "[",
/ S H1 W% a/ D3 J, @1 D RowBox[{"73", ",", "3"}], "]"}], ",",
0 J) | k9 ]9 ~9 T2 Q* e9 a. h RowBox[{"CM", "[",
1 o8 g! @/ m; ^+ l2 j RowBox[{"73", ",", "4"}], "]"}], ",", . W) b- Q0 P; ]
RowBox[{"CM", "[",
0 g" C! O' O o2 ^ RowBox[{"73", ",", "5"}], "]"}], ",", " o$ C. @; |1 [; O4 l! e: c
RowBox[{"CM", "[",
( e0 a1 w2 j! R) B1 h, _+ j RowBox[{"73", ",", "6"}], "]"}], ",", ' Z+ f& D9 m Q! H5 D- L. i8 F
RowBox[{"CM", "[",
9 {" b/ c3 ]+ L$ F RowBox[{"73", ",", "7"}], "]"}], ",", 3 z, v* N% W1 d/ ~
RowBox[{"CM", "[", 9 C$ g8 P( U1 _, t/ F+ P8 S
RowBox[{"73", ",", "8"}], "]"}], ",", ( F* G& p B3 s6 c; z) P& N
RowBox[{"CM", "[",
! E4 o+ l$ z/ ?6 |6 _% d5 V RowBox[{"73", ",", "9"}], "]"}]}], "}"}], ",",
K9 V G) C6 g2 ] RowBox[{"{", 0 [- B, U5 ^6 W0 U; m* h1 l
RowBox[{
( z/ k1 h8 W* l2 d RowBox[{"CM", "[",
5 T% q, g) }% x% {8 @ RowBox[{"74", ",", "1"}], "]"}], ",", 7 \; E, ^1 o2 a. O) {1 P
RowBox[{"CM", "[",
! A4 A+ N9 s5 l' v0 @& | RowBox[{"74", ",", "2"}], "]"}], ",",
: r: X: U! G3 y" C1 c1 ? RowBox[{"CM", "[", / d- t" b& P8 e
RowBox[{"74", ",", "3"}], "]"}], ",",
. ?; _/ n1 C0 N6 [# a" ^ RowBox[{"CM", "[",
# p3 w l9 I2 H$ F2 E1 Q RowBox[{"74", ",", "4"}], "]"}], ",", 1 i1 L, q7 s- j/ o) ]9 i/ C, z8 P/ t
RowBox[{"CM", "[",
* s" q7 O4 D/ \ c |7 [' F RowBox[{"74", ",", "5"}], "]"}], ",", 7 v0 R2 ^! ~+ G* |9 k$ y
RowBox[{"CM", "[",
, s9 L- A' a& y0 V: s% l6 X RowBox[{"74", ",", "6"}], "]"}], ",", / i) u# J# F7 U* l/ D2 y
RowBox[{"CM", "[",
' u0 w4 L- q# K RowBox[{"74", ",", "7"}], "]"}], ",",
1 ^$ V0 p y3 b2 |& F; C! O RowBox[{"CM", "[", ' O# c9 f6 H9 V
RowBox[{"74", ",", "8"}], "]"}], ",", # h$ @6 g/ x6 g4 b# `- g" o$ C; z
RowBox[{"CM", "[", ( g+ s P! {1 ~0 ^+ ^! Z. @
RowBox[{"74", ",", "9"}], "]"}]}], "}"}], ",", % C% j6 h' k0 T7 J
RowBox[{"{", + a7 j" y9 U9 k3 p
RowBox[{
2 L: H$ k: M6 `2 P3 r9 j RowBox[{"CM", "[",
. w1 J7 `$ ?3 P3 f/ B RowBox[{"75", ",", "1"}], "]"}], ",", 1 s9 A2 [8 i: A/ y, Z+ m
RowBox[{"CM", "[",
9 Q' b* l& f4 v RowBox[{"75", ",", "2"}], "]"}], ",", * c ^9 q0 v' K. I& r
RowBox[{"CM", "[",
1 e8 X9 p, j* K ~ RowBox[{"75", ",", "3"}], "]"}], ",",
5 V% {# e# P, j# {$ h. c3 j: i0 W: t RowBox[{"CM", "[", & u0 u, s: b5 \! V; L8 k: C
RowBox[{"75", ",", "4"}], "]"}], ",",
7 V6 _* R5 n; g2 ~8 o6 p3 F0 `8 A RowBox[{"CM", "[",
) X: U% p8 E: A RowBox[{"75", ",", "5"}], "]"}], ",",
. `( u* L" O4 ]' U RowBox[{"CM", "[",
5 ]$ \% H# h1 v; V+ o. j4 T U RowBox[{"75", ",", "6"}], "]"}], ",",
6 w/ w- I1 a( C6 Y' `! a RowBox[{"CM", "[",
{1 b/ B3 l7 A. H, [7 w RowBox[{"75", ",", "7"}], "]"}], ",",
6 H2 y2 p6 G1 S7 ] RowBox[{"CM", "[", 3 g* Y- h2 X! I6 i; u
RowBox[{"75", ",", "8"}], "]"}], ",", : Y% y0 D, R; O0 p7 W/ V
RowBox[{"CM", "[", $ J3 h% }8 _" }3 t- L' x
RowBox[{"75", ",", "9"}], "]"}]}], "}"}], ",",
, X! m# N1 |1 x! o RowBox[{"{",
; G) a6 n+ Q# y; _ RowBox[{
e$ a& x/ S5 v! J6 C1 I: @3 { RowBox[{"CM", "[",
+ K- b8 I* V+ c( M RowBox[{"76", ",", "1"}], "]"}], ",",
2 A3 x% _9 M/ Q. [0 \1 ] RowBox[{"CM", "[",
& S6 Q) {$ C) l) W" _& w% x& z RowBox[{"76", ",", "2"}], "]"}], ",",
5 G8 Z8 }) ^; n RowBox[{"CM", "[",
* B2 C# |2 J/ D' _6 S RowBox[{"76", ",", "3"}], "]"}], ",",
7 a$ v. W8 A1 I+ a' ^. {; t) l- y7 Z RowBox[{"CM", "[",
6 I0 n) A+ g" q1 J, T3 s+ _: ] RowBox[{"76", ",", "4"}], "]"}], ",",
& q! u: h: c* G3 e5 d* Q RowBox[{"CM", "[", 2 E5 a# w: u$ x' i( S# U- e" m [$ t3 J
RowBox[{"76", ",", "5"}], "]"}], ",", 9 B% X: d' w5 ?- ]4 @; l5 }
RowBox[{"CM", "[",
+ b% \ q5 D6 }6 d' G RowBox[{"76", ",", "6"}], "]"}], ",",
, ~; t$ {& T% p' H8 @7 d' H RowBox[{"CM", "[",
- e: U; q u/ m- b: N. u) i RowBox[{"76", ",", "7"}], "]"}], ",",
& f0 ]1 o) g8 K) P RowBox[{"CM", "[", 5 [( s1 s$ F- r( d; C
RowBox[{"76", ",", "8"}], "]"}], ",",
) y7 h0 m. J4 N+ Y9 i. F3 s RowBox[{"CM", "[",
0 e6 e/ Q3 `8 d% h: t RowBox[{"76", ",", "9"}], "]"}]}], "}"}], ",",
. E* A- C5 x8 {* a: c RowBox[{"{", : ?7 Y8 z: z3 v% M, c& g( G& x0 U) ]
RowBox[{7 r+ x9 \$ @ G3 O; T3 v
RowBox[{"CM", "[", 6 q/ d2 R" M6 n, ]- U
RowBox[{"77", ",", "1"}], "]"}], ",",
1 I" T) k( l& h8 j( ^0 C4 e' G RowBox[{"CM", "[", }0 m# E" D8 w) z) j6 X
RowBox[{"77", ",", "2"}], "]"}], ",", & G6 y* V! X+ b
RowBox[{"CM", "[",
8 F! Q& }# r& q7 I6 C- h RowBox[{"77", ",", "3"}], "]"}], ",",
! M7 H7 Y }5 \- @# D1 c- d* q RowBox[{"CM", "[", - m0 P; V+ i q$ m
RowBox[{"77", ",", "4"}], "]"}], ",",
% c1 D. T: I% E6 l6 ], _ RowBox[{"CM", "[",
- Z. p3 T/ i* _; P8 g7 Q5 L+ b RowBox[{"77", ",", "5"}], "]"}], ",",
) D+ l" b6 i# z4 Q/ S RowBox[{"CM", "[",
8 _! A8 U O4 x1 C; V RowBox[{"77", ",", "6"}], "]"}], ",",
9 j) h. W0 M6 C. s0 n |3 w RowBox[{"CM", "[",
+ S* ?+ C# f2 r5 g9 X2 T8 k3 u RowBox[{"77", ",", "7"}], "]"}], ",", 8 {2 v1 o$ ?+ o8 {6 k- e$ ?
RowBox[{"CM", "[",
3 a8 _ a# `6 J7 V6 w RowBox[{"77", ",", "8"}], "]"}], ",",
9 g* G! S& l x# Z3 F A: ~6 u RowBox[{"CM", "[", ( J; [6 M# j! S; j5 P
RowBox[{"77", ",", "9"}], "]"}]}], "}"}], ",",
$ [* b& y% _6 u" H S- c$ S RowBox[{"{", - h8 p* L" O0 g* @2 ^" U
RowBox[{
8 `: C* O4 F% {' s" O RowBox[{"CM", "[",
/ w, y7 v. m; |/ X! R: |3 ^ RowBox[{"78", ",", "1"}], "]"}], ",",
; P- S8 f9 {/ I5 | RowBox[{"CM", "[",
5 X3 u5 \" P, h# o8 {5 o4 m; d RowBox[{"78", ",", "2"}], "]"}], ",", 7 o- Q5 |, k' u2 D& y v+ R
RowBox[{"CM", "[",
& `: K. h5 } H RowBox[{"78", ",", "3"}], "]"}], ",",
5 m! \" r2 j7 N% t% ?1 f* @7 N8 R RowBox[{"CM", "[",
- Y% U7 w1 k$ e5 q3 _$ [; ^ RowBox[{"78", ",", "4"}], "]"}], ",", 6 R# ~7 n9 z& ?% W* q6 h* w
RowBox[{"CM", "[",
8 a3 L* W1 C, [ e" o RowBox[{"78", ",", "5"}], "]"}], ",", 3 E* c2 r+ w/ Q; d6 v9 f8 Q
RowBox[{"CM", "[",
# ]# B1 w4 s p/ c. D, i RowBox[{"78", ",", "6"}], "]"}], ",",
5 F) y' q0 @+ ]0 t& ]( J3 Q0 } RowBox[{"CM", "[",
: T* S+ D7 Z. V* j4 Y1 o RowBox[{"78", ",", "7"}], "]"}], ",",
0 w( _" Y0 I8 @ RowBox[{"CM", "[",
( v( \& q0 Q0 @) ] RowBox[{"78", ",", "8"}], "]"}], ",",
' S$ o y3 i; Z5 ]: J RowBox[{"CM", "[", $ k- Y+ f* |' W) c# C. {) m! y- i
RowBox[{"78", ",", "9"}], "]"}]}], "}"}], ",",
# J1 T+ E0 s2 r+ E* O2 d5 J RowBox[{"{",
! O4 u+ h8 M2 `, r' z+ H1 t RowBox[{
1 w& O+ D/ E3 q. Q, [$ z# W. Y0 Z4 J RowBox[{"CM", "[",
( C& ^' n; T- o7 }# l. E; H7 |( v RowBox[{"79", ",", "1"}], "]"}], ",", ; @! J! d. O8 \ f
RowBox[{"CM", "[", & ~6 [% i7 q7 A H
RowBox[{"79", ",", "2"}], "]"}], ",",
, [, i0 G$ ]& V) p7 [; U RowBox[{"CM", "[",
& x0 p- h4 D, Z! l! ^& j3 p RowBox[{"79", ",", "3"}], "]"}], ",",
2 W1 U. P3 \/ n7 n5 s+ J RowBox[{"CM", "[", ) x2 J1 V; L) v& R; Q" F: \& i- X
RowBox[{"79", ",", "4"}], "]"}], ",", . [. O; ]8 I1 \
RowBox[{"CM", "[", ! O M. d! e6 J( V
RowBox[{"79", ",", "5"}], "]"}], ",", " Y: q/ f3 `6 S! V- M8 m
RowBox[{"CM", "[", ! R% L; G* j1 L' {) @: Z E
RowBox[{"79", ",", "6"}], "]"}], ",", ! s- [7 N' V- v2 Q ^1 k0 L+ O
RowBox[{"CM", "[",
2 f. k4 L5 Y. ^% k) f: R5 R8 y RowBox[{"79", ",", "7"}], "]"}], ",",
* Q" T! g, Z/ o, d: X- g8 ~9 Y0 B RowBox[{"CM", "[",
+ S0 K- K% z) }( V/ J2 K RowBox[{"79", ",", "8"}], "]"}], ",", ) o" U. H6 {, n
RowBox[{"CM", "[",
7 [1 b7 b# R! U+ l3 n% H4 o RowBox[{"79", ",", "9"}], "]"}]}], "}"}], ",", $ L3 }: j$ H z j }) X
RowBox[{"{", 7 E0 B3 B) ]9 L4 [ @
RowBox[{
- `& ~0 E2 Z- y RowBox[{"CM", "[",
( ~' X: E4 o+ g. r8 V- u# c& L2 ?$ L m RowBox[{"80", ",", "1"}], "]"}], ",", - z1 l" p; e# B6 M4 A2 M
RowBox[{"CM", "[", $ K0 {% Z3 Q0 |# A
RowBox[{"80", ",", "2"}], "]"}], ",",
% a1 F, n- u: W; P" E1 w+ l RowBox[{"CM", "[",
% g6 z8 n ~; p) q! O _% j# W RowBox[{"80", ",", "3"}], "]"}], ",", + Y/ o4 E* v( y. V( z
RowBox[{"CM", "[",
% @- g% K- y) ~, Q RowBox[{"80", ",", "4"}], "]"}], ",",
) s% T" n& @$ k% _# H0 k7 y0 a RowBox[{"CM", "[", 8 W$ F, d: f3 S
RowBox[{"80", ",", "5"}], "]"}], ",",
9 Z' W3 m! J7 X6 `3 m v7 ]1 x( s RowBox[{"CM", "[", - U5 v! G, F) M% c/ \, ~% {
RowBox[{"80", ",", "6"}], "]"}], ",",
v3 v I1 K- c: e) u; V' q$ L RowBox[{"CM", "[",
9 P/ Y \' K- k3 V7 } RowBox[{"80", ",", "7"}], "]"}], ",",
; M, f- B* C- k. X RowBox[{"CM", "[",
8 x9 b3 `6 K @" o9 c RowBox[{"80", ",", "8"}], "]"}], ",", 1 f# l( _1 O" W8 t$ {* ^
RowBox[{"CM", "[",
% x9 [4 b O: g, R+ x) t. e RowBox[{"80", ",", "9"}], "]"}]}], "}"}]}], "}"}]], "Output",9 v0 t2 T* }; _6 D9 H
CellChangeTimes->{3.577844244140625*^9, 3.57784429425*^9, 3.577847845125*^9,
6 B! B1 Q+ s5 y- h 3.57791322703125*^9, 3.577957088820712*^9, 3.5779605002346992`*^9,
6 C0 a$ f5 O6 @( ^1 e5 q+ b$ E 3.578012145828125*^9}]6 f4 y3 f' D" W8 t! n" k9 {
}, Open ]],, _) q' L. o* c" X, x" K- L) m
; v3 G0 g# W, o- A/ r5 ~Cell[BoxData[, U q$ z% s( n7 ^
RowBox[{"For", "[",
5 y( ]- h0 N* r: ` RowBox[{+ h* B c* o2 d |4 R
RowBox[{"i", "=", "1"}], ",", 0 j5 y0 Y$ C( `( _6 a$ F( z
RowBox[{"i", "\[LessEqual]", "9"}], ",", @$ `, T7 ]4 F w) K0 h
RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", @5 { K+ g" b" z; b/ k
RowBox[{"For", "[", M& A; _/ G b6 q
RowBox[{
2 _( B) j; Q8 d! s$ c @ RowBox[{"j", "=", "1"}], ",",
0 `9 K, \& j$ l RowBox[{"j", "\[LessEqual]", "80"}], ",", 6 S; z* Z" p% R. f/ a5 ?$ e, j
RowBox[{"j", "++"}], ",", "\[IndentingNewLine]",
7 E6 l& e6 `* q' g6 x5 \) P RowBox[{: x7 X/ Z9 o( ^
RowBox[{9 \4 } f# Z1 a/ [5 s0 T- ]/ T1 i
RowBox[{"CM", "[",
$ S3 j5 I* V5 f, o! s RowBox[{"j", ",", "i"}], "]"}], "=", "0.0"}], ";"}]}],
$ }* u! N6 {% r# ]& ~. ]; \ "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", "]"}]], "Input",
9 W- O8 T9 Y+ s CellChangeTimes->{{3.5779132504375*^9, 3.577913285203125*^9}}],
) G6 _& n1 G; M
; l9 ]9 C, W5 q2 rCell[BoxData[, \: O9 Z U7 {, b
RowBox[{"For", "[",
1 y1 Z0 x. X, G8 q% j RowBox[{8 S" _1 U" F9 ?! S; Z7 d1 F
RowBox[{"i", "=", "1"}], ",", * [6 Q# h8 m) l1 r0 Q
RowBox[{"i", "\[LessEqual]", "9"}], ",", 5 w" J* Z# i' z! O! _
RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", 8 V7 {5 |, ~7 d" `! S
RowBox[{
" C+ ]/ T# D: }5 h RowBox[{ z3 p2 A& C7 J: e
RowBox[{"CM", "[", . a0 S! _6 I# ?* \+ {5 N5 T: a
RowBox[{"1", ",", "i"}], "]"}], "=", n: P& b# X, y0 Q$ c8 t( d- n
RowBox[{"Data", "[",
$ D& J% _3 }* x2 z* D2 S RowBox[{"[", 5 U' @ u% b- S8 c, n
RowBox[{"1", ",", "i"}], "]"}], "]"}]}], ";"}]}],
% j3 k N) X. a' t8 }7 f4 l "\[IndentingNewLine]", "]"}]], "Input",
6 `. j1 C/ B, H9 I% R% V! M CellChangeTimes->{{3.577844179875*^9, 3.577844181703125*^9}, {6 m5 m7 e+ e3 W0 U# H
3.577844217765625*^9, 3.5778442320625*^9}, {3.57784429953125*^9,
3 T4 M# W2 h1 K8 Q- L$ T 3.577844347875*^9}, 3.57791328640625*^9, 3.57791338828125*^9,
8 T1 k8 a3 U6 w( K8 a, c0 D 3.57791344209375*^9, 3.5779588070933466`*^9}],+ d% _- m! y; {+ _5 X$ I( l
9 B' i( z: f' N- X+ V7 e
Cell[CellGroupData[{# f* Q3 r3 |+ j' {9 s% c+ N
# B- M r1 T6 p" V2 {% C
Cell[BoxData[{
' \. T6 r0 k* B RowBox[{"r0", "=", "0.2"}], "\[IndentingNewLine]", 0 a+ p, F% l3 c! g* k
RowBox[{"M1", "=", "1"}]}], "Input",& |3 C7 N7 l. i3 P1 J
CellChangeTimes->{{3.577844361578125*^9, 3.57784436678125*^9}, {
" p2 F/ ? l- y) R+ h" ]( Z 3.5778457908125*^9, 3.57784580253125*^9}, {3.57784602534375*^9, $ t# H- N2 E$ k7 U0 b* a! t
3.577846109453125*^9}, {3.57784617128125*^9, 3.57784619321875*^9}, {
9 Q; {9 o" @% t( K 3.577846583984375*^9, 3.577846620984375*^9}, {3.577846653203125*^9, 9 p8 C; r+ d, c4 L5 Z5 y; D
3.577846691984375*^9}, {3.577846779953125*^9, 3.577846794921875*^9}, {# A, i4 d/ Q/ w2 e
3.5778470791875*^9, 3.577847088921875*^9}, 3.577847409671875*^9, {
# n w& O+ S$ {( c5 q1 A 3.577847477203125*^9, 3.577847523203125*^9}, {3.577847586484375*^9, 9 _: m' D4 `5 c
3.577847600640625*^9}, {3.577847649140625*^9, 3.57784770196875*^9}, {5 W2 G$ q" z3 P' { r
3.57784774896875*^9, 3.57784776490625*^9}, 3.577847981546875*^9, {5 }, [, o/ `$ G' [2 N
3.577913312890625*^9, 3.577913360109375*^9}, {3.577919262828125*^9, ! }3 S9 ^, k7 k# q
3.5779193133125*^9}, 3.577919388484375*^9, 3.5779605095479155`*^9}],
2 |8 `' @; M" ^
) ]/ O; v* K6 V' k/ b, PCell[BoxData["0.2`"], "Output",
8 T9 ~+ g# ~* p3 i$ P3 {* f# j h CellChangeTimes->{8 @% ~2 ~4 W C P1 M9 T. R
3.57784436821875*^9, 3.577845806375*^9, {3.57784603053125*^9, ! V5 v2 p. ]; k$ H; s, ]/ l+ `1 I, f
3.57784611128125*^9}, {3.577846174328125*^9, 3.57784619575*^9}, {
+ _4 n* Q; K, ^+ c/ f( M 3.577846575515625*^9, 3.57784662446875*^9}, {3.577846655421875*^9,
3 f) x2 ~ X" b. \* M 3.577846694828125*^9}, {3.577846773609375*^9, 3.577846802171875*^9}, {
8 A2 ~+ m1 x( C1 K& o- l, ~+ l 3.577847068765625*^9, 3.577847134203125*^9}, {3.577847398859375*^9, 5 k5 \; M4 \' e- i5 `' _% H
3.5778475331875*^9}, {3.577847581359375*^9, 3.577847611953125*^9}, {
7 ^4 e6 d. E. l3 C/ H 3.57784767515625*^9, 3.57784770903125*^9}, {3.577847751453125*^9,
# u( x* a# S- Q4 i1 }; m 3.5778477734375*^9}, {3.577847849671875*^9, 3.577847869046875*^9}, {
9 p; t, E* V! \' I2 l3 v& ?4 p 3.57784795690625*^9, 3.57784798321875*^9}, {3.5779132940625*^9,
1 x" Y$ y" Y j 3.57791340575*^9}, 3.5779134450625*^9, {3.577919266859375*^9, % ?8 Y6 b" {, N' P: S! m2 X
3.5779193165*^9}, 3.577919391265625*^9, 3.577919455125*^9, 6 M9 u/ c) |: Z6 X
3.577920297984375*^9, 3.5779570945615225`*^9, 3.5779588145501595`*^9, ' y n3 r" Y) a8 @( z
3.577960510686717*^9, 3.578012149296875*^9}],# `- I5 z( y. e k0 O1 }3 T
, Q" i7 U8 [7 a) E1 I/ L
Cell[BoxData["1"], "Output",- G [% i X9 P
CellChangeTimes->{- e+ l. m' \8 S" f
3.57784436821875*^9, 3.577845806375*^9, {3.57784603053125*^9, 1 N% K6 w2 y' h; ~
3.57784611128125*^9}, {3.577846174328125*^9, 3.57784619575*^9}, {; d0 |* k! L; @! C' t7 i9 w4 D B
3.577846575515625*^9, 3.57784662446875*^9}, {3.577846655421875*^9, 9 x+ ^; R5 d9 k' n7 {# i
3.577846694828125*^9}, {3.577846773609375*^9, 3.577846802171875*^9}, {' n' N7 n* G1 G; E& j
3.577847068765625*^9, 3.577847134203125*^9}, {3.577847398859375*^9, 6 Y5 D( e+ ^1 D
3.5778475331875*^9}, {3.577847581359375*^9, 3.577847611953125*^9}, {2 U8 o* o6 {9 M6 K( D
3.57784767515625*^9, 3.57784770903125*^9}, {3.577847751453125*^9, 0 b7 w0 x& k9 \3 P p$ |
3.5778477734375*^9}, {3.577847849671875*^9, 3.577847869046875*^9}, {! r4 L# \8 A# C& U3 }% e
3.57784795690625*^9, 3.57784798321875*^9}, {3.5779132940625*^9, ) z# k" X+ I8 b. r Q' D
3.57791340575*^9}, 3.5779134450625*^9, {3.577919266859375*^9, 9 ?, u0 ~" ~; _- b
3.5779193165*^9}, 3.577919391265625*^9, 3.577919455125*^9,
+ ?! m7 S$ v; w7 [1 H# U 3.577920297984375*^9, 3.5779570945615225`*^9, 3.5779588145501595`*^9,
% M' g* u$ D+ N3 h0 [" B 3.577960510686717*^9, 3.578012149296875*^9}]
8 h G/ A. y; b; l% h8 X, ^, L}, Open ]],
- G6 g7 ?5 Z% w3 H+ t' V1 i6 K
5 b: c6 A8 [5 u; F4 vCell[BoxData[ |; o$ R8 B% L
RowBox[{"For", "[", ; H/ X) D! w e f
RowBox[{) D, E& V5 h. d3 l4 I5 E
RowBox[{"k", "=", "2"}], ",", " t% G0 K/ ~$ f, _
RowBox[{"k", "\[LessEqual]", "60"}], ",", " x) ?; N/ e& ?6 T, [6 Q& ]
RowBox[{"k", "++"}], ",", ! h+ ~; q3 r# f" L
RowBox[{"{", "\[IndentingNewLine]",
1 I0 W* R# [" G/ _$ d2 r: h7 ]/ ?" R RowBox[{
+ I1 K' l/ S G1 Z2 w% O8 s+ W RowBox[{"rmin", "=", "0.0"}], ";", "\[IndentingNewLine]", - e% H( i; K) ~" ]
RowBox[{"For", "[",
7 e( L3 W1 n2 T& u0 @0 @- F RowBox[{
1 ^6 p6 W5 ~8 ^9 e+ M RowBox[{"j", "=", "1"}], ",",
9 W* ]. \/ o6 P- W$ [9 v RowBox[{"j", "\[LessEqual]", ( J2 U2 J& k! A$ p4 b! \& R
RowBox[{"k", "-", "1"}]}], ",",
2 S0 g R& g$ N RowBox[{"j", "++"}], ",",
' E* X, l4 d! Z7 l# ]0 ?! |7 H RowBox[{"{", "\[IndentingNewLine]", $ E L- \: ]9 p" f. ~' N
RowBox[{
2 M- ?9 B- p$ d5 Z. ` RowBox[{"r1", "=", "0.0"}], ";", "\[IndentingNewLine]",
# c. l/ i' n# x1 a RowBox[{"For", "[",
8 u$ _) D- ^* }1 l RowBox[{, l$ b. I: k( x* C" n ?4 \ f
RowBox[{"i", "=", "1"}], ",", 3 h. h9 \1 F* k; |# d
RowBox[{"i", "\[LessEqual]", "9"}], ",",
" k3 B& G& I) h) z+ |1 F RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", , _. W6 L' K* P, e* P3 Q/ [( v
RowBox[{
( r# l, M* o, K# \ RowBox[{"r1", "+=",
3 P7 B, v$ q( H5 r RowBox[{% s: V" d/ Z2 h. C( F# S: g
RowBox[{"(", + j( q- l* J) R) u
RowBox[{2 ^8 q2 k& i9 H- B
RowBox[{"CM", "[",
9 J& e* `) Y' U/ s& n6 d$ X; t RowBox[{"j", ",", "i"}], "]"}], "-",
5 u: j7 j6 B g- S8 h! H4 x RowBox[{"Data", "[",
* Y2 Y8 N6 n* \% ~2 @8 E! X RowBox[{"[", ! N: p& p9 }2 H) g
RowBox[{"k", ",", "i"}], "]"}], "]"}]}], ")"}], "*", & U X2 A- H# i8 d' `
RowBox[{"(",
& w7 u1 y/ _8 }, L3 c RowBox[{
1 T! a- ]& e9 i7 A( } RowBox[{"CM", "[",
0 \% _" U% n" i. h9 w RowBox[{"j", ",", "i"}], "]"}], "-", % Q/ W# e! ^# l
RowBox[{"Data", "[", + a' H* G7 T! x G5 d
RowBox[{"[",
4 t) c8 n- @4 e4 C8 c RowBox[{"k", ",", "i"}], "]"}], "]"}]}], ")"}]}]}], ";"}]}],
5 Y1 b# K3 ]# w: c! z "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]",
# I5 f4 Q4 d# j9 {. b RowBox[{"r1", "=", 8 m( b* T9 e- c2 ]
RowBox[{"Sqrt", "[", 4 ~* O# d4 u, ?! U$ v; t
RowBox[{"r1", "/", "8"}], "]"}]}], ";", "\[IndentingNewLine]",
( Q3 o. Q# p! M3 G' G0 ?! Q5 W RowBox[{"If", "[", " ",
2 M6 |0 A5 |0 i0 C% P, h& r RowBox[{
0 V6 @3 O3 z! Y0 [ RowBox[{"j", "\[Equal]", "1"}], ",", + O. J: W8 _ ]5 C4 j) \
RowBox[{"rmin", "=", "r1"}], ",",
, Z T1 E1 @. H7 s/ ^ RowBox[{"If", "[", * v$ \" O' l7 e3 i2 H
RowBox[{' t# m# g" Z. E. ~* u7 C
RowBox[{"r1", "<", "rmin"}], ",",
! t5 M) u, b+ M$ f/ V6 O) e/ K RowBox[{"rmin", "=", "r1"}], ",", : ?4 R6 A! W& L" F8 b( ?3 {
RowBox[{"i", "=", "i"}]}], "]"}]}], "]"}], ";"}],
% t) g3 w1 m0 @+ T6 a' e* [5 V- Q$ z "\[IndentingNewLine]", "}"}]}], "\[IndentingNewLine]", "]"}], ";", 6 o {4 G2 `- E8 K
"\[IndentingNewLine]", ! r' P8 f/ H( V0 g
RowBox[{"If", "[", 7 A' H6 k$ @( l- C) g
RowBox[{
/ U3 M( T Y" u4 }! n5 m5 i0 i RowBox[{"rmin", ">", "r0"}], ",", ) ]1 q" D: D9 H$ P; n: G
RowBox[{"{", "\[IndentingNewLine]",
$ v1 `* S4 M: _4 y( V( ]+ D5 M RowBox[{8 X; a( L" N- K3 z! W$ [+ Y$ j: n8 w
RowBox[{"M1", "++"}], ";", "\[IndentingNewLine]", 8 Z1 o' ^1 n( e1 k8 M
RowBox[{"For", "[",
+ B& e, r& @# ~( ^7 E RowBox[{: ~+ Q4 K$ B; ?9 E8 ^, g
RowBox[{"i1", "=", "1"}], ",", 4 ~4 c9 S. x3 f) S
RowBox[{"i1", "\[LessEqual]", "9"}], ",",
9 o b6 p9 Q) E9 t: }1 L RowBox[{"i1", "++"}], ",", "\[IndentingNewLine]", ( z1 ^1 E* L- l5 O, }
RowBox[{( Y3 M& ~+ w* [7 [8 h
RowBox[{
& f* }1 s/ i' E+ F RowBox[{"CM", "[", . S4 X$ @, ?3 l7 m" g$ b, u
RowBox[{"M1", ",", "i1"}], "]"}], "=",
4 r; N/ \- `8 `, y/ h$ o RowBox[{"Data", "[", " p8 T" u3 m% _* l4 L
RowBox[{"[", * {* d% |2 ^$ L) y/ m' y; q8 X
RowBox[{"k", ",", "i1"}], "]"}], "]"}]}], ";"}]}],
7 y" O! S. v4 W+ i5 H" b2 T "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", "}"}], ",",
$ I. }# f* q% t# R RowBox[{"i", "=", "i"}]}], "\[IndentingNewLine]", "]"}]}], & T6 b9 ^4 a; m5 ~, l
"\[IndentingNewLine]", "}"}]}], "\[IndentingNewLine]", "]"}]], "Input",
1 @1 [ ?4 E: ?# o* f- Y CellChangeTimes->{{3.577844030515625*^9, 3.577844093140625*^9}, {
1 ^1 L% h$ `: K" U 3.577844374484375*^9, 3.577844448265625*^9}, {3.57784448490625*^9,
% D% R# c+ Z. ?% @) l 3.577844518609375*^9}, {3.577844553671875*^9, 3.577844611984375*^9}, {- r& Z# l/ ^- n! ~8 o" m; P
3.57784478278125*^9, 3.5778448395*^9}, {3.57784493659375*^9,
: b E/ Y+ f, o/ y9 i 3.577844964765625*^9}, {3.577845100328125*^9, 3.577845101921875*^9}, {
( n8 S' d% b7 I0 G9 {4 V 3.577845269609375*^9, 3.577845304125*^9}, {3.577845421203125*^9,
& B6 J& b5 }+ q. G 3.57784542309375*^9}, {3.577845475359375*^9, 3.57784575834375*^9}, {8 p! V& g$ c: n
3.5778458119375*^9, 3.57784582953125*^9}, {3.5778458803125*^9, 6 B2 P5 r8 _# L2 ]
3.57784594859375*^9}, {3.577845984984375*^9, 3.57784598753125*^9}, {% d7 D6 v/ p k( V/ \* E. n& ^5 A
3.577846034546875*^9, 3.577846038390625*^9}, {3.577846303984375*^9, * v% C- D( A# ?3 f
3.577846311921875*^9}, {3.57784637396875*^9, 3.57784644271875*^9}, {$ k0 {' ?3 s# k: R3 k" w1 v* c
3.57784649071875*^9, 3.577846495203125*^9}, {3.577846525859375*^9, 8 ?& s# c q+ N% e( ^, O
3.57784654409375*^9}, {3.577846732234375*^9, 3.577846764765625*^9}, {0 a7 K8 i# N* h, \+ x2 H
3.577847031171875*^9, 3.577847033453125*^9}, {3.577847388296875*^9,
+ I' R$ ^2 D" f9 w7 t; r4 ?0 S 3.57784739490625*^9}, {3.5778475661875*^9, 3.577847571375*^9}, {
9 q6 L4 I$ N' m; R) U) _( ?! G 3.577847651921875*^9, 3.577847669046875*^9}, {3.57784793653125*^9, / X4 N M1 l$ e0 u; h
3.5778479520625*^9}, 3.577920065921875*^9, {3.5779588175765653`*^9,
" f- l+ m5 ]5 L) {) r) }4 S6 a 3.577958821991373*^9}}], u* o+ J; y. k9 I( O y
2 e6 Q' z2 b4 {; V8 S lCell[CellGroupData[{( X. s" ?9 _6 F9 d3 o0 d
. Z0 @. U+ B8 w" D
Cell[BoxData["M1"], "Input",4 W. o( v: A, Y. M
CellChangeTimes->{3.57784599821875*^9, 3.57784767159375*^9}],# }, x* C% Y8 z/ I- Y! {
# ]8 e" w' j' ~- ]
Cell[BoxData["21"], "Output",4 @0 ^( w0 \. c% n) m
CellChangeTimes->{
9 d$ a% w+ ]" O7 \4 C2 }8 N 3.577845999015625*^9, {3.577846043078125*^9, 3.577846114078125*^9}, {$ Z" D/ }5 f! r' w- _
3.57784617665625*^9, 3.577846198859375*^9}, {3.577846578203125*^9, ( Q" B, A0 N, t9 t c
3.57784669890625*^9}, {3.5778467768125*^9, 3.577846804546875*^9}, {: K/ }) D- }0 i# {7 Q
3.577847071859375*^9, 3.577847137234375*^9}, {3.577847401296875*^9,
- C0 p2 D. X; A& U& c 3.57784753571875*^9}, {3.577847583625*^9, 3.577847614734375*^9}, {9 A. O1 y* x9 f8 W: ~
3.5778476783125*^9, 3.577847711390625*^9}, {3.5778477535*^9, ) k0 |" m. x2 G4 l8 e
3.577847775859375*^9}, {3.577847852734375*^9, 3.57784787165625*^9}, {
& k8 ^2 [# g7 c6 r 3.577847966390625*^9, 3.577847986703125*^9}, {3.577913298203125*^9,
) A& D( n( W( b% x8 ` 3.577913408046875*^9}, 3.577913447296875*^9, {3.5779192700625*^9,
& Q& w. d% A5 F# m9 P9 Q 3.57791931975*^9}, 3.577919394140625*^9, 3.577919458796875*^9, / [( c( k) R' H( U! J
3.577920302703125*^9, 3.5779570980247283`*^9, 3.5779588282469835`*^9, , C2 d* U7 f6 o7 J" E
3.577960515600726*^9, 3.5780121541875*^9}]
; `5 E+ ?/ t0 E9 q}, Open ]],& K9 O! l- n4 [- _4 Q7 M- d
: ?% F e4 \; [. l, ?( E
Cell[BoxData[3 R6 k6 ]' D+ A
RowBox[{/ A) E3 K: ?5 H7 }, w5 o2 e
RowBox[{"\:4ece21\:4e2a\:805a\:7c7b\:4e2d\:5fc3CM", "[",
4 V) M9 }, _3 o6 u1 F1 f RowBox[{"1", ",", "i"}], "]"}],
4 Z- s- a8 @2 I9 ~, A RowBox[{"\:5230CM", "[",
8 F `, ?+ v* R$ ~2 `$ R+ X RowBox[{"21", ",", "i"}], "]"}],
6 ?- q5 E* A; `' X* e) V4 c) t "\:8fd0\:884c\:4e0b\:9762\:7a0b\:5e8f\:ff0c\:5f97\:5230\:9ad8\:65af\:6838\& |3 F# S3 T& u' I) M1 \$ X# }
\:51fd\:6570u1\:5230u21"}]], "Input",
+ j+ X" I, h: M- \ CellChangeTimes->{{3.57792097971875*^9, 3.57792107725*^9}, {3 ]6 D3 n1 E3 M C, d6 m
3.5779212193125*^9, 3.577921224546875*^9}, {3.5779605210919356`*^9, 2 d% I$ Y' ?0 K. f
3.577960526583145*^9}}],8 _0 U V+ X3 P) B* O
# G3 D+ N4 R2 s0 c8 fCell[BoxData[
A6 B3 U2 r8 B8 Y0 o/ D RowBox[{"Clear", "[", "Delta", "]"}]], "Input",
3 t( \1 l% n7 E& p. V3 F6 ?; K0 _* } CellChangeTimes->{{3.57791779953125*^9, 3.57791780503125*^9}}],
; y' C; u9 z% |' D. S( w+ G5 _
/ M0 t# l3 m. m' x$ X: Z$ yCell[CellGroupData[{
5 ~% B9 R; l9 j6 @
H" D! q9 x2 d1 ]/ J5 v; k2 Q' j2 bCell[BoxData[/ V0 B9 q5 l2 N( L1 J/ T" p5 |% e
RowBox[{"Xa", "=",
& k U5 p5 Y$ a* _* ?3 x9 l1 U/ x RowBox[{"{",
/ M4 t M4 } l2 M RowBox[{/ ]$ n8 c7 y! o" j- U
"x1", ",", "x2", ",", "x3", ",", "x4", ",", "x5", ",", "x6", ",", "x7",
* z B- B6 e3 T. m% X- I" F* v ",", "x8", ",", "x9"}], "}"}]}]], "Input",6 i" `& p a1 i! P1 z- B" s
CellChangeTimes->{{3.577915885125*^9, 3.577915917671875*^9}}],# H5 X' j. y5 g2 P( L
3 @2 p7 z/ {/ d* e5 \9 Q& i6 `( lCell[BoxData[: A9 L/ Y O/ y
RowBox[{"{",
+ T& D& K& f1 T: M, U+ ? RowBox[{! L, Z9 E* P0 W
"x1", ",", "x2", ",", "x3", ",", "x4", ",", "x5", ",", "x6", ",", "x7", ",",
5 g' c: D2 p' d "x8", ",", "x9"}], "}"}]], "Output",5 d8 x# [3 G1 t- g E- E+ S
CellChangeTimes->{
9 P. Q4 ]. J- _; j& ^$ U# i: V7 k$ f 3.577915921125*^9, 3.5779202114375*^9, 3.577920516515625*^9, 6 I& z7 T+ ~* K2 n" q
3.577920662203125*^9, 3.57792077490625*^9, 3.57792090509375*^9,
1 F- I- R. ?0 F; B1 B" l# r" p) T. _ 3.577921145078125*^9, 3.577921329484375*^9, 3.577921423265625*^9, 0 d% | {1 A$ k# J8 j' O- p
3.577957103968339*^9, 3.5779572906382647`*^9, {3.577957337563146*^9, ; s* @- A: `& j+ }7 o
3.5779573648007936`*^9}, 3.5779573998384547`*^9, 3.5779574405545254`*^9, {/ H) G' E! R+ k- q
3.5779574803345947`*^9, 3.5779575349346905`*^9}, 3.577958833036192*^9,
3 G/ Z6 Z& ~! y0 D- ^ 3.577960538064765*^9, {3.5779607232682877`*^9, 3.5779608705013447`*^9},
; U$ o# h1 S. E( @ 3.577960901170998*^9, 3.577961447695015*^9, 3.5779616069712925`*^9, {5 ?5 }5 @) ~8 }! w2 }
3.577961638124547*^9, 3.5779616672029977`*^9}, 3.577961702599459*^9, {
* u* {" e( d& p! g- { 3.5779617344391146`*^9, 3.5779617594615583`*^9}, {3.5779617927208166`*^9,
8 j1 v! a, t, Z; h1 l+ c' j 3.577961846057309*^9}, {3.5779618785053663`*^9, 3.5779619036214094`*^9},
( N! L) {, a% q# ~9 x- |6 v" O 3.57801215725*^9}]
l/ w& i5 t9 g# |}, Open ]],
+ }6 }( T! e* M4 J
0 o0 j1 ?* m4 C YCell[CellGroupData[{: B! p `/ |: _6 U# C
0 e: |4 h/ O# R: @9 `- h
Cell[BoxData[
l# j% j# P, m RowBox[{"Ca", "=",
, g3 i# L" J4 O: B5 o9 X4 D RowBox[{"{", - m' V, T1 r3 v/ c: b6 X) C
RowBox[{3 L! X/ h- L3 [$ [! f
"c1", ",", "c2", ",", "c3", ",", "c4", ",", "c5", ",", "c6", ",", "c7", 0 Z8 ^' k% e2 F/ p% x
",", "c8", ",", "c9"}], "}"}]}]], "Input",
4 m ^# o o+ ^, T/ {& o% b! _8 ] CellChangeTimes->{{3.577915931921875*^9, 3.577915967953125*^9}}],3 ~# j- @1 P" f( ^! I5 t
- f1 Q0 J0 s0 Y& PCell[BoxData[0 d( F6 S; k. |3 K
RowBox[{"{",
% Q1 {- H8 |& G" G9 H1 Q RowBox[{
' _: t% b% R8 l! d. `1 O6 _2 V "c1", ",", "c2", ",", "c3", ",", "c4", ",", "c5", ",", "c6", ",", "c7", ",",
7 O2 H& J( [" v! t7 G "c8", ",", "c9"}], "}"}]], "Output",0 @2 X2 f' J" H, x
CellChangeTimes->{9 i, l% M' X6 f- t) n3 V
3.577915976625*^9, 3.577920215953125*^9, 3.577920310953125*^9, 3 Z% {7 `- R3 z0 v$ D
3.577920517265625*^9, 3.577920663078125*^9, 3.577920775703125*^9,
' V z' N# }6 r( L' P 3.577920905765625*^9, 3.57792114575*^9, 3.577921330125*^9, / l* x* J5 o6 M3 }0 W9 K! ^
3.57792142384375*^9, 3.577957106386343*^9, 3.5779572916366663`*^9, {
' e; w5 Z0 } b- d& K 3.577957338327547*^9, 3.577957365424795*^9}, 3.577957400743256*^9,
/ @4 a; ~5 Q6 V X; y0 A 3.577957441303327*^9, {3.577957481020996*^9, 3.577957535979892*^9},
$ n/ d$ G$ x: C3 F 3.5779588343153944`*^9, 3.577960599544472*^9, {3.577960723892289*^9,
, L! A2 e7 M$ | [+ ~ 3.577960871172146*^9}, 3.5779609019665995`*^9, 3.577961448365816*^9,
3 z q) y; H6 u5 _ c 3.577961607517294*^9, {3.577961638935748*^9, 3.5779616678269987`*^9}, / l x2 S/ f4 i& b5 F
3.577961703566661*^9, {3.577961735063116*^9, 3.5779617600699596`*^9}, {0 F! ?' S9 e8 [4 k l$ ~
3.577961793391618*^9, 3.5779618468841105`*^9}, {3.5779618793477674`*^9, , @0 u+ `# C& _
3.577961904604212*^9}, 3.578012158671875*^9}]4 Q% Y' J# C3 y9 H& `% s2 D' u. j
}, Open ]],
% P; _5 b2 z2 Q" b% o. m$ q8 h( K+ l. ~* o
Cell[BoxData[5 ^0 ~& G- I0 j
RowBox[{"For", "[", d/ N& @+ [! o1 \( C) [
RowBox[{
& c) w& Q; q* g6 Z) w RowBox[{"i", "=", "1"}], ",", - E" H( V" x; E3 T+ o0 l
RowBox[{"i", "\[LessEqual]", "9"}], ",", 1 _" ^8 v& _! }
RowBox[{"i", "++"}], ",", + ?# a, h, N: R0 c* V$ L- i* Z0 ^
RowBox[{
0 s _4 }: k" T5 ]* R RowBox[{"Ca", "[", : e: n& r( e' V0 l9 u" t7 |
RowBox[{"[", "i", "]"}], "]"}], "=",
4 L1 V L( f o4 Y+ o RowBox[{"CM", "[",
5 } @4 b. `! \7 s2 X RowBox[{"1", ",", "i"}], "]"}]}]}], "]"}]], "Input",
$ ^6 _6 b" p1 x) W CellChangeTimes->{{3.577915983546875*^9, 3.577916019953125*^9},
- v& r) V& V6 i! m' R 3.57792022403125*^9, 3.57792052028125*^9, 3.5779206656875*^9,
9 `: @3 U5 @: p. a* o3 i/ b: m 3.577920778296875*^9, 3.577920907875*^9, 3.577921140296875*^9,
0 k* a+ q1 r7 q, V 3.577921332234375*^9, 3.57792142584375*^9, 3.577957226662553*^9,
* R% Y* O" }7 Y$ R# \& j( I1 i$ C 3.5779572941638703`*^9, 3.577957335176342*^9, 3.577957367405998*^9, / L/ h. z8 ?$ [/ z8 O; Z
3.5779574034576607`*^9, 3.577957444064532*^9, {3.5779574828929996`*^9, + k' ]' l. a. {* {! \
3.577957538663097*^9}, 3.5779606027268777`*^9, {3.577960726232293*^9, 9 L* a1 c& G/ ~/ [, {) c
3.577960872778949*^9}, 3.577960904415804*^9, {3.5779614517042217`*^9,
/ y4 o+ q- s& E$ ~ 3.5779614520474224`*^9}, 3.577961505836316*^9, {3.5779616092020965`*^9, ; h- a r' F* B
3.5779616093892965`*^9}, {3.577961640604951*^9, 3.5779616696366014`*^9},
A6 K0 _% r4 j ]' l2 [' w 3.577961705345064*^9, {3.5779617369975195`*^9, 3.577961762113563*^9}, {
2 I* w% \9 V/ a7 W' C8 t9 g% m 3.5779617950764203`*^9, 3.577961851064918*^9}, {3.5779618822649727`*^9, % E& D% S" e0 v5 C
3.577961906897415*^9}, 3.578012176296875*^9}],& ]; B9 r. T4 a# V, @% x+ t
- I! ~' I3 c( b% U$ {/ E2 _Cell[CellGroupData[{
% H2 F$ [9 J: S- o2 F, A
% U. d! Z R3 DCell[BoxData[
6 b1 H4 n# \/ b/ T RowBox[{! O% J: ?7 j# ]# H9 g- ~. H
RowBox[{"(",
3 A& g7 t8 i4 I& t6 Y RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
- R6 K1 l/ J7 V `2 u1 }' q RowBox[{"(",
O" U5 P' a, B, `7 v/ U RowBox[{"Xa", "-", "Ca"}], ")"}]}]], "Input"],; c& }, Q! {( c5 @0 \) s) @
: A& {9 O0 P# ~( RCell[BoxData[
' l, b, e7 f+ A RowBox[{
: z/ y) \9 d; R) _3 i0 m SuperscriptBox[
# T [& j" M! s% d9 U6 a; @5 M: v RowBox[{"(",
j8 J, g2 l( Q9 |& i( J# {# C3 s2 H RowBox[{
1 j& s; `1 P: k RowBox[{"-", "0.304348`"}], "+", "x1"}], ")"}], "2"], "+",
$ a1 D# }# z" l/ q SuperscriptBox[% j& T$ B H0 I% I: t$ }" i& B
RowBox[{"(", & y+ m$ F4 s. B: T% F% c1 L5 U
RowBox[{
% n* i" W) l" }) f1 z' h" _ RowBox[{"-", "0.552818`"}], "+", "x2"}], ")"}], "2"], "+",
: _; Q: O2 I) _: D* g! k SuperscriptBox[
1 ~) ^# ^2 z9 \0 P; | RowBox[{"(",
1 n* i L4 e. {! [ c! w+ S- X# \ RowBox[{* x7 B7 m; }( M5 R. W# F, I: M6 @
RowBox[{"-", "0.33037`"}], "+", "x3"}], ")"}], "2"], "+",
0 H5 w8 ~% b9 i1 ~; m( o SuperscriptBox[$ u$ [2 q. L! M8 m% c
RowBox[{"(",
& w' i, u5 |1 S7 D# q RowBox[{1 l- v) W" J g4 K1 ~; z! ]. Z1 w
RowBox[{"-", "0.025823`"}], "+", "x4"}], ")"}], "2"], "+",
1 O9 t8 }4 g B SuperscriptBox[7 s8 \* e3 ?9 f" q) a# j( S6 t
RowBox[{"(", / D6 W* K# @/ d1 q5 Y2 @
RowBox[{
' S/ i) P E! k' } RowBox[{"-", "0.538462`"}], "+", "x5"}], ")"}], "2"], "+", $ b! x2 ~5 C( @& F
SuperscriptBox[
) h" B9 M' `. a. T4 z* C RowBox[{"(",
9 A% A( ?) u/ J& ]: o9 G RowBox[{
( Q# W# o; {- c+ e4 w# B RowBox[{"-", "0.752072`"}], "+", "x6"}], ")"}], "2"], "+",
, \. o, P) S1 u SuperscriptBox[+ P' ?2 _+ ]$ t7 U/ w' o
RowBox[{"(", - J& d$ m2 i; E: N1 K1 D7 n u
RowBox[{
( W/ X: N0 c% m/ {, T RowBox[{"-", "0.408943`"}], "+", "x7"}], ")"}], "2"], "+", : u# t# L% {$ o7 M9 }# W$ |
SuperscriptBox[( w2 n( y o& Z4 W! h' n
RowBox[{"(",
L( i, g' x- ~ T! | RowBox[{: J6 z* e6 f$ r2 O& m9 l
RowBox[{"-", "0.504532`"}], "+", "x8"}], ")"}], "2"], "+", * ?9 W; P$ [# B! y: l7 I
SuperscriptBox[# H3 H5 r& }2 f2 O
RowBox[{"(",
* u& l& r' u5 D0 l: O, F* _' ^ RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}]], "Output",+ U3 a9 \; F2 I1 }, o
CellChangeTimes->{7 m+ }: Z U7 d$ B" \
3.577920239578125*^9, {3.577920313765625*^9, 3.577920337375*^9}, 1 y' D- ]! O; b; E& X$ S8 Z' C
3.577920523875*^9, 3.57792066971875*^9, 3.577920780875*^9,
- t J8 L+ f3 M1 H: \1 `7 `. b 3.577920912375*^9, 3.577921147703125*^9, 3.5779213341875*^9, 0 p8 A U5 z1 i/ @; w4 e1 j
3.577921427984375*^9, 3.5779571106607504`*^9, 3.5779572305781593`*^9,
0 y- I c& y" {8 d ~ 3.577957296800275*^9, {3.577957340215151*^9, 3.577957369621202*^9}, 3 W8 ^& x- v2 t8 j! ?
3.5779574064528666`*^9, 3.5779574463577356`*^9, {3.577957484733803*^9, + e4 W& N5 r9 x- s+ Z
3.5779575407691*^9}, 3.5779588373105993`*^9, 3.577960607391286*^9, { P) o- E/ p- ~+ F: k) R3 G# \ l
3.577960728775098*^9, 3.5779608753061533`*^9}, 3.577960906849408*^9,
* J+ ~& l( \* C 3.5779614551050277`*^9, 3.577961509346322*^9, 3.5779616115109005`*^9, {
1 N# m6 x0 y. i) a$ ?* Y 3.5779616432101555`*^9, 3.5779616717114058`*^9}, 3.577961707607068*^9, {
) t; _/ J8 H% }" S 3.5779617396339235`*^9, 3.5779617643131666`*^9}, {3.5779617971824245`*^9, ) R6 T" K4 w. a }' s3 Q9 z
3.5779618537169228`*^9}, {3.5779618846049767`*^9, 9 w9 z, J& g' Q* Y9 _* e. a
3.5779619094246197`*^9}, {3.578012161203125*^9, 3.57801217953125*^9}}]
{9 y' S4 s2 D}, Open ]],
- L6 ]4 O/ P# R7 f- K$ L; {0 V' Y4 h. w
Cell[CellGroupData[{' E8 \6 S8 a/ U
8 t J, E7 b5 OCell[BoxData[! d6 I0 P$ W) W* c; a3 B& B, A3 l
RowBox[{) T6 F$ Q/ M; n! ]& o$ k! x5 f. m
RowBox[{"Ca", "[",
; A+ E& R- [1 \* Z _ RowBox[{"[", "3", "]"}], "]"}], "=", "0"}]], "Input",; s- z$ g. V8 Y' d
CellChangeTimes->{3.5779574142996798`*^9, 3.577961516116734*^9, 7 @* O- y9 _% _/ H' O
3.5779616465173616`*^9}],7 |4 W; }" \, s) ?) M6 p& R6 W
& _" f2 l2 N* e8 O: F8 [0 u
Cell[BoxData["0"], "Output",
; Y. y- Q" ?" s7 z9 M' o+ ~ CellChangeTimes->{3.5779574163276834`*^9, 3.5779615176611366`*^9, % m* E' w: x; |
3.5779616484049644`*^9}]1 D7 [+ v3 |* s+ P7 l, M0 @7 I
}, Open ]],6 u; w* R' {0 b( C
8 ], ? E# ~, f8 j9 e* k
Cell[CellGroupData[{
) |" B) t, N: l
+ q4 D& d/ v3 e2 w# mCell[BoxData[
! O N& J1 t& I# ^" A; B0 N RowBox[{4 ^8 K5 }$ {; _/ z- {$ e* a; n' E
RowBox[{"Ca", "[", : p k1 Y( [7 u6 g% l
RowBox[{"[", "5", "]"}], "]"}], "=", "0"}]], "Input",
a# ?2 T% S% ]0 R. V5 D CellChangeTimes->{3.577957376235614*^9}],
/ x# `5 U0 w- a) a' L, A `) D8 f1 X) M- l/ E% s
Cell[BoxData["0"], "Output",
: T! _; I) t0 B1 B CellChangeTimes->{3.5779573779048166`*^9, 3.5779614600346365`*^9}]
( V) l1 Q+ x5 f}, Open ]],
- D* ]4 Q$ k+ V3 Y3 R2 G( N; T6 z, e( k* f; ~9 ^7 Q
Cell[CellGroupData[{
9 G9 {) g7 }8 V0 X v! w/ @* z5 d3 s# e) m
Cell[BoxData[+ x7 h' c8 P9 K/ @3 x
RowBox[{
( H: j3 f! i6 i$ t+ w RowBox[{"Ca", "[",
2 a% O6 J: w4 j/ D RowBox[{"[", "6", "]"}], "]"}], "=", "0"}]], "Input",
- K! T0 ^7 O. [ CellChangeTimes->{3.5779573112927003`*^9}],
% D" ~- d4 T O# \- Z, Q/ H5 |9 A& H' k& H2 u4 J( A5 o
Cell[BoxData["0"], "Output",$ Y4 \7 w2 T+ ?1 n
CellChangeTimes->{+ F. t. U/ r! l$ ~
3.5779573131491036`*^9, 3.5779573438343573`*^9, 3.5779573794336195`*^9, 0 J4 M2 R& F! ~8 b% ]
3.5779574208204913`*^9, 3.5779574530345473`*^9, 3.5779575154814568`*^9,
0 _- }. O& k1 v! V, N* o2 s 3.57796080484083*^9, {3.5779608543709164`*^9, 3.5779608784573584`*^9}, 1 E. o6 f/ ~3 k2 {% o0 n0 N
3.577960912044217*^9, 3.5779614619378395`*^9, 3.577961522372345*^9, 0 Y- w! j, [4 i' |
3.57796161703331*^9, {3.577961650978969*^9, 3.5779616775146155`*^9}, 8 M; H/ S8 o7 R4 l
3.5779617114602747`*^9, {3.577961801144831*^9, 3.5779618299268813`*^9}}]: h: ~/ Q9 r/ C" G, I% y
}, Open ]],
! e$ |- W, c8 O& V9 R2 Z5 | N# V) G$ N j! O
Cell[CellGroupData[{
7 L( g2 p; s# t8 L5 r% H# U+ z7 S: Z; s7 ?& }0 D3 n% x; O0 Y
Cell[BoxData[2 S% f2 E6 z3 e ]+ f
RowBox[{- }8 o9 D8 b5 m/ o- f
RowBox[{"Ca", "[", 0 z* Y5 U: U u& D
RowBox[{"[", "7", "]"}], "]"}], "=", "0"}]], "Input",
; ^$ t/ g9 B1 X5 ]# M. q8 w; ^( A CellChangeTimes->{3.577921461734375*^9}],9 C6 w9 u' C& P/ o. u) X& H% y
( T" _3 T( X/ Q. a' \
Cell[BoxData["0"], "Output",
3 M7 R7 g2 a: x# W8 r0 i CellChangeTimes->{3 p, P! k3 _! m N \4 }
3.57792149215625*^9, 3.5779571133283553`*^9, 3.5779573808844213`*^9, ! M2 F! d" `" t. s, h9 c! T
3.5779574235192957`*^9, {3.577957489351411*^9, 3.5779575470715113`*^9},
$ [. r, l9 }0 @# ]: c 3.5779588406958055`*^9, 3.577960732409904*^9, 3.577960778851185*^9,
8 ]8 y! `# D4 l& v, X! `8 P- l 3.5779614640906434`*^9, 3.577961617641711*^9, 3.5779616533033733`*^9, : t8 E# z! c! j! A3 J" y8 `! j: h! D
3.5779617130982776`*^9, {3.5779618019560328`*^9, 3.577961888005782*^9}}]
) z3 r: w0 B/ {% [2 H0 b}, Open ]],: K& J2 k$ ?4 ~5 \8 t% S: O5 w
2 C |" N# A3 c4 M) x& J( A
Cell[CellGroupData[{
4 \" O' {: N4 I; @) R4 F5 ?. r3 ?2 m' m6 u# j
Cell[BoxData[ H! l& |$ E' w" ?: g4 ^: z
RowBox[{
2 k( D3 G; X8 ]* \' U4 j+ z2 ` RowBox[{"Ca", "[",
! s; b1 ^' i: A+ p RowBox[{"[", "8", "]"}], "]"}], "=", "0"}]], "Input",
2 _0 K; H* e9 t- R1 W CellChangeTimes->{3.577957303118286*^9}],
: b/ C6 w! L: }7 g! s
0 W: K8 q! W- f! y5 QCell[BoxData["0"], "Output",% a [3 m t# i; S( Z
CellChangeTimes->{1 M; w! F% V0 Q
3.5779573073770933`*^9, 3.577957382647225*^9, 3.5779574565133533`*^9, {
7 W7 {! W" {( |* H' v 3.5779574910986137`*^9, 3.5779575189290624`*^9}, {3.577960756371546*^9, E% V! K& V: R. g
3.5779608308772755`*^9}, 3.577960881717764*^9, 3.577960915320223*^9, 8 n9 j( g( Q3 v5 U Q6 x
3.5779614659002466`*^9, 3.5779615232459464`*^9, 3.577961618671313*^9, h' [! V8 {4 Y6 |
3.5779616809778214`*^9, 3.5779617145334797`*^9, {3.5779617456243343`*^9,
: K5 s, a, v. z 3.5779617686187744`*^9}, {3.577961803796836*^9, 3.5779618329844866`*^9}, {
9 H3 a* |/ Z( F+ r2 k 3.577961889378585*^9, 3.577961912965826*^9}}]; k2 E0 l! U$ ~- v6 |$ q
}, Open ]],
/ ]0 c" m: [2 x& W0 o& a9 Z+ x) Y! i' B
Cell[CellGroupData[{
( { y0 p, ` z! @; h' J+ y) Q4 ~8 U' {5 L' }
Cell[BoxData[4 V, d% Q' P9 ~2 T! `; h5 b
RowBox[{
+ I! d* F, [1 Y RowBox[{"Ca", "[", 2 {% {8 x: r, w# s/ I# Y9 E
RowBox[{"[", "9", "]"}], "]"}], "=", "0"}]], "Input",
6 }2 V4 [( N% j8 B/ O6 m CellChangeTimes->{{3.577916107859375*^9, 3.577916113453125*^9}, {
* N9 q! e2 \' E) i4 Q/ } 3.577920324765625*^9, 3.577920332875*^9}, {3.5779205288125*^9,
+ E Q% Q3 @. ^9 l h6 Q( o% v; u 3.577920534375*^9}, {3.57792067859375*^9, 3.577920688875*^9}, {
% r; t+ {- I, Y/ N1 ^! J: J5 h- y( V 3.57792078446875*^9, 3.577920797171875*^9}, {3.57792091940625*^9,
" N1 y- F7 l& u) E9 H( z) e 3.577920923875*^9}, {3.577921154453125*^9, 3.577921160328125*^9}, {8 P( K# I+ v( [% _" n2 E
3.577921339734375*^9, 3.577921348109375*^9}, {3.577921432890625*^9,
. O. n1 J! p5 W# B/ A/ @2 u; f 3.577921435703125*^9}}],
~+ f8 T3 s) X9 ?! I2 d
4 K- |. f2 V0 G* O. RCell[BoxData["0"], "Output",
# V# p1 L }8 D$ |/ {* }5 W0 E CellChangeTimes->{& k% B8 D% v5 U* V
3.57791611621875*^9, {3.57792032565625*^9, 3.57792033440625*^9}, {5 u0 H+ j. m4 l$ ?
3.577920530328125*^9, 3.577920535140625*^9}, {3.577920676546875*^9, 3 H+ m. M# L9 p. f& J4 a6 t Y% S
3.57792069140625*^9}, {3.577920785734375*^9, 3.577920798453125*^9}, {: O7 D! D, \( z' h& Q: Z& a) Y
3.57792091690625*^9, 3.57792092634375*^9}, {3.57792115590625*^9,
. k, v( W2 _$ k- h. O- L 3.577921160984375*^9}, {3.577921341484375*^9, 3.577921348890625*^9}, {
7 m5 ^, \# v& ^; \ } 3.577921433703125*^9, 3.577921437140625*^9}, 3.577957114155156*^9,
' d2 n) C& R% p7 t4 W3 ? 3.5779572385809736`*^9, 3.577957346314761*^9, 3.5779573843164277`*^9, ! i& w( n P- \/ V. K
3.5779574262025003`*^9, 3.577957459134158*^9, 3.5779574929862175`*^9,
5 f7 c/ B8 H4 y6 o: \0 @1 u- | 3.5779575497079163`*^9, 3.5779588425366087`*^9, 3.5779606144112983`*^9, {
4 J) i1 V' F" l( W1 Z 3.5779607339075065`*^9, 3.577960757759948*^9}, {3.5779608577717223`*^9, " O% O U5 ^, q$ x% T
3.577960883308967*^9}, 3.577961466820648*^9, 3.577961619373314*^9, {* a9 ^5 B( P _8 O
3.5779616551441765`*^9, 3.577961682569024*^9}, 3.577961716046683*^9, . d/ t* ?6 O( {- [# N
3.5779617465759363`*^9, {3.577961834419689*^9, 3.5779618634045396`*^9}}]
: G, A: V2 G- v1 o/ _# W ~}, Open ]],( r. z' |% \$ f! _! ^& j- h! R
8 z4 u1 U2 A" V& ]# W; {' ^; ^Cell[CellGroupData[{# L9 y* M5 l* g, I" p" I
# D Q o# ~$ p# v4 FCell[BoxData[; X* [! a1 _2 y. ` f
RowBox[{"Delta1", "=", # x [. i( O8 M& l6 j
RowBox[{) Z" v" s& i3 m9 r% g% N
SubsuperscriptBox["\[Integral]",
* e6 ]1 K* U' Q: J3 Z) ]( Z: V RowBox[{"-", "\[Infinity]"}], "\[Infinity]"],
% Y6 `0 D$ R% I4 `4 O) a RowBox[{
/ o6 O) I; X0 F; n SubsuperscriptBox["\[Integral]",
- J2 |2 F+ z9 C; X+ @5 V, ], e RowBox[{"-", "\[Infinity]"}], "\[Infinity]"], 7 h4 r9 t( K; k0 _
RowBox[{9 l, t& u+ e! ]' _! {
SubsuperscriptBox["\[Integral]", % |1 ]7 R; v% Z0 N1 |5 S4 o5 c% l9 u& ~
RowBox[{"-", "\[Infinity]"}], "\[Infinity]"], , v% h# p. X- d3 Y7 N
RowBox[{
# ?4 _- c g+ \9 V SubsuperscriptBox["\[Integral]",
" j/ `# y" {+ l9 @9 V0 P& E( T RowBox[{"-", "\[Infinity]"}], "\[Infinity]"],
6 y4 ^+ ?5 P+ _5 f, Z1 b* R" y RowBox[{' M' S* U% T1 L0 J4 |
SubsuperscriptBox["\[Integral]",
8 f8 ?& [* N8 o/ l$ z7 { RowBox[{"-", "\[Infinity]"}], "\[Infinity]"],
+ r' _. m6 O: r& V# _& f/ S RowBox[{9 ? r0 x( E4 ?$ b$ |& N0 p0 i
SubsuperscriptBox["\[Integral]", k. r p5 |* }( T
RowBox[{"-", "\[Infinity]"}], "\[Infinity]"],
2 o- X4 w5 p; w" }* F* k- j RowBox[{7 m) O2 I. h9 b9 X0 j6 S+ B
SubsuperscriptBox["\[Integral]",
3 f6 N; `6 \. L ?' M7 ^! f RowBox[{"-", "\[Infinity]"}], "\[Infinity]"],
! P8 y* K2 C+ l/ C RowBox[{
. r0 k5 U: N2 ]7 u SubsuperscriptBox["\[Integral]", # Z8 r' k! f6 W
RowBox[{"-", "\[Infinity]"}], "\[Infinity]"], " x" X! }* C+ J0 n" Y" q1 h
RowBox[{
: {$ M+ @1 `9 { SubsuperscriptBox["\[Integral]",
+ k5 G: Q" ~$ W% W. s$ k, j; {5 B" I RowBox[{"-", "\[Infinity]"}], "\[Infinity]"], ( j# O+ I7 G a" a2 R( ^/ e7 r/ U
RowBox[{
3 b: L+ K3 k Z RowBox[{"Exp", "[",
" [+ L) Z$ P. e5 E2 ^. j8 ^% ] RowBox[{
$ |7 h! i6 [# T: K. ^9 b RowBox[{& m. F8 i: J* F/ k" [ v5 D7 P0 `
RowBox[{"-", 9 n6 x- f$ e% }4 T2 a, L0 |
RowBox[{
5 t/ j: \$ o" i5 b8 ~+ P RowBox[{"(",
" i) C8 y% I# _+ W4 B0 b; [ RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
; z+ ~. b4 w6 v V1 ] RowBox[{"(", # i( s5 N% e- D; b6 u! O/ g
RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", * q8 T$ I% K- W0 ~! x$ _. ~8 }9 N
"Delta"}], "]"}], 8 n. _5 j/ v& V3 k& V, m6 w& q1 k
RowBox[{"\[DifferentialD]", "x1"}], " \5 Q9 M' U# ~
RowBox[{"\[DifferentialD]", "x2"}],
3 W' |- ]. C) S U6 N/ Z$ m RowBox[{"\[DifferentialD]", "x3"}], + C) h1 e1 j& D2 f7 O2 ?( p# B
RowBox[{"\[DifferentialD]", "x4"}], 6 o% Z6 m2 p7 Q }: W+ ^* b6 b
RowBox[{"\[DifferentialD]", "x5"}],
- d& @" U C w9 H h" p5 Q! c RowBox[{"\[DifferentialD]", "x6"}], " Q) H: z6 i* W1 v' V/ `/ Z
RowBox[{"\[DifferentialD]", "x7"}], ) z, `! B: b$ k% h( U0 I% j: H
RowBox[{"\[DifferentialD]", "x8"}],
& W0 d0 H m, a: F RowBox[{"\[DifferentialD]", "x9"}]}]}]}]}]}]}]}]}]}]}]}]], "Input",
+ e- b# B9 M |; g6 L: D CellChangeTimes->{{3.5779153084375*^9, 3.57791531240625*^9}, {
- ?, @* ^" `9 ^) w' V 3.5779153614375*^9, 3.57791536246875*^9}, {3.57791678490625*^9, * L/ `7 J+ J% d; J4 O# e- S+ h
3.5779168805625*^9}, 3.577917071640625*^9, 3.57791718425*^9, {( ~$ O/ k1 F4 e! p8 ]8 B0 G) I( h
3.57791733884375*^9, 3.57791734359375*^9}, {3.577917406875*^9,
3 s: Y2 [5 m4 o" C% q& i 3.577917409*^9}, {3.577917781921875*^9, 3.577917795890625*^9}, {8 o4 Z- |+ ~2 e7 I
3.57791886146875*^9, 3.57791887259375*^9}, {3.57791891146875*^9, % K3 X* Q4 K' `3 V
3.577918964453125*^9}}],$ B# L$ u6 W5 g: B) h* ]% ~
$ V7 n: y0 D6 {; Z' h6 W0 q* iCell[BoxData[
. S/ l/ c& ^3 [ ? RowBox[{"97.40909103400237`", " ", 1 X! Z9 }& H2 _5 O3 h" b) h2 ]8 j
SuperscriptBox["Delta", "8"], " ", % \' O5 E) Q* e- @# k/ p
RowBox[{"If", "[",
, r) ~* l3 t! ]$ W) }3 t- F RowBox[{
$ z1 V2 ^8 v+ l RowBox[{# d+ L& e/ t* J( }. h9 E6 ^6 x
RowBox[{"Re", "[",
' D' i4 S4 z! a SuperscriptBox["Delta", "2"], "]"}], ">", "0"}], ",",
" X8 G( T7 F4 W+ K$ X, S* K FractionBox[ E/ P+ B8 E6 X
RowBox[{"1.7724538509055159`", " ", 1 f s8 K* L) I
SuperscriptBox["\[ExponentialE]", 1 {% X' B. i* B: e
FractionBox["1.1102230246251565`*^-16",
* s. s! r3 Z* c SuperscriptBox["Delta", "2"]]]}], 0 N( H% |2 J. `' w* }
SqrtBox[0 Q+ ~: w! q% M6 r0 V6 k0 P) w
FractionBox["1",
7 Q, Q# m0 t2 e SuperscriptBox["Delta", "2"]]]], ",",
% z y9 {0 K! C% ? RowBox[{"Integrate", "[",
& H t! }) N4 z9 ?4 Y' [# I c RowBox[{1 B% A2 _! c+ d, I: E3 i+ `. @
SuperscriptBox["\[ExponentialE]", + D7 V& M) |* D
FractionBox[
: ]5 n, Q# d4 }* v) n2 p6 f RowBox[{"1.1102230246251565`*^-16", "-", 2 V7 W6 K' h( p+ b
RowBox[{"1.`", " ",
- j# O$ ]9 Q, u+ R2 C' j SuperscriptBox["x9", "2"]}]}],
- }+ e1 U3 J" z6 I" p* W1 \) B5 Q SuperscriptBox["Delta", "2"]]], ",",
+ S4 v; g. J( ^ RowBox[{"{", 6 }. s# L7 t7 c. ~8 q
RowBox[{"x9", ",",
" L' V# j- M3 x" c0 r% ^6 { RowBox[{"-", "\[Infinity]"}], ",", "\[Infinity]"}], "}"}], ",",
) Z: g5 u% e3 _ RowBox[{"Assumptions", "\[Rule]", * K9 }0 H% L: v) A: l$ i. P- A
RowBox[{
) ~8 e' P9 M* K2 n RowBox[{"Re", "[",
5 Z+ a/ |3 D" {/ O SuperscriptBox["Delta", "2"], "]"}], "\[LessEqual]", "0"}]}]}],
# z: t @% [4 ~4 S "]"}]}], "]"}]}]], "Output",: m6 ^) _" v1 J, Y5 B0 g: d T
CellChangeTimes->{3.577915314703125*^9, 3.57791536890625*^9,
+ H7 y; }, t" O, T1 Q( Q 3.57791688871875*^9, 3.5779170798125*^9, 3.57791719340625*^9,
- r4 U V& V% c 3.5779173640625*^9, 3.5779174255*^9, 3.57791786128125*^9, 3 R [# \, u* D+ c# r1 a+ W
3.577918058328125*^9, 3.577918134703125*^9, 3.577919019796875*^9,
( \) r: z; `2 N 3.577920388796875*^9, 3.5779205859375*^9, 3.577920727078125*^9, 2 x2 L6 u4 s$ h! Z
3.57792083884375*^9, 3.577920979015625*^9, 3.5779212189375*^9, , g/ R- c- [( K9 z( c
3.57792139025*^9, 3.577921489421875*^9, 3.5779606695417943`*^9}]0 D3 G9 W \( @0 O+ j
}, Open ]],
* B, C, z& o& G$ T/ f. a' C* S: W3 @, s8 v% f, n6 |# o
Cell[CellGroupData[{6 B- _. D7 v, v
5 O) J; G& Z6 _6 |: [/ ?/ {+ H. V
Cell[BoxData[, e' @; [; z0 A8 E
RowBox[{"Delta1", "=", 1 n8 y0 T. [; w0 ~" S2 H& w* X/ f
StyleBox[
% P4 I5 {9 P" M. k0 C6 h) z! ]9 b RowBox[{"97.40909103400237`", " ",
: I+ c1 _" v7 @. \4 g! { SuperscriptBox["Delta", "8"], " ", ' z/ J3 k8 `$ _
FractionBox[* p; g, W: n- m. K5 b
RowBox[{"1.7724538509055159`", " ", 2 J8 g! x" c% _7 \9 {( S
SuperscriptBox["\[ExponentialE]",
' t ~. p8 |- e+ G: J2 N FractionBox["1.1102230246251565`*^-16", 1 Q# b% g! R# p! N7 {4 @
SuperscriptBox["Delta", "2"]]]}],
' Q$ O' H+ i. A# F SqrtBox[
( |4 G8 J. x h FractionBox["1", / T; T! ~# e$ C* c: P' u
SuperscriptBox["Delta", "2"]]]]}],
, e0 u* ]( ?7 v% F4 @, C FontWeight->"Plain"]}]], "Input",
/ Y% w; x) x9 S- m CellChangeTimes->{{3.577919054890625*^9, 3.577919076328125*^9}, {0 w% Q0 n6 R7 N0 }* c6 H/ S
3.577920422671875*^9, 3.57792044959375*^9}, {3.577920594890625*^9,
0 R* _8 ]& X5 o! G6 |) l 3.5779205978125*^9}, {3.5779207405*^9, 3.57792074359375*^9}, {3 s, @! p, W/ p1 N# E5 D: F: c
3.577920846078125*^9, 3.57792084959375*^9}, 3.577921100453125*^9, 1 ]* `6 H& H& B! Q/ _! f0 s
3.577921302609375*^9, {3.577921396640625*^9, 3.57792140075*^9}, & w' G$ G& n( c8 s$ }
3.577921500234375*^9, {3.5779606881994267`*^9, 3.5779606915378323`*^9}}],
. U# G. J6 D( h6 F( e" y( ]! ~$ Z3 Y6 Y j& ]4 ] i
Cell[BoxData[" m, k) |2 ?- r3 `5 J
FractionBox[
) x% d3 q/ j, ^/ ^ P/ V8 `1 Z RowBox[{"172.65311851642346`", " ", : l" I) y! Q! N; A
SuperscriptBox["Delta", "8"], " ",
1 X* G6 U U! D3 a0 F' K ` SuperscriptBox["\[ExponentialE]",
, ]. Z1 U( c+ D+ g1 r' u t V7 U FractionBox["1.1102230246251565`*^-16",
3 b8 \* N6 _* ~2 |! S SuperscriptBox["Delta", "2"]]]}],
1 ` B2 z. t) S% W SqrtBox[
% w; ]& Y% x7 l x. j/ A1 l$ }* ` FractionBox["1",
! E( y5 D/ b6 g- i2 i SuperscriptBox["Delta", "2"]]]]], "Output", b9 @( M7 f! _5 k0 P5 |
CellChangeTimes->{
$ Q) T% }3 T9 W* p6 S6 c9 ? 3.577957275022637*^9, 3.57795735116637*^9, 3.577957388263234*^9,
! I/ T; K+ G" z' y. l v% }+ w. Y 3.577957429759307*^9, 3.5779574644225674`*^9, {3.577957495341821*^9,
6 }+ ]! ~- a; P' I( x2 P4 R 3.577957524966273*^9}, 3.577957555479926*^9, 3.5779606933318357`*^9,
; \/ D( z2 Q0 n$ G1 H6 T 3.578012166234375*^9}]
7 l5 v' O1 j6 g) @) }}, Open ]],
$ m4 I! J- j4 ]" C- G: s$ M1 Z
' \" v8 r! D' b4 k. p5 eCell[CellGroupData[{5 [0 o& j7 z' M. u
4 C* [) P% W+ B$ B
Cell[BoxData[
6 a) j. {0 Y1 P$ W9 Z4 [% M! ~& i RowBox[{"DeltaX", "=",
& }" G, I! _. J; K V d0 S* Y RowBox[{"FindRoot", "[", ' X3 f( g8 }5 N1 l& s0 l
RowBox[{0 X2 i3 a, f5 s' e I
RowBox[{"Delta1", "\[Equal]", "1"}], ",",
/ L! h3 A8 G7 R" w- B% A RowBox[{"{",
* F' h- i9 q! M RowBox[{"Delta", ",", "0.1"}], "}"}]}], "]"}]}]], "Input",
" s. r, ]- x! [) I' Z CellChangeTimes->{{3.577917987171875*^9, 3.577918019109375*^9}, {% |; g' c* _6 {
3.57791809359375*^9, 3.57791809525*^9}, {3.577918142421875*^9,
+ w3 m7 x) |& ?: c 3.57791816790625*^9}, 3.57791913871875*^9, {3.577919206734375*^9, # y$ J% ]# D6 Z" i; y ^! W G0 _
3.57791921584375*^9}}],( {/ g4 A g' v& J
) i& s0 F5 a$ ]* {8 [Cell[BoxData[
3 O6 R/ V- W; T. }( s& j3 c RowBox[{"{", . \& W3 I" ^6 e' G' b7 P) H0 }
RowBox[{"Delta", "\[Rule]", "0.5641895835477563`"}], "}"}]], "Output",
$ l! a5 O d* ]9 l1 G) D CellChangeTimes->{
) Q7 \+ K7 U9 p% G 3.577918020859375*^9, {3.577918138328125*^9, 3.5779181693125*^9}, 6 m! F1 U2 K5 I( S9 F) ^
3.57791914315625*^9, 3.5779192174375*^9, 3.577920459234375*^9,
2 ]3 \$ ]4 V/ G; Q1 x4 X8 e7 A2 u 3.577920625578125*^9, 3.577920748296875*^9, 3.577920852515625*^9, ?$ m" G1 Y* ^ R1 Q1 F
3.577921108140625*^9, 3.577921305546875*^9, 3.577921403703125*^9,
$ |! p/ g) H, s, a 3.577921503515625*^9, {3.5779572551794024`*^9, 3.57795727691024*^9}, {
6 ^4 K/ y2 C* D1 ]- {9 y 3.5779573234295216`*^9, 3.577957352414372*^9}, 3.577957389792037*^9,
* q$ G: X5 M/ p0 ]# t3 \ I 3.5779574309761086`*^9, 3.5779574661853704`*^9, {3.577957497042224*^9,
! t; b$ G8 N8 Z! {7 Z/ Q7 w 3.5779575262922754`*^9}, 3.577957557071129*^9, 3.577958853019827*^9, {* P9 e& v2 y w" O3 L
3.57796070150625*^9, 3.578012167703125*^9}]0 i6 F' |7 w# u: S0 @) ^
}, Open ]],
( G7 G$ d, I4 E0 n
) M) k4 c) c' _Cell[BoxData["\:805a\:7c7b\:4e2d\:5fc3C1\:5230C21\:3001\:9ad8\:65af\:6838\, q. t* \5 \- w* f
\:51fd\:6570u1\:5230u21\:5982\:4e0b\:ff1a"], "Input",; n- v4 H+ s8 V @( |) Y# M
CellChangeTimes->{{3.57792124640625*^9, 3.577921284203125*^9}, {
+ j+ x2 u! l# P4 R: t1 q 3.577960705312657*^9, 3.577960707621461*^9}}],
$ B2 \, ~, @! L0 W& Y
) c8 ]5 ^2 B# Z/ R4 lCell[CellGroupData[{
^( ~. E' j+ m6 A. m7 X& r* k' O" j8 F" o/ \+ b2 J
Cell[BoxData[
% g, x& w! g: D+ H }7 U RowBox[{"C1", "=", "Ca"}]], "Input",
S* k" A( O7 S/ O3 f* B CellChangeTimes->{{3.577920010125*^9, 3.5779200415*^9}}],
' t0 `& ^* }9 d& b+ m
1 {! o5 }- y; ?. n; cCell[BoxData[9 \" A& `: U! P$ J
RowBox[{"{",
! p" u- [/ c1 B: h# O1 K1 F/ B/ A6 C0 { RowBox[{- B: P) x. B R
"0.304348`", ",", "0.552818`", ",", "0.33037`", ",", "0.025823`", ",",
$ a* T; r- p* @$ s x. D& |% O "0.538462`", ",", "0.752072`", ",", "0.408943`", ",", "0.504532`", ",", 1 K! T! H& @# j2 |6 L/ H
"0.`"}], "}"}]], "Output",
7 Y9 K, P6 y( i* I e( q- h CellChangeTimes->{3.5779200429375*^9, 3.577957279796245*^9, * N2 j2 U4 p, W
3.577960710273465*^9, 3.5780121855*^9}]) Y5 g% [! o& N" T, x) E
}, Open ]],
6 `4 U n3 d4 S" n+ J% e3 a9 F% ?4 T1 I. W5 E! U5 |( P' t
Cell[CellGroupData[{8 K/ V! ~3 V( M; n" \7 j& b% J/ F
4 \2 _8 V# q( U( e: |) wCell[BoxData[
: R) v, S3 T$ d! u3 t/ `" [3 W4 z RowBox[{"u1", "=",
n9 W6 R- W' k9 q/ h2 S7 `' @ RowBox[{
- ]: L, i8 r2 s0 y RowBox[{"Exp", "[",
; J! S$ a8 @+ E5 f1 u+ L RowBox[{
~" e a) U/ t6 \5 f5 f RowBox[{
8 s$ {% B7 O: u/ \ RowBox[{"-",
! j5 ~( I) d. Z, L1 s+ W RowBox[{
' o5 K" `+ ?% {7 G) l; g: R RowBox[{"(",
9 t# h- d+ F! T' A RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
6 g, O5 E- b3 y. f) ]1 S) K RowBox[{"(", 0 c# @8 w l6 E, B' z' R. c% [# K
RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
: \8 y3 ~* W6 T+ Z- L+ p5 y "]"}], "/.", "DeltaX"}]}]], "Input", K9 G* V% _/ d0 P6 |* G
CellChangeTimes->{{3.577915830328125*^9, 3.57791584871875*^9}, {
, G2 J6 N; H8 T" g 3.57791608375*^9, 3.57791613809375*^9}, 3.577917047203125*^9, {
R$ j. U) h) I/ \6 p. { 3.577919193484375*^9, 3.5779192326875*^9}}],
! |. J5 e9 F1 s4 z( a* [& F
* d( C" ?0 E7 p D6 c" SCell[BoxData[
) B2 z E, M8 Q- i* M c SuperscriptBox["\[ExponentialE]", 8 R+ h7 u5 b4 W. ~
RowBox[{"3.141592653589793`", " ",
& _) C: M0 c) `7 N$ E1 R RowBox[{"(",
6 C1 c2 [4 H, A; j$ h5 |, D" U( x; r" e RowBox[{
* M/ T- R% d3 @! b RowBox[{"-",
: C. Y9 {, T3 J) V# r& j SuperscriptBox[
* b" u' k% {9 Z/ H$ I e& R3 F RowBox[{"(", 8 r+ h3 ^; ?% F! ~
RowBox[{- @4 U2 k, e7 z% q
RowBox[{"-", "0.304348`"}], "+", "x1"}], ")"}], "2"]}], "-",
! ^( a8 U- H: l9 D O7 H1 O! c SuperscriptBox[
9 E8 Y. r) S% e8 B RowBox[{"(",
( w% v1 s- |" H$ R1 N RowBox[{% [5 H, o9 w8 k1 o6 C- p( B# l
RowBox[{"-", "0.552818`"}], "+", "x2"}], ")"}], "2"], "-", - w" j- K, Q5 ` n" X
SuperscriptBox[2 R9 } {3 x# y B) c. g& y
RowBox[{"(",
1 L7 q7 j- I8 c8 Y; h7 ]2 k7 ~ RowBox[{% Z# h8 ^7 U: e6 M" d: W+ o2 i7 g
RowBox[{"-", "0.33037`"}], "+", "x3"}], ")"}], "2"], "-",
. R3 O8 N( I# K0 }. F SuperscriptBox[$ F: t$ `3 {3 t+ P& x" p2 F
RowBox[{"(",
, L% z5 a( [# @. R H8 r RowBox[{
1 `$ i7 D. i0 e# Y" K5 B, C: u RowBox[{"-", "0.025823`"}], "+", "x4"}], ")"}], "2"], "-",
& N% f* c! y0 {, h% h SuperscriptBox[' o, R" B; h& y4 [" J9 P
RowBox[{"(", ; h9 V" I; Z* a7 X; e+ E
RowBox[{
; ^ h6 ~- [4 z. E$ V3 \" @ RowBox[{"-", "0.538462`"}], "+", "x5"}], ")"}], "2"], "-",
, [6 I% V( e- F SuperscriptBox[$ I/ i9 x) j' H8 ?6 U$ E
RowBox[{"(", 1 C2 L: }; J4 S5 Q7 c( O
RowBox[{1 b$ W8 O5 O- g' c' ]
RowBox[{"-", "0.752072`"}], "+", "x6"}], ")"}], "2"], "-",
5 L- {9 ~' G O z SuperscriptBox[/ S: L$ O r" \
RowBox[{"(", - o2 T: g( U, j
RowBox[{
$ G' S* ?" K$ O, _. Y3 B RowBox[{"-", "0.408943`"}], "+", "x7"}], ")"}], "2"], "-", % a1 J9 M. ^2 H+ @: ~3 F8 y' Z& ~& X
SuperscriptBox[5 K4 B: ]6 f3 g/ Q
RowBox[{"(",
' b5 I1 M8 M& B4 {1 N/ F RowBox[{. G% N ?+ s$ l
RowBox[{"-", "0.504532`"}], "+", "x8"}], ")"}], "2"], "-",
) l6 A) A T5 H1 S- l ~ SuperscriptBox[7 I7 g P f/ q- R
RowBox[{"(",
) k3 b0 S- ], m( X" `" V RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], 5 m; {: |1 j c o$ u R
")"}]}]]], "Output",/ L9 Y z4 B& w4 A+ j7 I- ~ {
CellChangeTimes->{3.57791618121875*^9, 3.577917049421875*^9,
3 b1 R* p1 ^ t' y0 n; B1 q' d5 ^( j 3.577919237265625*^9, 3.577957283197051*^9, 3.577960712457469*^9,
/ E" I. P j7 n- \$ a8 Y, T 3.578012187078125*^9}]9 k# |, S0 v6 L1 @$ c. ^
}, Open ]],, O! S" s i- i5 k) j
! z% V6 J7 B8 L' ?1 |Cell[CellGroupData[{- b8 T9 D0 G% O+ S6 }
- Y5 C: A8 Y3 R N r3 B" U
Cell[BoxData[5 ?- ~- v9 Y0 N1 |, A- y
RowBox[{"C2", "=", "Ca"}]], "Input",6 P& D1 X3 n0 M- v _- z; p( D9 B
CellChangeTimes->{3.57792047321875*^9}], c" S, v4 e7 |) @; P& r
e( M t1 r- y2 q
Cell[BoxData[/ I3 M" s" }% u( b7 M# a) M
RowBox[{"{",
6 Q) y! Z6 k# ^( A+ d8 a RowBox[{
7 V, N3 Y' t# e4 X "0.608696`", ",", "0.339186`", ",", "0.4943`", ",", "0.099338`", ",", . q) g4 O! H7 L9 G) `
"0.321678`", ",", "0.375283`", ",", "0.`", ",", "0.505539`", ",", "0.`"}],
- y/ s+ D7 V5 T1 p7 @ "}"}]], "Output",+ J5 C( h7 H# |
CellChangeTimes->{3.577920475421875*^9, 3.5779573274855285`*^9,
0 K' A- s$ G: V$ @ 3.5779607401163173`*^9, 3.578012204671875*^9}]. V5 n' {; B6 I, N3 m/ }2 }/ \
}, Open ]],
: g" q& o% D! j, @
/ o/ |2 O7 P% R3 T5 qCell[CellGroupData[{6 W; |/ y7 a# k4 |
3 `8 p5 M9 }5 e8 }+ F/ f
Cell[BoxData[8 K4 f0 W: N( E" F: `% f
RowBox[{"u2", "=",
1 H0 m5 |0 D& c RowBox[{
2 V1 [8 Z4 ?: i RowBox[{"Exp", "[",
4 ]1 r0 S0 }' S; ?0 d RowBox[{" `3 u3 y5 _ v* x
RowBox[{
8 B4 r$ `3 ^! `/ Z& x* B RowBox[{"-", 4 P8 B. T, {8 O/ ?
RowBox[{6 N3 x% N- {/ H0 J0 p! o8 q
RowBox[{"(",
! Q6 M6 E. \1 r# K4 y RowBox[{"Xa", "-", "Ca"}], ")"}], ".", & ]$ }6 U( m7 s7 v
RowBox[{"(",
' R; g K" O& e X+ K' j RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
7 V, H) z' W' }6 R# Z" ^7 V% I "]"}], "/.", "DeltaX"}]}]], "Input",5 \" ^0 s* l9 E) X2 L- p, K& P
CellChangeTimes->{3.577920484109375*^9}],
/ ?% I3 J( E+ S
: O& w B( ?2 v# J/ b! YCell[BoxData[
$ d' l; H3 L5 @) n1 u. n8 ?' a0 _ SuperscriptBox["\[ExponentialE]",
_; T( m4 c' ] RowBox[{"3.141592653589793`", " ",
_" R& ~' E: |7 j, G) S) A RowBox[{"(",
1 L; [' m* ]( r' o. ~' K4 t; p& ] RowBox[{
0 I) D2 E- w3 d3 h) { RowBox[{"-", 5 H: _$ K! P$ I4 v8 e: T
SuperscriptBox[# V1 C' ^' N3 u( n3 Z
RowBox[{"(", }0 Q9 L ?; T
RowBox[{
9 ]9 Q! o" }: x RowBox[{"-", "0.608696`"}], "+", "x1"}], ")"}], "2"]}], "-",
" g0 u" I. `2 B! d( ] SuperscriptBox[
# B/ c" I4 V2 f3 ?4 s7 X RowBox[{"(", 2 f( F6 |$ o, |2 D, ?" V
RowBox[{8 _( d( D& |% B* q d$ I5 u% Y3 q* m
RowBox[{"-", "0.339186`"}], "+", "x2"}], ")"}], "2"], "-",
& P. S% y! [. }9 D4 m/ s$ W( d2 x- e) D SuperscriptBox[3 w' e+ G4 P( D- L6 H% G
RowBox[{"(", 6 }/ l4 U4 J1 j/ ~8 Z. o
RowBox[{3 {1 l$ W4 B( ?
RowBox[{"-", "0.4943`"}], "+", "x3"}], ")"}], "2"], "-",
: M" E3 d& ? ] SuperscriptBox[
4 `$ |2 M' O8 n0 \) }6 } RowBox[{"(",
( M- m5 _% v1 Z* K5 d! P4 r; M2 e E RowBox[{. s' t: @) r+ x
RowBox[{"-", "0.099338`"}], "+", "x4"}], ")"}], "2"], "-",
- t, S2 N5 _9 J! l/ N+ m SuperscriptBox[
& d, t+ l* O+ h) a RowBox[{"(", ( j" H1 F3 o8 Q1 R# e+ Y0 O
RowBox[{2 ` W F. h2 w, l
RowBox[{"-", "0.321678`"}], "+", "x5"}], ")"}], "2"], "-",
! S ]$ w) q1 }4 Q3 v: a SuperscriptBox[& g2 K) a- H3 H1 _2 W+ ?. }
RowBox[{"(", 2 V4 x" D$ T9 g7 y
RowBox[{
5 n% n# f% U) s9 ~2 H/ ` RowBox[{"-", "0.375283`"}], "+", "x6"}], ")"}], "2"], "-",
# p5 |7 M1 ]: k( L SuperscriptBox[( A6 x4 ^, i! e# ?1 U
RowBox[{"(",
) }" K$ _* R( s5 @& E RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
7 y; Q5 R0 r" I/ B$ E M4 p: I SuperscriptBox[; E( ]! U& ~. w9 {3 B
RowBox[{"(",
; T+ @6 h' _, L2 e6 F- j" T+ A RowBox[{; D. i5 k' ]+ h$ t' e+ P1 L
RowBox[{"-", "0.505539`"}], "+", "x8"}], ")"}], "2"], "-", # J& C# x) w3 `9 m
SuperscriptBox[
2 @3 Y1 ^" ~0 g7 k7 z RowBox[{"(",
8 [+ e3 Z4 X# i' ^7 a' g1 B RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], * }* f; d0 j* k3 F8 i/ n2 x
")"}]}]]], "Output",
3 j* d0 c* n1 _5 g) n% x- h CellChangeTimes->{3.57792048809375*^9, 3.577957329482332*^9, * r+ p( i* G3 A* ?/ w: N X, h
3.5779607413955193`*^9, 3.578012205484375*^9}]6 {- W& y" @% U/ Q
}, Open ]],
" W6 ?2 o& `% D/ m9 h0 i
( b7 f% y/ D2 {" N1 LCell[CellGroupData[{9 `3 h% K7 q/ m2 P; X
9 `- P- [/ B! k/ \9 \" a: }4 d
Cell[BoxData[
, E0 {* C+ ]+ k& ^1 ~$ \' |5 _* ^ RowBox[{"C3", "=", "Ca"}]], "Input",
4 P# W+ J7 ?3 S A; L3 e6 K s CellChangeTimes->{3.57792064125*^9}],
/ u* w& d/ r8 T) E7 W6 _* ?) n% m7 j$ T( N6 ~
Cell[BoxData[
3 w6 y: X' Q$ R$ ]: K v1 l RowBox[{"{", * W% y$ H3 D: F5 p
RowBox[{
6 u, j1 U p* x" L$ u+ _* Z4 l "0.521739`", ",", "0.334022`", ",", "0.3555`", ",", "0.025156`", ",",
2 A5 U. Y9 J0 k( E" N "0.48951`", ",", "0.37679`", ",", "0.411382`", ",", "0.`", ",", "0.`"}], / W8 V/ _1 m# [+ `9 [
"}"}]], "Output",/ P1 r% C+ C5 T4 h
CellChangeTimes->{3.5779206423125*^9, 3.5779573552067766`*^9, , r! d; m: E/ ?& B( i4 d4 L: g
3.5779607642027593`*^9, 3.5780122103125*^9}]: L1 O. H! p4 g4 C9 \0 l) A
}, Open ]],- g4 K( x+ A% X+ [2 L
& N* G+ T) ?0 i1 F8 M; W2 b2 }+ t
Cell[CellGroupData[{+ N0 g, ?: y" n) B% q2 ]( [3 h
+ c4 @4 P$ y0 v+ Z. V8 U9 ~Cell[BoxData[
9 B9 b- W9 t1 p RowBox[{"u3", "=",
: T% R a2 @' y RowBox[{- E' V$ W; O: i6 z/ F2 ?
RowBox[{"Exp", "[",
1 S# f8 W1 a \ RowBox[{% h" Q' Q/ @* z
RowBox[{
! I& j9 _/ r- A9 j9 Z# Z8 W' z RowBox[{"-", . q/ u, ]0 Y. W8 C. O( y
RowBox[{5 t( V" w9 K# A& H; l5 F5 {5 d
RowBox[{"(", * l7 F+ u8 ]3 E! \& J( \% k
RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
5 s; _/ v3 Z$ x0 G4 c9 ~& Z9 v/ z7 |" o RowBox[{"(", 9 Z3 V+ O5 D8 x) ]* P- j5 |5 ]7 b
RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
3 S' s/ G. ~, P" ]2 l: |. h2 h "]"}], "/.", "DeltaX"}]}]], "Input",
' o7 e5 v( d/ R3 {3 f F0 o1 z CellChangeTimes->{3.57792064921875*^9}],+ \8 O% {' f0 m0 e, ]
/ p. O$ ~3 i2 X3 l, bCell[BoxData[
3 }' c( @* A- Z) o3 u; F' { SuperscriptBox["\[ExponentialE]", ' h A- k% G( V- e8 `4 ]5 U$ T
RowBox[{"3.141592653589793`", " ", 2 t6 J- m8 C: Z0 t! u" o1 e/ `
RowBox[{"(", . y+ ]8 K6 }0 _4 q$ B I
RowBox[{) A P+ V! x+ D) L* I5 v
RowBox[{"-",
9 i0 H2 q3 E) Z- ~8 m" x$ s SuperscriptBox[
4 ?0 ]: B$ r7 }0 F" e RowBox[{"(", $ [0 e4 P6 p/ q5 d& S( @
RowBox[{6 N( `, p5 o; r" n3 m1 _* L# p! g# Y
RowBox[{"-", "0.521739`"}], "+", "x1"}], ")"}], "2"]}], "-",
6 Q% t4 A. |; n5 I" M8 d0 [ SuperscriptBox[
( h% S( ]0 Z' a& R$ H% d: I RowBox[{"(",
" F8 i8 k: C: ~+ @, b; Q RowBox[{
@) `2 i$ u6 i- J RowBox[{"-", "0.334022`"}], "+", "x2"}], ")"}], "2"], "-",
8 e# x. Y2 Y' m( l7 b/ W SuperscriptBox[
; _. H6 L! Q1 d" L RowBox[{"(",
$ v! M) a: o" {0 w* g8 @9 d H RowBox[{) k( y- |; ^' H& z2 C; d
RowBox[{"-", "0.3555`"}], "+", "x3"}], ")"}], "2"], "-", , n% |4 z1 P1 w% Y F7 n. y
SuperscriptBox[
; b/ O) H Q. J6 f& f' ? RowBox[{"(",
( z) x0 g3 Y. z: x3 e& c+ v+ M/ U RowBox[{
4 P6 x( W- H& Z3 P; E RowBox[{"-", "0.025156`"}], "+", "x4"}], ")"}], "2"], "-",
8 `' B$ v* k M SuperscriptBox[
3 w) \$ C7 K7 W4 B: x' t RowBox[{"(",
h0 W7 `! F9 B3 K! e; v RowBox[{
1 A* C! M( d! [8 i* }# w' g! ^ RowBox[{"-", "0.48951`"}], "+", "x5"}], ")"}], "2"], "-", ) m1 B, n9 U/ n, ^4 ~7 z6 y) l$ G2 U5 r
SuperscriptBox[
6 w4 h5 g( ?" [+ u RowBox[{"(",
+ U2 y8 s* Y }8 }5 ? RowBox[{" S0 R \) d4 t! |7 v4 Q! i
RowBox[{"-", "0.37679`"}], "+", "x6"}], ")"}], "2"], "-",
$ Q( y& D) [/ c. \" m6 P SuperscriptBox[
- Y$ P. t$ s7 H( w$ Z RowBox[{"(",
. |9 q8 Y$ K! o0 U Q: T RowBox[{! g; j9 L2 U; c4 X" P
RowBox[{"-", "0.411382`"}], "+", "x7"}], ")"}], "2"], "-", 3 Y1 Z, a$ d) p4 g! @/ V7 c; R z
SuperscriptBox[
7 m \- M- _7 f* y RowBox[{"(",
- h" o+ ~: e$ n7 | RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
( X" F& h" A& U SuperscriptBox[2 S% O3 g* _1 R# @
RowBox[{"(", 9 X! @: B8 A- \1 N" y; i
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
, f, A& p3 R; c3 O. R ")"}]}]]], "Output",- U& C4 N+ |" u
CellChangeTimes->{3.57792065059375*^9, 3.5779573573283806`*^9, 7 S+ x) P) N$ ]4 c
3.5779607654819613`*^9, 3.578012211515625*^9}]
, I% `6 H! q: _) ~( N}, Open ]],, S' N% D# B! j! c% V
0 |9 s' H1 z5 C1 {2 P' F, q
Cell[CellGroupData[{
7 n8 F' X( H8 w3 ^
6 f- g8 p" q( D, u0 FCell[BoxData[
) T8 }2 u( E1 t/ f2 @, x# L RowBox[{"C4", "=", "Ca"}]], "Input",* p$ [/ ]. E2 O$ d
CellChangeTimes->{3.5779207559375*^9}],
! `# G3 p) H z. A# I( o
# [2 [2 \3 F5 |; t+ {Cell[BoxData[
/ B" m# x7 M# b% }2 u% h2 o* s' I RowBox[{"{",
' f; h) g; j) h4 ]0 C+ w RowBox[{
( H1 _, p2 D, ^6 |' H9 L) G "0.565217`", ",", "0.705518`", ",", "0.510223`", ",", "0.066892`", ",",
5 v$ g1 e8 @- w2 L; g! n "0.244755`", ",", "0.748304`", ",", "0.`", ",", "0.`", ",", "0.243032`"}], 6 ]1 y5 i9 R* B; o3 O" Z
"}"}]], "Output",, C/ g4 v* g2 `! ~
CellChangeTimes->{3.577920757265625*^9, 3.5779573926780424`*^9,
0 f4 ]/ k' e2 p y8 H+ C+ w 3.5779607861363974`*^9, 3.578012216171875*^9}]
! M& @+ ~) n; j' d! d6 }}, Open ]],3 h/ k1 A+ ?1 W L O- M# r( t& }
# y3 Q0 q. a J; a h u: ACell[CellGroupData[{1 Y$ M* n5 d/ o* L! W
/ N6 k' T c& T6 L2 [+ hCell[BoxData[' H2 Y, f: K# S& K
RowBox[{"u4", "=", 8 ?6 D% \+ U" i! K& p
RowBox[{) V; X, N V+ K7 O7 n8 g
RowBox[{"Exp", "[",
5 }) ?% m4 q0 s3 V' y RowBox[{
% a' q! t6 v5 P0 N0 P& B RowBox[{
4 G4 [. |% g3 C5 L0 g( m RowBox[{"-", " ?1 A/ H- `2 |. y# y
RowBox[{2 [: o& \/ m. L h! |, S% n4 g* r# J
RowBox[{"(",
( Y9 F! P) P5 f7 x% z0 {* ? RowBox[{"Xa", "-", "Ca"}], ")"}], ".", ! s3 A" K3 ^% r% o% p
RowBox[{"(",
: r( R) u5 D1 ] RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
% E' F% A. F8 Y- }& w- G M7 p "]"}], "/.", "DeltaX"}]}]], "Input",8 g+ i0 z6 h6 ^3 o" U
CellChangeTimes->{3.57792076325*^9}],
/ H, s6 L1 `% i3 z% s3 M. ^5 J& m& S- ?
Cell[BoxData[
" O3 A, o+ l/ x" a- p SuperscriptBox["\[ExponentialE]",
3 r% \( F x1 v' N) B: T RowBox[{"3.141592653589793`", " ", : A6 f8 p$ J, a+ R4 k5 C
RowBox[{"(", ' m) n0 [3 ~" t
RowBox[{: e( }- |; @+ Q) Q
RowBox[{"-", & J$ P. y8 g/ u; Z6 g6 J
SuperscriptBox[. ^' a# u; y Y# C' \9 h
RowBox[{"(", - e2 Q( E9 q) U: @/ E
RowBox[{% f. [# ~6 F7 W- w
RowBox[{"-", "0.565217`"}], "+", "x1"}], ")"}], "2"]}], "-", " |7 [" V5 n# O7 C7 _
SuperscriptBox[5 Q5 N; c1 G7 j: W& n
RowBox[{"(", 7 m& v' W3 z( {/ j6 X' }+ s
RowBox[{
5 i' ~& y6 H# Q2 f. R5 K RowBox[{"-", "0.705518`"}], "+", "x2"}], ")"}], "2"], "-",
* C9 q7 c8 D1 b/ R SuperscriptBox[: E+ _5 g+ V8 D1 D3 A/ T; D9 `
RowBox[{"(", : u4 n6 A8 e+ |) M9 T& [, n. u1 b
RowBox[{) B$ v: z' F, K# \. Q& z# q
RowBox[{"-", "0.510223`"}], "+", "x3"}], ")"}], "2"], "-", . _( l3 q {& _' f
SuperscriptBox[
; g5 V4 g1 K; v% x' x. a- C5 m# s/ H RowBox[{"(", J: b& b3 N- Y8 m! `
RowBox[{
' B& ]" g" j9 y) J& q7 o/ K$ Q RowBox[{"-", "0.066892`"}], "+", "x4"}], ")"}], "2"], "-", ' w( j6 _0 U6 N( S3 u. L. o2 K) Z) Z
SuperscriptBox[" P7 w1 d: ]4 s/ K) o" n
RowBox[{"(", 7 g8 o0 {. M3 I& |8 Z$ S
RowBox[{
3 x" {7 B5 f: d4 Y5 \ RowBox[{"-", "0.244755`"}], "+", "x5"}], ")"}], "2"], "-", + ^+ `0 b" ~/ F6 k& ^1 [
SuperscriptBox[+ F9 R# c; u# Z7 o G. S1 ^) q
RowBox[{"(",
" S/ K/ v! D% H6 o RowBox[{& L2 `/ l& s; w- F8 D3 `
RowBox[{"-", "0.748304`"}], "+", "x6"}], ")"}], "2"], "-", 1 R9 z5 X/ q) L1 n9 I' W3 e; e; J# u
SuperscriptBox[
. J% U/ w/ e- T, C# f RowBox[{"(",
( j2 Q6 c# R' ~1 o" \ RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", & P! H/ v. ?! `
SuperscriptBox[' v: {1 _7 x+ C6 J- A* i
RowBox[{"(",
$ J' [3 L% g9 k, S8 q# K" a7 K3 V RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
7 o- P. r, q' r% v3 D6 P6 ~1 d6 a2 }: O- i SuperscriptBox[% ^8 p5 T3 v7 U: o% m
RowBox[{"(", ' D! j1 j T1 q% s; |0 o* R" P
RowBox[{
% L( ~2 F: N/ {9 Y7 N4 l5 ] RowBox[{"-", "0.243032`"}], "+", "x9"}], ")"}], "2"]}], / s, c5 Y2 @. O! ^9 t1 F' f0 _
")"}]}]]], "Output",
, T& }/ i( V: P% [% N CellChangeTimes->{3.577920764625*^9, 3.577957394799646*^9, : c1 M7 j& @3 c4 b9 a) s0 f
3.5779607873531995`*^9, 3.5780122169375*^9}]5 u5 S$ n% f. t9 g( h
}, Open ]],
- t: G, ^: s: a. P( d7 b
5 w; C/ w: [# v0 ]- j) RCell[CellGroupData[{
6 P; U; `5 Q4 A- ], [& [5 m; [2 M8 \' B& \+ @- R. l
Cell[BoxData[: o4 E/ ^8 L+ T
RowBox[{"C5", "=", "Ca"}]], "Input",' O$ a( y6 s1 p7 [) Y+ a
CellChangeTimes->{3.577920860671875*^9}],
- i4 Z! M# M/ M1 T3 W
1 n7 M$ B$ d4 T, f, CCell[BoxData[
: U, z2 E+ L/ O3 s( I$ j RowBox[{"{", 6 |9 b' A6 l# K: E2 A H/ `7 W
RowBox[{5 v& k: y# f, o# s7 B
"0.565217`", ",", "0.71046`", ",", "0.64973`", ",", "0.119897`", ",",
6 z3 I* I! o. r0 Q! S# [ "0.468531`", ",", "0.`", ",", "0.636585`", ",", "0.`", ",", "0.766748`"}], 5 h. u; u1 L% t, M) n: u# ]
"}"}]], "Output",8 E* L+ p+ S7 N- G
CellChangeTimes->{3.5779208614375*^9, 3.5779574339713144`*^9, 7 J( D" W& l2 X) Z8 I0 r# ?0 C
3.5779608137328453`*^9, 3.5780122209375*^9}]
% u0 Y1 r( c7 K}, Open ]],) b! |) T2 w% T
$ X( p5 C3 e) W" l" y! H* @Cell[CellGroupData[{& L! u7 q% ?- O! A# |: C
, G+ T: t+ `- A- R: h
Cell[BoxData[1 {; X2 T, q; P1 r' E( L
RowBox[{"u5", "=", % g& K6 i; L4 h! ~
RowBox[{" ?& S+ O. {4 M& y
RowBox[{"Exp", "[", $ f! j* V3 l( O" [
RowBox[{
% f1 S7 h+ o6 a5 ?% o' y RowBox[{
$ ~" K( G7 }, C) l RowBox[{"-", ' f( }* Z q; b% ~' H
RowBox[{
3 Z3 o3 U# r" f: j, ~ Y5 C" ` RowBox[{"(",
+ @0 }8 Z' M S2 X8 @ RowBox[{"Xa", "-", "Ca"}], ")"}], ".", % K" v6 ~" ]2 n
RowBox[{"(",
* Q& X4 ~: t+ e* a, z/ W, e5 }* h; z% k% m RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],# X" }5 p9 M, M2 d
"]"}], "/.", "DeltaX"}]}]], "Input",
8 k" J) l0 R) P! Q# ` G# P CellChangeTimes->{3.577920869375*^9}],* ?" ?7 \. l8 m- n7 h
* F# e+ Y& {# ]9 F" q2 J' J; H' RCell[BoxData[
# ]& @* a' x: U* Q4 G3 @ SuperscriptBox["\[ExponentialE]",
; D; n$ K& f, D. B3 [+ C RowBox[{"3.141592653589793`", " ",
2 ^4 {: g- Y0 E9 q' f6 K6 z RowBox[{"(", ! Z$ i! a. b* E2 l) Q
RowBox[{; R' c8 C) Y. w
RowBox[{"-", % t5 t8 Q7 E5 h* o
SuperscriptBox[
$ z: s& ^* i9 `9 u) t) F. r RowBox[{"(", 3 x9 O2 ~3 T O1 h' G- ~
RowBox[{
$ H" r" |& I7 ? ~; ^; o RowBox[{"-", "0.565217`"}], "+", "x1"}], ")"}], "2"]}], "-", ' v, \ X6 Z* K+ g* M+ w) K q) L8 c
SuperscriptBox[- W8 x# f0 H" F- X% h
RowBox[{"(", * h1 p/ a0 d9 a
RowBox[{7 P8 N7 F$ t/ u- L* L, p8 u+ T7 X* `
RowBox[{"-", "0.71046`"}], "+", "x2"}], ")"}], "2"], "-",
, S# U2 [! ^, N* j( [" J0 { SuperscriptBox[
% B% G v$ ~- Q7 l RowBox[{"(", L. F7 K9 c7 ~$ q1 Q
RowBox[{. d9 j1 N* P* R7 D; }
RowBox[{"-", "0.64973`"}], "+", "x3"}], ")"}], "2"], "-", ( }9 R- I. z- Y5 M9 h; k5 \
SuperscriptBox[$ y0 r; k5 J& s
RowBox[{"(", 8 o( l* m" B9 O! v7 i
RowBox[{
" m5 `0 y6 X8 ~) k RowBox[{"-", "0.119897`"}], "+", "x4"}], ")"}], "2"], "-",
2 E1 q+ `7 v- [. @# V1 T0 Q' K& M V SuperscriptBox[
! W% h3 Y9 B( W) e RowBox[{"(",
0 p6 k0 M L2 `; [ RowBox[{
4 L' M: {0 }( Z& { RowBox[{"-", "0.468531`"}], "+", "x5"}], ")"}], "2"], "-", + v: b" b3 m& l1 e6 d. Y4 B
SuperscriptBox[
0 Z2 e4 d3 `- j0 _ RowBox[{"(", : x, Z; g/ ?: x ]0 g# \6 k
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", 7 x$ c/ _0 _6 I! u3 f
SuperscriptBox[
7 }4 n" k0 M/ f0 y) u2 S RowBox[{"(",
0 n1 R% j, p, s7 B RowBox[{2 X- s5 o9 {+ s+ A( Z* h+ r
RowBox[{"-", "0.636585`"}], "+", "x7"}], ")"}], "2"], "-",
/ X& O( X3 A5 m! S! `) r3 j" b SuperscriptBox[& l) v) B6 e: a8 S& U7 ]' L: }
RowBox[{"(", 6 E& J$ t0 o5 c4 h
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", ( v; _' d; T% U4 a$ Z
SuperscriptBox[* O" Q, H4 }8 z- v- Q8 z4 E
RowBox[{"(",
. L4 `# p& F: h9 B' m RowBox[{
. J1 a" D+ m0 O% d7 G RowBox[{"-", "0.766748`"}], "+", "x9"}], ")"}], "2"]}], : [% [. j/ T0 c6 F6 A' s2 ^
")"}]}]]], "Output",+ c+ p: t2 v5 ~4 U
CellChangeTimes->{3.57792087128125*^9, 3.577957435188116*^9,
$ i: c5 N# ?' B# x0 T 3.577960815043248*^9, 3.578012221953125*^9}]& Z' ?9 H! I4 O
}, Open ]],
# j. ?6 h. M" w; \! T" t+ u4 |% F" }/ [
Cell[CellGroupData[{+ D4 R& O. l* J2 {5 D* ^" g7 I: U
4 {" U1 a! i4 `; u( TCell[BoxData[
& m: `# |9 |; M" L. n' H RowBox[{"C6", "=", "Ca"}]], "Input",, R) l$ u$ G; l; e6 J1 l2 g
CellChangeTimes->{3.577920860671875*^9, 3.5779211201875*^9}],
/ h5 u2 c; t4 }5 C7 @8 |
5 P0 c. G) m$ l( G# C! F9 |" a# \& dCell[BoxData[/ \: J4 U* m! Z+ k2 b- X
RowBox[{"{",
1 n& R0 v. o5 n2 O RowBox[{
& K0 f2 v- \) f. E "0.130435`", ",", "0.682724`", ",", "0.258697`", ",", "0.019299`", ",", ' {8 f3 B+ W2 ^ s, {6 T1 p4 ?
"0.51049`", ",", "0.420497`", ",", "0.535772`", ",", "0.`", ",", " O( ?6 i' `6 D z& S3 T
"0.494866`"}], "}"}]], "Output",
4 M9 g( M# m& }$ Q! {) \/ G CellChangeTimes->{3.5779208614375*^9, 3.577921121*^9, 3.5779574726281815`*^9,, E/ `& f3 o' A& v S
3.5779608373044868`*^9, 3.578012227359375*^9}]- V# Y5 L" d9 C3 g, p
}, Open ]],
/ ]8 y7 o% R L6 ^* N8 {
, e5 d( B2 L8 w, O6 [+ mCell[CellGroupData[{
. o. ~) |- D) O/ c7 K) R# f- Z8 |4 b; U4 `
Cell[BoxData[
8 l2 S/ m+ ~# h RowBox[{"u6", "=",
3 d6 N' B6 t8 J% j RowBox[{
: C2 R+ w+ X& c( K; ^ RowBox[{"Exp", "[",
+ O7 \+ a0 \. m8 v; i. U2 R RowBox[{- k6 y1 i% r; `6 r" ?! \& b5 O
RowBox[{" h1 y0 W; ?0 P5 d2 Q1 V& K( ?! G9 T
RowBox[{"-",
& S$ c/ e* @1 z9 [* t# o RowBox[{
) r! X( p. H/ ?, ]1 A RowBox[{"(",
% v: r( H# E0 m) t4 X8 } RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
" y0 r0 T! A, m RowBox[{"(",
. e, R0 w! F9 h3 \- W l RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
3 m3 i% {- J: q' p$ M8 q "]"}], "/.", "DeltaX"}]}]], "Input",8 V9 c# C% n! N* f9 L. g
CellChangeTimes->{3.577920869375*^9, 3.57792112309375*^9}],1 j% ?% W& a. l! t/ Q
, l) u2 c, I; y5 u
Cell[BoxData[
1 a. h. A; I% C& K7 q2 M" N; g( F SuperscriptBox["\[ExponentialE]", 4 R* A* V/ w+ g! ^" M- I# P: |
RowBox[{"3.141592653589793`", " ", + S3 }; @" U) O! d5 n
RowBox[{"(",
' O9 t2 o$ J" O9 s: L3 h+ ] RowBox[{
0 K4 H: y! I7 Q* [" I RowBox[{"-",
! ]: ~: J% ]1 n. ?& k+ g9 N0 c$ W0 \ SuperscriptBox[% a; O7 x, Z9 E0 X& W) M; a$ T
RowBox[{"(",
* M d+ n- e% _2 {0 u RowBox[{
4 |1 N" y+ j d- T3 C% U' Y RowBox[{"-", "0.130435`"}], "+", "x1"}], ")"}], "2"]}], "-", + ]9 U* c$ M4 o8 e
SuperscriptBox[
% Q4 Y6 G- H: p RowBox[{"(", ; z$ y3 t f& x; B$ P' s
RowBox[{" [$ M/ Q# j3 K* E8 n1 i N4 C7 x
RowBox[{"-", "0.682724`"}], "+", "x2"}], ")"}], "2"], "-", 3 T, J) w, x- ^ A$ m- Q6 m1 F
SuperscriptBox[
+ S$ i( j9 r L5 l6 g w8 U RowBox[{"(", ( x: C& X( a/ |* g+ [8 ?% ~
RowBox[{
; @" x2 E' m# C9 u8 } RowBox[{"-", "0.258697`"}], "+", "x3"}], ")"}], "2"], "-", * e/ w/ Z% B9 `: }% R2 \$ G) j
SuperscriptBox[4 J0 m: l, f+ r! v2 @8 Z/ l
RowBox[{"(", / p5 T7 a+ Y+ a" H+ z9 C6 G* t D
RowBox[{; c+ G) e% a! l& H5 ~2 M+ G
RowBox[{"-", "0.019299`"}], "+", "x4"}], ")"}], "2"], "-",
6 x( R( o6 @% y SuperscriptBox[! {3 |, l+ \' z+ Y$ u# c
RowBox[{"(", 0 T' ^- X u4 h7 G% a
RowBox[{6 ]# ` _/ R V; o1 K4 z. r7 Y
RowBox[{"-", "0.51049`"}], "+", "x5"}], ")"}], "2"], "-",
6 T; }* v; G: Q; u% Z SuperscriptBox[1 }7 s* r* d9 g$ F1 Y+ M: H. r
RowBox[{"(",
& O; `( ]; ~' C1 B RowBox[{ v3 s' ]+ _6 f6 j. J* _7 f- b
RowBox[{"-", "0.420497`"}], "+", "x6"}], ")"}], "2"], "-", C1 ^. r% ^; @( m0 c: i5 u
SuperscriptBox[
; W( i6 ~; H' x+ c* J6 W l" D RowBox[{"(", ! f6 h' T: y) ^+ y
RowBox[{
1 ?, B$ \8 J. Q1 g RowBox[{"-", "0.535772`"}], "+", "x7"}], ")"}], "2"], "-", ( n; Z' U6 |) t. q
SuperscriptBox[$ j$ g9 N; a+ T8 W/ C1 l+ M+ n
RowBox[{"(",
5 g; O( P) g( B0 E+ z RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", U% J; t) L% F+ k$ |" k8 C" j
SuperscriptBox[6 `7 d9 M2 F; _- {
RowBox[{"(",
) W/ m9 [* r/ Y8 j& [, N3 f RowBox[{
# N/ C3 A1 k) i# \5 h RowBox[{"-", "0.494866`"}], "+", "x9"}], ")"}], "2"]}], 6 C" ^; }' v& P3 e$ H
")"}]}]]], "Output",
( J% r3 i. E) z3 u: N% p8 G$ c% v CellChangeTimes->{3.57792087128125*^9, 3.577921124328125*^9, " A7 X! g2 y9 u3 r6 N* ]! h
3.5779574736733837`*^9, 3.5779608382560883`*^9, 3.57801223009375*^9}]
. k: O% O2 q$ c9 _; \; r3 t}, Open ]],
0 y9 q, e! u" V6 h+ W2 n
7 g7 |5 b4 O) t$ ~, k, N$ d( ~Cell[CellGroupData[{
" A+ j& n. v# W# ]3 n$ z5 U. [/ l8 ?& ~2 N3 H' I
Cell[BoxData[
4 N) Z# f6 B! w. l" v8 p' A( } RowBox[{"C7", "=", "Ca"}]], "Input",
4 m$ K: n5 m: F! S5 ?1 x( O$ Y0 j \ CellChangeTimes->{3.577920860671875*^9, 3.5779211201875*^9, 4 i& z9 E" }; W4 W# k* B
3.577921316125*^9}],
; v! A9 ]& l, u2 l' M, c# w& @, k) o
Cell[BoxData[ X3 K* ?0 j2 u
RowBox[{"{",
/ \8 p% W- T7 [! |2 t# F RowBox[{
+ y' u- ?/ ]& L "0.695652`", ",", "0.71828`", ",", "0.33973`", ",", "0.110285`", ",",
& J Q( O1 O- Q% } P "0.335664`", ",", "0.`", ",", "0.636585`", ",", "0.780463`", ",", "0.`"}],
# t6 B W* s/ a( q" { "}"}]], "Output",6 x$ s/ a* E7 A) j% @
CellChangeTimes->{3.5779208614375*^9, 3.577921121*^9, 3.57792131765625*^9,
& o I" c# e& A \2 I 3.57795750042743*^9, 3.5779608630913315`*^9, 3.578012250234375*^9}]
3 I; J n7 v4 s( a, W! b}, Open ]],1 @* J n; ?8 n7 Z; `; G
m0 ~0 U( O- ?# {1 lCell[CellGroupData[{
' Q' g: e% t7 M X, J/ T( W7 ] M/ s, L$ a7 q
Cell[BoxData[
% g. k' W; e9 Z; C) d RowBox[{"u7", "=",
3 T" G. k1 Z9 m, K" Q4 T RowBox[{ f+ F. G+ Y8 v( ^* H
RowBox[{"Exp", "[",
+ j$ Y* V* g7 I ` RowBox[{. X3 p* @3 m7 l9 ~# D! ?
RowBox[{5 s& O: ?! x, l/ a) I, a6 E
RowBox[{"-", $ z& \# q- k8 ?: J; j
RowBox[{
( S, I) G" E; k+ z RowBox[{"(", # }5 F3 _. n: |& S' t# |' j4 X
RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
+ J; N* [' @& Y% s4 U RowBox[{"(", / M) k2 A" L% R8 D0 b# s( z
RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
1 Q- G5 D. H! [7 v9 j. H" |# P0 A "]"}], "/.", "DeltaX"}]}]], "Input",$ _3 U3 U, {, M3 {$ Q' E
CellChangeTimes->{3.577920869375*^9, 3.57792112309375*^9, 3 Y& S" h; s. W5 K- J1 C& N
3.57792132028125*^9}],, y$ P# X& g5 F# B/ [; g+ n
) U+ P0 _! T& E: P( y( [! sCell[BoxData[; v! Q; L1 d& Q3 k$ |0 I
SuperscriptBox["\[ExponentialE]", , W# g5 _' @* s( c
RowBox[{"3.141592653589793`", " ", ) E8 U! o5 M8 e! {) T
RowBox[{"(", ! S6 |) J' d; S* k1 ^! G
RowBox[{
9 j# s5 @1 A2 g% u, [ RowBox[{"-",
' f' c! q' Q" c" d SuperscriptBox[
6 z. E; Z* a% @8 N' ?: m RowBox[{"(", 1 {: B/ F5 Y `0 {1 V7 p9 g+ a
RowBox[{ E: \# p8 H; ~
RowBox[{"-", "0.695652`"}], "+", "x1"}], ")"}], "2"]}], "-", ; d& q: l( k' `4 s9 C
SuperscriptBox[
, R: L, r' L, D7 ^, \" W! \ RowBox[{"(", 2 l; |9 ~) p9 u
RowBox[{
5 m7 i: ^% I- p7 j7 _# g2 `6 l- M. V RowBox[{"-", "0.71828`"}], "+", "x2"}], ")"}], "2"], "-",
* V4 M8 M x! }! C- U- R8 p. _* W SuperscriptBox[
. r; \; B, c- i! J( _4 U RowBox[{"(",
! }' }6 ~/ \) X- w/ ~6 C: f4 R# | RowBox[{
$ B$ w/ r; g/ Z& ?- L RowBox[{"-", "0.33973`"}], "+", "x3"}], ")"}], "2"], "-", 9 ?8 [- k+ `: @# E3 D$ {
SuperscriptBox[/ I6 i- g: m# \
RowBox[{"(",
4 C& z$ M! c' U) x1 x2 |4 a2 x RowBox[{
8 g& R% ?) V5 g Y6 u4 q) c% L RowBox[{"-", "0.110285`"}], "+", "x4"}], ")"}], "2"], "-", 3 c9 {( e; p2 J0 T3 h' C3 n, ]
SuperscriptBox[* p1 L! [' Z9 Z6 h* [
RowBox[{"(", g: @8 _ {% ?6 y2 R
RowBox[{* H# l5 b; L( x2 Y! {
RowBox[{"-", "0.335664`"}], "+", "x5"}], ")"}], "2"], "-",
: S$ u7 }! V' J7 {# `5 a0 J SuperscriptBox[
; s# V0 M1 F2 ^4 w; L0 z4 L& t RowBox[{"(",
5 H( |, b" l$ d, ^; Q V v RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
3 W' g8 S6 a, u' m& ? SuperscriptBox[
8 C: d8 O' I; K! R7 h/ { RowBox[{"(",
; c) S* }+ o2 {! d! {4 l1 C+ b A$ d RowBox[{* A2 s7 p3 F3 b
RowBox[{"-", "0.636585`"}], "+", "x7"}], ")"}], "2"], "-", : Z5 f3 X3 E U# O- j) A% W8 t
SuperscriptBox[
0 y. \3 g8 E: A3 y. f9 n7 Z RowBox[{"(", ) k# g0 P5 w% V' G5 g" V5 B
RowBox[{0 I8 J% z* q9 l8 E. a+ a
RowBox[{"-", "0.780463`"}], "+", "x8"}], ")"}], "2"], "-", * r' T# u' R! k# w& J
SuperscriptBox[7 N9 e; H1 U" [; ~2 C
RowBox[{"(",
: W- k/ }# S9 T2 r9 E# w& i RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
# {& A2 _# M W d6 ?9 N0 X! c ")"}]}]]], "Output",
7 j% \4 J: k) ^2 k: C5 W8 r2 d: d CellChangeTimes->{3.57792087128125*^9, 3.577921124328125*^9, 5 C+ v9 ~. \9 D6 G5 g/ Z1 E3 t1 Y1 W
3.5779213213125*^9, 3.577957502221433*^9, 3.5779608640897336`*^9, 2 @, u0 x2 M9 g0 X2 E4 D0 b& r0 d4 p
3.578012251359375*^9}]
; F% m0 ?/ I5 \0 k}, Open ]], q# X j" X0 t2 R! w
% I/ R6 P4 A8 L6 {+ z) q
Cell[CellGroupData[{
' K" \4 {; J. c$ t/ P5 Z
, b. J' D$ A* C7 RCell[BoxData[7 i7 F% ]) H l( D2 m
RowBox[{"C8", "=", "Ca"}]], "Input",
, v* f5 `5 X3 b CellChangeTimes->{3.577920860671875*^9, 3.5779211201875*^9, 2 I5 e! |# |0 ^$ ]
3.577921316125*^9, 3.57792141421875*^9}],: Q2 O( H! m& a! l
5 d4 I. I3 s# X5 s
Cell[BoxData[
+ N% A; r) _' b, N* m' B6 A RowBox[{"{",
0 Y# Z( {' {# i1 R, x RowBox[{
0 A. R( R/ R! {" `' f "0.652174`", ",", "0.569711`", ",", "0.414297`", ",", "0.175398`", ",",
" h$ K' W {& W8 | "0.167832`", ",", "0.`", ",", "0.544715`", ",", "0.`", ",", "0.`"}],
$ C9 R. A8 M& a+ i7 b/ b1 x4 w4 o& z "}"}]], "Output",' ]1 W, t' X4 {: e$ ]2 E- V
CellChangeTimes->{3.5779208614375*^9, 3.577921121*^9, 3.57792131765625*^9,
3 N, M7 q( C) I+ _4 _' s 3.577921415375*^9, 3.5779575288038797`*^9, 3.577960893433385*^9,
# K4 @2 H, q8 t; o' d" l7 q$ D o 3.578012260515625*^9}]) Q0 S! e) j( ?! a' g3 C
}, Open ]],
4 c/ d# e9 x6 G, N6 U8 F: d* b' x0 X* U" D
Cell[CellGroupData[{
# |; u+ b+ `0 o$ ~1 a! |8 b
7 H1 x& ^& n1 Q# |- z* NCell[BoxData[5 }7 P9 \- O- |5 E) u
RowBox[{"u8", "=",
: u3 y; _ p. p& E- F- u' ` RowBox[{
. K1 \" B- g- n RowBox[{"Exp", "[", W* G8 i0 Y( B* Z9 b
RowBox[{0 d5 x" Y. }, {. R
RowBox[{2 P' X. H6 X+ R& h v
RowBox[{"-", d( G2 g; w$ Z. ~/ Z
RowBox[{; i* F6 m/ y: A6 q% [
RowBox[{"(",
* r& k7 n& e& {+ ?, ]7 }0 ` RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
. L, \& r" k4 o+ I3 P" S RowBox[{"(", ) p- c+ A: \" i' J. u2 i" G
RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
( f. H, |" G j; B/ t* x( v! w- L "]"}], "/.", "DeltaX"}]}]], "Input",: g& R) n& d% V6 `; k
CellChangeTimes->{3.577920869375*^9, 3.57792112309375*^9,
* ^) Q, ~5 v7 F7 I; r 3.57792132028125*^9, 3.577921416921875*^9}],
- d% W9 b g1 m# P) e
0 `6 ~ |6 {" h4 n6 @5 {Cell[BoxData[
9 A( F3 `$ D6 B) T$ F! s SuperscriptBox["\[ExponentialE]", % e+ r' f: _+ i! U3 Z
RowBox[{"3.141592653589793`", " ",
/ I7 r4 G/ E% C) u4 |9 ?5 O% x RowBox[{"(", ( ]# x- Z; ?4 G
RowBox[{/ h/ Q0 V/ j/ O f: S
RowBox[{"-", $ f7 A# K9 P! @4 B
SuperscriptBox[" I, c$ o( ~3 o4 ~# |* G8 U
RowBox[{"(", ; {5 f( b! F% m4 X
RowBox[{
, u r+ U- `9 {4 p RowBox[{"-", "0.652174`"}], "+", "x1"}], ")"}], "2"]}], "-",
b- `9 |* s: |& Q+ \1 t SuperscriptBox[
6 @% D! V0 k9 u; [$ ` RowBox[{"(",
' w/ W1 [) `! \# W* |) H RowBox[{
+ u1 d$ }0 |8 Q( `. _! A' C RowBox[{"-", "0.569711`"}], "+", "x2"}], ")"}], "2"], "-",
. u! {' W0 |+ s) I- z6 r1 y" C SuperscriptBox[
) ^6 z+ [% X" y1 g$ c RowBox[{"(", 2 P% h) C8 v# `
RowBox[{. D4 S1 {% r' [& ?2 V
RowBox[{"-", "0.414297`"}], "+", "x3"}], ")"}], "2"], "-",
9 P& r/ S4 c9 z* O5 ^ SuperscriptBox[
- i0 t: E9 T% Q- w) V: h RowBox[{"(",
8 G. A. R+ j6 G/ D( }% q* v RowBox[{6 L8 u1 M8 E1 ~/ j
RowBox[{"-", "0.175398`"}], "+", "x4"}], ")"}], "2"], "-",
+ Q& `+ B u1 m: q SuperscriptBox[
& V- ?' [0 C0 X; N' W; G RowBox[{"(", ' r( X0 h7 V7 W0 A' S9 i. m, {
RowBox[{7 S+ R6 z# S, m3 [. ~4 v2 x
RowBox[{"-", "0.167832`"}], "+", "x5"}], ")"}], "2"], "-",
( T- L. H5 P2 d( f# Z SuperscriptBox[
, a) o7 h* _9 J8 p6 z RowBox[{"(", . ?# H+ h3 R- W: t. y
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", 2 o3 u: n+ O$ h* O
SuperscriptBox[: n% m3 {0 T7 G& J3 ^
RowBox[{"(", 6 C* G* H m/ O" c2 ^) A
RowBox[{$ f: `0 B4 ~6 [$ V8 G, w
RowBox[{"-", "0.544715`"}], "+", "x7"}], ")"}], "2"], "-",
0 t# U$ G! Y# W" H0 w SuperscriptBox[
8 Q3 J9 U( n* d2 F RowBox[{"(",
& v6 w( P8 \1 h, ^ n+ k g RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
6 v6 K0 m, k# r0 D/ Y SuperscriptBox[
, }& K3 l% h5 N& n3 k/ j RowBox[{"(", 8 Q3 [8 U/ B% j% w$ ?9 U1 D1 _
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], ; \$ t& l6 @( x% X+ `& G
")"}]}]]], "Output",
7 d8 p- p4 b, C+ n- R CellChangeTimes->{3.57792087128125*^9, 3.577921124328125*^9, , \ \9 R8 A3 e6 N0 Z
3.5779213213125*^9, 3.577921418765625*^9, 3.577957530145482*^9,
& M( ?6 A) ]% m8 L+ [ n 3.5779608945565863`*^9, 3.57801226165625*^9}]; A, K% ~/ m4 i
}, Open ]],
3 u( t8 t4 I1 U( W a6 I8 p* g$ s! D7 u) V. j0 }! n
Cell[CellGroupData[{
( ]! B4 c1 A: [ |# S4 l5 q+ T: t! ]1 Y+ p3 M
Cell[BoxData[
1 f' _! q2 q2 h; P4 k3 G8 | RowBox[{"C9", "=", "Ca"}]], "Input",
+ s3 O4 D4 n$ n7 v" D6 \. y0 B CellChangeTimes->{3.577920860671875*^9, 3.5779211201875*^9, # A" V6 ?( H# j5 g
3.577921316125*^9, 3.57792141421875*^9, 3.577921513890625*^9}],1 M+ p8 Z9 k% N/ r) E; d7 [' p
* u2 c) a2 {; _$ |& Q( KCell[BoxData[
+ j; u; P+ ]7 Y RowBox[{"{", . R, ?1 \9 l; ?. Z0 |" o; [
RowBox[{4 }6 N* s0 x$ Z) P- a3 ~2 P" J7 `( {
"0.`", ",", "0.395544`", ",", "0.027011`", ",", "0.048087`", ",",
( Y5 X# }- [1 H+ {$ o3 q "0.496503`", ",", "0.`", ",", "0.452033`", ",", "0.`", ",", "0.278729`"}], 6 j4 u7 B5 L. V$ A$ g# C8 J5 [
"}"}]], "Output",
: A5 _% z$ p e5 I6 R9 L1 G CellChangeTimes->{3.5779208614375*^9, 3.577921121*^9, 3.57792131765625*^9,
4 I. R- s1 F' h) u 3.577921415375*^9, 3.577921514890625*^9, 3.577957560674735*^9,
: R% a) B( M, ? A) J 3.5779588670442514`*^9, 3.577961429021782*^9, 3.5779615287839565`*^9,
$ m3 w1 G# W5 I7 ^9 |3 [: f4 [ 3.578012268234375*^9}]
1 l1 p# Y W2 g+ [7 v# J}, Open ]],3 f3 Q# v2 n$ F% r0 U2 g' L1 a
' x% T2 b- q. @. ~' `* m
Cell[CellGroupData[{
% v7 G9 b% F. o6 |' |9 d& j6 y" ~8 q7 r
Cell[BoxData[
- G! G* Q" X/ q1 k9 N RowBox[{"u9", "=", $ I/ I$ G a( w ]
RowBox[{
* d7 g* H7 ?$ X( T: ^ RowBox[{"Exp", "[", + H S% n7 W, G' }
RowBox[{
: _# Y2 u3 H: E& J4 [, V RowBox[{
/ X2 N* V, k5 |8 S& B# P6 O/ m9 @ RowBox[{"-", 3 k A, e. x A( \8 V
RowBox[{
. l _2 R& F% h4 A, C RowBox[{"(", 3 a' V- _, F" E( d& E
RowBox[{"Xa", "-", "Ca"}], ")"}], ".", , V. Y5 S( F- r; N
RowBox[{"(",
! }! l3 v/ v: E7 E- D RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],1 x5 J& v; |& ]
"]"}], "/.", "DeltaX"}]}]], "Input",
$ R6 y# Z5 A. e( k- T CellChangeTimes->{3.577920869375*^9, 3.57792112309375*^9, Q, S* l- j" ~& D O
3.57792132028125*^9, 3.577921416921875*^9, 3.577921516859375*^9}],: e5 P" p- u8 t6 t5 e
0 v7 B: a' ?' U; ]0 C9 j5 U B, XCell[BoxData[( G) G4 T( \" W' P
SuperscriptBox["\[ExponentialE]",
" r2 T, ]+ f( W( b+ R7 g- b/ C RowBox[{"3.141592653589793`", " ", 1 _" m! L+ X" n$ K1 u) O
RowBox[{"(", : s2 R- ]: i' |" P" ~8 U0 o
RowBox[{
+ V7 s* k7 R5 N6 C& q- n/ q9 u RowBox[{"-", ! m+ d, U) [& m4 H
SuperscriptBox[
& [ q4 N$ T: V# Z RowBox[{"(",
# `: L+ f/ y, Y% ?& F2 s3 [4 h RowBox[{"0.`", "\[InvisibleSpace]", "+", "x1"}], ")"}], "2"]}], "-",
) A' K) _" d) O: v5 z SuperscriptBox[
' f5 V: D4 Q" n RowBox[{"(", & q5 g& R: ?, `
RowBox[{& N6 N1 ~" |" `& i9 j
RowBox[{"-", "0.395544`"}], "+", "x2"}], ")"}], "2"], "-", 1 x% I8 H9 ~% F. m% B9 Z1 }
SuperscriptBox[0 ^. n+ M, J& y: T2 _# U S/ @
RowBox[{"(", : y2 Z! h5 I! T g
RowBox[{
4 o4 L* r y1 F3 ]/ @8 ` RowBox[{"-", "0.027011`"}], "+", "x3"}], ")"}], "2"], "-", 8 @7 ? s; _, G j: J
SuperscriptBox[9 @+ k" N& B- D% C3 @- @+ ~
RowBox[{"(",
6 `3 c( h9 t, `* P0 Z RowBox[{9 s* p7 X9 n* I. A$ E% M
RowBox[{"-", "0.048087`"}], "+", "x4"}], ")"}], "2"], "-",
7 X! ~* Z& n' l SuperscriptBox[: f* U4 Y/ _( M7 j
RowBox[{"(",
8 b, ~' i0 P8 z7 O+ X# q+ P$ J RowBox[{6 ?7 H) p, C/ ]% {7 C. B9 \
RowBox[{"-", "0.496503`"}], "+", "x5"}], ")"}], "2"], "-", % F$ M5 F" E$ y) k+ O
SuperscriptBox[* r7 t9 R6 K- S& V
RowBox[{"(",
6 V% ^$ j3 c; L5 B) e( G( \ RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", , R1 L6 ?$ D4 N3 A5 t) t/ p0 H
SuperscriptBox[2 u2 ^/ S; K2 P7 E6 c: |
RowBox[{"(",
3 Y: I; T8 ^% g1 t* u5 q9 S RowBox[{
2 N- s# H4 Y1 ~( r RowBox[{"-", "0.452033`"}], "+", "x7"}], ")"}], "2"], "-",
+ a) P) u% M' [' p) M$ w2 b SuperscriptBox[0 c) E, I$ E# y X
RowBox[{"(", ' U. ^: l& j5 s+ ~% [
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", - v& N: ~6 G2 P
SuperscriptBox[
1 V! o% I9 g2 u! v# {5 y3 } RowBox[{"(",
, Q4 _' @" ], K# l/ j RowBox[{
& s9 l; C* r. K; y( { RowBox[{"-", "0.278729`"}], "+", "x9"}], ")"}], "2"]}],
2 u! O' M- P. `# j ")"}]}]]], "Output",
( @' [; b) q) \" G$ O3 Y) M CellChangeTimes->{3.57792087128125*^9, 3.577921124328125*^9,
- k+ ^& V5 ?; y- S2 F 3.5779213213125*^9, 3.577921418765625*^9, 3.577921518078125*^9, ) u6 L' \$ i0 F+ I; M5 N
3.5779575617355366`*^9, 3.5779588687914543`*^9, 3.5779614354177933`*^9, ) q$ D$ C7 K3 R; }) I( q: ~
3.577961530421959*^9, 3.578012269125*^9}]& {5 n' V6 V: ^* J; T! Z/ {
}, Open ]],. s. C' P* B! U6 |
' Y8 H/ Q2 [' r" ` F9 jCell[CellGroupData[{
4 s4 u2 y+ ~ ^! b0 f, h( I8 O- M0 O* R
Cell[BoxData[{
& u' R; F8 K! L7 \2 I3 D RowBox[{"C10", "=", "Ca"}], "\[IndentingNewLine]",
! R; x1 p: o1 O: }3 \, @ RowBox[{"u10", "=", 7 L5 {# N4 d) U, X, V- G* {& H
RowBox[{9 B1 u' c Y" j% r
RowBox[{"Exp", "[", - b& s9 z, E4 n( e e( j
RowBox[{- x& |* y% R9 o8 w% J( p3 z
RowBox[{
+ `5 Y' G1 g" w% ~ RowBox[{"-", - ?) ?2 t8 j1 `* g- {
RowBox[{; Z' N# g8 K3 _0 w3 ]3 O
RowBox[{"(", / D! y0 v+ `5 l6 Z" |
RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
2 g2 Z% s* d+ @ N' e RowBox[{"(",
7 L! u; j5 U, x& q' Y. c: R RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
& \* L# O- }- F8 ~4 d9 U8 f "]"}], "/.", "DeltaX"}]}]}], "Input",
1 r9 a: [* w6 B7 Y' y5 m CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}}],' S4 Z" y0 k4 Q; o3 O& k: j n
( T K3 ?! J9 k$ P0 G7 p" r
Cell[BoxData[
, F! K/ f, [5 Q* h" _ RowBox[{"{",
% x( l6 U7 m% y" @1 H' A% b RowBox[{
7 Q( I& k$ C% P& A. y "0.565217`", ",", "0.572293`", ",", "0.655012`", ",", "0.281852`", ",",
& q. L6 X: j* h8 X5 k "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}]], "Output",6 | b( n+ A7 d& G- I
CellChangeTimes->{3.5779614955246983`*^9, 3.57801227703125*^9}],% w+ i" V8 M" }4 m$ r) G" F8 y) D
/ }+ d4 |5 S/ l. h# ^4 N- j b5 MCell[BoxData[- @5 t, G' O$ x4 E% Y- y
SuperscriptBox["\[ExponentialE]", * H' O, R1 r* |" c1 X6 c% Z3 {
RowBox[{"3.141592653589793`", " ",
; l3 K3 N8 T6 k6 T RowBox[{"(", % G$ X- ^$ p! M: \
RowBox[{
- R, S* R3 T6 V$ R/ b RowBox[{"-", * o! E! t' z) h+ y7 d) c4 y, d
SuperscriptBox[
4 G; x3 z. ]8 ~7 \2 k RowBox[{"(",
+ x* O) ` r5 u. R7 g+ Q RowBox[{2 G4 t7 x5 N i& Y3 q+ S* B
RowBox[{"-", "0.565217`"}], "+", "x1"}], ")"}], "2"]}], "-",
) a; m9 v& v; O- \ A7 s SuperscriptBox[5 x: k+ C* o" k+ s- O8 Z
RowBox[{"(",
- j+ S+ W" I. R- p; s6 Q RowBox[{/ [: O( Y5 } A' n! e0 |
RowBox[{"-", "0.572293`"}], "+", "x2"}], ")"}], "2"], "-",
+ O( `: ^; A' v4 t8 s' I SuperscriptBox[
/ X, ]; q6 T, f7 |6 X8 Q RowBox[{"(",
' ^1 K6 ^2 E" {* q* [ RowBox[{4 }" X3 i- f& [+ n( B3 }" L3 H8 V
RowBox[{"-", "0.655012`"}], "+", "x3"}], ")"}], "2"], "-", , A; W( Q6 a5 A" Z8 }1 e
SuperscriptBox[7 O+ r Z5 D( [* l. Q, d9 b
RowBox[{"(",
7 d: Q4 U$ f6 N$ B7 U7 J5 V RowBox[{
. M8 p2 K1 s) J3 C% A0 d0 o RowBox[{"-", "0.281852`"}], "+", "x4"}], ")"}], "2"], "-", : N) ]0 u' q* o! |7 G& f _6 s# F
SuperscriptBox[$ }( @6 s+ |7 @4 }. ~
RowBox[{"(",
; z( O" G$ N. V0 ? RowBox[{"0.`", "\[InvisibleSpace]", "+", "x5"}], ")"}], "2"], "-", & V: A- G: q) ^ w
SuperscriptBox[
; X; {/ l0 ~- E5 |) s RowBox[{"(",
# b9 E$ W5 _6 r7 r$ _5 S( z4 ~ RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", : o$ h8 z+ m( U
SuperscriptBox[
% J7 c3 c3 w. { I) q RowBox[{"(",
3 Q! K3 u3 Z- k+ ?) M+ x9 \ RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
6 u; E! Q0 V4 L8 |' z+ n$ G; A4 n9 x8 U SuperscriptBox[2 y4 g3 Z* R' ~; ]4 v( ]
RowBox[{"(",
7 ^, K' B% Q6 N; G RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
& d2 n# I+ F( P0 P6 G SuperscriptBox[
/ A/ \5 M( r" \: }* |9 D" x RowBox[{"(", , ]" \4 J) m& b. o/ i4 N, G1 r1 A
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
, h0 h c% X" R ")"}]}]]], "Output",
+ l* h. Z3 ?, T* P5 ^! B CellChangeTimes->{3.5779614955246983`*^9, 3.578012277046875*^9}]) g3 J/ z' p, F
}, Open ]],5 R( J t6 w$ i) I/ x
+ T4 M' i7 p1 P4 [; t! `
Cell[CellGroupData[{4 K% S k3 b G9 Q9 P7 V# n
. I- f) D# d. T# m2 p wCell[BoxData[{
. U3 n: h" ]2 S5 u4 R" {1 m( H RowBox[{"C11", "=", "Ca"}], "\[IndentingNewLine]",
8 i4 c6 c; Q1 ]; F RowBox[{"u11", "=", $ e: X9 T9 S, J! F, W, j5 V
RowBox[{
0 L8 N8 Q3 w3 G RowBox[{"Exp", "[", ; ?: A2 x4 @& R" T: @
RowBox[{
5 e& I9 {: ~. R2 y RowBox[{# y1 x( H' u2 \# s3 I1 j3 z
RowBox[{"-", 5 u' s8 Q/ D- B% j5 d( Z9 f3 ]* x) v
RowBox[{
) W2 T: c& k" K& k1 ^% x RowBox[{"(", & _7 Y- h4 M9 }5 W" d
RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
! g+ c+ E, s7 C$ V; {% p" ] RowBox[{"(",
; O' E- h$ \1 V) T. x1 f. W RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
) ^5 t! T" s! F9 \ "]"}], "/.", "DeltaX"}]}]}], "Input",7 f) Y. ^. r( _; w0 k8 ]
CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
2 V9 F! p \9 N! E% O- ?! q 3.57796154237158*^9, 3.5779615434011817`*^9}}],9 _! ^ ]# f* P% L
& F- R- V1 K% r+ l6 `2 k. }Cell[BoxData[) B3 L* z* M7 z& V- I1 p7 F
RowBox[{"{",
7 o' K- W! P: F8 }& Q RowBox[{9 T& M3 y9 Q& d& ^3 g4 [
"0.717391`", ",", "0.736205`", ",", "0.267704`", ",", "0.036152`", ",",
9 |. W N/ Y( D0 I- ]" E3 p "0.307692`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}],
$ O# |" n; g6 f+ b) k2 C "}"}]], "Output",0 W! J- x* z. Y. n8 {6 \$ s, u
CellChangeTimes->{3.5779614955246983`*^9, 3.5779616282029295`*^9, + u: Q. ~ M; i
3.57801228203125*^9}],
" q# E# h0 C+ u: Y; s! I- X
3 [9 c* i0 z/ [1 }& ]! j9 ^3 A$ HCell[BoxData[
+ \+ Y& ~0 X' N; u5 O SuperscriptBox["\[ExponentialE]",
( n( q* O) F: N RowBox[{"3.141592653589793`", " ", 2 Y& T3 l3 |+ K' F3 y. c1 F- f
RowBox[{"(", ! E. w: Y8 b4 p8 M+ |; B
RowBox[{1 H3 X0 t8 Q8 Z: Q1 g. h
RowBox[{"-", : \% Z+ K7 |2 D2 c9 d! h
SuperscriptBox[
~8 Y; @ g2 Z, Y6 [/ Q' n RowBox[{"(", ( ^4 F/ ^: g5 \. \ |' d
RowBox[{* X: J. d8 d/ y, L
RowBox[{"-", "0.717391`"}], "+", "x1"}], ")"}], "2"]}], "-",
8 @$ b' ?. S" l% ?) D SuperscriptBox[" D! |' P# X) g. X# J% n
RowBox[{"(",
7 i% p" r3 O/ f. h8 a, H RowBox[{
. g& ^9 U2 S/ J, i9 M- ?. k9 v RowBox[{"-", "0.736205`"}], "+", "x2"}], ")"}], "2"], "-",
9 V6 D6 L1 E% N/ C1 B8 N SuperscriptBox[
4 z8 @- S9 f5 G% X1 V RowBox[{"(", / _+ M/ l7 G: r2 R. ]( A2 F! E& C
RowBox[{
& _4 H* b* X% ?+ O RowBox[{"-", "0.267704`"}], "+", "x3"}], ")"}], "2"], "-",
& C. [- o4 F4 l, T% `, Y: Z; w SuperscriptBox[( {1 H7 U" r& o3 _ n9 Y3 G' |
RowBox[{"(", : B( u d7 c3 G8 h, E
RowBox[{
+ Q1 t7 B. M7 U/ s RowBox[{"-", "0.036152`"}], "+", "x4"}], ")"}], "2"], "-", 1 l' m8 B$ K4 Z
SuperscriptBox[
* K7 G e9 m6 C3 m& D" O RowBox[{"(", 4 Q/ e% R# q) P7 j
RowBox[{. c# d# g# |0 V4 B c' x: c( D
RowBox[{"-", "0.307692`"}], "+", "x5"}], ")"}], "2"], "-", 4 d: D0 d: J5 W2 m) s0 S4 h
SuperscriptBox[
s( p1 P+ J+ X D& m$ [, y RowBox[{"(",
* _. C, @0 B1 T O RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
! l& k, U \5 K: R5 v SuperscriptBox[3 f6 w& c# N# `) V1 Q* Q+ l; D3 P4 S8 W
RowBox[{"(", 9 Q# o( B. V& I; d! m, S
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", 9 | _0 W/ m- V/ ~. [: S
SuperscriptBox[1 C4 J2 E0 u3 c
RowBox[{"(",
( K& m+ b* Q) @& t4 w- T6 G RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", 6 v5 k# M5 q; {( M
SuperscriptBox[* W7 b6 n. H" b6 b& j' Q+ Q
RowBox[{"(",
) R0 q0 c( J" ?) S- Y6 ? RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
! d5 I4 l/ C" R, E; Y7 r7 x! m) A, Z ")"}]}]]], "Output",
& p+ {5 P/ y( h* M4 p5 n8 A CellChangeTimes->{3.5779614955246983`*^9, 3.5779616282029295`*^9,
6 G+ H+ N: q# y$ `* `; y ?6 o 3.57801228203125*^9}]/ {, ? B) z# v9 Q$ B8 \* r
}, Open ]],
6 _2 a2 ]( ^- F( _$ c- E% Q1 {2 M% U3 v$ ~+ A% W7 M
Cell[CellGroupData[{
2 h( \$ k2 N7 D7 O
+ o* t( g1 j) w/ M4 z; G* ICell[BoxData[{
8 \0 n8 U! ^! I h; Q* I RowBox[{"C12", "=", "Ca"}], "\[IndentingNewLine]",
1 _ U2 x, [) Z Z RowBox[{"u12", "=",
9 n: u5 T2 ^5 q8 F8 O$ G, }1 r RowBox[{
1 d6 T5 x1 i+ S3 D. L RowBox[{"Exp", "[", 9 e9 O! C+ a) ?5 ?) f8 P$ L
RowBox[{
E( j1 U( H6 f6 ? RowBox[{
9 R: y3 L; v# T3 O RowBox[{"-", * [5 N: E( e3 G, B: Y. n
RowBox[{! {& l" o d) g
RowBox[{"(", % O! N1 v# ^/ u. ` s
RowBox[{"Xa", "-", "Ca"}], ")"}], ".", 4 N$ ]# `" U# m/ H5 \; Y* w" O
RowBox[{"(",
- B) a3 \/ V$ `6 }+ _' z RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],1 U, ~! ?% f# Z
"]"}], "/.", "DeltaX"}]}]}], "Input",
" T. U: m ? t0 {% [& a& w8 c CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {& l9 }6 K- E4 R7 P% E
3.57796154237158*^9, 3.5779615576284065`*^9}}],$ ]1 v( s- f$ u0 k# B ^6 v4 A* ~
8 L0 J1 h/ U- M4 g3 q
Cell[BoxData[/ _" x0 ]5 H/ b3 M
RowBox[{"{",
( ~# B7 i1 i5 N RowBox[{
3 E! a+ U% Q& W2 w4 e "0.913043`", ",", "0.170478`", ",", "0.`", ",", "0.012973`", ",", 5 V# R) N; i! u9 z- o& R2 z' B Y
"0.293706`", ",", "0.`", ",", "0.`", ",", "0.672709`", ",", "0.`"}],
$ o% B( |! u& W4 z! h "}"}]], "Output",2 z5 d) m% [& m1 K6 P+ S
CellChangeTimes->{3.5779616594029837`*^9, 3.57801228759375*^9}],) ~5 t( I$ A, Q6 a/ k# J
4 J2 m f9 ]/ |/ T+ e* DCell[BoxData[4 B" r3 r% `' p1 P: {' l/ k5 }! ?% o# t a
SuperscriptBox["\[ExponentialE]",
7 S$ C( Z& \$ U2 T" C* z$ p3 N RowBox[{"3.141592653589793`", " ", ! a; v, Y! i1 A, g* ]! A
RowBox[{"(",
& @! E! N2 V7 a1 N8 f RowBox[{
( {1 P! u$ n9 Z$ k/ A- U2 o# ^ RowBox[{"-", 6 Q- y Y8 d# |! W7 X% u' e
SuperscriptBox[+ d+ g) S K! n$ t
RowBox[{"(", ' p$ p! T2 a1 i8 r6 y, r: a9 K
RowBox[{$ t4 J& Q6 r, N" i" J; N2 X
RowBox[{"-", "0.913043`"}], "+", "x1"}], ")"}], "2"]}], "-",
: N% X+ i: V: W# r v SuperscriptBox[# X: X! C2 O v: e
RowBox[{"(", $ W, h2 t- P0 m: _8 }1 r" M2 K
RowBox[{+ M- z9 `' t/ z2 G
RowBox[{"-", "0.170478`"}], "+", "x2"}], ")"}], "2"], "-", . I4 G n0 j6 p9 `9 @
SuperscriptBox[$ Y4 b, o4 F+ C; Q
RowBox[{"(", ' f! s5 U" U* c% y! G, {
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x3"}], ")"}], "2"], "-", 3 W: K$ U& `' I% `% k
SuperscriptBox[
2 M5 T0 N! A8 X. f# Z; ] RowBox[{"(", $ ~6 @8 ]& m) _- [7 ~
RowBox[{% W% D+ C9 N' ^- o! P9 m6 ?/ }6 S
RowBox[{"-", "0.012973`"}], "+", "x4"}], ")"}], "2"], "-",
/ M* D/ _+ ]1 Y0 ? SuperscriptBox[& I. }' ?; n Q$ g' H- z
RowBox[{"(",
1 J* p/ O# Y6 t2 ` RowBox[{+ ]1 |' n" m8 t3 |
RowBox[{"-", "0.293706`"}], "+", "x5"}], ")"}], "2"], "-",
9 N# [, z1 h. s6 ^! g, y SuperscriptBox[
6 G8 x. x% U. E& o8 n( o3 ]* _9 E* B RowBox[{"(", : O" R6 J- y5 C* e* z
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
7 v% e. }( o8 ?$ k SuperscriptBox[
4 R, L, ]. s; ~( O: U, o8 E; Y RowBox[{"(",
H. f4 A, [, e! j2 ~ RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", 5 U- J, S3 W0 F* J" G% a1 ^
SuperscriptBox[/ Q0 q5 Y6 _$ u: ~7 j" W' a
RowBox[{"(", 9 d9 [$ @& P% }! h4 P
RowBox[{1 E% u" N. j; u1 [% u' g% g
RowBox[{"-", "0.672709`"}], "+", "x8"}], ")"}], "2"], "-", ' B7 r# G! x' g9 W6 i" u3 ?
SuperscriptBox[
1 S9 }( I' c% Y0 ^$ w RowBox[{"(",
, g& I5 ]- |2 B4 O8 n4 _4 h) o RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
, w, X8 v- j2 T u( g4 j ")"}]}]]], "Output",/ `3 O8 ]$ r4 W2 g& K. t
CellChangeTimes->{3.5779616594029837`*^9, 3.578012287609375*^9}]
' |0 u2 a* O4 O1 f/ i3 t}, Open ]],
6 R4 }# k1 }2 G3 v
9 a! G! U/ F$ t4 TCell[CellGroupData[{1 s/ u$ g+ j# J4 R9 |1 ]9 c
9 ^8 ?4 ^# i& t1 ~1 `( ^
Cell[BoxData[{5 J) h- W* ] U5 x( X
RowBox[{"C13", "=", "Ca"}], "\[IndentingNewLine]",
3 ]: [, \/ {6 n) D1 B RowBox[{"u13", "=",
3 o: X! j- A1 T- U- F RowBox[{
3 I) v k2 T& q5 O( r. Y RowBox[{"Exp", "[", 8 @+ i3 X4 e( B8 ~; ` c
RowBox[{1 N) B7 I3 q8 K, [' p) P. [
RowBox[{( {# \' A. a# { k( g4 `0 S5 e, V: r
RowBox[{"-",
+ I& l+ X) r& r" l. n( c RowBox[{9 Z) K Q5 v9 C) b
RowBox[{"(", + Z E5 V: R& s; h" X( L) q2 ?
RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
" y8 s) g B6 F R# f: S RowBox[{"(",
7 h& v( `0 }( H5 v5 B+ {; s RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],) C' V7 }' k- \) B8 v
"]"}], "/.", "DeltaX"}]}]}], "Input",& x: {2 V3 ~* |) |6 @
CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {! l: {' v7 {5 `9 ~/ g
3.57796154237158*^9, 3.5779615599684105`*^9}}],4 n) X" f9 |6 u; e( K7 N& ~# f5 i* A% {
: W% |% q* h6 F, ]0 H( ]* e$ eCell[BoxData[
) B9 Z0 O, g7 G7 H' f5 G RowBox[{"{", 8 i" Y6 [* T9 [- q( H
RowBox[{& V& p& U1 D2 S+ Y$ s& e
"0.73913`", ",", "0.193199`", ",", "0.160584`", ",", "0.037907`", ",",
8 e' C! J3 Z; G2 ?5 T1 l6 n6 j% L+ _6 ~ "0.461538`", ",", "0.`", ",", "0.684553`", ",", "0.`", ",", "0.`"}],
0 S, w+ m& J/ a- z1 c "}"}]], "Output"," T! g9 }/ `4 ^
CellChangeTimes->{3.5779616928806424`*^9, 3.578012300078125*^9}],, Z* L& f$ J I/ Z" z$ Q
, O: P1 {8 P8 l k* kCell[BoxData[% }& Z5 b8 ~! k. v7 a& S& Y
SuperscriptBox["\[ExponentialE]",
" B$ C- L" `. B# l6 c& W8 E( o RowBox[{"3.141592653589793`", " ", 7 O* a6 h* E- ~# s$ D
RowBox[{"(",
* t. T! m4 w8 t; a9 E RowBox[{
0 C5 O0 N+ V& w% p; l; @0 ? RowBox[{"-", % j _, L7 M: l1 T7 \
SuperscriptBox[
% v( Z5 D: \0 M. @) D RowBox[{"(", 0 b t0 s" K4 J
RowBox[{
1 R* t* z1 {3 k, D% | RowBox[{"-", "0.73913`"}], "+", "x1"}], ")"}], "2"]}], "-",
3 c" ]4 I* E& i9 z' K' K SuperscriptBox[. u/ i% {9 f* r- |4 F/ |! m
RowBox[{"(", 8 }, B, I4 p* P
RowBox[{
5 F/ k* d6 E/ |7 u- k8 R RowBox[{"-", "0.193199`"}], "+", "x2"}], ")"}], "2"], "-", ! M% J9 {% c, z7 g' p2 h' J
SuperscriptBox[
' e# H* @# x& R, x6 Q, \ RowBox[{"(", 1 A1 z' N3 A( U7 d
RowBox[{3 Z3 o) [$ }/ ^1 c6 u7 m& S
RowBox[{"-", "0.160584`"}], "+", "x3"}], ")"}], "2"], "-",
( u& ^6 d7 K$ ?8 J4 A7 Y: ` SuperscriptBox[
3 C7 J5 {2 C. x RowBox[{"(", " A; ?8 P. }4 p, j
RowBox[{4 _' |4 A0 T- e& ^- k
RowBox[{"-", "0.037907`"}], "+", "x4"}], ")"}], "2"], "-",
% x. J! b+ s; I1 l SuperscriptBox[* u) v% m! r* z! w5 c$ i5 L
RowBox[{"(",
. v! I. x% `2 |1 n* V# B RowBox[{
9 c2 i& o: j# _2 Y3 f2 D RowBox[{"-", "0.461538`"}], "+", "x5"}], ")"}], "2"], "-", # i, q& X+ o: ], g( ]+ L
SuperscriptBox[
+ W) Y1 ]' r- n/ b5 v RowBox[{"(",
5 M7 N. g. g: C. c; |9 A( c RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
3 w( w J" y) t) L1 L8 E4 V# c SuperscriptBox[( E Q7 _+ }% _: ^$ \
RowBox[{"(", & P3 G. ^+ q4 z8 Z- C b! K. a
RowBox[{
' {0 Q( u1 t5 L% t3 ]$ H: l RowBox[{"-", "0.684553`"}], "+", "x7"}], ")"}], "2"], "-", - V' L. o8 R) U4 R
SuperscriptBox[
8 w* n4 n, C. v! L* f' i, l RowBox[{"(", : c$ _" z1 s- t0 W
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", ' C6 S& C- u2 ^1 e) M. Q: B
SuperscriptBox[
' D9 `4 R4 ?# ^6 k9 R" J5 ~7 \ RowBox[{"(", . u" X0 a- r8 x% [2 k5 n
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], 8 i3 Q* {4 m$ ]& x$ E/ W6 i! Q
")"}]}]]], "Output",
- h2 @+ k9 L: \) A CellChangeTimes->{3.5779616928806424`*^9, 3.578012300078125*^9}]! e) p( w% u8 |; w
}, Open ]],
, x) ~$ ^6 P: h; m
T$ y# r% y' J7 q* n. F/ {: J1 ^Cell[CellGroupData[{
7 w( z3 u. H0 v: T0 N) G
0 L2 y; O% @4 X6 x* r7 ICell[BoxData[{0 } U% E$ s* q2 Y- o
RowBox[{"C14", "=", "Ca"}], "\[IndentingNewLine]",
5 d& [5 H& H/ y2 P: V RowBox[{"u14", "=", $ |2 j$ O9 Z! I4 m; A
RowBox[{6 j0 M0 Y6 k8 t, a3 s% r
RowBox[{"Exp", "[",
8 _9 k' v6 D7 Z ] | RowBox[{
) q8 @8 O3 b, d, ?; n RowBox[{
! U2 W7 }* y/ N2 a$ { RowBox[{"-",
& `' `. t, b' o5 t RowBox[{
& F ~6 l, [1 [ RowBox[{"(",
& h. t U/ v# m# C# v RowBox[{"Xa", "-", "Ca"}], ")"}], ".", + R: x4 F0 C. P% Y; W1 y, P' v
RowBox[{"(",
# I+ N2 k. E, a% a9 B( } @ RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
- R7 G3 `( T; B3 a- d1 t "]"}], "/.", "DeltaX"}]}]}], "Input",
- N# r9 t& | z& f# u CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {% ]2 o7 c! C/ h& ^4 \# A
3.57796154237158*^9, 3.5779615663176217`*^9}}],% Q. r' V O7 U4 `* }
3 y( W8 `& Q# I3 ]0 B( Z" O0 `. {Cell[BoxData[
( m1 d- E) K3 o9 B RowBox[{"{", * O' O$ s2 [1 e, a- f$ e: Z, O
RowBox[{& Q' n" u; H7 D9 F+ B" N" D
"0.826087`", ",", "0.203969`", ",", "0.234619`", ",", "0.27224`", ",", # W, Y7 N' O m4 U; N" e7 {
"0.265734`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], 2 c0 E4 S5 {$ D0 U
"}"}]], "Output",* H' t7 V. {) d. z) @: ^( H
CellChangeTimes->{3.5779617235034957`*^9, 3.57801230559375*^9}],6 B+ M) G9 K8 M
& e0 @3 r) G4 f" o2 A- K I
Cell[BoxData[8 d; }4 M" a" ^% o, F
SuperscriptBox["\[ExponentialE]",
+ c* r# l4 ~6 d% y RowBox[{"3.141592653589793`", " ", 7 z O7 O' W7 \( r# _3 r
RowBox[{"(", : U, U R6 \! {; C1 K) I
RowBox[{9 q3 o; i$ u3 e. X+ u
RowBox[{"-",
; f, d- ?7 Z+ I! h SuperscriptBox[" a5 H7 q5 J5 D/ x: M& S
RowBox[{"(",
* z, P. B- ]- ?; w/ q RowBox[{2 ?( T* e' D" C: x( P' }! t% U! A: z
RowBox[{"-", "0.826087`"}], "+", "x1"}], ")"}], "2"]}], "-",
4 H H" h8 V( P* B& W SuperscriptBox[
. n8 b0 A, q, f% m, | RowBox[{"(",
8 y6 g& N& m, g RowBox[{7 P7 S% L) B6 U O
RowBox[{"-", "0.203969`"}], "+", "x2"}], ")"}], "2"], "-", 2 _0 u+ Y4 Y% O" x. R) \
SuperscriptBox[ i' m ]( w, O/ O2 V$ r
RowBox[{"(", % @. i _ B7 ^" C' p: K! ^
RowBox[{
) N6 z! \1 c8 ^) |' n RowBox[{"-", "0.234619`"}], "+", "x3"}], ")"}], "2"], "-", ) i {5 Z( |/ a
SuperscriptBox[
( D) i: K: _. G; q RowBox[{"(", & H, O/ q' l' y# {( J0 V
RowBox[{
& ~& @2 H& q% C: x+ [ RowBox[{"-", "0.27224`"}], "+", "x4"}], ")"}], "2"], "-",
- c& h# S* X' y$ n& L) Q4 U% i SuperscriptBox[
% m0 U$ }5 z1 z6 q t+ J RowBox[{"(", " ?* L+ J; s0 P4 {; ]3 q+ s" |
RowBox[{
( i' w8 O# @+ W/ r3 c. N- {$ B0 ^2 G" y RowBox[{"-", "0.265734`"}], "+", "x5"}], ")"}], "2"], "-", ' w4 M& o, a" r8 i: i7 d
SuperscriptBox[6 j h, ^# D; [' F* u! _
RowBox[{"(",
2 S: A: V7 W1 \0 ^; G! b$ j RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
8 }. b: O; T' G SuperscriptBox[
% U! G2 `$ b- _1 l, k RowBox[{"(",
! j4 U0 `- r0 T2 R! K; a( j RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", " H5 Z+ r0 ]5 D$ m
SuperscriptBox[4 H. V% l) _9 z
RowBox[{"(",
( g; G9 G; E9 H5 E4 [ RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", ! z! X8 M/ k! `, E
SuperscriptBox[ E7 f1 [7 Q [: K+ r
RowBox[{"(",
5 K$ ?6 X. \6 z& W T' X; a RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
) Y4 O3 h8 c) k) z ")"}]}]]], "Output",
6 Y: b' _9 }! E CellChangeTimes->{3.5779617235034957`*^9, 3.578012305609375*^9}]
# }5 N3 U1 n5 C$ n2 J' c7 a i8 I. ~0 \}, Open ]],
" X5 Z( v$ \: {- F9 c1 u2 N9 h9 \
Cell[CellGroupData[{# ^. O$ M; r& O* E8 U! A1 `
j( Z9 F1 e" V$ E0 ~9 c( e
Cell[BoxData[{- N" k- k$ X! }
RowBox[{"C15", "=", "Ca"}], "\[IndentingNewLine]",
0 x5 s, s1 S6 W7 T! z% f( i RowBox[{"u15", "=",
4 f3 L$ D& U& E% a. k RowBox[{
0 F3 ^, D8 Z# e1 ?8 V2 H/ S8 \ RowBox[{"Exp", "[",
3 Y" ~6 w" a" F% A9 G: [ RowBox[{' I" x+ M$ X1 L
RowBox[{0 F7 h$ l3 I, J1 g- |; }
RowBox[{"-", ( J' |7 |3 D% j0 k
RowBox[{& E; k; p$ ]* i, A5 N; c+ I6 V8 _
RowBox[{"(", - q6 W" @0 v- A/ ~2 S
RowBox[{"Xa", "-", "Ca"}], ")"}], ".", ' [ }6 e* f7 S
RowBox[{"(",
- L9 y- M1 G: K4 s5 r/ m2 {0 Y RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],6 c4 u) @6 G$ G% [8 \
"]"}], "/.", "DeltaX"}]}]}], "Input",
* k* L) W- z* ]$ k: a CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {2 {7 C; a# [. [
3.57796154237158*^9, 3.57796157098203*^9}}],
) P8 H, N6 s/ U- p# j' v3 Y
* p* r( E( W, \4 n6 E7 CCell[BoxData[1 ^& e! F1 v( x4 x( ]* J
RowBox[{"{",
. K1 p" ~) ?% t* g" b! o9 i RowBox[{
' E$ a R& _& d! _5 k. Y "0.413043`", ",", "0.551859`", ",", "0.544826`", ",", "0.230503`", ",", 1 [* l' p5 ?2 l8 p. p9 W+ H
"0.244755`", ",", "0.53052`", ",", "0.819512`", ",", "0.`", ",", "0.`"}],
8 B4 l% R& Q9 F$ J "}"}]], "Output",; t' \7 Q: B+ S. M4 P! }1 J
CellChangeTimes->{3.577961751599145*^9, 3.57801231003125*^9}],
$ A! h) m7 Z- z* a; E
# B4 w* S9 E1 H1 a$ k7 fCell[BoxData[
7 A% u# }' n9 ]; n, w2 @/ j6 o' |; H SuperscriptBox["\[ExponentialE]", ! H, Q" P- [; Y$ Z1 t* m4 C
RowBox[{"3.141592653589793`", " ", ; v G" S- v c0 P
RowBox[{"(", + S+ `! G( x$ h* W/ G+ T
RowBox[{
5 j' ]/ L% C: Z, z8 n- p RowBox[{"-",
2 \' t- A# O1 m ^+ | SuperscriptBox[5 \5 _8 x( e. \- C2 k6 }1 P
RowBox[{"(", + p' k- Q/ r% |
RowBox[{+ i8 n% {; J2 L: R% s! B2 E/ I1 T. R
RowBox[{"-", "0.413043`"}], "+", "x1"}], ")"}], "2"]}], "-",
8 d. v6 _; m' a5 } R; r% Y/ r- i SuperscriptBox[/ e: ?$ v2 }+ N/ a
RowBox[{"(",
+ M& b: @9 Z" t: w ?# I RowBox[{
) M9 G, N. Z& j- U U RowBox[{"-", "0.551859`"}], "+", "x2"}], ")"}], "2"], "-", # n0 [6 f( j6 a; c
SuperscriptBox[! h* ?* Z# _1 h% V5 [# w8 K1 F. W$ g
RowBox[{"(",
( h" S6 x. p7 Z0 \, L( n5 u8 ] RowBox[{6 I3 I0 ?& ~3 z
RowBox[{"-", "0.544826`"}], "+", "x3"}], ")"}], "2"], "-",
0 C2 ^1 U) I; _4 v SuperscriptBox[
* k% I8 @* Q- M8 a RowBox[{"(", # z( U; b( l- E4 j5 L4 ^. k
RowBox[{6 S4 d% ^+ o4 X r+ O
RowBox[{"-", "0.230503`"}], "+", "x4"}], ")"}], "2"], "-", & |. D' h8 V9 r8 Y, ]3 Z8 C) O* ?2 G
SuperscriptBox[
5 s% ~% f$ [& C! { RowBox[{"(",
9 v# O( z% F4 x* U( F d RowBox[{
' Z: q6 D) k# ]& U5 ` RowBox[{"-", "0.244755`"}], "+", "x5"}], ")"}], "2"], "-",
8 b; Q& o9 ?: K3 D SuperscriptBox[) ?$ F2 v" X9 H" O& ?9 \, P
RowBox[{"(",
8 v4 y0 Y) b$ A RowBox[{
1 a4 U2 P) t8 C" g RowBox[{"-", "0.53052`"}], "+", "x6"}], ")"}], "2"], "-", ! t7 l) c: k' M' ?6 l
SuperscriptBox[/ m" u+ `4 B( F$ x D8 i
RowBox[{"(", ( K0 s) W+ h8 B% @ z
RowBox[{
0 f, [! d; }- P" T0 y7 I% J RowBox[{"-", "0.819512`"}], "+", "x7"}], ")"}], "2"], "-",
% r F4 L/ n. m; B4 t SuperscriptBox[
) d- `$ m0 P/ g- j RowBox[{"(", 3 Q0 K c5 \; a' ] S
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", 2 w* T" P; n$ i' Z& }* E
SuperscriptBox[
" G3 @( p: u6 j1 y6 W" `$ O RowBox[{"(", + z) ~2 x) i0 J
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
/ E" z9 |- \5 \' \* G ")"}]}]]], "Output",/ ?6 U/ c8 z' \$ T
CellChangeTimes->{3.577961751599145*^9, 3.57801231003125*^9}]
$ W; v+ M9 F% E$ ?}, Open ]],
3 u. W4 l, D8 i; B6 L/ r) I7 z% E% e1 r5 {
Cell[BoxData[
E- x6 C5 i ^, W! } RowBox[{"For", "[",
% f; A7 \3 E. t, Q1 z, i) D. C RowBox[{1 \6 N0 j# O3 `. M& l% I
RowBox[{"i", "=", "1"}], ",", + M7 P" l: j$ i' e) ^+ V! r+ k \
RowBox[{"i", "\[LessEqual]", "9"}], ",", $ R3 n1 u* D6 N1 s; b! K1 ^
RowBox[{"i", "++"}], ",",
" Y+ N7 {; G2 J0 u RowBox[{ j) J, D) ~( j- Y! o/ K
RowBox[{"Ca", "[", 1 n# R# u8 A; L" K* A
RowBox[{"[", "i", "]"}], "]"}], "=", / F6 ^. Q' @0 t' L
RowBox[{"CM", "[",
0 \3 }" N! G; a9 {2 e+ r' A3 L% w RowBox[{"21", ",", "i"}], "]"}]}]}], "]"}]], "Input", U6 w2 f; V5 j6 L# ?
CellChangeTimes->{{3.578012202078125*^9, 3.5780123368125*^9}}],. A5 V4 V+ J5 B4 L9 H: D
' M" S- T/ G* E) R9 u+ A2 `Cell[CellGroupData[{
4 W0 r& f: ?* y. }' i: F% F% A7 z7 w! q3 @/ C: j
Cell[BoxData[{
& r* S0 f9 S2 y5 s1 k RowBox[{"C16", "=", "Ca"}], "\[IndentingNewLine]",
2 M- G/ v0 K4 O3 b$ L RowBox[{"u16", "=", - o) c z% p9 z% b+ x, K5 W. e% t
RowBox[{
' p9 K5 X L: S- i3 \ RowBox[{"Exp", "[",
' Y% S6 E" M* L( ]- y; @ RowBox[{
J8 K. ?& k+ S* m$ X( L RowBox[{! c) D( H0 S' K# Q
RowBox[{"-", ! P- o) X$ x1 d8 k
RowBox[{9 N1 T8 [$ J9 R% n! h
RowBox[{"(",
9 e* B' i1 y- O2 a/ b RowBox[{"Xa", "-", "Ca"}], ")"}], ".", . Y3 ?$ a+ T# E4 }. A9 u
RowBox[{"(", $ r0 K- u4 D3 U8 T; b& o
RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
2 a5 L9 J1 w% w; H f "]"}], "/.", "DeltaX"}]}]}], "Input",
0 X J" _3 m' n; G CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {: A1 N+ \8 C) {2 J$ D5 i- u
3.57796154237158*^9, 3.5779615434011817`*^9}, {3.5779615741020355`*^9, / x# K" u o, k+ N( U& D+ l
3.5779615751004367`*^9}}],4 C& j" ^; m1 v/ P; n! c% ]" C7 Z$ M
: T3 U+ z1 ^4 e/ XCell[BoxData[1 \. }* t e2 }7 W! R I* @5 q
RowBox[{"{", 4 L, O& f* I2 W5 Z6 c
RowBox[{
5 H" G d0 I" j+ A2 ?; L "0.434783`", ",", "0.551785`", ",", "0.530346`", ",", "0.151651`", ",",
! c5 `/ b$ g1 p2 S4 o- v "0.79021`", ",", "0.529013`", ",", "0.409756`", ",", "0.`", ",", "1.`"}], 1 J! X- W+ y; F5 Q3 o& f3 X* A3 N) \
"}"}]], "Output",
2 A; @' p4 ~& x CellChangeTimes->{3.5779617754359865`*^9, 3.578012314984375*^9}],% q8 o7 H# d# y2 K
: `: y& ?$ y) G5 G! p' @( jCell[BoxData[' k. R/ g3 o, G' s9 e9 U8 U2 M
SuperscriptBox["\[ExponentialE]",
0 [" U' n- s3 A" p* x RowBox[{"3.141592653589793`", " ", 3 W: _3 y* H5 p1 ~) r
RowBox[{"(", 9 r% `4 l% X8 p( W
RowBox[{# c( ? v1 h0 W6 D0 _7 j9 |
RowBox[{"-",
9 U& d% C; ]! I SuperscriptBox[/ h- e& i8 g: ?0 Z4 D& p
RowBox[{"(",
3 F9 F- j- _- J' X Z9 u$ c/ ]5 n RowBox[{/ T- x5 s* |6 k+ V5 `( p* ? X4 F
RowBox[{"-", "0.434783`"}], "+", "x1"}], ")"}], "2"]}], "-", 4 l# J6 j$ a* K+ l: P ]
SuperscriptBox[ L% k2 f8 [/ Q; K: e
RowBox[{"(",
4 b- n/ E/ I! M- e1 O8 V RowBox[{/ N$ B e: h' _1 U
RowBox[{"-", "0.551785`"}], "+", "x2"}], ")"}], "2"], "-",
( f. X7 ~8 P4 n7 n8 p SuperscriptBox[% U! C: }! U$ }
RowBox[{"(", # m! Y; z- N' @( m$ O( {- v$ m( w" I
RowBox[{% p+ \8 K9 D* a: @3 k. B
RowBox[{"-", "0.530346`"}], "+", "x3"}], ")"}], "2"], "-", U( U0 _' k$ U% K0 {
SuperscriptBox[
4 R2 I7 e3 O6 e; M7 g RowBox[{"(", ! E. y3 j6 O: y& N% o: }
RowBox[{/ p Q: J! o4 |5 }% t
RowBox[{"-", "0.151651`"}], "+", "x4"}], ")"}], "2"], "-", b2 v8 J' B; K; @; v
SuperscriptBox[
0 o7 m2 ` ~( f RowBox[{"(", 9 [! D0 q* V$ r/ ^7 _
RowBox[{5 ^& O" [' A- Q( l' }) D
RowBox[{"-", "0.79021`"}], "+", "x5"}], ")"}], "2"], "-",
! v+ e% d4 t7 k H5 _4 H& g SuperscriptBox[
& K5 h7 B |* E6 o. n RowBox[{"(",
+ ?; `' d5 l; k) d! k2 ]+ S RowBox[{/ d X9 X8 Q0 o- K# z- f
RowBox[{"-", "0.529013`"}], "+", "x6"}], ")"}], "2"], "-",
s% s) p/ A' W/ j SuperscriptBox[1 i$ v; h8 ^$ ^" A$ a2 {' c
RowBox[{"(", " f q2 D% K' T) j5 a% e& L
RowBox[{
# \' Q0 x0 G: Y- P RowBox[{"-", "0.409756`"}], "+", "x7"}], ")"}], "2"], "-",
* w6 T' H& k* e+ C SuperscriptBox[
' e! r! R$ e1 x W) \ d RowBox[{"(", 3 T6 n0 }" `% J$ A! ^4 a
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
2 I; v3 K: L3 `- x1 v SuperscriptBox[6 R5 p: [1 z7 E b9 i9 r! _# q
RowBox[{"(",
4 A' q' Y/ Q9 \' |% T RowBox[{
2 G& T0 L4 H$ b* }' u- {7 p RowBox[{"-", "1.`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]], "Output",$ l& e/ s& T7 R B9 d) r
CellChangeTimes->{3.5779617754359865`*^9, 3.578012315*^9}]
9 e; M" ]4 Q; W0 L; L4 s4 v}, Open ]],* G$ _& t8 K/ t, \2 ^$ P
9 }9 e2 r4 a$ c9 F& }" ~) ]Cell[CellGroupData[{' A, N& A4 Y. \+ K
+ ?* f* o" l* JCell[BoxData[{
; d2 A8 u7 Q5 Q RowBox[{"C17", "=", "Ca"}], "\[IndentingNewLine]", 8 Q& T9 F2 r j) n, l! x$ A
RowBox[{"u17", "=", % W; m; o2 l4 ]2 d& q
RowBox[{9 v& t" G |) S: a n
RowBox[{"Exp", "[",
) u; ?+ T0 q0 h2 N( X5 H' x RowBox[{
; H x. Q8 I( A' ^9 `1 r% f' n RowBox[{+ F2 k0 f. w* m7 k
RowBox[{"-", " N0 u- w" d K
RowBox[{
1 M9 G8 |" G" U RowBox[{"(", w# ^% D4 e) p5 x9 B# m
RowBox[{"Xa", "-", "Ca"}], ")"}], ".", 6 J, k- S4 _& ^! j1 d$ f
RowBox[{"(", , N3 p& a5 n. V* V( {' n" a
RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],7 G7 d' P X3 Z
"]"}], "/.", "DeltaX"}]}]}], "Input",
% M9 y0 D& N. n, [" X CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
a9 m1 k3 i" y$ V0 @ 3.57796154237158*^9, 3.5779615434011817`*^9}, {3.5779615779084415`*^9,
! u. J1 H7 n! V) q 3.577961578953644*^9}}],
0 F$ K! Y# y/ D8 z$ N4 [1 m% R x6 f5 Y6 b2 V3 T- a" D9 e
Cell[BoxData[* m( k6 m+ k3 w0 [: U1 \" [
RowBox[{"{",
% [, K, V4 Z+ ]7 I4 B& R$ {% Y$ u$ V( t RowBox[{
9 D) M! S) ~/ a "0.347826`", ",", "0.705444`", ",", "0.109343`", ",", "0.072008`", ",",
5 f d% W" d: x! m9 U+ H& n- D "0.496503`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.752567`"}], " I& W; w# g( t5 G6 A4 D! U
"}"}]], "Output",
1 @+ a* {" n' N; h; @$ c CellChangeTimes->{3.57796181215845*^9, 3.578012319296875*^9}],% }) g* G* d+ b! j) H3 v
3 r# \ t, l4 \7 J f3 y& oCell[BoxData[* a6 O+ B3 V7 T. m8 }
SuperscriptBox["\[ExponentialE]",
! ?/ Z" k& N4 X- m RowBox[{"3.141592653589793`", " ", # M7 P; P" [2 n- E6 f4 Y) n9 p$ p
RowBox[{"(",
" u; C L/ ^9 K; o* X T RowBox[{
k5 B' ]8 M: `! d RowBox[{"-",
- R- K/ _( L+ i" E1 y7 \/ K& s8 I+ ] SuperscriptBox[4 e u5 {9 J7 f" p! v# r9 R
RowBox[{"(",
3 ] G, ]4 z3 n9 @& o% @% Q3 M RowBox[{7 D' `. r4 ?. b) f3 F
RowBox[{"-", "0.347826`"}], "+", "x1"}], ")"}], "2"]}], "-", 3 t7 ?6 m. z8 G3 [% R
SuperscriptBox[5 n, B) W( L$ {
RowBox[{"(", $ S( y6 D* p% Y! O( ]# r
RowBox[{+ }# Q/ U/ P& ?, j3 _2 ^, ~0 N
RowBox[{"-", "0.705444`"}], "+", "x2"}], ")"}], "2"], "-", * f/ y& M. |! h! r
SuperscriptBox[
+ }" C9 O8 O; Y, i RowBox[{"(",
/ Y) ?* @. L3 `* f t# G E& }# R# v RowBox[{7 w/ D" l+ }. R. ], l
RowBox[{"-", "0.109343`"}], "+", "x3"}], ")"}], "2"], "-", @4 F _; [6 H
SuperscriptBox[9 P) X5 ^' v% q
RowBox[{"(", * r/ j4 z1 {0 }& n$ I; t
RowBox[{/ J; s6 p: P3 j% ]
RowBox[{"-", "0.072008`"}], "+", "x4"}], ")"}], "2"], "-", " \; n! g& }% n. X* [- V$ J3 B
SuperscriptBox[
" a/ J5 F, H3 Y+ o0 X3 T RowBox[{"(", 6 }" s: ~ R4 N+ @
RowBox[{
; W5 m' Z3 J0 ~2 d4 n, h% R RowBox[{"-", "0.496503`"}], "+", "x5"}], ")"}], "2"], "-",
- U& d) ?9 D5 b3 t8 O7 ^3 H SuperscriptBox[
) O G4 s/ W' y$ s3 s: v RowBox[{"(", / O7 Q5 P* w1 I6 O7 ~, r8 D
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", 2 ?2 n3 n6 P* s) H( N7 m
SuperscriptBox[
3 _9 D7 e$ z, m# A6 j2 ] RowBox[{"(", ! U5 J; |/ p% f7 p- Q1 x7 F: [
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", ! p4 J" D1 p4 |+ A8 {
SuperscriptBox[2 a7 \/ z, p/ I+ i4 g
RowBox[{"(",
" {: b7 z2 a! [* O* o RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", " {% Z( f8 T+ ?! X- `. N
SuperscriptBox[
0 G# b& v$ |* K! t/ o/ x/ j0 W RowBox[{"(",
/ `+ L- p& J+ ?* Z RowBox[{
A, y- E9 `0 h; q" z+ ]/ k RowBox[{"-", "0.752567`"}], "+", "x9"}], ")"}], "2"]}],
) N1 u( G& t" _! w7 |$ n8 @# `/ D ")"}]}]]], "Output",
" ^* e& O7 c1 h x CellChangeTimes->{3.57796181215845*^9, 3.578012319296875*^9}]' V1 W9 O- w' F
}, Open ]],7 L9 I3 w/ c; n7 x+ h t5 s; g+ S
1 r8 N4 J/ R- Z
Cell[CellGroupData[{
7 B I1 _- y; ?/ B% H$ K
( C- ~: b: B; g" c$ y2 m' FCell[BoxData[{
: u1 u/ o0 v | ~( C% n* M RowBox[{"C18", "=", "Ca"}], "\[IndentingNewLine]",
8 D) `9 j! \2 s% s, N7 |- A6 G RowBox[{"u18", "=", + |2 U8 ^3 D$ k! I
RowBox[{
: p* `, H# g! p RowBox[{"Exp", "[", 6 t- F5 z( y6 Z
RowBox[{% c' e: L0 k# D1 f, [. A, K
RowBox[{/ C- Q* B# T$ e4 b0 \7 a" S. U. F
RowBox[{"-",
5 ?0 s' t2 o5 ?- }4 F, S+ z RowBox[{
3 L( b h* G7 Z. L1 m9 w RowBox[{"(",
_) |, A+ e5 M& @ RowBox[{"Xa", "-", "Ca"}], ")"}], ".", 5 _2 D4 Q' n8 Z; a* \# U. Y
RowBox[{"(", * z2 n/ N. B5 Q; H( _
RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
: t5 A( c6 D* r% ~ "]"}], "/.", "DeltaX"}]}]}], "Input",
+ i5 @8 s0 I8 L- `, c CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {* B" l; O* i4 ~
3.57796154237158*^9, 3.5779615434011817`*^9}, {3.577961581886449*^9, / G0 @: F8 v3 M, @
3.5779615828848505`*^9}}],& }0 R9 [; m$ W m
: C& Q' P+ l5 `. rCell[BoxData[6 V F7 B% v7 I7 {, J
RowBox[{"{",
* J' k& [5 Q; e2 g2 f. N RowBox[{
* y9 [0 ?# ?. p "0.173913`", ",", "0.984656`", ",", "0.420753`", ",", "0.137022`", ",", 3 J" a9 l$ h$ }2 g N5 }/ w
"0.321678`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}],
# i/ a7 T$ z6 @4 ` "}"}]], "Output",3 p: {2 N& c3 t, V
CellChangeTimes->{3.577961839926499*^9, 3.57801232378125*^9}],
! j8 o1 t8 q; g& Y! C9 V4 L' g/ Y, s8 y3 b% `
Cell[BoxData[( `, a8 {! U" v% P* n1 U
SuperscriptBox["\[ExponentialE]",
# s; q! k B) r- Q5 t8 I RowBox[{"3.141592653589793`", " ",
' t/ g" r0 b4 |3 N% k$ ?% h2 X RowBox[{"(",
6 {2 t* x9 D ~4 ?( v RowBox[{
! p1 D4 p# v" n& @4 x9 C) W RowBox[{"-",
6 B5 E# Y; J0 F4 }# g0 o1 Z' d* a/ R SuperscriptBox[" R- V' q2 j2 A0 \; V% |1 c
RowBox[{"(", U3 d/ G* n9 B9 J) d
RowBox[{
- X- p \) p6 t W6 R7 q' J5 A7 z# ^ RowBox[{"-", "0.173913`"}], "+", "x1"}], ")"}], "2"]}], "-",
h' i7 F8 b/ i8 E+ @ SuperscriptBox[1 v% x& _9 L5 B$ Q
RowBox[{"(",
& I! l1 C' z1 l: G2 B% B; G RowBox[{' K( k& ]& W- Y7 J+ w
RowBox[{"-", "0.984656`"}], "+", "x2"}], ")"}], "2"], "-",
9 J( u7 z* E9 o# n4 J9 o SuperscriptBox[
" r! B! i6 T3 ~0 ~9 R( S RowBox[{"(",
" F9 h8 P' ]$ [ RowBox[{: {, [2 p8 C7 z8 C- {: V8 T9 G& V9 k
RowBox[{"-", "0.420753`"}], "+", "x3"}], ")"}], "2"], "-",
( M* u0 I% @, ?; ] SuperscriptBox[* _; |- E; Y8 b6 T, R+ k! I
RowBox[{"(",
: ?3 ~# e; f3 e! I$ \8 @. R RowBox[{
$ Y( j( v7 E+ E1 [0 e, o RowBox[{"-", "0.137022`"}], "+", "x4"}], ")"}], "2"], "-", / j6 Z) Z$ [ c2 M
SuperscriptBox[
1 r, V- ~3 \' ~9 T: W RowBox[{"(",
# Z8 S! Y/ }( D& O- W RowBox[{
8 [2 r$ P, {* A3 W& t8 | RowBox[{"-", "0.321678`"}], "+", "x5"}], ")"}], "2"], "-",
" N2 U0 g. g2 {4 R3 [ SuperscriptBox[4 Q& M) H( \9 O4 J9 E M
RowBox[{"(", - R+ e/ x, i' d8 s9 o' ?
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
) t9 ~. S1 e5 Z$ v* T SuperscriptBox[3 `5 m: `% h4 C- g4 `9 p: c
RowBox[{"(", ; Z* Q: h/ C- c, d4 w) P. w' t e, e
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", " J! [/ a' a! d- e! Q- U3 ^
SuperscriptBox[
3 Q$ c- W" _8 c3 ~# k0 Y7 Y7 y: S* S RowBox[{"(",
( {7 U1 L( L% X6 X) W5 ^- m5 T RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", - I+ o' q- n3 x9 D9 x8 V% R
SuperscriptBox[/ @2 L9 O& t8 p" |8 l2 q3 E- s' Y
RowBox[{"(", ( x% u' \7 u4 x
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
* g' ~/ {9 ?5 m ")"}]}]]], "Output",
2 Y- O0 f& B4 p5 N CellChangeTimes->{3.577961839926499*^9, 3.57801232378125*^9}]3 Z" |% u* L# W4 n. z
}, Open ]],8 G& G, W$ P2 S. L4 m
- M c& o7 p) ]) JCell[CellGroupData[{
" ?+ G* }4 u3 ~3 u
, n$ a2 k; @+ l0 B3 Q& ICell[BoxData[{
/ t0 r0 g+ N& I4 z% w y RowBox[{"C19", "=", "Ca"}], "\[IndentingNewLine]", , |2 K9 K1 O# a/ x- i* v7 p
RowBox[{"u19", "=", # f* E. r; I9 v4 ?$ C& \, x" j
RowBox[{
6 R0 a2 q6 t4 ]; M RowBox[{"Exp", "[", 3 D6 P& }. g% D; @+ H# B
RowBox[{6 o$ i3 L3 W- ?0 O: |- Z
RowBox[{+ Z; [- t; D! o2 f1 e' ?
RowBox[{"-",
. u5 i, F5 L: k RowBox[{( n8 K# e2 d2 d \$ o' k
RowBox[{"(",
, M8 Z% E: W/ \2 y RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
. Y+ n" H. E( s3 A1 C4 G# L2 ^ RowBox[{"(",
& K( j5 Q* }2 C0 ?$ S7 f0 A# V/ y RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}], T# k, ?9 A0 c5 L# G
"]"}], "/.", "DeltaX"}]}]}], "Input",
6 o; L! s& g4 q D$ v- i/ m* g) B CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {: _- x$ S9 B t7 k3 {
3.57796154237158*^9, 3.5779615434011817`*^9}, {3.5779615879548593`*^9,
, ]; Y9 h! c% ^, I8 `5 H( S; n 3.577961588890861*^9}}],# s( g. }8 c) h6 q. \8 D3 ^+ R9 ~' c
% O2 [) [' {0 Y) N# kCell[BoxData[" E* v, S5 i8 m/ j
RowBox[{"{", $ r" M5 Q( |9 Q% ^9 R2 L
RowBox[{
! V3 F \5 Q2 I) n$ z/ i. y/ a "0.391304`", ",", "1.`", ",", "0.452931`", ",", "0.150909`", ",",
8 M$ I+ z3 Z) s! z4 p "0.342657`", ",", "0.370761`", ",", "0.`", ",", "0.509567`", ",", "0.`"}],
+ O) G( K( [ }, d% e "}"}]], "Output",% g% D6 y: A6 p9 G' f; n
CellChangeTimes->{3.5779618714853535`*^9, 3.5780123283125*^9}],
3 R% ?" _# S8 W* S! q$ P& l# d2 x: f
Cell[BoxData[; g1 R! l; P4 L# _/ n
SuperscriptBox["\[ExponentialE]",
; ~0 N) L; w' ^0 k9 |3 ^; \& M5 t RowBox[{"3.141592653589793`", " ",
f' H0 W6 r' z- O RowBox[{"(", 1 D5 \ S% d" f9 ]- G
RowBox[{
, y$ c3 b9 r _2 m& [$ \& \$ f RowBox[{"-", 8 j# z- u. \+ q7 ^' l" P
SuperscriptBox[$ Q ]9 ]1 e3 D* e2 G
RowBox[{"(", " C# R+ X& ~) G8 E, [2 X
RowBox[{! H7 T, W4 l1 m
RowBox[{"-", "0.391304`"}], "+", "x1"}], ")"}], "2"]}], "-",
, j; y! d5 r2 x. q SuperscriptBox[
# E( d/ x C* r, m: k) i RowBox[{"(", % p/ } P0 R* K. m5 L& W. ^
RowBox[{$ i4 H0 P } i5 M
RowBox[{"-", "1.`"}], "+", "x2"}], ")"}], "2"], "-", / z$ z) _: o! r5 v& n) S
SuperscriptBox[2 [; t1 B) H9 [( |
RowBox[{"(", 3 b' Z5 s9 Y. |% C+ b* q
RowBox[{3 _4 L* u+ f4 V2 x; g
RowBox[{"-", "0.452931`"}], "+", "x3"}], ")"}], "2"], "-",
8 S8 h9 {7 o1 [% H7 V SuperscriptBox[7 T9 G E) y- W
RowBox[{"(",
, o, `3 p1 V8 W; N4 n& ?9 P RowBox[{
$ e; \. e7 F* r; s RowBox[{"-", "0.150909`"}], "+", "x4"}], ")"}], "2"], "-",
* P4 ~' M: u9 e z. x7 i! G4 v! b SuperscriptBox[4 {* E, d1 H9 M l3 y
RowBox[{"(", * x) s! P+ I; z3 p, o
RowBox[{
* M3 m H0 [/ a m RowBox[{"-", "0.342657`"}], "+", "x5"}], ")"}], "2"], "-",
4 Z+ q5 S5 x- e) J+ X! B% }" I SuperscriptBox[7 V" V$ A3 p, r0 M* X
RowBox[{"(",
7 q6 f7 J" y' n* W. R, `& ?6 O RowBox[{ n* _- x! `% V% c v8 |/ D
RowBox[{"-", "0.370761`"}], "+", "x6"}], ")"}], "2"], "-",
' H' ]9 W" s# k3 ?- X SuperscriptBox[
- p+ p) `2 H0 Z RowBox[{"(", 3 y) J5 b" y; x+ J4 H0 I, {; Y- u
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
/ j* }& c/ |+ b SuperscriptBox[
- R' V9 N! B$ @3 `2 q7 M/ A RowBox[{"(", % a, H" T$ M' T$ i" y# r
RowBox[{1 _# {( o$ K- M7 t6 f) W$ ?
RowBox[{"-", "0.509567`"}], "+", "x8"}], ")"}], "2"], "-", 2 Y, K. e. k2 y2 F* \* d
SuperscriptBox[& b$ ^+ i# A# U8 M: t
RowBox[{"(",
; t5 c% ?7 i0 W/ k* G) a RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], 2 [1 s8 @% ]; Z8 Z
")"}]}]]], "Output",+ E6 y0 l4 A. |- O8 F& {! J5 ~) b
CellChangeTimes->{3.5779618714853535`*^9, 3.5780123283125*^9}] p2 k4 B: K, w$ k, W) [1 w) Q
}, Open ]],
A: A9 K8 t( j! j) `
) o8 B/ |- A& _8 r7 zCell[CellGroupData[{
Q$ p" t+ c f# T2 U
1 Z3 f" w" C- Y9 BCell[BoxData[{/ g3 u7 d3 [. b! g: a1 ? m
RowBox[{"C20", "=", "Ca"}], "\[IndentingNewLine]", j |, h8 n6 S I+ Q
RowBox[{"u20", "=",
: {( T! S$ x, J RowBox[{/ x" a8 n$ W+ Q2 H: V
RowBox[{"Exp", "[",
, H* m' w7 U# w0 @7 k RowBox[{# l5 P- q% ~) w! v4 C
RowBox[{5 x0 z( z' h$ P7 i& p; m3 s+ y" |
RowBox[{"-", # i; u0 g+ |: X# K/ s/ l: [! i
RowBox[{# [4 ~: B$ l% u
RowBox[{"(",
4 K( Y* y4 Q6 v RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
3 n' s' J e. \: E RowBox[{"(",
$ g$ \% A7 `6 W' _$ `; E1 @* F RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],# Z: K/ n* w5 X) _
"]"}], "/.", "DeltaX"}]}]}], "Input",
7 i; l& F( D8 ?# L CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {9 k" ~" B$ p# A& q' D
3.57796154237158*^9, 3.5779615434011817`*^9}, {3.5779615923384666`*^9,
; f, v$ \" s( e! `# g. k 3.57796159382047*^9}}],
* s7 [/ ?- }* q7 j, s4 C9 R; b4 @7 J& v) Z8 m2 T' e0 j% b
Cell[BoxData[) @8 E# t2 v( x
RowBox[{"{",
) P8 E, o- g) v# w% e RowBox[{
: A; j7 a0 P) k. D "0.782609`", ",", "0.751623`", ",", "0.177646`", ",", "0.350845`", ",", % P& `" e6 B9 z( P& q5 b2 W
"0.412587`", ",", "0.502638`", ",", "0.`", ",", "0.`", ",", "0.178973`"}], . m% k/ O; l& l& ?8 L! K
"}"}]], "Output",
5 A2 l5 r5 B% G* J, Q CellChangeTimes->{3.5779618958681965`*^9, 3.5780123335625*^9}],
1 n0 v; T: u6 h! m' Z' b! H
% v* {2 E! O+ t( z3 TCell[BoxData[1 J# r5 H, q1 W
SuperscriptBox["\[ExponentialE]",
5 {5 ^3 s9 @4 M! g RowBox[{"3.141592653589793`", " ",
! d/ R- @; }. [ RowBox[{"(",
# P2 |7 p, [5 V/ _5 l! { RowBox[{
& Q8 s7 M6 H) u- ~- Z' l RowBox[{"-",
8 T6 N' L0 h. D8 M8 u! I. R# R* U SuperscriptBox[2 }' T/ a# |6 y( w+ D- a. T0 ]4 c
RowBox[{"(", ; W, f, ?* [8 H
RowBox[{$ y& m6 `" a. ^- M
RowBox[{"-", "0.782609`"}], "+", "x1"}], ")"}], "2"]}], "-",
: k9 |" M8 t( m; [! _1 l SuperscriptBox[# k Y) V# z# {( r) l" B
RowBox[{"(", 9 b$ }5 z/ u0 Z8 A9 F% L
RowBox[{5 d* ]; K7 B; f
RowBox[{"-", "0.751623`"}], "+", "x2"}], ")"}], "2"], "-",
4 T0 C: B. S* W& X SuperscriptBox[
- J: A; G8 ]6 \% K RowBox[{"(", ( J! L' t: F. a5 y$ ^( p# B
RowBox[{
_/ [: _% c5 G+ s RowBox[{"-", "0.177646`"}], "+", "x3"}], ")"}], "2"], "-",
. m) d. i+ H5 S- n' o SuperscriptBox[9 S0 e1 r1 u" `& B1 w
RowBox[{"(", 5 ^* t6 P2 A& x/ |8 j& W- }: b
RowBox[{* y+ k) k: m0 L& D
RowBox[{"-", "0.350845`"}], "+", "x4"}], ")"}], "2"], "-", ; T+ E% h5 B {: P: h9 ~( e; Y
SuperscriptBox[3 }7 O9 h3 i3 y9 P! \
RowBox[{"(",
z- D, T8 M* _2 G I. ` RowBox[{9 T5 h4 m- \8 j+ e z
RowBox[{"-", "0.412587`"}], "+", "x5"}], ")"}], "2"], "-", * T. { r- ~ b
SuperscriptBox[
# g+ A8 w4 C! ? RowBox[{"(",
1 S) z: n6 B7 R2 ~ D4 [& A( { RowBox[{
0 e) y( ^6 F/ | RowBox[{"-", "0.502638`"}], "+", "x6"}], ")"}], "2"], "-", 1 F7 E+ }8 X! c* V5 g
SuperscriptBox[' r0 t) A" N! ]2 q5 a
RowBox[{"(",
4 C' r+ y3 X5 f! {$ I. \6 r) D RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", 6 p- C! \1 N- ]6 o; M* ?8 M
SuperscriptBox[% K8 v' {( f' b3 _( k+ v" s8 j
RowBox[{"(",
! C( z% y' A( E4 G) B. N( v: a RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
' F; p% @3 h+ S2 u7 \: U( y1 V SuperscriptBox[( j- T1 A0 }4 W" X# _ v
RowBox[{"(",
! s, D; F6 c# E0 y4 n RowBox[{. p |$ U$ X: t9 `' t) Q
RowBox[{"-", "0.178973`"}], "+", "x9"}], ")"}], "2"]}], 8 q" Z+ D% ^/ c% L. l( R
")"}]}]]], "Output",, i# @' J" \( D7 Z/ A
CellChangeTimes->{3.5779618958681965`*^9, 3.5780123335625*^9}]0 L, m7 Q5 c& J* G$ t+ r
}, Open ]],
: j! g5 F$ A0 z, S/ ]( y) J
& D6 L' S1 M$ UCell[CellGroupData[{
9 t0 m8 P2 j& C$ i$ f
P, v% x- F" u# h; }5 rCell[BoxData[{
; Y- M4 H% r9 {" E RowBox[{"C21", "=", "Ca"}], "\[IndentingNewLine]",
( K$ n$ k( g* S" K% m" t RowBox[{"u21", "=",
, o4 |) M; \; h8 e RowBox[{/ h+ I( d/ C0 E) u1 m& R7 g
RowBox[{"Exp", "[",
0 p4 ]( J& d) C2 P) w. s RowBox[{
/ v! J% _+ {$ z7 |& j0 X RowBox[{
# P N9 W7 j& @' i/ A( o, [ RowBox[{"-", * V- @& z$ \- L9 c; N' p) F+ n
RowBox[{
) g9 Z5 ?2 _, T4 | RowBox[{"(",
5 u1 O+ I* R. W/ ^- U0 x RowBox[{"Xa", "-", "Ca"}], ")"}], ".", ) Q6 T8 t. a( J; J
RowBox[{"(", : u. y0 h& f* b5 x# D* |0 ^
RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],0 ^$ [* h: |* H4 t( O1 x1 z: P8 M
"]"}], "/.", "DeltaX"}]}]}], "Input",) [# r: e: U) N& l ?9 G. k
CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
$ [- {! e- U& e: B- ?$ a 3.57796154237158*^9, 3.5779615434011817`*^9}, {3.577961596971675*^9,
5 J8 O! N5 _7 |0 X7 ^: j$ R' j8 G 3.5779615991556787`*^9}}],0 D9 r( f- `- [& Y& J3 E. O+ X; @
5 k2 h' L& ~+ w7 @! L( DCell[BoxData[( F3 a P2 G7 Y4 ?1 q% s9 z
RowBox[{"{", 2 B4 N+ e4 p1 D2 Q. Y2 o0 A3 X" P
RowBox[{; d# b7 p3 B! M u. Q6 r/ C( C
"0.608696`", ",", "0.606152`", ",", "0.158058`", ",", "0.09017`", ",", 9 w, B4 C. n/ a4 f1 n
"1.`", ",", "0.166541`", ",", "0.278049`", ",", "0.`", ",", "0.236675`"}],
3 |2 K& w5 p" M% d) K) W6 v3 `. I+ \ "}"}]], "Output",) e2 _* a( w* _0 K1 O$ A: o
CellChangeTimes->{3.57796192085944*^9, 3.57801233915625*^9}],: d0 z5 i) d! n9 @3 e" q( }5 P
& q+ S- v- c* I' |6 h* P: A
Cell[BoxData[+ }6 E- g/ V' n. R
SuperscriptBox["\[ExponentialE]", 5 E( C: }. y, p
RowBox[{"3.141592653589793`", " ", ) w, |* U3 s/ z: ^
RowBox[{"(", & B4 L% [! w, {. M" m* d( g
RowBox[{
2 _5 \# u0 r8 ?! l* T G+ p RowBox[{"-",
! g8 _9 d6 F) w: ~) @$ a SuperscriptBox[2 E3 v3 D- {+ M \
RowBox[{"(",
$ W7 b0 [8 i I/ C& k7 c RowBox[{
1 I% h- l8 L& {* [5 k3 ] RowBox[{"-", "0.608696`"}], "+", "x1"}], ")"}], "2"]}], "-",
0 J1 I8 n, a7 v+ f! m& a0 ^% h SuperscriptBox[3 q4 m9 c7 ~; I7 E
RowBox[{"(", + a4 p) h& w% Y* g& b
RowBox[{, k# _6 Y7 q" o0 z: K
RowBox[{"-", "0.606152`"}], "+", "x2"}], ")"}], "2"], "-", * G# o+ V Y j+ j0 I0 Q% K# V- Q! a. u
SuperscriptBox[
# y, ~1 @3 T# [& i RowBox[{"(", " H4 M J: k2 O* p0 q6 D. F: j
RowBox[{' h/ C1 @* a8 D9 [& J
RowBox[{"-", "0.158058`"}], "+", "x3"}], ")"}], "2"], "-",
/ X) N( b6 X! N& g SuperscriptBox[7 T7 w4 S& Y/ o% h/ |% R7 m4 N
RowBox[{"(",
H) D" r4 o( i1 a& z8 q5 f RowBox[{% W4 q+ {8 u$ Q' n$ t3 C/ j- i* k4 a
RowBox[{"-", "0.09017`"}], "+", "x4"}], ")"}], "2"], "-",
; G# T' `6 T D SuperscriptBox[9 E: v |5 h! H$ y" N: f. d) m
RowBox[{"(", * i5 ]- d& K. G# `& Y" c
RowBox[{
" _8 B5 m: O# h& P" Z# v RowBox[{"-", "1.`"}], "+", "x5"}], ")"}], "2"], "-",
' H$ r/ h1 E, G SuperscriptBox[ n7 b- h6 A! g7 ^: D1 a
RowBox[{"(",
( j( u- r& B: u4 ? RowBox[{- b7 H+ G7 A2 B1 i; @6 t* y
RowBox[{"-", "0.166541`"}], "+", "x6"}], ")"}], "2"], "-",
6 c" b3 U: j, }9 @ SuperscriptBox[
( o a) i3 |& {. v8 o* b! N RowBox[{"(",
G6 s! N' Z- ~ RowBox[{2 x" d4 m; k; F. ~
RowBox[{"-", "0.278049`"}], "+", "x7"}], ")"}], "2"], "-", 2 w g' @, k0 G ], c
SuperscriptBox[
% p4 T5 {; i6 T: J/ o) _ RowBox[{"(", 6 R5 p T& W5 ^; s: V8 Z' L. l7 [
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
7 w9 a0 E6 I4 M/ q, C2 p SuperscriptBox[
@; b! S# p; w8 ? E4 Z2 } RowBox[{"(", $ l$ z# w% s( A8 {
RowBox[{
: E m3 X5 ]; O1 f- `3 w RowBox[{"-", "0.236675`"}], "+", "x9"}], ")"}], "2"]}], ! M0 o3 `1 k' F! K: m \* a
")"}]}]]], "Output",
2 J6 o7 s6 f3 J1 \: H' e4 J CellChangeTimes->{3.57796192085944*^9, 3.57801233915625*^9}]
! L" U) J* c+ a# h; @}, Open ]], q* [/ s* m7 ?
2 D( E$ Y6 e" ]$ Y
Cell[BoxData["\:62df\:5408wi"], "Input",
5 Q: L+ t$ A" I- I( \ CellChangeTimes->{{3.5779225126875*^9, 3.577922521484375*^9}}],+ O/ D$ p2 S4 _$ v( J4 H
' `! P9 j7 C! L O6 V; V' b/ `1 OCell[CellGroupData[{
" R0 F; Z6 u5 w+ o+ O! d
0 w) c y# n5 |, a" `' Y6 O+ ZCell[BoxData[
% h1 W- x0 z9 [+ C RowBox[{"y1a", "=", , l* A3 x% r6 s( S/ S& `, o9 o
RowBox[{"Table", "[", 5 W3 [. J, o" i0 {# F
RowBox[{"x", ",",
, r! A7 S* x# v4 v& r# M, H" | RowBox[{"{",
, w7 ~! s* v. }; b RowBox[{"x", ",", "1", ",", "60"}], "}"}]}], "]"}]}]], "Input",
; ^+ m) d+ K% R$ ]4 B* }" O CellChangeTimes->{{3.57792262821875*^9, 3.577922633546875*^9}, {/ b' I! j5 k; a$ H* W5 _& F
3.5779226649375*^9, 3.5779226810625*^9}}],
% B% B' x, }7 V" _" I
) m9 e. m( p& N2 `4 q! dCell[BoxData[3 ~6 h, p6 k# s5 P. r$ o
RowBox[{"{",
1 j: e# K$ a/ u- [ z$ _# C RowBox[{( B* k& [" W( U6 W/ f
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", % C6 T; @. R3 b3 p3 q
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15",
/ c v; e7 Y. ~' N ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",",
9 {$ B/ E2 x) F5 s5 Y) r5 @1 d8 M, V "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", "28",
4 v' w% V$ @6 N) n+ i ",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34", ",", , R/ N# K) A. h" t
"35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",", "41",
( |" b. O! _/ ?" p ",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47", ",", & O u' d1 C" o' p; f& j
"48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",", "54", 3 k' G0 C3 R, {) g0 Y: S5 }
",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",", "60"}], " v- j3 X( c; c
"}"}]], "Output",
6 z8 h! H% ?! d- o2 h' U$ p5 D5 S CellChangeTimes->{3.577922682296875*^9, 3.5779575713607535`*^9, ( i+ W' N. l- Z- c$ }( C5 w; \. i
3.577958873908263*^9, 3.5779619268186502`*^9, 3.57801234115625*^9}]% {4 M+ E) X; V, _
}, Open ]],
( ?8 r! I% t5 \! u, v; \+ S2 Q+ b! C/ m9 t) ?1 A/ u/ M( }) S
Cell[CellGroupData[{- g/ M6 R) F2 |6 \- n
! X0 m d j$ n; m
Cell[BoxData[; P8 y, J" g% U7 @# s# N( @
RowBox[{"Data", "[",
3 N2 n& N. C. \+ J! Z RowBox[{"[",
2 `: e7 g! l6 g' f$ U9 h RowBox[{"3", ",", "10"}], "]"}], "]"}]], "Input",: f0 A! c. d( i. `/ _
CellChangeTimes->{{3.577922711734375*^9, 3.577922728984375*^9}, {. X/ d* ?1 K7 o- W6 B
3.577922912015625*^9, 3.577922912171875*^9}, 3.577958877121869*^9}],
& y s5 n+ L( {2 I$ {: t
/ s1 \6 H( c8 _8 O6 W, ^Cell[BoxData["0.899882`"], "Output",
$ N/ w. S) j9 k( X; L2 x5 o0 L( E CellChangeTimes->{{3.57792271875*^9, 3.577922729828125*^9},
. _* v$ R4 w5 R3 @/ s$ \8 i! _5 K 3.577922913203125*^9, 3.577957573622758*^9, 3.5779588807410755`*^9, 6 S- B9 ?/ [8 S; Q6 q/ B
3.577961929080654*^9, 3.5780123419375*^9}]
3 Y3 n6 K7 ~+ h; c}, Open ]],8 k9 o& d/ Q2 s! e
4 b# X- p5 \# ~
Cell[BoxData[
7 |/ m M* x0 m3 p( O, W RowBox[{"For", "[",
% V' z' b: {* D% p/ {0 O3 s6 q, [ RowBox[{' C, s3 D' V& I* A* V- c+ W: b
RowBox[{"i", "=", "1"}], ",",
+ t- j# |, ]4 U ^6 x RowBox[{"i", "\[LessEqual]", "60"}], ",",
- \' `6 x/ ]: O: v; l! h2 A2 s9 i RowBox[{"i", "++"}], ",", ' g9 `4 V, Z6 j2 e7 N' Q
RowBox[{
7 H/ o* a5 j2 x9 T, ^$ T+ {& p RowBox[{"y1a", "[",
: J% x7 e/ p' I2 m* H1 q: [3 T7 v RowBox[{"[", "i", "]"}], "]"}], "=", * R6 d0 U, u9 ^6 W- R
RowBox[{"Data", "[", # A+ i4 c, a; n0 N
RowBox[{"[", 7 f& Z t7 w$ k' Q" Z) M
RowBox[{"i", ",", "10"}], "]"}], "]"}]}]}], "]"}]], "Input",
, M7 w: l/ |7 c+ e( P' |3 E$ h& { CellChangeTimes->{{3.57792259890625*^9, 3.577922624859375*^9}, {
. C3 |+ t% a) h+ V 3.577922687234375*^9, 3.577922702859375*^9}, {3.577922917453125*^9,
0 b; h$ ], K. U) a7 G 3.577922923203125*^9}, 3.5779588839702806`*^9}],: Q P; w @( @' u
" S* a) S4 F4 i G8 Z8 e* c
Cell[CellGroupData[{
# P. V2 j) B! f( C* P! A, U3 {' m# |# ?0 ~: Y
Cell[BoxData["y1a"], "Input",) X( Q2 e6 ^9 U4 X' n7 T
CellChangeTimes->{{3.57792293078125*^9, 3.577922931484375*^9}}],. B5 }* Y9 r6 d/ |. i
1 }& }5 X2 }) |5 x
Cell[BoxData[
0 V9 o+ w) `- D) [# D$ R RowBox[{"{",
; R0 z- \ }$ d. b2 _0 o7 c ~2 z S RowBox[{" I7 j" a3 w" \/ h
"0.277091`", ",", "0.220259`", ",", "0.899882`", ",", "0.265607`", ",",
* m: s9 @9 t; F! r* s* a- b8 `$ q% n "0.642226`", ",", "0.306243`", ",", "0.186985`", ",", "0.175501`", ",", " ^7 L+ e0 d" s j* v. `
"0.147821`", ",", "0.352768`", ",", "0.23881`", ",", "0.095701`", ",", * P" j& c0 m7 K, q2 `3 |2 D
"0.162839`", ",", "0.335395`", ",", "0.160483`", ",", "0.398115`", ",", : W8 X! ^" A0 Z" h+ m
"0.157833`", ",", "0.315665`", ",", "0.492344`", ",", "0.638398`", ",",
$ [0 F A' ^6 _+ m. o "0.392521`", ",", "0.362191`", ",", "0.114252`", ",", "0.401355`", ",", ; [) M3 Q0 }& ]* O! Y. f. w9 w
"0.827444`", ",", "0.676973`", ",", "0.331272`", ",", "0.845701`", ",",
# m& c5 b8 M7 ? B9 o! N5 s "0.287102`", ",", "0.`", ",", "0.050059`", ",", "0.254122`", ",", 2 G f# ?* o S$ F) m5 e, \5 w/ `
"0.086867`", ",", "0.659894`", ",", "0.317138`", ",", "0.605124`", ",", : W8 D0 }* H7 t) G, N" z. z
"0.32126`", ",", "0.595406`", ",", "0.555359`", ",", "0.333333`", ",",
1 M- u4 e: @% `& s% L5 u. F p4 h "0.149588`", ",", "0.493522`", ",", "0.224676`", ",", "0.410188`", ",", : s) Y5 E8 P' ?
"0.668139`", ",", "0.102179`", ",", "0.380742`", ",", "0.319494`", ",",
$ J+ D5 s- p' J+ ^4 Z6 } J$ r, v "0.031508`", ",", "0.292108`", ",", "0.329505`", ",", "0.337456`", ",", 7 B0 |3 Y& h W! `
"0.766784`", ",", "0.676678`", ",", "0.541519`", ",", "0.064488`", ",", ) j' r0 t* P8 D: r9 ?$ b* r5 h
"0.463192`", ",", "0.388398`", ",", "0.262367`", ",", "0.290931`"}], : \$ E) `! Y j4 Y! A0 e/ Z' {
"}"}]], "Output",, m% K- @: p" V# B
CellChangeTimes->{3.57792293246875*^9, 3.577957577756765*^9,
1 R7 A, o/ h) T" o( G 3.577958888806289*^9, 3.5779619425902777`*^9, 3.5780123438125*^9}]
1 _9 t7 X9 G" Y+ e5 R}, Open ]],
5 ]0 E; {+ G7 c- s1 {. W) i7 f; y8 ]" h# t5 D
Cell[CellGroupData[{" M: p% L, k2 j# U! |7 R) ?! I
; c# L* R- L& ^* a5 V
Cell[BoxData[
6 ?( t% P) P% {& P RowBox[{"m60n21", "=",
& v3 e; c; g" W* S! z/ _ RowBox[{"Table", "[", 0 o }( b C" d$ _$ q2 B/ ^: d
RowBox[{
" @/ x* W. q7 ?- F! Q3 l9 w9 _1 b RowBox[{"Table", "[",
r6 O4 i W4 C1 k# ~- T5 W RowBox[{"y", ",", - M: ^5 [2 J7 r# c1 F
RowBox[{"{", 4 b' U& d- H5 a6 m2 h- H3 }
RowBox[{"y", ",", "1", ",", "21"}], "}"}]}], "]"}], ",", ; s0 e! u4 X$ Z( l; N
RowBox[{"{",
5 B9 J, \, X+ u& m; r RowBox[{"x", ",", "1", ",", "60"}], "}"}]}], "]"}]}]], "Input",
( V4 `7 P; V. u( i% ^0 ^& [* g CellChangeTimes->{{3.5779239260625*^9, 3.577924021765625*^9}, {- f( a, R W! H+ B
3.577924052828125*^9, 3.577924101671875*^9}, {3.5779619669419203`*^9, + ?4 T0 m: A9 K4 x# {; j) o: @
3.5779619706547265`*^9}}],
5 D# q2 Y/ N* X* o6 e# |
+ I K/ Q0 e/ y5 [4 g* xCell[BoxData[- E/ a' p0 Y* |$ A
RowBox[{"{", , d0 B m1 ]( c! W6 x
RowBox[{
. I r" v+ _* C+ ?* j( d RowBox[{"{",
7 P( z5 U B3 T" C RowBox[{8 E$ b3 o: p3 C. }; Z! ^) ^2 U1 Z: b. \
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
6 E S& y/ k j" _5 |) v) F ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", $ ?: s( w7 {& Z& G$ f) E. ]- o9 z
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
6 W9 b2 \8 G0 z' f# j2 } "}"}], ",", , U% j: Q( z; g+ Q W
RowBox[{"{",
' [( M2 u7 w. F8 A! ^( D; j8 p RowBox[{2 Z$ j: R( m! p. H+ F
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",1 o/ D+ l2 j6 |0 F0 Q
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", . ~' r& C# Z% K5 Y( f
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
: ^/ S& m8 J j, [: v "}"}], ",", / ]( w: v- S8 b" v4 P
RowBox[{"{", 7 L1 F* q# l1 Y# J( n$ E2 Q
RowBox[{
) c% v/ {& P3 A1 Y0 n! C0 Y "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",5 i4 c6 H4 }0 l b
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", ; `) {* S9 V8 w8 Y
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
" r) _9 X& t" l) G" k2 w* b "}"}], ",", 7 T4 z4 D" `* q" `4 ]
RowBox[{"{", * I* i' D7 e. K, c& k2 c! @: Y8 V: m
RowBox[{
7 R; }2 j4 y- J% @% W "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
) C M* O3 H3 D5 R/ X ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
) `' r2 c" g) g6 I+ _, k T9 G2 | "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
: ]% d) I o' q8 m) f* W) M "}"}], ",",
% G% d8 J" p: M: g, W) ] RowBox[{"{", 4 R' H M3 X* L! @$ ?7 O2 {
RowBox[{
9 d3 o9 K" y! t2 V- R$ H% c "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
2 V$ i3 t0 y1 |" ~: a8 l$ ~* Q ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 7 V; h& q0 `: i" p, i
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
# x8 d# o/ {$ L+ c "}"}], ",",
& P* X! |0 Z% x O RowBox[{"{",
! E9 s; D* I# a; L+ d" T RowBox[{" f6 ?% n! S2 U3 G* |& V, Y& f; v
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",' [1 \( N/ d4 v/ b5 N+ z3 k1 V4 D
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
, c/ C; s2 k0 G9 j "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],; P" y" X3 [) B- F
"}"}], ",", 4 ~ U" }# N" F4 e* Y% _2 ^
RowBox[{"{", ! r& [- z; X' M: z* z
RowBox[{
' H/ f5 b' t# F! Q( a. v "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8"," a" v$ [3 Z6 |# z; z
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
! V: V2 ~2 g/ H- ~0 u8 g1 g* W& E "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
4 E/ y* E3 c' `- o "}"}], ",",
3 i& B$ u5 q$ ^ RowBox[{"{", ) |- F7 o! K( O' A+ U! {* w8 l
RowBox[{
8 }* p9 E$ V" ~$ H7 ]1 N0 W "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",/ N/ `' G4 D1 j6 t
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", / [, a+ ?. s* Y) }/ Q" y
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],* H% J+ \1 h3 j/ A$ K
"}"}], ",",
, Q5 C( Z+ Y5 {1 b RowBox[{"{",
4 } R2 @6 [* |9 @; S' x3 z RowBox[{
+ F5 _6 J6 G9 ?9 X! V% j "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",) o t, w3 s/ |) I0 J" t3 \
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
6 V; q- z2 C4 D7 |$ j" X2 d9 H1 b "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
5 y" K+ G9 P8 ?# e2 l& j; C L "}"}], ",",
: S# z* i2 w' O0 s5 R RowBox[{"{", 5 ?+ k' F* y6 ~2 ?8 V2 g* q
RowBox[{
* k; ~- n# J6 D7 C+ j# I "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",$ u, |% g9 G7 H( [3 w
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", " ` L, H9 q" y9 F5 c* p: y
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],5 ^6 y( z y( p1 E
"}"}], ",",
, i) F& u+ _1 Q' @) ]$ N2 } RowBox[{"{",
5 q( ^7 N( u0 ]# j$ ~3 m1 u RowBox[{5 L# J, C. u% q* `
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",# z8 Z% L. q9 H( e+ Y4 W
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", " S1 b* X8 m& Z
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
3 z* C2 R2 S C9 J5 } "}"}], ",", / A# h; Q1 T9 J( `* B: d
RowBox[{"{", 8 {& I9 H, H* s5 |
RowBox[{
9 f) n5 b7 v* x3 j6 ~7 r "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
) j3 {& r v( L% j9 ` } ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
4 {% Q; G3 P; X9 `/ g; S "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],7 ~9 p; z' u' z- {9 C/ T( g8 x
"}"}], ",", $ I/ d5 C4 @* _" K0 W
RowBox[{"{", 4 K+ m1 T. S6 L6 x1 W
RowBox[{9 X, D P/ J& Y- k; D0 ~
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
; @5 r: ^" t" P t# c# m, n ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
& l* G% U( d' u2 [: t$ X "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],+ l" U% o6 U( k+ C3 f6 X
"}"}], ",", - V# `9 J5 t! n# q, i1 A3 |
RowBox[{"{",
+ e: g2 l4 B; q2 I5 s+ h* k RowBox[{
$ w5 `8 U1 t: i ]: I. Z& Q "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
& M/ C$ j# c H' F6 S5 e" j* Y9 } ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", : @1 {. j+ ?$ b4 v. U+ |
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}], o4 c+ k3 E6 k* v7 L$ S) r; P
"}"}], ",", ! `5 q/ N: u( W' r
RowBox[{"{",
# d) d" ?% ]+ M) W! P3 w RowBox[{
- X" R4 J6 T( y5 {7 M4 T9 C7 Q "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",* X/ q. u3 }' f" m6 e
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", " y1 A2 [4 L: w; K
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],3 O0 r- r( k6 g
"}"}], ",",
9 X Q9 K- M0 {# j' ^+ B" d RowBox[{"{", / D: U% m1 v& Q- ?: r# P
RowBox[{
1 F+ } f, U" a( E1 C "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
, G# h0 l" f9 D# H ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 9 {* t- @ t- S+ {, k
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
9 m- N( r% h2 c" M "}"}], ",", 9 v6 X5 J E8 D/ ~9 D
RowBox[{"{", & V( Y( E( h7 d9 q- `
RowBox[{
: p9 U; ~* D' u( m" H6 W: U "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",$ |0 n7 r: ~7 r3 j+ f, c2 j
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 4 B+ ]$ l9 X* T$ ]
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
5 F/ w4 T/ ^) m/ g "}"}], ",", 0 }) h$ }/ v8 ]3 ]1 Y
RowBox[{"{",
( n9 S" h; b$ {# O RowBox[{+ ~9 ^( T6 @" R
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",7 T" S. d2 K, t: r( F$ L
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
8 p" W0 s) _3 i$ U "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],- O; X, K' \. Z2 E/ N0 c$ a
"}"}], ",", / N7 D0 B1 y0 W9 O
RowBox[{"{", & T# }, i( ~5 N1 c
RowBox[{
0 d4 i, K: d/ z "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",$ J p& ?4 u; {: p" b
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 7 ~& E0 P7 Q6 B
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
: w( J# D3 \: I% {( }8 H3 I/ k" v "}"}], ",",
, |6 |7 w, J1 d$ _$ g4 U RowBox[{"{",
; W2 \+ R% O, Y! r RowBox[{ r! w4 n3 R8 S0 v1 f
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8"," l5 e h2 s. v# n
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 6 w, I: A' F2 t2 M5 A# Q2 P1 v* E. h
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],: }+ @/ p }, X2 [8 i7 @
"}"}], ",",
& u% ]& u+ f& h ` RowBox[{"{", ' U7 X# _! U4 l; y' \; l
RowBox[{
: v" q4 O) D; B" }- }7 y, d "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",+ |+ _; {6 c7 h
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
/ M H# [; S w "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],' w" {- _7 N2 W) `, b
"}"}], ",",
! `; E* D6 w2 u: N# X: { RowBox[{"{", 7 R0 ^5 v* r, b7 x
RowBox[{
o5 k" \0 _8 a9 N6 Y% U: {9 N8 c$ P "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",! f5 Z" M$ m6 o1 J
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
7 U1 `/ o$ ], b0 r3 C, x+ s "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
& \1 O5 g* w/ [/ S "}"}], ",",
$ b3 E: V& `3 \% A T) ^6 \ RowBox[{"{",
+ @/ U+ [8 D/ u- U' f& \1 N4 O RowBox[{+ U. N1 F9 l; e; ~( k7 X; k
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
7 a( Z0 u0 k3 \8 d ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
: g1 n* E. K; l, \& s: d "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
- k; ^( S1 T9 Z4 T' V# E; p' j6 w( T "}"}], ",", - c7 {. K1 R8 |( v0 s
RowBox[{"{",
5 t; t* O; W/ y+ n: `, C+ m RowBox[{
# z, }/ E; Z! V: l4 {9 M "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",5 c6 ?# s+ ^* V
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
8 D& ^( k7 f' r7 k* r8 E: G! u "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],/ j. I& A! W* r, w- d. L
"}"}], ",",
9 D7 }6 z7 }# a9 J1 s6 ~" p RowBox[{"{",
0 s- q% R7 F5 w% G RowBox[{5 [# y! V2 u$ H( |0 Z7 R) e% t
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",* x8 _5 ?9 L7 k
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 3 J0 }) P. C7 I& _; z
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],2 p( Q0 t8 \/ A) E
"}"}], ",",
& D. w& u4 E2 U+ M. v RowBox[{"{",
4 ~# i- C" L) [# t4 f RowBox[{
3 Q" S2 t+ t2 ] "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8"," n& ?- O5 b& d- Y! d! F# z; n
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
% d' R1 q1 U' a4 v "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
' I& @2 d- U5 P% ~4 R% i "}"}], ",", 3 t1 p, E _1 p0 m9 u8 N
RowBox[{"{", 0 {- X* `6 ~% |
RowBox[{; T; v6 d7 A: s2 U, n
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",# W( t. `& m) u9 N: k6 |8 U
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
" r( o! {4 b1 F9 ]. C7 r "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],3 }9 v1 w. _" o5 c$ l: `2 h/ l
"}"}], ",",
9 _$ }' Z- ^5 W" @& N* k RowBox[{"{",
6 I/ J# Z0 ~3 ~# G5 M8 ^ RowBox[{$ b% v% ^5 E5 k6 {
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",1 t% Y0 }% ?( r* t, N- r7 L
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 7 } x7 B! y2 g0 r& ?- b ]8 A
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],$ z) K# f7 B' D4 L0 P/ X
"}"}], ",", * L' k4 t `+ X8 M+ X
RowBox[{"{",
3 x4 I8 H$ I3 W7 r RowBox[{
3 d* G7 `2 B' o( p; c "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",) b/ D* y; D$ `& L# C& u
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", ! V7 [& z G4 q4 R; ?: q
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],3 M$ S0 J$ v" H, f% T- }1 U L
"}"}], ",", 0 l( B' O: q9 ?) H$ M& c
RowBox[{"{", & `& ^- z2 k- j1 v# \6 a
RowBox[{
% h6 ~* V# V3 \3 s8 L! T4 R. L+ ^ "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
0 u1 d2 [: M* R" G s) y7 ` ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 4 e k/ U9 T4 r7 d: g
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
- L; W8 Y7 T& T O1 c3 u "}"}], ",",
5 ?/ |3 J& M- U RowBox[{"{",
9 D/ S& u# a# S& q7 H3 g) k RowBox[{
B' B/ s2 S; A "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",1 h' u; X+ g1 v5 _
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
6 [: f+ [$ p6 r! h1 v9 n "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],) ^4 t! [8 N( G5 n" d
"}"}], ",", ( }" ^) e3 o2 W4 j
RowBox[{"{", 0 z/ W" V' R v; [8 B
RowBox[{
: Z1 V: B }! P. Z& a) T2 q "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",. Q5 I4 y" D. ~8 ]
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", ; g# w, D9 B9 m7 F
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],, q6 Q8 a9 A3 V( K: W& \* S
"}"}], ",", : G6 P: B& c+ S" b. w) @2 ^* s- m# s
RowBox[{"{",
# `/ }3 ~8 N% t9 @ RowBox[{3 _2 i5 [% P5 M: O
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",% A' H& s% d% f9 D( d
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
9 J9 I( u! B9 ~. d/ t% t+ Y "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
& h! _3 N( M2 d' n% X "}"}], ",",
. U6 l/ \6 a% @ RowBox[{"{",
{9 q9 _( u4 }. b0 P, U RowBox[{3 T) [. O6 @* k5 z! B' w& J
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",! L) K; {+ i9 K
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 6 P% g4 O* w1 }$ Q/ V/ E+ L
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],' @( y" _& f6 m4 O
"}"}], ",",
0 [5 T- q6 p" L. j3 s6 K7 b RowBox[{"{",
7 |; }! H2 o8 D RowBox[{
5 T' d/ w' D& w: I9 R "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
, c! `; |. k& L# O4 m ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 0 D0 Q2 i, n8 B& y; x
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
" s6 s: e- r0 h* \. b4 ] "}"}], ",", ( x0 m$ d; r a% A
RowBox[{"{", 0 E9 M; k' W" B& A1 P7 {5 _' l' S
RowBox[{9 i k, W7 T3 c6 {
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",$ L' n4 i3 W8 x- R5 }7 o
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", . C6 ^. U" z( \
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
- P: |% m- @1 N. v5 ~ "}"}], ",",
1 R& }# O t' {( V! e/ L5 r RowBox[{"{", 1 u( o0 p p0 V# f
RowBox[{: X+ |! l& V9 T6 a7 x
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",/ ^2 S) \+ S, P; T$ j$ H9 D
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
. E1 {+ E6 E& B: o/ U. ] "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],' I$ R' C8 Z& O6 b
"}"}], ",",
1 [5 a1 c) m/ b. L RowBox[{"{",
# U8 d3 O9 A0 n RowBox[{
, \; v$ q$ o* H: ]" p% q: d3 Y( Y "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
) i' g- ~4 I" T8 ?" M ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", % l5 M( [1 j* j% X; h8 k X
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
. o! u2 m4 ]) p: C" k7 ?# ? "}"}], ",",
N- S" K0 [; g+ X0 ?% j RowBox[{"{", 7 U" u- m2 r' Q
RowBox[{* M# z v! W* {0 |
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
" m# y; N) k8 E4 R. } ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
5 }& M1 E5 d/ I$ H. X "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
. j5 w( S: X: F2 O8 ^ "}"}], ",",
5 ~2 c- [4 b) c( k2 q9 l; K; S6 Z0 u RowBox[{"{",
" Q; I/ S2 G/ X1 `$ P RowBox[{
9 n0 X% \# C2 d% I "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8"," p" H4 j' @$ G- Z3 h4 h1 {/ p" R
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", ; l Z4 I+ Z2 E. }1 g' e% G) r! }
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],2 e, F' Y8 L1 U1 b. g
"}"}], ",", ( ~7 y P/ k2 ~/ n# W2 p7 n' G5 ^
RowBox[{"{", - T$ g7 E9 `- q' ~9 `8 K4 Q
RowBox[{
9 K$ \# z; U0 x+ x% Z "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
! K+ H8 O: x* D+ G+ `2 [ ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
% E. S5 B ], [$ I1 c, |) e; L "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
8 G) K' o/ x: j4 X' V0 I7 n "}"}], ",",
( ^' o6 e8 W: T1 r) Z RowBox[{"{", / B! ]7 U9 k) G% l p \
RowBox[{$ h; T& |$ _, P& A
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",( o: D$ J. r4 q4 G- B
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
) V; t2 z5 S1 w K1 k8 a& H "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
" o8 w) e" ?5 [. f8 v "}"}], ",", l6 F& _2 @5 `) h
RowBox[{"{",
, ?( w; T- X$ s RowBox[{6 U6 |( R. D* f7 m- b
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
# f z1 J( X0 Y5 w6 c ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", * Z. T' E+ A) h& K$ h; ^
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],' K; X! j# b5 b5 }2 \
"}"}], ",",
( |. m* @' b% X/ v8 R RowBox[{"{", 2 w9 [. ], ]0 _/ ]9 c; L. n4 s6 q
RowBox[{
% p1 F, p6 d6 r9 A0 Z "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
& X% i7 S p# g6 d ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
2 J. p) f8 S R3 P3 M" ] "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
+ E* Q( t9 x k0 w "}"}], ",", \, n0 @- C' ~8 G9 I! G
RowBox[{"{", ' ^* I+ `6 l; H0 I; p
RowBox[{" r/ J0 j5 d+ `/ x1 d. a
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
' h' l' d) S( T, a, N% T ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
& f3 L& a# j) i! b6 N "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
2 _7 L+ Q1 x' z8 Q- v "}"}], ",",
" \5 k+ f# u# c7 x0 l RowBox[{"{", 2 y) _" O- b# B! a* g
RowBox[{, S7 j2 a3 m9 W6 Z
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",, F; [" D9 p' q: b; Z
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 4 h# _- G8 k: N5 G4 {1 d
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
. I, t: m: u$ F" {* m "}"}], ",", ! o" x/ \' x1 i# z
RowBox[{"{",
) }# s0 N- w+ x( p( N3 m* |% m# v RowBox[{
) B8 q2 k7 H& A, G, j( J. B "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",2 h6 q, I2 ]3 ]; N0 m r; C
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
: |. g0 U; d7 C "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
: O; r |& V; g" Q "}"}], ",", $ i7 ]% S" |6 B$ t5 v( O4 D
RowBox[{"{", ) y# _+ h* w) ]/ L5 J
RowBox[{9 O! b* f4 q' g: d( g
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
) f* W4 {* M1 `8 ~ ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 3 h2 H. X# X& k) O! X/ j6 Z
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}]," P: }+ i$ k& z$ k8 ^/ a
"}"}], ",", / e) H Y' s7 O1 I ^0 i
RowBox[{"{", , E1 m0 Q7 N9 h7 H5 n$ E+ q
RowBox[{% r, w1 L2 a7 Y/ q
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",' D0 N C7 f3 U" {- q, D8 c# ?
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
: a. r& o5 L; `# _8 u; E5 T4 B$ u "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
' p9 g5 `& Y8 S/ w/ D1 L8 ?# G "}"}], ",", 4 u0 X4 H1 b6 Q- O
RowBox[{"{",
+ x( z0 q% D2 l1 N" S RowBox[{
- u. {4 j/ P4 X u "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
2 U8 p# J' v: V7 F ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 6 Y, R$ V9 ]" u4 @& \0 }. ~
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
; J! y0 b& }+ c1 c "}"}], ",", ) n1 v3 e7 A$ ~7 h
RowBox[{"{", " x+ t6 m% O! Y+ L3 R" f
RowBox[{ \, D7 H- Z6 K+ ^; B% u
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
1 Q* f) `5 X0 _+ r6 K5 W& {* u ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", / P1 s" ?7 D& M
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
9 B: _5 m1 W6 ^* w "}"}], ",",
7 ^6 K+ ?9 {7 X; ?5 g7 h$ ]4 n RowBox[{"{", & Z0 T: C' ~2 F R- C: N3 D+ O8 Y
RowBox[{
! _1 M5 m1 C1 w9 P "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
# Z0 E" k& y: d6 F) x! E ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
, D, I; K! l" I. q% Y. r, T: R4 w, d "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
" H" ]& i- O: t! k `1 H { "}"}], ",",
" H( i7 d; z2 n5 e+ w7 B0 z% i$ ? RowBox[{"{",
# H, Q9 N- d$ m RowBox[{
- @1 F, Z# ]4 S) M "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
! o$ E% p1 I. q, T ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
( k1 I5 G, r% W& [1 E& X "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
) q3 m( j3 k! i7 t* H" r "}"}], ",", ( I! u% [- V, s, M/ x. c, V
RowBox[{"{", % X# p. m+ X) S) H7 q
RowBox[{
; W$ q5 T' a9 z' o7 A "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",% }& u# u* \! d0 N9 _* W
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", & M2 S8 r9 ?/ e8 Q _9 A: C+ w8 t' G
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
4 @; l* ~7 m- m3 @$ b "}"}], ",",
4 v0 j( D$ z. ^, R' ~& ?: e; p RowBox[{"{",
/ I' Q# L! {5 D5 Y' C8 Q ^ RowBox[{
; w( F7 c! z# T0 b; p1 W/ h! S "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
0 z; Q% p* n) p9 D/ w ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 5 K% S* w5 H- L$ k
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
& x( X6 l/ L! p5 i/ A: e3 F "}"}], ",", * _ V3 z9 E1 G2 K* f! b0 U
RowBox[{"{",
0 t: r: i: D5 ]. X RowBox[{
' ^ r X- Z. e8 M "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
2 f* u" s8 C5 ?% \' |- J u" C4 a ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
4 w: G {! Q8 ]# z' V: \' x+ O "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
$ `0 ^6 T0 N; j ?( S* I# E "}"}], ",",
* P) |6 x" r0 q4 |' ] RowBox[{"{",
. D/ I; b ~; l0 s# D6 j5 e RowBox[{5 M6 @' D1 G/ |' ~9 w' h, l
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",7 K* X- t' Q" h8 x- A# L) _
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", ) \) O1 n3 ~$ C5 h3 m2 u( }1 K
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],, `4 p: E4 W9 |7 V! L
"}"}], ",", " d3 e! g. D* [& I; e
RowBox[{"{", ( a, {. Q) l% R! g) L2 J6 A
RowBox[{- ]1 _9 _7 ?; [' R0 { z
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
4 x# p O. h% }! P( J ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", " D5 B. X, @+ a4 A' v+ m1 V
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
# f/ m Z8 y" {9 L/ m "}"}], ",", & F% L1 h" J! ~, l
RowBox[{"{", 4 _2 _2 c3 M# ~0 s- v/ j
RowBox[{
# n9 s2 X! D0 l# [ "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
& K1 {3 |# c$ O( D! x ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 8 u% L. H8 z$ o/ U1 x
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],0 e! t; @, j. [9 T p
"}"}], ",", 4 z* X6 ?& z9 n; O1 l/ z4 ?& x
RowBox[{"{", 8 j5 S/ h. i, H' o3 ~
RowBox[{
& Q+ l& Q: s5 L4 K! c3 E5 ~ "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
5 I# p" E; b8 m* R0 G7 ` ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", & c% z: {: N. R% R* h% g
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],$ N+ B/ v$ k$ L! S. g6 t5 [: m
"}"}]}], "}"}]], "Output",6 u; ^8 g* R/ m) }1 n
CellChangeTimes->{
3 j- h3 I* S6 |( V' d/ ^* r 3.577924022828125*^9, {3.577924056171875*^9, 3.577924103265625*^9}, 0 {% B5 s. Y$ a! `
3.577957579987569*^9, 3.577958891536294*^9, {3.5779619459910836`*^9,
2 e& M% M5 w* p- z5 L: R 3.5779619748823338`*^9}, 3.578012345453125*^9}]
, a3 b2 d# V' |}, Open ]],: l* o/ R6 |3 P
2 {# k' ?5 l% \9 h; ?- t) e( ICell[BoxData[4 {& t/ b! q9 M. M
RowBox[{"For", "[", # ~4 Q/ F% c+ ?6 b
RowBox[{
% p. N4 T5 V% y: d) P# w. N! N" Q RowBox[{"i", "=", "1"}], ",", , u% f( K+ m7 T$ [$ w
RowBox[{"i", "\[LessEqual]", "60"}], ",",
' b9 R2 m5 I( Z! T9 ^% o/ O RowBox[{"i", "++"}], ",",
7 e9 |# X' y4 w RowBox[{"{", "\[IndentingNewLine]",
) M$ u+ ?; z! ?8 k/ [/ S; k. `3 m RowBox[{
6 B9 ]% U! U# Q9 n7 s RowBox[{. h( P! u! Y$ d7 X* g* P! o
RowBox[{"m60n21", "[",
- e8 F/ w+ e% t. _9 D, x RowBox[{"[", " l7 l, a3 k$ U
RowBox[{"i", ",", "1"}], "]"}], "]"}], "=", % I4 [% |3 {( ?- p
RowBox[{"u1", "/.",
( p4 t/ |( Z6 R% r! M RowBox[{"{",
6 X% @. v6 C$ q' Z- E- V RowBox[{
0 Q& E1 q7 C8 K RowBox[{"x1", "->",
& e2 ~1 s9 {3 C) T RowBox[{"Data", "[",
4 M5 L9 B# t6 `$ C2 A RowBox[{"[", 6 r* H3 p h$ a7 S+ R
RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",", ) H. S5 H5 P: |+ O" a: ^' @/ g3 S# _
RowBox[{"x2", "->",
3 f, S$ R: M. o! h8 Q RowBox[{"Data", "[", $ I; o, K8 k) o( i6 p' L
RowBox[{"[", 7 h# ^6 B p+ [
RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",",
]5 P7 B' G* T$ @; h RowBox[{"x3", "->",
8 f7 B* G( k- N$ _. F; i RowBox[{"Data", "[", " p5 [4 g2 X( y' M2 X% ?
RowBox[{"[",
& x: [% l" O+ J RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",", * G; S. a, m' p' v+ N2 p
RowBox[{"x4", "->", 6 O0 L" v$ m: Z. N- m2 `8 g9 D
RowBox[{"Data", "[", / m9 Y6 j" i5 [
RowBox[{"[", 6 _. P+ k/ Z$ @' \8 `8 u
RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",", _0 C! h, H3 Y, b2 h
RowBox[{"x5", "->", 4 A$ t. D/ w! D
RowBox[{"Data", "[",
, B! W$ v, f- n% q5 I RowBox[{"[",
% i* U% u# g1 g! [( i( @& L- Y, w RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",", / @: ^# }/ H2 L' d3 v1 l6 b) P' }
RowBox[{"x6", "->",
; d/ ? b! q- O( u! X9 \. g" m RowBox[{"Data", "[", # m w) P7 T% d4 S" O+ ]5 T' ]
RowBox[{"[",
- X8 B( G( e6 B, }& Z RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",",
, L% b" c# }+ f" c: |+ t8 r6 D5 c RowBox[{"x7", "->",
4 c) b- i6 m% B0 U3 q RowBox[{"Data", "[",
8 K$ N* B+ J( b& x7 [& i k' ~ RowBox[{"[",
, F Z9 n( Q2 ~) w! M RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",",
) _) ]' u8 r! V4 X RowBox[{"x8", "->",
( d: {3 @7 @, B# ^) S RowBox[{"Data", "[",
T ?# Q' I$ q6 N$ a/ a3 A RowBox[{"[", 4 y+ r4 ]2 |- F G3 E; `
RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",", ! r# K& H! x* F: w8 [2 b
RowBox[{"x9", "->", - n$ E% u+ s" i) W8 v) h
RowBox[{"Data", "[",
* ]8 m- f' M$ s9 [4 M RowBox[{"[", $ j7 ?6 m* w6 n/ S' s6 r
RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";", 0 G% z! i& M4 S
"\[IndentingNewLine]", 1 g5 ~8 Y9 t+ i2 ?
RowBox[{8 I. E* B, E2 ?" C! w' ~1 P( V2 e; k
RowBox[{"m60n21", "[", A* O, o% a3 Y0 F' m# o# w" L
RowBox[{"[",
8 q3 y8 r1 t; b! P# M RowBox[{"i", ",", "2"}], "]"}], "]"}], "=",
2 E% D% u8 f2 o* H7 i3 q RowBox[{"u2", "/.",
9 q5 K* z0 s5 x( `8 x RowBox[{"{", # a* O% ^( [0 I7 W% j! ~
RowBox[{* n! c0 G+ h# S. u$ z; H
RowBox[{"x1", "->", & E3 }/ Y9 c0 B0 Y/ O% w
RowBox[{"Data", "[", " x; f0 [& B! }; Z' f2 o- u
RowBox[{"[", ; J, {( v0 e# }
RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",", 8 M5 G* P7 W9 i$ K' N8 X5 }9 D, }5 D
RowBox[{"x2", "->", * w* n9 B: {6 V& i. L( {3 @( u( U
RowBox[{"Data", "[", $ O0 l4 k2 a* @+ n* ~, s. x, a
RowBox[{"[", ; O8 x/ U9 G; P) y
RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",", * x E* Q4 X4 L/ V3 g) }
RowBox[{"x3", "->", 8 T% J) g4 a5 t& J+ W' \6 D! P
RowBox[{"Data", "[",
7 [ D5 T2 F9 Q* u1 f RowBox[{"[",
" k) U( a8 g" J9 S RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",",
4 |3 x8 N& c( k* z% M2 T$ C RowBox[{"x4", "->",
! h2 F% c/ G e9 T3 V$ T3 p: M RowBox[{"Data", "[",
* n( s1 ^- h' Q$ S RowBox[{"[",
2 \. Y! @0 J: D G: L RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",",
- ?" ~- n% ~, e; r8 j RowBox[{"x5", "->",
& S' b/ ?2 P: L! A v RowBox[{"Data", "[",
1 W i# @( h: o# u- J RowBox[{"[",
2 p# L& G: S( o+ w RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",", # M' d) v" K1 N; n4 i" o' c* n0 p: ^
RowBox[{"x6", "->",
: ?8 }" e E8 a0 s! X( z+ G% K6 I RowBox[{"Data", "[",
% N, ~, N- @3 f$ K1 ?+ i- w9 ]& | RowBox[{"[",
3 I) A* }8 C2 c RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",", 3 N. T" R+ {! h( ~. k: Z
RowBox[{"x7", "->", % d* K3 q% k/ B, q) g4 D$ h$ A4 D
RowBox[{"Data", "[",
1 F( J, u, `3 {. g7 N( v RowBox[{"[",
|2 S6 A6 b4 v) _4 b- Z RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",", / h H$ J+ s7 I1 ]- K4 W
RowBox[{"x8", "->", . n* Z) B2 j1 P: N/ j* L" u f
RowBox[{"Data", "[",
5 X3 p; m" c' U' S; ^8 s0 s1 k& q7 F RowBox[{"[",
! q: U8 {* p, n4 |; y7 Y RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",", - C/ j1 S6 o3 J7 [
RowBox[{"x9", "->",
5 G7 O# @# @, ]6 {1 Q, x d RowBox[{"Data", "[", 4 S8 g3 B: P# \( |
RowBox[{"[", * g- y- B3 z9 v* U
RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";", $ w! ~/ |' R( h- G( G9 ~/ y+ [
"\[IndentingNewLine]", * g% r! q$ e( C( s. c' J
RowBox[{# D: K$ G i9 u( a' B1 P. w
RowBox[{"m60n21", "[",
+ W! K; B& A8 ^ RowBox[{"[", + {/ T7 I4 U9 _8 A8 p( j
RowBox[{"i", ",", "3"}], "]"}], "]"}], "=", % M: p g4 a+ X2 g( S. B
RowBox[{"u3", "/.", / r$ |6 a P# r1 W5 B# z
RowBox[{"{", ]7 k+ F7 ?3 W# @
RowBox[{
; I1 D1 y$ O. y( E( A RowBox[{"x1", "->", * q9 u& L. x2 ]( w! R. J6 ~8 `
RowBox[{"Data", "[", + d3 T4 o" B1 c" t8 B
RowBox[{"[",
t+ ^. }; C% I' O. ]; w RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",",
! W9 [) M. m/ {; H; C RowBox[{"x2", "->",
% O e6 ^ C, j* r. w RowBox[{"Data", "[", 7 i/ F* K! L5 l! z
RowBox[{"[", 9 a* f+ }& T7 @7 p+ _7 S& T
RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",", " q; m' @3 y6 U. ^/ K% K& V0 E k' v
RowBox[{"x3", "->", . q4 d/ a7 X5 K9 M5 Z6 W; y* W
RowBox[{"Data", "[", . t0 Y1 h7 e! [2 u: F( X
RowBox[{"[",
6 C/ |( G; M) o: i+ k' c* y. A RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",", ' i5 S9 M4 h8 E7 h
RowBox[{"x4", "->",
% K) d5 k% Y( e3 Y4 h RowBox[{"Data", "[",
. _& E2 L, F+ {* @9 }% z RowBox[{"[",
& s" l0 C! Z9 M% t; S" A. K1 d RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",",
3 t+ q P! b) ~ RowBox[{"x5", "->",
/ V5 F' w2 o% D1 Z% `4 } RowBox[{"Data", "[", $ x# D$ ]" i! Q5 B$ V/ u7 Y
RowBox[{"[", 8 Y. W7 M$ C. \$ P3 L9 H+ {
RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",", ! Q% ^! {! h3 C. w: d' _7 h
RowBox[{"x6", "->",
2 G, j; M6 {1 P3 U3 @; C RowBox[{"Data", "[",
7 d! ^4 o& N5 s RowBox[{"[",
5 T) S2 `* l8 l) X$ b; `' { RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",", , y. c g- b% c$ r& [
RowBox[{"x7", "->",
) T/ ?/ p5 N, w, ~3 z" z, ? RowBox[{"Data", "[",
D q5 c, w5 C+ w4 F! L( b RowBox[{"[",
4 Q: B, t" I6 p8 L RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",",
9 f" p; h `2 i. J0 j& [ RowBox[{"x8", "->", ! T. e' s- F" y0 \# h# U
RowBox[{"Data", "[", % I# C$ Q* q h+ C. J" A
RowBox[{"[",
/ B% }8 j( \& O- ^ RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",", ! e- G. T% {! V) ]
RowBox[{"x9", "->",
( V" _! G" z r! t0 ? RowBox[{"Data", "[",
; ^6 `& Q$ g& w* Q" D5 @ RowBox[{"[",
; n, e* z- Y6 X, T, \ RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";", 2 t- Z# W, _2 q0 x
"\[IndentingNewLine]",
" w2 o! }' V& P# G( @0 M) p RowBox[{
6 z% W0 A1 Y! ^$ i) k1 S+ c RowBox[{"m60n21", "[", 2 q, @/ D) z5 e# C" f! B
RowBox[{"[",
( V3 T2 @8 }1 u0 s c RowBox[{"i", ",", "4"}], "]"}], "]"}], "=",
0 }9 W" q/ ~7 F, J1 S RowBox[{"u4", "/.", " m- _' H+ E; r+ r. p7 V ~# ?* O! [
RowBox[{"{", : `# x# s H) ^ Y( l8 d; \4 V. i' \
RowBox[{: ~9 g! Z6 f' F$ M
RowBox[{"x1", "->",
- R/ L7 ~' I+ N+ ] RowBox[{"Data", "[",
6 W3 Z# v$ j% f b3 E! o3 l RowBox[{"[",
) b1 ?, B5 ]! T RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",",
! w2 f9 X3 h$ u7 L RowBox[{"x2", "->",
, D6 v# |/ _$ x' [ RowBox[{"Data", "[", \% V% i8 W/ J" P5 U% ~$ [' L
RowBox[{"[", 6 E' n% l; m5 e" s* }
RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",", - r$ U E5 Q" V* N `
RowBox[{"x3", "->", % U2 ~6 I: t* I% e& D
RowBox[{"Data", "[",
, v3 F1 \; ~: e5 k RowBox[{"[",
) O1 b2 l/ A" L$ W1 | RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",", ( k4 X, n [2 {& m; Q' Y( Y+ U
RowBox[{"x4", "->", 4 {& r! u# Z4 L7 D0 T1 _
RowBox[{"Data", "[",
4 X5 {/ w) f( U" R1 u5 i RowBox[{"[", 2 I6 @9 T8 `! i* o
RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",",
- X* f( a6 Y7 T. Z6 O RowBox[{"x5", "->", 3 {( b: t3 ~) t" R( |- ` }: u
RowBox[{"Data", "[",
2 j/ o' X( o, l3 A4 b RowBox[{"[",
, z% K) [$ p! B& K L$ D6 _ RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",", ' E3 @8 X& u; c& [
RowBox[{"x6", "->", - u* {3 t2 O5 a/ P* @7 n
RowBox[{"Data", "[", + e! P. t: w: \4 h! G1 p- u$ V
RowBox[{"[", + O* O% ^/ f) B/ }& J& M
RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",",
6 t1 A6 u& K- f0 E6 u! v1 O RowBox[{"x7", "->",
9 c) S% W0 v+ V0 k1 z, c0 t RowBox[{"Data", "[",
, z: W! ]) B% X2 y; y, [- v RowBox[{"[",
: E' `% r! W' d# [ RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",", % Z' |6 D3 n- S
RowBox[{"x8", "->", ( J# e) d8 c6 \+ {, L# ^; ^+ Q( l6 a6 F
RowBox[{"Data", "[",
/ g# f- @% Z3 D& S% c; S RowBox[{"[",
5 r: k& Y+ v, w: [. i5 ^' Q RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",", T+ h# _* g' ?
RowBox[{"x9", "->",
" p# @. R e! C% [# I! Z9 b RowBox[{"Data", "[",
6 B- ]% S6 m, t" }6 H: a# |/ }% p RowBox[{"[", ; l0 w! _0 e) O" J, V) j
RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";", ; L% [6 \, w- d' D% \* K
"\[IndentingNewLine]",
' ] i( b: @8 r; F* P A) c RowBox[{3 R& u4 i% u" E, E3 R5 i
RowBox[{"m60n21", "[",
( j: R! N6 O; l8 T& l, Z" x RowBox[{"[",
6 [& P9 V) e) M. V3 A) E( t RowBox[{"i", ",", "5"}], "]"}], "]"}], "=",
! }; c) ]( E" ?2 U) ]8 n9 Z$ o RowBox[{"u5", "/.", / Q8 Q" w$ b; A% s( U9 t' ]
RowBox[{"{", . ~2 u9 q# v" e3 }) m. X
RowBox[{
# g2 k1 n- Y* j' B r" @- }' n RowBox[{"x1", "->", % N, d- O7 v* i. h: c& e
RowBox[{"Data", "[",
) O5 M4 c; ]" c- I3 D5 { RowBox[{"[",
0 r( `" S$ E5 L" R4 u: q4 J1 A, w RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",",
! D1 P1 e$ m& A$ O RowBox[{"x2", "->",
* c% ?3 i4 V* G# x& Q; w7 s RowBox[{"Data", "[", , [/ j" @ g1 s9 S9 F. _8 t0 F
RowBox[{"[",
) ]1 {& m) S4 G: ?$ G RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",",
7 V6 U7 k/ W' C" |% t6 ~ RowBox[{"x3", "->", 0 e" n" g7 N Y
RowBox[{"Data", "[",
8 N! V3 v- z M3 E5 {$ v+ P' n RowBox[{"[", . w9 g( [: c+ _
RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",", / H. E; T) |' Y. a# Z! G* A- b
RowBox[{"x4", "->", - o, U/ t- j( ^
RowBox[{"Data", "[",
/ C0 t0 } ?4 f3 j' ] RowBox[{"[",
0 Z2 |0 y: h5 }; k$ q4 X* o' l RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",", 6 {1 q5 h' P, e: Q7 x( v
RowBox[{"x5", "->",
1 o0 ^8 P d3 D& C RowBox[{"Data", "[",
, G5 p" I A% t: j4 m RowBox[{"[", ' w2 M9 K+ r: ^% I+ r1 Y# ?
RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",",
; ^. _4 h6 v9 M RowBox[{"x6", "->", . [/ G' s; ?: d9 I9 G3 L) R0 G% U
RowBox[{"Data", "[",
" z+ N! L! q+ d: Q, l1 ~ RowBox[{"[", C( U2 L* t2 s
RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",",
5 {$ ]+ ~! W$ a! N! G* D! k RowBox[{"x7", "->",
8 a2 G& D/ I7 P4 t5 [. L RowBox[{"Data", "[",
; ?; ]# F$ J9 L9 ]7 R: b RowBox[{"[", * ]3 Z( V/ p3 S: Z* Q7 a
RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",",
' H! ]& @' e V' J RowBox[{"x8", "->",
- {7 D/ `9 ?4 A RowBox[{"Data", "[",
6 J! p. `9 j; k9 ~ RowBox[{"[",
) c) Y& O" J; v0 V% w8 h9 ?+ W RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",", " L! b$ V/ H& F+ |6 A- V3 j
RowBox[{"x9", "->",
7 p9 M) s& w9 Q/ O" o. L RowBox[{"Data", "[",
2 ]4 t. N9 W: U RowBox[{"[",
9 n. n0 J8 L4 y5 \& f RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";",
, I1 f8 D9 v( }% m "\[IndentingNewLine]",
+ t( _/ R8 U+ A2 ^ RowBox[{# n( m: a1 i8 m
RowBox[{"m60n21", "[", ) X1 O. M6 a, n& S
RowBox[{"[", " ?$ G/ ?. `2 ^) t/ |0 \ x' ^' R
RowBox[{"i", ",", "6"}], "]"}], "]"}], "=", q' l% Z! h$ v* `0 x# V
RowBox[{"u6", "/.",
8 s& Q% V5 r& X( r9 y: ? RowBox[{"{", L& d4 E3 `3 s5 Y2 |/ e
RowBox[{' x4 \, `, e/ B, d9 Z1 s
RowBox[{"x1", "->",
1 u% c2 {! z2 n1 x" W% ?( y RowBox[{"Data", "[", 9 g4 {3 N% K& C0 I8 P5 q
RowBox[{"[", 3 [4 E& f8 a: q' `# e% l
RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",",
( N' }& S$ q8 N RowBox[{"x2", "->",
5 ^# Z2 t2 y2 g1 e$ m RowBox[{"Data", "[", . ^. ?: M2 T9 Z* c, | b9 ?- z
RowBox[{"[", 6 q; j8 s2 m7 y5 ~% W7 x2 x
RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",", ( r! F4 ?! E3 A" N [
RowBox[{"x3", "->", A' O6 A' L7 J6 I
RowBox[{"Data", "[",
- w2 c4 F; x/ h3 c0 e4 d' m8 H RowBox[{"[", 3 E3 s, U$ y+ M, {' |
RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",",
% N6 P. r5 o$ f0 c1 Q RowBox[{"x4", "->",
6 Y' o4 b" {& r" g RowBox[{"Data", "[",
3 K; a/ a# L! u% j* @4 ?. p RowBox[{"[",
8 \9 E7 ?' G2 x" J, X RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",",
+ P: ^7 i9 T& \7 [ RowBox[{"x5", "->",
; m7 r, _) t) E' ?, I0 n9 f. t RowBox[{"Data", "[", $ `" G- ^( ^) W8 j: _
RowBox[{"[", / d; t' W# j3 ~9 ?- e4 [6 \: R' q: z R
RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",", 8 z5 n+ T. u( y6 U" Z B8 a0 e
RowBox[{"x6", "->",
0 t3 Q- @* K7 K, `" _5 F RowBox[{"Data", "[",
8 F8 ]: ^, g! `5 I4 t+ [8 i1 n RowBox[{"[", 1 l9 q8 c( w/ [" B7 @1 R+ z
RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",", 5 e" ?1 c' {- i) g, t% ~: j0 |
RowBox[{"x7", "->",
3 w8 r3 I. w( s0 v8 R) A RowBox[{"Data", "[",
% d3 m$ }# N; [" l# v' e ? RowBox[{"[",
% V, B1 j( X1 r' }) P- N9 K& | RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",",
: S% [& u8 I( K- R* D! ~$ a2 L8 A RowBox[{"x8", "->",
& p0 `& n$ v5 b. r# P' G RowBox[{"Data", "[",
: H3 d6 F# E! l4 V3 ^7 Y/ J RowBox[{"[", . q7 V. o, E6 |; J
RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",",
& ]% E, y& O: u) d6 D* W RowBox[{"x9", "->", . e$ [ n+ z' ]7 {
RowBox[{"Data", "[", * Q' I1 {9 r+ G: V3 }4 w
RowBox[{"[",
) m* t% u4 }% Q- O6 U' r+ ]& Y' g RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";", " u; v6 f$ e% H# M8 ~5 z# m
"\[IndentingNewLine]", $ @: G( g. v+ x/ M, R# R
RowBox[{
& y5 x7 y% c5 e- j. n3 B RowBox[{"m60n21", "[",
1 | R4 M+ {# }* |- b- U RowBox[{"[",
/ J6 L; a' W0 W! G$ u RowBox[{"i", ",", "7"}], "]"}], "]"}], "=",
* c/ P7 P% |+ M RowBox[{"u7", "/.",
) G9 N3 G- P4 F9 H RowBox[{"{", - p( R. p6 r7 I- ^5 M( k
RowBox[{+ B5 J* l5 q4 K: G4 U4 i
RowBox[{"x1", "->",
: E, P4 n& j( Y0 v& v7 l* M" r RowBox[{"Data", "[",
# R, X* d, P! O2 i RowBox[{"[", 2 c& E) c4 X% B3 J+ Y
RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",",
" R7 _& R, G3 K RowBox[{"x2", "->", / R* r/ u+ w8 E- Z
RowBox[{"Data", "[",
) H2 T4 _( ]+ E: z! ^% @ RowBox[{"[",
& V; N% a" k' C9 \3 g% c' e3 O" { RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",",
. ~8 B* a* v0 ^% C8 ?" ^ RowBox[{"x3", "->", 6 U! }- O/ r- u) M4 i
RowBox[{"Data", "[", 9 v9 N1 W& o/ H8 D. B
RowBox[{"[",
- }8 T* P" n! u RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",",
. l0 ^/ P* c; y* ]. s9 Q. W9 m RowBox[{"x4", "->",
, V* \: h) {' a$ z RowBox[{"Data", "[", 0 t' E3 Y M9 V" H- I
RowBox[{"[", ) Y: J2 f: q6 [/ c- t
RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",", # ~; Q& \5 M) h8 J' A: Z/ F' [
RowBox[{"x5", "->", # j+ Y4 g1 O" s5 u3 B
RowBox[{"Data", "[",
- v! h" y \6 g, ~ RowBox[{"[", ! z7 v& R% j' I. w/ N" z
RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",",
( K4 l: C7 T, ~ i RowBox[{"x6", "->", v) \3 a: d, y" s" r0 A: s
RowBox[{"Data", "[",
; O* F3 w, S9 f9 N" L/ m RowBox[{"[",
' Z8 L0 S, \/ Y5 Y/ Y RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",", 8 ^+ I9 ~8 H; f
RowBox[{"x7", "->",
: }' S: v; h' ^# H RowBox[{"Data", "[",
% O/ y# F. C0 N7 E+ C RowBox[{"[", 4 R9 n0 q( _4 N, P6 v
RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",", ' g* W% B/ d/ R. z
RowBox[{"x8", "->",
/ B2 b P$ y1 p. r RowBox[{"Data", "[", 3 ^( b' a! O. C8 ]- b7 K# U& W1 O
RowBox[{"[", * ?0 t! C& u9 t" y& `
RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",",
5 V. K& ?2 s4 I6 H) i RowBox[{"x9", "->",
# z/ c G6 a. ^" b( R. v/ a( g: ~1 C' R RowBox[{"Data", "[", # L! P! ]( M: P$ i8 c
RowBox[{"[",
# M; G9 G3 e$ X* O RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";", : m$ O0 H1 b: j- @+ N
"\[IndentingNewLine]",
$ F; f4 j) H5 o( R RowBox[{
# ?1 g4 C$ m0 O* m! I j' v RowBox[{"m60n21", "[", 8 I; f/ S+ X5 I" F/ @
RowBox[{"[",
: m( R8 Y2 s% a- y5 L' [; H% f RowBox[{"i", ",", "8"}], "]"}], "]"}], "=", 2 u, b( [7 w1 i2 g
RowBox[{"u8", "/.",
! K- ?4 s. X) o5 S) g RowBox[{"{",
3 E$ b0 \5 l& c' ~ Q( \ RowBox[{
7 x/ k" u i7 w( j b. \ RowBox[{"x1", "->",
% R. A* i9 A! ^3 ?' w3 ]' q RowBox[{"Data", "[", k& l: f% u2 d( R
RowBox[{"[",
, I% n- ]' r: Q( x& s RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",",
2 g7 L; u. ]. K6 N5 y RowBox[{"x2", "->", . N5 F! ^1 l. }
RowBox[{"Data", "[", 0 q! k0 Z/ H" m# t h
RowBox[{"[",
5 w. h# q& T' v/ A6 n$ L- Y RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",",
+ t$ {. O: B l1 R6 J4 V( h) T RowBox[{"x3", "->", & H# X# z' O m. t( |" o$ L
RowBox[{"Data", "[",
) q' ]6 H: e( n4 [: p1 O1 x RowBox[{"[", ) F. e3 F% N8 U& u
RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",",
# `' |8 _3 P/ d5 v* N' k7 K RowBox[{"x4", "->", # [0 [* A1 a [% N, _. l! U
RowBox[{"Data", "[", : ]) U% d! M2 h& l A
RowBox[{"[",
" p3 W9 r3 V, U9 V# `, t RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",", / C$ B9 D+ A! P2 H; x% s8 d
RowBox[{"x5", "->", 5 f' Z$ E( O8 y
RowBox[{"Data", "[",
6 E5 H, }. F3 s/ @ RowBox[{"[", 4 Z6 w# Z0 y' a- e
RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",",
2 f6 [0 \* G5 B1 k4 L RowBox[{"x6", "->", ) T2 W2 f0 p) e& }* M# n# s) Z7 ~
RowBox[{"Data", "[",
7 c1 U% x$ s( x' d RowBox[{"[", 6 P. Q: Q7 _: t j" }, F
RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",",
- U% m; G# c/ t: N9 a# I, ]+ H RowBox[{"x7", "->", 3 D' }$ x* v" j* X8 t
RowBox[{"Data", "[", ' U+ M5 b/ O2 R' j9 E; y
RowBox[{"[", # v+ A- y E5 _% c. y
RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",",
0 e( \) t$ K( V4 p RowBox[{"x8", "->",
P. Z. |) F2 ~# q( u" C/ R. k RowBox[{"Data", "[",
& D* H7 g" y2 y8 U6 |' V# X1 Z RowBox[{"[",
; Q" |8 ~: B" M6 c+ U9 ?5 z/ O! X RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",", : G+ L% t ^, u3 ~9 Z1 T9 m4 j
RowBox[{"x9", "->", % S1 k& `# q8 C/ \0 p
RowBox[{"Data", "[",
7 f% Q" r. o% i6 m% j/ t2 j" T( y RowBox[{"[",
4 b" S" S+ n# \4 G RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";", . I, R' X, C& n# \* `
"\[IndentingNewLine]", 3 }8 t" @: N) r3 K3 m. A
RowBox[{: i9 Q9 L. V$ @0 \" o1 A" L5 \
RowBox[{"m60n21", "[", ( S3 B% l5 _: {# b
RowBox[{"[", 3 J9 [- H3 @) m* x! L
RowBox[{"i", ",", "9"}], "]"}], "]"}], "=", " E3 H6 Z, q- \1 [- ]+ e
RowBox[{"u9", "/.",
& Q& _3 R4 ~; G) i& f$ e RowBox[{"{", 6 }& J) A1 t7 q6 N% \& O, X# O
RowBox[{# z, C( z) ?3 @7 ^
RowBox[{"x1", "->",
7 a4 H% X- f2 _ RowBox[{"Data", "[", ) n) G0 L; g) {
RowBox[{"[", 9 @6 L9 l2 T. c3 X0 {- U
RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",", - [$ W2 p' ]: j' V
RowBox[{"x2", "->", 3 L) S$ K( d# Q/ N3 H& m" Q
RowBox[{"Data", "[",
. [) m! S3 V$ `7 | RowBox[{"[",
. f4 v" s4 h3 j# m2 d* E$ D, S0 n RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",", ( s+ A/ v) A3 M" y5 B) }: C* ~" d
RowBox[{"x3", "->",
5 B! ^: \! h0 ]1 X- ` RowBox[{"Data", "[",
- ?+ }0 F) e: j) e RowBox[{"[",
7 z3 s8 g% u/ o! N( L- d- L RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",", . V- E* |+ [0 j" P* l; h5 S
RowBox[{"x4", "->", 2 @+ b1 _! @3 u) ?2 m5 v: o8 ~4 C1 _( }) |
RowBox[{"Data", "[",
4 D, @, [1 T0 }7 _! H RowBox[{"[",
8 ]: M* g7 f) j& S4 i2 h RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",",
/ s( }) U# ?' d: o9 n RowBox[{"x5", "->", 8 M/ N) I5 m5 [' D- [( f/ E
RowBox[{"Data", "[",
. N, {6 O6 Q& ?8 j2 `- N! V- ?9 u RowBox[{"[",
4 S5 n5 P6 f @( V8 S# H5 T! J RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",",
" {% b" g" z9 F4 s1 O. N9 v RowBox[{"x6", "->",
/ o0 c1 X8 D# _: N: A& L6 j; [3 q RowBox[{"Data", "[", 3 l; h7 }* s4 W4 Z' Z6 k! W
RowBox[{"[", " P0 ]! ^- p! W! `8 [4 A
RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",", 6 J; F1 g1 _3 {3 C, V: d" d
RowBox[{"x7", "->",
4 }& a8 z2 J, T% o& v RowBox[{"Data", "[", 0 s4 h3 Q# \& u! L
RowBox[{"[", % c* c l" m& V) E0 J% l
RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",",
2 j2 v8 i% G3 h6 ?3 i RowBox[{"x8", "->",
0 i; B0 e$ r) E2 i' l5 F0 { RowBox[{"Data", "[",
* A( P2 t, E# M+ e# H RowBox[{"[", % V# M# o H1 d/ [8 N1 b# R5 F4 ^
RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",",
6 t3 T3 q" l* k9 _0 g5 L( E6 z RowBox[{"x9", "->", 5 S6 j# o2 E i( ~6 r8 p" b
RowBox[{"Data", "[",
" o/ D1 e) M: F$ v1 L RowBox[{"[",
, B; J1 {1 ~1 V RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";",
0 S9 k, G& J9 x "\[IndentingNewLine]",
/ ^/ y! E+ j* ?" d# @1 Y# ? RowBox[{
9 E" E( C1 P5 q. n# h* V; s& ^ RowBox[{"m60n21", "[", % X8 ?' M, t1 ]" O5 [1 `, p
RowBox[{"[", . Q) N- A' Z' }1 b5 J1 j: _
RowBox[{"i", ",", "10"}], "]"}], "]"}], "=",
$ h% i! R0 @2 S/ I- F RowBox[{"u10", "/.",
; \: b7 l# \: y* j$ V/ j2 r RowBox[{"{", ( \- ?0 L* X( C- ^( S5 T0 v
RowBox[{
5 T: y9 H7 N, c, q RowBox[{"x1", "->",
3 F# f4 B1 A: e Z0 r9 Z9 \5 A! d RowBox[{"Data", "[",
2 g8 k& e* _$ Z- n8 { RowBox[{"[", " d5 r" k: k' k/ |3 l' Q0 k: e, o
RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",", ( q* H+ C F$ x+ v2 }
RowBox[{"x2", "->", + S2 k, [7 L) ?6 R- [
RowBox[{"Data", "[",
. |& R+ F/ U6 z( N. @( l! V RowBox[{"[", 5 ^7 G6 _/ k: a, D9 k. ]
RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",",
' g' q: O, {5 F$ z, \* {# t RowBox[{"x3", "->", 7 a' i9 r5 E5 B {0 Y) {- c
RowBox[{"Data", "[", & y$ a0 R2 P7 O( I9 Y
RowBox[{"[", 4 O! A" o2 ?- G9 |" t3 o
RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",", ) v8 D; T1 Q" t8 B* n1 z* A& c
RowBox[{"x4", "->",
/ x9 v: Q7 y2 j) ~5 I) Z RowBox[{"Data", "[", ! M# T9 K l n$ @1 U- X
RowBox[{"[",
" {1 D" q- L4 ]) a) M0 _ RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",",
1 N/ x5 `3 W* w- k P. w7 p1 [ RowBox[{"x5", "->",
- ?, {' G- c$ T% `1 O$ ? RowBox[{"Data", "[", 6 z; x7 q0 N- q
RowBox[{"[", 4 o& s# o$ a' B9 Z
RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",", 4 G# C0 f: K/ C- B5 a
RowBox[{"x6", "->",
+ F2 x1 f( z7 y7 O5 K5 i RowBox[{"Data", "[", 1 l4 s% Q1 v- M$ v3 U
RowBox[{"[",
3 F L& K# M, c* y% m/ J% i, O( {2 Q RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",", H3 M5 I% w) V
RowBox[{"x7", "->", 7 H7 v- Y o1 y- ^
RowBox[{"Data", "[", : o+ C- S/ f6 u) S: O' [* m: V/ x1 T
RowBox[{"[",
$ t8 d) k. J5 d! E- _! V U RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",",
. E. @4 d7 V, q: c3 g RowBox[{"x8", "->", ' Q0 V+ }+ ^- \, y% `: a
RowBox[{"Data", "[",
& z/ X" d, O" I: [# W0 i% c) W RowBox[{"[",
: k# I& y! f% T! v. s. K RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",", $ A4 e# G6 s8 U/ G" j
RowBox[{"x9", "->",
- s8 D2 k7 G! p/ A RowBox[{"Data", "[", 4 D, P, p/ a' W9 `5 x
RowBox[{"[", 5 T% ]6 U0 Z# M3 `0 e5 ~
RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";", Z# K5 `" P0 M% w: I9 G
"\[IndentingNewLine]",
2 V( S! K. @' n; q) V9 Y RowBox[{1 O- U. Z5 \6 v8 |9 X
RowBox[{"m60n21", "[",
8 H- b) d3 U& a" t3 T RowBox[{"[", + e+ A1 u! k, u7 e# M* L
RowBox[{"i", ",", "11"}], "]"}], "]"}], "=", . p3 t# b H# P4 A; \
RowBox[{"u11", "/.", % y; T9 `& p$ C% t/ d9 W+ g
RowBox[{"{",
$ X7 u" l+ p' j: U9 Q RowBox[{- v b% M g9 r" z! H! G8 p1 i
RowBox[{"x1", "->",
; U% K* I9 N+ [; F# B; a9 N RowBox[{"Data", "[",
# X/ Q* j/ ~' V' n0 }* K RowBox[{"[", 3 |7 I& ?1 F- Y# v) G$ @( b" c" Q6 O( k
RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",", 3 z3 B/ X, C0 t; p4 f
RowBox[{"x2", "->", 6 c6 I( ?3 Y) l$ d' O" J, g
RowBox[{"Data", "[", 6 t% S: s4 N4 { o) s9 ^2 T
RowBox[{"[",
% @ i( H! E! ]0 K; R9 B RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",",
$ @+ X! P- z! ]8 z* n- E RowBox[{"x3", "->", ( M, U5 \: h5 P% J
RowBox[{"Data", "[", ' F/ U, s ]8 r, j
RowBox[{"[", ) U+ C, T$ Z- ^- H8 x2 P
RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",", u& f$ S1 @9 |4 ]
RowBox[{"x4", "->", ) P+ L8 _5 q7 Y' W ?! U
RowBox[{"Data", "[",
0 R, L+ O. X; n% n! E Q0 a RowBox[{"[", * U5 m/ |1 }# K: P# A
RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",",
! R6 E/ C+ l. w9 }6 [ RowBox[{"x5", "->",
- w5 A! A4 o1 r; x7 a, k RowBox[{"Data", "[",
# } j0 K, v& ?/ x" Z RowBox[{"[",
; K& s! `! n1 X$ @ RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",", . t9 G4 ~* b1 M: |$ g* [3 C
RowBox[{"x6", "->",
. x; O1 ~, Q7 i" m RowBox[{"Data", "[", a2 U6 D7 i. V, R
RowBox[{"[", # d- T! c# q" M! a* B9 E) Q0 i
RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",", - V& ?! X+ l. A& B
RowBox[{"x7", "->",
" C5 A" M/ L4 H9 W$ T3 P, }- c RowBox[{"Data", "[", - D5 ~$ }8 F) Y9 q+ c( D6 V# N
RowBox[{"[",
3 q$ c5 G+ L& Z# z" e RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",", G, F5 L3 \+ S: x/ W
RowBox[{"x8", "->",
8 B& K: h: Y# B; l$ H RowBox[{"Data", "[", 9 N. Y7 `& ~- T
RowBox[{"[",
; {7 {' ?# z7 V( p1 b1 s! R/ Y) ` RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",", ; J- x" q1 `; c A
RowBox[{"x9", "->",
0 `8 ~, E+ H. j1 j RowBox[{"Data", "[", 3 B5 Z, Q" H( T' s# M2 {3 @
RowBox[{"[",
) V! G; H' o# d RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";", ' j1 f2 Q- B$ F$ }1 h
"\[IndentingNewLine]",
* R/ }4 P) V& K RowBox[{
8 E9 D4 }! E/ `; q( ~! J RowBox[{"m60n21", "[",
. U$ [6 n x8 G# }) D$ ^ ] RowBox[{"[",
. U& t2 P! d- f1 W8 f$ t F( {( Q/ t RowBox[{"i", ",", "12"}], "]"}], "]"}], "=",
1 D) m0 F& L2 O& K% D1 e RowBox[{"u12", "/.", ( q- Z# |5 G3 h2 a! _
RowBox[{"{", 5 {! D5 u& ^ R( `! Y- Y; h
RowBox[{
2 x2 v1 M @% n5 b- r( N0 H RowBox[{"x1", "->", 3 m, s- q" u: L/ ]1 ?/ z& C8 l
RowBox[{"Data", "[",
0 _2 j$ b1 L/ F# H RowBox[{"[",
2 P4 x: \% q) p8 d RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",", 7 |4 ^2 a ^+ c1 j! |7 U
RowBox[{"x2", "->",
- ?8 Z/ V, Q6 \8 S RowBox[{"Data", "[", 7 @4 l- P. ]( S# g3 {9 C9 _
RowBox[{"[",
6 [1 f' X* B2 t$ V& g RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",", O& @: l% H. n2 g7 G" f7 O6 h1 N) g
RowBox[{"x3", "->",
9 \: `) _& x f5 G/ m2 A RowBox[{"Data", "[",
4 H1 {9 A: r; Z3 p RowBox[{"[",
! l* v8 Q, @7 A" F$ Z) P, g RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",", $ F; o: h3 T( l" ? x
RowBox[{"x4", "->",
% g3 [6 ?/ z* I" h, ] RowBox[{"Data", "[",
: ~9 p& v) h1 z1 L4 W* ] RowBox[{"[",
" v2 K5 d; }( ]8 ?+ C/ l5 m RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",",
% I5 x9 L# ` H. k C6 a RowBox[{"x5", "->", % |( v T! Q v5 @- D
RowBox[{"Data", "[", - C1 n; P) ]. m3 O% k. M! R4 ]
RowBox[{"[",
% I2 n- |! ?: f0 W# j. @; S& G2 V RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",", ! J* Q( I6 r8 k; z
RowBox[{"x6", "->", $ l$ o+ `% @& N6 E' L. n4 {7 }3 _2 L' O
RowBox[{"Data", "[",
" Q) n4 M$ o9 _0 F$ j- H RowBox[{"[",
5 {3 o. f) r6 O& M c- q/ i6 `+ j$ [ RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",", 9 r) q" }0 }# |! w; B: K
RowBox[{"x7", "->",
9 a7 n, l- o) w9 _& C RowBox[{"Data", "[", ( b1 O# W$ f+ O% ^* W: y
RowBox[{"[", ' x: K- D9 B1 w4 B. ]
RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",",
7 Y/ E( o9 T' M4 |4 T RowBox[{"x8", "->", 0 ^ f: A* u" e7 g( x9 B; q
RowBox[{"Data", "[",
4 U7 ~7 ]* G1 p" n$ ^9 K Y RowBox[{"[",
! x& X: a- D7 {+ \% I( M RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",",
1 k6 |, t1 M0 ]4 G3 ]' H% a/ H+ @! z RowBox[{"x9", "->", & ^5 Y5 h% `, m+ q, I$ G
RowBox[{"Data", "[",
* q. q8 I2 {4 F' u% q$ b- S5 ?# h RowBox[{"[",
{, \5 a& S% C( D RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";",
1 B4 [5 J7 R" M2 Z$ ~ "\[IndentingNewLine]",
, z) k# g- }+ k' e8 i# s RowBox[{4 h z0 m6 _* S% i
RowBox[{"m60n21", "[",
- m# }) z+ ^; s3 j RowBox[{"[",
/ Q+ w Y; e7 ^7 g( |1 \ RowBox[{"i", ",", "13"}], "]"}], "]"}], "=", 2 s/ D. v5 X& @0 j0 T, }9 M; U
RowBox[{"u13", "/.",
( M2 X0 V, E; E4 U3 X RowBox[{"{",
$ @1 D( ~# N/ q5 H5 w q6 p/ N RowBox[{- g0 \6 d) w7 d
RowBox[{"x1", "->", ' G: E+ u S' K( b8 k0 ]6 \/ G
RowBox[{"Data", "[", ! d' E5 i) }0 e6 f* e% b
RowBox[{"[",
' \. y. Q( M. N: u RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",",
4 L9 U% a6 F1 u! [) d! v RowBox[{"x2", "->", 7 D: r* T1 c8 W! O
RowBox[{"Data", "[",
& L. F Y0 e @- X3 q RowBox[{"[",
) C2 S( y. G- z( o9 w8 n RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",", 0 r2 g8 w) j' v# m& m: F) U0 r
RowBox[{"x3", "->",
& p6 z ?) I4 I RowBox[{"Data", "[",
D2 g5 G' i. _6 Z& p2 C RowBox[{"[",
1 C$ |/ Y- Y4 _% J; ~' v H0 B2 h; v M RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",", ! \9 x0 a; W+ ]! V' Q
RowBox[{"x4", "->", ! l1 S8 S4 R1 U$ }+ R
RowBox[{"Data", "[", : ]+ C6 B( \1 x# A
RowBox[{"[",
) J: g1 r1 D' ?9 K1 G9 R RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",", ; ]& l3 B/ s: L) T/ ~# B6 y# O
RowBox[{"x5", "->", ! H' s# L% ~" U
RowBox[{"Data", "[",
/ s# f* Q3 n3 G7 Y' U RowBox[{"[",
u& q8 n' I# u" \; b RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",", 3 {5 p# x! S' a! v3 b0 A) t* w
RowBox[{"x6", "->", ) w, U. N H" H- N: r/ ]+ d
RowBox[{"Data", "[",
' b) k9 \! {% |! I( f RowBox[{"[", 9 E# K5 b/ a2 ?% w3 |
RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",", 5 Z+ T2 s- |& S- E& X3 u
RowBox[{"x7", "->",
7 B$ `) k0 E( z/ f RowBox[{"Data", "[", ( y& Q8 T9 g9 ]) |3 l
RowBox[{"[", 6 t4 d: X+ ]1 B4 l% e+ |( `/ E: B
RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",",
& m# X8 E" [- ]- \6 I5 } RowBox[{"x8", "->", / D6 j& O' f' ]- Z! }- \
RowBox[{"Data", "[",
6 K" b* l0 J/ \! T3 S& y% a" q RowBox[{"[", : D- ~* l* D& b5 x d: ~
RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",",
# y- E5 `0 o, w* A RowBox[{"x9", "->", ) {% |( E4 E1 V+ X% h
RowBox[{"Data", "[", ! p) \8 @) M. M
RowBox[{"[", " E! @/ t, D' T1 _' @
RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";",
$ K4 f" l1 d1 o2 Z "\[IndentingNewLine]", 9 @3 u& ?, S2 m) h0 U5 I( `
RowBox[{
3 `$ s4 T+ R4 P/ \- ~' @; z RowBox[{"m60n21", "[", 4 P0 F7 U' n, g+ T
RowBox[{"[", / M/ j3 U9 s3 _& X# G
RowBox[{"i", ",", "14"}], "]"}], "]"}], "=", G8 {* @3 |. S/ w, {4 o: B1 l
RowBox[{"u14", "/.",
( o9 I. \' F" b- k RowBox[{"{",
8 }# R Q* z+ G* t0 J; n RowBox[{. A0 ?. ?! h1 ]7 @, h% j% F
RowBox[{"x1", "->",
' P) C( V3 A- B) V RowBox[{"Data", "[", 5 ?3 a9 L/ y i9 b+ t4 y1 [& H
RowBox[{"[",
7 I" V; N' P5 C% r RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",",
4 V6 P" Z) Z' g2 E/ H1 k RowBox[{"x2", "->", : O" s' o [- f
RowBox[{"Data", "[", 4 k( y; j. ~# s# S; {6 E
RowBox[{"[", $ X% L: \6 P3 Y5 W- Z
RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",", ; J6 @& |- G {- p6 {) g C( ?% N! ~
RowBox[{"x3", "->", + H' T' D+ \+ ]6 f: D2 r* ?
RowBox[{"Data", "[",
% W1 F! L& ^9 N& H; k V% K/ A RowBox[{"[",
6 I& F e* q' M$ S1 q2 A) u RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",",
. T6 q$ Y( Z. R# G RowBox[{"x4", "->", 5 d6 v; F5 _; B: o1 G: R( \
RowBox[{"Data", "[",
! P c8 N7 i$ r9 \ RowBox[{"[",
7 y9 r" @0 B6 [+ z# J# ~% L- j RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",",
' d7 J: I9 g! ^! o0 x ` RowBox[{"x5", "->", * f# v) x) e+ a" O# u
RowBox[{"Data", "[",
$ m3 c% D0 `/ n5 [8 F# m; m9 F; m: O' { RowBox[{"[",
+ _+ O4 s! s- q* D RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",", R& X8 v4 t. A; z
RowBox[{"x6", "->", 2 W# J h% P: b) Q$ d
RowBox[{"Data", "[",
& g/ z/ j: a1 J( ^" V RowBox[{"[", / @5 L' B) P' V. A! U
RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",", ! K6 W! n# P: [ P
RowBox[{"x7", "->",
* U; w6 ~% F% J0 p# g! ^' N RowBox[{"Data", "[", : l/ ]" Y% t9 c) }1 @9 R6 a
RowBox[{"[",
3 `; f$ C7 D: K5 P$ P, d4 [* @$ @ RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",",
5 u! |6 } w$ }0 K6 C: @8 E RowBox[{"x8", "->", ( b9 x4 |. w4 w& x
RowBox[{"Data", "[",
9 T) ~2 r: m4 w A7 A! K2 l; f# h RowBox[{"[",
. X' _$ m9 N: c RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",", I* R) Y. Z+ Z9 K$ s9 s* o+ q
RowBox[{"x9", "->", : I4 B; q2 X: l( ?
RowBox[{"Data", "[",
7 f' I# [" l' ?4 I# j RowBox[{"[",
* l/ w. S. }. n7 x1 {: M RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";",
0 ^) z7 w }1 \ "\[IndentingNewLine]", ' W8 y) f' k$ Z% z! e
RowBox[{
* ?7 A/ ]" b, l& t7 @$ M2 p" G RowBox[{"m60n21", "[",
7 J4 O% V1 J# t9 V0 X RowBox[{"[", 2 g& v) m/ M8 h! |; C& X
RowBox[{"i", ",", "15"}], "]"}], "]"}], "=", 1 t; c- y* {% Z! f- ]+ d. j4 u
RowBox[{"u15", "/.",
8 ]& b) | R4 |' n. M) ` RowBox[{"{", , b1 s) [: ^# q5 I1 ?! o, M
RowBox[{* O. F. p2 B) [9 r( q- H' P
RowBox[{"x1", "->",
* J% X( r- J& J9 x/ G/ f RowBox[{"Data", "[",
y$ z8 m& f9 a1 r6 n RowBox[{"[",
0 |' T ?5 k& x: A2 T# \ RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",", K0 q- {& {+ `# U
RowBox[{"x2", "->",
* l* h% I9 d2 H% V- ?. _7 b RowBox[{"Data", "[",
" p! s# ]9 E# s) I' M% T RowBox[{"[", 4 Z: ?$ D3 r+ h2 Y$ M' J
RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",", $ X" {! C. ~& R2 W# U5 {
RowBox[{"x3", "->",
4 s5 t6 B' c+ X) Q7 N RowBox[{"Data", "[", 6 J: h8 B l1 ]: N
RowBox[{"[",
3 y! C9 h; z. R* I3 Y) d# k$ w RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",", 4 D$ C' |; b6 W( c% L
RowBox[{"x4", "->", ! Z6 L, t2 x' L
RowBox[{"Data", "[", & W0 y- d7 B! P! _6 a" G8 P
RowBox[{"[", / o- P' ^ ^) ~2 I# b" E
RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",", 5 k0 M* C' W$ Z5 T& D
RowBox[{"x5", "->",
" N$ { S t) }6 J" T# f8 U$ h$ O) ? RowBox[{"Data", "[", + T5 R# Q1 _" [" D) A( k
RowBox[{"[", & Q P2 p! P) c
RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",",
9 |- k5 n! c) ?# P# \ RowBox[{"x6", "->",
6 Q- v! A3 s' ?7 f5 y RowBox[{"Data", "[", 4 F2 s7 C4 @- b1 t# n" f; U
RowBox[{"[", / G0 j# R, q5 D) E* ?5 H$ Y
RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",", . v5 b, \8 G. b$ q2 N
RowBox[{"x7", "->", : D6 u0 K; s" J _3 w: {! |* `1 [
RowBox[{"Data", "[", % t \ Y: L' {' L+ m% O) D
RowBox[{"[",
8 A, @ M1 O+ w9 J: _0 U, ]4 l RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",", ( G. i1 \8 w+ u6 c: @
RowBox[{"x8", "->",
: C2 @. x# `* C1 o& r* X RowBox[{"Data", "[",
2 Y( u2 z3 W8 a% b, M RowBox[{"[",
A+ ]# G7 Y' }* c5 F+ B9 d# ~ RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",", 0 F. C( H% B* K6 r! J
RowBox[{"x9", "->", . |+ |5 v Q- _
RowBox[{"Data", "[", & I/ {' `: T0 e$ O7 Y/ o
RowBox[{"[", 8 u" @" t, a# ~0 z
RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";", % _2 p1 |6 U0 A3 p; _# Y$ y
"\[IndentingNewLine]", x0 ]( J) J/ G5 w3 @$ p
RowBox[{& l% x! ]& }0 {. W5 r
RowBox[{"m60n21", "[", ) `; y3 r/ o. I+ [. V
RowBox[{"[",
7 Y- ~ v5 A6 \, v' d5 {& A RowBox[{"i", ",", "16"}], "]"}], "]"}], "=",
( Y$ m) w: T+ k! E6 p; S RowBox[{"u16", "/.", ; V: M& H, o& T9 I6 \/ ~
RowBox[{"{", ! y) r5 Q) W! a' w! s
RowBox[{& H0 _9 }/ ~8 {# N5 y
RowBox[{"x1", "->",
9 |. }8 W3 G. m& k/ ~ RowBox[{"Data", "[",
3 _8 L# ]% g+ @+ I RowBox[{"[",
' g' Q; q9 J, T4 z( O; a RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",", 5 z" M, i5 e' n& j
RowBox[{"x2", "->", 6 m( D; z+ r7 h* }
RowBox[{"Data", "[", ; i4 A- Q# z( n% k" W
RowBox[{"[", " R- W) I Q/ ]' @
RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",",
- L- L5 v! X' T0 g2 t5 W& n) w) Q RowBox[{"x3", "->",
& h9 r4 E4 J4 D* G4 k! w RowBox[{"Data", "[",
- D( g* ]% H+ n RowBox[{"[", ' h- i! q S* _8 Q# Z- i
RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",", & X0 x$ y2 S: c
RowBox[{"x4", "->",
2 n# A {& t3 r7 ~ p1 n RowBox[{"Data", "[",
' z4 n* ?" k. H% a& T! c% M4 K RowBox[{"[",
( b- ^( a5 ^ f# \6 b RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",", * c, b6 c/ e: }
RowBox[{"x5", "->",
" m* I, X. M- e% X RowBox[{"Data", "[",
9 @5 ?8 P" J N( ]& x3 Y$ y RowBox[{"[",
# w9 p9 J# y% b' b/ ]% v3 x RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",",
) k- O- F% B2 i" q RowBox[{"x6", "->",
8 h4 W/ N9 v- U: Z5 s: x RowBox[{"Data", "[",
+ s( C, w4 `, R) r6 x RowBox[{"[",
W- L" f# g8 i/ O+ k RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",",
' z8 K' o; }0 H7 R5 i+ Q; @" ? RowBox[{"x7", "->", # o6 [' X8 x" V6 S
RowBox[{"Data", "[",
$ j8 {1 W5 v2 k5 I5 W1 I2 P RowBox[{"[",
% P5 n O( O, ^' l: q, u" r) ] RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",",
- P$ s" Y M8 I5 D RowBox[{"x8", "->", ' E, z1 d( s( s
RowBox[{"Data", "[", 9 ~; i+ m6 B3 c4 e0 b4 v1 B# |
RowBox[{"[", . H7 X, \0 t: `% Z, i
RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",",
7 x# g2 b2 `* ~/ j* L. D RowBox[{"x9", "->",
9 a/ L& D$ |6 E. [) p# v, N W: o; ` RowBox[{"Data", "[", 6 K" I- P1 o+ t# T9 c+ @
RowBox[{"[",
& o1 c% {/ M$ h3 @2 v: y/ R) s RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";",
! U! Q9 ~' F5 t4 W "\[IndentingNewLine]", $ e( u: x0 f, `, J+ a. |+ R1 s- t( K
RowBox[{
& l+ x! y8 Y# Z+ d7 ?) X6 k RowBox[{"m60n21", "[", 7 ^7 ~ A0 T4 G# Y) o
RowBox[{"[",
3 [' Z" m: P- H RowBox[{"i", ",", "17"}], "]"}], "]"}], "=",
. M0 A b6 R, f: {. ~. [ RowBox[{"u17", "/.",
: Y) [+ r: s; Q8 l RowBox[{"{", + A7 \4 v( E. {+ g! ^% D
RowBox[{" j; ]" B" H8 E" o3 M
RowBox[{"x1", "->", + A* ~* q% h; G5 p- o
RowBox[{"Data", "[",
0 M7 q* m4 J3 C/ } RowBox[{"[",
) [" f, N6 v" M {' ^/ P RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",",
. ^& F7 o$ M8 A" Y r/ K RowBox[{"x2", "->", , ?! v2 L6 H( q$ s" v: b/ S& ^
RowBox[{"Data", "[", 7 c) J/ f& h* y$ V3 [/ Z
RowBox[{"[", - w- ~, V f- z5 R
RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",", , ]% ~5 Y" l; m' U( J% U
RowBox[{"x3", "->", / ]" u/ t4 Y$ ^% ~2 J, r# B
RowBox[{"Data", "[", ( z5 {5 E9 q/ c% i0 |, F8 m
RowBox[{"[", @+ D) e8 i& f8 a( N+ O2 l' F
RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",", 3 X$ b* \9 n ?$ R
RowBox[{"x4", "->", 5 T1 f% q; \; s6 V; a- O$ K
RowBox[{"Data", "[",
0 a' j$ D5 M& B6 ?6 R5 E/ F0 F RowBox[{"[", 1 I& _. S9 A8 R0 V- ]# H. `. p5 T) E
RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",", ) I8 q' x6 M9 S& f3 b( E
RowBox[{"x5", "->",
/ ^% E8 O, R1 @/ l0 G1 g* D RowBox[{"Data", "[",
! v9 D7 [" z( r6 v& n RowBox[{"[",
% ?) B6 ~( W4 O; t/ z" S2 b RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",", 5 v) h8 J; ]$ t. t, _5 s
RowBox[{"x6", "->", / Y/ Q4 b, ]. g6 e, C% ^" N
RowBox[{"Data", "[", * k+ d# h( Q2 n' i) j; O: z7 l4 O ~5 N' }
RowBox[{"[",
% h4 A3 J( W7 { RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",",
4 o, a! w- W; D4 i RowBox[{"x7", "->",
0 R( s3 V$ z" Z1 J. i RowBox[{"Data", "[",
: X: I& E6 a1 v1 R/ f) Q N RowBox[{"[", 3 b0 X& h/ C1 h7 I$ R0 P# L
RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",",
1 Q' {! e" @4 |( s- g# ^ RowBox[{"x8", "->", 8 Y1 I+ o+ i6 y1 f
RowBox[{"Data", "[", 9 s" |3 K4 v* c Q
RowBox[{"[",
2 B* S& p1 h Z RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",", " S+ J) n# [4 |3 A ]# s
RowBox[{"x9", "->",
/ G) u3 W, m; X; v- \ RowBox[{"Data", "[",
]# B; T# B; \3 c' ? RowBox[{"[",
) z6 J! }0 x& O. b3 N3 ?' ]- j' K RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";", ' s7 }9 E' `4 R; h' k8 d
"\[IndentingNewLine]",
; W' ?! P9 b6 S3 {3 x$ W RowBox[{, k4 {4 {' @! W
RowBox[{"m60n21", "[", * u( E$ N& q& `! |" z; G; p" O8 {
RowBox[{"[", 6 J0 l4 D& b9 {1 Z8 j: G) ^
RowBox[{"i", ",", "18"}], "]"}], "]"}], "=", ' h4 [/ D4 b, t* E h G
RowBox[{"u18", "/.",
* _( @8 \4 O u0 c RowBox[{"{",
! y5 W) |/ ?2 I/ |' V: U9 t RowBox[{
/ q- i8 Z' v! H8 { RowBox[{"x1", "->", & \/ Y& S/ G( S' E2 l8 u( ?2 s
RowBox[{"Data", "[",
0 W, q. z4 S' o. V0 }) y4 F RowBox[{"[", 9 [+ @4 I: `/ e7 `+ y
RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",", 0 z+ ^" r2 U: x0 y q8 b
RowBox[{"x2", "->", 8 O( B8 l- @: q8 l6 s& K6 ^
RowBox[{"Data", "[", % ~( a; A9 L8 o% P
RowBox[{"[", - @5 K. K, z5 q; ~' @
RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",",
9 n, v* D1 j1 z: M' [# q RowBox[{"x3", "->",
' h$ Q! f( d& |( u8 _) U$ [5 u RowBox[{"Data", "[",
7 w' K+ J/ X: T% z7 W, o" c RowBox[{"[", 7 D- I: } G% P5 k
RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",", ) q3 j3 k0 B8 n( A" ?8 n
RowBox[{"x4", "->",
, M5 d7 @: C$ x W- r RowBox[{"Data", "[",
5 F% i: B9 ]+ M5 c( x7 U' w) Q% } RowBox[{"[",
# y! K1 B- I+ C RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",", , ]1 ], e; m. X9 q$ X
RowBox[{"x5", "->", ! _/ ?8 W3 q- K! b" |! _
RowBox[{"Data", "[", 4 @3 r* \* {# r' \; E
RowBox[{"[",
- B' L6 {% x# g$ G0 e% M RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",",
& T! c% o" n8 N, ^* c1 \5 d3 R+ O RowBox[{"x6", "->", ! M2 F- M3 O7 G; p8 W
RowBox[{"Data", "[",
1 z9 j5 U' ?1 U9 b! J RowBox[{"[",
, M; Q0 [: G0 [' p2 ? RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",", 7 A6 m' I+ }9 E8 J6 l; g3 `
RowBox[{"x7", "->",
# N0 \% b; r1 C Q& f. J& ? RowBox[{"Data", "[", 2 L, o# C9 f: }4 V: E
RowBox[{"[", $ _2 N$ W$ U+ |7 f+ K- L4 e
RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",", 6 @* g$ q' B7 c6 R1 ~% c
RowBox[{"x8", "->", * R( D U& F( q( u
RowBox[{"Data", "[",
) U% i( t7 S" n3 b: F( S RowBox[{"[",
8 E, L' u/ c. c2 \ RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",", ' I5 e$ z; H7 n [" X1 i0 U0 T$ W
RowBox[{"x9", "->",
0 G y, r/ f+ G0 m Z RowBox[{"Data", "[",
" B1 D5 _& O) M RowBox[{"[", ' P% P! I0 r h5 N* h" Q% ^7 p5 A
RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";",
+ p2 H% F2 o2 I "\[IndentingNewLine]",
! ]: E% u: g9 `/ s+ F8 s RowBox[{0 ^) C. p! L: h- f( e( }
RowBox[{"m60n21", "[", % E$ b: x9 S& ^4 L" g" E/ E
RowBox[{"[",
$ W' {7 g4 {8 c+ Y; j& O RowBox[{"i", ",", "19"}], "]"}], "]"}], "=",
2 ^) Q0 g! m# r7 e- k RowBox[{"u19", "/.", $ b& i) ?/ P+ u0 h' B
RowBox[{"{", 1 O; |- x1 k# g3 _- B& k
RowBox[{* J6 b4 g, A, T" i1 d% X
RowBox[{"x1", "->", $ [/ _) G4 m$ j" b" L1 s, y
RowBox[{"Data", "[", ) L q0 K6 n; H. o5 D0 @( U
RowBox[{"[", * @7 F" g4 L: |* e& K' z& \5 G
RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",", & k% e* S# K) ^6 g5 c- a) ?# V! a7 R
RowBox[{"x2", "->",
- g+ P% c {& f: ~0 B2 I3 _ RowBox[{"Data", "[", - L6 L3 p4 f* D6 z0 _3 g
RowBox[{"[",
: w2 B) y& Y3 }5 H RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",", ; K' i8 c; R) ~, A" ]) \; s/ R: Y
RowBox[{"x3", "->", : f/ f2 |. U' u7 F
RowBox[{"Data", "[",
! Y) T1 I7 m8 v RowBox[{"[", : i7 L" [9 T1 }
RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",", & z4 y& y( K0 X/ p
RowBox[{"x4", "->",
2 k0 Z! R: X. F0 D2 C RowBox[{"Data", "[", 1 k/ P" ~! n i: b% D; F5 j
RowBox[{"[",
& a* i5 H7 n% l% t5 ~& J1 ~: y RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",",
( W3 p7 b5 J, |% a0 s1 v RowBox[{"x5", "->",
& d& [( Y1 {6 O' @; u U Y; n RowBox[{"Data", "[",
i s. R. X, r0 Y' p# P RowBox[{"[", / l& w' S3 N. |+ ] p0 K
RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",",
) s9 w6 ?( f$ J* ~* q4 k# d0 q$ [ RowBox[{"x6", "->",
2 D X) k7 r- W) V, j/ L RowBox[{"Data", "[", 9 N* ~9 {4 {5 P. d! I5 H% ]- d
RowBox[{"[", 3 k- ?$ L' Q6 J/ S5 A
RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",",
2 C* _$ k3 S4 b+ R; @ RowBox[{"x7", "->", * H4 R( R/ B8 }; i' q) I' O2 R
RowBox[{"Data", "[",
; F6 [; u3 t, O' k RowBox[{"[", ) y+ m# M4 E9 j* P0 R6 K4 V
RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",", # q2 O- Q/ K' y6 w9 v* e
RowBox[{"x8", "->",
- E* \- I" @# Q5 x/ C3 V4 Y+ M RowBox[{"Data", "[",
! p+ W$ Q2 X9 {) a. b7 Q. G RowBox[{"[", 7 y4 g! o9 z: V7 O5 u# m
RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",",
/ r5 T; {$ V. p4 ?7 R RowBox[{"x9", "->", & T5 d8 \3 k! _" g+ R% u0 B' D- `
RowBox[{"Data", "[", ! J6 q1 e" ]% n/ y0 X8 Q
RowBox[{"[", % x( l2 e3 `: c7 L$ c6 D
RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";", 7 x: X; Z: a0 A' T/ a' j" M4 g$ G
"\[IndentingNewLine]", q, d9 o% [* j
RowBox[{
/ u% G% I, Y* n, | RowBox[{"m60n21", "[",
?; S `8 q0 r RowBox[{"[", Y1 Y- K! j9 K, Y
RowBox[{"i", ",", "20"}], "]"}], "]"}], "=", 7 |- q9 P# @/ A2 \. }
RowBox[{"u20", "/.", % G2 e) ]+ J# K+ i* S1 {" M4 }. O
RowBox[{"{",
, |2 ]. f6 k* \7 j RowBox[{
( e5 T+ J: X \1 `: F( W# C RowBox[{"x1", "->",
. P; ?3 U- w8 i) G RowBox[{"Data", "[",
- P. P& s- U* J& E) N; @" t RowBox[{"[", # Q7 l: I9 j S5 Y1 Y' n4 U
RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",",
$ F" J% s' B s9 P: L: R, l RowBox[{"x2", "->",
5 Q6 I) R8 L. ^8 c RowBox[{"Data", "[", / ?2 s1 g& C: Q0 t0 ]1 r5 a4 ]1 B
RowBox[{"[",
8 G/ i2 B3 C7 B1 C3 Y# w& V0 y0 z RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",",
) `( K" E, ~4 U0 f9 c8 b# L RowBox[{"x3", "->",
8 l$ b7 i# G; K: E) L RowBox[{"Data", "[", ( ?: c# {5 D+ Y
RowBox[{"[",
& h# W$ f4 P4 }3 L, k. a; k RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",",
# y& V: u2 F6 K( e' x RowBox[{"x4", "->", + S& _# ^$ i; j& K" x
RowBox[{"Data", "[", : E8 O& T7 E/ z: X' }2 H
RowBox[{"[",
& A8 W: A: v; X/ ~8 ^- c RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",", 1 a* R& l$ j/ }$ \; H- W
RowBox[{"x5", "->",
* G. \! n3 T0 S6 O; h: e" Z4 B RowBox[{"Data", "[", % h0 t9 r0 `& {- Q @6 S4 k3 q3 V3 R
RowBox[{"[",
( ]6 q; L- U4 `% ]8 L- Y+ d RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",",
3 E0 Z) {* o/ K" A) v. |0 S RowBox[{"x6", "->",
/ i) h- e; g0 R, K RowBox[{"Data", "[", 2 W. K; I3 S( [ B$ v: O* F4 E
RowBox[{"[",
; K' V8 q, l4 R# e9 i1 |$ b RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",", 7 m5 Q7 w: W/ J0 s l
RowBox[{"x7", "->",
! D2 i% v4 l% k RowBox[{"Data", "[", # E( N; x% a" y9 Z" e: I4 X
RowBox[{"[", & B, t- E) }& p* g8 Z, B( P4 d
RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",",
{3 v" m' f- F5 G8 I; n RowBox[{"x8", "->",
3 Z% U! f+ x+ c8 v9 m RowBox[{"Data", "[", ( u8 `: m" H6 W8 s3 Q7 S
RowBox[{"[",
$ C; H1 h6 B' p1 B5 Q: r RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",",
5 Q! ^! `; G; e% g RowBox[{"x9", "->",
) e8 J) C0 @2 N RowBox[{"Data", "[", : `# R' e: B4 L0 @ v! j
RowBox[{"[", % L' M5 B: f. u0 I
RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";", ( |9 O1 d3 j# }9 f2 a
"\[IndentingNewLine]", 4 f9 R1 \6 g: S& ]$ z- u' T' e, U5 k
RowBox[{
' ?) @& X2 q' N" J RowBox[{"m60n21", "[",
+ s# ?) t8 {% Z* P) |5 c, f2 b RowBox[{"[", 8 P: H/ c9 ?: {6 ?- A
RowBox[{"i", ",", "21"}], "]"}], "]"}], "=",
- \! c7 `+ @2 N RowBox[{"u21", "/.", 9 h5 i9 q# H9 d3 ?% Y! i
RowBox[{"{",
, w% L: _( r/ i, N$ S6 T RowBox[{
9 R' I3 ]+ \( ` RowBox[{"x1", "->", 6 F/ i: g# ~& Z/ V- d* L
RowBox[{"Data", "[", 9 N6 L+ D5 Q2 }7 I; M- v9 t/ N
RowBox[{"[",
3 x* T$ q) S! r2 c/ E0 j RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",", 8 u! t0 i6 z1 A
RowBox[{"x2", "->",
) x+ i2 ~4 O0 Z1 g3 P RowBox[{"Data", "[", 6 H4 e- P- J3 s8 T* N0 o" z
RowBox[{"[", 9 ?4 v2 z) G/ m( U4 k
RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",",
+ z# [/ J: ]4 E RowBox[{"x3", "->",
2 f" e; C( L B, t9 P RowBox[{"Data", "[", - P# s% Z, `* }; V2 F
RowBox[{"[", " D$ S3 s+ c3 y6 F- e& a& A
RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",",
$ T# S2 I; `% l* w RowBox[{"x4", "->",
/ w" T8 h' Z2 q" U* A- f: s RowBox[{"Data", "[", ' m& d5 p7 W9 Q' Y
RowBox[{"[", $ z% }7 `+ e3 l2 D' q, K
RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",", / s! R+ |' z; m+ a; _7 Y+ z
RowBox[{"x5", "->",
j8 b; _0 ^$ F2 U3 d, Z/ G' B: b RowBox[{"Data", "[",
4 y9 ?* x' K7 }) r1 { RowBox[{"[", . m% l+ w3 o5 q/ S$ F
RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",", 5 j( u! E7 H* K5 h$ B" e
RowBox[{"x6", "->",
: q; s) L6 i) p2 T$ D8 p/ t7 T! i RowBox[{"Data", "[", & q, b" M$ u8 k6 M& d$ e1 @2 L( F. M
RowBox[{"[",
4 y7 W+ B1 |$ H3 b. K1 b RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",", + \# G* s1 F" Z8 y8 T! l
RowBox[{"x7", "->", % O' y7 P: V# |: e5 K* V" n/ e
RowBox[{"Data", "[",
1 h1 L7 k& ?9 U RowBox[{"[",
/ `3 r$ J1 U4 r( Y! B" P RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",", & ?; i4 _( v7 R0 Y6 p. E# s/ Z
RowBox[{"x8", "->",
0 F0 r( Q; t/ |1 m RowBox[{"Data", "[", ; V4 w1 h& r$ k5 S4 C+ E- J' V
RowBox[{"[", 0 R% B4 n3 ?- K7 Z p. W, ^
RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",", 4 E3 `5 ]) m7 p3 @$ {/ `( W
RowBox[{"x9", "->", & e( a4 b! v7 x1 ~4 T) v# }. f
RowBox[{"Data", "[", : x" M9 o8 K9 x% I$ K
RowBox[{"[", 8 K5 Y( K5 i# T8 M. f4 S1 O
RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";"}], & V1 \2 h" X; U. }; k
"\[IndentingNewLine]", "}"}]}], "\[IndentingNewLine]", "]"}]], "Input",
7 c, p" ^/ M' S/ A& R CellChangeTimes->{{3.5779241165*^9, 3.57792417728125*^9}, {/ d) [( U+ z1 i" Q( y0 s
3.57792428359375*^9, 3.577924585109375*^9}, {3.577958919491543*^9, " M" b7 ~1 w0 v( A) I( W
3.5779589224867477`*^9}, {3.5779619825731473`*^9, 3.5779620676400957`*^9}}],
$ e. v. C' q# k1 O# l
7 i7 w& @: R! \6 ^6 nCell[CellGroupData[{
- x) c9 O) X8 t- B$ E
" m5 ? W' p! cCell[BoxData[
; g8 y) @& m. ` RowBox[{"w1a", "=",
2 H# o" E/ W3 ] Y$ e7 v RowBox[{"LeastSquares", "[",
+ q( C4 Z% s5 u# n: ~6 W6 L/ @ RowBox[{"m60n21", ",", "y1a"}], "]"}]}]], "Input",' S' U7 `7 t# E/ ?4 h2 S4 \$ c
CellChangeTimes->{{3.577924598484375*^9, 3.5779246208125*^9}, {
% z! L( f& O! @" ^* f) ? 3.577924662765625*^9, 3.57792466596875*^9}, {3.577962074644508*^9, 2 A% V( g7 F- U P3 P. R$ |
3.5779620748317084`*^9}}]," L" r8 { M( K5 N$ Q* r0 M
; {: s& Q$ T$ p' N* ~) ~- m/ k2 M
Cell[BoxData[; N. y4 e: [/ C; E
RowBox[{"{",
+ \& V5 {1 m- O% p+ R0 j% b+ f, F RowBox[{"0.32564305572552416`", ",", "0.500820838606441`", ",",
- `4 Z8 a n1 @3 W- D RowBox[{"-", "0.5945873894818967`"}], ",", ! G2 Q2 ^& [( S/ f' U' R
RowBox[{"-", "0.1999688587779198`"}], ",", "0.020180806675835994`", ",", " w7 N# F1 G2 u+ {4 q
RowBox[{"-", "0.03345934908892623`"}], ",", "0.25282438852646905`", ",",
% G f) K: H. M8 l RowBox[{"-", "0.17602467625404622`"}], ",", "0.3961180670900672`", ",",
4 j/ S3 v" U1 S: H# I% k- x "0.02759193650965952`", ",", " D8 R& F8 C3 h$ t% [7 g6 V8 _3 H. |
RowBox[{"-", "0.320472847796449`"}], ",",
9 k1 M; p" Y$ {" y5 V RowBox[{"-", "0.07581214474544527`"}], ",", "0.4812237524557292`", ",", # N& @6 l9 D, u* g- L, [" b0 c) K }
"0.7528674241482847`", ",", "0.6665374509702799`", ",", & p2 r/ h- e+ O; D
"0.22861495086373018`", ",", "0.13092706311748484`", ",",
l/ k6 _9 @/ z- p2 j2 {6 V "0.5252475961933538`", ",", : ?* p; ]. f* x) m8 J
RowBox[{"-", "0.10599338351843157`"}], ",", "0.6670272593678526`", ",",
* R2 d, |. T p "0.23580523388620733`"}], "}"}]], "Output",2 Y l. x3 Z* r
CellChangeTimes->{3.577924621953125*^9, 3.5779246688125*^9,
/ ] H+ ]" `" P1 A2 }5 d: Q 3.5779575884583836`*^9, 3.577958952875601*^9, 3.5779620806661186`*^9, " y- ~8 W' b8 ]/ g
3.578012349875*^9}]
/ T& S0 I; c9 y6 u5 B1 B8 j6 }}, Open ]],
* T) }2 U. u- z4 k
, f7 n; N4 f, \ f5 ^Cell[CellGroupData[{
2 Y# ~ m" Z: A; K4 n: v8 g: B0 b9 b& K( Y8 Y
Cell[BoxData[9 g3 I0 j$ d+ `8 m1 a4 [5 ?
RowBox[{"y1", "=", - ~5 K6 H ]9 N6 k/ w
RowBox[{"w1a", ".", " r+ l" E- k% T7 p" D- \1 W6 T
RowBox[{"{", " \6 q; |" K5 [0 q
RowBox[{
: X5 k1 S3 g3 Z- H- [ "u1", ",", "u2", ",", "u3", ",", "u4", ",", "u5", ",", "u6", ",", "u7", / [0 h7 z2 |( r7 R8 g% Y
",", "u8", ",", "u9", ",", "u10", ",", "u11", ",", "u12", ",", "u13",
9 {. t0 z5 z* W ",", "u14", ",", "u15", ",", "u16", ",", "u17", ",", "u18", ",", "u19", $ b) v# \* `+ b" U5 u9 H( m9 t+ u
",", "u20", ",", "u21"}], "}"}]}]}]], "Input",
4 V" b5 ~/ U+ T4 ~# H% U% B CellChangeTimes->{{3.57792471553125*^9, 3.577924755875*^9}, {$ s) E2 \* c: Z9 D; Z; u
3.577924897078125*^9, 3.57792491596875*^9}, {3.577962095642144*^9, 9 |& ?$ }; G0 W1 H- j5 V/ d
3.5779621231449924`*^9}}],
1 J0 S0 Z4 W8 [! | c! }% m& |. @
Cell[BoxData[ r* h* R- `% K% q! P/ ]* ?$ A
RowBox[{' a- f# y0 V3 V; E- Y& C7 j1 l
RowBox[{"0.22861495086373018`", " ",
; P9 C$ v. T3 d/ G SuperscriptBox["\[ExponentialE]", - P4 Q" }" l1 _. q5 c" X
RowBox[{"3.141592653589793`", " ",
: ^6 }4 c& q2 F$ O; c' B* D+ { RowBox[{"(",
. g3 d8 V5 E2 q( u% m" v RowBox[{
% i5 j8 [: P+ `/ m: }/ r7 N RowBox[{"-",
+ \ o/ D: n+ c SuperscriptBox[4 D9 E1 n/ \& s5 b+ P! Z
RowBox[{"(", 4 s% P; ~( ^/ s
RowBox[{! r/ r9 p$ k' {) r
RowBox[{"-", "0.434783`"}], "+", "x1"}], ")"}], "2"]}], "-", / b! _ p4 r7 ]# E6 K
SuperscriptBox[$ w0 O& C' D& k$ R7 C: y1 ]
RowBox[{"(",
8 r) B' J: z1 Q* n! r' a RowBox[{# S( w/ ~! g2 h7 y8 p
RowBox[{"-", "0.551785`"}], "+", "x2"}], ")"}], "2"], "-",
6 @$ F- X6 I6 p+ u4 |+ w$ t/ L SuperscriptBox[5 ^4 x( M: n8 X9 F( ^1 d( P
RowBox[{"(",
" g3 |6 j# E. O# z' o, i2 [ RowBox[{
* F6 X1 o& w @# u" } RowBox[{"-", "0.530346`"}], "+", "x3"}], ")"}], "2"], "-",
5 ?0 O, [5 \9 ]! R( j# J( z SuperscriptBox[) Y/ u0 X5 P& \" ?/ a' [# ^
RowBox[{"(",
, ]8 }/ }; y& m2 y; K RowBox[{# o2 w/ M0 i2 Z
RowBox[{"-", "0.151651`"}], "+", "x4"}], ")"}], "2"], "-",
6 U+ ]! g8 y' N& U/ T2 k SuperscriptBox[
( ?, S( X+ ~% K& E/ K+ J' M RowBox[{"(",
' P! y3 q7 i# L: n: V2 p" u4 a) m RowBox[{
" J J% X' c o( j( Z RowBox[{"-", "0.79021`"}], "+", "x5"}], ")"}], "2"], "-", 8 s, d# |3 i7 w" I6 }- m' I
SuperscriptBox[
: D- M3 J% B' p4 M; M& C RowBox[{"(",
+ j* E7 {+ _* j RowBox[{; x" F1 D$ \# q4 N. z; e: \
RowBox[{"-", "0.529013`"}], "+", "x6"}], ")"}], "2"], "-", ) E( a( O3 D0 u4 K1 E3 _/ ^
SuperscriptBox[' l. h& ]2 G6 ?8 ]1 A
RowBox[{"(",
9 P0 y4 Z& `! ? c2 R! h RowBox[{
$ Y4 o; p- n' [; K6 n ]7 j# ~; f$ o# y RowBox[{"-", "0.409756`"}], "+", "x7"}], ")"}], "2"], "-", ) {7 ?: o% W& S* ] x$ S0 K
SuperscriptBox[3 n' R2 J( ?5 T4 c
RowBox[{"(",
. V: L7 J( J9 v RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
" c" [7 v$ h- i; v5 ~& Q# i* \% {' d SuperscriptBox[
+ n: r# ?/ l! z& w" C' ` RowBox[{"(", * Q- R) {- D6 C6 p
RowBox[{
9 u& S, b% M7 K( f; d! I RowBox[{"-", "1.`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}], "+",
' [$ n& k1 q5 R RowBox[{"0.020180806675835994`", " ", 9 a0 f: ~- O; l4 H0 U
SuperscriptBox["\[ExponentialE]", 6 }4 u+ C7 r- f& d7 N( _6 F5 R3 l
RowBox[{"3.141592653589793`", " ",
; n" R( X1 c- H* D; F RowBox[{"(",
1 y0 Z$ L- w3 r6 ] RowBox[{+ h/ F( j5 u/ f
RowBox[{"-", # v2 b. a4 X$ l7 H1 i
SuperscriptBox[
. K! s% a6 W$ N RowBox[{"(", ) u1 w* Y% [0 G; u$ Z: x5 k
RowBox[{8 H/ W/ Y' e7 K1 e) W; s
RowBox[{"-", "0.565217`"}], "+", "x1"}], ")"}], "2"]}], "-", / d+ c: n+ @3 b
SuperscriptBox[0 t0 w- {( a- o7 G
RowBox[{"(", |$ V3 S$ _1 ?7 u: {4 O7 Q S
RowBox[{" r0 J( M) X- h( W1 i
RowBox[{"-", "0.71046`"}], "+", "x2"}], ")"}], "2"], "-",
1 f) `* E( s% m) d; t1 s, h SuperscriptBox[# f) D, m: r0 g: ^( \% E( I
RowBox[{"(",
; Q4 l" u6 S+ E, F$ v: H RowBox[{
: \9 A, m7 T; z1 z+ j RowBox[{"-", "0.64973`"}], "+", "x3"}], ")"}], "2"], "-",
4 E# ^% F# V% X5 J( a8 e SuperscriptBox[8 X- |" n/ I) W9 M* w
RowBox[{"(", * q6 t5 S) o0 a6 \, \' _
RowBox[{ Y8 f- r5 {& v0 `( Y3 w. b
RowBox[{"-", "0.119897`"}], "+", "x4"}], ")"}], "2"], "-", * b! W( d; ^& L$ E# u, A" P
SuperscriptBox[8 P, P3 }2 a/ q2 u: X3 [
RowBox[{"(",
. F8 y7 G; a! T0 D% S8 r7 Q RowBox[{
3 D9 E) h$ l/ O) | RowBox[{"-", "0.468531`"}], "+", "x5"}], ")"}], "2"], "-", ; e+ C% ]1 ]. J+ V! e
SuperscriptBox[
4 x; T: i8 H, M$ P/ f+ i$ z RowBox[{"(",
- B9 a9 d$ @$ ^, n+ q) \3 Z% F RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
" ^% T" \1 o! T0 o! z8 Q SuperscriptBox[
6 b* x& _) U+ f$ G! ^ RowBox[{"(",
3 z: V$ O" m$ @" v: ?7 Y7 k RowBox[{) E1 R. N0 h+ F: I) ~# T
RowBox[{"-", "0.636585`"}], "+", "x7"}], ")"}], "2"], "-", 9 p7 H+ G ^7 ?! q8 c M- Z
SuperscriptBox[( {4 H' @- r/ t' o/ g% i( r" g3 U
RowBox[{"(",
2 q& Q# v7 e" c RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", 3 T! O9 g3 n# Q6 m5 L$ q0 Z
SuperscriptBox[
9 C0 U- N& x0 E RowBox[{"(", 4 d! V; }1 p0 S! s$ ^! O) j6 [. a
RowBox[{
6 R9 I2 }- Q& H j RowBox[{"-", "0.766748`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}],
, @0 D/ b/ Z* c: l "+", 4 F6 r( T" z5 _8 k3 |: ?
RowBox[{"0.13092706311748484`", " ", 5 r2 _5 K( l- \9 l
SuperscriptBox["\[ExponentialE]",
& \. h1 C. Q7 I* ] RowBox[{"3.141592653589793`", " ",
( V4 Z$ a' n: p1 k; \ RowBox[{"(",
; P5 g' V+ S' s* \- Y& Q RowBox[{6 X9 \- v" i/ p, t- Z$ }
RowBox[{"-", * Z, n' h+ Z* y% h
SuperscriptBox[) {- R' S3 p2 O$ t9 b. z/ @/ x/ e$ Y
RowBox[{"(", 7 U" X0 K: Q( D( r$ f
RowBox[{
* f4 s+ P/ }# {$ x- y w' s5 R RowBox[{"-", "0.347826`"}], "+", "x1"}], ")"}], "2"]}], "-",
: y2 b6 v2 P5 A( j% T SuperscriptBox[
z k: j9 n. K0 w3 r) a RowBox[{"(",
+ y+ M# c+ V9 F* V" ~" s RowBox[{
: m2 h$ U, t2 B% } RowBox[{"-", "0.705444`"}], "+", "x2"}], ")"}], "2"], "-",
# U6 K( @5 i |6 X SuperscriptBox[
1 `' \7 g8 H/ b* h( Y RowBox[{"(",
7 |0 e/ A/ i2 f# u RowBox[{0 s8 V0 r5 g+ M E/ A( }; {6 N V
RowBox[{"-", "0.109343`"}], "+", "x3"}], ")"}], "2"], "-",
8 K. E- G9 C1 u7 p SuperscriptBox[
9 g$ B/ y6 K2 M3 o: a7 S( N RowBox[{"(", $ T S6 n% [/ O# N) A
RowBox[{
2 B; k" \' M, m# m! N" C$ n RowBox[{"-", "0.072008`"}], "+", "x4"}], ")"}], "2"], "-",
% C9 Y0 t" s/ m5 F' |. I; ~+ j SuperscriptBox[+ v8 h8 q2 V9 a! O8 P3 W' f
RowBox[{"(", 0 c+ ~% G5 Q5 X3 S
RowBox[{
0 I+ U! D- F x' w& C RowBox[{"-", "0.496503`"}], "+", "x5"}], ")"}], "2"], "-", , P. w3 [' T4 N3 j
SuperscriptBox[
3 x( N5 f" y2 m1 O RowBox[{"(",
9 F% d1 Z& u3 d7 K4 A' [- @ RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
% ?! `0 |! N' D V SuperscriptBox[
1 U( x$ G& ]3 r9 j2 P( ? RowBox[{"(", 1 F/ ~- x, ^. ?+ p J, O
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", ! v/ @7 |- Y d6 v$ G+ J# o* y, ~' x
SuperscriptBox[
w1 W5 j+ a7 b; d RowBox[{"(",
& W6 Q) t7 V& p/ k6 ` RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
' Y8 F* n; H) Q4 O+ Q* M5 X SuperscriptBox[
& {$ @9 f( i, _& i RowBox[{"(", ! Y2 n* {( { ^7 w2 c6 j
RowBox[{
& i! V d2 P7 G* `. G, d RowBox[{"-", "0.752567`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}],
6 h _& N3 }; D+ H/ ^ "-",
5 \! D7 z2 s0 h, Y. X2 [ RowBox[{"0.03345934908892623`", " ", ( j' I8 o2 C. q* Z1 s# A
SuperscriptBox["\[ExponentialE]",
! G) E" T4 L+ s3 q/ V5 x% L8 x) D RowBox[{"3.141592653589793`", " ", L6 e/ t4 p5 E
RowBox[{"(", ' d5 P- c: y- }8 k+ B
RowBox[{- |# R; j: z- N6 [
RowBox[{"-",
, p) _; ^' N* V. I SuperscriptBox[
+ o4 i; M( S/ C: L* }% s E RowBox[{"(",
1 T8 o! h7 A" Y+ Y7 N( f RowBox[{$ T# [9 Q1 N: s: Z; @7 D1 ?
RowBox[{"-", "0.130435`"}], "+", "x1"}], ")"}], "2"]}], "-",
9 I# ]; B' j) ~: H' }0 R4 H( c' z SuperscriptBox[& S" e% K) J9 Z( m n q2 ?
RowBox[{"(", 6 f7 J3 E, K5 o- g$ S1 k" C
RowBox[{1 L/ }. F, Q' L0 p; [
RowBox[{"-", "0.682724`"}], "+", "x2"}], ")"}], "2"], "-",
( Z, g* M3 E; Q( o+ ?4 n _ SuperscriptBox[8 r: Y" \% w$ W8 a, L/ x/ ^
RowBox[{"(",
% v1 P) w% ^7 ^, V RowBox[{- C1 q2 {4 r) r3 A& @
RowBox[{"-", "0.258697`"}], "+", "x3"}], ")"}], "2"], "-",
9 w8 o1 F$ V3 w SuperscriptBox[! h% V/ h: d/ I6 q* U9 u
RowBox[{"(",
V) p2 s9 _* l: N' U& D RowBox[{# s/ P s" ]: |, E* |, Y9 m3 x
RowBox[{"-", "0.019299`"}], "+", "x4"}], ")"}], "2"], "-",
/ h- V! K( E& c g% \0 Z SuperscriptBox[( o/ R5 _. d$ T3 c5 }
RowBox[{"(",
, r) V4 U. D2 M! k5 \, D) ~ RowBox[{' U, p8 `$ ^+ p6 i
RowBox[{"-", "0.51049`"}], "+", "x5"}], ")"}], "2"], "-", / m5 g0 K1 P8 X( y! c2 ~
SuperscriptBox[( q5 r& \, x2 A- I/ j
RowBox[{"(", G3 T' e0 u. g; v
RowBox[{
+ @$ D7 Q/ E, B" T( e) C RowBox[{"-", "0.420497`"}], "+", "x6"}], ")"}], "2"], "-",
. j; ?2 X+ n0 ?3 y SuperscriptBox[- V2 m# x4 \: B% _- q
RowBox[{"(", 9 y+ d/ u' J! b. u% r% G n! J
RowBox[{' f2 x2 K! o$ [8 K; Z
RowBox[{"-", "0.535772`"}], "+", "x7"}], ")"}], "2"], "-", 3 q7 X+ N" C8 E# v' p5 K% ]
SuperscriptBox[
$ ^* W5 y& r6 r$ }- ]+ N RowBox[{"(", + s$ a" ^- J% i6 n& O
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
6 j+ T1 [8 ~0 P; k9 E( Y! ~& v SuperscriptBox[
0 D) t c# u" V$ I RowBox[{"(",
5 i5 C3 R. t8 v: W RowBox[{
0 j; L. H! G* A7 i RowBox[{"-", "0.494866`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}],
. C$ R8 p. ^, p q0 Q" G "+",
' t0 a; P' s9 l, @* U. N RowBox[{"0.3961180670900672`", " ", , f" ~# x: W3 w4 c9 H3 T( S
SuperscriptBox["\[ExponentialE]",
$ g! H ?# y. L( x' U RowBox[{"3.141592653589793`", " ", 8 Q/ u) ]0 p3 \" r$ n; q# F) W
RowBox[{"(",
; d D, `, o( F7 _ RowBox[{; F$ M: e# [2 {) Z7 p
RowBox[{"-", : V1 ^: D5 q. z5 V% b
SuperscriptBox[3 Q& R, w, f- @- x4 L
RowBox[{"(",
3 q. Z# ]* I8 b, i5 ?2 p1 K( K RowBox[{"0.`", "\[InvisibleSpace]", "+", "x1"}], ")"}], "2"]}], "-",
; Z8 b( G, Q! }2 _ SuperscriptBox[7 f0 S" l. M8 t$ s/ [3 U; a
RowBox[{"(",
- a1 f& Y5 h* L# h# `1 I4 ?( B2 ~ RowBox[{. R. T: O+ W% l
RowBox[{"-", "0.395544`"}], "+", "x2"}], ")"}], "2"], "-",
9 s( h% n( {; B& k4 o) J SuperscriptBox[
( C- G' X$ d0 {! c* L* k RowBox[{"(", ( S* A) B2 o1 E$ q" b% z0 r+ M+ |* v
RowBox[{: Q- G7 ?0 ^$ B2 F W
RowBox[{"-", "0.027011`"}], "+", "x3"}], ")"}], "2"], "-", }! c- g, A0 D* c& {9 w
SuperscriptBox[# U' y! U' N0 P3 h1 l5 d
RowBox[{"(",
- c; \# L5 C P; [5 X$ ]5 w0 g RowBox[{
/ K+ b' r; m2 B; S) O RowBox[{"-", "0.048087`"}], "+", "x4"}], ")"}], "2"], "-",
5 ^5 t0 f4 I8 z! \ SuperscriptBox[; u& ^. J3 G; A+ y2 [% s3 q
RowBox[{"(",
( ]$ P7 S' Q% X0 \9 {$ m3 ~. \ RowBox[{7 k' u. J8 ^2 b- C- c; g* A4 M# L; R/ w
RowBox[{"-", "0.496503`"}], "+", "x5"}], ")"}], "2"], "-",
3 [, x! Z# q! n6 {% E SuperscriptBox[3 x$ C# k4 S6 D7 n' Q% t9 Z
RowBox[{"(", # Z% ?2 l- s" c' _& f% Q9 u
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", 2 E; M; ?. d) M
SuperscriptBox[
5 |4 @. `' B( f! q; W" G: T RowBox[{"(", 8 n8 }5 t" n+ T
RowBox[{
. q5 {5 a f- V' P5 {/ [ RowBox[{"-", "0.452033`"}], "+", "x7"}], ")"}], "2"], "-", ) d9 B% ?+ _* Y( i2 ^" a& g
SuperscriptBox[/ U0 q& G1 f5 N7 a- s& T
RowBox[{"(", ; R w9 P# C* }( c R
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
0 H- s A- j; B/ B SuperscriptBox[' O& J& Q( Q/ b, h
RowBox[{"(", & w Y/ f j8 J8 n) m7 c5 O" B
RowBox[{; q/ A- m. F$ G4 ~
RowBox[{"-", "0.278729`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}],
# K2 g& i8 E' h" L( \2 @( w "-", 1 Q Q# Y5 L( Q7 \- q. y! U; f
RowBox[{"0.1999688587779198`", " ", - `& o0 T9 A# c* {
SuperscriptBox["\[ExponentialE]", 1 @2 r% ~5 `; H6 M. i
RowBox[{"3.141592653589793`", " ",
. D8 C5 z4 P" t* B8 G RowBox[{"(", - t( e2 W5 z# n. L8 e ^- X
RowBox[{
& b* R" c/ }' Q" }. ?6 ~ RowBox[{"-",
1 r0 C( O4 G4 n4 X SuperscriptBox[7 I8 U$ o* A% r
RowBox[{"(",
3 Z2 b O8 a+ c7 F RowBox[{) W/ @* m0 w& P) d
RowBox[{"-", "0.565217`"}], "+", "x1"}], ")"}], "2"]}], "-",
) o% c! n9 u: S# ]7 M/ X SuperscriptBox[8 k. K# O0 ^9 \' q& E7 @7 Z: E
RowBox[{"(",
; K4 u: p/ ^; P% s- ^ RowBox[{
' l1 k4 s7 B, ?% _6 X, ~$ y RowBox[{"-", "0.705518`"}], "+", "x2"}], ")"}], "2"], "-", 1 }3 d/ y/ h" F2 C6 t; {; X
SuperscriptBox[
1 e5 d! @8 ~1 V, E RowBox[{"(",
8 {3 S* s! G6 S: \# \4 } RowBox[{" u4 N# W# s: G0 @ t
RowBox[{"-", "0.510223`"}], "+", "x3"}], ")"}], "2"], "-", 4 H2 m8 L, T/ T4 X( t1 _) Z
SuperscriptBox[; t$ M; j& U. F. V
RowBox[{"(",
! D1 u9 `* a' O RowBox[{$ u7 f. F) Z* V1 G3 r* p
RowBox[{"-", "0.066892`"}], "+", "x4"}], ")"}], "2"], "-",
" v% J6 ]' K. R* o4 J SuperscriptBox[
" N5 I" h9 x- S# { _ RowBox[{"(", q3 D0 ]: c5 b2 \
RowBox[{9 b1 s1 b, _1 K6 R) X( L( H
RowBox[{"-", "0.244755`"}], "+", "x5"}], ")"}], "2"], "-", $ S8 `! m: Y6 \, F+ ?) ]
SuperscriptBox[5 x2 C, t' M& V' g& f9 n
RowBox[{"(",
( x. E: }/ C1 u3 }# b, f7 X( ~ RowBox[{! E. \# @! {# i
RowBox[{"-", "0.748304`"}], "+", "x6"}], ")"}], "2"], "-", ) d. _6 w, F8 c+ s' C1 p0 Y! P) K, t
SuperscriptBox[# q0 g+ D: m" i: U ~7 E: D( G
RowBox[{"(", 5 `- I" A* g/ Q6 M6 F
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
6 G0 O" F. K5 y8 o6 Z SuperscriptBox[
/ t# c& w- }/ {! j* J RowBox[{"(", - l* H! X! S& x8 Y
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
6 g# Q0 P$ n0 \' R" H) y+ { SuperscriptBox[
8 s& p4 J& T$ }( E RowBox[{"(", . S8 g) ?) W: _9 [- }$ c
RowBox[{6 o+ r- J8 y) y" A8 G: u. B
RowBox[{"-", "0.243032`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}], 4 u( i, k# t& b, n
"+", 6 V& l* _ _% f! e% G' v
RowBox[{"0.23580523388620733`", " ", ' G6 t/ K& ]9 k5 N
SuperscriptBox["\[ExponentialE]", / u$ p2 {& K9 \! q# q9 m! }% g- d" @
RowBox[{"3.141592653589793`", " ", : y' r( p$ Z1 O$ Y3 G( c7 F9 ]
RowBox[{"(",
8 \ `; d: l% O" ^1 X6 n! p2 [) | RowBox[{. k1 S1 J7 ~- O! O$ N y
RowBox[{"-", ; k8 {2 @$ \1 Z+ Q! d; [4 j, d$ @) D
SuperscriptBox[- z9 J8 K( E& E4 B% U, j
RowBox[{"(",
# j6 k. B# A" r RowBox[{
% e0 s: D. u* `4 m' A$ c RowBox[{"-", "0.608696`"}], "+", "x1"}], ")"}], "2"]}], "-",
9 V- M% ^( a& c SuperscriptBox[. X* g9 \2 D: |6 h' Z4 f# j
RowBox[{"(", " x+ ] F: B: N0 D0 R
RowBox[{
8 z/ e% ]8 l% Z8 V% B" | RowBox[{"-", "0.606152`"}], "+", "x2"}], ")"}], "2"], "-",
2 B) x- d- M" k8 n0 G+ g SuperscriptBox[7 t+ R/ \' J; }3 t
RowBox[{"(", , W( @1 [6 D1 k4 {$ ~
RowBox[{
9 v# i3 S' |4 M! T" e- e RowBox[{"-", "0.158058`"}], "+", "x3"}], ")"}], "2"], "-", % s4 P* J" t4 u
SuperscriptBox[2 r- Z6 J" Y0 d2 i+ \6 M3 b
RowBox[{"(", % Q6 K! U/ ~$ {0 |! D
RowBox[{
7 F0 O7 ~- O6 K _0 q8 L7 u RowBox[{"-", "0.09017`"}], "+", "x4"}], ")"}], "2"], "-",
6 X- A& C% H2 v1 e SuperscriptBox[
9 i6 i4 `" ?! B/ }7 m2 q* \ RowBox[{"(", $ s4 A9 p# O" v5 Z8 `- u3 l
RowBox[{
1 y, M- H, Q, S& X: m RowBox[{"-", "1.`"}], "+", "x5"}], ")"}], "2"], "-", 5 U ~+ @( w) i6 h# Q5 F' x$ g( L
SuperscriptBox[
& _6 N2 ~8 P9 }0 e6 A" k- c RowBox[{"(",
( X* ~3 o1 N2 S6 T v2 Q1 q0 o8 u5 x RowBox[{
& f5 Z: Q j* p' H3 {) o RowBox[{"-", "0.166541`"}], "+", "x6"}], ")"}], "2"], "-", * K$ i# z- y- u$ a/ v
SuperscriptBox[/ F, c% C, f3 n- g8 y+ }
RowBox[{"(", 9 S& n. k* b& V3 Y- A8 A7 z
RowBox[{
2 m6 D; v1 f2 b* [! a7 \ RowBox[{"-", "0.278049`"}], "+", "x7"}], ")"}], "2"], "-",
; A9 S2 k$ r& J U4 J; s& F SuperscriptBox[
. n( [, w+ n6 D) l+ g7 P0 c RowBox[{"(",
& |& _/ @+ q( A/ G( z, \ RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", , M6 O) L/ i6 e& n
SuperscriptBox[
& ]5 w/ I4 T3 ^) b( B RowBox[{"(", 7 n z& A9 \, }3 a- w1 `( Y* s
RowBox[{; a( v' l, |( z- k# E- ~6 O" k) L! [9 }
RowBox[{"-", "0.236675`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}], 2 [6 z/ C; ^0 }" J- z! i6 ]
"+",
7 l0 r) z1 z2 o7 A RowBox[{"0.6670272593678526`", " ", 7 [0 N0 b4 x/ k1 o* M( u
SuperscriptBox["\[ExponentialE]", 2 e9 E6 l5 [7 t1 b2 h8 f6 h
RowBox[{"3.141592653589793`", " ", " x4 R. ^: _, c; _) ?& J" J& G
RowBox[{"(",
7 Q7 P5 p9 i* m$ B# u8 k RowBox[{
9 Z2 z u( h# w3 N/ U RowBox[{"-", 3 m8 P3 O8 Y; `. X/ U% d% J! n7 H5 i ]
SuperscriptBox[+ t6 D* G. |3 d$ ?
RowBox[{"(", & E5 W) u9 U- I1 p8 ?8 C2 F$ L
RowBox[{
) N5 A1 X- W% k+ Z8 t) q/ S4 K RowBox[{"-", "0.782609`"}], "+", "x1"}], ")"}], "2"]}], "-",
6 }. |: V" t ]( ^ SuperscriptBox[
) Z2 l: R8 f9 t. d) k& V RowBox[{"(",
& H& A9 L" l- l$ Q+ F RowBox[{9 X0 m& S- G/ U2 ?9 D+ ?: `
RowBox[{"-", "0.751623`"}], "+", "x2"}], ")"}], "2"], "-",
5 J! J, w! a, ~3 ^( E- |0 b( H SuperscriptBox[
5 y0 E0 A. ?( J$ T RowBox[{"(",
3 N' h: G& g/ q- I RowBox[{
' x+ `6 `2 f" Q2 g/ J. b) o2 Q" ] RowBox[{"-", "0.177646`"}], "+", "x3"}], ")"}], "2"], "-", & S4 K% x4 `' T+ Q$ G4 U C
SuperscriptBox[3 B# }8 ]$ h* R
RowBox[{"(",
# m1 z2 p( v$ [2 Z- P RowBox[{* U0 j7 w7 o: Z) S
RowBox[{"-", "0.350845`"}], "+", "x4"}], ")"}], "2"], "-",
4 B9 }/ L9 W2 { SuperscriptBox[. Q) j- j6 u$ n* S1 a
RowBox[{"(", ) K2 H. `% K# l8 a
RowBox[{ H) @- y. c2 M) L4 K( Y; p7 v
RowBox[{"-", "0.412587`"}], "+", "x5"}], ")"}], "2"], "-",
+ U. G% d/ O, H9 z' v1 o SuperscriptBox[
0 `' l8 k M8 W. f+ i RowBox[{"(",
8 k% n, J) H/ d: D" s" c( `0 D RowBox[{
6 j- |# C( k: P+ z7 m8 |# [& i RowBox[{"-", "0.502638`"}], "+", "x6"}], ")"}], "2"], "-", # f1 _$ w0 p5 p/ g$ ?
SuperscriptBox[; Y% F' N# g4 Y/ k8 S5 Z4 ~% `
RowBox[{"(", 3 ?0 P6 m3 T: p' `( y
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", `/ X) j5 F0 R- X% H6 A; I, F
SuperscriptBox[
, Z2 W* @ j; k% K1 H RowBox[{"(",
& u; r1 X+ g s7 N; ?3 i: r3 W& p RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", t& C9 \3 ]2 T/ {% z$ I0 j
SuperscriptBox[0 r8 Y$ j! f4 {1 v- O1 k
RowBox[{"(", # }: W* a# J3 L4 B
RowBox[{# m- u+ A) f3 @0 n( f, _' L
RowBox[{"-", "0.178973`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}],
) c( ~0 J+ p8 L' t( H( o8 W "+",
6 `& u+ o5 a1 x. T8 u. I RowBox[{"0.25282438852646905`", " ",
* {0 y" Z+ t/ k; @ SuperscriptBox["\[ExponentialE]",
# G; j) H" j$ q0 l RowBox[{"3.141592653589793`", " ",
4 G' u+ U4 K- L RowBox[{"(", " \( s0 h2 z8 `5 M( { @
RowBox[{
) c0 M* Q$ d% Z' ]6 y5 ^5 ]7 ]1 v RowBox[{"-",
! m6 u3 O) u4 R SuperscriptBox[+ C0 x" g$ x; P5 V! c
RowBox[{"(", 0 l, r$ z1 s$ j. u, r
RowBox[{
' x* X5 ~ u1 q5 f3 G RowBox[{"-", "0.695652`"}], "+", "x1"}], ")"}], "2"]}], "-", f5 K0 a! ?+ h: s3 y
SuperscriptBox[/ z7 t+ [& s4 l2 z5 h
RowBox[{"(",
! `( u, C! T( D/ H w7 J' L RowBox[{$ O- f0 i* K: w9 r" ?1 n
RowBox[{"-", "0.71828`"}], "+", "x2"}], ")"}], "2"], "-",
6 Z# T0 J. \% Q3 n& _ Q' B SuperscriptBox[0 F" e6 Z$ r- }/ \1 R. b
RowBox[{"(",
: c- c; F k: s* P/ b) _; X u3 P RowBox[{, S% T* a6 i, t* H" R7 V2 L3 g: _0 I
RowBox[{"-", "0.33973`"}], "+", "x3"}], ")"}], "2"], "-",
( h6 D' Q' |0 i" t1 r$ {3 D SuperscriptBox[
1 b: R! V; Z# ]- I- W RowBox[{"(", $ O( ~* e' G" n* A
RowBox[{
. n' m X4 Z# J' p RowBox[{"-", "0.110285`"}], "+", "x4"}], ")"}], "2"], "-", , |" d* P |$ o8 h/ i! \3 ^
SuperscriptBox[2 O1 X2 E$ E6 F$ y' M9 p- V O7 w
RowBox[{"(",
# L; D6 h# K! w6 `5 p) z) Q6 { RowBox[{6 H% D) M- Y2 w- g5 U5 Y$ P
RowBox[{"-", "0.335664`"}], "+", "x5"}], ")"}], "2"], "-", + h, b7 D9 ~5 L* o7 j4 z
SuperscriptBox[7 R8 ^8 q9 z4 N- C( a& s9 @% B- A: c
RowBox[{"(", # w. o9 i) ?3 R M) o/ }! X! G6 o
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
a( C" M+ s- i8 F. [2 r- p) P- @" D SuperscriptBox[: ^. y+ c; F9 _* q
RowBox[{"(",
9 e* L9 I& w$ l RowBox[{
; W, c+ b; {4 G1 C RowBox[{"-", "0.636585`"}], "+", "x7"}], ")"}], "2"], "-", 8 b/ r, F' X, C. H
SuperscriptBox[
2 ^8 n* d! k T$ k RowBox[{"(",
- z P% ?6 Z1 s RowBox[{- A) Z4 b t* @
RowBox[{"-", "0.780463`"}], "+", "x8"}], ")"}], "2"], "-",
+ m. Z: k( ~( v SuperscriptBox[3 ]5 u$ g& m8 _6 ?. S5 B) S- c
RowBox[{"(",
) v; G% C, T0 r. I, v* { RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], 8 ~' B& D* m1 d/ L
")"}]}]]}], "-", % r/ Y! h C+ ~! u: |
RowBox[{"0.07581214474544527`", " ", / C6 k6 O; `8 W% D3 D5 W
SuperscriptBox["\[ExponentialE]",
6 e: E) C3 `5 @; [0 w. G! g RowBox[{"3.141592653589793`", " ",
9 c8 `) N' J7 R! e9 M' b' x( [ RowBox[{"(",
: n4 |5 E5 n! ?/ X, C RowBox[{
6 W d; _+ s0 u9 k* F RowBox[{"-",
5 R2 N R' n5 c1 M3 U SuperscriptBox[
( x2 r* H/ K1 X$ L' }7 X$ v' B# ~; ^ RowBox[{"(", 5 b7 h( G, u4 B* O5 t
RowBox[{
( c, x$ T; o" M) b) l$ I& a RowBox[{"-", "0.913043`"}], "+", "x1"}], ")"}], "2"]}], "-",
- ]# E) G, s0 b$ q5 n SuperscriptBox[
) S K2 U; q v& r RowBox[{"(",
: H3 x+ n8 i, L, j/ N. V RowBox[{
5 J) Z" H1 H* X1 Z RowBox[{"-", "0.170478`"}], "+", "x2"}], ")"}], "2"], "-", , ^4 k# N1 P1 t) C6 q
SuperscriptBox[2 W0 G2 a8 _- Z0 K; U
RowBox[{"(",
) z- u/ N/ u% L- K RowBox[{"0.`", "\[InvisibleSpace]", "+", "x3"}], ")"}], "2"], "-", 9 q$ e& G2 ^4 v6 ?3 r: U
SuperscriptBox[" a; j# k' G4 Y; v
RowBox[{"(",
: U) N. X1 f- J1 m1 W3 ~ RowBox[{4 \' k- @& A9 e7 E
RowBox[{"-", "0.012973`"}], "+", "x4"}], ")"}], "2"], "-",
5 ]2 J9 Z0 c+ O' I z' k SuperscriptBox[
" F& R( i4 _ W, P RowBox[{"(",
/ o& o% {" Y9 T. J& I RowBox[{9 u1 h9 X- m+ T: v; p* P O
RowBox[{"-", "0.293706`"}], "+", "x5"}], ")"}], "2"], "-",
8 O9 l% f0 F& {& { SuperscriptBox[
- n# _& m* s& j+ p; `6 \1 d RowBox[{"(", 5 x) q1 K0 J& H
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
5 F2 C8 }2 |: e) U& C5 L SuperscriptBox[
8 ~. k _. Q8 ~* J/ N. D; { RowBox[{"(", 3 Q {; v" T. p/ j
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", $ S8 n8 j1 m% q
SuperscriptBox[
9 U; K+ c% n1 @* L/ z' ^7 n3 p RowBox[{"(", + ?$ V0 s- g: E. M. N, P
RowBox[{# L' p \8 C o. W0 c( j9 s
RowBox[{"-", "0.672709`"}], "+", "x8"}], ")"}], "2"], "-", ; I: m; O! Y' d) H u
SuperscriptBox[, @. J' Q) V# H1 Q
RowBox[{"(",
% r$ D4 ~6 G2 }! b* T4 J9 j% D RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
# H# t8 l& U/ L- E/ D } ")"}]}]]}], "-", , S0 g) y+ ~6 l) i
RowBox[{"0.10599338351843157`", " ",
* J# T0 k" V9 c SuperscriptBox["\[ExponentialE]", 2 x+ B' q" |/ a2 Z+ A+ i% z
RowBox[{"3.141592653589793`", " ", ( Q0 {! p0 L- r, g3 l$ o( a( |/ D
RowBox[{"(",
/ D6 U& M, z" k7 }- k RowBox[{
4 w6 _' e3 \- K% ^4 `& T4 Z* I% L RowBox[{"-", & |( |4 p, u: u. g) ^
SuperscriptBox[2 `% M& L0 r" T
RowBox[{"(", . {3 a& f; s& X: P7 q. A4 E
RowBox[{
( J' t0 E* w7 d" e3 Y RowBox[{"-", "0.391304`"}], "+", "x1"}], ")"}], "2"]}], "-", $ V' t; A: \4 G, t# I5 B% r
SuperscriptBox[
3 S: g% y# f4 f- |: G RowBox[{"(", ; d: F$ ^ F) _7 s# i8 E
RowBox[{, O B1 |) d! z7 ?! N& o
RowBox[{"-", "1.`"}], "+", "x2"}], ")"}], "2"], "-", 0 e* U! x, X8 T( P
SuperscriptBox[
- b5 y$ |/ C$ L) ~4 t* b ] RowBox[{"(", 5 s+ V) g9 w9 g, \6 [9 `
RowBox[{
5 ?! @1 \; i' t( B; l) K+ C2 Y RowBox[{"-", "0.452931`"}], "+", "x3"}], ")"}], "2"], "-",
8 M1 z. o9 [, b8 d SuperscriptBox[7 p: @2 F# e0 z* P
RowBox[{"(",
, @7 Y( S' U9 `: B: J9 R) m5 e RowBox[{" @) u% X5 Z9 l4 S! l
RowBox[{"-", "0.150909`"}], "+", "x4"}], ")"}], "2"], "-", : W3 p0 t! H. X8 m1 R
SuperscriptBox[
* B) ` a1 Q% m" Z) ? RowBox[{"(",
8 n, F4 G& ?5 I RowBox[{$ Y4 d2 V. W) J0 W9 y4 N
RowBox[{"-", "0.342657`"}], "+", "x5"}], ")"}], "2"], "-",
5 f' A2 R: g7 G+ Z3 a SuperscriptBox[
3 G6 p) B* o. M9 x4 _4 Q( ? RowBox[{"(", % c+ ~$ U1 S, v8 {$ t' ?
RowBox[{
: q- h* W ^9 ]7 I RowBox[{"-", "0.370761`"}], "+", "x6"}], ")"}], "2"], "-", 8 w4 F' I+ h+ p; w6 q9 @3 s
SuperscriptBox[% F( f( B/ O. \6 I* I
RowBox[{"(",
) [( Q+ P9 l4 O: d RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", & \! s2 H& u/ Z0 [4 `: o, U. W
SuperscriptBox[
0 I0 M' c. z/ o( n; ^ RowBox[{"(", * D/ a+ E- \- A: I1 u+ s% S( i6 j
RowBox[{/ L/ k7 r2 w5 Y! v& k# F
RowBox[{"-", "0.509567`"}], "+", "x8"}], ")"}], "2"], "-",
% N0 l0 J9 \1 A ?7 b' K) R SuperscriptBox[% U' m( c( l% {- v6 J3 X9 ~9 m
RowBox[{"(", / L; n; }9 \, o2 D7 O) [
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], 2 p, h4 }9 \# q0 C7 }+ i, C
")"}]}]]}], "+", : Y$ S2 X( @3 R( O+ f8 c
RowBox[{"0.500820838606441`", " ", % A. H, n; j1 q4 k$ q, G7 ]
SuperscriptBox["\[ExponentialE]", ; U/ O1 }. {' T5 `; v- M
RowBox[{"3.141592653589793`", " ", ; @3 `: e6 {: Q) ?
RowBox[{"(", & [, G0 w- [ T0 `' z
RowBox[{
. o6 I) B) o4 Y2 G9 L( u RowBox[{"-",
4 N+ T! x: L r( T" w" L; ? SuperscriptBox[
4 R3 ]; u. Q/ r% f* y. U RowBox[{"(", $ l7 p& S2 x3 f v6 W
RowBox[{
4 C! U1 }- _( h! H RowBox[{"-", "0.608696`"}], "+", "x1"}], ")"}], "2"]}], "-",
. y8 g' |2 t0 z' z6 p SuperscriptBox[
+ f. y3 Y* g# ?' z) s RowBox[{"(",
, t$ Q& x( l$ c+ B* N RowBox[{/ @; s: f p4 C! U
RowBox[{"-", "0.339186`"}], "+", "x2"}], ")"}], "2"], "-",
- D" N- D- d# q# r SuperscriptBox[8 ?8 q8 A8 \( H" q! J4 m
RowBox[{"(",
0 i4 p# D6 b8 M: h4 P' f RowBox[{' e1 z) p, U* R. ]. J' o$ E7 o
RowBox[{"-", "0.4943`"}], "+", "x3"}], ")"}], "2"], "-",
( C' _; m9 C! r: K+ M SuperscriptBox[2 @$ G: i# j f
RowBox[{"(", 9 u/ c, t. Q& T' \+ a6 q
RowBox[{
+ O( f$ U- \0 r5 ?' k RowBox[{"-", "0.099338`"}], "+", "x4"}], ")"}], "2"], "-",
& w* G8 R9 _4 t7 @7 Z SuperscriptBox[
& y7 b p1 ~0 S# v$ c P RowBox[{"(", . p/ g" D( D+ `+ S2 r& D2 P6 T6 x
RowBox[{1 F: F0 d. M! U* P k! i
RowBox[{"-", "0.321678`"}], "+", "x5"}], ")"}], "2"], "-", ( B5 D; |; S7 c1 Y2 v
SuperscriptBox[# n* b7 N, k0 w P* {
RowBox[{"(", $ Z- i) J; W3 l% E1 p c
RowBox[{
6 B% f8 O! p, T2 T' `1 [& h RowBox[{"-", "0.375283`"}], "+", "x6"}], ")"}], "2"], "-",
) K# |" C0 B9 d6 L SuperscriptBox[" |1 U E& z) ?8 e4 v
RowBox[{"(", 5 U1 r; [8 r% R9 v
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", / s; M% z+ r! J
SuperscriptBox[
) ]& N, j/ X' T- N* o' q/ Z$ Q( P RowBox[{"(",
( y$ |/ s' l1 { RowBox[{
( A) o0 K+ W X: j8 C2 N6 x: I- j RowBox[{"-", "0.505539`"}], "+", "x8"}], ")"}], "2"], "-", % h8 n: E2 i; H z7 W2 \
SuperscriptBox[; i+ F/ b1 ?% t& K
RowBox[{"(",
* ^ H3 t& ?5 w& a5 x) A; p4 [ RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
! b1 [! W r9 G, ~, U8 w ")"}]}]]}], "+",
% g9 q* p/ F2 f# e+ ? RowBox[{"0.32564305572552416`", " ", + X% Q9 d, [; q$ t( W4 H
SuperscriptBox["\[ExponentialE]",
1 @+ @7 v2 W) k& A. m# p ]/ m' U& Y RowBox[{"3.141592653589793`", " ",
, q$ T7 m' K5 b0 O; } RowBox[{"(",
- h3 f: i3 F6 _) P# a3 G RowBox[{
, c/ S2 e/ ?6 \" c) `- D RowBox[{"-",
* K$ z, m' t( V9 k SuperscriptBox[
8 [( `8 L2 W( F0 L+ b! T% S/ f RowBox[{"(",
3 r8 d4 b# v5 A0 M0 U6 \ RowBox[{# B, ~5 E7 o( f/ r
RowBox[{"-", "0.304348`"}], "+", "x1"}], ")"}], "2"]}], "-", $ x; V' I2 q6 {* o# L
SuperscriptBox[
9 s1 f. O2 |. t' a- B! \7 W RowBox[{"(", " W1 \$ D# H5 i |% F% [
RowBox[{6 V! Q$ `2 l. o6 L, i# A& @" r6 h
RowBox[{"-", "0.552818`"}], "+", "x2"}], ")"}], "2"], "-", 4 y8 q% {4 \& R4 {; M4 C4 d
SuperscriptBox[
8 X/ {0 Z& ?# O/ ?8 h$ J6 N RowBox[{"(",
& y9 R( P4 e* |+ _6 ` RowBox[{
; U; f7 @, `1 P; h h6 F5 z% w6 i RowBox[{"-", "0.33037`"}], "+", "x3"}], ")"}], "2"], "-",
4 w: x$ l: K F8 ~ U! I$ w SuperscriptBox[
- {, C! H) b" I& `) x7 i! F! i RowBox[{"(",
: P( v) ]' c1 Z RowBox[{
; E; \1 k9 Z* }4 H( D; \1 V RowBox[{"-", "0.025823`"}], "+", "x4"}], ")"}], "2"], "-", ' c8 y' {& l& ]( _. h
SuperscriptBox[2 x6 J* G7 y& j! V z1 @5 p
RowBox[{"(",
) d) y0 k4 Y! S) K! ?5 f& D9 b6 @ RowBox[{: b! m$ ]/ k8 G: u1 Q
RowBox[{"-", "0.538462`"}], "+", "x5"}], ")"}], "2"], "-",
, g" q- l* d( Q1 G$ @( \ SuperscriptBox[
* k5 E9 x" a8 m" T RowBox[{"(",
1 C1 j, y0 Y6 c' ^ RowBox[{
5 m q+ [) U( y( K8 v RowBox[{"-", "0.752072`"}], "+", "x6"}], ")"}], "2"], "-",
! X0 \+ s, {" f# ~7 T SuperscriptBox[2 M0 k$ o. [) @+ |& J7 _
RowBox[{"(", : |; o, l* D9 }) I; Q' W, f
RowBox[{
+ {' n( V# I7 | RowBox[{"-", "0.408943`"}], "+", "x7"}], ")"}], "2"], "-",
3 @" [3 r5 N% x- X* @ SuperscriptBox[
; f- A9 {! n' y' {: ^ RowBox[{"(",
$ j0 L4 [6 L3 b' o& g RowBox[{
7 b2 C* s' V# j7 W. t/ ]4 g& r RowBox[{"-", "0.504532`"}], "+", "x8"}], ")"}], "2"], "-",
7 k- J5 T q2 w: G0 r6 }. x SuperscriptBox[
2 a# V+ {+ X: S( K, b! | E9 C RowBox[{"(", 0 c! P/ m5 M' x0 k* x
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], 5 O3 I- U2 r% h8 X: {0 S3 W w7 v. Q
")"}]}]]}], "+", ! \ ~$ g8 J" w4 N6 |$ E- ~
RowBox[{"0.6665374509702799`", " ", 8 x2 Y# j, G, [6 V6 i
SuperscriptBox["\[ExponentialE]",
. D! b% w4 Z G S RowBox[{"3.141592653589793`", " ",
. |/ u) i, U0 ~2 Y1 o RowBox[{"(",
" a. f4 |3 W! Z$ R) R3 v f' B RowBox[{4 f2 @* V; {7 ~# k5 s$ U& D! a
RowBox[{"-", ' }1 A, M/ T6 p5 g! Q
SuperscriptBox[7 u# Y9 `$ G9 M) w5 o/ ~! e4 B+ J: x
RowBox[{"(",
) [# I3 I' U, A7 y# h RowBox[{
1 e& N" |4 J- ?7 e( ` RowBox[{"-", "0.413043`"}], "+", "x1"}], ")"}], "2"]}], "-",
" c, O+ |* x7 F9 z( P SuperscriptBox[# D, q, Z6 V& w( r* t; F2 [3 _% U
RowBox[{"(", - A2 L" i5 [/ d0 Z- L. \7 m; s
RowBox[{
+ w) q% \0 f! x8 I7 W RowBox[{"-", "0.551859`"}], "+", "x2"}], ")"}], "2"], "-",
( G, h3 E8 A6 V- {3 c. ] SuperscriptBox[
2 U! c1 x0 S' l+ t8 s2 r! ^ RowBox[{"(", 9 W. \# N3 m( K7 b4 ^2 X( F: }1 b
RowBox[{
9 s1 C$ G1 A: e2 \ RowBox[{"-", "0.544826`"}], "+", "x3"}], ")"}], "2"], "-",
3 a: W! M, }6 A6 h: N SuperscriptBox[
" e7 z" r4 `: h8 N! Y RowBox[{"(",
$ Q7 b( g, N0 p+ V RowBox[{5 A) A+ v6 c& m0 _0 v4 l+ r
RowBox[{"-", "0.230503`"}], "+", "x4"}], ")"}], "2"], "-",
3 X# }' Q: W; A5 T SuperscriptBox[
- K' o3 u, x/ _! |, z6 Y. O; ^ RowBox[{"(", 5 q5 Q5 \. o9 e3 o# p
RowBox[{
1 g. ?6 Y; u. M RowBox[{"-", "0.244755`"}], "+", "x5"}], ")"}], "2"], "-", 9 }" c/ n) ]9 X# q* F
SuperscriptBox[
4 J% `6 q( a- s RowBox[{"(", ; Q' v7 h6 M1 Z! q4 M( l4 M
RowBox[{
+ i) R0 ?4 |( H RowBox[{"-", "0.53052`"}], "+", "x6"}], ")"}], "2"], "-", % I7 z! G/ Y& w# k) @3 c
SuperscriptBox[3 ]1 l, ~* ]; ?; e& C1 I1 q5 X' }8 c
RowBox[{"(",
9 B7 }8 d2 H$ j RowBox[{
1 U7 k% K- ]2 S- ~* @1 |6 V RowBox[{"-", "0.819512`"}], "+", "x7"}], ")"}], "2"], "-",
& s, \3 p6 y |: f# w$ B SuperscriptBox[
5 S% X C( z) c" ?' i& O9 v# G RowBox[{"(", ) {! l. T+ c6 z U
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
) V# ^4 E$ |& V$ j: C SuperscriptBox[5 {. X7 n. W) j. m8 a
RowBox[{"(", 8 x; [8 m7 l4 o/ n1 O
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], ( A! B$ ]" G+ p# h: c+ N$ @
")"}]}]]}], "+",
% V' A. W H) R! P$ V# K; h RowBox[{"0.4812237524557292`", " ",
! v! J, V- _3 Z. T; {$ C+ I/ R SuperscriptBox["\[ExponentialE]",
$ C( u+ T3 n1 u% X* q, { RowBox[{"3.141592653589793`", " ", f" ~* k3 u6 j: J7 J' |, N
RowBox[{"(",
& p: F7 U# Z- B* `6 p( W% W1 a RowBox[{
% k6 F4 ]4 C8 b& x% R1 Q; t RowBox[{"-", * S+ Q: D! T0 h! [, U
SuperscriptBox[5 }* a% \. z4 i Z6 `4 W
RowBox[{"(", 3 }( j+ t) ]% x4 D; R- Q/ Y" f" a
RowBox[{ _" \, |0 F" m3 G% J& W- s$ U
RowBox[{"-", "0.73913`"}], "+", "x1"}], ")"}], "2"]}], "-",
# q2 `$ g% R8 K SuperscriptBox[
3 _# ?+ [9 O8 A! \3 s RowBox[{"(", " u* @ Z7 ]+ D/ C. R# G, t/ M+ w
RowBox[{" K- F+ U( d0 w& h) n ^
RowBox[{"-", "0.193199`"}], "+", "x2"}], ")"}], "2"], "-", & @1 e7 L: C, @; A, `- g/ I
SuperscriptBox[" O( F i+ A* h1 ]+ l. B8 r/ R
RowBox[{"(", 9 f1 u. f% @% e9 ~4 I* Q5 M+ l
RowBox[{; @& C4 C* b+ [
RowBox[{"-", "0.160584`"}], "+", "x3"}], ")"}], "2"], "-", 2 A. k5 s& B5 n9 f6 v
SuperscriptBox[3 p4 ^+ {; ?, s+ ~8 ]8 M
RowBox[{"(",
2 x3 z2 j% I. Y/ i RowBox[{
6 `4 e' y! k+ c V; V RowBox[{"-", "0.037907`"}], "+", "x4"}], ")"}], "2"], "-",
9 |4 Y0 t9 T! t: U& f8 \+ l SuperscriptBox[- ^2 ]) \# v4 r
RowBox[{"(",
" K7 }: r) e3 _- w4 Y RowBox[{
, Q# n( q) `- T. Q RowBox[{"-", "0.461538`"}], "+", "x5"}], ")"}], "2"], "-",
! z1 p, J J! y' D SuperscriptBox[
$ j( y6 |2 b; L: s RowBox[{"(",
/ w, _! G& c/ K F5 s5 e RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", ! n% ?8 M3 I, t/ Z8 u0 k) a
SuperscriptBox[
& b% t0 g6 r! W RowBox[{"(",
4 N* e9 V/ W! K# p; m! V8 I RowBox[{3 a7 I' ~' X* M' [+ Y
RowBox[{"-", "0.684553`"}], "+", "x7"}], ")"}], "2"], "-", 9 p H# T+ @# i. b8 H/ m2 G( \
SuperscriptBox[! P* K% Q. [- p; _9 L
RowBox[{"(", r. p q7 a o
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", : I+ y! e, I# \: F1 R& ~
SuperscriptBox[3 `1 f; |1 y! S* r
RowBox[{"(", 1 e& _0 O7 Q! [4 b
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
2 H% ]/ N6 V, ~3 j( S, G7 F4 R ")"}]}]]}], "-", & h/ ^! O/ w' j. \4 h0 E( ?
RowBox[{"0.17602467625404622`", " ",
; h6 ], E: D. j8 p0 F3 |1 c SuperscriptBox["\[ExponentialE]",
5 h' T; E- D n- u! i% J RowBox[{"3.141592653589793`", " ",
- Z8 a, d7 b z* a RowBox[{"(",
1 u. Z+ ]; |: \' g2 l8 g, }4 X RowBox[{6 t5 C8 \1 A9 Y& t3 @0 i
RowBox[{"-", 9 W% g: J- u: ^8 _" F2 x, s% Z
SuperscriptBox[% w/ h* \6 ^. S8 `5 L
RowBox[{"(", 2 h! U. a& P2 j. ]& c/ f
RowBox[{7 N3 I8 M) N6 o2 ^! V& d1 Q3 g
RowBox[{"-", "0.652174`"}], "+", "x1"}], ")"}], "2"]}], "-", / Z4 ]; L% `4 H7 X, |
SuperscriptBox[
4 @% B1 `9 ?- n: y a RowBox[{"(", ' W7 ?& V3 d' E4 `3 B2 A t% x
RowBox[{6 ^1 G8 ?$ @/ N' F- t
RowBox[{"-", "0.569711`"}], "+", "x2"}], ")"}], "2"], "-", , m/ ~9 C- j$ f3 }$ U" D
SuperscriptBox[
/ ^9 [* O" ~5 b" a$ j& F RowBox[{"(",
! `8 _) @: i# R" [3 e$ Z/ e2 k+ ~; G RowBox[{
3 A9 p% {' a+ s# I RowBox[{"-", "0.414297`"}], "+", "x3"}], ")"}], "2"], "-", 5 w: v* q3 _7 h! H9 ]
SuperscriptBox[4 J9 W( P/ ]/ p0 J: K6 |# t
RowBox[{"(",
6 @% Y- c9 J1 K Z* L RowBox[{
! T& B3 j# U2 P; F0 F0 j7 E RowBox[{"-", "0.175398`"}], "+", "x4"}], ")"}], "2"], "-",
) f) w5 c# z9 I, [: C SuperscriptBox[
, R6 { }: H$ n: J) L; y RowBox[{"(", , ~% N5 g$ `4 E0 k& u; Z2 ?+ g( l
RowBox[{
0 @# M9 l3 W, S; L RowBox[{"-", "0.167832`"}], "+", "x5"}], ")"}], "2"], "-", : F* U' k- h& t e
SuperscriptBox[
% q$ {3 S0 E6 X0 b& t1 a0 s: C6 L# Z RowBox[{"(", 2 I4 P: W7 q, E' O+ W* N
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
. W2 `; H; W6 A8 z SuperscriptBox[
$ N. ]/ w* ?! m C* y$ K: O RowBox[{"(", " b5 Y$ B$ S( n4 J* i
RowBox[{
4 h' a+ f8 Q$ h) o+ [3 Y RowBox[{"-", "0.544715`"}], "+", "x7"}], ")"}], "2"], "-", 1 y9 J! _2 A' z) ?
SuperscriptBox[7 X3 F, G2 p3 u F: z6 T6 b
RowBox[{"(",
& `7 c3 m2 |- q/ o RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
& N7 V# i: S5 U/ J* L! f SuperscriptBox[6 u$ I. J% x+ e1 T
RowBox[{"(",
& p6 H/ @9 b% R( b RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
0 r2 j% @, ~# G1 `( ` U( F' g ")"}]}]]}], "-", % N, l w5 ~5 @3 N' u k: H! l
RowBox[{"0.5945873894818967`", " ", / j: y s3 @# k) x: W. L1 ]# j
SuperscriptBox["\[ExponentialE]",
2 ]4 o0 ] v _3 d3 G+ r3 {% S* n RowBox[{"3.141592653589793`", " ", * o. t s. U/ h2 x& E7 Y
RowBox[{"(",
- B1 z P7 f) I! O RowBox[{
4 ^1 g# h# E0 n% ?/ i9 w RowBox[{"-", 5 {, s, ^2 `+ G; {* d
SuperscriptBox[6 E# l! T4 U" C$ R, L0 @
RowBox[{"(", , h4 T& k; \, s, g
RowBox[{) V) T* m7 h; D! ?$ e( W3 u
RowBox[{"-", "0.521739`"}], "+", "x1"}], ")"}], "2"]}], "-",
8 X/ o) ~$ q/ X: {6 u8 |' g SuperscriptBox[
6 ]$ I V6 @7 p2 n RowBox[{"(",
: }1 W& S0 Z) p! N9 ~% V( V5 u RowBox[{
( o/ ~4 d7 t' Y# v; g3 r RowBox[{"-", "0.334022`"}], "+", "x2"}], ")"}], "2"], "-",
7 X) P. E t& B/ I/ Y. W! e SuperscriptBox[
/ g4 G& Y+ n7 @ P RowBox[{"(", 4 ?, @& `) t6 L; ]- W/ U
RowBox[{. L) L& r9 B+ N- @6 A
RowBox[{"-", "0.3555`"}], "+", "x3"}], ")"}], "2"], "-",
4 T$ \- c" E4 e! }, o+ L SuperscriptBox[
% F0 S r/ t" b7 p' z2 {* h* J8 X RowBox[{"(",
! P- `. g$ {: P RowBox[{
0 U: Q. @( H: p( c3 C+ Y RowBox[{"-", "0.025156`"}], "+", "x4"}], ")"}], "2"], "-", $ @* L, z, ]* m% o( L
SuperscriptBox[9 O: h9 ^; d+ S2 r7 |2 r
RowBox[{"(",
. ?9 {* J+ `7 `0 D- `: z$ Q7 l* x RowBox[{) L. S3 D1 W( U4 G# v& `
RowBox[{"-", "0.48951`"}], "+", "x5"}], ")"}], "2"], "-",
; B' a( H' t6 N: [! c+ o; e SuperscriptBox[
7 C( d( A7 |$ N. N/ U' v! | RowBox[{"(", , K" D1 y0 h1 a$ v+ f: A; J: j
RowBox[{7 ]5 o! b8 R; I0 f+ p
RowBox[{"-", "0.37679`"}], "+", "x6"}], ")"}], "2"], "-", $ w, p4 X) h$ K! N: _, R1 u
SuperscriptBox[
; f1 }( c" }* Y. i RowBox[{"(", 8 M) q# ^7 I, S( I$ X b+ Q" w6 s* t
RowBox[{
5 k- I3 V, o* O3 ? d- \, c0 q RowBox[{"-", "0.411382`"}], "+", "x7"}], ")"}], "2"], "-", $ H! F/ J* \, n
SuperscriptBox[
# P, g3 Y6 C2 b6 b) S& q ] RowBox[{"(",
9 q5 d1 ]/ V- k& I, v- Z$ K RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
+ b$ j. y1 }$ \9 a- h SuperscriptBox[! z, C2 P/ j3 P- q i5 f
RowBox[{"(",
7 t, J% H; ?6 V. y3 v+ p RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
" B6 Z) ~7 U* J$ c ")"}]}]]}], "+",
6 E& D; e0 ~/ A# b; m RowBox[{"0.5252475961933538`", " ",
" \, ^9 A) \) w- n; Y4 `. s3 G3 B SuperscriptBox["\[ExponentialE]", & p8 A# V J4 @ x, q" K) ~$ n
RowBox[{"3.141592653589793`", " ",
/ Y, Y9 _7 l) P RowBox[{"(", 3 _9 _: ^1 \3 m* a
RowBox[{& n+ `. h# ?/ I# q: B
RowBox[{"-",
1 F3 S) c) a. f$ K' x$ x. {, X SuperscriptBox[
; ^& B! }% W$ m/ P @# n0 C RowBox[{"(",
2 s. o; E4 O5 `* |, z RowBox[{
! ~7 _4 |, w z. _8 X2 i7 D9 L( J RowBox[{"-", "0.173913`"}], "+", "x1"}], ")"}], "2"]}], "-", . q7 ?" k6 b! t) M+ ^
SuperscriptBox[
& T9 o, l8 j' i. K RowBox[{"(", , ]3 n }1 ]0 h5 U, u# r1 |
RowBox[{
( Y" y$ i& f' a RowBox[{"-", "0.984656`"}], "+", "x2"}], ")"}], "2"], "-", " a; F# `& M/ A1 }0 w# b! Q
SuperscriptBox[
8 T* E9 z- S7 w RowBox[{"(",
% D) \) T) _/ {2 Y0 A% j RowBox[{
6 I2 c9 a1 f- l4 ] RowBox[{"-", "0.420753`"}], "+", "x3"}], ")"}], "2"], "-",
1 }# n% N. J% x1 h- F3 A SuperscriptBox[; b0 y/ J9 x2 [8 N" z
RowBox[{"(", 1 Z7 F( b1 [% m
RowBox[{% X; X m& C3 |2 [
RowBox[{"-", "0.137022`"}], "+", "x4"}], ")"}], "2"], "-",
O+ |/ y7 |3 M7 e SuperscriptBox[
- Z; o3 o( i8 k. `7 x" Y" @ RowBox[{"(", $ J2 G- u- v! }! \1 H' W; v" ~! b
RowBox[{
# v/ S4 n0 C: w/ v i6 @: [ RowBox[{"-", "0.321678`"}], "+", "x5"}], ")"}], "2"], "-",
6 \4 }& {6 T: R- e* W# `9 c3 N SuperscriptBox[7 H- T8 I0 |% D m3 D T
RowBox[{"(",
0 \' K( k3 d8 F$ }% Q; y RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
$ u& a `9 F4 g9 c2 I9 f- K SuperscriptBox[/ ~: j/ w+ G6 F; g4 u$ q: @
RowBox[{"(",
4 O v3 y; [3 T) S" y9 I W( t RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
/ m1 U8 r, A6 M SuperscriptBox[6 I& D9 g- b% m, R# k' r# ?) _
RowBox[{"(", ' u' u3 z! I6 r, _- }( `
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", 2 G- T. i0 u+ t4 T8 Q
SuperscriptBox[
, Z; g& T% ~7 c0 J1 s1 h2 v% X RowBox[{"(",
5 t3 \$ C% ?7 B" M* C& { RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], ; z5 k6 G Y X9 @
")"}]}]]}], "-", & K- |: x$ o% Q. b! u/ \
RowBox[{"0.320472847796449`", " ", % S! ?! U2 m# N( ^4 j0 a; D I
SuperscriptBox["\[ExponentialE]", ; p0 n1 g+ ~- T% Q9 P
RowBox[{"3.141592653589793`", " ",
L7 F) Q, c) l: l- B RowBox[{"(",
" p7 _3 C, O6 u% j( M RowBox[{
5 C9 b% W( D6 t3 m RowBox[{"-",
% A1 `7 V& s7 Q3 A( a3 c/ M4 e( V SuperscriptBox[
. p* E" d- H7 H0 [0 U RowBox[{"(", % A( |- G, e& ]+ ^
RowBox[{" A* l1 Q0 R% B5 I. F" N
RowBox[{"-", "0.717391`"}], "+", "x1"}], ")"}], "2"]}], "-", + r2 O# I1 ?% ~) `8 `
SuperscriptBox[1 ^6 d; T/ Y% ]2 Y# V- @1 `6 x
RowBox[{"(",
7 I& _( A$ @0 e: P0 b RowBox[{* d- U; d3 S3 T2 S x4 v; d. F
RowBox[{"-", "0.736205`"}], "+", "x2"}], ")"}], "2"], "-", ; c9 y/ a% C1 Y* R3 p
SuperscriptBox[; j0 z, K% v" \$ M' T* t. @
RowBox[{"(", * z9 ?9 K( R4 | c9 z- j2 d
RowBox[{) f7 j5 V; O0 |$ d
RowBox[{"-", "0.267704`"}], "+", "x3"}], ")"}], "2"], "-", # R# t% N0 [. J; [# w1 t
SuperscriptBox[% D5 `! |* J6 }3 t8 \. j
RowBox[{"(",
D6 w: y5 i! x/ A& s RowBox[{
* @" w1 R, m# k' { RowBox[{"-", "0.036152`"}], "+", "x4"}], ")"}], "2"], "-", 9 c6 l/ _ {7 s9 a) K2 V
SuperscriptBox[
, ]7 `# f2 Y/ [1 } RowBox[{"(", p' ^- k2 a( h& {- d6 \
RowBox[{# U$ T4 |: P6 T, Z
RowBox[{"-", "0.307692`"}], "+", "x5"}], ")"}], "2"], "-", 9 \) `3 S, g t; X$ Z) D! r
SuperscriptBox[: F6 r; k: i' j! O, {4 W+ J
RowBox[{"(",
5 u# w# r/ S; H5 e RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
! P7 T+ D7 Y& @6 ] SuperscriptBox[
3 ]3 D. N2 S8 k# e; W' l, O RowBox[{"(",
0 I" Y6 J- y E3 y: a8 W* K RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
5 F$ |! @0 g. ~. C# m SuperscriptBox[0 L; s- C9 G* K
RowBox[{"(",
4 E: X* V, y3 W* d RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", , K/ R- |, {3 f
SuperscriptBox[
5 n* U( C; r; l0 ?/ D2 U2 U3 [: u RowBox[{"(", : w0 a C( j9 R, h
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], 9 n% j5 N# U! D2 D1 i; c, A
")"}]}]]}], "+", : h# M* w0 g/ M) Z1 s
RowBox[{"0.7528674241482847`", " ",
) }/ T, ]8 ] y6 o3 [ SuperscriptBox["\[ExponentialE]", ' ]7 h0 M( m# R! m/ S
RowBox[{"3.141592653589793`", " ",
2 p( k1 T: ]/ N RowBox[{"(",
- d+ {% y: a: R+ O6 \$ ~ RowBox[{
( @4 U; K3 F+ t+ K RowBox[{"-",
+ ~4 Q: h. U( v SuperscriptBox[
2 ?/ [: e; Z! w" ^+ z3 @ RowBox[{"(",
. A% a/ R' H: B' m RowBox[{! ^. l' V) }8 m* q( n, V( M/ z& U; n! e
RowBox[{"-", "0.826087`"}], "+", "x1"}], ")"}], "2"]}], "-",
% P8 {! Q7 j a: g2 \ SuperscriptBox[
3 ]8 G7 q. @& E! S RowBox[{"(", u! d. T4 g1 B( h% g
RowBox[{' ?; z) [4 k# Y* S& k# O& k
RowBox[{"-", "0.203969`"}], "+", "x2"}], ")"}], "2"], "-", 9 K1 I/ O% K8 W$ t
SuperscriptBox[9 C1 E; q2 ?% L: {6 F
RowBox[{"(",
2 ~' F- M" v+ E# `- U3 t RowBox[{
) i2 t; |! Y; b& r0 H: x+ E RowBox[{"-", "0.234619`"}], "+", "x3"}], ")"}], "2"], "-", ; @2 j' F; T2 w" |$ Y
SuperscriptBox[
5 c0 I G% ^0 _& p& e# Z RowBox[{"(", ! N' g, f7 I' [0 k% V
RowBox[{: t8 o8 W# `% |2 G; }
RowBox[{"-", "0.27224`"}], "+", "x4"}], ")"}], "2"], "-",
8 F6 Z- p$ j& N5 U2 |! Z; K SuperscriptBox[, {% Y# C5 R7 V" V i P# q7 U P
RowBox[{"(", # z. u( Y( i+ ]" r) ]1 p" Q8 x
RowBox[{! R- G+ ?# R! r
RowBox[{"-", "0.265734`"}], "+", "x5"}], ")"}], "2"], "-",
: |; \$ |# J% W8 W; d" T SuperscriptBox[4 l0 y+ s8 c. `7 k& B
RowBox[{"(",
/ u( }6 V3 v' @% Q' b2 O3 O0 {" i& Q RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", 9 t5 ^/ y9 a/ s6 e( v
SuperscriptBox[% v1 Q+ {% V: ~* S6 g. d
RowBox[{"(",
) d, O9 o* i1 j( I* y, X" G' z RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", & | r p( l1 C# c( D# ~1 @
SuperscriptBox[
6 z2 E* Z2 M& `2 a RowBox[{"(",
. z( Y" p6 A# g2 J4 i/ ^ RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", / t0 b8 [ d% _; U( y
SuperscriptBox[+ ?5 {& z7 M9 V# i. i! `
RowBox[{"(", # Y. r% `; |+ _2 f; S
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], 0 D& u" D& ~7 E; ]# @1 e
")"}]}]]}], "+",
& E. Y% U, w( G8 q/ K4 K, E RowBox[{"0.02759193650965952`", " ",
4 ^; a$ v7 }* {! B O SuperscriptBox["\[ExponentialE]",
, \' a6 H+ `: L6 w& ]. O* V3 S, v RowBox[{"3.141592653589793`", " ", ; F9 \8 a$ R$ t; n: f1 H
RowBox[{"(", & k8 P6 Y) v% o) U3 i
RowBox[{9 d( G) f* W; i; _) e3 p# f
RowBox[{"-", 3 A0 M. h% E' I# [; T7 c7 w" s& ^8 j
SuperscriptBox[
; B/ _ Z( U3 b* u& f1 p" ^2 | RowBox[{"(",
, M( ^1 K0 x6 `! S1 u9 o/ p$ i RowBox[{) e# p0 T5 ^" v& \
RowBox[{"-", "0.565217`"}], "+", "x1"}], ")"}], "2"]}], "-", " G( a9 n& D( P4 m
SuperscriptBox[& O8 \. {- r% b+ Y( p5 ^
RowBox[{"(",
) f; L _9 C- Z8 }7 S3 C RowBox[{
. K* c! f% I, Q* }- c RowBox[{"-", "0.572293`"}], "+", "x2"}], ")"}], "2"], "-", % y- G: K; b4 R$ o+ E4 Y
SuperscriptBox[
; V" E `9 \2 x' _ q. \ RowBox[{"(",
2 h, M. e% K3 J6 H; x5 w RowBox[{
9 _" I' F% g. c3 s RowBox[{"-", "0.655012`"}], "+", "x3"}], ")"}], "2"], "-",
: E# J% t! h% R3 L3 d' o/ E SuperscriptBox[
. Q3 _. Q; x: `0 c8 ? RowBox[{"(", 5 p% P3 T1 ?9 u( p) }
RowBox[{% o5 C4 @& @9 {) \2 t4 h1 B
RowBox[{"-", "0.281852`"}], "+", "x4"}], ")"}], "2"], "-",
, k% P; T- a2 l* `1 O SuperscriptBox[
2 J G3 `. ]- b# D0 d; w RowBox[{"(", 7 r& y& J L. v2 a. ?/ f7 l: \
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x5"}], ")"}], "2"], "-", . K5 S$ X& J4 }8 F/ L
SuperscriptBox[
7 M4 J4 }1 L c# N RowBox[{"(",
' s, o* b8 C6 z5 e RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", 1 N5 Z7 g+ G2 E. z, B- L5 p6 o
SuperscriptBox[
6 s' c: D$ k& l/ |! A4 s$ W RowBox[{"(", : ?: |( D' m8 o/ H
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
! O3 v1 p: F: ?0 L* s$ K SuperscriptBox[0 U' b" ?" {, A; f
RowBox[{"(", 0 }) d' p* S( b/ j3 w' ?( v
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", 1 [8 A( p! c2 h, X
SuperscriptBox[
* d1 u, r2 }! B2 k RowBox[{"(",
8 A1 A8 ]. w1 D6 S- a" U RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], 9 y: \( ?* E9 h8 [; M2 q6 h
")"}]}]]}]}]], "Output",- \6 n [1 v" P0 B* h
CellChangeTimes->{3.577924759875*^9, 3.577924921203125*^9, / C# d" C1 x9 P- ^2 Y! u9 \* c
3.57795759203079*^9, 3.5779589554964056`*^9, 3.5779621253913965`*^9,
) B& p3 F( ~+ e: t B: P; O; U( Y 3.5780123515625*^9}]* }( ^5 @* O1 O, y2 s6 a- k9 H
}, Open ]],8 L+ T" E- Z+ J3 s! m0 n
: B2 O0 t2 F" B/ e9 Q0 X7 F
Cell[CellGroupData[{" z$ M- C+ V1 l
- m% n% F1 m! g* L& P/ f7 [Cell[BoxData[( e, ~( O/ P$ P) U7 ` i
RowBox[{"y1fit", "=", 7 X+ L5 |2 f/ p2 R$ U/ }0 x: r: z
RowBox[{"Table", "[",
* \$ R" Z5 J8 v) x- i RowBox[{"x", ",",
3 D3 C0 W. k7 A RowBox[{"{", + u7 Q# ^4 i3 M' Q2 t
RowBox[{"x", ",", "1", ",", "29"}], "}"}]}], "]"}]}]], "Input",
" ]7 K9 H' L" r+ p! O7 ], ^ CellChangeTimes->{{3.577924969375*^9, 3.577924979515625*^9}, {
1 J: J- ]7 K" a9 ?/ h 3.5779252768125*^9, 3.577925277484375*^9}}],. ^0 K, a6 h+ c \
3 g4 ?: l/ B8 A e9 U X7 `, p/ QCell[BoxData[
, T2 g, Q! D2 I, Z% Z! X! o0 Z RowBox[{"{", L4 e# R1 v& Y- ]
RowBox[{
1 r/ L* @* n- D2 Y* I8 ]3 ` "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
v2 l2 v7 `1 X ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15",
E% O: v, a. e ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",", - |) _4 \$ k1 i$ E" k4 L3 e: m
"22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", "28",
9 u- p3 E, Q- ~ ",", "29"}], "}"}]], "Output",* ?9 [: P4 F. y3 [; o7 m& Y
CellChangeTimes->{3.57792498240625*^9, 3.5779252798125*^9,
: H6 u8 E9 B. S: o! y 3.577957594916795*^9, 3.5779589579612093`*^9, 3.5779621294942036`*^9, 9 D' w3 T, l& B4 L
3.57801235340625*^9}]# ]5 g% Q b( R4 ]+ ]. {2 q
}, Open ]],4 ?/ T, e- X5 D- H0 X, H. H7 f
8 N8 i% ]$ Y. s9 FCell[BoxData[
! O8 @2 S- P4 Z% o9 N RowBox[{"For", "[",
& S# O. B: ]8 \3 [2 o2 F: Y. x& ^ RowBox[{, w {3 {6 g. v9 l
RowBox[{"i", "=", "61"}], ",",
7 x M+ K- L @. x RowBox[{"i", "\[LessEqual]", "89"}], ",",
+ S, ?9 J) M2 c- f& J Y RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", 4 ^. i% c( L$ }- @" ]. i+ S' H* k
RowBox[{2 B# t }: u \1 }6 g* d
RowBox[{
+ O& q2 E% A- u& `3 a9 d RowBox[{"y1fit", "[", & v& z& X# W4 c5 X; j
RowBox[{"[", * |& L. P% J3 D1 {7 @
RowBox[{"i", "-", "60"}], "]"}], "]"}], "=",
( d/ j9 y3 E' n$ N( S RowBox[{"y1", "/.", 9 d- ]. c% ]- u9 w# I+ ?; I# \) t
RowBox[{"{",
# @! O" R" |& c C5 w$ P; y RowBox[{
* t, |" A" T, A9 d7 C! R RowBox[{"x1", "->", : e8 [: q% @/ i8 p" {) I" J1 H
RowBox[{"Data", "[", 1 p2 t2 q) S5 f$ ~/ d9 ~
RowBox[{"[", ; k2 \+ _$ O" v# A$ X3 h% `
RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",",
/ m5 w J4 p4 M) c& G$ J RowBox[{"x2", "->",
! U/ n5 w! f0 A4 U2 q RowBox[{"Data", "[",
9 I& t* h3 A$ A! `8 q4 a RowBox[{"[",
. L/ U- H( Z; C7 e- E+ b3 s7 ] RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",",
/ S) L' f' `) J( W! W% x RowBox[{"x3", "->", % }$ r7 V" f, v
RowBox[{"Data", "[", ' e8 @8 ^8 W9 i& d" b# N8 E
RowBox[{"[", 3 }- t5 Z0 c4 r8 V0 h
RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",", 0 Y3 Z9 F4 Q" x+ }- H' B- J
RowBox[{"x4", "->",
& a# P6 L2 s; @$ Z RowBox[{"Data", "[",
7 [! o2 ]5 D2 W6 r; U( H$ R RowBox[{"[",
~ z7 a6 q+ B) |2 V5 ^4 O RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",",
+ ?! m2 B8 l( R RowBox[{"x5", "->",
& Z0 i8 [' d/ F* c S0 A# _5 k RowBox[{"Data", "[", * \1 k$ d! h% a8 h; x& ]
RowBox[{"[", 6 G i: O) d! {9 x& I7 L1 u
RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",", " n. x `8 J+ ^% q5 b" v, v
RowBox[{"x6", "->",
" S. ?# Q) H' j; I RowBox[{"Data", "[", # R7 K1 r5 D0 D! I
RowBox[{"[",
) o/ J; D) ^! c% E5 u4 s RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",", 3 r4 i6 ?: N0 E8 {3 \/ P
RowBox[{"x7", "->", ; O' S7 U( Z# o9 j7 ?
RowBox[{"Data", "[", 6 Q* z+ _8 S( Y
RowBox[{"[",
5 M# l5 I% O" i) c1 p& G* U: I RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",",
( a. m1 Y# Z1 H0 t1 S2 e* ? RowBox[{"x8", "->", 6 o# d ?6 G4 x4 c
RowBox[{"Data", "[",
+ g2 L7 ^7 d3 a2 o RowBox[{"[",
# h) w& W4 c7 ~9 T5 C7 }6 R1 ~$ [ RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",", ) O- v/ h3 @& L8 Y, w' h1 k
RowBox[{"x9", "->",
' z0 s2 b8 k. M( N9 E RowBox[{"Data", "[",
8 y2 Q; T. Y0 r6 p8 t( Q/ f RowBox[{"[",
d8 ^2 V U/ | RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";"}]}],
% \5 O( h; h5 n c+ W3 L "\[IndentingNewLine]", "]"}]], "Input",9 R3 h" v- J4 }$ V" h4 D4 U: x: n$ q
CellChangeTimes->{{3.577925003234375*^9, 3.577925028578125*^9}, {- S, R, v/ z6 j1 C
3.577925286140625*^9, 3.577925306765625*^9}, {3.577958922517948*^9,
4 @% I$ h$ B1 J/ [) n 3.577958922549148*^9}}],4 f' U; `2 R# Z6 @2 {# V
% h0 P" x/ M/ |5 ECell[CellGroupData[{& e+ m& g/ G- B2 D- c' W. {
9 k# ]1 L6 b ?1 n2 wCell[BoxData["y1fit"], "Input",7 i* D. G5 Q' w7 o4 K
CellChangeTimes->{{3.57783581246875*^9, 3.5778358135*^9}, {
2 \0 l% G" D. J 3.577925040484375*^9, 3.5779250440625*^9}}],
7 N1 \' z. v, D0 k; R- X. g
/ e$ |, |; {, a0 _$ d2 T* vCell[BoxData[
0 G# u6 [" [" r" i" G. E) v4 m) }$ g RowBox[{"{",
9 m7 S ]/ e4 m- ` RowBox[{/ V+ p! T4 Q& g& K" c0 U
"0.43193416525930517`", ",", "0.4501634853493982`", ",", # A$ T$ B& j# o
"0.33336034768525247`", ",", "0.4418609896858925`", ",", 1 v2 o. y i+ G0 Q! D0 f
"0.41030378932283024`", ",", "0.516814798191575`", ",",
$ x) X0 @8 D4 i( s/ ?9 u "0.4476631213729994`", ",", "0.3016552978696669`", ",", 3 s* Q; u, b0 p: O5 L6 p7 d9 i. R
"0.378122167437847`", ",", "0.020339844919720733`", ",",
* ~) ?) X2 x/ }: d9 P& r2 @ "0.018745375782087376`", ",", "0.2919925992695025`", ",",
1 ]0 N ?- j2 W% |; u) A8 B/ n "0.2649067959681263`", ",", "0.16343444284525593`", ",", , j$ b3 q1 W+ B8 s! `
"0.4182466778551563`", ",", "0.27347752211364934`", ",",
* u( n& L9 e' X+ L$ G "0.38554057386385654`", ",", "0.35253160453718047`", ",",
% {) T+ m8 Q: m2 y* u a "0.2054745841100774`", ",", "0.45504377112716676`", ",", 5 C+ G+ a1 I+ e3 g
"0.1598805094678612`", ",", "0.18662509982279485`", ",",
) T" \. A6 T% ?6 F- G: n "0.10684797493248213`", ",", "0.013349212673286828`", ",",
6 F/ M1 g/ m/ d& g, U "0.08215836003004297`", ",", "0.2979041599362813`", ",",
/ s/ X) D5 g5 @1 J9 Q "0.05995976512343641`", ",", "0.3884793499104568`", ",", 7 w4 a) B$ D4 O: s
"0.5361889337034293`"}], "}"}]], "Output",2 t, H! Q2 E$ S, n' W- v f% a6 i
CellChangeTimes->{3.577835814609375*^9, 3.57792504521875*^9, & D, D) ]$ G' M- f$ |/ e; Z
3.577925312375*^9, 3.5779575978808002`*^9, 3.5779589654960227`*^9,
* r$ W- H# }9 T0 y% e 3.5779621416934247`*^9, 3.578012355546875*^9}]
7 W$ `. z) R |+ V6 o}, Open ]],! I6 m& J$ E$ r3 h" G
% I1 o& p* b3 ]Cell[CellGroupData[{2 b( f* H" U1 f" o$ t: \& K# _
2 n2 T) U( }7 n' JCell[BoxData[
/ {5 H$ v( G6 E5 g3 T RowBox[{"y1fit", "=", , G; \. p# q. ^
RowBox[{"{", ) E4 B1 G/ y+ K2 R
RowBox[{3 W# }' P+ X6 Z* U+ G: f' o
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
3 o: \/ A. E' q4 Z, W0 Z- o! @: ^ ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
- w6 P+ ~ f6 C U: u "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", * A i7 k- x3 q5 \* L
",", "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",",
) A5 ]0 T& k5 |4 f$ A% @ [$ k "28", ",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34", 8 ]- W$ f4 b& F: A/ S
",", "35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",", + M3 ^' S; m/ g* P$ E) Y* j( k
"41", ",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47", 7 b- H, i" l9 K( ?3 y1 A' H2 [
",", "48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",",
4 P6 s8 i( H+ t! r- D; N "54", ",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",",
1 D5 @: Q |7 s" i, u% a. H# G "0.4319341652593058", ",", "0.4319341652593058`", ",",
; W y& ^& J& P9 Q+ _& B "0.45016348534939865`", ",", "0.3333603476852527`", ",", ) f/ L5 p+ j. T& N, k1 P& |* B
"0.44186098968589294`", ",", "0.41030378932283074`", ",", & R7 B7 [' u& o. w( L) y
"0.5168147981915754`", ",", "0.4476631213729997`", ",", " f' K/ {0 h5 g
"0.30165529786966755`", ",", "0.3781221674378473`", ",", 7 x! }9 Q' x) b+ Y
"0.020339844919720775`", ",", "0.018745375782087393`", ",", 2 P8 j5 W! z. l
"0.2919925992695026`", ",", "0.26490679596812655`", ",",
& V8 I' [- f7 P/ x, V& ~$ I" a "0.16343444284525593`", ",", "0.4182466778551567`", ",", 7 S: v& n' i& a$ L, h* |
"0.27347752211364945`", ",", "0.385540573863857`", ",",
% ]% f1 C1 [- B4 Y "0.3525316045371807`", ",", "0.20547458411007796`", ",",
# n" ?/ t/ T: y, M "0.4550437711271672`", ",", "0.1598805094678611`", ",",
- \ |$ X: X; U D. n& q( ? "0.18662509982279502`", ",", "0.10684797493248224`", ",",
0 ?. f' s- z0 `5 d+ b7 X2 O "0.013349212673286806`", ",", "0.08215836003004302`", ",", - q, ]( h& h$ r( s% z
"0.2979041599362817`", ",", "0.05995976512343637`", ",", . h; u) X4 p/ b) ] u6 S5 M+ M7 C
"0.3884793499104571`", ",", "0.5361889337034297`"}], "}"}]}]], "Input",
% }) p/ }$ M" f, G# @4 X7 }, b) S CellChangeTimes->{{3.577959701349306*^9, 3.5779597161381316`*^9}, {% P7 T) V* a R* ?9 J/ }
3.5779621548286476`*^9, 3.5779621618642597`*^9}}],
: m! F- m* Y9 d& A1 H8 t! u$ P+ R$ E% _
Cell[BoxData[
$ Q5 \3 y( r3 h$ z9 Z( h5 t5 F4 U RowBox[{"{",
) Q2 ]) U3 y5 M- v RowBox[{
8 {& Y) ?: x" w u$ s# Q "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", 6 K' u8 ]2 R$ {' V
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15",
" u' C& S& u. w8 d- {" P ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",", 9 x6 A- ?" g2 E" @# e7 H
"22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", "28", $ b9 Q. W$ @* b* z9 h
",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34", ",", ( l0 n9 q& H c7 S6 V" t. C
"35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",", "41",
+ z& V6 G# O6 G' P" [: z' x ",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47", ",", - W" t/ f1 E: [7 _, c! o8 t2 j- } k
"48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",", "54", % o) N" h/ Z% D0 y3 |# O
",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",",
6 f" Z; W, }$ W "0.4319341652593058`", ",", "0.4319341652593058`", ",",
" Q: x% I& z! G1 { "0.45016348534939865`", ",", "0.3333603476852527`", ",", 8 X& ~/ k3 ?5 S/ d. F
"0.44186098968589294`", ",", "0.41030378932283074`", ",",
3 h) e3 ?& o" m "0.5168147981915754`", ",", "0.4476631213729997`", ",", * N& Z" E i0 @( a
"0.30165529786966755`", ",", "0.3781221674378473`", ",",
d9 o9 e. }/ D1 T, n6 Y "0.020339844919720775`", ",", "0.018745375782087393`", ",",
3 X- S- R# h/ a "0.2919925992695026`", ",", "0.26490679596812655`", ",", 2 ^5 Y" i* h3 D
"0.16343444284525593`", ",", "0.4182466778551567`", ",", 1 ?1 o, y5 t6 K
"0.27347752211364945`", ",", "0.385540573863857`", ",", . S0 ^, k" Q% a) o0 s6 o7 n
"0.3525316045371807`", ",", "0.20547458411007796`", ",", + W9 l6 R3 @' D% p* d. v
"0.4550437711271672`", ",", "0.1598805094678611`", ",", + S0 c6 G1 E) f3 o- _4 R: P0 J0 [) R
"0.18662509982279502`", ",", "0.10684797493248224`", ",",
* [" c" q9 L, s2 l. Q "0.013349212673286806`", ",", "0.08215836003004302`", ",", . V6 v1 ?8 s% r/ \
"0.2979041599362817`", ",", "0.05995976512343637`", ",",
7 F4 A7 T! j0 c7 y; E "0.3884793499104571`", ",", "0.5361889337034297`"}], "}"}]], "Output",; i P1 f9 i/ B* f' a6 p
CellChangeTimes->{3.5779597200381384`*^9, 3.5779621650778656`*^9,
0 J6 t& z S% N- S+ T 3.5780123569375*^9}]* G& W+ f6 N: Q5 F3 ^0 F. X$ t. Q! v0 a
}, Open ]],6 R1 K) X% s. p' Z$ L
5 ^* ?: `1 k; N1 y2 `5 o6 \Cell[CellGroupData[{
8 W! G4 K% b( z
/ C4 Q$ x% ?8 {2 f4 J* y1 ICell[BoxData[3 ~- K( L0 \! }" R+ `
RowBox[{"y10", "=",
\! ~0 I9 ?7 K RowBox[{"Table", "[", . K( O H! V b" Q9 R
RowBox[{"x", ",", 2 N5 `. U9 R# d, _& t4 U3 }" ]
RowBox[{"{", " ^7 c, n/ e8 O3 p! \
RowBox[{"x", ",", "1", ",", "29"}], "}"}]}], "]"}]}]], "Input",8 Q5 Y. X; ^* w
CellChangeTimes->{3.5779253628125*^9}],5 H5 @& ~9 H! L" o
1 @: X* d$ v7 a+ K
Cell[BoxData[3 I, q Q8 G# i$ O. o! D7 Q
RowBox[{"{",
9 Z7 x. A8 w+ t' J) K RowBox[{% A! L5 Z2 Z! p0 C* A$ c: q
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
6 h3 k) |! L( q2 }4 I4 [. x ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15",
: `3 y/ Z" P$ y, H; m* U0 G ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",",
, G, H; \; R( J) t! s1 C& k "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", "28", ) i- E" m, w. z, X/ S
",", "29"}], "}"}]], "Output",) X9 L/ q2 E" A( B- r! T0 t( H
CellChangeTimes->{3.57792536553125*^9, 3.577957599565603*^9, ; k6 Q4 p) Q4 t( \2 b8 K
3.577958967383626*^9, 3.5779621678858705`*^9, 3.578012358609375*^9}]
# p% u- Y5 F3 ~$ L/ B}, Open ]],
! u$ _9 ?$ ], E8 x6 O& h4 U
6 G7 e* l7 i) r3 `! F# WCell[BoxData[
6 A u3 n% X8 z4 m3 }9 Y RowBox[{"For", "[", $ m3 j. B* x9 M* _$ t, ]
RowBox[{# v! i. \2 `+ g# V' L& v' G: o
RowBox[{"i", "=", "61"}], ",", 9 f9 ^. _, ?) I# L% ]
RowBox[{"i", "\[LessEqual]", "89"}], ",",
7 K4 i% g8 s8 _* U' i) M+ I% B% q RowBox[{"i", "++"}], ",", * X) e/ T8 \$ e! `8 q& o
RowBox[{
9 J2 A& B0 @: j. a1 T% P. @" Y RowBox[{"y10", "[", ! m d* Y& m& p7 s
RowBox[{"[",
8 `7 S. K: w( ]* X. U' ?' f RowBox[{"i", "-", "60"}], "]"}], "]"}], "=",
7 u% r) s" ^9 }" W/ i+ ] RowBox[{"Data", "[", ) m; F; e* E& V
RowBox[{"[",
, v; {, P/ D8 L8 @! I RowBox[{"i", ",", "10"}], "]"}], "]"}]}]}], "]"}]], "Input",7 c- ]# K) q$ b; }( X4 z, f$ v) Y* a
CellChangeTimes->{{3.57792259890625*^9, 3.577922624859375*^9}, {
, [/ _: X1 `7 @. X7 }, {3 s. }/ W 3.577922687234375*^9, 3.577922702859375*^9}, {3.577922917453125*^9,
, h" v4 B2 X% S4 w% B 3.577922923203125*^9}, {3.577925372296875*^9, 3.57792538503125*^9},
3 O2 F8 C6 K4 Z" m& F9 T 3.577958922549148*^9}],
' O% T8 q- _/ s
9 h' G3 M2 z$ \" F) T% `' uCell[CellGroupData[{: F' u0 D- a! }/ r# W- G/ W- X( I
, a8 x+ a* x6 l/ }Cell[BoxData["y10"], "Input",9 W+ F9 h( t- V
CellChangeTimes->{{3.57783581975*^9, 3.57783582009375*^9}, {; ]) L' K. A1 @% I* {& ]9 h) j
3.57792504965625*^9, 3.577925050125*^9}, 3.57792539146875*^9}],7 O0 D5 C- h+ V* n
7 q1 o8 E0 ~8 D- [2 k3 h
Cell[BoxData[: X! h% h* V8 b; O- N
RowBox[{"{", 7 w/ \; y$ |& P1 p
RowBox[{
0 I) u6 x4 b7 u1 H* R* ^3 B "0.380742`", ",", "0.429034`", ",", "0.193168`", ",", "0.448763`", ",", 0 Z: |1 M! Z& _$ d _
"0.442285`", ",", "0.575383`", ",", "0.515607`", ",", "0.057715`", ",", 4 ?6 {* u& p: g; @+ n) c% X
"0.174617`", ",", "0.66755`", ",", "0.371025`", ",", "0.570966`", ",",
S3 o3 c% c/ P: u6 j; N6 r2 ] "0.468198`", ",", "0.414016`", ",", "0.18669`", ",", "0.442874`", ",",
8 |& N2 z; \( h4 U; n& n% { "0.68669`", ",", "0.244111`", ",", "1.`", ",", "0.957892`", ",", * q% X& J+ a0 U2 O) r
"0.266784`", ",", "0.826855`", ",", "0.341873`", ",", "0.412544`", ",", 6 V4 _% V: [9 f/ l1 N" H
"0.322144`", ",", "0.370436`", ",", "0.333039`", ",", "0.390754`", ",",
, d2 V' H+ ~$ l! {0 H8 ~: u+ K "0.694935`"}], "}"}]], "Output",
2 b& `% v' a0 j' d CellChangeTimes->{3.577835820984375*^9, 3.57792505125*^9,
1 Z( v6 O( G$ l$ D0 r: x 3.577925393046875*^9, 3.5779576032628093`*^9, 3.577958971767234*^9, + z8 U% {; P- w5 ^8 }/ g
3.5779621736734805`*^9, 3.57801236071875*^9}]+ c& Q+ E- E4 l- T2 S! E/ ~6 n
}, Open ]],9 Q3 ]# u6 W, S. U
3 f( `0 d' j+ Y! m9 `8 U" I1 x
Cell[CellGroupData[{* {$ K# a" k- \" ]
, _9 i8 U* O; P( lCell[BoxData[! I% i9 c& b. O) N/ X0 T
RowBox[{"y10", "=",
. b5 ^! _% X, N$ d: _8 z RowBox[{"{",
* t* P0 e$ V: j, H6 k RowBox[{7 Y# W/ z5 l) w. T
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
% Y; r, l4 s1 T0 A4 t+ a ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 7 L0 g3 G [& f' E! K+ u
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21",
7 i7 f7 q3 L5 p9 n% a" e ",", "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",",
6 v* k. J+ t: d0 C: A& v9 U! s "28", ",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34", # @4 q1 M* }7 U u
",", "35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",",
5 \; r. I! k& {8 X0 i "41", ",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47",
9 Z$ _# O0 [2 u ",", "48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",", 1 q0 Y( { U' j' q6 @' r
"54", ",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",",
* _/ `' M' Z" ~5 Q# q' W "0.380742", ",", "0.380742`", ",", "0.429034`", ",", "0.193168`", ",", 4 c/ U/ `' I1 `, F* F1 n
"0.448763`", ",", "0.442285`", ",", "0.575383`", ",", "0.515607`", ",",
8 u5 o% t, T+ U2 S4 ]+ W "0.057715`", ",", "0.174617`", ",", "0.66755`", ",", "0.371025`", ",", - r2 m4 o4 N3 @2 Z/ O$ m
"0.570966`", ",", "0.468198`", ",", "0.414016`", ",", "0.18669`", ",", ' l" Q" H0 d0 f, m' x- s$ T) W+ o
"0.442874`", ",", "0.68669`", ",", "0.244111`", ",", "1.`", ",",
. ` e% p1 j( N! T- V9 o "0.957892`", ",", "0.266784`", ",", "0.826855`", ",", "0.341873`", ",", * ~* l3 ^, l1 i1 @# e
"0.412544`", ",", "0.322144`", ",", "0.370436`", ",", "0.333039`", ",",
8 }! r) p3 E1 a; c6 h "0.390754`", ",", "0.694935`"}], "}"}]}]], "Input",; u) _- C0 Y8 c+ W% g3 C
CellChangeTimes->{{3.577959733438562*^9, 3.57795974955339*^9}}],
; I# z" J9 D# w! t# m) R2 n8 L5 f4 K2 `/ |8 y6 ?+ w
Cell[BoxData[
; P+ u* L, E W! M, j% U RowBox[{"{", & ]$ A3 C1 U; ?: h! }6 c
RowBox[{+ z7 I9 l; t+ b, `
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", 8 g, C. F5 r/ D8 s
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15",
) Y# j+ @ S, ~, K" q/ `3 I ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",",
% o: q+ }3 C9 W% P# ~+ W; c Q9 H "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", "28", % P! z! a4 F/ V7 }
",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34", ",", * f6 j! }: }! U8 F7 N+ \
"35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",", "41", 1 \3 D, {# h( R
",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47", ",",
: Z7 c% L! T6 \ "48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",", "54",
7 @4 ]/ |, L/ m6 [! L ",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",", "0.380742`",
[ `( f0 t& N% F ",", "0.380742`", ",", "0.429034`", ",", "0.193168`", ",", "0.448763`", % z5 Z' |; g" l D
",", "0.442285`", ",", "0.575383`", ",", "0.515607`", ",", "0.057715`", - n1 C, f: }% {9 B
",", "0.174617`", ",", "0.66755`", ",", "0.371025`", ",", "0.570966`", ",",
- k. I; \1 v. E# G( n: i "0.468198`", ",", "0.414016`", ",", "0.18669`", ",", "0.442874`", ",",
- u, e4 \- s: m% o3 ` "0.68669`", ",", "0.244111`", ",", "1.`", ",", "0.957892`", ",",
0 R! L$ a1 _, T! `- I+ s$ T "0.266784`", ",", "0.826855`", ",", "0.341873`", ",", "0.412544`", ",",
1 {4 K" G6 o V9 N; s "0.322144`", ",", "0.370436`", ",", "0.333039`", ",", "0.390754`", ",",
4 g+ E6 w$ @1 S "0.694935`"}], "}"}]], "Output",# F7 V- l: A: k4 u
CellChangeTimes->{3.5779597517529936`*^9, 3.5779621844842997`*^9, / t* b4 J6 `( m# r( ~
3.578012361734375*^9}]
1 M, ?) y) @( T7 F3 l. M}, Open ]],8 t9 H7 |5 l6 r$ B
5 }+ _ C" V0 x2 H
Cell[CellGroupData[{
! x' \& U" m; @7 E4 ~ B7 @" L" P5 e9 \8 P7 d6 G
Cell[BoxData[; T+ T; m! S6 v. F) u: C
RowBox[{"p1a", "=", 5 t! E& U' q4 T J# D' k6 F2 H" N
RowBox[{"ListPlot", "[",
2 }+ l* z# S2 {4 l8 s) S$ Q RowBox[{"y1fit", ",", - K. |. _4 Y% h$ {; { m3 r& I0 `
RowBox[{"PlotJoined", "\[Rule]", "True"}], ",", / H: Q$ c. D: h# z6 P
RowBox[{"PlotStyle", "\[Rule]", 4 }8 w+ |& {& f. C \; T4 z+ `
RowBox[{"{",
/ b6 m x% {2 T( Y RowBox[{"RGBColor", "[",
r8 Q4 m* i$ ~3 M8 t RowBox[{"0", ",", "0", ",", "0"}], "]"}], "}"}]}], ",",
' O- e) Z% O& G2 }7 Z; Z RowBox[{"PlotRange", "\[Rule]", ) E/ v# z6 B) S# f) b: {
RowBox[{"{", ' C" [ s G' I- @. f$ J# k% f" g' p
RowBox[{( i- Y! \* x! I' ^; l+ P& k0 k
RowBox[{"{",
$ y6 t" T% Q* M2 S1 E6 M& T5 ^ RowBox[{"61", ",", "89"}], "}"}], ",",
" I; V7 C4 L7 k6 y& Z RowBox[{"{", " s5 \# p" j; T% V9 P) `3 V A
RowBox[{"0", ",", "1"}], "}"}]}], "}"}]}], ",",
$ @2 Y4 W+ m7 g. o2 K* q7 q RowBox[{"AxesOrigin", "\[Rule]",
: C6 | z5 h9 T; c t* c9 r2 f$ E RowBox[{"{",
8 v+ y" m: [/ L# z7 k RowBox[{"61", ",", "0"}], "}"}]}], ",",
/ c2 }# d' U W) B/ m6 m. } RowBox[{"Frame", "\[Rule]", "True"}], ",", % T: }% n# y- ?3 ~
RowBox[{"FrameLabel", "\[Rule]", ; P" K; {4 x$ t- l. s
RowBox[{"{",
$ v1 A( O7 F3 \. z RowBox[{5 j V% n5 [) l# k
"\"\<\:7089\:6b21\>\"", ",",
7 I- p; |( I2 h. @' v "\"\<\:94a2\:6c34\:7ec8\:70b9\:542b\:78b3\:91cf\:ff08\:5f52\:4e00\:5316\# r5 I8 Z& U y, n0 e# f
\:ff09\>\""}], "}"}]}]}], "]"}]}]], "Input",
6 ?" s/ s8 W+ [ CellChangeTimes->{
1 j5 h7 L0 A; k3 I8 |) X% B H 3.577925078578125*^9, {3.577925141125*^9, 3.577925141453125*^9}, {
- l- b* K0 Z+ } 3.5779576143076286`*^9, 3.5779576277548523`*^9}, 3.577959769006624*^9,
" |) j9 {$ {# `. F" t/ C- l' A 3.577960184458948*^9, {3.5779602338174343`*^9, 3.577960278745513*^9}, {' t; \! h* \ R
3.577960347588433*^9, 3.5779603994429235`*^9}, 3.57801239140625*^9}],
9 D2 ~* O+ t3 j
3 n. r" a, r' [2 L7 DCell[BoxData[
0 t1 y5 O$ G5 J3 y6 h GraphicsBox[{{}, {},
* L8 ^! j; |" ~4 u, v8 O {RGBColor[0, 0, 0], LineBox[CompressedData["0 x9 C9 u8 Y8 G4 T3 k0 J
1:eJxTTMoPSmViYGCQB2IQrbz/js6hf74ODGDwwR5C+zm8FykxOr/kNoTfgMZn
- [. _" h0 X* z& ?8HfIK73dWHX+DlTe32HNjaOLj4VehcoHOHAIsAYWu0PlHQIcchxULmc53YKq5 W& n7 S" E- v* }
D3Bg8uYy2N/5AMI/EOCgxV5t0bwMqp4h0GH17wOsQX6XofoDHbYVHgpUN74B" H. C# `" g6 W/ p. C7 K
1R/owDX546Pvl6dA9Qc66O7be/+P4WSo/iCHU2FKuxg3XILqD3LY/dVrkfWX
1 c0 w7 L) \% C G$ q% N2 EC1D9QQ67drZXZr8+AtUf5BAnfXhb7xGo+xiCHW5eybq7vOEiVH+wQ9t6xvhN/ F* J% Y4 [( R% @
a2D2Bzt4nBLa8aD/GlR/sMO33SV7//qcguoPcZALP/8iX/4uVH+IA1Po9tff# z8 p, p3 _' g3 b, J
yqD2NYQ4dDHpngt5fByqP8TBaOqv3uSo3VD9oQ6/y+//uxLWDdUf6sDLldMb
% F2 ~$ _. g) p1 iwrEVqj/UQcZIcM4dAWj4HAh1CLjff4d78zqo/jAHnahDtTfuQN3rEObQXX59 U2 y% i+ y( J! z
Y6nGQ3sAieueIw==6 E+ @$ `# I! H9 b. p7 ?8 L1 ~
"]]}},* \# r8 o% l& e1 S
AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],; M, |9 U8 u6 R; ]# c/ ?2 V
Axes->True,/ @+ }0 X0 _' t1 {2 O2 q. A
AxesOrigin->{61, 0},
8 e5 L. t1 ~3 j Frame->True,
" l8 a, d; [9 E( v+ O FrameLabel->{
5 l' t, J( F) m1 k FormBox["\"\:7089\:6b21\"", TraditionalForm],
" ~1 U* J3 j# u) Y' f+ Y FormBox[
' @( F2 k7 M7 v( d, r "\"\:94a2\:6c34\:7ec8\:70b9\:542b\:78b3\:91cf\:ff08\:5f52\:4e00\:5316\
& D3 K J8 C. T) q8 p. v\:ff09\"", TraditionalForm]},* t% K& D2 l, |8 [- u
PlotRange->{{61, 89}, {0, 1}},4 V( u+ i% S* b- K ~1 \
PlotRangeClipping->True,+ o* ~( @% d+ ~) c% M% M
PlotRangePadding->{Automatic, Automatic}]], "Output",/ U! r4 R6 q j1 X
CellChangeTimes->{# t3 V7 }4 a2 N
3.577925144625*^9, 3.577925396578125*^9, 3.577957630297656*^9, ]1 g# \7 C+ Y$ i' v
3.5779576933061666`*^9, 3.5779589732960367`*^9, 3.577959771908229*^9,
7 d# \( Z1 [" J* ] 3.577960281756318*^9, {3.5779603518628407`*^9, 3.577960407664138*^9},
5 _0 f) z: Y3 y& V 3.577962187510705*^9, 3.578012396921875*^9}]5 m0 ]; L3 k# n a& [7 ^# x
}, Open ]],/ H- Q* v ~2 S) z+ [
% u7 a6 i0 G0 S% u! yCell[CellGroupData[{
( {( }6 r) Z, R( S" m8 d4 n3 R3 k. d2 d# T% }
Cell[BoxData[. o% S0 o2 V k+ _" i' i; p* [2 T
RowBox[{"p1b", "=",
$ ~- B0 N, J1 g( Q1 x i0 d' `% K RowBox[{"ListPlot", "[",
" j; g( k; @$ P RowBox[{"y10", ",", 1 b% }% k) O( g( i: ?( ]
RowBox[{"PlotJoined", "\[Rule]", "True"}], ",",
7 }. |* Z9 G Y RowBox[{"PlotStyle", "\[Rule]", " ^; J/ a/ j+ ?- }
RowBox[{"{", $ P) F' h/ z; r/ @
RowBox[{
# \2 C; A, S* u2 j& C RowBox[{"RGBColor", "[",
5 M/ S3 W! l. f6 \! N Q5 D |. l RowBox[{"0", ",", "0", ",", "0"}], "]"}], ",", "Dashed"}], "}"}]}], ( N. j) Z/ ^$ L: q, w* {
",", ; \7 @& Y! a) j! {4 d
RowBox[{"PlotRange", "\[Rule]", ; w) H* c2 _- ~' @) i9 ?7 E
RowBox[{"{", ! L/ {; j, U5 N# H; V
RowBox[{: R' C5 k2 @7 P. F$ C
RowBox[{"{", ' C" F) o+ s4 E$ c
RowBox[{"61", ",", "89"}], "}"}], ",",
5 |- p6 e# K+ h: | RowBox[{"{",
8 z/ m. S1 L! ^ I& C# @2 { RowBox[{"0", ",", "1"}], "}"}]}], "}"}]}], ",", 3 p# O2 a* e' W$ O# r8 }
RowBox[{"AxesOrigin", "\[Rule]",
. v' }* r4 a( c5 I+ b0 | RowBox[{"{", + t' P2 |+ e* {, b
RowBox[{"61", ",", "0"}], "}"}]}], ",",
" q6 }. t ^' x RowBox[{"Frame", "\[Rule]", "True"}]}], "]"}]}]], "Input",
+ a, j0 G" j) a( b CellChangeTimes->{3.5779253991875*^9, 3.5779576384564705`*^9,
- [2 D1 q& |9 {# @6 P9 w9 | 3.5779597764166365`*^9, 3.578012409265625*^9}],& `- ?$ Y4 E+ O5 c& `
3 ^0 p& h3 r. c8 A
Cell[BoxData[
5 o- Y7 H8 P) ]6 j, h+ y GraphicsBox[{{}, {}, + R7 M! I: Y2 ?1 L. w
{RGBColor[0, 0, 0], Dashing[{Small, Small}], LineBox[CompressedData["0 N0 T, h/ X( I$ c' J. u, h- {
1:eJxTTMoPSmViYGCQB2IQzZemdm3pP18HBjD4YA+h/RzU1vRuFI67AeE3oPEZ3 H+ ]: [, @. k E$ T
/B2end/O6l16Gyrv78AgF7hw184TUPkAB46XmkUdO+5A+A4BDvK7FuxL9YPy
! \5 P+ F( N2 L/ d+ S: P! BGwIccqZ8nd2Z+QjCPxDgkH4tyOFW/QOo/kAHNv1fXJd61kL1Bzr4r9OccDPy5 k9 f' }, f, K! N5 U
GFR/oMNZa7+LE2OeQvUHOpx8ar/k/r7rUP1BDrwSKrVRrlDzHYIc3sU27/vy
: V+ s; H" T" y9 R+ P2 ~7S5Uf5DD3mDG7zb1t6D6gxz0D9hZlT49DtUf7HDkVb8BTwTM/cEOPBv6/WJ/
8 [9 R2 |9 D( B. Z3 [* Q9 [. mQu1rCHaoZD5Tw25/Hqo/GC38QhzKjBfL8y5/B9Uf4vBK9ZjRX6GLUP0hDvri
" g1 b1 B' u/ z/ x' ~$ e: o5 ZH+fOKH0F1R/i0LZqhpf9w6tQ/aEOFn5cn+XSoe5zCHVImah2j3HeFaj+UAeV
" Z, X! W; C0 L! z" k( wrQFGlluh/j0Q6sC1M+h8UwBMf5jD638bBWSZbkL1hzmUC1gHv7B5Zg8Ayg6T
" N4 m% M! o3 t/ j) B& j. ]2 k6 pvA==) b" T7 U* ]" t" W5 Z, F% l$ g3 l
"]]}},
. V; g. N: X( D4 x- C AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
8 v# @! w- B, S& ], I' w Axes->True,9 |3 u2 A- x# [( i
AxesOrigin->{61, 0},+ R: q$ H5 |% J# Z+ N
Frame->True,
5 t2 o$ G# E* v' q* f* I3 h PlotRange->{{61, 89}, {0, 1}},
7 W% N5 v/ w/ N" @& G2 s/ B; n PlotRangeClipping->True,. s3 X9 Y" u" \7 Z' l" U
PlotRangePadding->{Automatic, Automatic}]], "Output",7 B0 N# |; [& K9 j; P7 m Z
CellChangeTimes->{3.577925147265625*^9, 3.577925400640625*^9, ( o. ` D$ b( ~# e, y$ b; \
3.577957640266074*^9, 3.5779576946009684`*^9, 3.5779589749964395`*^9, , L8 X6 A, F: J! a. q, _
3.5779597781950397`*^9, 3.577962189476308*^9, 3.578012410328125*^9}]
6 ]' R8 K4 S" i- o}, Open ]],
0 v& d, a3 b/ Q; Q5 |
! ]+ ?8 J1 M0 ECell[CellGroupData[{
/ ?) A: b2 s: }, n$ T$ r! _5 Q6 ^7 o+ P, Z7 i
Cell[BoxData[4 N9 V4 `% b- R) {' }' |
RowBox[{"Show", "[", ( l' J g; L" J
RowBox[{"p1a", ",", "p1b"}], "]"}]], "Input"],
. p" {8 i5 Y: `" r8 K
: x% _. h7 m9 \$ }" ^" Q. ZCell[BoxData[
* u2 W7 D% E0 D [4 a5 o, D GraphicsBox[{{{}, {},
. a/ i9 u% r( I" B) I {RGBColor[0, 0, 0], LineBox[CompressedData["" S6 i$ N3 u8 @" ^. D& X
1:eJxTTMoPSmViYGCQB2IQrbz/js6hf74ODGDwwR5C+zm8FykxOr/kNoTfgMZn
. w+ f( Y& w3 J8HfIK73dWHX+DlTe32HNjaOLj4VehcoHOHAIsAYWu0PlHQIcchxULmc53YKq
/ R! o% M+ R* HD3Bg8uYy2N/5AMI/EOCgxV5t0bwMqp4h0GH17wOsQX6XofoDHbYVHgpUN74B
9 Y& j9 B/ w5 }; R4 s( g1R/owDX546Pvl6dA9Qc66O7be/+P4WSo/iCHU2FKuxg3XILqD3LY/dVrkfWX5 y8 x( j6 B7 i2 i. i8 ?5 d
C1D9QQ67drZXZr8+AtUf5BAnfXhb7xGo+xiCHW5eybq7vOEiVH+wQ9t6xvhN! E3 k7 C. `& u0 W" z
a2D2Bzt4nBLa8aD/GlR/sMO33SV7//qcguoPcZALP/8iX/4uVH+IA1Po9tff, R2 M d% N# n: s& K! b. T4 `
yqD2NYQ4dDHpngt5fByqP8TBaOqv3uSo3VD9oQ6/y+//uxLWDdUf6sDLldMb
0 b5 E7 ^2 w2 K2 r3 x3 L8 ^- mwrEVqj/UQcZIcM4dAWj4HAh1CLjff4d78zqo/jAHnahDtTfuQN3rEObQXX59
: ?. U4 |- _# i5 ^% bY6nGQ3sAieueIw==
2 L, y4 p6 K/ v4 F) D "]]}}, {{}, {}, 4 _& _% V" U5 }& n) b3 \
{RGBColor[0, 0, 0], Dashing[{Small, Small}], LineBox[CompressedData["; G4 O, _) x0 V$ d) a: s4 `: W: W8 t
1:eJxTTMoPSmViYGCQB2IQzZemdm3pP18HBjD4YA+h/RzU1vRuFI67AeE3oPEZ
4 c4 A# F3 j0 c" Y% P {/B2end/O6l16Gyrv78AgF7hw184TUPkAB46XmkUdO+5A+A4BDvK7FuxL9YPy* P9 c& A+ m* G; G7 Q* K2 d. Q
GwIccqZ8nd2Z+QjCPxDgkH4tyOFW/QOo/kAHNv1fXJd61kL1Bzr4r9OccDPy3 x5 ^$ U7 _) \: p0 i; k
GFR/oMNZa7+LE2OeQvUHOpx8ar/k/r7rUP1BDrwSKrVRrlDzHYIc3sU27/vy
6 F& H$ X4 P& I; d7S5Uf5DD3mDG7zb1t6D6gxz0D9hZlT49DtUf7HDkVb8BTwTM/cEOPBv6/WJ/
( W8 M: d5 d" i) ~+ D# bQu1rCHaoZD5Tw25/Hqo/GC38QhzKjBfL8y5/B9Uf4vBK9ZjRX6GLUP0hDvri+ f: M8 R; N; o& F& p
H+fOKH0F1R/i0LZqhpf9w6tQ/aEOFn5cn+XSoe5zCHVImah2j3HeFaj+UAeV
7 I. g+ D# Z& l T3 L. D3 NrQFGlluh/j0Q6sC1M+h8UwBMf5jD638bBWSZbkL1hzmUC1gHv7B5Zg8Ayg6T E( c$ p) c& j& ~
vA==
. w4 ^- v) @+ k* i p! N' v$ b "]]}}},1 B6 ?- D* ~: P, o4 Z* \
AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
& S1 g+ x8 e2 C0 u Axes->True,2 C( Y$ b3 C- ~/ G! T" n
AxesOrigin->{61, 0},
8 H) C2 o/ Q. {. S0 v4 \" F3 N Frame->True,& M1 ~' B) Y6 V- b# K4 t5 \+ V
FrameLabel->{
4 d) C5 U" c1 Q$ l) I FormBox["\"\:7089\:6b21\"", TraditionalForm], ' [9 W% R& ], \- H. V, W
FormBox[8 y( D+ @& q. S+ M; J
"\"\:94a2\:6c34\:7ec8\:70b9\:542b\:78b3\:91cf\:ff08\:5f52\:4e00\:5316\
# X3 o3 l: z" l+ u\:ff09\"", TraditionalForm]},9 _- p$ E/ m0 W* C
PlotRange->{{61, 89}, {0, 1}}, w: L2 r" ^4 r% v4 V
PlotRangeClipping->True,
% o4 w5 ~' P2 {8 }5 m) E, s PlotRangePadding->{Automatic, Automatic}]], "Output",
, @! w. h2 b# _* K CellChangeTimes->{3.577962196683521*^9, 3.5780124119375*^9}]1 O/ c( c. p R
}, Open ]],. D) S' `! Y+ W. G3 N5 j* D
" Q; a3 I P# C% F9 s8 u7 ]+ d4 CCell[BoxData["\:62df\:5408wi1"], "Input",
# X( q( K# F# d4 j' u CellChangeTimes->{{3.5779225126875*^9, 3.577922521484375*^9},
8 ?4 m* b$ t- S( } 3.577959662349238*^9}],/ N- X4 M8 Y* ?# h8 \+ p
c1 V7 I; M, N! f sCell[CellGroupData[{7 g5 D) N e: D( C( |; |+ x0 y( d
2 \0 a# o. R& e5 SCell[BoxData[% Y( w: ?3 z* U4 d4 H1 @2 q4 v
RowBox[{"y1b", "=", " }1 t9 x0 u) W/ E9 h4 Q' X
RowBox[{"Table", "[",
- d7 f3 N) u: _ RowBox[{"x", ",",
( G( r: I2 g9 G. i8 }/ i RowBox[{"{",
9 {! P/ ~0 h4 Y" |9 B. v# _ RowBox[{"x", ",", "1", ",", "60"}], "}"}]}], "]"}]}]], "Input",
: k/ E* c6 l8 Z, C) T CellChangeTimes->{{3.57792262821875*^9, 3.577922633546875*^9}, {
. T( x+ R, M! J) c# e1 Q$ X 3.5779226649375*^9, 3.5779226810625*^9}, 3.577958232403945*^9}],/ k3 `0 \9 j2 ^+ [
) U0 h* q8 j6 z ?9 j
Cell[BoxData[5 S7 D5 C' ?, ?9 m" E
RowBox[{"{",
v8 S8 C+ @. l( X8 U3 y RowBox[{
7 ~. Y. h+ s3 I# Q% B: x: n; G "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", 3 z t* n( U8 w5 }# [9 J1 \6 K
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15",
4 g/ Y4 A0 s) o7 t. t! B+ q! d, u ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",", 8 v" K! \- X8 _6 Q }
"22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", "28", - U2 ~3 l" l i; b( g
",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34", ",", 4 s2 j" v- i% H" [
"35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",", "41",
; E% Z8 X. ]* N$ J ",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47", ",", 4 K1 F( J$ Y+ A) E- p4 G
"48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",", "54", 5 H$ h8 _- x: {) i! N) |0 M9 I
",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",", "60"}], 4 C6 p! |: G" t* ?0 Q& Z
"}"}]], "Output",8 u) K/ W- Z8 A! a! O7 D. v2 X
CellChangeTimes->{; R2 t# }) ^: l9 t, a
3.577922682296875*^9, {3.5779582291435394`*^9, 3.5779582351339493`*^9}, ( j' j/ S! \$ N6 I
3.577958478041973*^9, 3.577959010205701*^9, 3.5779622225483656`*^9, ' }/ [* t! N$ `! B
3.578012438953125*^9}]& I6 i P2 M% Y F6 N. T+ j( f
}, Open ]],
: d4 r* c) Y' k, x" @. B' f
" X: j4 g# ^2 h+ X) oCell[CellGroupData[{
0 B+ B {/ E3 @# x+ I
; k: ?5 ?6 Q4 P2 i: k" O" i4 tCell[BoxData[; z1 W/ ~: B) b
RowBox[{"Data", "[",
5 T+ z) b$ G) [2 X( d RowBox[{"[", 5 Q6 Q& `# F7 v. k4 F6 c
RowBox[{"3", ",", "11"}], "]"}], "]"}]], "Input",8 S( z8 m8 F. K. I3 j% O$ C, E
CellChangeTimes->{{3.577922711734375*^9, 3.577922728984375*^9}, {
& l0 W0 Q) q; T5 g3 f: w 3.577922912015625*^9, 3.577922912171875*^9}, 3.5779582414831605`*^9, {
8 ?7 a. b7 N+ x+ o$ ?' ^ 3.577959014090108*^9, 3.577959016040111*^9}}],
. T, {) X7 \' w6 c8 j/ g9 q: ^4 Q& m
Cell[BoxData["0.492958`"], "Output",$ k! e2 D1 a ?, o3 q4 H! q4 @
CellChangeTimes->{{3.57792271875*^9, 3.577922729828125*^9}, , t" P" E$ u& M0 X* s# ^: r
3.577922913203125*^9, 3.577958242809163*^9, 3.5779584790403748`*^9, % u* P4 [4 ~- d/ G! p3 N
3.5779590175689135`*^9, 3.5779622239523687`*^9, 3.578012439828125*^9}]6 Y" C2 L" f2 o( E' N. z1 p1 ~
}, Open ]],5 L$ K8 p7 J6 I) \
7 @, }: M$ t! u8 M2 g
Cell[BoxData[
8 v2 c" ]* `, t" l" {. g' G RowBox[{"For", "[", . E+ i* A- i- I3 Y8 f* A
RowBox[{
. \4 n% ^8 F4 s6 M6 `) _- } RowBox[{"i", "=", "1"}], ",", " l1 R, t Q$ N: `% M/ s$ ^
RowBox[{"i", "\[LessEqual]", "60"}], ",", & r8 J7 F' E) B4 t; a
RowBox[{"i", "++"}], ",",
6 K- P/ \: K$ h3 i RowBox[{
- i- p( o2 w: r# {3 k1 _3 x8 |$ H RowBox[{"y1b", "[",
) B4 p2 ^- B' Q1 M) P RowBox[{"[", "i", "]"}], "]"}], "=",
8 h; n) {# _4 d% F* f1 r RowBox[{"Data", "[", ' a) F! n9 P8 F @; F" d" ]8 ]
RowBox[{"[",
. U- x. u5 N, H: b, b7 N: Y RowBox[{"i", ",", "11"}], "]"}], "]"}]}]}], "]"}]], "Input",
- e+ w4 P5 G. T# i' U) n5 x2 z CellChangeTimes->{{3.57792259890625*^9, 3.577922624859375*^9}, {
& ?3 [) Z& F- Q6 t7 T2 W8 ]7 z 3.577922687234375*^9, 3.577922702859375*^9}, {3.577922917453125*^9,
8 l; Q$ E, b' [7 J0 v3 Q" R/ q 3.577922923203125*^9}, 3.577958246272369*^9, 3.5779584755771685`*^9, {
" s8 ]6 F2 E* r& _! j1 s( S: h 3.57795902089172*^9, 3.5779590227793226`*^9}}],
4 x7 {+ u) j% i0 h8 h8 G
, P) l4 Q& J# ACell[CellGroupData[{6 J9 h4 {. N. i0 a9 ], [ z {
5 @6 @$ I7 [3 i7 y: H
Cell[BoxData["y1b"], "Input",& p5 E: t7 j! T+ l* O. Y5 u
CellChangeTimes->{{3.57792293078125*^9, 3.577922931484375*^9},
$ H1 F# \) u& }) A) i K' } 3.577958484172784*^9}],
. V- ^7 j# }: I3 t4 j" d. ]# |3 t4 a9 p$ z) t' \! o
Cell[BoxData[
. n" ^4 r( c" p" R8 f RowBox[{"{", 2 n7 D7 r. ~4 s( }6 g6 _* ~
RowBox[{2 ?( }$ @9 q0 I, Y5 D9 f/ {2 i) {
"0.873239`", ",", "0.464789`", ",", "0.492958`", ",", "0.774648`", ",", % t( g2 b6 U3 R; @
"0.380282`", ",", "0.647887`", ",", "0.56338`", ",", "0.295775`", ",", 2 p. v4 f! n9 k0 X! Q% W
"0.338028`", ",", "0.211268`", ",", "0.690141`", ",", "0.43662`", ",", ( C1 d6 B) j. R9 k' I
"0.`", ",", "0.267606`", ",", "0.211268`", ",", "0.408451`", ",",
3 c2 R; i- O, N "0.478873`", ",", "0.380282`", ",", "0.211268`", ",", "0.43662`", ",",
! ?* @' G4 h( q0 ]! B; `+ }6 r$ Y "0.478873`", ",", "0.295775`", ",", "0.028169`", ",", "0.43662`", ",", / f8 c9 L5 K8 T, q! I+ Q
"0.394366`", ",", "0.295775`", ",", "0.830986`", ",", "0.169014`", ",", e% b v# y6 d c5 i3 W6 {8 M0 A
"0.366197`", ",", "0.309859`", ",", "0.352113`", ",", "0.309859`", ",",
& f9 u) v* e/ o1 C0 e9 ` Z- d "0.774648`", ",", "0.422535`", ",", "0.887324`", ",", "0.887324`", ",",
5 `# o, {' m! f" X "0.859155`", ",", "0.239437`", ",", "0.295775`", ",", "0.746479`", ",",
$ q* y- E" G ?8 L; C* H "1.`", ",", "0.549296`", ",", "0.366197`", ",", "0.549296`", ",", " n. U6 e6 w" q" e
"0.577465`", ",", "0.690141`", ",", "0.71831`", ",", "0.521127`", ",",
- M5 c4 V: T6 c! R0 |2 X3 b! o "0.929577`", ",", "0.521127`", ",", "0.338028`", ",", "0.380282`", ",",
9 }) X) m" _# v9 M "0.676056`", ",", "0.591549`", ",", "0.464789`", ",", "0.295775`", ",", 4 ^- y( }% f0 w
"0.380282`", ",", "0.211268`", ",", "0.253521`", ",", "0.28169`"}],
% a# ?" F: Q' K1 |$ [% E; ? "}"}]], "Output",
- `: S h- x8 C" V: P# W* K: t CellChangeTimes->{3.57792293246875*^9, 3.5779582549771843`*^9, 8 J2 W: ^, a: f' q* j+ t
3.577958485420786*^9, 3.577959026460929*^9, 3.5779622288195767`*^9, 9 X3 m! s% {2 f" x* e
3.57801244275*^9}]! M0 _) T( L3 L' H% n: b
}, Open ]],
/ c2 z5 o$ P+ t5 {1 \4 f; N
, Y0 y1 R: s1 m' JCell[CellGroupData[{ @2 [; l+ N; k u s- k& @3 t
4 D7 g1 b9 }9 X, | _, m v
Cell[BoxData[
2 R& j3 r) U9 ~' u: c2 f: G RowBox[{"m60n21", "=",
1 `6 J% Q6 r; H+ y5 t+ Y6 J RowBox[{"Table", "[", K( M7 a+ E9 X5 Q9 W
RowBox[{
0 K0 \; w2 b$ r& ~5 p! B8 M0 n RowBox[{"Table", "[", * K' t9 O# J! i3 T5 t t1 S
RowBox[{"y", ",", 1 \! ]0 O$ ^, q3 j7 @
RowBox[{"{",
L- j" f: _! c9 Z' W: B RowBox[{"y", ",", "1", ",", "21"}], "}"}]}], "]"}], ",", k' m6 v$ }' P! l- }
RowBox[{"{", , A( t$ \0 ~6 ]7 z! D. p, Q
RowBox[{"x", ",", "1", ",", "60"}], "}"}]}], "]"}]}]], "Input",
, J& Z+ p/ M0 L! v CellChangeTimes->{{3.5779239260625*^9, 3.577924021765625*^9}, {
. {- k, S, g" O j 3.577924052828125*^9, 3.577924101671875*^9}, {3.577962237961193*^9,
; p3 W' [9 F% \9 R# }. x 3.577962240082796*^9}}],
9 Y: X0 h6 E2 ~# d5 |, B5 O' O5 |* c/ N1 w( T
Cell[BoxData[! I% f: E; e4 S* Z) r
RowBox[{"{",
1 c1 [% H0 ^. Q$ y0 M RowBox[{
* h$ K2 i: |1 V8 d" O7 b RowBox[{"{", 6 w" W8 ^* @1 F# u" q8 h
RowBox[{5 y/ W& n. h5 l: q. D
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",8 J4 @! A; O$ S% j3 r4 c7 `
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", ( S! Z2 G, S* M7 @3 J" [
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
+ ?1 E2 j$ G ?) x5 c "}"}], ",",
% B' ]' D. p4 e; H. i; X RowBox[{"{", & p1 l3 v( X) z1 m7 F
RowBox[{
1 J3 U" O! x$ m "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",: h- U! Z' q1 a: K6 V1 ~/ U
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", # K6 f P- A b2 g2 j) t# V% u
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
1 t$ h; m3 N. Z. B "}"}], ",",
+ k- p7 f- b- P! _9 L RowBox[{"{", 9 R8 g6 D5 d W8 S- T
RowBox[{" h( `0 X+ `/ F6 P6 {, p7 P
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",1 Y8 a! p: V5 N2 }( W5 `* g& y. ~
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", ' @8 \& }; Q/ e _1 M% ?
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],+ R+ p4 u6 _ P) r
"}"}], ",",
: V& K. h! K6 G4 m X0 h$ J RowBox[{"{",
% U# l. z) g8 \ h! y7 K' P" Q. z RowBox[{
% Y3 |8 \3 G0 L9 q+ ]. b9 A "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",. Q/ L$ S. I7 ~0 F! W. C7 r' n6 E7 R
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
) `4 a8 Q1 @+ J- ~ "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
: @9 k; B0 n0 m/ a" U* ` "}"}], ",",
: s& N1 _- {5 P RowBox[{"{", * U+ l, N; W4 J5 g7 K' u Q
RowBox[{' H) h( h" \$ d- `/ l2 |
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
7 [5 t2 G/ n. w( M' F3 |3 e ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
; B1 `! t) x# V$ v$ m ] "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],8 o. M- }: d- ?: F
"}"}], ",", 4 c5 N9 t/ `" y
RowBox[{"{", . d8 U: | F( m
RowBox[{' {+ H4 k5 `0 w" V. x
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",/ B. K2 U4 L" M' J8 J$ V
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 6 d9 x/ P) o! { N3 j: D
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
- F# \- r3 w7 @3 X ? "}"}], ",", & V3 J- z( G( V2 f. i
RowBox[{"{",
$ e; G& g: {+ f& {) k RowBox[{
& w: ~7 d/ u' `7 E% l "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
# }( {# p, e7 I; `6 I, m/ o c ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 1 D/ s M7 j5 z& J: ]
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
7 G# X ?, c" `" @ "}"}], ",",
$ W* ~8 T) {- A1 ?- V RowBox[{"{",
7 W" }% x+ O# W3 `2 ^: V4 J+ {. ` RowBox[{
/ `: Q1 P% Q2 Q! g% x# Q! |% S "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
, r. d5 z9 |" P& L ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
+ i; x1 C: O3 y& J- w8 m' K V6 W "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],+ k1 o( i% c k3 S( a0 v' S; j
"}"}], ",", 5 n% G; R/ g% @( |" ^( D" k: A
RowBox[{"{", " w2 E. u, B- ]3 Y; T
RowBox[{4 S! A0 x8 e W5 K0 ?
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
9 W! B9 }) _) B7 P7 g ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
9 u' `. R- Q- D) M' [1 ~ "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
u/ I2 {' M5 E: j' c+ p4 e+ {4 R0 _. A "}"}], ",",
7 v j u8 o& o6 R0 C RowBox[{"{", ; C3 I. f# F/ y/ R
RowBox[{
3 z3 ^& ?. b/ c. y! D "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",' g- t! n& x( g0 b6 i' m {
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
2 |8 a: Z F9 \6 |7 Q/ ^, Y8 O "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],% Q6 `3 B; V" i! ]
"}"}], ",",
! h$ m( e; E. b( E RowBox[{"{",
' w' g t7 U3 x7 i6 Y RowBox[{
- y- I6 {* I- U" e7 t: o1 [ "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",2 w; T& Q! {! ~
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", ' _" _2 @6 i" H4 Y4 u5 {0 `
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],) O2 E# J6 l0 O/ ^: {) n' j
"}"}], ",", : Y8 f# \ @2 \9 {% p+ F
RowBox[{"{",
J' q7 O9 ]- h" O RowBox[{
0 N L8 d- r$ w) b9 s "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
6 t; g p Y# Y1 | ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
9 v" ~3 ~' B- y% E; p "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
9 b+ T L* i' P4 O "}"}], ",", 2 [( I8 q/ c' J) ^' B* p* V+ M
RowBox[{"{",
" d$ N* k4 h9 _* C RowBox[{! j8 I/ ]/ ~% s3 |; b0 t6 o
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
5 H* x0 G, n! e) T- d3 o$ d# s/ l' h ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", ; s! D$ \! L4 A0 B" ~4 _
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
/ S% _/ I3 s6 o7 U G( x "}"}], ",", " d; p2 k3 d# F: h- ?, p O6 b3 E
RowBox[{"{",
8 g/ ?) i1 [6 p" H+ { RowBox[{
( V, @) d( p: v& |% y* W "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",+ J/ L, P2 O. j+ T' h
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
0 j% t9 S% o* C8 p! Y "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
# y, j, C1 I: |) v; Y( X3 f "}"}], ",", 8 j/ p4 f4 T2 e A; y# m
RowBox[{"{",
V* r- N! `, w- Y; E0 F- L E3 v RowBox[{" G+ e0 k- J3 g, F2 j5 ~# X/ j
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
/ } D, o# C: g2 z ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
3 h. a* @9 g4 G "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],& ?; x, I1 w( L( Z" D
"}"}], ",",
1 {) H: b' i3 H# r& G& z$ z' g RowBox[{"{", , X0 I" e6 j, V8 {
RowBox[{
5 m4 g B/ k0 p- V "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
$ G# L; K3 X* B! Y0 C ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
. N# k: } W, b$ h1 Y0 y2 t9 f "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
" P, s8 ^; i1 u5 R8 }, M5 O "}"}], ",", , P- `( _7 R$ ~
RowBox[{"{", 2 J( O) i' D! v( I
RowBox[{ t( O# ^! s9 e# ^/ |& t
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
# G1 D! h# p& O# U# u6 B ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
* T9 `4 U! Q1 [, y4 T "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],1 d& z7 U& t7 I v( m, v3 z+ d
"}"}], ",",
$ V! c# ~; R# p' Z& ~# E RowBox[{"{", ' e8 J9 L, F0 ?- a. {# h- f
RowBox[{5 |9 x' c$ e2 A% H
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",; b i6 E) Z7 m3 e" o
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 1 W+ c( S0 A' }1 j( ^) g" f' d
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
3 g. Q. Z& \' t$ F y; V2 W* m "}"}], ",", - D& r3 n, b% f: u. c
RowBox[{"{",
, }9 H9 H: X Z RowBox[{
# O: D/ ?( ` m2 U8 i3 P5 q "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",4 \& U) I' j5 g: z# `# J) q
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
( P: f7 E; U5 F "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
* l; c" V& J+ P$ v$ R( T "}"}], ",", 4 w4 v4 l) ?1 u. E% }; i* V
RowBox[{"{", . [9 u: N, o$ I# l% Q
RowBox[{9 o! z8 @8 W. n) W( o
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",8 d$ T( d* s l% U( q+ h ]) K* O
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
- j# ?9 {$ u! @+ _ "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
$ {1 g1 w; Q" m+ V( h5 g "}"}], ",", 5 t4 t8 K3 s% X: _
RowBox[{"{",
$ W- I; `2 b0 J j; _$ J% _0 ?6 M RowBox[{" J( f% H6 V: B: [# }
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
( | E3 k" J; K: w3 H& b8 g ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", , n9 |% S- @7 _; i8 L+ {
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
. q' t2 ^ N1 i1 u "}"}], ",", : J0 h: \7 u% s4 M X
RowBox[{"{",
8 j9 p* v4 I* J3 @' j- P& ^ RowBox[{/ u+ N# E) d1 S @" A9 N
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",& ^: Z7 ?9 ]% Z$ h# z
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 3 j$ K$ @. l5 h \# {* M. i1 M
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
. O# n& A- N" N0 u "}"}], ",",
4 F2 U2 Y7 i. t. i. n4 m RowBox[{"{",
& L" h% H+ D0 g RowBox[{ |. P! k( t3 q: C
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",- f9 l2 C1 j7 L6 y
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", / C% l/ n. g* }. z/ H
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],$ U3 B5 m' o5 [; q, W
"}"}], ",", - u: n/ I# E/ h% s) X1 r' {
RowBox[{"{",
# f0 R" u, ^8 x3 ?: K8 ]8 S6 m RowBox[{ n- t$ C8 E0 B) w+ G
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
) I# z7 [0 O8 ~5 H' C6 O F ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
- P1 M! g ^- C: r# ~7 ` "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
% j! f# W; p# a, q! q+ _ d0 i7 g "}"}], ",", * Q7 Y9 j/ t! O, B& D
RowBox[{"{",
! `* b" z/ q; v# t: U3 W- T RowBox[{& O# a. N7 z- }% t) X# x4 |) |" M
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",- r: }1 x& P: `# h& @* ]) x, V
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 6 y7 I, ?* x9 i7 p e
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],6 f/ @; m: c& w1 Q
"}"}], ",", 6 l4 k# J6 w; e4 g6 p' Y! B
RowBox[{"{",
. @1 }- ]4 y- i( s. F RowBox[{+ Z9 e$ ]' ~5 E8 z1 B# d
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
4 F- @. }, Y5 ^/ j ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
- q/ ]4 M4 a) n6 ~* k% [ "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
$ p$ p- r4 J/ F5 B# c, s "}"}], ",",
# z8 d0 m/ q+ Y% R' u RowBox[{"{",
' d2 b" w3 S. A6 @3 h8 t RowBox[{6 H9 H/ x- B8 T( S/ \5 j" }0 [5 Q: ^* p
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",7 n# Q3 p* n& [+ V0 r1 ]. a
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
+ p: U8 i0 Q0 q. {6 _. A "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
9 H, L! s+ X5 u8 N. t "}"}], ",",
: }. E: T1 A, ~9 @7 e; l, F RowBox[{"{",
4 h4 J9 @7 G. C/ R RowBox[{
5 A% f/ S: B* X; r/ @: K: l "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",0 p7 O( H) S" t8 I* W0 ^, H& l
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
! d; h6 F8 _7 e. S "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
) I) n+ X3 \8 {9 Q* v- G/ i "}"}], ",", 1 {( x$ \% | ?6 e5 Q& [+ q; `& c
RowBox[{"{",
, O) V. _7 Q' b: i RowBox[{: d3 ]- f& R- x) Y/ ?3 D
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",$ b3 b# X( y: K8 |6 p
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", ; O6 J! i7 V J
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
* [9 o+ |: S7 e9 n6 l0 I "}"}], ",", S) ~9 Z9 X, J9 n
RowBox[{"{",
' l" i% ~6 b( p2 T8 \6 \( ~% @6 e+ G4 P RowBox[{
a( o2 d! s0 l& T) ~ "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
' e. w, E* p( u2 z2 f& Y* S" [0 E# | ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", & c: e% R/ D: g( R6 A3 A9 Q
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],/ j7 M% C- k7 |) H# @# O! H4 }2 c
"}"}], ",", 6 r" ]2 c( k8 d
RowBox[{"{",
2 I+ C! u2 o) ^+ n: W2 p* c# @ RowBox[{
9 W; \* k- U! [, o( O "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
/ s4 J* Z) Z" N8 K3 f ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
( O1 O( ~0 l+ F9 n$ n# f: `+ S "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
1 `' q! ~ }4 U) S6 e "}"}], ",", " N& o4 u" B% m( L+ m4 m9 s, o
RowBox[{"{", - K% p! S+ a" I
RowBox[{2 O% ]9 v0 w3 m$ A
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",3 k. j9 ^8 j9 k1 Q& n4 \' g( F# T3 s
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 0 n( s6 w! ?4 l: k
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}], E8 L8 y9 F! H4 [) G7 ^& \
"}"}], ",",
% W) V% ]& {3 ^: n RowBox[{"{",
1 V; Y. O- q$ H: X/ s- N1 v RowBox[{
# ]- ^3 r) L+ H& D5 B I8 C "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", p- {, J* n8 X: q+ @4 h; f
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
& v1 X) l4 O9 w* m7 ^ "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],: m! j1 x6 r1 Y; o6 U; X, |
"}"}], ",",
& V& r% m# X: b' H; g RowBox[{"{", % y/ Z8 [1 ?7 A+ {4 `! U4 C l
RowBox[{
; m8 H& D9 e r. a$ _ "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",& e5 g' q3 y$ I4 Y }1 _
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
% m& L6 o+ H0 \' o+ s4 x; Z "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
$ U6 f2 o& y6 [- X& q. N "}"}], ",", 4 I3 Z* f! _, Z' \2 v
RowBox[{"{", 0 q" G' f0 o6 e" b9 [; E
RowBox[{" v! p. T1 k2 V9 r
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",) w% s# G0 s6 y+ }
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 3 H) s5 o7 f5 Y( Z/ H- G
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],) E, c9 m! J1 c/ J
"}"}], ",", $ X4 |/ D; N/ h9 t/ q: W2 ~
RowBox[{"{",
8 L" V% N1 }1 X* q2 U2 ]: i RowBox[{
* a8 _; O4 n' P2 z' y- ~+ T2 Z0 Y "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
, A P" R* ?+ ^, j0 _; N4 m ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", $ b" y" J6 R- r! T- Y& Q
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],, \+ H& g0 w" f) q
"}"}], ",", # v) F) F- g# e$ P4 a' g3 I
RowBox[{"{", 1 j8 N! ^8 V3 [! I8 ]" t) a
RowBox[{% W9 o& ~1 S, \$ c+ a/ ~, t6 G
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",: s% ], p/ x1 V, u- \* Y
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 9 I9 `1 i* r$ o, A; |1 z1 z Q
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],) K+ J% q6 `) R
"}"}], ",",
! ]6 B3 x4 F) @ RowBox[{"{",
7 Q; h0 H0 R$ A' }# P4 S6 H' {) ~ RowBox[{# K5 `& w/ w- H0 d* v% w) {' S2 ?! k
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",/ E) F$ G7 V% f
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
! o: \% n3 [. n, Y) M1 G; G "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],9 {( c3 n' B+ F; \) u3 y
"}"}], ",",
0 z6 J3 n6 n' E- j( Q RowBox[{"{",
1 {; n v0 J% [7 ~! u% {* m3 b# m3 l$ } RowBox[{7 d" R" ]0 S4 [$ E% g8 {0 R
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
9 Z% ~5 \& o/ ~1 q4 O- h# E; O ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
1 e, _/ N) m( c# Z# D. n "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],5 Z ?% [; v. Y; T; F9 G2 {8 j' v
"}"}], ",",
9 b2 ^" o% k; F8 v8 F* ~ RowBox[{"{",
) g, o- f$ Q9 ~4 q- @ RowBox[{# [4 W% g5 y& S+ E5 S
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",. n4 f( {) N: H6 R& V; a
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
; y& b4 ^/ j% g! N4 G& \7 K3 G& s6 G, j "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
1 C `) P) P" ?+ ` "}"}], ",", % _, [* ^! _+ ^5 \. W% y C7 S
RowBox[{"{",
8 t6 ~1 z, ]6 w8 V RowBox[{
6 w+ K, k4 u/ p- C" K- E2 t; l% Y "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
) f6 w! i1 d% ?+ f6 _/ J& f& C! ~ ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", ' h! d$ x9 n0 V' s
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
& a7 r, w* s. F7 q; d1 C2 w "}"}], ",",
& A, g6 W8 u& d+ ^5 V2 W5 T RowBox[{"{",
& A3 K+ S) B- X6 X. }2 I" e4 g Q RowBox[{
8 ]7 Z0 U" {' y7 N "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
+ T2 [0 l. M: U4 s ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
, t' K3 f. ^% ~- K. T" x "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],% c! C5 ?4 u2 [$ r% w7 I
"}"}], ",", - R4 t/ ?4 A! k5 C' V
RowBox[{"{",
# a# x {5 K- g" a RowBox[{7 O- r" n' @9 J# E; W' z
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
9 V @; [! Q6 V" b ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", ) Z# g5 K a# ~
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],8 d2 C2 x7 I5 n) @, e* S2 ?
"}"}], ",", 5 I9 G4 T, ^* i0 ]4 J5 A
RowBox[{"{",
9 N. v$ q. C# E3 o0 B$ ]% U& w: F RowBox[{: U5 r9 {$ L" [/ ^2 I1 X/ T- z+ c
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",% w" _' [/ @+ @: q$ f+ @: y; ~
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
* b3 ?5 R$ K1 ~" o "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
' f, n5 w7 V. h4 E. G9 \ "}"}], ",",
+ A5 U. f, v7 D3 C& X- A" k: m! ~ RowBox[{"{",
9 S3 @; u7 W& D# b; z, q! T3 z RowBox[{ Q2 b3 G; F8 g' U9 A) K3 q
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
+ k; D& Q, L9 u% c1 d ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", - P4 Z# C' V) x k; L
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
* i e. b6 Q- Q& s8 {4 ` "}"}], ",",
w& Y8 S: q; d' u" o RowBox[{"{", 5 ~1 R8 @1 I1 H" }/ J( z, E
RowBox[{
; v$ W* B$ m' r5 N2 W "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
9 b( g$ U( r4 {% L ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 0 T* t- n( Z# {4 I
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
: l9 y$ a* `* Y U* A "}"}], ",",
7 D, B2 I5 Z @5 f+ ]$ x RowBox[{"{",
8 B5 M6 u& z! J" H& V6 L+ u& B RowBox[{1 f% [# K/ S0 }4 D9 _; [
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",( B8 A: f2 T: v1 @# k
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", - q9 M; s8 R1 i! `0 O; t
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],/ h! E4 p* R: y- W5 Y2 r- Z
"}"}], ",", 9 J8 c7 O' x/ T" c4 r7 H$ K5 ^
RowBox[{"{", " T5 G$ U0 V7 c; S6 o
RowBox[{2 [6 W. {' u; h# r
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
) t3 P! n! n' S0 q _; a ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", ; Y! H, ]% V0 ^6 U9 u) E, n6 c" B
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],! G# |/ S* b, J
"}"}], ",", , P3 Y2 l$ i( o
RowBox[{"{",
0 a y5 U# z& g# z5 e( L2 d8 a RowBox[{
6 N- B8 r8 f" Y5 C D "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
2 B x- O# u$ v! d! g ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
7 h( U% J, T" x1 N; q "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
. i3 Q$ }: T+ }& O "}"}], ",", & b5 I( Q n+ b' `
RowBox[{"{",
( v% N# Y6 [4 M% q' J! h h RowBox[{3 x- Y2 G4 C- x
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
; `" C- I2 f0 v/ F ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
$ K* d- N/ ~& O) K- F1 ~* O( A "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],6 {1 U: M7 A# b9 t0 r7 I7 j' s" ^6 G
"}"}], ",", # X1 e1 ^2 `2 g! S) k. T8 J4 z
RowBox[{"{", , n7 G4 }$ w, \7 D* H! c" O: k) }/ ~
RowBox[{
" \$ i( [& W( p* @ "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
# O7 T+ E# z6 B* `& b6 t. F0 \6 ?( H ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", & s8 ~6 |: Y) d; {
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],7 [" p# L) c9 n# A2 N
"}"}], ",",
. y6 w/ l. U- t- A) u- h' x" G2 ~ RowBox[{"{", # W( r' c: R8 ?6 G6 S. k- U( e
RowBox[{
2 X6 |7 t4 L* h5 R! y! j" w7 ^ "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
. C$ w6 d) M, ~" o7 q ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 7 T) {6 p- `) X6 s& X, A0 A, X
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],$ v" _: q$ m) a* S% }* p" u
"}"}], ",", ) z3 }' Z! V8 W/ a7 ]
RowBox[{"{", 2 ]& y; w( e4 V* M
RowBox[{
3 `' C8 v- q7 V' e x "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
$ Q6 ?1 i4 y% @2 q ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 5 _' X2 C0 p" O: o' E
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
+ _, U4 ?; Z9 \3 \9 m "}"}], ",",
! r: w5 {" P& X% q( \. [9 t RowBox[{"{", . p$ k; h1 d# }, V q
RowBox[{: P6 U: l& Y9 z
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",1 E: }5 H. z0 q8 A; l
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 2 C+ K/ w0 U& a! N- |8 A
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
! G. {) v' a- C: Y1 }! ~* ] "}"}], ",",
, E3 f' v- A: Z* I& h, [* o RowBox[{"{",
: z$ w! H+ Y( Z7 e0 c RowBox[{4 C/ @+ F* W0 Y; l
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
3 E6 w5 t0 n: Y- T. G ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", ! y- n# ]& O2 s& k2 C
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
; P1 G* t% s' B) G/ O "}"}], ",",
# w8 _* {+ I4 C7 K RowBox[{"{", 7 ]! U9 x7 t5 i1 [1 L# r4 ^/ V# H
RowBox[{: W% {3 V2 }. L. A
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",! G6 M, f! _3 e" R9 E3 {8 A, ^7 Q J
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
" h2 R1 H# H3 O T6 Z; ~ "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],8 Z/ t& I9 I$ \# q+ Q) M8 C1 T6 N
"}"}], ",",
, i* B. k6 r; D RowBox[{"{",
0 v% J; _1 z* Z, x+ Y RowBox[{, ^3 f6 x' Z9 R( k
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",9 l9 ~ B2 d, j* l# P
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
5 r, g: f e0 [2 ]' @) |# P I' ~ "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
" V7 D" h% b% | "}"}], ",",
; ~; ]) |, |6 D0 l" s( [ RowBox[{"{",
! l5 o& r, h: y( ~, n& ]" b RowBox[{
) O* E5 n1 ^+ @9 f+ {6 \ "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
8 J0 b/ l# }, M8 ^( g; v ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", " Q6 q2 y4 O8 ?
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],2 h, l; Y( O+ W7 g- ^2 A& X
"}"}], ",",
& q' s4 a% k4 O8 T* q RowBox[{"{", 7 X9 d( [- E6 |( d/ j+ s8 X
RowBox[{
{" b, ^( b8 l( X "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",3 \! n2 q3 I- S
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", / d( x( x- F ~/ b1 ?3 d! o: }' q
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],8 n, O$ q' {" t5 e& F. S2 Y8 y3 F9 B$ Q
"}"}], ",",
0 o& U9 L m5 a, u6 ]( R RowBox[{"{",
9 K! N% L, H0 v RowBox[{" k5 E& f6 f* M$ h7 H @
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",2 a9 t: r b. a, k
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
( T9 o+ a" f& S8 u6 p+ \4 H "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
* C6 d% U# z$ t* A "}"}]}], "}"}]], "Output",1 B2 Y# H. l+ u3 y, _
CellChangeTimes->{8 s( e$ ^. W. m# e
3.577924022828125*^9, {3.577924056171875*^9, 3.577924103265625*^9},
K4 D1 ~, j2 Y, f# @- @/ T! F 3.5779582609987946`*^9, 3.577958492393998*^9, 3.5779590297369347`*^9,
7 v: ~% l# O7 b5 @8 ?0 E 3.5779622422980003`*^9, 3.578012443890625*^9}]
6 l; c7 X% Q' o/ O, N0 `9 E# Q}, Open ]],3 V8 v/ o+ M ^3 m9 _5 f. J
H1 C4 t- e5 L- j) Y1 O2 @
Cell[BoxData[
+ n1 b4 D. t2 r; x- X; b& U RowBox[{"For", "[",
( E- z- }7 O# U- Z; V& J RowBox[{$ g4 ?! A6 b5 j6 u
RowBox[{"i", "=", "1"}], ",", ( h9 i, m4 w* \
RowBox[{"i", "\[LessEqual]", "60"}], ",",
6 `6 m6 k+ e1 l* `3 B RowBox[{"i", "++"}], ",",
2 ?; G; B, H6 x! c RowBox[{"{", "\[IndentingNewLine]", 3 |- m+ e0 q. h
RowBox[{) P+ _/ o" l' x8 K3 x& ]6 ~& H. y
RowBox[{: b: \5 J6 [* a. y5 R
RowBox[{"m60n21", "[",
( \9 {% Y: O! O( j. l8 S8 I4 b RowBox[{"[",
& b) C! p9 B& W+ _- i9 ~ RowBox[{"i", ",", "1"}], "]"}], "]"}], "=", " | P! U2 s9 m l8 i8 Y* ^* Q
RowBox[{"u1", "/.",
. N; z" L# z" ]9 f RowBox[{"{",
1 d0 v$ y6 {! U! H% j% n: Z RowBox[{3 E/ a2 E+ F/ f* x3 P
RowBox[{"x1", "->", 9 @! F! j( [7 F/ I6 x+ J7 n- H; u( I
RowBox[{"Data", "[", ' n) r4 b" T# V! G6 O+ \
RowBox[{"[", 5 i* g5 v+ c. a# r# w
RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",", ! A) G6 O& {, q! {' I6 M
RowBox[{"x2", "->", . `% u/ M# {* q" D9 F7 H; u' G7 {5 {% b
RowBox[{"Data", "[",
. r% W+ S9 O+ ? RowBox[{"[", 9 L0 x* A" `4 ~, H) d
RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",", 1 I$ Y. n+ a' ~! p
RowBox[{"x3", "->",
2 S2 |; r1 ]3 e0 ^5 f RowBox[{"Data", "[",
1 _2 H, ], j8 A/ G RowBox[{"[",
7 Q1 C4 ^- v4 l+ q; s% m E2 O2 S RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",", b5 L, j1 D: e8 b4 F- j
RowBox[{"x4", "->", 6 Z9 U' l1 h7 D4 h
RowBox[{"Data", "[",
3 Y4 {# ~% y$ H0 Y$ R- {! N RowBox[{"[",
# O' P' Z- j( G$ Q' H3 u RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",",
/ K$ ~; K; t1 D& v; u8 W RowBox[{"x5", "->", 7 ~* o+ A+ F8 H% T" e: o) ~
RowBox[{"Data", "[",
; P! f$ Z% Q7 { RowBox[{"[", 8 e) y; H$ E7 }2 u) t& i% W$ [) z
RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",",
G" m- `9 j9 R& [( W" P7 i RowBox[{"x6", "->",
5 ]. u. O" _% U# M* j: C RowBox[{"Data", "[", 3 A$ Z {, k6 j: E; N
RowBox[{"[", 9 P! P2 n! M3 p2 Q# N( U
RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",",
$ j! c3 o& Z3 _3 F RowBox[{"x7", "->", & Q5 u' ]% P$ H2 S7 p: d6 T6 G1 Q
RowBox[{"Data", "[",
* b& C2 `$ {3 k* C' y3 c( y" j* K; N RowBox[{"[", & Z+ S4 ?3 s3 _9 U
RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",", - Y6 F z P& V. j6 J
RowBox[{"x8", "->", # y2 g( R1 u( U- ]+ m
RowBox[{"Data", "[", * `4 c) u, ^" E
RowBox[{"[", / w9 x6 ^. e4 L) }0 A2 |& G H5 _
RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",",
" o6 V$ y0 e. j5 J7 \6 p: v- g RowBox[{"x9", "->", . p0 {& d( `) z* w! U( L# L
RowBox[{"Data", "[", 5 L# v. y& E( N- h+ c+ i Y& V
RowBox[{"[",
9 `9 V% N) @) K7 f) K+ N RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";",
* Y: }/ Y/ g Y/ n+ w/ A "\[IndentingNewLine]",
+ K) ]4 w* A- E3 T RowBox[{9 K7 s& X, M$ X% v( K, l9 |
RowBox[{"m60n21", "[", , g9 [6 \$ ^$ t
RowBox[{"[", ( P- o& T" x! g8 }- S9 [, H- q
RowBox[{"i", ",", "2"}], "]"}], "]"}], "=",
% v3 s( O) c$ m. ~- U8 ^1 s0 Y RowBox[{"u2", "/.", ! C e/ P: T0 S0 D% H0 ]+ C
RowBox[{"{", 7 V: u: d+ _$ w# e; |) f+ m
RowBox[{* R+ s$ [ u5 [
RowBox[{"x1", "->",
, e: D/ z3 Y% J% e+ G/ ] RowBox[{"Data", "[",
- U2 y0 h; v. Z; O8 B6 K6 p$ O RowBox[{"[", - D8 t3 m9 a ?2 @7 D8 C' e
RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",",
7 h) F8 u5 h& v- r RowBox[{"x2", "->", - i1 f* j9 s: D. \
RowBox[{"Data", "[",
+ v6 H/ H2 }0 G: m. ~; H2 ]) R5 ^4 m, q( Y! X RowBox[{"[",
, x5 |0 D2 Y6 B4 a RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",",
: P% U' D$ P, E4 R RowBox[{"x3", "->", ( y# F4 y; b& x3 p
RowBox[{"Data", "[", 8 x3 j4 A1 f# v2 `8 v9 v# r8 h; C
RowBox[{"[", F5 C9 C: d( [
RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",",
; B- D+ C' G! i RowBox[{"x4", "->",
4 [; f# A: `0 d' Q RowBox[{"Data", "[", ! ^' @: T1 s6 J( t0 R1 m
RowBox[{"[",
6 Z. J! `/ u: h3 N RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",", 7 y3 @5 m; x3 x6 Q8 g- P) q
RowBox[{"x5", "->",
+ W3 r5 Q' [4 P) G" A: D0 g& ] RowBox[{"Data", "[", - A* ^: H, O* |" C2 h
RowBox[{"[",
7 Z! L3 r" }; z( t+ a( X RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",", 3 y% N( |- T5 ~8 z6 R
RowBox[{"x6", "->", ! s5 |1 @( Z# K. R
RowBox[{"Data", "[",
* ?, X3 h5 j' ~- b) g. N/ { RowBox[{"[",
- f% F4 ?8 x @6 t8 [ RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",",
' y; R( B0 A: P" Z8 m RowBox[{"x7", "->",
, A5 V6 r9 T, r- _/ U0 s: e RowBox[{"Data", "[", 2 |8 d4 C! G9 F
RowBox[{"[",
$ B# z0 s! K/ D RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",", 3 e8 k7 ?- E; y. x9 D
RowBox[{"x8", "->",
' w2 |. M( u7 `( }' m! T( ? RowBox[{"Data", "[", 8 r' Q$ j3 U% b* S4 S; e
RowBox[{"[",
0 L$ E* C4 r& c. L: W+ p- {1 w8 p0 K RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",", : B8 Y$ s# V9 [3 i# Q2 H* R
RowBox[{"x9", "->", 3 J8 G4 G, f' v9 A: P) [! U
RowBox[{"Data", "[", ( P0 g$ Y$ j* R. V! z- c9 M% I2 L7 j
RowBox[{"[",
* ^/ Q6 n A6 `2 ` RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";",
& H! G/ C9 R3 v; `( |6 W) p "\[IndentingNewLine]", . y7 L( L' [* ]$ v
RowBox[{
, h( J: _. K8 V8 u. X' Z6 m RowBox[{"m60n21", "[",
- \0 ^: l8 y: L& C( g RowBox[{"[", 7 e# h! U8 D6 o% g3 n8 A
RowBox[{"i", ",", "3"}], "]"}], "]"}], "=",
( _! Q3 F( I" r RowBox[{"u3", "/.", : ~/ s$ n) G: {1 I+ l* {/ {& C
RowBox[{"{", * I. e5 c! ^+ o5 M& f
RowBox[{; T0 [. j) G' s1 e( }
RowBox[{"x1", "->", & B0 H1 r7 p( A8 D5 z! i6 v( c x
RowBox[{"Data", "[",
$ Z+ B* J$ O( k RowBox[{"[",
8 V% f5 ]6 M( e9 `& g3 ? RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",", 7 r. B3 {, U6 ?
RowBox[{"x2", "->",
, K* s' ~+ e2 ? RowBox[{"Data", "[", % o# l% Y" q( X0 w! N* N
RowBox[{"[",
' F& {0 M! A8 s9 `0 z' a7 e) k RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",", . C D" Q' S, E! K; T4 t: ~
RowBox[{"x3", "->",
7 a7 B9 X* e! ?: {( ` RowBox[{"Data", "[", 2 j1 b: L+ W) o! [; p" h
RowBox[{"[", * i# ^& i8 W* K+ B! c0 u$ |/ e; V
RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",",
/ A# J0 C9 Q. k9 |/ x RowBox[{"x4", "->",
4 r4 A6 r7 t: H" S RowBox[{"Data", "[", ) h/ y( Y7 e- b6 Q8 p+ b
RowBox[{"[",
; P3 z5 H* B9 t" d RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",", 9 a v) R5 Y/ C5 B) i1 {
RowBox[{"x5", "->",
) r- \+ Z& s# D* W" Y" J8 T& l RowBox[{"Data", "[", 4 H' M. t6 u/ D$ R0 ]8 O4 j
RowBox[{"[", ) C, ^/ s, |) E
RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",",
' V. M- f; ?( l0 ?8 `0 p RowBox[{"x6", "->",
' \1 @1 m$ {" {" O, A6 a" j+ B& F8 [ RowBox[{"Data", "[", 5 c" U, A9 S* q1 [7 z7 N
RowBox[{"[", : \( G- T, h9 {! i) L
RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",", : f1 M1 F3 N" A* M
RowBox[{"x7", "->",
2 V9 A! [) i5 Q4 N RowBox[{"Data", "[", 1 E7 m$ H0 ]: \# l1 d/ l
RowBox[{"[",
9 p1 k% I. H; }8 O8 m, r1 m0 g RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",",
* D3 l+ _) n. g4 i4 t/ |! |3 K RowBox[{"x8", "->", / o( n9 U# k; s+ X. ?
RowBox[{"Data", "[", ! W! m0 r% ]$ @! `: w( s
RowBox[{"[", + H6 y) A, ?, c5 _+ {0 [) \- G# c
RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",",
* ?; b4 Y5 Y! q0 C9 G* E. z RowBox[{"x9", "->",
1 D/ R+ c7 G1 X; N5 H7 h- @- l RowBox[{"Data", "[",
2 k+ {5 j& }: a RowBox[{"[", * e1 Y. n! Z* b& r# M% ~% M
RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";", & H4 C7 O, _2 z; A+ l! |: O
"\[IndentingNewLine]",
, ~ I4 ~: q8 n/ E4 S' ~# { RowBox[{5 i; ] |) F% [5 I* J) _* S% L0 q
RowBox[{"m60n21", "[", 2 G% q; _& _: b' A! `7 b
RowBox[{"[",
: o" c6 ] F8 I4 I' ^ RowBox[{"i", ",", "4"}], "]"}], "]"}], "=",
8 y- G7 d' D) s6 M0 E. x RowBox[{"u4", "/.",
L( P; ~' ?, W$ W RowBox[{"{",
3 B% |3 y) I+ b3 T, D I RowBox[{7 _0 w" K* U$ ]5 q, g6 C* g
RowBox[{"x1", "->",
: U- L& k7 \0 h" v- @6 i3 \1 R RowBox[{"Data", "[", ) M& d9 X$ ?: R, b) ?
RowBox[{"[", " v c" g9 O8 w) A" K
RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",", ! A- q. e, P4 Y
RowBox[{"x2", "->",
; M5 I, x" z5 E& s1 R2 D4 u RowBox[{"Data", "[",
0 S- c# _: e( D3 Y# V/ y# b RowBox[{"[", & c. A7 Q$ ?+ b4 R z
RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",", ' y1 l4 R6 y, q' F: g; N# V# @0 Y
RowBox[{"x3", "->",
" S$ T& {" u4 ~8 E RowBox[{"Data", "[",
5 L. {5 _0 \! W8 h# W RowBox[{"[",
# Q0 I% d8 N3 Z& f# @/ e RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",", 3 H: `0 K4 A0 T2 ]" C
RowBox[{"x4", "->",
3 T- ~. q1 g6 f0 Q RowBox[{"Data", "[", # |" Q) _7 s0 C ~# }- Q! k2 ]
RowBox[{"[",
6 a( b* u" _8 J4 b2 S6 T RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",",
" {# n, w; L8 Q$ o: ]) Y RowBox[{"x5", "->",
* ]# t' v( j+ z% y' V/ b* ]6 p RowBox[{"Data", "[",
6 b/ S) ~5 B! G; s3 h2 k RowBox[{"[",
- B6 F! ^5 Z3 }/ t" p- F: H; E% k RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",",
~4 t R0 i l0 z3 Q# { RowBox[{"x6", "->", * z$ k4 ? T* }1 s% ~3 s- N2 y& ~5 D
RowBox[{"Data", "[",
* B/ r3 l# }8 d0 @9 U- r% F+ _2 g RowBox[{"[", $ a+ l, _; G9 k
RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",", ' o& k; P- _2 |9 G/ I* Q+ H- R
RowBox[{"x7", "->", 2 }6 v m5 L: R0 G0 d# H
RowBox[{"Data", "[", 2 ^9 O- [& q: d0 ~
RowBox[{"[", % v6 `) r1 F7 s, `- D: v. {. a
RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",", : s0 w; W# B' U$ m! ~$ y# V
RowBox[{"x8", "->",
7 @$ a: d( {/ d RowBox[{"Data", "[",
' X( c8 a2 S- X( u6 G+ a RowBox[{"[", ' s7 ~4 R+ ~' o" ]) a3 K* i3 `
RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",", 2 k: @; m0 p1 U" ^+ X
RowBox[{"x9", "->",
; V8 K2 w3 x( M. v( S* L: q RowBox[{"Data", "[", , W6 f3 ]9 x& e9 U; @3 n" b) {- m; |& Y
RowBox[{"[", ; I' S0 G: d, G8 W r7 k: {, n
RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";", ( A9 e* [! ?0 T4 ~
"\[IndentingNewLine]", 8 h/ t d' ~$ |# _0 |6 ]
RowBox[{
% i1 j( g: _6 ^: H% O* c/ ? RowBox[{"m60n21", "[", " y; r% ~; Q& i. j
RowBox[{"[", 6 K, Y# F# k6 r5 J- D% `9 M
RowBox[{"i", ",", "5"}], "]"}], "]"}], "=",
6 y7 {! X; ^ A' \7 E+ s) R/ J RowBox[{"u5", "/.",
: }/ b* K) q, G5 N: m8 L i RowBox[{"{", & C6 t. `# |4 D9 v7 K+ J u
RowBox[{
$ \* U* A1 p" F RowBox[{"x1", "->", 3 \% o" T8 J- P. Z8 U
RowBox[{"Data", "[", S- D3 k$ C G7 f2 L3 S
RowBox[{"[",
7 e5 y0 B1 T* n- R RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",", ( u' w$ q/ |. q
RowBox[{"x2", "->", 2 ~: B! r5 p0 G' B% v( a' e# c! ~
RowBox[{"Data", "[", ' d5 {" w4 {2 l3 n# }
RowBox[{"[",
, r* V! J1 j' a4 A+ t2 F+ {( M RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",", 3 n! u6 e$ ~5 l2 p- ]
RowBox[{"x3", "->",
) |4 K( ]! ^0 V \7 B RowBox[{"Data", "[",
( }0 e3 Z* L3 C `) _# g RowBox[{"[",
4 O3 C+ E/ s& h" U& e4 ~" G RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",",
) n! |; i" U- y* ?# f RowBox[{"x4", "->",
# N, K5 \- }4 r3 t% y. N( I7 M# f RowBox[{"Data", "[",
/ Q* V0 C$ `+ b" R3 F4 F+ U& F8 x RowBox[{"[", ; Z, X9 Y- o8 M3 @/ I& w
RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",", * [/ I( Z4 H- k
RowBox[{"x5", "->", ( k0 ?8 R8 l3 {! m) ]9 \. `* N& f
RowBox[{"Data", "[", , I* a- Z& A# ~: ]
RowBox[{"[", ' A5 ~$ l# x8 ?) i
RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",",
+ u3 }. T* }- M/ F! s RowBox[{"x6", "->",
& [; z2 T* ~3 h+ R) V2 u6 @7 [0 } RowBox[{"Data", "[",
+ ?8 `$ S7 U& P" O7 X RowBox[{"[",
" U, | _, D7 N v% Q/ I RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",",
& ^8 Z7 ^ a2 ^ RowBox[{"x7", "->",
- b$ d6 H9 j; s: O RowBox[{"Data", "[", , s) z3 E1 o2 u; j; Z9 i9 q5 x- @
RowBox[{"[", 0 i$ [/ Q7 U* v, K4 Y
RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",",
" e9 z0 T( A; L& I RowBox[{"x8", "->",
( {8 x9 ?, Q P7 X6 w3 { RowBox[{"Data", "[",
3 i, ]1 c: d: Q% P RowBox[{"[", ) a6 |- r' \9 }" v0 N# L* [& g
RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",", 7 |& |! I, l" W
RowBox[{"x9", "->", 9 L+ s3 a8 |7 G, n, ]7 Z+ S
RowBox[{"Data", "[",
. w, u `# V& C: L/ H RowBox[{"[", ! U. d1 O. E# \8 A7 e' }8 J+ x
RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";", - A) U6 ~% P# }% v$ k! m
"\[IndentingNewLine]", 7 X4 z( m; D# Q, c8 ^
RowBox[{. X( A" q, r( n7 e% \
RowBox[{"m60n21", "[",
' \4 |5 u% O% y/ u# K RowBox[{"[", & @. G0 J) \" J4 ~3 {8 D1 H( A3 |
RowBox[{"i", ",", "6"}], "]"}], "]"}], "=",
1 p5 p& C2 _/ K3 H3 K RowBox[{"u6", "/.",
; k2 D( l1 e. N& |/ Y+ c RowBox[{"{",
$ p7 k$ \! ]7 n T: o2 x( Z+ r8 u RowBox[{# P- S. `% k8 I2 @3 P
RowBox[{"x1", "->", - a3 X# T# v8 D0 L1 G
RowBox[{"Data", "[",
* P7 c O) x7 H' Y, G2 P RowBox[{"[", " V2 }/ }/ `- L
RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",",
5 t0 i, Z7 l0 f% o* D RowBox[{"x2", "->", ) j6 b! W6 {) Q, v: E8 D
RowBox[{"Data", "[",
8 A6 u; k7 S+ F: D i RowBox[{"[", ! O3 Z8 {" ]( d$ ?( {
RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",", 2 L( w* l% `, _3 h7 b, w& B4 j
RowBox[{"x3", "->",
/ B: K+ T1 u: m RowBox[{"Data", "[",
6 v) R; a- ?3 Y% c6 c RowBox[{"[",
' ?7 {$ |% w- } RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",",
' T2 ?: N( o4 u8 B RowBox[{"x4", "->",
" t& i! R- a* t Y RowBox[{"Data", "[", 1 z, v3 D: y+ G
RowBox[{"[",
" H; h2 g4 Y! K) l' b RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",", / F& l5 r$ o; E( P( J/ g
RowBox[{"x5", "->",
9 x( }. {9 z. V" j# a1 u RowBox[{"Data", "[", 1 v: U" n5 G$ N6 c" T
RowBox[{"[",
1 J) j4 q1 r( q$ |' [ RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",", 7 K' E! m9 p% T
RowBox[{"x6", "->",
2 k# C( T8 ^& J2 K5 ^. { RowBox[{"Data", "[", 4 o1 g0 P+ Z. U" x# g
RowBox[{"[", 4 p9 D* Y T1 m, Q+ ~5 ^
RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",",
4 R+ p& S4 G( `% e+ `# ? RowBox[{"x7", "->", 4 @# M' p, I7 S; ]5 s
RowBox[{"Data", "[", ! ^) {; t& s j" x! Z0 X
RowBox[{"[",
3 e5 O9 b! m" E8 n( _; w/ K. U0 U RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",", % }% D5 `- B. S% z
RowBox[{"x8", "->", ; {. a( p& I' @8 m
RowBox[{"Data", "[",
- @. r9 p' g+ Z; H( b RowBox[{"[", . J# m+ u8 W9 t* b
RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",", 0 x( V- x3 k& P
RowBox[{"x9", "->", ' W. g, |$ l3 P4 ]* K5 [% k) v
RowBox[{"Data", "[", 6 b4 p8 l4 Y7 v: W8 G1 f# c3 l
RowBox[{"[", + W# ^# z- S- N2 u9 h
RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";", # E' d8 M6 K6 K: W3 v5 F
"\[IndentingNewLine]", 1 n9 r9 P6 M/ R7 h! I: V; n
RowBox[{& W; x* u ~! E) D* l
RowBox[{"m60n21", "[",
3 r* m$ x/ M5 w# [' u RowBox[{"[",
4 L- k0 u7 ]" n$ B0 D RowBox[{"i", ",", "7"}], "]"}], "]"}], "=", * w: |( `0 b5 ~, w" ^5 Q
RowBox[{"u7", "/.", . Y& K+ ?+ A8 i& J0 Z6 s
RowBox[{"{", 0 ]1 f) o1 K4 h
RowBox[{4 ^7 H% b; v( |) I1 G, Q
RowBox[{"x1", "->", " X2 d8 v9 d; m5 K9 [
RowBox[{"Data", "[", ; W, }! o d7 [7 G0 `% T; J* Q
RowBox[{"[", 1 m, V Y" b3 [( c: N i4 V
RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",",
" I" X, ]. [& d6 V RowBox[{"x2", "->",
! Q. o; `- o0 k6 E) J) J RowBox[{"Data", "[", 2 V7 Q, ]- R3 }2 |
RowBox[{"[",
' ]2 z4 I9 W" S5 ]8 y/ [) F3 } RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",",
; f" l- J7 O# d. \ RowBox[{"x3", "->",
4 |- P% n% r$ u( [ RowBox[{"Data", "[",
8 g& U& Q, F+ R R3 c- }& s RowBox[{"[",
6 C+ w$ J: `, F) Q RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",", 9 [6 m4 h" y7 I7 m7 K
RowBox[{"x4", "->", % _0 a o6 s; b: @$ j+ i" m
RowBox[{"Data", "[", - V8 L) ?1 O5 k0 x# T) C N
RowBox[{"[",
+ R( l0 y1 B4 P5 t& I1 y" |5 O RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",", ; u$ i, `/ k+ x
RowBox[{"x5", "->", + L# [) n6 R9 Z! _ U% [
RowBox[{"Data", "[", 4 F) e3 k( e4 h+ \- u' d
RowBox[{"[",
2 ]2 j: E h/ \1 s9 u RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",",
; R$ o) [% J! w RowBox[{"x6", "->",
: h9 Z$ }: G+ W% [ RowBox[{"Data", "[",
, D1 `& z. N, Y. | RowBox[{"[",
% o! J) k! @/ X- E RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",",
- f2 ^8 {' o+ D+ B RowBox[{"x7", "->",
9 _; c$ z' }+ S9 v4 P9 j3 {' b/ q) e RowBox[{"Data", "[", ; f2 ?$ h: Z0 i2 [- E5 O; W) B
RowBox[{"[", 5 F! c& Q5 j0 H% }* l
RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",",
; x6 Z1 E1 D6 W5 N RowBox[{"x8", "->",
: A! [9 f }- ]7 i: K) h7 w RowBox[{"Data", "[", 7 l" @1 Z3 }/ ?! f$ H' ^+ W/ y" W
RowBox[{"[",
" `; p7 S" `! P9 R* a RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",", 1 \/ t6 ~& D% N- J8 C) a9 R9 a' {
RowBox[{"x9", "->", ( P2 B% d2 k5 [' X+ I- |
RowBox[{"Data", "[",
9 g& ]5 {' h9 L4 A RowBox[{"[", 6 D0 k$ i! @% q0 [$ G3 h) q/ l: D6 Z
RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";", * N8 k! o4 ~$ i2 g
"\[IndentingNewLine]",
$ e2 R4 R$ \$ T! Q1 N( M- k) d RowBox[{* A* q$ |& g4 E, J( c# [ z- N
RowBox[{"m60n21", "[", ! \ ?4 D% c' N3 i0 R2 F0 Z3 n/ {
RowBox[{"[",
: B3 a0 @+ O0 d RowBox[{"i", ",", "8"}], "]"}], "]"}], "=",
, _* x! o8 P3 G0 h9 O- r) R RowBox[{"u8", "/.",
& _! M$ g" t/ s* x RowBox[{"{",
# M4 u' b9 x2 Z; u% E- d# m) R RowBox[{
1 C2 }9 u/ D2 Y% T RowBox[{"x1", "->",
- U' a8 A7 ]7 m3 K8 b& Q RowBox[{"Data", "[", # J8 I. G# p; w; x% S ?2 Y! W5 F
RowBox[{"[", 6 m- ^" ?0 J3 g' T( w7 X3 k, u
RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",", 5 K( d6 N: J% q k' A/ S
RowBox[{"x2", "->",
$ C2 J% Y: c Y, w/ a( i z RowBox[{"Data", "[", [5 }7 w# S/ @! ?( ?6 i
RowBox[{"[",
1 U" o! J/ O" f# Q RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",",
# Q6 y# ~0 `) ?6 ~4 Y6 w RowBox[{"x3", "->", / i7 p% h+ I+ A5 h- j7 \
RowBox[{"Data", "[", 7 ~, k5 t7 E8 q1 E, o+ r
RowBox[{"[", 4 x g/ N% }1 r
RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",",
2 U( e! y. `) ]! D1 m# j2 H RowBox[{"x4", "->",
' |' ~# X' Y A: @: z" u C, z RowBox[{"Data", "[",
4 p$ G6 C* X; I/ ^2 x$ @ RowBox[{"[",
2 L* z! q: J, t. b$ N; L RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",", 9 H- i3 y7 Q8 e ?3 }: B
RowBox[{"x5", "->",
1 O; T7 _) [, O- a( U1 K1 O RowBox[{"Data", "[",
9 U8 q. e) s+ l2 Y% ?& L" M" g RowBox[{"[",
+ z9 c: s% G% Z: P RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",",
$ \. f5 `) e2 f9 z7 Q+ B5 I, D6 G RowBox[{"x6", "->",
+ v0 j6 L q6 ?4 L RowBox[{"Data", "[",
: C! g8 c z- Y# O RowBox[{"[",
8 A/ v6 a7 S6 P8 O; @( ^! K RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",", 0 V) c, I, y( p& j9 q+ g- o
RowBox[{"x7", "->",
/ V0 n/ V; T; @) Q) t& J. W RowBox[{"Data", "[",
8 i$ X+ _# j" x RowBox[{"[",
3 l% ^- ], ?" s3 R0 l ]2 b9 E RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",", Y/ O4 `) H+ ]" }& g. X* b
RowBox[{"x8", "->",
3 o, e: M$ A2 B7 c# `( S$ U) v RowBox[{"Data", "[",
" b' @/ |3 r5 {- t RowBox[{"[", * b7 R! u. l/ L2 t( A
RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",", - c# t) K j! B7 ]3 R- W
RowBox[{"x9", "->",
+ c+ J. c0 y' l4 N. i9 s: f; A' c! | RowBox[{"Data", "[", 0 \" |2 l/ o% s/ [" M4 e" @$ C
RowBox[{"[",
2 G2 n6 c! `( U& F- @7 S RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";", 4 Q/ x% ? [) g1 p( j
"\[IndentingNewLine]",
9 p, w0 a2 H) d. K I, R* d7 V RowBox[{0 `6 y* c0 O( Z+ k3 v
RowBox[{"m60n21", "[",
9 a+ |! ?, U$ s# r+ @0 k l& Z& W RowBox[{"[",
5 J/ I" X% \. r6 X RowBox[{"i", ",", "9"}], "]"}], "]"}], "=",
9 M/ b7 }. S8 J6 d5 G- m; D RowBox[{"u9", "/.", / W7 q" I9 A7 `
RowBox[{"{", 4 s' L8 w* s& ~6 @5 B7 x
RowBox[{/ v1 E! q; h0 {; N$ J7 V
RowBox[{"x1", "->",
1 e) p/ b4 v! _) R RowBox[{"Data", "[",
: Y" V% g! K5 p' F6 G RowBox[{"[",
6 X4 n5 ?) F& T, x6 T* g RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",",
7 ?# q6 V3 Q6 c) _& ? RowBox[{"x2", "->", 2 P, w; `2 Z+ N5 t! p* ~2 R
RowBox[{"Data", "[",
# `: i+ V0 `9 u. T RowBox[{"[", 2 k" v2 t1 b) G# B$ W5 w; Z
RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",", ! T: d% Y6 G; q3 n6 k' v* e
RowBox[{"x3", "->",
9 U1 H$ d( z6 ` c, v' l3 q: w RowBox[{"Data", "[", 8 }6 P+ F; k( P+ `, a5 Z
RowBox[{"[",
: S* N% f$ K' E; Y- n" w* S RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",",
. T: P7 X/ j: C: Y# x6 o6 t RowBox[{"x4", "->", $ Q' R9 U6 M) g. a! L8 C/ L
RowBox[{"Data", "[", * o$ g+ S; v* p+ G
RowBox[{"[", 2 _+ _; a* G( |% X
RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",",
' T8 B. Z: L# }, i- C, @( M* O7 U RowBox[{"x5", "->", 1 w( j f1 e2 v" Y) V) z3 A
RowBox[{"Data", "[",
! q- p. \2 |4 [8 C3 |: `3 Y, g. L RowBox[{"[",
4 E* b/ W7 a3 A! x' l RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",",
: a! f# s. j2 N4 ?4 j RowBox[{"x6", "->",
" H* u m5 ]7 e RowBox[{"Data", "[",
. y8 R! v! Q+ R$ W" N8 p0 ] RowBox[{"[",
6 s& E3 p3 F1 |# H RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",",
$ K5 [3 I/ Z, r4 Q/ `9 E: s RowBox[{"x7", "->", # l% h4 d, b3 Y( U
RowBox[{"Data", "[",
1 n7 m2 q: e' m2 L; K3 G6 P& R. I& \ RowBox[{"[", ! W. _% }' n1 i+ H" C
RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",",
, S+ K3 ]5 C- T Y' R# n RowBox[{"x8", "->",
+ b9 b3 r. z0 Q5 V- m RowBox[{"Data", "[",
1 T- l/ c- o, v0 B% |) S. e RowBox[{"[", . S1 A8 x1 w! }( b, c& I8 B
RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",",
8 |8 Q& w+ U: v1 y) g$ h/ b RowBox[{"x9", "->", 0 z* Y& k8 `- E7 _
RowBox[{"Data", "[",
. y# a# e3 T9 G8 M RowBox[{"[", 2 n7 S5 i) V# J$ L7 B9 \& w
RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";", + f$ e3 w7 e* \0 t. f
"\[IndentingNewLine]",
2 y t' A4 V2 U& J0 \ RowBox[{3 i U3 [5 [* N
RowBox[{"m60n21", "[", 6 Z8 l2 J) K k/ m2 v: `
RowBox[{"[", ( ?# g3 K: n/ x+ o
RowBox[{"i", ",", "10"}], "]"}], "]"}], "=",
% T2 f' e- O# N% v RowBox[{"u10", "/.",
: w' @4 R$ `3 P9 ~ RowBox[{"{",
# v( c" ~. n ~6 [ RowBox[{: p/ D N7 @: S2 P% U/ ~
RowBox[{"x1", "->",
% M+ F! x- {* U RowBox[{"Data", "[", 4 a' f! b; l- P5 ^7 c* F. D
RowBox[{"[",
3 }$ @4 F- L L# r5 _ a- ~7 u RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",", : ]+ j5 Y% u. R
RowBox[{"x2", "->", Q) X% M8 m. A# E1 g& e
RowBox[{"Data", "[",
y& h2 d" b* l( r2 l8 ~ RowBox[{"[", 1 _, @3 [, U9 v3 a" D
RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",", ! b7 `+ M1 m \. ^+ I
RowBox[{"x3", "->",
) z. q4 _- s* Y3 J- _& \' Y& Z, { RowBox[{"Data", "[",
9 d( {9 V8 V; g. n RowBox[{"[",
& n' e5 W; M( b/ v& W RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",",
3 y; ?7 i7 c7 F4 o9 n+ G+ k9 Y RowBox[{"x4", "->", ( u% w, W0 d/ M$ v7 s
RowBox[{"Data", "[", / J/ i, Q8 ~# o( B5 ~+ T% S
RowBox[{"[",
6 v7 I5 _1 X, U: B& v" w$ Q3 Y& S" v RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",",
/ N3 n) i0 J+ V) D5 r RowBox[{"x5", "->",
8 q2 @; r! h# M: t: P+ f- J/ \% C; i RowBox[{"Data", "[",
3 B8 f. x5 ]+ P* h2 O" X RowBox[{"[", 9 y. C0 q5 C9 _+ p9 p
RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",", , Q( K/ r6 ~( Z
RowBox[{"x6", "->",
8 ]) O! ]0 `# Z4 j' q. U9 y RowBox[{"Data", "[",
7 A0 q. A$ c6 k1 i0 q2 Q RowBox[{"[", 7 }& Y0 n% p( b/ f; I2 H
RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",", 8 `8 q2 H, F$ V" l/ g+ O; o
RowBox[{"x7", "->",
6 l6 n: \/ ~. W; a6 V RowBox[{"Data", "[", 6 M3 i' p% E6 w0 |
RowBox[{"[", 8 V' d/ B5 f; t2 D j
RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",",
. o2 p. C9 F0 m( I6 E RowBox[{"x8", "->",
4 {9 c4 ^, D: `% v! {& X2 ~( r RowBox[{"Data", "[", % t5 }2 d% b% q* X! e9 m! N
RowBox[{"[", : w. Q' }+ L3 L" u% _
RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",",
0 e8 o; p* e# @ a/ `0 E9 Y! d- H RowBox[{"x9", "->",
. f3 [! J4 ~! S V RowBox[{"Data", "[", 8 j+ i2 E9 w7 N: ^* J B
RowBox[{"[", # I5 G) w. |. ?: G: l# s" T
RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";",
7 g! [ v$ m" w% r- y4 ?2 ~ "\[IndentingNewLine]",
7 [( w" t) {/ m x4 J RowBox[{( S! A$ b2 e8 d- F
RowBox[{"m60n21", "[", $ X6 X0 s) S; [: V
RowBox[{"[", $ V& r& V9 Z. }& L
RowBox[{"i", ",", "11"}], "]"}], "]"}], "=",
- Y% n7 R) P" Y8 b! t* w RowBox[{"u11", "/.", + F& u! @; r$ T5 I3 m
RowBox[{"{",
2 B/ h. P$ D. m0 `, E, g RowBox[{
) z5 o( ?" t% ^$ Y8 T3 p9 [ RowBox[{"x1", "->",
! A) q# l4 q8 l6 L5 C- u RowBox[{"Data", "[",
- c2 I m+ { o5 p' Q: Y RowBox[{"[",
$ Z2 a% J1 b& ^& O. E RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",", 3 P: Q7 L, g$ U
RowBox[{"x2", "->",
1 J, l2 \! ?' o/ ~( k: X RowBox[{"Data", "[", + b% }9 _6 x! k
RowBox[{"[",
, O& r- l4 a8 o' Y7 e; M RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",",
, {# J1 P& |* B- @" F. h RowBox[{"x3", "->", " ?6 I- z1 k* _8 L# w- ] o
RowBox[{"Data", "[",
3 J0 q: P2 @; t: v0 c4 p7 ?0 o# N RowBox[{"[",
4 h J0 r1 T& R2 V2 U* |; d# j RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",",
) i) B# A" }( c+ {# a# x RowBox[{"x4", "->",
6 k( t) f/ q4 h7 H R+ V RowBox[{"Data", "[", # H4 _! ^6 B8 i- n$ k( C8 |
RowBox[{"[",
1 P s& o1 z' v2 s RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",",
- l8 w$ e* n J RowBox[{"x5", "->", 9 k9 d( w: s" L" ]
RowBox[{"Data", "[", , |1 X+ s; k: v% V& E
RowBox[{"[", 1 e# q+ {* S+ N5 K& I9 h, @/ N
RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",", ( j. X, U$ A5 M
RowBox[{"x6", "->",
- @" U6 M7 x. r! J RowBox[{"Data", "[", 2 v1 ^( J0 z3 t$ y
RowBox[{"[",
9 o: p9 G2 }5 v9 P4 s& U4 r RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",",
& D0 w, ^( T1 P+ q RowBox[{"x7", "->", 5 Y& L$ ?6 j7 G+ ?# H A5 H1 M8 A7 @
RowBox[{"Data", "[",
3 _. n/ S6 K9 f8 `( B& T RowBox[{"[", 5 I/ F* |8 w" p- M
RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",",
" q @' S9 d5 M2 P5 t1 | RowBox[{"x8", "->", / b7 e2 S0 R- g, w
RowBox[{"Data", "[",
( V' ~. q& Z# O* M% s# J9 S& G RowBox[{"[", 3 i5 Q9 V8 E! J0 Q# j- P9 p# c, D
RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",",
4 _; v ]6 Z6 {2 d0 n RowBox[{"x9", "->", # y1 u. [6 x$ n- i
RowBox[{"Data", "[",
" L6 C" v1 Q3 d RowBox[{"[", " U @, `7 b5 m; s4 L
RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";", 5 d6 b4 Z& T8 q. S9 S
"\[IndentingNewLine]",
- C" k' f0 g5 Z RowBox[{
. ^% L( }1 S; d- s* k/ O4 [# A( D RowBox[{"m60n21", "[",
( j5 Z6 ^4 ~% D- _8 h( f: Q' T RowBox[{"[",
+ X8 E8 o5 M. d) v' p) m& t RowBox[{"i", ",", "12"}], "]"}], "]"}], "=",
1 a2 O; u ^3 l RowBox[{"u12", "/.",
+ ~5 V1 u! p1 F6 q+ y/ R j6 s2 N1 o RowBox[{"{", ( }3 X8 v7 g. V* e
RowBox[{
; `# d) A8 d g' U RowBox[{"x1", "->",
, W5 c5 F% @, S. W+ Q RowBox[{"Data", "[",
& ^5 a3 c+ x: J: K# D RowBox[{"[",
) O7 r( Z6 P) Y. i: E' P& u RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",", " e) {+ j2 T9 U' Q$ K
RowBox[{"x2", "->", 3 j% N, y& u% @# A
RowBox[{"Data", "[", 9 L% b1 Z' e( ~ l" m) k$ K
RowBox[{"[", $ m& L# }1 N# J) m5 J+ w
RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",", 3 ?1 s8 b' A- N4 L; R* j/ b
RowBox[{"x3", "->", 4 B& [* t+ C' v
RowBox[{"Data", "[", * _" Y3 ~, ~" O+ T
RowBox[{"[",
% X9 B6 ]8 u9 A9 l. Y* G RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",", / n( E6 i" K' P" o$ f2 G
RowBox[{"x4", "->", ! n3 t/ n5 A8 e* F/ a7 _
RowBox[{"Data", "[",
3 D; v7 ?' s9 t: v RowBox[{"[", ) V- L/ D; q% W" p5 y1 ^: C
RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",", 3 d, ~( |/ l( J& L: A! [
RowBox[{"x5", "->", 5 X3 D! a6 \3 X6 u" y% W9 S
RowBox[{"Data", "[", ' `$ b8 r! ^* q; X7 g
RowBox[{"[", 6 q! _/ u; t' w' ~$ C% l- g
RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",",
& |/ R, _) c/ D& { RowBox[{"x6", "->",
. j8 ^+ h( `( B' ]! H! u3 q RowBox[{"Data", "[",
( a" y6 N. J7 v( U0 u* v RowBox[{"[",
( _) _8 k) S1 x1 s W- r' o RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",", # W! j% K6 D! d; m6 T: p- A, g
RowBox[{"x7", "->",
& e% D. w+ M$ @, l RowBox[{"Data", "[",
# c) ^9 x0 n$ k3 _; J: e2 E" R RowBox[{"[", / m1 M# L8 ?( ~/ K8 m. l, i
RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",",
8 _* P0 A2 J' Q) |& y8 Q! ]# I RowBox[{"x8", "->",
% b2 P- `1 J; b3 B# M RowBox[{"Data", "[",
, J9 \$ k' p3 b3 x N( q I RowBox[{"[",
1 F0 i, y% ^6 f, K0 V0 { RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",", 5 L. O0 S; I7 v2 m
RowBox[{"x9", "->",
E/ H# u3 U7 `0 {5 D% t5 G RowBox[{"Data", "[", * c4 w0 H( h. T- M# s0 M
RowBox[{"[",
' P) ~6 `, h! Y) C RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";", * {4 N+ z0 M5 ?' R
"\[IndentingNewLine]",
- _% V% v7 o$ ]- J% J5 }6 N9 e1 C RowBox[{ y3 l2 d' x- k
RowBox[{"m60n21", "[",
$ B7 A' p* u8 ^. E9 J( Y: C* @7 B RowBox[{"[", 6 n! Z. f: h+ O d# d8 P
RowBox[{"i", ",", "13"}], "]"}], "]"}], "=",
" [6 M* F( ^. J: L* I$ [) r RowBox[{"u13", "/.",
( P, e0 \. O! I. |4 r* d RowBox[{"{",
- B* y. ~3 }: {. }, r RowBox[{
1 X+ G$ P( e' r/ N6 R1 u7 ~ RowBox[{"x1", "->",
" v: x7 N1 w3 t- U+ n* g RowBox[{"Data", "[", / h: t" k: q" ?0 b
RowBox[{"[", - Y* }8 ?. {9 F! {; q
RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",", . \) Y# o3 D5 h: B: y. ~0 g, e
RowBox[{"x2", "->", % z% t. j% v) T$ d6 { y7 m
RowBox[{"Data", "[",
& b: w1 d8 ~& I- B$ V2 Z% M RowBox[{"[", 2 }" p, H8 Y$ e; [: Z
RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",", - W' G, f6 h0 j+ ` P/ F
RowBox[{"x3", "->", 4 M8 S- b8 M Z; c
RowBox[{"Data", "[",
$ k J6 E. ~% f8 h RowBox[{"[",
. d) A/ c$ V/ W- P1 p0 }) k2 n RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",",
6 w* Q2 t |2 [& q RowBox[{"x4", "->", $ }2 {. p" H9 [! B6 d. f1 Z
RowBox[{"Data", "[",
# a( k1 O9 B. P1 } RowBox[{"[", ' R# T2 L) I; P6 p" k
RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",", : D' e' L6 }- W/ }3 ^5 K2 }
RowBox[{"x5", "->",
& Q1 u! Q. H% Y8 q" Z8 g. K- @ RowBox[{"Data", "[",
( q3 g, l8 r6 K RowBox[{"[",
9 d8 t, J2 c! ?1 D ?2 z0 R RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",",
/ N: ~; n2 T- f$ ?2 k V1 ` RowBox[{"x6", "->",
: i1 A( _/ x$ u6 p7 i. s% T RowBox[{"Data", "[", * P* D; X: k( T9 h' U
RowBox[{"[", ) p/ e& ]) K" [1 m4 W! {! m
RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",", * }4 S2 f+ B& T! P. G; s
RowBox[{"x7", "->", 0 n) j9 I) ~9 z8 e+ k
RowBox[{"Data", "[", ; a( G# l5 d) B0 Z3 i, F( ?
RowBox[{"[",
+ Q6 a+ x) k! p5 J8 N: [# k RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",",
% Y s! z: j8 v; A' h( q F RowBox[{"x8", "->",
3 G/ l1 }; v) X+ I RowBox[{"Data", "[", q( k$ a+ O6 X/ V
RowBox[{"[", ' \! z ?, @8 g+ K1 [/ Q- S
RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",",
6 ?, H' B- {; N& J4 b" V( _1 l+ L. p RowBox[{"x9", "->", & w3 S2 |% |1 w$ w& d# h
RowBox[{"Data", "[",
0 N( c7 n1 f$ p6 K; I RowBox[{"[", % i( A7 c3 N: Z M2 m
RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";", ' J: x8 L+ I a2 J# [' o
"\[IndentingNewLine]", 5 ?: D5 x5 j1 Z& r
RowBox[{
( {- j) `% \, S8 J$ ^' E: T RowBox[{"m60n21", "[", / [: v# H2 Z" @
RowBox[{"[",
" o I4 [6 Q1 ~/ q1 [ RowBox[{"i", ",", "14"}], "]"}], "]"}], "=",
4 E' }) ~5 l* M* N* R- b$ d RowBox[{"u14", "/.",
. V* P. v2 ~: b7 G1 z. D* ~ RowBox[{"{", ! x M5 n: J: \; D Q. g. B
RowBox[{ c' X5 k% _0 m- S0 l
RowBox[{"x1", "->", 4 _- i' U6 g) c& z5 Y& ~
RowBox[{"Data", "[", ( Q* b0 g6 j8 P$ `, H
RowBox[{"[",
$ U0 X" q; J% n4 U RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",",
7 }( ~" Z4 ^& C8 P- a" H RowBox[{"x2", "->",
+ S( ^1 _4 Y' j& Z RowBox[{"Data", "[", 4 c _" f% f# ^5 V n, j) [7 P
RowBox[{"[",
' d( a/ Q$ E1 }4 v5 P$ j RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",", ; U0 K* B5 z' ~3 Z" b4 N
RowBox[{"x3", "->",
& |" J/ \& [" ~ RowBox[{"Data", "[", 5 x% w0 y$ k* V3 X6 S3 T+ Z
RowBox[{"[",
" i" R* [. A& y. @ RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",",
6 Y1 e# t$ j* h RowBox[{"x4", "->",
: R3 m1 ~" ]3 ~+ D2 n9 G( ]; S RowBox[{"Data", "[", : q& B6 B8 z A, a6 v
RowBox[{"[",
& K' V% w, y, S RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",", : ~: N/ G" F4 c: p' }2 A
RowBox[{"x5", "->", , I$ j5 M* y+ m, v1 v! ]
RowBox[{"Data", "[",
" S F* L7 n+ {7 V RowBox[{"[",
, E4 M/ r& n: O$ h% x RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",", ( m0 |; o8 h3 N9 Y1 \. b" e3 H& F
RowBox[{"x6", "->",
3 o# l1 T P* h0 ^ RowBox[{"Data", "[",
; ~( s) l5 N3 R RowBox[{"[", , _5 F* ~$ @8 ~
RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",",
. R+ q9 O" E! i' i5 M1 U9 K RowBox[{"x7", "->", 6 M4 k0 a7 [: B% a$ F; |9 R- d
RowBox[{"Data", "[",
, w0 F3 S* g2 k9 Y3 @ RowBox[{"[", 0 R' Y( |4 T6 V3 s! \
RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",", " `+ Y( Z; R4 Z# Z' z
RowBox[{"x8", "->",
! @' Y* n1 \9 P0 m2 e RowBox[{"Data", "[", ! P Y: m( I2 Z
RowBox[{"[",
. v; D* l6 o* O RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",",
* U8 [& a# b$ ]* i9 M RowBox[{"x9", "->", 9 a: X. A' X3 G5 J# y
RowBox[{"Data", "[",
) Z2 q( P7 f; X3 s: Q0 r: h" Y8 X RowBox[{"[", 0 K" R* Z" E" H2 Y4 R+ V) E" \
RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";", % F, P& {8 O5 b* G! D# o: y1 k
"\[IndentingNewLine]", 2 W2 S* m5 H# A# v5 ^0 F- L
RowBox[{2 S, ?3 R' W$ i
RowBox[{"m60n21", "[",
" W+ P4 X% `( N. V* E RowBox[{"[",
: f$ M9 m( C% ~ d, I, Q$ T. B RowBox[{"i", ",", "15"}], "]"}], "]"}], "=", 0 Q- s' ^: ?8 V/ U1 b& @
RowBox[{"u15", "/.", 4 B; G* o* Q$ F, l+ ^
RowBox[{"{", ) a4 [/ M+ c+ M `0 I! C, P
RowBox[{
1 A. a- U2 y# X, _ RowBox[{"x1", "->", ( [4 l# U2 X+ H8 c8 R
RowBox[{"Data", "[",
/ c9 Q# y( q/ R+ u! E RowBox[{"[",
7 w9 m/ B9 y3 s RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",",
" y$ W) _$ T6 A- P, U/ x" q RowBox[{"x2", "->",
7 C; W" p& U2 l& g4 K* u. o RowBox[{"Data", "[",
! T1 g. m+ Y6 ~+ y0 ~, W4 b RowBox[{"[", & x9 T$ I$ l8 S' p
RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",",
' n1 H& U' Q: H3 I RowBox[{"x3", "->",
5 c0 G, i! v# k& b4 H8 c RowBox[{"Data", "[", / D$ L, b! }1 P: p
RowBox[{"[",
) p; r' U3 F. p) m+ h RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",", - N, B% E( r8 P% S( E3 Q4 f
RowBox[{"x4", "->",
' _5 M4 L9 y# y& \ RowBox[{"Data", "[",
) ~1 I; w5 q& s' ~3 I RowBox[{"[",
- q$ m) c% W& q/ T RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",",
4 P/ ^' Q, V- j3 w2 t/ k RowBox[{"x5", "->", ! R8 z5 h- g& M. C$ G) V
RowBox[{"Data", "[", 4 O6 _6 V5 P J$ B$ F
RowBox[{"[",
2 G) Y( X- N4 \+ Z$ l, w RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",", 8 X+ C# ?2 k' J4 N1 k5 E& X( L
RowBox[{"x6", "->", ( B3 C$ U) U8 b6 n% |! J
RowBox[{"Data", "[",
8 h8 z0 U: ^0 A8 ]- F( f- c RowBox[{"[", , J6 r' a7 C {( W' X1 O
RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",", ! j/ H; j' Y0 i4 g, h& j. E/ C6 h
RowBox[{"x7", "->", 8 f8 e* o# F! D3 Q0 r" R3 V
RowBox[{"Data", "[", 0 l9 G% U0 }9 q6 n1 g
RowBox[{"[",
$ m# P, z0 c! `( m) M/ f, E RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",", ) g# r" Z1 i2 Z' O3 w
RowBox[{"x8", "->",
4 m/ p3 s4 M A+ l+ p# I/ i RowBox[{"Data", "[",
4 F0 j* L ~- S- M7 W7 A0 o RowBox[{"[",
5 T% B9 F4 `+ {) g( \ RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",", & U( e# @6 L3 N8 P8 o( d
RowBox[{"x9", "->",
9 t6 t N9 d( T$ E G% f RowBox[{"Data", "[", . C5 p8 c1 v) n2 L2 H
RowBox[{"[", 1 U) u5 g% z$ L" E3 Q
RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";",
0 b- n, J, |0 h6 B8 F0 I* e5 f+ j "\[IndentingNewLine]",
, o v& v1 y7 d6 C/ O RowBox[{' w/ g+ n( }6 t f( t7 o" X- B
RowBox[{"m60n21", "[", 1 q2 l) o+ W) {/ x- S8 x
RowBox[{"[", 8 B, V9 p. e/ n
RowBox[{"i", ",", "16"}], "]"}], "]"}], "=",
1 t* d; U8 _% D( }7 ?; M* z RowBox[{"u16", "/.",
; m, i9 y' {* s$ w" F8 G RowBox[{"{",
- z2 @! z+ U: g' Y2 Z" V9 e$ k; l RowBox[{
! n& c3 y1 p( m9 Z1 {4 ], H RowBox[{"x1", "->", & S8 a. f) [8 S4 Z' W
RowBox[{"Data", "[",
: e4 h% L2 @: @5 H: p RowBox[{"[",
$ e7 G2 G' ?, Y$ N RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",",
* O, ]. g% g' i% x* M2 M; U8 A RowBox[{"x2", "->",
9 s; J" _4 i. i RowBox[{"Data", "[", ( m; M3 X$ Z! w' C
RowBox[{"[", 8 E4 w. u% {7 k' j4 s6 N: m4 [: ^
RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",", 5 c/ ~# k) e# A: W
RowBox[{"x3", "->", " u% O1 S7 d* x; m( h5 T6 T
RowBox[{"Data", "[",
; w& D4 J1 {% K$ h0 N- F. A RowBox[{"[", ( w C5 C, y- ~( H3 L
RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",",
3 j+ a0 H( K% ?; u" s( ` RowBox[{"x4", "->", 1 w# b& `% K' u+ n8 I3 x6 Y# s3 D
RowBox[{"Data", "[", & C4 W2 S6 z8 _5 {: c
RowBox[{"[",
8 M& l0 T& l- e" J4 X, l$ f- E RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",",
+ E* |9 V, s6 q+ k9 l- f2 r* c$ M3 y RowBox[{"x5", "->", * q0 {; i2 J; Q( z' o7 l, X
RowBox[{"Data", "[",
/ P+ t7 a4 f$ c3 }8 Z& Z RowBox[{"[", : m! E4 `2 |# \9 g3 Z6 d0 n
RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",", " Z- r3 G" e8 r' F
RowBox[{"x6", "->",
. t5 H0 ~, A m Z. S RowBox[{"Data", "[", & H% a; g2 ^) W* I& }
RowBox[{"[",
, q7 c+ [; Z- M* t$ Q0 t RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",", - I& S7 }; g$ k% I% x2 H
RowBox[{"x7", "->", 6 S( K, h S V+ w
RowBox[{"Data", "[", ; a: Q8 I- E; F m, v. K, G
RowBox[{"[",
. t; B# K- ^) x& G6 m$ | RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",", 5 X X- a* S h' ^* q- f
RowBox[{"x8", "->",
- j/ a! X3 ^- G5 e( P) `0 Y) b7 ` RowBox[{"Data", "[",
; ]6 k- h/ O% g8 w2 [ RowBox[{"[", - r& A3 x/ ? K& S/ i8 Q
RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",",
$ w+ H4 }0 O6 t% ^$ e RowBox[{"x9", "->", , \( U; m6 @' B3 c' t% q9 B
RowBox[{"Data", "[",
: K9 `% c1 d, _5 x+ z+ q- ^+ M RowBox[{"[", & i3 b( O, i4 t8 @/ q
RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";", 9 t# r% h0 X0 q' |1 P
"\[IndentingNewLine]", 5 |, T0 }+ e+ w, s8 I
RowBox[{7 b, }1 y6 v8 h" |2 \) p
RowBox[{"m60n21", "[", . B! U$ X2 q9 `: f
RowBox[{"[", + k) J h+ K& v- C$ M
RowBox[{"i", ",", "17"}], "]"}], "]"}], "=",
1 R: j7 B" F+ m/ Q3 v RowBox[{"u17", "/.", 2 J N. h8 P+ ?- }
RowBox[{"{", + i1 F6 P; A! \6 h5 n- M1 l
RowBox[{- C$ b6 f* b S
RowBox[{"x1", "->",
K, y6 o5 |' q% s% n RowBox[{"Data", "[", , J9 r. [( m$ V
RowBox[{"[", 1 [1 I* L; i; z# |" G- J% N! I
RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",", T+ ?% M/ h! Z J3 b5 {1 Z
RowBox[{"x2", "->", " O! i* V h9 n! e. ]$ D* E
RowBox[{"Data", "[",
7 p, |. I: ?$ A" Y% T RowBox[{"[", ) @& `, d M* T: K3 f" b
RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",", 7 k6 v7 y8 C/ u" P
RowBox[{"x3", "->", % X1 m0 f# U* y# _% p( C% E
RowBox[{"Data", "[", . a2 ^. S0 a: a" F$ B, D
RowBox[{"[",
$ c+ g2 q( W) C5 u! ]; Q RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",", ' ]9 r L% I# ~$ j; M* e" z
RowBox[{"x4", "->",
$ K a, S$ F$ p9 M RowBox[{"Data", "[",
, d5 j& |3 ]% Z& Q7 {: l* B( a# O/ H RowBox[{"[", 8 r- @3 s8 T9 r% O3 \$ s& C. y
RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",",
6 j* S* W2 [5 g: ]1 h9 e4 o8 k1 t RowBox[{"x5", "->",
3 }" L8 A& o# K' Z% }+ b8 o RowBox[{"Data", "[",
1 H0 M, v e5 y4 _2 Q7 E: D; _ RowBox[{"[", ' S( ]5 n# w! ~4 U
RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",", - ?% y; C7 L1 O/ Z7 ?3 |% h$ h
RowBox[{"x6", "->",
0 S( h; x# C% `; d. W* ]. ~ RowBox[{"Data", "[", 5 b5 n2 k$ e; G3 Z. p
RowBox[{"[",
9 C) ^; P; n# _ RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",",
+ R' z# M9 {) v: F- k' c2 \* d# c RowBox[{"x7", "->", \; M6 h- o- ] G* v9 U0 i$ j
RowBox[{"Data", "[", 1 B( d% @2 F& w% n: q. h. Z# b
RowBox[{"[",
9 v, U! i! n0 R1 H RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",", ) Y9 P+ S) k4 v2 d8 C
RowBox[{"x8", "->", & ^% W, z" j( H/ Q! T7 X9 _
RowBox[{"Data", "[",
3 R2 ~% g) l* [; }5 n RowBox[{"[",
' n* E1 ]$ R6 h6 j) t* a1 ~! W2 L RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",", % ~: I: ]; W! J/ ]7 |2 t9 h
RowBox[{"x9", "->",
" o. A0 z! m5 [: n! W% r2 [ RowBox[{"Data", "[", . J$ d7 }" C6 _
RowBox[{"[", 1 \) X) b2 Q# N
RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";",
' X6 g. k8 G1 o! H& ^6 w n- E# q "\[IndentingNewLine]",
1 Z8 I6 {9 m* w' ^; i! F RowBox[{6 [- y5 e) D7 v, _; S, w
RowBox[{"m60n21", "[", - {4 @+ h( o8 s. h {
RowBox[{"[",
! e+ a- I% x8 b7 n# J6 s RowBox[{"i", ",", "18"}], "]"}], "]"}], "=",
& x9 g, {! I: y* z- Q RowBox[{"u18", "/.", , C! i- W/ @* Z2 n
RowBox[{"{",
' L: E+ I9 m0 p0 N+ _ RowBox[{
! i9 @( A5 J q9 z, s RowBox[{"x1", "->",
6 Y' l6 \- x/ y- C( M% m6 n! ?2 q RowBox[{"Data", "[", 8 W; [7 [+ w) r" Z/ M
RowBox[{"[", : o- B, I, E3 G d* s
RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",",
7 d* Y- W. y! C4 S8 M RowBox[{"x2", "->", 1 j6 }$ }3 V* \8 E0 X6 Q
RowBox[{"Data", "[", 8 N3 N. d( l% M( {4 X2 t* g6 a
RowBox[{"[",
4 j# [% Z! ]7 b% f8 O& U6 R RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",",
8 A! R( s3 H* e4 M RowBox[{"x3", "->",
. y" ~, [$ [1 X1 [3 K RowBox[{"Data", "[",
+ v4 @5 O& N3 K' p t RowBox[{"[",
0 D- C+ ?3 v) x+ w& i9 c* R RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",", 4 O- Y, m2 {! n: ?
RowBox[{"x4", "->",
; z" Z! t7 [4 p7 A% D0 x# P RowBox[{"Data", "[", ! G6 a- ?0 J2 L! ?$ ~( k( q6 r$ N
RowBox[{"[",
6 @( j6 P5 F4 t* F7 w RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",", " _+ m: T0 C1 t5 ~ f q
RowBox[{"x5", "->",
' l2 [& {4 a) t& l+ U1 Y$ X/ A RowBox[{"Data", "[",
. F/ U$ u( W: |, a8 B. B RowBox[{"[", 4 X: d$ h" G9 N" V5 K# _4 d% I
RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",",
) N* s5 L x, e6 z, W! s8 Z' a RowBox[{"x6", "->",
7 Y2 u- T E( `0 {& y. j) U' n RowBox[{"Data", "[", $ `9 c I L9 x: m a$ P4 M
RowBox[{"[",
2 C% S; e% u8 N( f2 Y1 B RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",",
" a# d" c) T* _ RowBox[{"x7", "->", 4 |/ k+ ]7 | Y D" E3 B2 V0 I
RowBox[{"Data", "[", - K3 D: O8 p8 X4 X$ q
RowBox[{"[",
`' T: y3 D+ m RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",", $ @1 X# x8 i, \) G
RowBox[{"x8", "->", ( k* m! y+ h4 }4 P3 U
RowBox[{"Data", "[",
c4 S( S- Z, ]+ j' N# [! T RowBox[{"[",
3 ?0 g6 K N) ^/ W9 L RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",", ' x7 s! `1 g) n' `1 i
RowBox[{"x9", "->", ! p+ K3 ^7 X% ] U& B
RowBox[{"Data", "[",
+ m/ Z0 I$ G( j4 I+ @' |) E3 ~ RowBox[{"[",
# O* T5 e+ R# X# W RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";", & q4 v, a' T& ]/ g! p2 }
"\[IndentingNewLine]",
! D3 x8 d) d; C8 ?" p RowBox[{5 `! v( K% r& n0 I
RowBox[{"m60n21", "[", 3 h- k9 C$ y( E8 x7 f6 _ n1 F
RowBox[{"[",
4 F i9 N; D6 x RowBox[{"i", ",", "19"}], "]"}], "]"}], "=",
8 ?+ a! Z1 }; ~$ S; t+ w6 q- j4 P RowBox[{"u19", "/.", 5 Y3 c# f, D( y# _
RowBox[{"{", / F* _5 W% o& |7 {6 Z0 C. L
RowBox[{
D7 A9 C4 H/ }* T RowBox[{"x1", "->",
+ O/ _4 h: N; b, z RowBox[{"Data", "[",
" o% o* {9 d! X. @ RowBox[{"[", / }: f5 ]$ x7 s0 o7 w8 y
RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",",
: |; A: q# @* o: q& u: V RowBox[{"x2", "->", % A5 w* z9 h2 z* c2 z
RowBox[{"Data", "[", 8 p2 a: L. I4 a" q
RowBox[{"[", : Q' Q! N7 d5 w5 D+ b4 b8 K9 x
RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",", 0 l, @+ C4 W: H- ]
RowBox[{"x3", "->", : X% Q* u0 Z5 a- Y ?1 L: J4 \
RowBox[{"Data", "[",
" l2 |6 L0 D V- o RowBox[{"[", 5 m4 Q' Z5 y U- ^7 }) _
RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",", % K2 w# e4 z; E. J u
RowBox[{"x4", "->", , c% {' l& W! {" j7 u+ Z
RowBox[{"Data", "[",
( R0 v9 W4 Z# N9 Y" D' y RowBox[{"[", 6 [0 ?- ?$ a) [8 ~
RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",",
7 P( A% a0 r" t l4 u% b5 m RowBox[{"x5", "->", ! y0 X6 B1 A1 ?: U# R; b
RowBox[{"Data", "[",
/ ]0 h2 }* j6 w RowBox[{"[",
; E8 u5 ~, y4 |! P% @ RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",", ) B' `* O1 U. n/ ?# P0 S5 W" `
RowBox[{"x6", "->",
I" O" J9 M" q# q+ O, s* k9 v RowBox[{"Data", "[", 0 Y9 x- {1 i# n7 b% C, Z* k
RowBox[{"[", 7 {* A* ?; e: N& E
RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",",
& @1 E6 ^6 D+ z. J0 Q RowBox[{"x7", "->", ; `! b0 c0 P2 O0 Y: ~' `) S# s
RowBox[{"Data", "[",
7 l5 p! ^0 O6 C RowBox[{"[",
; J/ U3 l% x# Z, V8 X2 h; R+ d3 d RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",",
; T, O+ @( F; i& V$ Z RowBox[{"x8", "->",
% P- R" y7 v+ H) z! [! H RowBox[{"Data", "[", , q4 n. w% |. _* Y: F
RowBox[{"[", " O) m3 e0 t' s3 l
RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",", 4 C8 \' q7 R' q2 d. @7 p4 @# t1 }: T
RowBox[{"x9", "->",
* K: T* v5 ` f* E- w4 b# { RowBox[{"Data", "[",
9 O* R; p' Q) g9 _; t! ^+ X& F& P RowBox[{"[", 7 s. R l+ _; b6 Z8 g
RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";", 9 s' s5 v) n# ^1 f; {3 @
"\[IndentingNewLine]",
9 Z% _# k' j: F8 L% W RowBox[{" h7 {% ]4 W) j" t, F* R6 W" o$ U
RowBox[{"m60n21", "[",
/ {0 @! m% A* c: T RowBox[{"[",
( c9 c: Q4 h. J W RowBox[{"i", ",", "20"}], "]"}], "]"}], "=", , v7 w2 w0 z& D& ]5 U3 d2 R/ Y) e
RowBox[{"u20", "/.", 6 L; }( c7 ~, k7 m* u5 a
RowBox[{"{", ! W g- @/ K( ?3 j+ Z o
RowBox[{
6 |! ~+ H# {% |8 l, l RowBox[{"x1", "->", 0 Q/ Z- b" B9 Q+ q8 g+ I
RowBox[{"Data", "[",
# w) a$ d0 ?2 f. `. {. D RowBox[{"[", ' C, s* e8 N* k. D8 b. Y+ O: }
RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",",
- c2 } R* z* H) O' W) b RowBox[{"x2", "->",
* M+ w8 X }4 N. y6 ^8 D RowBox[{"Data", "[",
# T$ v7 w8 X( K9 J5 P: ? RowBox[{"[", - m, s) P3 W. a
RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",", . @- A0 t5 _1 g% C7 P+ h2 x$ W
RowBox[{"x3", "->",
5 ?. D5 R' v1 @( M6 N RowBox[{"Data", "[", 3 L U* Z8 |# R
RowBox[{"[",
" W+ G3 _9 G* x) a3 p$ ?; t RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",", {) }: ?1 G' {: q
RowBox[{"x4", "->", " q- q3 b" _. [8 W
RowBox[{"Data", "[", . @( g6 @1 k* ]2 H4 U
RowBox[{"[",
) h, L- u3 p$ \2 P L5 H RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",",
8 M, t9 }' E/ ?* Q* j% A RowBox[{"x5", "->", / z% K( p2 I8 [% q$ j6 Q
RowBox[{"Data", "[",
$ P; r3 ~" X! B2 U1 S! U RowBox[{"[", * X) u; d ]8 T4 ]* r. ?
RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",", 0 }& m/ b3 w( y5 L# j
RowBox[{"x6", "->",
2 K; h" q4 j# ?- N, R RowBox[{"Data", "[", 0 k! E* g \; A! k; f
RowBox[{"[", ( s" |* |1 | J j9 g: U* y! \. v& {# C
RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",",
( a$ b( k2 I- w" [/ `9 s RowBox[{"x7", "->",
6 K( D2 I# _' L& d& N/ x6 T; ?4 p RowBox[{"Data", "[",
6 c; D7 Y( r7 f8 G5 s RowBox[{"[",
/ V* `' k9 B4 X6 ]; w7 E RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",",
3 y5 @6 L' o/ F9 B RowBox[{"x8", "->", & G, b& ]! f) {# p% X2 y/ F
RowBox[{"Data", "[",
0 P5 {. j; G8 A8 F- x RowBox[{"[", # _, E/ ?8 _1 z: d t0 f y% t* e u
RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",", 4 X0 v: M" {; | j3 K: |
RowBox[{"x9", "->",
0 |$ }* N8 B6 z) B. H$ a RowBox[{"Data", "[",
" B( \5 Y6 R$ G+ |( l1 _ RowBox[{"[", 5 q& Z& Q& |9 j/ @/ f* k$ K
RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";", # o0 ]/ S% ?0 d1 e* k$ I; v
"\[IndentingNewLine]",
% ~$ W; I5 C2 X6 g RowBox[{
, r7 t, Y, F9 q6 w; l RowBox[{"m60n21", "[",
, D% z0 v# D- A5 V RowBox[{"[", * Z3 b* \# R; l' N0 I7 K# ~; V
RowBox[{"i", ",", "21"}], "]"}], "]"}], "=", + g' C. x6 z2 H% U0 Z4 x9 c
RowBox[{"u21", "/.",
+ Z% p c3 E, e7 X9 ^ RowBox[{"{", 8 g6 \3 k9 m/ G1 r$ `. k
RowBox[{
3 r4 x6 K) J2 e. m# s @+ [ RowBox[{"x1", "->", [# A2 M1 p J" h5 F6 @
RowBox[{"Data", "[", 5 c9 c2 Y% n* W8 Z6 [5 c) N
RowBox[{"[", / X" p9 S# \6 j
RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",", ' \% [7 d: C3 z+ J6 X( `' g
RowBox[{"x2", "->", # U- b1 G* s Z
RowBox[{"Data", "[",
) S6 }: s8 ]7 i* t! b- P. b2 q; I/ C' D RowBox[{"[",
A3 \1 r/ h, s9 x6 k RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",",
# ~4 ?' o2 _- A/ f# |. v" Y7 q RowBox[{"x3", "->",
7 H+ n) X" t6 h' x) W' A% D- M& M RowBox[{"Data", "[", 2 Q8 d3 G! z# }
RowBox[{"[", 2 [0 J& g- E: B. N6 z% I# l P
RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",",
6 j& i9 C1 a& R9 X' q6 A& K, ?, q RowBox[{"x4", "->", ' c5 X4 U" x% g" @( Z. X+ ~
RowBox[{"Data", "[", ) e2 M7 b1 Y6 b4 D/ K' K" H
RowBox[{"[", 4 B0 q+ ]4 P! f+ Q2 r6 L: i
RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",", # j0 D, G" a# [9 m7 \4 N
RowBox[{"x5", "->",
; g, h- \" y& v( c" V RowBox[{"Data", "[", 7 H1 n }6 z+ [7 u2 E1 d
RowBox[{"[", # ~ {. `+ [: }; g
RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",", * h# z9 T; e# W
RowBox[{"x6", "->",
0 a* y& J4 r8 R# s9 \) Z" U4 A RowBox[{"Data", "[", 1 q" H. X8 q0 `/ {: y1 z# H
RowBox[{"[", 8 T2 S6 A4 p% q; ~3 Z
RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",", $ Y. Y2 M1 T4 R0 v2 Z7 d% V: P4 g
RowBox[{"x7", "->",
& D# [: \+ F& A: |1 C9 G RowBox[{"Data", "[", 6 A) H3 X, |, I$ t. I/ [
RowBox[{"[",
! S) a) i3 r+ y1 O4 e: Y h RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",",
* J, W C! e- t" m# x) n' Z RowBox[{"x8", "->",
* X9 W" a* I2 Z. A9 G' v RowBox[{"Data", "[", 8 K4 N$ Y$ O" O1 d# F4 R
RowBox[{"[", 6 L& |- O9 }" a6 i9 O
RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",",
( \( H& q+ H v. y( e m& W; i RowBox[{"x9", "->",
4 C4 b) \ W; w$ L2 G& } RowBox[{"Data", "[",
7 D( e) t) m& `* `* n RowBox[{"[", / E9 D0 y: ~5 ~) b2 m
RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";"}], " c* w& s/ t1 O: ?
"\[IndentingNewLine]", "}"}]}], "\[IndentingNewLine]", "]"}]], "Input",4 R) M8 S6 l1 D, m# j
CellChangeTimes->{{3.5779241165*^9, 3.57792417728125*^9}, {
! t5 K* R4 D6 B f0 I0 \ 3.57792428359375*^9, 3.577924585109375*^9}, {3.577958919491543*^9,
+ H4 _% N+ s( r/ C8 ], X2 J 3.5779589224867477`*^9}, {3.5779619825731473`*^9, 3.5779620676400957`*^9}}],3 b6 M7 j: e! Y) C b! ]' E1 a
' e- P6 e, p& L9 D4 j( S, X
Cell[CellGroupData[{
5 A) f; Q0 Y, ? K9 H# d
' k) R& @; `2 j* E8 L ~Cell[BoxData[
2 k# b8 Y* A4 l! p8 ?* s RowBox[{"w1b", "=",
) V6 `7 z; N1 H" _! Z! e! g RowBox[{"LeastSquares", "[", , j% L( u# r1 C9 @/ x
RowBox[{"m60n21", ",", "y1b"}], "]"}]}]], "Input",
1 D* X9 p8 O8 P' {; H/ z0 a CellChangeTimes->{{3.577924598484375*^9, 3.5779246208125*^9}, {+ r. @7 ^, F/ R9 y( W" d
3.577924662765625*^9, 3.57792466596875*^9}, {3.5779582865360394`*^9, 9 ^ k2 m2 i1 y, ?
3.5779582963172565`*^9}, {3.5779622900808835`*^9, 3.577962290377284*^9}}],
5 N' W6 e+ T* A6 L
1 a* K/ s& t! g; z+ ?Cell[BoxData[4 A5 l+ q" S/ @6 o% i
RowBox[{"{",
% P: v; L" ]' w- M. v; P RowBox[{# z) z1 f# ?0 F/ B! k7 i
"0.48228184971363947`", ",", "0.16041393254115022`", ",",
' I; a4 t) L* r9 M "0.3741982811661129`", ",", ( k1 h3 J5 o4 D( m$ J* H
RowBox[{"-", "0.12620581913715245`"}], ",", "0.28831860112966734`", ",",
$ U6 \" W6 `$ L- z, x9 z RowBox[{"-", "0.2282993884666894`"}], ",", "0.3207174990295839`", ",", " c4 `1 {' u; [; ? i) R; r
RowBox[{"-", "0.4666313851213302`"}], ",", "0.27551257162880227`", ",",
# Z x% l: D* N) Y RowBox[{"-", "0.025873988843993667`"}], ",", ( P1 j2 `8 a) g) H2 u$ O
RowBox[{"-", "0.1339854044819916`"}], ",", & P8 }: m0 s( R. y' F1 {6 h: R8 Q% {
RowBox[{"-", "0.15852708848338315`"}], ",", "0.3129687276967983`", ",",
2 V. D w1 v1 a5 g "0.45723850991134063`", ",", "0.2954923840077215`", ",", 3 U2 l* F; J6 c; f+ F
"0.9125798890455868`", ",", "0.21159052285983104`", ",", % o0 x" O% e& a3 V2 [
"0.5575503376854456`", ",", "0.6019775648968265`", ",",
; q' l# F: Z5 T% d' o: g2 Q "0.2361524780938108`", ",", "0.12782130225993923`"}], "}"}]], "Output",/ y) t; n4 @# s5 @2 k) T
CellChangeTimes->{
* ?. J; _! P8 c, [ 3.577924621953125*^9, 3.5779246688125*^9, {3.5779582894220443`*^9,
0 D' i! _( @' E& A" f$ Y 3.5779582992968616`*^9}, 3.5779584995700107`*^9, 3.577959040157753*^9, 1 @0 W: ]$ ~3 o
3.5779622919996867`*^9, 3.578012447734375*^9}]* b" o4 R% i, u5 q
}, Open ]],
) ^) i8 m0 { v4 { q+ z- x3 u: _5 J' F; v
Cell[CellGroupData[{
+ L6 q) K7 B6 w/ g+ k. \* }" `* @; V9 x& p/ L
Cell[BoxData[
7 j1 }5 t, J8 R( A7 K: l RowBox[{"y2", "=",
* f. G/ s0 d0 i9 _: w* d RowBox[{"w1b", ".",
8 s, E) ]2 U* M# ^ RowBox[{"{", " z3 R; z4 r+ y7 Z
RowBox[{8 n& P7 ]* {1 H5 {# ?
"u1", ",", "u2", ",", "u3", ",", "u4", ",", "u5", ",", "u6", ",", "u7", # @3 H/ t& _& C* L. u! A
",", "u8", ",", "u9", ",", "u10", ",", "u11", ",", "u12", ",", "u13", % g( h4 m6 I; D0 I8 l
",", "u14", ",", "u15", ",", "u16", ",", "u17", ",", "u18", ",", "u19", % S# f# V: f; g" m$ q3 b' ^
",", "u20", ",", "u21"}], "}"}]}]}]], "Input",- q% V, ?6 P6 z: {" E* n( n- G2 h
CellChangeTimes->{{3.57792471553125*^9, 3.577924755875*^9}, {
% x4 ?! H; K0 \0 G( d, ^# I8 ^ 3.577924897078125*^9, 3.57792491596875*^9}, {3.5779583101856804`*^9,
" z \& n8 e' ]8 }, u. n- X 3.5779583178920937`*^9}, 3.5779623163513293`*^9}], w1 C w8 a5 _
, p5 T( D9 m4 q: A. E' n8 t7 b% }5 L
Cell[BoxData[
4 {/ |5 @9 p1 _ RowBox[{
- X2 W/ [' F& ~9 N4 q RowBox[{"0.9125798890455868`", " ", + O$ E" K7 B( H# A
SuperscriptBox["\[ExponentialE]", ) q$ I, _2 x3 K* B4 w8 W2 U% {8 _
RowBox[{"3.141592653589793`", " ", / O; D- t# G" _ K* h' T# W7 _7 o: z
RowBox[{"(", P- g( K* ^% t4 I8 w8 t
RowBox[{) f* W6 F1 g& R8 a! E4 b: d
RowBox[{"-",
9 `- v3 c4 B0 P SuperscriptBox[3 Y5 y8 K1 U! J8 `
RowBox[{"(", ) x+ Q4 [8 s" l' A
RowBox[{4 K! K; O5 G! ?3 ]
RowBox[{"-", "0.434783`"}], "+", "x1"}], ")"}], "2"]}], "-",
( {% }: z' ^. _' h+ b* @9 a SuperscriptBox[3 A$ I6 e* }1 N& y9 o9 E" f8 V
RowBox[{"(",
0 m# V( q3 F2 q* T$ m RowBox[{: b7 a/ n* g- N5 u
RowBox[{"-", "0.551785`"}], "+", "x2"}], ")"}], "2"], "-",
0 P7 U @/ I* D0 K" M SuperscriptBox[3 H) J$ J5 ]7 g9 Y" L$ q
RowBox[{"(",
. n- \) Q# a4 W& G/ {* l RowBox[{! V4 \4 n5 z# V, R& R# [" Z; |5 d$ w
RowBox[{"-", "0.530346`"}], "+", "x3"}], ")"}], "2"], "-",
5 X* ^( d: e& G f SuperscriptBox[# E5 A) S U+ }) Z4 N
RowBox[{"(", ' l* F0 D. c3 m& i) g
RowBox[{+ A, H W3 A: C6 X+ f2 w
RowBox[{"-", "0.151651`"}], "+", "x4"}], ")"}], "2"], "-",
1 Q4 @2 @& E b0 K+ V2 E SuperscriptBox[, X, Q5 C+ q. i8 ^* d" I% H- Q
RowBox[{"(", ) K, d1 r1 i3 I+ r# c* y
RowBox[{
P6 M( P) {2 D/ R; U RowBox[{"-", "0.79021`"}], "+", "x5"}], ")"}], "2"], "-", " o7 e* g+ c$ j2 w+ |8 U
SuperscriptBox[
2 Q& p; d0 D9 ]2 R7 I& ]2 N$ l' b RowBox[{"(",
7 L/ p5 `6 L$ h% i6 N1 a0 x) K RowBox[{
" n% a! R( L& b/ q. E2 y. b RowBox[{"-", "0.529013`"}], "+", "x6"}], ")"}], "2"], "-", , @2 F8 V( V/ ~1 [. q; |
SuperscriptBox[% \7 ]6 ` s" q
RowBox[{"(",
6 |$ u$ D/ J$ j" @0 ~8 [3 o RowBox[{/ j: N; w2 G# t3 x: o6 G) _* {) ~
RowBox[{"-", "0.409756`"}], "+", "x7"}], ")"}], "2"], "-", : r' n' ~/ o5 y2 |& f% n0 Z
SuperscriptBox[
1 I9 o& w' M% j0 w5 k# A RowBox[{"(",
/ ~" Z0 t$ \$ \$ W RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
4 L. F* O5 G* f SuperscriptBox[7 i r4 _0 |+ D5 h1 H
RowBox[{"(", * L# l1 q' d# |
RowBox[{6 k. `8 G# K" D
RowBox[{"-", "1.`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}], "+",
) \+ H7 s" f$ m4 f1 B6 _" [ RowBox[{"0.28831860112966734`", " ",
, A% w+ L. ~6 x1 d8 `# N$ t SuperscriptBox["\[ExponentialE]", / {% h; \' j: W2 j
RowBox[{"3.141592653589793`", " ", 9 L: n4 O- U$ P6 F
RowBox[{"(", ! |0 J- W( L: N
RowBox[{; I3 t, N9 m% V' L! n0 R
RowBox[{"-", 9 B+ l* H9 [4 }& V+ v( j: I1 o- C
SuperscriptBox[6 M) ^0 i" F5 i* m+ s8 s; r) J
RowBox[{"(", ' {* z5 R! U. l1 n6 H
RowBox[{4 K |2 A* U+ V, h% p1 W
RowBox[{"-", "0.565217`"}], "+", "x1"}], ")"}], "2"]}], "-", 9 M' ^- }# ]" @& v
SuperscriptBox[
( \6 Q6 U+ R' D: l3 Y, G) o RowBox[{"(",
$ Z- @4 {+ i; `6 o+ `( b$ v" n RowBox[{
* E/ i p- {- O RowBox[{"-", "0.71046`"}], "+", "x2"}], ")"}], "2"], "-",
: I+ g* N( J6 N SuperscriptBox[( B& u& y8 H2 }, J9 e
RowBox[{"(", * [' c6 k; R4 O& R. J
RowBox[{) [; C9 G }' I9 r7 V( O+ U; ^
RowBox[{"-", "0.64973`"}], "+", "x3"}], ")"}], "2"], "-",
) M6 K L( X ], X$ H+ Q SuperscriptBox[
6 V2 J; O2 V; F RowBox[{"(",
4 n) n5 f1 n8 Y& f0 v% j RowBox[{+ n, I, b8 h+ b+ Y( L( r, y
RowBox[{"-", "0.119897`"}], "+", "x4"}], ")"}], "2"], "-",
9 t; N) K$ w6 l# }# K. C* L% w7 ]9 X- J SuperscriptBox[
1 p$ ]& Z3 N9 b% x; D2 z+ |1 } RowBox[{"(", B" v6 h a2 X- K- y
RowBox[{5 D+ ]! {5 ]$ M# N" b" _" {
RowBox[{"-", "0.468531`"}], "+", "x5"}], ")"}], "2"], "-", & G8 A* J" E( `1 E9 v
SuperscriptBox[
- u9 q7 S3 z7 D% I( x6 o RowBox[{"(",
7 U( {: @; L; q1 k4 p RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
z. ^, R z+ z' X# Z2 B SuperscriptBox[
' p( { n# J' B2 A RowBox[{"(", 9 a& \( l5 ~5 v8 ?5 @- m
RowBox[{: w& F. c- K. Y- J1 W/ r
RowBox[{"-", "0.636585`"}], "+", "x7"}], ")"}], "2"], "-", ; @7 S& l/ N5 X9 w4 Y
SuperscriptBox[
! P1 w7 Z8 O6 }9 G \5 ] RowBox[{"(",
' Y; m/ P: z" y' E RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
2 W6 t; V0 W# E: {' M# l G SuperscriptBox[
. q9 q: X( B) v6 z( @/ @; } RowBox[{"(", `, ?7 g( w3 V p: w
RowBox[{
6 }2 K. S1 ], N) B+ ? RowBox[{"-", "0.766748`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}], * r& V: V6 E) y1 p( o* i
"+",
! L/ N4 `, f8 B9 W RowBox[{"0.21159052285983104`", " ",
* w0 e- E" D% d) A) F; u8 H: j SuperscriptBox["\[ExponentialE]",
* e& J. ?, |6 p8 n0 L, L# O RowBox[{"3.141592653589793`", " ",
4 ~& e: A/ ?" Z3 X) I RowBox[{"(", # q6 C. }' X; l7 G9 _- S
RowBox[{( N/ ?& A* y9 c2 T' {
RowBox[{"-",
+ O( X1 o2 h/ B- c |& Z9 E SuperscriptBox[- G2 `' V' `# G0 e% \2 e% B
RowBox[{"(",
|) O( u( V4 C1 B, R RowBox[{
9 k2 S1 w% `6 A+ f RowBox[{"-", "0.347826`"}], "+", "x1"}], ")"}], "2"]}], "-", 4 d& p' Z% M2 Q2 V. O( f1 Y1 V% X9 F
SuperscriptBox[
) z. ]$ o6 Y- ` RowBox[{"(", , E2 U z# N# S
RowBox[{
5 m! y" B F- s' f6 X RowBox[{"-", "0.705444`"}], "+", "x2"}], ")"}], "2"], "-",
; ?& L4 r, z2 q1 O8 J& J SuperscriptBox[$ z* |" q# C9 K/ J% t
RowBox[{"(",
Q3 C( w3 ~* G9 k. M6 v) y% h RowBox[{
: {* Q% u0 I$ \7 U& _0 ~ RowBox[{"-", "0.109343`"}], "+", "x3"}], ")"}], "2"], "-",
- _1 L' H) Q5 z) k SuperscriptBox[, N% E7 S9 v8 V) X8 S
RowBox[{"(", 2 F) M- j0 N7 a* x: j
RowBox[{
- d; s* N* U0 J: b0 F; h2 r X. J RowBox[{"-", "0.072008`"}], "+", "x4"}], ")"}], "2"], "-", # l8 H9 ]& G5 b' r2 x- z5 Q4 x
SuperscriptBox[
7 v6 ^& f: c% O* v" o4 v RowBox[{"(", ' D) e2 a3 E/ y! l* ~' c# g' T
RowBox[{1 s$ g. w, U! Z4 U1 X0 K7 d @$ D
RowBox[{"-", "0.496503`"}], "+", "x5"}], ")"}], "2"], "-",
* I, B( @( w4 ^9 _9 z4 u8 T SuperscriptBox[; \, v: z$ }6 g2 h
RowBox[{"(",
, w1 H, _! r2 L6 T/ G RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
, j1 x7 e+ F/ Y, J9 u5 f! Z+ s. q SuperscriptBox[
' b9 L* o- s6 i- ]& Z2 Q RowBox[{"(",
. C0 C; B' N5 z3 j$ m+ F( K RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", " p% s1 l B) K- m: |
SuperscriptBox[
5 @$ E# S0 ?' p4 C/ }1 V RowBox[{"(",
{( P4 g6 |+ x7 V1 w. X9 v, z% t RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
: J) |: ] K8 p SuperscriptBox[+ S9 Z$ P( c( D, k; C& W5 Q, @' R! t
RowBox[{"(",
4 x7 [5 y& e) N! i0 e ~5 x) I RowBox[{
; N; p* j" a/ j* b RowBox[{"-", "0.752567`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}],
2 |- }# F9 K1 d "-",
9 D0 D' m! a' [+ m RowBox[{"0.2282993884666894`", " ", " D. U, o* G$ q% d! i7 r Z
SuperscriptBox["\[ExponentialE]",
0 v9 i& B7 N# T" v5 Q9 E RowBox[{"3.141592653589793`", " ", ' [+ I2 Y7 i7 X2 H5 y
RowBox[{"(", : }! X1 n! \& m
RowBox[{
! R9 T( m" L9 g. m9 z1 O2 j RowBox[{"-",
7 z5 W: m E9 ^7 w SuperscriptBox[5 S- W+ S. N4 `3 t/ o
RowBox[{"(",
- O! y: {$ m# T. i4 L5 s$ _ RowBox[{) B5 u `8 J" r. s
RowBox[{"-", "0.130435`"}], "+", "x1"}], ")"}], "2"]}], "-", t+ X" M* \$ t" ^
SuperscriptBox[
! q" k( d# t4 W& ~8 T7 S RowBox[{"(", - D+ a) W$ ~$ A: s, Q
RowBox[{, q* j2 K* Z& o D) o
RowBox[{"-", "0.682724`"}], "+", "x2"}], ")"}], "2"], "-",
2 ^' a3 W, t g a' i. Q | SuperscriptBox[
$ v& m4 o. [ T. r: O8 x RowBox[{"(",
$ p7 j6 |+ V9 H* H+ h RowBox[{: N1 K; e [' b, T0 S1 K
RowBox[{"-", "0.258697`"}], "+", "x3"}], ")"}], "2"], "-", + ^8 `! G G0 `
SuperscriptBox[5 t5 C9 ^ `/ b, T: [, u8 w$ t
RowBox[{"(", , Q$ H; o# e' J
RowBox[{* n% H, D4 V0 s+ u9 v1 W
RowBox[{"-", "0.019299`"}], "+", "x4"}], ")"}], "2"], "-",
/ ~) J; l6 v4 s. I6 j9 e& k5 Z! Q SuperscriptBox[
9 @. T. q/ W! F! o' @: V, D RowBox[{"(",
9 J3 T% C8 m. i" M4 G% J RowBox[{
8 S0 _/ I& ^" R3 h K RowBox[{"-", "0.51049`"}], "+", "x5"}], ")"}], "2"], "-",
7 e1 s+ E+ {& s( a SuperscriptBox[
E6 t/ b @5 ?5 ~! p; }6 v RowBox[{"(",
! X1 M9 n6 b5 h6 d& z' \ RowBox[{
% k" u2 e1 O8 Q1 E RowBox[{"-", "0.420497`"}], "+", "x6"}], ")"}], "2"], "-",
8 n& J& V0 r5 t6 w6 T% e SuperscriptBox[
4 H. a5 E# q7 b) u" n3 O RowBox[{"(",
& X" A- V$ b! P, b RowBox[{
( P0 T5 ^& t* e8 q$ {& D, O6 M RowBox[{"-", "0.535772`"}], "+", "x7"}], ")"}], "2"], "-", 2 J1 L5 ]8 j9 k- M+ H9 N
SuperscriptBox[" ?" R" a5 U" g, a; K9 M
RowBox[{"(", 2 d! t. M b- q( Z- I/ ~
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
3 n( Z {( c+ |2 Z) @' v/ Q- { SuperscriptBox[4 L% Y$ @) i4 l7 ~8 P3 l/ [' ]8 M3 Q
RowBox[{"(",
9 r( }8 J/ m2 V/ F+ u RowBox[{" J" X. _/ d& s8 J ?% e k2 y5 I
RowBox[{"-", "0.494866`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}], 8 N" p6 ~# G- e7 b; p6 @; N
"+",
U+ Q- z2 V4 W, L9 D% ~& S% i! T RowBox[{"0.27551257162880227`", " ", , V6 ]) z# ?$ q! O
SuperscriptBox["\[ExponentialE]",
5 ~ y/ k9 ^7 d* r RowBox[{"3.141592653589793`", " ", ) O( u1 b9 w0 ]' O" J2 `; d
RowBox[{"(", 1 I6 i( N" L8 i( [" z" x( }5 S7 n+ A
RowBox[{
' y4 V5 l/ O& \0 a5 q: N& n RowBox[{"-", ) s O7 l& l0 a Z. e0 J/ ?
SuperscriptBox[7 U% e9 C G5 Q5 X/ T/ ~
RowBox[{"(",
7 H% n' t. \) @5 a8 ]1 C2 ?& K/ I RowBox[{"0.`", "\[InvisibleSpace]", "+", "x1"}], ")"}], "2"]}], "-",
- D, V$ C' f1 H6 ^; ~0 G# `, J SuperscriptBox[
. n; x4 \% X, l# s8 ^3 I/ R RowBox[{"(",
; H) z; U* }; ? RowBox[{
5 Y% R3 |5 ]" N0 |( \5 Z& Q/ m o RowBox[{"-", "0.395544`"}], "+", "x2"}], ")"}], "2"], "-", 4 I4 E; N+ ~9 L; i" t
SuperscriptBox[. T( x* w, n. \; R4 {( h
RowBox[{"(",
. `8 h- h; {6 Q _ RowBox[{
0 y" x" s4 R( _' x5 z) A RowBox[{"-", "0.027011`"}], "+", "x3"}], ")"}], "2"], "-", # r4 q. T8 s1 B- Q
SuperscriptBox[
0 a7 `6 m6 x7 [, G RowBox[{"(",
( G$ P* \: l l$ s4 j$ h2 Z1 p RowBox[{+ p9 o) B5 R* @% F% {
RowBox[{"-", "0.048087`"}], "+", "x4"}], ")"}], "2"], "-",
2 {/ q3 G. s s3 w SuperscriptBox[$ c& X& L+ [9 Z/ _0 t5 Z" ? [
RowBox[{"(",
( Y5 g( }3 p- A- ~, ]+ B RowBox[{3 ~! N3 L$ d$ w
RowBox[{"-", "0.496503`"}], "+", "x5"}], ")"}], "2"], "-", % y: m8 `+ g# S! p1 ?6 l9 T2 r
SuperscriptBox[4 M5 E2 H* u% a9 a3 T$ r
RowBox[{"(", # G, b e0 c9 P# h- }' s+ C
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
7 a g/ x8 w2 n! ]8 a1 G! X2 e SuperscriptBox[3 j, ^ d* w6 D. q& ^; @
RowBox[{"(",
6 D6 B9 L1 l. X7 Y/ [2 U RowBox[{
# R* t9 C" G* @( e& J9 P$ \ RowBox[{"-", "0.452033`"}], "+", "x7"}], ")"}], "2"], "-",
% ]' ]3 }% z- B3 ^- t- i$ f SuperscriptBox[
7 y6 D8 U2 h n' c6 ^ RowBox[{"(", * ^7 f& X. ]) |8 r: U+ \7 H- \
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", 7 z5 F. q# S- v8 e; F
SuperscriptBox[0 U5 y9 E. k" }6 o$ ?3 i1 V3 X
RowBox[{"(",
/ g1 J. A) ?1 X! I( [9 G; i; W4 v2 ?* I RowBox[{" A: `* z. d& e1 f+ `# ^( C
RowBox[{"-", "0.278729`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}], ) P! W9 M) m$ J) e1 T
"-", + n0 ?6 v" l1 r. t! J+ H" G
RowBox[{"0.12620581913715245`", " ",
, i6 W6 n6 }$ p' \ SuperscriptBox["\[ExponentialE]",
' R9 z! K# w% o6 l, ^ RowBox[{"3.141592653589793`", " ", % j* O2 c: a& q
RowBox[{"(", $ o4 W2 t8 t" g, n8 o/ R
RowBox[{( u" [+ M! m' ~& S$ u) ~
RowBox[{"-", 7 D! i/ H3 Y0 I3 v& A( B6 l' A1 d) S
SuperscriptBox[9 r! F( d/ y( J F$ J. v
RowBox[{"(",
6 n7 n: B9 a, i+ T RowBox[{
) I0 Q+ R+ x$ O( a7 m RowBox[{"-", "0.565217`"}], "+", "x1"}], ")"}], "2"]}], "-", 2 E& w+ B6 Q* p5 g
SuperscriptBox[
9 k6 K1 n4 y* z RowBox[{"(",
, b2 J4 U p( _, L! h3 Z RowBox[{6 v9 m* q/ r( d0 {; v4 A& Z: R
RowBox[{"-", "0.705518`"}], "+", "x2"}], ")"}], "2"], "-",
' \! }# \! C( f9 _2 R8 E/ L SuperscriptBox[/ @4 y \- [9 y: R2 a
RowBox[{"(",
$ M+ l, ^$ [) N; k3 _: w RowBox[{7 P$ g5 x( B% W1 D1 ], n6 v
RowBox[{"-", "0.510223`"}], "+", "x3"}], ")"}], "2"], "-",
/ q( j% G7 {% o+ ^# P5 e0 G5 P1 P/ H SuperscriptBox[
[5 _3 M3 m& Y& m3 I RowBox[{"(", , V; K; c* U8 n# q) r/ |
RowBox[{
# z6 l# ~) @: u j RowBox[{"-", "0.066892`"}], "+", "x4"}], ")"}], "2"], "-", # B; b% R9 }' n: _4 J. R* M* @* u
SuperscriptBox[3 ?. l* w- `" k
RowBox[{"(", ! X' t, }! N4 b) U
RowBox[{8 C) `; U B7 B8 {5 d0 E
RowBox[{"-", "0.244755`"}], "+", "x5"}], ")"}], "2"], "-", ( J8 C" \3 f6 s; U; o
SuperscriptBox[
! a3 J" p* M, x RowBox[{"(",
L/ v4 r& x. h5 b7 ] RowBox[{
2 Q% s* ^' L; ?. u, j: _0 k9 q* Q RowBox[{"-", "0.748304`"}], "+", "x6"}], ")"}], "2"], "-",
: P# C4 u4 D! [6 U* d; l6 a/ w SuperscriptBox[( R R5 C8 {2 y0 Q6 O
RowBox[{"(",
3 ]& x' C, n# U6 S( U RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", 2 g% R' v$ H# |; y9 W; B" M* ?2 V
SuperscriptBox[
# M' l: Y2 Y% X* h I7 K& T RowBox[{"(",
& x' y' w, g- P Z: w* R% l RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
/ t) C" _' b/ q. u7 x SuperscriptBox[
9 C# c% ]5 R2 ~$ L: L! w# ?7 } RowBox[{"(", 2 x2 I( ?) h$ V
RowBox[{
; h e+ |# Z; D5 D RowBox[{"-", "0.243032`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}],
. q7 e6 J) A4 D% W; R7 I "+",
6 {9 j4 p% w' X RowBox[{"0.12782130225993923`", " ", 6 T) E R, @) F/ [" y4 G
SuperscriptBox["\[ExponentialE]",
; K* z6 k+ u. ^: V* N2 f' V RowBox[{"3.141592653589793`", " ", ) q# H" _4 h6 k% r/ E+ B
RowBox[{"(",
- a$ ~( o8 y) ~+ D4 D6 s: x% [ RowBox[{. ^5 _4 B+ u5 H. }* l2 p
RowBox[{"-", , m" q j" Q$ h; C
SuperscriptBox[
& [) g3 s: a/ ~0 ~1 x RowBox[{"(",
' \$ u9 `) A \$ r/ D) I7 ~ q RowBox[{+ {! L3 o. w, V3 U
RowBox[{"-", "0.608696`"}], "+", "x1"}], ")"}], "2"]}], "-", ! M1 E# ~& E- [8 t- c( F
SuperscriptBox[
E3 @/ a0 P6 b" f1 v- I RowBox[{"(",
8 S1 ~1 Z# @$ Y RowBox[{
5 g1 N2 _/ X1 H6 q- ?" c RowBox[{"-", "0.606152`"}], "+", "x2"}], ")"}], "2"], "-",
5 Q& d5 b) F: G# ? SuperscriptBox[2 n8 K( h4 _7 v" q. K0 n
RowBox[{"(", ( K" ]/ t9 m+ X8 N
RowBox[{
7 s9 K2 ]( q9 X, e RowBox[{"-", "0.158058`"}], "+", "x3"}], ")"}], "2"], "-", 0 ~- L" ~+ |9 O9 D; |2 [' C
SuperscriptBox[! U1 B* _: i* ^+ `4 L6 ^6 X
RowBox[{"(",
9 y/ [1 ]2 D# ~. W- x RowBox[{" g* y2 F- W# v3 }' I( x
RowBox[{"-", "0.09017`"}], "+", "x4"}], ")"}], "2"], "-",
% Y6 f) m0 ^0 q; n SuperscriptBox[
9 Q$ M& H9 U0 ~ RowBox[{"(", 7 S; X( x( M% T- }" `
RowBox[{
4 T7 n! ^9 i$ |8 @ RowBox[{"-", "1.`"}], "+", "x5"}], ")"}], "2"], "-",
- l' ~; L' T/ P# J. K SuperscriptBox[
; a) p9 S2 h. r4 S# { RowBox[{"(",
4 S0 K' M9 G9 c- Q) j' I RowBox[{5 |3 ?- I4 s! W- V# g, a
RowBox[{"-", "0.166541`"}], "+", "x6"}], ")"}], "2"], "-",
8 [& l5 @1 v, x6 B SuperscriptBox[1 X% X# g: {) l, g
RowBox[{"(",
x% l3 V. e6 } RowBox[{
_5 |1 \9 X) z RowBox[{"-", "0.278049`"}], "+", "x7"}], ")"}], "2"], "-", # r, N+ b+ B8 k9 i+ X
SuperscriptBox[
. y; L3 N0 j/ f; B* b RowBox[{"(",
7 a: ~* o: E8 O0 S) r3 T RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
3 Z# U! W, N" k0 n5 c SuperscriptBox[
+ q. Y- n7 s6 j RowBox[{"(",
0 ~) c/ A8 o; F" _7 H RowBox[{
9 q' H- S8 J* n6 c% V% M7 Z RowBox[{"-", "0.236675`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}],
* \! d+ A* k. b2 `; } "+", + k% p2 S' U+ \& A* Y' L2 O. c
RowBox[{"0.2361524780938108`", " ", , k1 ]6 R b0 ?" q
SuperscriptBox["\[ExponentialE]",
4 c1 |" e5 n) u$ D$ [( q RowBox[{"3.141592653589793`", " ", : W1 x) J' o T. Y
RowBox[{"(",
: o) O: h; r% Y- @& _7 e) U& S RowBox[{
) C _ @3 G8 g$ b s0 S) Y RowBox[{"-",
8 M* t! D% r7 h6 T SuperscriptBox[
1 f$ U% W. u# e0 ] RowBox[{"(", " R+ t; P$ ?' c9 u6 O' c
RowBox[{
3 H2 v( U3 L! e8 u# l B6 d, ~) D RowBox[{"-", "0.782609`"}], "+", "x1"}], ")"}], "2"]}], "-",
' v5 C9 p4 o A SuperscriptBox[
2 E& I" B; r2 g5 U' K, U RowBox[{"(", / I: J6 \4 D/ L' ]
RowBox[{
' y( e4 r* b' g/ G- i7 ? I k RowBox[{"-", "0.751623`"}], "+", "x2"}], ")"}], "2"], "-",
* ]& F- Y/ F5 V" ~7 V SuperscriptBox[
! G2 e, I C$ c( s' M4 T RowBox[{"(",
$ D# D7 y/ }& h7 E- } RowBox[{; d% K5 x$ F2 K. w+ b& X
RowBox[{"-", "0.177646`"}], "+", "x3"}], ")"}], "2"], "-", 3 Q" A4 P( |; k0 Y5 r
SuperscriptBox[
+ d4 K& ~* Z6 t3 N- ~ RowBox[{"(", 4 E) o4 X- E9 v3 b( ~/ Z
RowBox[{
8 K0 J! ~1 s. Y' o, | RowBox[{"-", "0.350845`"}], "+", "x4"}], ")"}], "2"], "-", * U2 v( Q1 }, R- I- h( N
SuperscriptBox[
: z# r2 G P/ d RowBox[{"(",
3 ^/ S" l. ~+ t+ \$ ?# s RowBox[{
- ~2 Q1 M0 ]) c RowBox[{"-", "0.412587`"}], "+", "x5"}], ")"}], "2"], "-", ! E8 u+ l9 d5 ~8 ?; W* G, v
SuperscriptBox[
& _0 p0 g! t0 | RowBox[{"(",
8 Q% J6 y1 L3 P! p: ^% E- H5 U* Q RowBox[{( Z2 ?* m8 w, p
RowBox[{"-", "0.502638`"}], "+", "x6"}], ")"}], "2"], "-",
! P) y, E1 I, H1 t8 e7 g9 J; Z9 C SuperscriptBox[, ~- M1 V: O7 g% r% f, C
RowBox[{"(", & j" u) m: e+ B0 x
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", . F1 p) E/ U" k8 ~
SuperscriptBox[
# }+ m( ~0 T; A+ H3 K) ?* E RowBox[{"(",
1 ^4 v+ H- M$ `3 y; D RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
* A7 \9 ?6 d0 d/ e: A: n SuperscriptBox[0 V+ ^1 L# z4 Z* G# B" l8 W
RowBox[{"(",
7 }# h7 I# ~: h5 ?3 Z* B RowBox[{
7 e! C& I2 `! ?1 k7 O RowBox[{"-", "0.178973`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}],
6 b3 K! j/ L D0 C# p "+",
/ f" }. {; h, e% g RowBox[{"0.3207174990295839`", " ",
5 s! n |4 e4 z: Z SuperscriptBox["\[ExponentialE]",
) S$ Q6 l& Q9 {0 d. V# }, O* M RowBox[{"3.141592653589793`", " ",
- B/ h; |1 B5 L; G! N: T RowBox[{"(", ) J+ P, ?, D4 {# E- B) ]- I4 J
RowBox[{7 }- ^2 ?4 D* U+ @5 ~
RowBox[{"-",
+ e( u" ?4 b8 X( \6 k2 p SuperscriptBox[
0 O: f; M& K2 Y8 ]( y; l, \. Y1 `, E9 N3 M RowBox[{"(", 1 y% f3 k7 `/ W
RowBox[{6 \" v: C5 C& P3 u& Z! v
RowBox[{"-", "0.695652`"}], "+", "x1"}], ")"}], "2"]}], "-",
2 l$ L' [) s4 c# j* ^# x SuperscriptBox[& B: C1 M1 t8 _
RowBox[{"(",
, U0 U0 x6 ~7 ^, C RowBox[{! B! ]6 k/ S) s) j
RowBox[{"-", "0.71828`"}], "+", "x2"}], ")"}], "2"], "-",
2 B. X# f$ W( \ SuperscriptBox[
. _2 S2 C+ C5 F# {" B+ `2 m RowBox[{"(", : ~$ G: h' h: b1 ]2 s" H. F7 u
RowBox[{
6 ~7 U) n: E, U: ]8 o8 h$ d) C- d5 @ RowBox[{"-", "0.33973`"}], "+", "x3"}], ")"}], "2"], "-",
7 V1 C% I" q A( C; x SuperscriptBox[
( A& \7 l/ r) x( S8 R RowBox[{"(",
# c! y+ G$ A0 [6 R+ E RowBox[{
" z/ q4 C9 |! e1 f) y. h5 K6 p/ r4 G6 k RowBox[{"-", "0.110285`"}], "+", "x4"}], ")"}], "2"], "-", 8 O. v5 ~% R+ i6 o
SuperscriptBox[) e* i' b! [; o Q4 B8 d
RowBox[{"(", % Y3 q, A/ [! g. g
RowBox[{/ M" L1 I6 G" C1 X, |
RowBox[{"-", "0.335664`"}], "+", "x5"}], ")"}], "2"], "-",
, }% j8 Q7 k- t0 a/ H SuperscriptBox[1 C# t% F. k3 R4 V2 o
RowBox[{"(",
% p A" d8 |; [/ r- z: H7 T/ i& E RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
A/ W) X) e2 s5 G& Q, q SuperscriptBox[8 w$ u5 y* t$ [: _9 {
RowBox[{"(", ) C$ J8 f( \0 F& [4 \4 a P
RowBox[{
y* d: k2 O: j" G: B c RowBox[{"-", "0.636585`"}], "+", "x7"}], ")"}], "2"], "-",
" y) B+ r. A$ o SuperscriptBox[8 J/ i9 g @ K
RowBox[{"(", 3 G) m M6 P( T) E4 N4 i
RowBox[{
" X! q" p( T8 ^ RowBox[{"-", "0.780463`"}], "+", "x8"}], ")"}], "2"], "-", 9 Z) v( c) v' G4 a
SuperscriptBox[* [5 ^( u$ N1 g5 Z3 a5 a7 }
RowBox[{"(",
6 t8 @+ Y% l* K" L RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
! T! ]6 k. l: ~( U ")"}]}]]}], "-", ; {; z* w& S) }: _
RowBox[{"0.15852708848338315`", " ", ' I1 A0 Y6 e8 D# j
SuperscriptBox["\[ExponentialE]", * w% T: I. R' E/ ~, `
RowBox[{"3.141592653589793`", " ", ; @& G/ S, I( ]6 t7 x4 d8 {/ [
RowBox[{"(",
5 o1 v k' J9 p RowBox[{
r1 H$ o# W1 A8 H RowBox[{"-",
- K- I( s# S6 P' h SuperscriptBox[
! |% B6 G6 o: E; [# C( s- T RowBox[{"(",
7 b' {8 t6 }! ~* J% V6 T RowBox[{
6 Y/ X2 u+ C. e5 B RowBox[{"-", "0.913043`"}], "+", "x1"}], ")"}], "2"]}], "-",
9 O, ~% y. W7 `$ i SuperscriptBox[
0 C p! ^% B' Z; a' A: o% ` RowBox[{"(", 7 ?' S( R4 U! k6 {5 T+ I; q
RowBox[{
. x( n8 P8 Z$ Q$ e4 s) K( i/ c RowBox[{"-", "0.170478`"}], "+", "x2"}], ")"}], "2"], "-", " `& d% l) {* t6 Z% j
SuperscriptBox[
5 e2 c& t0 U, |4 n5 f s& C. h* Q RowBox[{"(",
0 A a' U" |2 u' O+ M RowBox[{"0.`", "\[InvisibleSpace]", "+", "x3"}], ")"}], "2"], "-", & y( C0 k4 R4 Z* t
SuperscriptBox[
2 N4 u' U" J9 F& n RowBox[{"(",
z' x# D. R7 M1 u% E- R' L/ R RowBox[{6 z- f7 B% Y9 u( a; v7 v
RowBox[{"-", "0.012973`"}], "+", "x4"}], ")"}], "2"], "-",
1 t0 X' p# d6 h+ E5 B! O# g1 y SuperscriptBox[
4 h/ s- P7 J. U/ ^ RowBox[{"(", 0 k P* d2 e O6 \9 P S! @
RowBox[{6 k2 i2 I" p* H/ l
RowBox[{"-", "0.293706`"}], "+", "x5"}], ")"}], "2"], "-",
; O6 C0 ]; f9 o% K8 i% c" Z SuperscriptBox[3 Y! o& p. [" {$ Y0 d
RowBox[{"(", $ z0 \! s$ N! M! k# \6 p* w
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", 5 d! a, \) k( @% J
SuperscriptBox[
1 L/ t/ A- P0 ^% b9 w7 R ]' ], M RowBox[{"(", ! o+ F+ J# O7 v' P0 h$ F
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", 2 K+ C3 Z" Z. d& T0 s, r8 ?
SuperscriptBox[# {7 r8 N* a9 K7 v; G2 h5 q( J) ^
RowBox[{"(", ; z3 m$ f6 c2 t! B4 [3 P' X8 Y5 U
RowBox[{
0 D/ p% @$ V" D( r+ {. B: ? RowBox[{"-", "0.672709`"}], "+", "x8"}], ")"}], "2"], "-",
8 |1 q) W/ E+ B SuperscriptBox[
/ D( _/ B% D* d( q RowBox[{"(",
# x7 q6 q4 A l% H z: x RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], ( a# F. K% ?% m l: ~+ ~
")"}]}]]}], "+", % y+ j/ I- p, d% a
RowBox[{"0.6019775648968265`", " ",
$ a* w. ~$ @4 }$ w* A* A SuperscriptBox["\[ExponentialE]", 1 H. N6 h8 W' H/ l2 q
RowBox[{"3.141592653589793`", " ",
& @/ @3 O$ }6 y% a RowBox[{"(",
, d7 ~( z5 S" Q- c' A/ Y- C! C RowBox[{
" b8 h2 [3 H7 ]: E% l3 P! | RowBox[{"-",
- n: _2 S, J0 N SuperscriptBox[
9 _' G% F* G5 K/ e RowBox[{"(", $ \3 k# x1 T6 |& f7 a7 H, ~1 R
RowBox[{8 k8 J& u+ U% y% U9 h- E' M0 O
RowBox[{"-", "0.391304`"}], "+", "x1"}], ")"}], "2"]}], "-",
# h9 i5 R. W$ |# y# e. p SuperscriptBox[! [# d* W6 _ m/ }# I B( z4 A6 j
RowBox[{"(", 6 s* b8 H) P! ]& S" m
RowBox[{+ j$ t+ ] c) ?/ J0 J7 U
RowBox[{"-", "1.`"}], "+", "x2"}], ")"}], "2"], "-", : ?2 m3 L; M' G4 z2 l' \
SuperscriptBox[) I' _6 J& Q' R [
RowBox[{"(",
' A' D1 B' R1 u" K2 c2 O# } RowBox[{6 K) Z6 V$ h- {2 W5 o6 R7 I
RowBox[{"-", "0.452931`"}], "+", "x3"}], ")"}], "2"], "-",
7 O& U: F' Z; o1 K SuperscriptBox[
p G8 v8 V. c* q% |" q, M/ ^ RowBox[{"(",
* Y* W6 v7 K! b" O$ u7 } RowBox[{6 P$ t6 D- F: S: f; A+ P6 B
RowBox[{"-", "0.150909`"}], "+", "x4"}], ")"}], "2"], "-", Y& I) q! b# `
SuperscriptBox[
# w- h, \4 j( u) ^6 ~ y) E RowBox[{"(", ) n- S- r, X1 L
RowBox[{, L; l; \* ^' {. A
RowBox[{"-", "0.342657`"}], "+", "x5"}], ")"}], "2"], "-", " @" {8 l( V/ B) E
SuperscriptBox[; y" Q: v4 @. R
RowBox[{"(", 4 M- C" \, ?, A1 d' @, ^, O
RowBox[{
. V3 M" w, [5 K, p& C% T! {( ~ RowBox[{"-", "0.370761`"}], "+", "x6"}], ")"}], "2"], "-",
& K1 `1 v* w3 M1 m b2 \" c SuperscriptBox[; j; i x: L: }3 F" H1 R2 F
RowBox[{"(",
2 ~: g# }7 i5 \* a' k RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
/ N1 x# j' M; h7 }) ` SuperscriptBox[ P0 B5 p: w. E: D) S1 ~
RowBox[{"(", ( V% _: H' ?" N# O5 d% H3 y5 z5 Z
RowBox[{
' ]8 W; y: S# w RowBox[{"-", "0.509567`"}], "+", "x8"}], ")"}], "2"], "-", ' i) U, e/ J" e5 _9 l" K
SuperscriptBox[
1 ]4 s1 e/ }& {! x' F1 | RowBox[{"(",
+ M' n7 Y$ ^! u, R6 i RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], ! f! F' l6 c% d4 d
")"}]}]]}], "+",
% t: t( O4 E! P+ L RowBox[{"0.16041393254115022`", " ",
3 T4 ?% r5 p& g4 I SuperscriptBox["\[ExponentialE]", 0 _6 I7 ~; E/ t$ T+ o5 ?- u# g
RowBox[{"3.141592653589793`", " ",
/ J- t) G) M) }9 [" I8 z RowBox[{"(", & w$ i- w2 {) ]! A8 g% I
RowBox[{
, s! _5 |4 P! x2 v! F RowBox[{"-",
/ R9 Q s, K A- Q5 J SuperscriptBox[) f) X4 w' P, z2 V" e3 R8 c- _
RowBox[{"(", ' A5 T3 c" \* n" c A! f: a
RowBox[{
! G8 H6 S* e: C& ?3 }0 k- R RowBox[{"-", "0.608696`"}], "+", "x1"}], ")"}], "2"]}], "-",
8 M2 G2 ?( z( S8 Q SuperscriptBox[
; K4 x* b; ~' L RowBox[{"(", * S% S2 Y! i+ k- y! S+ ?( Q* |
RowBox[{# ?. ?6 s- S6 I
RowBox[{"-", "0.339186`"}], "+", "x2"}], ")"}], "2"], "-",
* @% q8 r b2 }! U# o% { SuperscriptBox[$ M+ B6 ^5 v& c, |' X1 N! U+ n& m
RowBox[{"(", : h2 d$ {) o: q! G3 d, ?6 Q
RowBox[{
" M! U1 C0 G) E. l! a RowBox[{"-", "0.4943`"}], "+", "x3"}], ")"}], "2"], "-", ( b7 \2 }7 o: N4 t+ R+ `
SuperscriptBox[# `4 J W+ j8 y0 l0 L3 S
RowBox[{"(", 8 W, C1 Y: H# T
RowBox[{
: {- L3 |9 f3 A! t4 ^* Z6 H3 o4 W& ~* | RowBox[{"-", "0.099338`"}], "+", "x4"}], ")"}], "2"], "-", / G1 E7 X5 H1 ]
SuperscriptBox[
7 |0 X1 x4 r9 |6 w4 Z RowBox[{"(", 7 V K: q% Q9 Q
RowBox[{0 x% e2 O4 x+ |6 H
RowBox[{"-", "0.321678`"}], "+", "x5"}], ")"}], "2"], "-",
+ \) A, e2 @6 V0 B SuperscriptBox[
# k4 l H6 @' r2 Q RowBox[{"(", 1 |7 i# X. D. \
RowBox[{# ]+ g7 }& @2 |# `) y
RowBox[{"-", "0.375283`"}], "+", "x6"}], ")"}], "2"], "-",
9 Z: K/ Y- d, [: r' A3 e" P! E6 B5 ` SuperscriptBox[) S2 `- f: F) P' u: H; G
RowBox[{"(",
" R" L1 Y8 J9 f- ? RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
. v: f& ^3 F% l* H# N" C' T SuperscriptBox[
9 K: R; h1 o% _9 r7 m: M RowBox[{"(",
3 e+ I6 h/ z( b RowBox[{
5 W& E0 J! E2 }" c9 R5 E# y RowBox[{"-", "0.505539`"}], "+", "x8"}], ")"}], "2"], "-", 1 o6 _ c2 l3 g! R
SuperscriptBox[
1 v/ R5 b# b4 w P RowBox[{"(",
- o8 @9 q1 U5 Q RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
; k2 z" f) `4 O! N5 H6 y6 s9 Y6 E ")"}]}]]}], "+",
# ?' ~6 g/ u7 n7 N6 n9 j+ q RowBox[{"0.48228184971363947`", " ",
6 k4 P4 a& u( q- R( R: O0 A SuperscriptBox["\[ExponentialE]", ( i# W# Y5 K% T% t9 S& a, J
RowBox[{"3.141592653589793`", " ",
( ^! @- E0 q( D/ V, q RowBox[{"(", 3 e# N$ H, Y" a0 |0 D1 f
RowBox[{
, K$ I0 M; l& y4 R( l1 @* C RowBox[{"-",
8 V* ^3 i" n5 z0 n SuperscriptBox[
# J* d; v* J% B7 v4 f RowBox[{"(",
" f `( n% Q! C RowBox[{! K$ d' R4 `$ z6 G1 m
RowBox[{"-", "0.304348`"}], "+", "x1"}], ")"}], "2"]}], "-", ' H; f5 H, H* z: T9 a1 |
SuperscriptBox[. {+ G/ T. @4 W9 G( q
RowBox[{"(", 7 s" t' g7 i$ M* q# S
RowBox[{
9 Y/ {7 S* z/ [4 Q1 m2 o RowBox[{"-", "0.552818`"}], "+", "x2"}], ")"}], "2"], "-",
4 U* E2 p% s8 @* J; l' x- @ SuperscriptBox[1 k+ {, y0 E% g2 P% U
RowBox[{"(", ( C& l& e3 x/ n: o* C
RowBox[{ @4 c2 f6 w& ~2 F
RowBox[{"-", "0.33037`"}], "+", "x3"}], ")"}], "2"], "-",
: B) P; ?: @, A; {% G SuperscriptBox[9 m6 s4 ]+ e6 X: ]- ^2 t
RowBox[{"(",
. L: E! X# M( I/ A: b# d RowBox[{
: }( v0 H# u5 S: `. s RowBox[{"-", "0.025823`"}], "+", "x4"}], ")"}], "2"], "-",
9 n* q1 S, X& U, L: f SuperscriptBox[& g2 A" M$ t1 `' v3 E
RowBox[{"(", / V2 Q* k, n9 T5 O3 I0 w
RowBox[{/ a8 ~3 R* F$ s- C* P" \3 R
RowBox[{"-", "0.538462`"}], "+", "x5"}], ")"}], "2"], "-",
7 T4 q+ R& o0 @, n6 l6 [ SuperscriptBox[1 Z+ ?5 i( F7 E* i/ Q% \
RowBox[{"(", * Z1 G; |8 a$ ^
RowBox[{& Z/ F8 M" H( A4 b
RowBox[{"-", "0.752072`"}], "+", "x6"}], ")"}], "2"], "-", - ]) i* z+ ~8 F9 p- h
SuperscriptBox[8 S1 `' u9 l7 z0 V8 p7 l+ ?
RowBox[{"(", 4 M4 u% s* H& I! f2 Q
RowBox[{5 D' d0 c- R' {. T U
RowBox[{"-", "0.408943`"}], "+", "x7"}], ")"}], "2"], "-", 0 ]+ E& r! z1 P! ^' [7 X+ Q
SuperscriptBox[- x8 L. W0 D/ f9 b/ n
RowBox[{"(", , }4 [ M, k4 M
RowBox[{! k% C" L* N# s" Q' x2 n7 l
RowBox[{"-", "0.504532`"}], "+", "x8"}], ")"}], "2"], "-", $ ~! A6 R5 {7 T% U% ?3 W0 N
SuperscriptBox[9 `4 V8 ~4 X* k7 l S5 R
RowBox[{"(",
4 i- j. h8 [8 u" C. ^4 X/ m RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
& i' h R% E4 d$ ?; F h ")"}]}]]}], "+",
" I7 j& U/ [0 V' ?2 ^/ y; B RowBox[{"0.2954923840077215`", " ", ( z- @# m* [" b
SuperscriptBox["\[ExponentialE]", . l1 V7 [& s2 g& |8 p
RowBox[{"3.141592653589793`", " ",
* E' x F% S: J9 b RowBox[{"(", ! }9 H7 ~- Q2 j! I: C+ K
RowBox[{' [* O3 g" ^% L& T$ m
RowBox[{"-",
+ R& P1 _) V* b0 R+ l" Y SuperscriptBox[
4 o/ H: F: @2 ` RowBox[{"(", N0 F, |+ T3 |( p4 s, W1 I# Y
RowBox[{1 `9 B- z# |5 A3 {# O
RowBox[{"-", "0.413043`"}], "+", "x1"}], ")"}], "2"]}], "-",
# N. D6 r9 a6 `) s+ j* T# }% L* u% B SuperscriptBox[
) o- I0 s5 X% l- _ RowBox[{"(", 3 d) H; d& t4 K
RowBox[{% x4 ]5 J3 m; v, U5 M# Y
RowBox[{"-", "0.551859`"}], "+", "x2"}], ")"}], "2"], "-",
u( H, [# {6 h: O: l. h% E( R SuperscriptBox[ g2 R# \% e9 G0 ]
RowBox[{"(",
1 G6 U. E+ Y0 B! E; `0 e% @ RowBox[{ K. E+ S- k# @6 U) @1 j6 x/ E
RowBox[{"-", "0.544826`"}], "+", "x3"}], ")"}], "2"], "-",
# g" ^2 E4 a, y! ^9 h% [7 P SuperscriptBox[
7 `' j4 Y) a; }0 x& u$ f RowBox[{"(",
% }7 F, ?- }. @. \ RowBox[{. b n4 {7 x1 G$ E. `
RowBox[{"-", "0.230503`"}], "+", "x4"}], ")"}], "2"], "-", , O4 M, z) z& t
SuperscriptBox[, a! t) s) H- S( ^2 h" q) R
RowBox[{"(",
& K0 }4 z1 }* a; x- W# c RowBox[{0 P5 G4 F+ y8 l: D( I) Q [
RowBox[{"-", "0.244755`"}], "+", "x5"}], ")"}], "2"], "-", : X" M8 A8 }1 d( F
SuperscriptBox[
/ j o( o# e- R8 S! B/ Q3 } RowBox[{"(", 7 K5 I" E1 ^2 m! B- t
RowBox[{8 S$ z0 j* o1 u7 k) M, m; m
RowBox[{"-", "0.53052`"}], "+", "x6"}], ")"}], "2"], "-",
- q; F+ r6 Q" K; x8 k8 d1 p# `0 e/ @ SuperscriptBox[' ^% [$ X; ]6 U) Q
RowBox[{"(",
, p8 D5 N8 l0 @. W RowBox[{7 {& R4 ?+ c1 y3 H& D. _
RowBox[{"-", "0.819512`"}], "+", "x7"}], ")"}], "2"], "-",
$ u8 e. g6 P4 D) @ SuperscriptBox[' ^" Y# n, _ O9 Q3 P4 |3 f
RowBox[{"(", $ X/ w8 Z, C7 L
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
/ W: D$ ~" {1 j! @# U SuperscriptBox[
! B, c2 t1 ?, w5 n# V& q( W% I RowBox[{"(", 0 D+ I6 ?: x+ r8 a# Q5 K2 @
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], 6 `4 U/ v" v# k ^) x
")"}]}]]}], "+",
' n: P8 }8 j* U$ _ ~* ?* y RowBox[{"0.3129687276967983`", " ", + U0 Y# J" m# V! h
SuperscriptBox["\[ExponentialE]",
" x8 u9 A/ T! d! g, T RowBox[{"3.141592653589793`", " ", . t6 o) o s* t4 {. D
RowBox[{"(",
) F5 [ S$ H8 I2 I+ \ RowBox[{
7 Z3 D. O2 T. Q6 K. {% m1 h/ I RowBox[{"-",
+ b" A- t8 z+ C+ G SuperscriptBox[) m9 U2 C& y6 [" }6 `
RowBox[{"(",
4 z @ C! U- ?3 E RowBox[{
& e* D9 s# \+ l$ }6 {+ d RowBox[{"-", "0.73913`"}], "+", "x1"}], ")"}], "2"]}], "-",
7 F0 J9 }+ {( W5 S. Y; R SuperscriptBox[
2 e5 I9 |) J! Q8 u RowBox[{"(",
7 @) H+ k* G" `. @ RowBox[{6 J7 M2 A6 ^7 |4 S3 B0 f1 O. t
RowBox[{"-", "0.193199`"}], "+", "x2"}], ")"}], "2"], "-",
% q$ ?. y0 h( u8 _# {% w' ` SuperscriptBox[& l2 N1 K/ m7 V% g+ Z1 F3 v, }
RowBox[{"(",
1 L" [; I# Y9 c# m1 C. M RowBox[{
3 y& w/ z5 {- D7 o3 k+ V0 h RowBox[{"-", "0.160584`"}], "+", "x3"}], ")"}], "2"], "-",
$ M% w, P0 k) ?( h9 _$ W, [' \9 n SuperscriptBox[2 H& g5 F4 A g7 G2 h+ y$ p
RowBox[{"(", . i" \9 Y6 a9 ^" m; e( G, t
RowBox[{
2 ]9 z- K- s- k4 w0 Q T RowBox[{"-", "0.037907`"}], "+", "x4"}], ")"}], "2"], "-",
, P: D+ u) j: X @8 P$ u SuperscriptBox[
0 o5 K9 G4 b! g/ W. M1 f- D1 K RowBox[{"(", , ^% _( O) N/ e6 P8 p
RowBox[{
! Y* @. {" o4 Q/ u RowBox[{"-", "0.461538`"}], "+", "x5"}], ")"}], "2"], "-",
- J) I# k1 N1 N SuperscriptBox[
6 C- V/ l ]$ G3 [" ^) n% O RowBox[{"(", / n+ c; N- G% ^& ?2 V
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
6 Y6 n! H5 @0 b& G& q/ I! z SuperscriptBox[
" ^1 ^" x7 d& R( ^& ^& _' d& U+ Z RowBox[{"(",
6 ~( r3 f5 s5 \; e5 C* ] RowBox[{1 U7 Q, h: h! y/ c0 t+ W
RowBox[{"-", "0.684553`"}], "+", "x7"}], ")"}], "2"], "-", & n1 J: U" v( o1 h1 q9 D$ M
SuperscriptBox[3 T% I4 F$ R( {, i% l
RowBox[{"(", - v8 A6 o% u& z `2 s
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", . V. h7 I: M4 u& W) Y/ j7 v
SuperscriptBox[
# \9 M1 [7 i5 }' u RowBox[{"(", # i% j" b- P7 s9 y) z3 D* W& m
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
& }9 A5 e1 z. S- ` ")"}]}]]}], "-", " @: P6 ~/ N# V3 p' }
RowBox[{"0.4666313851213302`", " ", - { O& u( r& q' [/ |1 d$ s2 p
SuperscriptBox["\[ExponentialE]",
; C5 j3 L& `( @6 e/ A RowBox[{"3.141592653589793`", " ", ' }1 Y' M: j( a: V' q
RowBox[{"(", 3 Q" G/ c6 `9 X9 j4 K' ?+ g
RowBox[{
9 | B1 |1 _* V) o RowBox[{"-", 3 U" o2 b$ `( Q4 [& x
SuperscriptBox[9 z" ~( M" S h# f$ g5 x/ E2 ?
RowBox[{"(", $ g5 G' J' ~, Y/ {
RowBox[{
T0 ^! Y. ]- E9 u9 q RowBox[{"-", "0.652174`"}], "+", "x1"}], ")"}], "2"]}], "-", $ \& K# y B/ @$ a( i
SuperscriptBox[
8 \) G, m5 J& f! m- z, B/ e RowBox[{"(",
% M1 R# |+ K9 ^! s! {5 v RowBox[{
6 f# M, }5 @& @0 m7 l RowBox[{"-", "0.569711`"}], "+", "x2"}], ")"}], "2"], "-", . @/ q! K/ k! B4 S
SuperscriptBox[, h- n0 a/ _0 p1 Q/ @
RowBox[{"(",
! ~+ V& _6 ^! Y8 R/ I& L RowBox[{4 s: h. v1 @2 u; g
RowBox[{"-", "0.414297`"}], "+", "x3"}], ")"}], "2"], "-",
; i5 J9 V% r- H: H" L7 q- Q SuperscriptBox[+ Z, Y$ z4 H. M% G+ x: G
RowBox[{"(", - o& n! }' o' T8 m+ O
RowBox[{* Y# E4 Y# @) w( S9 M" G) e& d* x
RowBox[{"-", "0.175398`"}], "+", "x4"}], ")"}], "2"], "-",
# r8 M$ N9 p q1 A6 M; w7 _0 e SuperscriptBox[! w1 f& G: o" j" W
RowBox[{"(", 0 I# [8 U5 b' y! G1 j! p
RowBox[{$ z5 w/ ? `3 l% A4 r
RowBox[{"-", "0.167832`"}], "+", "x5"}], ")"}], "2"], "-",
# h5 W2 }9 p1 l3 ]4 b8 y5 f! b3 w SuperscriptBox[4 U/ {/ Q Y, u3 l& m0 h
RowBox[{"(", & J1 B2 T. _! y& j2 z {
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", $ u: k$ L. L' X+ i U2 r2 \# ~3 d
SuperscriptBox[
2 p0 {1 k; {8 m g* Z RowBox[{"(",
9 N, t3 M4 r# l+ A, I RowBox[{
# t0 y0 j- ^5 [8 D+ g" B2 o RowBox[{"-", "0.544715`"}], "+", "x7"}], ")"}], "2"], "-",
, @& M0 L; X/ q t: N2 P; X SuperscriptBox[ y. M J4 i8 \ d, C* L9 G: S
RowBox[{"(", - H+ L; T+ t8 n8 p T
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
+ M1 v2 n8 X$ p, C+ G# F SuperscriptBox[
. E" R/ @' R7 m5 M RowBox[{"(", . S+ p4 }0 [& }
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
2 e% x% C; R. r0 ^- o4 h1 F: r ")"}]}]]}], "+", / G" s' s, h- \) P
RowBox[{"0.3741982811661129`", " ", $ C! [# `# m3 E9 a7 f" g
SuperscriptBox["\[ExponentialE]", ! G$ [( B! X' f( E$ r
RowBox[{"3.141592653589793`", " ",
3 a. s; N4 ~2 B8 L% I4 M. c RowBox[{"(",
# v; _! k+ @7 b$ Y8 X; ` RowBox[{
8 c9 {0 i) E7 L% L! L8 Z# a3 E2 ~ RowBox[{"-",
0 D8 q/ |+ r! c' n* x- d+ P SuperscriptBox[: B! ~% f8 x% y
RowBox[{"(",
4 b: h0 x$ c5 c, w RowBox[{3 {9 z6 d( f7 L" z- K+ k
RowBox[{"-", "0.521739`"}], "+", "x1"}], ")"}], "2"]}], "-",
^0 N* h4 i r5 J+ U7 C9 k* ` SuperscriptBox[6 B/ l6 ^' U1 P5 d0 l! a
RowBox[{"(", ! N0 s5 U$ c7 C! F
RowBox[{( w( H! ` `$ s7 r d% E
RowBox[{"-", "0.334022`"}], "+", "x2"}], ")"}], "2"], "-", % h% q+ W H+ s$ _
SuperscriptBox[, C1 O# x$ U8 N3 z- u `* m* Z3 n+ O
RowBox[{"(", & b+ W% {8 K5 s4 _, B @* I
RowBox[{
6 n3 p$ V& ?# q( [; |8 O0 w RowBox[{"-", "0.3555`"}], "+", "x3"}], ")"}], "2"], "-",
. G1 u) n7 z& F& c1 X( ]% j3 G6 y SuperscriptBox[
2 h7 `1 a8 q) C2 z* [0 K RowBox[{"(",
8 t+ }6 ^3 a4 N; B RowBox[{
/ T5 T" d. W( h- [1 c RowBox[{"-", "0.025156`"}], "+", "x4"}], ")"}], "2"], "-",
' y0 L8 F: j* w4 W9 P SuperscriptBox[: U. ~! h# K3 U: c6 e2 U3 f
RowBox[{"(",
1 c: z. _6 T Z- G5 M9 d: j RowBox[{4 d2 E- n- p' ?- {
RowBox[{"-", "0.48951`"}], "+", "x5"}], ")"}], "2"], "-", 8 Z0 }' k7 F$ u/ X. r' e8 M( {, f
SuperscriptBox[
- F+ Z% V4 E6 S" }% L# p RowBox[{"(",
% S# k, w+ Y3 C( Q8 V% Q' [ RowBox[{
- k4 l( E& a3 E6 V: | RowBox[{"-", "0.37679`"}], "+", "x6"}], ")"}], "2"], "-",
, y" X' {7 i& D- T: h SuperscriptBox[
% ]0 M* E: i2 c- T3 H RowBox[{"(",
* c: q7 |( n# B( r1 _4 h' y' z RowBox[{' ^/ Z$ A4 m X9 ?
RowBox[{"-", "0.411382`"}], "+", "x7"}], ")"}], "2"], "-", . ], S. j% _4 w8 `$ k
SuperscriptBox[
i7 w; j( _4 [, e4 Z RowBox[{"(", 3 U# S6 _4 J: N7 y. Z7 w9 F* `
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
2 Y8 _" G& E0 K+ [- o. u SuperscriptBox[
8 j: S$ u/ W$ h' ?2 O: _ RowBox[{"(",
' k" L9 m+ _3 L7 b2 V! _) q RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], " Q/ r; K2 Y# `2 Y! \
")"}]}]]}], "+", / X. }2 I" ]& r" {, _0 v6 i# R2 E
RowBox[{"0.5575503376854456`", " ",
. l8 ?6 R/ ~1 M* F. O' Z SuperscriptBox["\[ExponentialE]", 0 z2 e( [8 \# e9 Z
RowBox[{"3.141592653589793`", " ", 7 u" X9 C+ {) t. Y b. ~6 j; A
RowBox[{"(",
0 _$ n1 W1 r# t; V RowBox[{* m; c% W9 n/ |: R7 d
RowBox[{"-", + d0 K% W) ^+ X N9 N, B( _) W9 R
SuperscriptBox[. m/ U* F. m# T8 a g) b; z+ A
RowBox[{"(", & F& P8 g5 j& F2 l! d) E# J* O
RowBox[{
9 b& `0 b4 S* {5 p. u. \ RowBox[{"-", "0.173913`"}], "+", "x1"}], ")"}], "2"]}], "-", : |: o+ b' o# n$ Z) r! h9 f' K
SuperscriptBox[1 J0 o$ Z3 q2 p
RowBox[{"(",
% ^8 `1 D; m+ I7 b0 Q1 `( S RowBox[{
$ W' s; o& e& y+ ] j+ q8 k RowBox[{"-", "0.984656`"}], "+", "x2"}], ")"}], "2"], "-",
) H9 S, L0 r# u# K SuperscriptBox[
# v% v: a ^ H RowBox[{"(", 0 m, H* G4 v; C: X: l$ o" E
RowBox[{; S# |& n l" }+ f, m
RowBox[{"-", "0.420753`"}], "+", "x3"}], ")"}], "2"], "-",
! R7 z- F( A3 [. r+ m. ~ SuperscriptBox[
5 s! M/ l* T4 _9 C/ e/ m RowBox[{"(",
( R1 N7 Y' T7 ]4 j+ k% A RowBox[{
* C5 x& v8 T$ k3 m4 l1 \ RowBox[{"-", "0.137022`"}], "+", "x4"}], ")"}], "2"], "-",
2 Q9 t# W9 t& f+ c0 m" Z( ` SuperscriptBox[& s3 A) E4 S8 _8 ^
RowBox[{"(",
^% X: @, Y& a RowBox[{7 s! A3 w0 R# O/ [% a; O! N% n
RowBox[{"-", "0.321678`"}], "+", "x5"}], ")"}], "2"], "-", 8 Q3 f M! i* l/ w2 ?' o
SuperscriptBox[
6 m* C9 x D( R& T4 W. q3 f H RowBox[{"(",
; A& a! h N. y& {2 V/ g! d RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", + y/ J$ M4 j) _- k, l8 _ P
SuperscriptBox[4 e. q- t8 e' y; C* `$ v, h9 B
RowBox[{"(", 3 w' V: v. s1 ?4 C% y& \
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", 7 s% |- U2 G3 F% X
SuperscriptBox[
0 M, z, L3 A9 ~% @6 W1 T RowBox[{"(",
6 U( W5 }. M; a5 l RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
1 R$ a& N+ q1 V R9 Y SuperscriptBox[' f- o0 V! H) }9 n s* ]" s6 `
RowBox[{"(",
) P& ~# _1 f6 ?9 P+ g* ?& S RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
3 w8 m% H. p, R/ U4 }; P ")"}]}]]}], "-",
) ^2 B6 b" Q) |9 h& ] RowBox[{"0.1339854044819916`", " ",
! V5 m% k& a% e4 n8 [ SuperscriptBox["\[ExponentialE]", 6 Y6 \ F* a1 o
RowBox[{"3.141592653589793`", " ", - q$ l" } C4 f
RowBox[{"(", . ~% t; c# W) X2 b5 ^
RowBox[{& M% r* d/ m0 j' l/ t
RowBox[{"-",
9 s" y) b, w0 l3 I; Q5 _2 i SuperscriptBox[
! N1 ? R1 x7 Z- n- l( B RowBox[{"(", : @7 l& z. T) y, e% E: U( g E( J
RowBox[{1 w1 s' C. ?! }6 u# V# m
RowBox[{"-", "0.717391`"}], "+", "x1"}], ")"}], "2"]}], "-", $ O' z9 i1 n. O: U$ i6 k# M
SuperscriptBox[
& L0 L& x% Z5 N RowBox[{"(",
) V! R2 `& n8 K RowBox[{% e) R6 {+ e, P1 x1 R% ?4 U7 u) M
RowBox[{"-", "0.736205`"}], "+", "x2"}], ")"}], "2"], "-",
% D6 T, W' s2 ? ?" Y, W SuperscriptBox[0 W, N! q0 A3 P. ?
RowBox[{"(", 6 J' u f. |) \
RowBox[{, O' z; {5 O$ [4 ^4 L
RowBox[{"-", "0.267704`"}], "+", "x3"}], ")"}], "2"], "-",
Z% Z6 q/ f A' i1 A4 ]9 o SuperscriptBox[' h6 e4 h5 I9 w! }0 {0 N# `% d
RowBox[{"(",
' h6 |8 V: x, H! U4 ] RowBox[{
0 _4 o) e8 ?3 S( B RowBox[{"-", "0.036152`"}], "+", "x4"}], ")"}], "2"], "-", 5 h. g% ]6 A8 I C' j# s3 x
SuperscriptBox[+ w- J; C) @: C* o
RowBox[{"(", 5 r/ u, f5 ?; c. b
RowBox[{
5 @8 q1 k& ^. H RowBox[{"-", "0.307692`"}], "+", "x5"}], ")"}], "2"], "-", ) f: G8 v3 H( j5 i- z6 D
SuperscriptBox[
$ }; g7 j. I8 J. ?* Y RowBox[{"(",
0 V" K% Z4 `/ }5 O RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", % C7 e5 g: ~" H
SuperscriptBox[1 V4 [& p' e, K/ K, R, u
RowBox[{"(",
2 d/ C! n& F- p RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
9 V* E6 q1 C/ {+ @& Z7 R! T SuperscriptBox[) _5 _7 `' x' y8 s/ I
RowBox[{"(", 9 h: h3 ~, p$ m9 g
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
( o& D* O' C% ^8 k; g& {2 x! a- u; y* | SuperscriptBox[
; Z0 T) ^! r7 F. ~% T RowBox[{"(", & `! Q- x( k) `; y" Q
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
+ W$ \/ o; G6 o: X3 g ")"}]}]]}], "+",
' v/ o% d" a# S2 v) o RowBox[{"0.45723850991134063`", " ", ! D3 K+ P" q" Q) v
SuperscriptBox["\[ExponentialE]",
4 I% f) D# o, B3 i& t RowBox[{"3.141592653589793`", " ", 1 H+ P: Q$ W) o* J/ u4 @
RowBox[{"(", ! `# k7 B0 H! Z- j5 ]* A
RowBox[{- i9 T* i+ S# _' D& `
RowBox[{"-", ( B( e3 E/ u( q; p( J: n
SuperscriptBox[! O- L& E" [. L$ @4 E
RowBox[{"(", + O( `& _, T% g: @
RowBox[{* t* Z) o E2 z# c9 }. b" n
RowBox[{"-", "0.826087`"}], "+", "x1"}], ")"}], "2"]}], "-", 2 W' u3 ~( k6 f0 x# [# C
SuperscriptBox[9 T; t- X) @, d& I$ W5 E, u
RowBox[{"(", 3 [2 C! I; J% J, H; N* S
RowBox[{
1 P) p/ D x! X0 ?, b RowBox[{"-", "0.203969`"}], "+", "x2"}], ")"}], "2"], "-",
* A7 V8 J4 Y5 A& {6 G( a SuperscriptBox[
& t+ Y3 I1 b3 v, Y RowBox[{"(", ; ?% |& [ C" Q4 e+ H7 t; u
RowBox[{
* I" A9 w+ m: s5 h RowBox[{"-", "0.234619`"}], "+", "x3"}], ")"}], "2"], "-",
; v' d; i. k+ v# \7 U _ SuperscriptBox[) O7 g; \- Y" K4 M9 @* Z
RowBox[{"(",
+ ^ y2 P, z( ?$ H* Y( Z: @8 P RowBox[{
. W- o! X# b$ T: s& y7 L3 X RowBox[{"-", "0.27224`"}], "+", "x4"}], ")"}], "2"], "-", $ M4 u$ A7 r$ _' c2 B
SuperscriptBox[$ G: k1 n* _8 x' W5 }- b, R
RowBox[{"(",
* O7 |6 l' I' l }! p RowBox[{, Z& t6 i: k- d) r1 T+ o
RowBox[{"-", "0.265734`"}], "+", "x5"}], ")"}], "2"], "-", ' i, \( B8 I4 _. ?6 Y- {
SuperscriptBox[+ Z/ U" T8 S% O% |2 T5 ]& n2 s3 Y
RowBox[{"(",
" S! n ^- C- [4 m RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
z; {' R" I& P SuperscriptBox[& R; `% i4 U5 m$ F( J" ]/ V* P; d6 @" i
RowBox[{"(", 6 D8 K7 |! t, {! L2 N
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
# r9 ~. U) r; r# N O# K- I SuperscriptBox[7 x! I( S0 X9 s5 `1 o% f% v' N
RowBox[{"(", 4 a" Q$ U, L/ k) j# Z8 S6 N, q% {
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", . b" D9 V3 @) f; }/ A) e/ D% f
SuperscriptBox[
) @9 Z+ ~, E& _; y6 k RowBox[{"(", 9 m& l( t0 j9 L6 t: d9 ]+ Q
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
( ^. s8 i- @1 ^6 j ")"}]}]]}], "-",
0 @# x$ N$ C f5 L0 ] RowBox[{"0.025873988843993667`", " ",
4 J; [1 U$ e7 W SuperscriptBox["\[ExponentialE]",
7 w/ _5 ]8 D( a( K8 D RowBox[{"3.141592653589793`", " ",
" Z. }, v8 B" ]! C2 T" D! r# { RowBox[{"(", # {* L! M2 M m8 O' A2 N$ _
RowBox[{
! m5 }5 A0 C& R2 P, D RowBox[{"-", $ F! P% D( m5 p/ X, U
SuperscriptBox[ z6 l7 i; W1 x6 M/ W1 N
RowBox[{"(", ( @6 D3 m5 n/ j- c
RowBox[{; N- @+ o9 |" [& f3 _
RowBox[{"-", "0.565217`"}], "+", "x1"}], ")"}], "2"]}], "-",
& F* J; K3 h( Z& P/ T% N% L$ | SuperscriptBox[) f2 j) N% w. |1 k% g
RowBox[{"(", 0 ?7 x* j* m3 k
RowBox[{
/ v7 H0 Q9 p H+ Z RowBox[{"-", "0.572293`"}], "+", "x2"}], ")"}], "2"], "-",
1 C, M7 F6 z, {2 [1 p SuperscriptBox[& r& v3 y- ]. j N/ `
RowBox[{"(",
, n% W9 h% y3 f/ I RowBox[{
5 ~9 T+ u1 q9 O& ` RowBox[{"-", "0.655012`"}], "+", "x3"}], ")"}], "2"], "-",
4 o* Q2 |* n8 Z' d R$ j SuperscriptBox[, _/ M9 A4 W9 q. k! d) D4 R
RowBox[{"(", % E1 F8 O0 R5 y
RowBox[{
+ \+ A# W5 b2 y- l/ D7 |% U+ v RowBox[{"-", "0.281852`"}], "+", "x4"}], ")"}], "2"], "-",
, {, S; \8 n9 J. C5 T4 l- R SuperscriptBox[* A) V* V( `# z) t* I. D1 o+ i
RowBox[{"(", + L% M2 X5 B5 e/ |
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x5"}], ")"}], "2"], "-",
) v" g# f% n3 C% ^% ]; E4 \ SuperscriptBox[: Z% g; R& {3 b; B$ P
RowBox[{"(", ; a6 z# R1 V6 L" b! V' L
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
& H. `+ T V# O2 x SuperscriptBox[+ o) k$ B* K0 \
RowBox[{"(",
9 {% D% O( c5 e! O8 ]6 Q RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", 9 Y/ S1 F3 V, n: w, b
SuperscriptBox[
( K% G& d# e; B" z L! U RowBox[{"(", + I. D' \ O9 ]6 l4 a2 H
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", / R, s+ v* c% c( b2 g' D
SuperscriptBox[2 n) B# d9 H# {* b, d
RowBox[{"(", , D$ w! l6 y& g# \- V
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], 5 v; O( e3 C7 S _: Q5 w
")"}]}]]}]}]], "Output",
$ g5 y7 ~" j- |, Q/ m6 [0 E6 T CellChangeTimes->{3.577924759875*^9, 3.577924921203125*^9, ) a, C6 D6 h( M2 P7 R9 p, D
3.5779583210432997`*^9, 3.5779585060284224`*^9, 3.577959043308958*^9, / k# b3 G3 y5 C' m9 a+ u' s; U- K
3.577962317973732*^9, 3.578012448875*^9}]
, U4 z: w1 A4 q9 z9 R x}, Open ]],
% t) o, |$ I) \% e, \) j2 a
" h6 D( Q$ o6 CCell[CellGroupData[{
6 ]) f! L0 [* y1 j5 |
z1 }' q; [* S* P2 m4 ?7 [' |4 rCell[BoxData[8 ]2 V+ p V& H# o1 @
RowBox[{"y2fit", "=",
, S; O* g0 j/ m RowBox[{"Table", "[", * S/ Z+ `+ o* e& M! e
RowBox[{"x", ",",
* C+ ?# ^! e5 g/ X3 c- R8 } RowBox[{"{", , R# g1 b# P# o( F& v* A
RowBox[{"x", ",", "1", ",", "29"}], "}"}]}], "]"}]}]], "Input",
" { D0 ]% k0 r; b2 n u* z CellChangeTimes->{{3.577924969375*^9, 3.577924979515625*^9}, {
1 b5 o. P3 V9 R 3.5779252768125*^9, 3.577925277484375*^9}, 3.5779583246625056`*^9}],% N) o) ]" _) q- D2 w
7 @+ @7 K& Q! `" `3 _ ~+ i
Cell[BoxData[
[' E5 B7 U. S2 o7 |# d RowBox[{"{", 3 g7 S9 v. G6 z3 }
RowBox[{
- g. n7 Z j! ?7 U- Z( b "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", 9 K9 k( T* T7 p3 v. p) [7 Z
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15",
0 U7 y4 N1 i3 @* `* D, X* | ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",",
" i/ ]+ |, _$ w "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", "28", 9 S R1 p) o% V6 p3 p- W- ~
",", "29"}], "}"}]], "Output",; U9 h, t2 Z3 [% {, ^' L
CellChangeTimes->{3.57792498240625*^9, 3.5779252798125*^9,
* k/ ^' M$ |: {! Z- d 3.5779583268153095`*^9, 3.577958508118826*^9, 3.5779590470685654`*^9,
) j0 r' B' Y. k7 S, n' a2 M( { 3.577962320173336*^9, 3.57801245028125*^9}]
7 n* }! u% m% b}, Open ]],
' d" p$ T& k& V# ^0 m$ B/ g ? u2 k+ z6 n, y- N
Cell[BoxData[) P" @% D4 c# i
RowBox[{"For", "[",
+ b" |# r0 |. `1 y: g/ N( ?) Z- h2 ? RowBox[{
$ p# F1 V" A/ k6 O) b7 {9 H RowBox[{"i", "=", "61"}], ",", ' B, Z& R* S" ?9 m7 H
RowBox[{"i", "\[LessEqual]", "89"}], ",",
+ Z/ j6 Y0 o9 f' u" s( W5 N& s: O RowBox[{"i", "++"}], ",", "\[IndentingNewLine]",
) O" D3 F" n; @1 _4 B7 y RowBox[{
8 M% F, ]: l" C6 w2 x+ Z RowBox[{
, ]1 I! \1 |+ h RowBox[{"y2fit", "[", ( M; m, u# P8 {
RowBox[{"[", / ^: P8 K3 w# y" Z# f6 W( B5 W- L
RowBox[{"i", "-", "60"}], "]"}], "]"}], "=",
' i' `- V9 E$ p9 c. y' g& Y RowBox[{"y2", "/.",
: i6 }; n! G% _6 W: O1 x0 v# n RowBox[{"{",
% X% w( w$ H( b( ]8 S RowBox[{
: _* C0 b. U) C% `3 [" z; s1 L RowBox[{"x1", "->", 2 h7 z/ M1 c' S* q: ]
RowBox[{"Data", "[", ' P- T7 m( S2 Y9 z
RowBox[{"[", 8 F3 b' U. v/ m4 A6 v% D
RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",",
1 I- S' T9 i7 X1 R& h$ l- o RowBox[{"x2", "->",
, I; N2 V- a3 C) c4 n8 C RowBox[{"Data", "[", # u) R5 X1 `' N5 ^1 Y* B+ f
RowBox[{"[", 7 X. @" y' S$ n9 U5 Y x
RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",",
1 C2 I* w+ r9 h2 t+ r RowBox[{"x3", "->", # X6 v% {5 b* L3 c" z+ _% }) a+ R
RowBox[{"Data", "[", ' X6 P) D4 Y/ ]5 j; i) [
RowBox[{"[",
: a3 G6 r6 N: u- d O RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",",
. {1 R" Z4 s$ y C( g ?6 n4 F RowBox[{"x4", "->", $ n0 K U7 S, ~9 I0 c$ g* s1 k
RowBox[{"Data", "[",
$ @- |) ?+ E. ]2 I RowBox[{"[", 6 G- F' z1 [' s. V; T
RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",",
% \/ e/ n @, L2 k8 n& F4 r; i RowBox[{"x5", "->", ! {: P9 O* t' {/ D: C8 m/ l! x* U; U
RowBox[{"Data", "[",
/ c# I+ y8 A& h* ~" `. P9 h RowBox[{"[", ; o8 ^; v* m. _7 g# |
RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",", 1 u& U+ L9 h( x! ~
RowBox[{"x6", "->", ' N: v+ X1 I8 E+ s4 n
RowBox[{"Data", "[",
9 p. v# M" e8 O3 M RowBox[{"[", , ]7 z7 z/ O& t$ j
RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",", : \" L. o* B b# N
RowBox[{"x7", "->",
4 v: D* U. o" F8 ]* U9 P! @6 p8 Y7 a RowBox[{"Data", "[", $ b p+ o. b& M" J Q* H5 t
RowBox[{"[",
& j( f1 r1 T, d. Z. s RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",", 0 Y. C2 u! L$ H& C5 }4 u# C9 ~% o
RowBox[{"x8", "->",
2 g1 A6 I& O2 R$ \1 w RowBox[{"Data", "[",
- V: M: Q* u5 Y8 B9 ]' j) r RowBox[{"[", 9 N, h1 E" X2 L0 f$ S P
RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",", " s% V# t8 p) w0 ^. c
RowBox[{"x9", "->", - g- h K O8 x" x( ~
RowBox[{"Data", "[", ) \' x+ {* b/ g# L# v' H# u
RowBox[{"[", ) g4 g8 H( ]+ t
RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";"}]}], 4 J$ {3 Q$ L* N. i2 U( D( |5 \. V
"\[IndentingNewLine]", "]"}]], "Input",
/ ?$ L4 _2 |8 r6 b" p$ q$ d4 ^ CellChangeTimes->{{3.577925003234375*^9, 3.577925028578125*^9}, {' |8 r0 ]8 {3 M9 K
3.577925286140625*^9, 3.577925306765625*^9}, {3.577958329919715*^9,
9 N6 k& w( U0 N# J2 _1 k3 J 3.5779583326341195`*^9}, {3.57795892351635*^9, 3.57795892354755*^9}}],
! B* N) l- F. J& l, n* P5 {3 t+ `5 w" |1 K" x" H0 W2 c* G
Cell[CellGroupData[{
3 b, b9 m) E1 A) n1 S: \5 S" J/ P- I, y$ H" i6 V% q. }
Cell[BoxData["y2fit"], "Input",
* E0 D4 H# g% D8 _( | CellChangeTimes->{{3.57783581246875*^9, 3.5778358135*^9}, {
- F7 m/ F+ U3 ^7 P# B- H- w& m7 q 3.577925040484375*^9, 3.5779250440625*^9}, 3.5779583419785357`*^9}],
! |1 C) W0 i, f/ q$ f0 o* U: B" S, O' P7 q) i
Cell[BoxData[
4 n P% X! W [2 ^ RowBox[{"{", . h6 e: O; p/ Y$ D2 X
RowBox[{
/ Y# e* \; j* a- f. y3 [ "0.4853171132859182`", ",", "0.4508635216665074`", ",",
1 A# e2 ^+ s2 K9 j "0.3642119241752518`", ",", "0.42852077425595436`", ",",
8 Q" F! y1 t! ^4 B& \- K: S "0.4712694272667798`", ",", "0.5257533056184774`", ",",
1 w, g$ y5 h' j& _0 _- z "0.48620658140716133`", ",", "0.41106838915591876`", ",",
. [6 `8 e) J p+ n: w( V "0.5486894206610674`", ",", "0.007731168540073459`", ",", X7 Q7 D; b* B" b+ `7 r
"0.013872406140339109`", ",", "0.3956995051659558`", ",",
/ w9 h& e" z( g/ a1 r "0.3663118256142708`", ",", "0.29094217358055163`", ",",
* @: Z3 v0 j, z "0.5453093690736555`", ",", "0.44138898880777927`", ",", / t0 ~1 v- \- C& C/ y0 a' U( V1 p
"0.42944922031163496`", ",", "0.43092890556748836`", ",",
% z) Q4 X: O0 N+ d0 `) Q "0.5942402821739969`", ",", "0.330046090785457`", ",", ; ]& f* |0 l/ w$ t; V" N
"0.18938658036630585`", ",", "0.4263720292858679`", ",", 8 s- K. `. X5 K
"0.23377136184738775`", ",", "0.02232858193309988`", ",", ) |5 J a' G7 Q9 j' A2 z4 E6 Y
"0.244364200084268`", ",", "0.5562383565309971`", ",",
: d% u8 I) U' Y$ C* d7 t "0.13114103402954333`", ",", "0.5815052048989465`", ",", ; Y" r/ A2 S$ G8 q6 N |! A9 B: K
"0.4253455966293501`"}], "}"}]], "Output",
7 \$ L H$ @5 q1 g) q- ~ CellChangeTimes->{3.577835814609375*^9, 3.57792504521875*^9,
/ Q2 ] e2 ^% b/ X P+ S P, L" j 3.577925312375*^9, 3.577958343257738*^9, 3.577958511784832*^9,
! v# v6 V g; f- N 3.5779590518421736`*^9, 3.5779623249157443`*^9, 3.578012452421875*^9}]$ Q2 E; z* y- B1 |8 p# |
}, Open ]],
& g$ e3 K: [3 ?; W
2 q! ^4 [3 s; J4 tCell[CellGroupData[{8 g% T! T- D+ @! P' j$ R4 |9 I% F
8 ?1 y, u4 a6 t- e
Cell[BoxData[
) r, K" I, a% i4 a& n3 X, I RowBox[{"y2fit", "=", 5 u0 u: {" v# e# B3 l4 [* f
RowBox[{"{", 7 G |* M2 _% _: B) i) Y
RowBox[{
+ f, T5 t4 M" K3 b' G- q' c "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
7 W$ b6 H4 p: I ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
4 v' D8 Y9 O% ?. p' S2 |$ ~# l "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", + M- R' K& V" Z. z: z: O! n7 K
",", "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", / D, V- p6 n/ P) F8 P7 J+ w- R
"28", ",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34",
0 Z; c, M' c0 I& C ",", "35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",",
) p. j# ~4 s: k* C/ _" v: O "41", ",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47",
: V }: ^2 J- i$ { ",", "48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",", - I( P; F; W7 M4 b/ h' d1 a
"54", ",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",",
) F1 c, h( p5 \/ {2 v' A7 ?7 I' O, E "0.48531711328591953", ",", "0.48531711328591953`", ",",
- p& L9 x5 S, O6 V) O8 N& S "0.45086352166650845`", ",", "0.36421192417525217`", ",", ) Z( h/ G1 e$ d6 C* N* {, L
"0.4285207742559556`", ",", "0.4712694272667811`", ",", ' b" N# N3 w$ ~) \" y
"0.5257533056184786`", ",", "0.4862065814071623`", ",", . z Z. p6 T$ u6 h& Y6 L
"0.41106838915592014`", ",", "0.5486894206610683`", ",",
$ k# B9 B9 ? w& L5 B$ Q3 _" ? "0.007731168540073532`", ",", "0.013872406140339166`", ",",
% Q4 ^% ^, J! h1 `/ }, n "0.3956995051659565`", ",", "0.3663118256142717`", ",", : p2 G/ ^' s. I# I) y
"0.29094217358055185`", ",", "0.5453093690736568`", ",", " B' U; D' J) w$ |7 `/ J
"0.4413889888077799`", ",", "0.42944922031163585`", ",", " W) P x; w1 I* K4 w7 q1 h/ ]
"0.4309289055674891`", ",", "0.5942402821739983`", ",", , t6 R4 {- i4 N5 ^! k- U
"0.33004609078545805`", ",", "0.18938658036630632`", ",",
5 I2 Q! ^) @; Y5 } "0.4263720292858688`", ",", "0.23377136184738778`", ",",
4 L+ j2 z( R% V/ g }) F+ A "0.022328581933099827`", ",", "0.24436420008426807`", ",",
2 |& f3 h) q: g& x- D "0.5562383565309981`", ",", "0.13114103402954314`", ",", ; G# T2 {/ S1 `& P) Y- l' ]
"0.5815052048989473`", ",", "0.42534559662935123`"}], "}"}]}]], "Input",
% z4 M8 X, ?& f2 J& Q8 p1 [7 {8 F CellChangeTimes->{{3.577959355746303*^9, 3.5779593854019547`*^9}, {
! ?7 D' R8 N- J d% w( ? 3.5779594223272195`*^9, 3.577959425104024*^9}, {3.57796233399496*^9,
4 Q5 ~0 Y( w& L+ e: L3 d( \, c 3.57796233957977*^9}}],
( }# P$ P! N5 ~1 v* ]5 _
3 t/ F- E8 p' f! I% K* z/ x/ `$ TCell[BoxData[
& s: p8 p3 C' i5 p" [6 y9 W0 e RowBox[{"{", % \5 S0 t% f4 g* D# q
RowBox[{4 J+ U" h: Z$ Q( H" C5 Q4 L
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", & V& X, f) R% U+ J9 [
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15",
1 i% u7 [* e" B7 j( @4 h- v; y5 ]# @ ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",", % [) o4 m, _8 A3 q
"22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", "28",
" x" K4 S: Y1 p8 e4 B ",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34", ",",
% o, ?8 m% a2 C' w! ]5 } "35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",", "41",
% y! f% L# k6 e# j- ?; n ",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47", ",",
6 i6 p F7 i% d- D, D! |/ x, n: R) I "48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",", "54", t' A | o4 d7 \& j: Z+ ~
",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",", 2 E2 `8 T6 B* N1 N y R
"0.48531711328591953`", ",", "0.48531711328591953`", ",", # |. Y/ c& E0 h O4 U) k% e
"0.45086352166650845`", ",", "0.36421192417525217`", ",", & c8 R: O) Q4 a+ J2 D
"0.4285207742559556`", ",", "0.4712694272667811`", ",",
. x1 ~* @* f6 O6 T" d4 H! t! t "0.5257533056184786`", ",", "0.4862065814071623`", ",",
' K- c' O) R0 q$ y" k" P) L "0.41106838915592014`", ",", "0.5486894206610683`", ",", 7 z, o0 Z# x4 E6 Y3 Z, J
"0.007731168540073532`", ",", "0.013872406140339166`", ",",
4 k" v2 h1 A" O9 q "0.3956995051659565`", ",", "0.3663118256142717`", ",",
5 t3 `! [0 h, A' B2 V2 N# D0 C "0.29094217358055185`", ",", "0.5453093690736568`", ",", $ Q# q- B6 y6 ~9 A: A b$ \0 b
"0.4413889888077799`", ",", "0.42944922031163585`", ",",
2 N* l* p G. Y, W, i4 ] "0.4309289055674891`", ",", "0.5942402821739983`", ",",
4 E6 Q$ U2 A0 C4 l& ]' m+ V& t "0.33004609078545805`", ",", "0.18938658036630632`", ",",
/ E' ^3 A6 {: e6 @: J1 L "0.4263720292858688`", ",", "0.23377136184738778`", ",", 7 H7 x+ D8 n, r9 V
"0.022328581933099827`", ",", "0.24436420008426807`", ",",
( I1 ?: Q: S% U4 Y0 f "0.5562383565309981`", ",", "0.13114103402954314`", ",",
/ P1 n2 _, Y2 d6 U6 l4 q* [ "0.5815052048989473`", ",", "0.42534559662935123`"}], "}"}]], "Output",: d" ~& ~: E7 H9 [4 ^& |; |8 J9 }
CellChangeTimes->{3.5779593961191735`*^9, 3.5779594268512273`*^9, % g( a5 L3 s( r
3.577962342060174*^9, 3.57801245340625*^9}]2 n# Y6 @& `/ Z' s4 I
}, Open ]],* I y' ^; ^2 R! W
6 h, `) r0 e$ F! |
Cell[CellGroupData[{: g" a4 z5 u' d8 V: j, i2 O
: B, C" J, E% O1 g+ y) m4 B4 n/ I
Cell[BoxData[
$ u2 t! H( g0 d, X RowBox[{"y20", "=",
( l% L$ I' A( F0 A6 \0 P4 M RowBox[{"Table", "[", 8 {* `2 I# o+ R" u, Q
RowBox[{"x", ",", ) P: c) ~" j: j4 c" Z3 b
RowBox[{"{",
6 v% P) \1 C2 | RowBox[{"x", ",", "1", ",", "29"}], "}"}]}], "]"}]}]], "Input",
5 v; f$ @& n6 w) B CellChangeTimes->{3.5779253628125*^9, 3.577958351198152*^9}],
$ T' U6 Z$ J+ B5 e6 Y: {+ J# i7 m6 n% O. J) E; k# f. a# V
Cell[BoxData[* G5 n1 |' V7 A9 \0 k- s
RowBox[{"{",
- M0 {2 j! D; o" b; c9 `; k/ p- ? RowBox[{+ v% E" w9 c/ M2 M. B) h( ?
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
1 b* v! ]+ g( K+ T" e8 ~, ~6 M ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15",4 F. W* u& u1 K0 }" L
",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",", 2 i3 S9 o% j7 o: g0 I# [" ^
"22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", "28",
3 P1 X1 ]# N! n5 f) X ",", "29"}], "}"}]], "Output",
- \' K2 {, {" [9 m8 e2 V CellChangeTimes->{3.57792536553125*^9, 3.5779583535225563`*^9, 9 w% [- O$ d% O; W
3.577958515653639*^9, 3.577959053714177*^9, 3.5779623443065777`*^9, + {* B0 e% x9 o" r7 A: j# x
3.578012454875*^9}]/ x/ I3 v( @; b9 P2 ^5 r! b- k
}, Open ]],
9 n) A5 g0 g+ z1 D* P7 ~
! ]' c4 l2 Q- [! h) e* sCell[BoxData[3 h7 c) h. [" t( V% `( q
RowBox[{"For", "[",
" `) B' a7 F& U" ?: u' p RowBox[{
( ^$ g1 ]+ ?% r' x8 q* S9 @ | RowBox[{"i", "=", "61"}], ",", ' k( ^- Z3 P9 \$ |( X8 a2 _
RowBox[{"i", "\[LessEqual]", "89"}], ",", % K* B; n8 T0 z0 g
RowBox[{"i", "++"}], ",",
8 j' ^ R: ^5 `9 t4 J$ p RowBox[{% S/ [5 n! I+ {" h* C
RowBox[{"y20", "[", ' r3 _) O$ P# h K+ D) L: y
RowBox[{"[",
) g% Y1 Z; J; B# l RowBox[{"i", "-", "60"}], "]"}], "]"}], "=",
+ [$ {- e( m/ t RowBox[{"Data", "[",
& D8 L0 I7 _. g RowBox[{"[",
: j, q: D' d# } RowBox[{"i", ",", "11"}], "]"}], "]"}]}]}], "]"}]], "Input",4 X# z; a4 m" B1 E4 O
CellChangeTimes->{{3.57792259890625*^9, 3.577922624859375*^9}, {
' ~0 w$ G9 G- ~; m- g 3.577922687234375*^9, 3.577922702859375*^9}, {3.577922917453125*^9, ) F, s; t) b- t1 r N9 v4 @
3.577922923203125*^9}, {3.577925372296875*^9, 3.57792538503125*^9}, {
3 j: o8 U6 G( `) n7 [5 O 3.5779583574225626`*^9, 3.5779583606673684`*^9}, {3.577959056849782*^9,
9 s: c! Y! w1 n! p- l 3.577959058690585*^9}}],
- x' ~. x# {$ A% c8 M' W6 U5 q# _9 u
Y( c7 t( V8 z) t% g, YCell[CellGroupData[{
% A% x8 D6 C: R
. H0 o% J0 V5 v) h/ G/ z+ `Cell[BoxData["y20"], "Input",
0 f+ J# |! l, m/ s# e( L CellChangeTimes->{{3.57783581975*^9, 3.57783582009375*^9}, {
' t4 R8 f4 d1 c, C: D( c/ b, F 3.57792504965625*^9, 3.577925050125*^9}, 3.57792539146875*^9, 4 M U) n/ q8 O* X* H4 b
3.5779583657841773`*^9}],* {* _6 u' o' T, s
2 g" W4 H) o2 n. O; nCell[BoxData[5 s% v# u+ Q0 w4 b/ u3 p
RowBox[{"{", , e& @# f4 U' L/ p. i
RowBox[{" m. @* J- ~8 [% n o$ p E5 e9 b
"0.507042`", ",", "0.239437`", ",", "0.394366`", ",", "0.338028`", ",", 7 e: @$ A' C" d
"0.394366`", ",", "0.15493`", ",", "0.591549`", ",", "0.408451`", ",", 8 L& J1 v3 G% ^) O" x3 b$ G% W
"0.295775`", ",", "0.661972`", ",", "0.774648`", ",", "0.746479`", ",",
Z; P. t9 {9 Q "0.887324`", ",", "0.84507`", ",", "0.704225`", ",", "0.760563`", ",",
! |/ R+ ~' }0 c6 t. r "0.43662`", ",", "0.633803`", ",", "0.422535`", ",", "0.295775`", ",",
8 X" F" }. e1 U) Z3 C* Z, h: l r "0.309859`", ",", "0.408451`", ",", "0.197183`", ",", "0.732394`", ",", / ^* X0 Z# |3 K( ]8 P- b' c, o
"0.802817`", ",", "0.746479`", ",", "0.380282`", ",", "0.56338`", ",", 3 _- h6 ]/ y; D, M0 ]
"0.323944`"}], "}"}]], "Output",+ q; R% g+ z; W% d
CellChangeTimes->{3.577835820984375*^9, 3.57792505125*^9, 5 F8 |3 ]! |4 k6 p+ W0 N
3.577925393046875*^9, 3.5779583678277807`*^9, 3.577958517946843*^9,
( J" Q+ M: w" `6 k 3.5779590634017935`*^9, 3.577962347629384*^9, 3.578012456484375*^9}]3 G7 p4 \3 } x+ |4 K& T
}, Open ]],0 u0 Q& ]/ L* \
, N# p( t) d/ [8 I3 G8 z2 VCell[CellGroupData[{
8 e6 E8 g" s( @# |! U, R) r/ }% O1 b4 }4 p) J
Cell[BoxData[' r! M- X2 C+ J- A. C+ d
RowBox[{"y20", "=",
& X* f( |0 j. m5 ? RowBox[{"{",
6 R. ]$ I+ \( x RowBox[{
5 ]; F5 u1 J0 o, @ "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
+ C' z9 J$ w1 P+ \ ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", : @4 E! \2 V$ V1 v/ z; f
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", & `' x h) {; v8 S
",", "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", 5 ~# z; S$ u" f3 c
"28", ",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34",
* b# Y) `0 }( | f ",", "35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",",
* J; e; I4 Y: y- i "41", ",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47",
% k5 K( P; K; M+ i: a ",", "48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",", " q( \( j/ ^4 S, k# I0 E
"54", ",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",", * o) ~+ ]: X4 e/ G! [, h' |
"0.507042", ",", "0.507042`", ",", "0.239437`", ",", "0.394366`", ",", 1 H2 `. {" K9 A9 F
"0.338028`", ",", "0.394366`", ",", "0.15493`", ",", "0.591549`", ",", . r& `, s _. i' Z% ]6 L
"0.408451`", ",", "0.295775`", ",", "0.661972`", ",", "0.774648`", ",",
# A5 g9 e' v1 Y3 a "0.746479`", ",", "0.887324`", ",", "0.84507`", ",", "0.704225`", ",",
# B" R; Y5 w# L2 D) t) b# l "0.760563`", ",", "0.43662`", ",", "0.633803`", ",", "0.422535`", ",", & J& C# o9 d" e3 G/ j' ]
"0.295775`", ",", "0.309859`", ",", "0.408451`", ",", "0.197183`", ",",
' Q; o. O ]) u S E8 A "0.732394`", ",", "0.802817`", ",", "0.746479`", ",", "0.380282`", ",",
% k$ m/ o7 {1 |% J% j0 Y, V# }3 ? "0.56338`", ",", "0.323944`"}], "}"}]}]], "Input",
$ s( a9 q% l" ?4 m! I+ \ CellChangeTimes->{{3.577959534959416*^9, 3.5779595573142548`*^9}}],
' l% C/ G$ e9 @: O# p7 O) k+ L5 n7 [8 k9 |& l
Cell[BoxData[ a7 h; q" b7 h8 h# [' k
RowBox[{"{",
$ w2 H/ P0 z V2 A* I RowBox[{
% H: E/ A+ o! s6 _" ~$ i* F! v "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
' L5 S* Q9 [4 C0 {0 Y0 G6 u m5 M0 v ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15",. n, j& e+ `) Y/ U
",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",",
2 u) L4 n8 l! z s/ M "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", "28",
' H; b! B2 F7 [ ",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34", ",",
: y' H, L& t4 X. M/ W' Z6 [& D$ o "35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",", "41",
2 @0 b p) C% X* t ",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47", ",",
0 i' E0 l1 G( S( w5 L" C "48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",", "54",
; {6 o1 d* l3 d( d7 Q! T ",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",", "0.507042`",
( r G; d( f; m! n& U2 X5 C- s ",", "0.507042`", ",", "0.239437`", ",", "0.394366`", ",", "0.338028`", 8 x1 U1 S- n0 c! S2 ]" A( e, E
",", "0.394366`", ",", "0.15493`", ",", "0.591549`", ",", "0.408451`", ",",; ] E$ H9 T3 W- a, w- |. ?+ A8 ?$ `
"0.295775`", ",", "0.661972`", ",", "0.774648`", ",", "0.746479`", ",", 6 [5 ^ \$ u% q4 A4 j
"0.887324`", ",", "0.84507`", ",", "0.704225`", ",", "0.760563`", ",", ; l1 H8 Y8 G0 ?
"0.43662`", ",", "0.633803`", ",", "0.422535`", ",", "0.295775`", ",", ; X+ r. K6 V$ k6 W7 i1 m
"0.309859`", ",", "0.408451`", ",", "0.197183`", ",", "0.732394`", ",",
& l `, ^' l& S& B s "0.802817`", ",", "0.746479`", ",", "0.380282`", ",", "0.56338`", ",",
) [" Z* K$ U4 [8 P1 W "0.323944`"}], "}"}]], "Output",! H$ N) e' d, j. X4 d z
CellChangeTimes->{3.5779595594514585`*^9, 3.577962351778991*^9,
# N: [; h1 `" |# u 3.578012457234375*^9}]& y, W% t4 D- m
}, Open ]],
8 B, w) T& Y1 {9 l: C7 j; ^; X$ q T; Y! K1 W# u) I1 `, F
Cell[CellGroupData[{
9 S3 S9 j* q @* b! `1 {$ \2 u& H! F) M) d
Cell[BoxData[: Z: n* L" g6 w; y! Z2 o
RowBox[{"p2a", "=",
% B' k4 H" ?1 O, R$ ]" g; H& O7 v RowBox[{"ListPlot", "[", ; K @; c, f9 q( I2 l2 F3 U
RowBox[{"y2fit", ",",
; u1 T q. k/ {" e RowBox[{"PlotJoined", "\[Rule]", "True"}], ",", / q9 ^1 Q# i; @# j) s: _4 F
RowBox[{"PlotStyle", "\[Rule]", ' U3 f, a# L5 F
RowBox[{"{", ( U, W& T" i: g) i% `5 M
RowBox[{"RGBColor", "[", ! j" x( v P5 u8 }( Q1 r
RowBox[{"0", ",", "0", ",", "0"}], "]"}], "}"}]}], ",",
6 m: g8 I' D8 b V+ ]) M RowBox[{"PlotRange", "\[Rule]", ; ?: ~$ N- W# O [5 n* c
RowBox[{"{", 6 ~0 H Y6 w2 b) S d* H1 L
RowBox[{
2 ]- l' ]6 I8 T9 c0 K3 o7 F RowBox[{"{",
- p: e$ ~2 J0 m+ y0 g0 D2 v" ] RowBox[{"61", ",", "89"}], "}"}], ",",
( ~: a/ v7 }4 o0 O( j s RowBox[{"{",
, v4 i) s5 j( V9 q. P! `0 [5 P: V/ G+ u RowBox[{"0", ",", "1"}], "}"}]}], "}"}]}], ",", # u$ z* c, G# `" {. Z) Z, T4 x0 q
RowBox[{"AxesOrigin", "\[Rule]", V, L+ r' j$ b' Q2 T/ l, m- }0 _
RowBox[{"{",
' s$ E# L$ S: p( b/ @ A RowBox[{"61", ",", "0"}], "}"}]}], ",", 5 y; K6 i' `9 Z. }
RowBox[{"Frame", "\[Rule]", "True"}], ",", . X0 I5 A0 M2 {! X) S9 y! @. v
RowBox[{"FrameLabel", "\[Rule]", 6 I# t3 F5 _0 R' v: W6 n
RowBox[{"{", 0 L" P5 E* N* Z" M1 h5 U- I8 U' l
RowBox[{
4 m- e5 f2 W4 v- u, v4 v1 r6 |3 h "\"\<\:7089\:6b21\>\"", ",", ' ?# |7 e: f# x- |
"\"\<\:94a2\:6c34\:7ec8\:70b9\:6e29\:5ea6\:ff08\:5f52\:4e00\:5316\:ff09\
! m' h) o: k1 ^, f* f0 V\>\""}], "}"}]}]}], "]"}]}]], "Input",' r5 K" u- a' D6 Q m' t! I+ _
CellChangeTimes->{
: V4 H6 u+ b. h% c 3.577925078578125*^9, {3.577925141125*^9, 3.577925141453125*^9}, {& T) G0 z- h- `+ W
3.5779583712597866`*^9, 3.5779583781393986`*^9}, {3.577958536604475*^9, 6 l& m6 @; `( \' ~) a: \
3.5779585491624975`*^9}, {3.5779592802577715`*^9, # _/ ^! t7 }5 [/ z; K+ ?, i
3.5779593014270086`*^9}, {3.5779594039971876`*^9,
( b W b X6 q" i8 ^+ m7 S x w 3.5779594059783907`*^9}, {3.57795949706695*^9, 3.5779595174717855`*^9}, { A+ w2 t+ i2 _. T# w/ `' [/ q
3.5779604302529774`*^9, 3.577960442311798*^9}, 3.57801246978125*^9, % H* j' V1 Y! \: V
3.578012920859375*^9}],
# G& i5 ` i8 g4 J) ]/ C. f. c
# ^% K2 M. [' Z7 pCell[BoxData[6 I6 g# d4 ~3 |) A& o6 R. e
GraphicsBox[{{}, {},
& h% \- X- C. ]* | {RGBColor[0, 0, 0], LineBox[CompressedData["
" g* q7 J# `: E: Q; _( A0 T1:eJxTTMoPSmViYGCQB2IQLfG6//j9f74ODGDwwR5C+zk4KBc05fPfh/Ab0PgM9 c( |% d" k6 g L" Q( u R
/g4m4oprPt26A5X3dxAJP9lu738dKh/gcKP+aOqjnNsQvkOAQ9SpXDt3zXtQ
$ l$ T$ R# }- b q1 r9QEOX5eumfHj0gMI/0CAg/bMflMmOZj5gQ4JrN9OfvS7BdUf6LDxwhrZu30P. o( ] o. P7 H7 Q8 H8 r
ofoDHVZuXXhg+6p6qP5Ah8uuLVeVMnug+oMcck/nsagE34TqD3I4uP6k+vJC
: C- y: I1 n9 A1 z9 x" |qPsaghzi+pXfnJ53Cao/yOHQV+9FOsVQ8xmCHcrmvJ+53R7qP4dgh6P/FKdK
1 v. W1 x2 u! j* F) F( k1ED90xDsEMcvcjVsCpR/INih6pmNEQvLY6j+EIfv6m2LK+WvQvWHOOTuqzlx
. a+ D9 W5 G( E3 W1 `0fYEVH+Iw5EJuS/WesL0hzi8kP0QYPHmLFR/qMO/I2uO+N6dBtUf6rAj61p1# F, T6 R, V [9 ^# \# H5 \
sPt5qP5QB47ZhxK3nIG690CoQwOb5i6rkweg+sMc+K6uP7th9iOo/jCHdUEH+ b4 G5 l; G' U) [
99yxuG0PAHw7nyU=: r: ]: I; \9 q: g5 o
"]]}},8 \0 s3 e( D8 |: T# {* u/ f
AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
, O5 ]& W1 L8 _& Q" j! z/ X A& a Axes->True,
& Q2 s) \" D( y9 ~! a7 s AxesOrigin->{61, 0},
' f. f3 B, i8 }2 g Frame->True,3 ~! S5 i- f( d; G7 a& w
FrameLabel->{. z7 Z5 x$ X2 W& O# \
FormBox["\"\:7089\:6b21\"", TraditionalForm],
# T K( O- q' p8 R# s, L FormBox[( ]0 X {2 y! X( T2 r4 ]1 |* A
"\"\:94a2\:6c34\:7ec8\:70b9\:6e29\:5ea6\:ff08\:5f52\:4e00\:5316\:ff09\"",
' W1 _. r( f9 n' v; y7 \5 k9 Q TraditionalForm]},7 w! ]; v0 E4 j" ~0 X/ y9 R. M
PlotRange->{{61, 89}, {0, 1}},4 n. T" x }* n6 m
PlotRangeClipping->True,
0 m; L+ P% Y; b PlotRangePadding->{Automatic, Automatic}]], "Output",
# r! P& V5 i# |% s3 S r CellChangeTimes->{+ H) W) m* M6 Z
3.577925144625*^9, 3.577925396578125*^9, 3.5779583797150016`*^9, 8 x! Y# H; g8 m! j
3.577958519990446*^9, 3.5779585510813007`*^9, 3.5779590670678*^9, 4 Z. o- U" s. y
3.5779593035642123`*^9, {3.5779594075383935`*^9, 3.577959430158433*^9}, + a& i" g( ], g* z7 A7 d
3.5779595184233866`*^9, 3.5779604438874006`*^9, 3.5779623548833966`*^9, + ~4 {" p K& s( @
3.57801247209375*^9, 3.5780129225625*^9}]
! x' X- ~( N! F$ ]8 f N4 E; k. @2 o}, Open ]],3 w# u4 i Y& m1 J9 Q& u ^
0 d2 _6 c9 L/ y7 s; K
Cell[CellGroupData[{
7 R- \; F# y/ u- A0 v2 i
; t- @/ t3 L( X8 o' {Cell[BoxData[3 T) `1 Z5 D7 h: t H$ H% n+ b
RowBox[{"p2b", "=", # q) C; L- ~2 T5 k# r) b" f
RowBox[{"ListPlot", "[", 4 a3 g" i2 W. o9 Y
RowBox[{"y20", ",", 8 b8 Z1 w9 ] r) T, V$ `
RowBox[{"PlotJoined", "\[Rule]", "True"}], ",", % g2 L) B2 \! b- G, @ v* o
RowBox[{"PlotStyle", "\[Rule]", - x5 }) w% z0 v% P7 [" I4 G
RowBox[{"{", $ D( _* Q. S4 H$ p4 a- W
RowBox[{
8 X w8 a, W' f2 o1 ~. h$ W1 ?, j( S RowBox[{"RGBColor", "[",
: H u# ]9 U0 n RowBox[{"0", ",", "0", ",", "0"}], "]"}], ",", "Dashed"}], "}"}]}],
* _; b% i3 k) H6 p" Q ? R ",", ' [- |$ p3 O2 g s: O
RowBox[{"PlotRange", "\[Rule]", # }# s8 T9 o9 _. y* K/ Q/ G
RowBox[{"{",
. ]& H3 S& V- ?0 [' s RowBox[{% S6 C5 j) h8 ~! O. d
RowBox[{"{", 6 u6 B$ I1 z7 T0 ?! R
RowBox[{"61", ",", "89"}], "}"}], ",", ! I+ ]; g z' V/ v. k
RowBox[{"{",
$ X. F( \1 J' p& w5 u3 P RowBox[{"0", ",", "1"}], "}"}]}], "}"}]}], ",",
" j1 t5 M8 T" R5 w2 ^ N: y RowBox[{"AxesOrigin", "\[Rule]", 8 y* j9 \/ ^8 V& q% I$ M
RowBox[{"{", * ~& |. O& v# z7 }' ]+ k) e
RowBox[{"61", ",", "0"}], "}"}]}], ",",
3 N" z, l& ~8 }9 [$ P2 z+ f RowBox[{"Frame", "\[Rule]", "True"}]}], "]"}]}]], "Input",- R' G; A8 A2 U( r; R8 F2 G4 ^: R; v
CellChangeTimes->{5 S, T& A; w w6 b# m
3.5779253991875*^9, {3.577958382429406*^9, 3.5779583843326097`*^9}, , A& r% r5 D9 l9 p6 N* ]# F
3.57795855655691*^9, 3.5779595724462814`*^9, 3.57801248346875*^9}],
5 P, r5 [7 E) c( i! d# D2 w" l E6 @# O" q8 G1 D9 D7 L9 f
Cell[BoxData[
8 C9 Z, ~! `# `1 ^) b0 Z7 z GraphicsBox[{{}, {}, 8 K# D' y4 y9 W' w# `& J& u
{RGBColor[0, 0, 0], Dashing[{Small, Small}], LineBox[CompressedData["
, a' p4 a& \% M- @% V8 } N1:eJxTTMoPSmViYGCQB2IQbff56PXX/3wdGMDggz2E9nPoi/ymssHyAYTfgMZn: m( b# M D5 H; j n6 f
8HdY88xS6f7Sc1B5f4clDzSfeNnehMoHOGSUexg6LLoK4TsEoMo3BDj8WDWV
- K) x8 H8 J& l. m" P$ h/ ^3 Ac/+VwxD+gQCH6gx57R9vH0H1Bzpw6R9cya9yC6o/0GFSzD/nX28vQfUHOvgc/ j, B5 I% J1 b7 y( A; C, e( e
iX5+X+8pVH+gQ4eu7axXJ19A9Qc5WF5ueav++DlUf5DDkWlyvl9T3kD1Bzk47 Y# Y# ]. j. `" {& E) c8 N m
TZ1le4HrNVR/kMP2iwz3mDqfQfUHO4S2FZp3hEHNcwh2WPHYkHnqx9tQ/cEO' }& Y+ F- U) H; O- O3 V
fzMXW8l6PIHqD4aaB5VnCEF1r0OIw6lD16/vunIZqj8E1X8HQqDhcxKqP9SB( E" |' K0 ~( x) \3 S
TWdn19F8mPtDHa63f3Vbu+ElVH8oqv8OhDrkVAUEdIXdgOoPc9DhS68zZYeG: a4 _8 T S3 N5 c
p0OYg4Fg/tz63VfsAdsCnzU=+ C' a3 T3 j1 {7 v% L2 i) m) x
"]]}},2 ?$ I% a |- L0 c2 o3 [$ _3 B: J
AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
5 R9 n0 ^1 }4 U6 L& G Axes->True,5 f' d8 B+ X5 E |) T' L- H
AxesOrigin->{61, 0},% O! z1 |( p! ~! A" k
Frame->True,0 O$ S+ k6 R- Y* P
PlotRange->{{61, 89}, {0, 1}}, r4 l) }% i" a# Z2 |
PlotRangeClipping->True,
# n2 v* y5 F& i, A; f5 d PlotRangePadding->{Automatic, Automatic}]], "Output",+ l4 c T0 D$ w' z" X+ z7 C- o; Q. D
CellChangeTimes->{3.577925147265625*^9, 3.577925400640625*^9,
: c9 e) W/ F+ g1 u8 {* n. d 3.5779583861890125`*^9, 3.5779585219092493`*^9, 3.577958558132513*^9,
. u4 G% h! n: D/ v k) L* H 3.5779590691114035`*^9, 3.577959577906291*^9, 3.5779623569426003`*^9, ( y( W5 t. p' Y9 J% s" Q
3.578012484703125*^9, 3.578012925875*^9}]- p) Y( W3 C2 J4 J
}, Open ]],5 w3 g1 V+ l H }
3 }5 A! N9 C1 Q" d% `& fCell[CellGroupData[{
$ p% [8 _. U' P2 v/ Y8 D# O: [+ D- O4 T
Cell[BoxData[' V; R$ @ S% ^9 p5 `3 ~
RowBox[{"Show", "[",
8 c& U/ K) u- y/ J! I RowBox[{"p2a", ",", "p2b"}], "]"}]], "Input"],, O( O, ?9 Z. D7 I, x. ?
4 h c5 J" i5 v. S: W# V9 Q- H% PCell[BoxData[" ]. o, Y) r5 X! @7 q! {
GraphicsBox[{{{}, {}, 6 ~( b* S( ]& ?' A* f. @
{RGBColor[0, 0, 0], LineBox[CompressedData["
3 q' ]( c! @3 D1:eJxTTMoPSmViYGCQB2IQLfG6//j9f74ODGDwwR5C+zk4KBc05fPfh/Ab0PgM
" o4 ^0 q/ W5 g* l* G% X/g4m4oprPt26A5X3dxAJP9lu738dKh/gcKP+aOqjnNsQvkOAQ9SpXDt3zXtQ
7 y& x6 N4 ^- c) p: P9QEOX5eumfHj0gMI/0CAg/bMflMmOZj5gQ4JrN9OfvS7BdUf6LDxwhrZu30P& z k7 q) Y% v y0 D& ^( B" i
ofoDHVZuXXhg+6p6qP5Ah8uuLVeVMnug+oMcck/nsagE34TqD3I4uP6k+vJC
' P4 y8 k( t( ]0 f+ ?0 G. j9 t9 DqPsaghzi+pXfnJ53Cao/yOHQV+9FOsVQ8xmCHcrmvJ+53R7qP4dgh6P/FKdK7 D+ i @* I6 l. r+ z) W6 D
1ED90xDsEMcvcjVsCpR/INih6pmNEQvLY6j+EIfv6m2LK+WvQvWHOOTuqzlx
' f% T) q5 f* E9 b0 S: P( M$ i, p0fYEVH+Iw5EJuS/WesL0hzi8kP0QYPHmLFR/qMO/I2uO+N6dBtUf6rAj61p1* `7 D* w6 [$ d! x2 y6 a
sPt5qP5QB47ZhxK3nIG690CoQwOb5i6rkweg+sMc+K6uP7th9iOo/jCHdUEH) l- ~7 E6 o; M# i: Q1 H; s
99yxuG0PAHw7nyU=5 f" q5 k" ]" Q8 D
"]]}}, {{}, {},
" r* E9 i. W& K e b3 l {RGBColor[0, 0, 0], Dashing[{Small, Small}], LineBox[CompressedData["
4 f" X8 {: Z6 p$ u) E5 E1:eJxTTMoPSmViYGCQB2IQbff56PXX/3wdGMDggz2E9nPoi/ymssHyAYTfgMZn
0 F0 Y# R8 m% _1 u% l0 ~* i! U8HdY88xS6f7Sc1B5f4clDzSfeNnehMoHOGSUexg6LLoK4TsEoMo3BDj8WDWV
& W/ o V+ Q# _9 fc/+VwxD+gQCH6gx57R9vH0H1Bzpw6R9cya9yC6o/0GFSzD/nX28vQfUHOvgc
% u4 v7 M+ g: O" y. Z: `& RiX5+X+8pVH+gQ4eu7axXJ19A9Qc5WF5ueav++DlUf5DDkWlyvl9T3kD1Bzk4
0 P* d' ~! ~6 J: vTZ1le4HrNVR/kMP2iwz3mDqfQfUHO4S2FZp3hEHNcwh2WPHYkHnqx9tQ/cEO
' r4 L, m& X! t) W: lfzMXW8l6PIHqD4aaB5VnCEF1r0OIw6lD16/vunIZqj8E1X8HQqDhcxKqP9SB: d5 u+ W9 l. r0 h8 W# a
TWdn19F8mPtDHa63f3Vbu+ElVH8oqv8OhDrkVAUEdIXdgOoPc9DhS68zZYeG
" z& c/ H. h X) K' d# c* o) Yp0OYg4Fg/tz63VfsAdsCnzU=
[" h" Q. ?- C* n" T7 w9 @ "]]}}},' L$ o" }, M1 H, S9 Z |
AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
# q% }4 g9 |" v- _: D0 E2 V/ V Axes->True,( H0 k* L, D' I) l3 H( G2 y2 t' g3 Q
AxesOrigin->{61, 0},
8 H0 N+ C" L% N6 X7 m Frame->True,, X. Z0 y8 c8 B. Y' x
FrameLabel->{
* n1 c1 i* ]7 j3 b FormBox["\"\:7089\:6b21\"", TraditionalForm], 0 R. B. i2 }' J. l" W5 S ^" X
FormBox[
4 U& |1 y5 o) c6 A, _# s "\"\:94a2\:6c34\:7ec8\:70b9\:6e29\:5ea6\:ff08\:5f52\:4e00\:5316\:ff09\"",
" C! ]5 w; M; @; q& a, ^! Z O8 I& r3 |8 p TraditionalForm]},
- I+ _4 z. Y. P& z PlotRange->{{61, 89}, {0, 1}},, w# j. t: P4 `. v
PlotRangeClipping->True,9 W7 h5 ^% Y% W
PlotRangePadding->{Automatic, Automatic}]], "Output",; w, B b' R% y
CellChangeTimes->{3.5779623624182096`*^9, 3.5780124863125*^9, 7 Y' O4 L# E# R: p& F0 l
3.578012927734375*^9}] Z+ e0 y! t0 t
}, Open ]],( C5 U% H! {0 I1 Y* Y5 S n
5 W& p* w( o8 s8 ?8 X# R2 nCell[BoxData[5 H; P# k7 q9 Q$ f
RowBox[{"\:ff08", ( C' x/ g( u9 G, b0 h4 e! m
RowBox[{
4 l% Y9 O o+ l4 F "\:5df2\:77e5\:521d\:59cb\:94c1\:6c34\:8d28\:91cf0", ".7406", / ~* ~+ u6 V0 Q* S/ k1 l. J
"\:3001\:5e9f\:94a2\:8d28\:91cf0", ".4621", " f$ F$ V) W/ z' ~( v" h) i
"\:3001\:4e0b\:526f\:67aa\:65f6\:7684\:94a2\:6c34\:6e29\:5ea60", ".5208",
# p/ i& [# \, s) o4 Y "\:3001\:4e0b\:526f\:67aa\:65f6\:7684\:94a2\:6c34\:542b\:78b3\:91cf0",
& T9 T; u: W4 R: ~% m& j" q: Y6 a" T ".2221", "\:ff1b\:76ee\:6807\:94a2\:6c34\:7684\:7ec8\:70b9\:6e29\:5ea6\! _3 j" B2 ^4 l/ Y
\:4e3a0", ".6224",
: x' M8 s7 N* V W "\:3001\:76ee\:6807\:94a2\:6c34\:7684\:78b3\:542b\:91cf\:4e3a0", ".2521"}],! L: b8 S; R# b5 s, O
"\:ff09"}]], "Input"],: i: ?3 b6 T/ x( C4 s; P
. @8 D- L' y: z9 m: ^* R2 V
Cell[BoxData[& { D% x9 V; L6 |" h" ^
RowBox[{"{", $ _3 l" w! d& K8 e# O! L2 }( P; B! M
RowBox[{& Z7 y5 C r' W1 W( _& j6 q( @$ e
"\:94c1\:6c34\:8d28\:91cf", ",", "\:5e9f\:94a2\:8d28\:91cf", ",",
' ?7 B$ r/ N1 ?% m/ u/ F "\:5439\:6c27\:91cf", ",",
7 s1 C/ P0 K- X# s3 ]& m8 u- G2 ~ "\:4e0b\:526f\:67aa\:65f6\:7684\:542b\:78b3\:91cf", ",",
/ n; _0 p1 n5 d' C7 X "\:4e0b\:526f\:67aa\:65f6\:7684\:94a2\:6c34\:6e29\:5ea6", ",", ; ~' P- U2 v: p0 o( J
"\:5757\:72b6\:77f3\:7070", ",", "\:8f7b\:70e7\:767d\:77f3\:7070", ",", - c0 X! O3 K; f0 S
"\:83f1\:9541\:7403", ",", "\:5757\:72b6\:767d\:4e91\:77f3", ",", % x6 z$ c% s+ V4 Y V
"\:94a2\:6c34\:7ec8\:70b9\:542b\:78b3\:91cf", ",",
% i, ~0 R& Q* k* K% Q "\:94a2\:6c34\:7ec8\:70b9\:6e29\:5ea6"}], "}"}]], "Input"],( w+ A! |; _7 d0 n* [
j! m" M0 d4 r7 MCell[BoxData[" "], "Input",
# j5 L7 m$ _" I: j, U, U. H CellChangeTimes->{3.577962834553033*^9}],$ H6 V7 U9 m# e) a! y: S
# \% J% N) |0 O. o" l
Cell[BoxData["\:94a2\:6c34\:7684\:78b3\:542b\:91cf"], "Input"],4 V6 F% r3 e8 V( N# M( e
* M: j6 w8 v- y
Cell[CellGroupData[{; p- C* c v- D# h" r2 V. w
8 \) T3 {, O5 d& V# h
Cell[BoxData[' C: M) L# g3 N2 p: U
RowBox[{"y1", "/.",
* [/ V/ M$ T) I+ Q' W RowBox[{"{", . N% S0 c' {" n# g; `; ~
RowBox[{5 S, Y; |# i* D! R) Z3 v
RowBox[{"x1", "->", "0.7406"}], ",",
p( L& s# _# H0 a t# B8 A RowBox[{"x2", "->", "0.4621"}], ",",
' L/ v6 t' E2 W2 c/ \% E RowBox[{"x4", "->", "0.2221"}], ",", 4 C) L+ U# X4 S! ?$ U+ s' n, s' ~" [
RowBox[{"x5", "->", "0.5208"}]}], "}"}]}]], "Input", x$ h' [* o$ ]; t
CellChangeTimes->{{3.57796267209435*^9, 3.5779627224200373`*^9}, {
R: Q, E. Y- V, C: {$ X, T3 D 3.5779627663029137`*^9, 3.577962774820529*^9}}],
5 g# I9 R' B4 A& Z& O& \- |
# [% c, r5 o# a3 i/ O. T# w l0 |6 W0 aCell[BoxData[
0 A0 c3 l0 Q3 W+ H RowBox[{" C. D3 P" \, n0 J; Y5 Y
RowBox[{"0.2286149508637297`", " ", ) }# z0 K4 g% m- Q
SuperscriptBox["\[ExponentialE]",
" R+ q* T3 D( B6 j/ u: m% W6 L RowBox[{"3.1415926535897936`", " ",
}6 T9 `& `5 `% s6 I4 L RowBox[{"(",
X2 D3 A8 w6 n9 p$ b" T/ [* H RowBox[{
9 p% e8 v: `( a& f7 } RowBox[{"-", "0.17911224641499998`"}], "-",
5 @0 t& R" k6 I+ X SuperscriptBox[
6 p# Y5 E' f" @. |/ w# r/ T RowBox[{"(", ! f: N* Y: U' I0 s8 ~/ l
RowBox[{9 V1 h- P" f: D- v' l2 o4 x5 @
RowBox[{"-", "0.530346`"}], "+", "x3"}], ")"}], "2"], "-",
+ M% d+ S* v) m" _$ J: n SuperscriptBox[
" F; l% m( r% o7 o! q z+ o RowBox[{"(",
) l3 _8 D9 G% Z; v) |5 r5 ] RowBox[{
6 j+ f/ t% r5 J7 @' x; z2 @2 G RowBox[{"-", "0.529013`"}], "+", "x6"}], ")"}], "2"], "-",
( F/ j( q( J5 D1 ~2 V& q/ M% b0 H SuperscriptBox[" \" [$ p$ Y% h/ ~7 v5 E' u0 `1 Y
RowBox[{"(",
; y7 U' _5 U. z6 `2 G' z. D RowBox[{
' v; Z* s! N- G8 e0 M! \/ K) K RowBox[{"-", "0.409756`"}], "+", "x7"}], ")"}], "2"], "-", 4 b. @7 H7 x/ w4 O7 g' p; w6 @
SuperscriptBox["x8", "2"], "-",
n# \4 \- i* `( T& S SuperscriptBox[+ a/ f% v% b& |1 ]) u8 J/ y/ S) X
RowBox[{"(", 6 ^% C0 n" r* w7 g" F0 R
RowBox[{
1 X' G+ ~0 V4 `4 ^% o RowBox[{"-", "1.`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}], "+", / z" S& a$ _6 f: H, G
RowBox[{"0.020180806675835994`", " ",
2 f4 O( A" y) `6 v- L: b0 J& [* j SuperscriptBox["\[ExponentialE]", , K0 A7 O; M5 @1 D2 Q
RowBox[{"3.1415926535897936`", " ", 5 C' O$ [. M( g6 g. e
RowBox[{"(", ; v1 e3 Y2 k# v1 t0 H) e- A
RowBox[{# v# ]9 S3 e2 A7 H( A* n
RowBox[{"-", "0.105619387859`"}], "-",
. _& f. E9 w9 K+ S: W6 ^5 d, k9 l SuperscriptBox[# t1 o6 l1 I: I V# S7 z
RowBox[{"(", , h7 H1 j- T! [4 J: {
RowBox[{
7 X# B q' y/ u RowBox[{"-", "0.64973`"}], "+", "x3"}], ")"}], "2"], "-", 2 ?( Q. I4 X! G) H
SuperscriptBox["x6", "2"], "-",
% a; u m% w& O' y SuperscriptBox[
' `5 C T0 S; s) m RowBox[{"(",
, J( }# j4 T. C RowBox[{
) \$ y. L" K% i RowBox[{"-", "0.636585`"}], "+", "x7"}], ")"}], "2"], "-",
2 K6 g( {$ }. a; M: C SuperscriptBox["x8", "2"], "-",
3 o1 m% e" `9 v- T1 y( Q2 }! i( T SuperscriptBox[# ?* [: I; F8 `1 M/ J
RowBox[{"(",
9 a5 X3 B$ K% i1 l# C7 z4 p RowBox[{2 r3 V3 u3 P6 ^, D) F
RowBox[{"-", "0.766748`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}],
! M/ u$ m( [- s3 b; a0 \$ a "+", # }- f0 t5 V+ ?' q1 W
RowBox[{"0.13092706311748437`", " ", 4 L0 D" o) A. R4 u
SuperscriptBox["\[ExponentialE]",
5 {% p3 u% f' j1 ^& g, O @. R7 ]9 A RowBox[{"3.1415926535897936`", " ",
1 k+ |: z' A5 d: K4 b2 k RowBox[{"(",
$ d7 W, c5 M2 r$ R8 L6 r RowBox[{5 c j* I3 e L4 X( a, g0 O) X
RowBox[{"-", "0.236605670085`"}], "-",
5 D; H9 q- E# V$ ~2 O8 p. X9 p' ? SuperscriptBox[3 c( i* k! z9 [; `
RowBox[{"(", 5 s- l* @' \, ?
RowBox[{: I+ q% h j' x# g. j7 p" W
RowBox[{"-", "0.109343`"}], "+", "x3"}], ")"}], "2"], "-", % c$ C5 w3 \ Q; M5 q
SuperscriptBox["x6", "2"], "-", + [( M) b0 \$ P0 c# V: u
SuperscriptBox["x7", "2"], "-", # d/ w" W; K/ l4 p
SuperscriptBox["x8", "2"], "-",
( E) u; m: B# ]6 ? SuperscriptBox[0 |/ A' H: ]* o; @
RowBox[{"(",
: o: @+ M# ]$ V( ?- W1 G( y' J RowBox[{
4 x- i- g2 r' h RowBox[{"-", "0.752567`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}],
" `0 M: z# y( v# J$ L "-", & `2 Q4 A1 W7 F& q c
RowBox[{"0.033459349088924784`", " ",
; e0 F: o. a, x2 M SuperscriptBox["\[ExponentialE]",
( J2 s- |$ q- }1 X* m RowBox[{"3.1415926535897936`", " ", # u) g, a3 [) ?
RowBox[{"(", # S# v3 ]( W# \: j6 G }/ @
RowBox[{
8 `8 J# ]5 K6 v6 _% \! C RowBox[{"-", "0.46221081830200006`"}], "-", 9 P! X/ b* ?5 c3 Q/ A
SuperscriptBox[
$ W4 V8 |2 y8 {. O8 [# {* n RowBox[{"(", 7 O4 _( ^/ i" e* L& V" X6 v
RowBox[{. a( M& f, \& c, I/ _6 ?
RowBox[{"-", "0.258697`"}], "+", "x3"}], ")"}], "2"], "-", - R/ v7 ~% e$ \& w
SuperscriptBox[; A- H C7 ]* a2 q) y
RowBox[{"(", ) J- T* ^/ h4 a
RowBox[{
- L( Z* U+ }% n/ U* a# K& z RowBox[{"-", "0.420497`"}], "+", "x6"}], ")"}], "2"], "-",
8 v: q; Q6 |% F- h7 h SuperscriptBox[7 \" Q2 {, H4 Q$ I7 u% H' R: n$ Q
RowBox[{"(", $ c6 F. G' @' v: q" G+ z
RowBox[{
a: x& Q7 h- u RowBox[{"-", "0.535772`"}], "+", "x7"}], ")"}], "2"], "-", / s8 d4 B+ {/ `0 x2 [/ s5 ?
SuperscriptBox["x8", "2"], "-", 1 h6 A" e$ ?" t" N U. e# U
SuperscriptBox[
" F& a* g8 `) x5 W' U, F RowBox[{"(", 0 m& O! W s9 U: I% O8 G0 ]
RowBox[{% J9 M; ^) @8 B9 m) k- q L
RowBox[{"-", "0.494866`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}],
' @& O6 Q, _' j+ c& z( K "+", * {+ ~* V) G$ q) C9 N* d( W
RowBox[{"0.39611806709006653`", " ",
' y1 \# U) T" K5 x SuperscriptBox["\[ExponentialE]",
' ^0 _% M1 h/ ? RowBox[{"3.1415926535897936`", " ", , v# `6 G- Z( ?9 x) L0 M
RowBox[{"(", : ?/ o. \: j0 H6 i/ M
RowBox[{
t- c5 S6 w& C) {& j' `2 @6 R2 j+ ~7 u7 d RowBox[{"-", "0.5837889295140001`"}], "-",
/ y# D% Y) ~2 r4 K$ } SuperscriptBox[
, |& \8 b z% ^' S! E7 t RowBox[{"(", " C5 ^4 @0 R1 E0 S2 c" G8 _. _
RowBox[{
) |6 F) o) D% \8 [8 D" L& l RowBox[{"-", "0.027011`"}], "+", "x3"}], ")"}], "2"], "-",
f$ m$ d# R+ L; j" b8 i SuperscriptBox["x6", "2"], "-", 8 ?" s4 u h* [/ w$ v& O7 q5 r5 u. i
SuperscriptBox[9 p5 L; G) p" F+ F
RowBox[{"(", 5 ^: r1 \. {# o
RowBox[{; K' \1 {4 l* M0 c* f0 Z2 [
RowBox[{"-", "0.452033`"}], "+", "x7"}], ")"}], "2"], "-", 2 U' `+ }5 |; c
SuperscriptBox["x8", "2"], "-",
0 y% K8 e1 Q' [ SuperscriptBox[2 c6 o4 n6 m" B- B* r0 ~
RowBox[{"(",
/ s* K, V @- L! E# Y" E RowBox[{
1 }. z: J3 M" I+ P1 I RowBox[{"-", "0.278729`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}], # x6 z# r* Q c( B2 `( Q: M$ H
"-", 4 m# \3 I8 t9 }
RowBox[{"0.19996885877792045`", " ", ! k! w& a/ c& A- |' D
SuperscriptBox["\[ExponentialE]", . P, m2 o; k" h# U6 ~! X v+ Z' l
RowBox[{"3.1415926535897936`", " ", 9 w/ I2 T8 o6 @
RowBox[{"(", ' F6 c* c: O. _
RowBox[{ r& W" O5 r; y
RowBox[{"-", "0.19030188470200005`"}], "-",
2 E4 O0 @2 b# N E SuperscriptBox[
9 i( v1 q1 k. C' c. k RowBox[{"(", ! Q( t6 `2 y. o+ {& M, l
RowBox[{
" u' s5 W; @; O* n; c- z RowBox[{"-", "0.510223`"}], "+", "x3"}], ")"}], "2"], "-", " l1 \2 T6 y* N1 ^* F% Y* N3 l5 ?
SuperscriptBox[
5 S6 U4 ~+ Q {1 a- d RowBox[{"(",
# [$ D% {3 J7 `! x# r# | RowBox[{
- c( s5 K& F+ X RowBox[{"-", "0.748304`"}], "+", "x6"}], ")"}], "2"], "-",
' G6 W( ?" x" k+ l% C SuperscriptBox["x7", "2"], "-",
2 y" b9 x* t. `- Z+ V SuperscriptBox["x8", "2"], "-",
+ M3 y$ W1 s4 i8 A, T4 L0 _7 O SuperscriptBox[4 d2 {. X0 Y0 f0 t) o
RowBox[{"(", , Z5 G% \& Y$ c; p. R7 M- {. E7 ~) `+ \
RowBox[{
$ a( m+ g$ s Z& d RowBox[{"-", "0.243032`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}],
6 s/ z! t% I) ]' ~' O/ ]& j+ R "+",
+ f. v% p7 B! u' Y: o RowBox[{"0.23580523388620744`", " ",
; a5 m" u2 D0 s: P p! R" C% K SuperscriptBox["\[ExponentialE]",
1 {# l8 O& J: ?3 _+ D' u RowBox[{"3.1415926535897936`", " ", 0 ~# u" y/ y6 E, y" s' q) r9 R
RowBox[{"(", - h1 K5 Y/ |; q% ~; F& V( a3 [! z
RowBox[{2 s% z0 o5 n& M: `9 C8 j
RowBox[{"-", "0.28518780882`"}], "-",
) g3 ^8 M0 `. O% ?; K/ T SuperscriptBox[
% S6 Y4 [$ [$ C) { RowBox[{"(",
! Y& a* b3 r6 y- |& S* f# r RowBox[{
% g4 B# |0 c4 o7 s# W4 e RowBox[{"-", "0.158058`"}], "+", "x3"}], ")"}], "2"], "-", & ^9 u' V7 H3 g
SuperscriptBox[
( @; P' C2 ?9 o' v+ r, @& v4 q RowBox[{"(",
: h8 a9 D; j# C RowBox[{) ~0 Y' ?3 F5 Q+ i
RowBox[{"-", "0.166541`"}], "+", "x6"}], ")"}], "2"], "-",
: T4 r, S$ I) l$ y7 b& F% R0 | SuperscriptBox[, L8 O0 a0 a* X6 J/ ^9 E
RowBox[{"(", ; h: M% m& }" g( \$ E: F( ?# s
RowBox[{
2 V5 b' Z) t3 `3 ?% C5 _3 B8 { RowBox[{"-", "0.278049`"}], "+", "x7"}], ")"}], "2"], "-",
% r6 h( q# D' P" c& T+ G4 g SuperscriptBox["x8", "2"], "-", 4 d4 X1 A. X, b+ a
SuperscriptBox[" |& ?' n4 g4 b# ?6 E3 m
RowBox[{"(",
" K% M( I' }2 A& k# H+ g RowBox[{) ]9 M7 x2 i! d# ?' t# |
RowBox[{"-", "0.236675`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}], & @' B% Y( U" }! x! r6 l3 j u
"+",
: C! D5 o( O4 f4 R& F6 F, E7 v RowBox[{"0.667027259367853`", " ", 0 Q, \ a M* _* v
SuperscriptBox["\[ExponentialE]",
; M& D. C% c. A% C1 j+ w RowBox[{"3.1415926535897936`", " ",
7 y; s6 l7 p A$ H& ~8 u. k RowBox[{"(",
' b% U; q6 v$ S& s2 w! Y8 J RowBox[{! r1 s+ H5 Y' u) j
RowBox[{"-", "0.11387365200400001`"}], "-", ; N& C' s# v( l* _
SuperscriptBox[, Y/ g6 _; O7 T( h
RowBox[{"(", " S; m, \3 x1 R9 b: a7 Y! f% F/ n
RowBox[{
" o' a' t# y. F8 s, L4 u( O7 j RowBox[{"-", "0.177646`"}], "+", "x3"}], ")"}], "2"], "-",
: k/ q: H! {; _: b$ p1 Y0 F SuperscriptBox[6 C0 w z5 l8 s) _( o5 X# }- k
RowBox[{"(",
# o9 ~3 R. j1 | RowBox[{4 N' a0 h; J6 Z" N; ^
RowBox[{"-", "0.502638`"}], "+", "x6"}], ")"}], "2"], "-",
" p9 D# w# \5 O! c& W- z0 q SuperscriptBox["x7", "2"], "-",
, @' p, l5 Q& S: L& d SuperscriptBox["x8", "2"], "-", ! a! G# Z$ ^: r6 Z+ v
SuperscriptBox[
+ n! e3 `# T; z5 w RowBox[{"(",
" t. r. [1 _" X6 G RowBox[{
" ]+ |5 M/ @0 W4 d4 K RowBox[{"-", "0.178973`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}], ( v7 S( `5 E8 [& [" d
"+", ' e( V6 c* V& o1 V: i
RowBox[{"0.25282438852646905`", " ", , D7 {; e# }; a q% C! a' M( d9 s
SuperscriptBox["\[ExponentialE]", 8 R* H8 w2 `- n6 ~
RowBox[{"3.1415926535897936`", " ",
+ Q L, v; O" a1 T; {0 z- \ RowBox[{"(",
& `" H: L4 A- W& s; q2 ^+ U RowBox[{
8 o% a. V1 y) b& C' C RowBox[{"-", "0.11442644782500001`"}], "-",
% q5 |9 X0 [! O. L$ d9 t% Y SuperscriptBox[
3 q6 A p& b' R; c% D RowBox[{"(",
9 W6 @) {5 L! ~5 C& ~ RowBox[{3 |2 `: F+ j5 N! p' K5 h, H$ p
RowBox[{"-", "0.33973`"}], "+", "x3"}], ")"}], "2"], "-",
% I9 R8 h2 J; `9 f: G SuperscriptBox["x6", "2"], "-",
) j) z$ j7 } `+ N, E SuperscriptBox[
; |* @. H( `% l! p RowBox[{"(",
7 u: _6 c% P. q6 X RowBox[{
; p5 X! ?% I( Z* ^+ m/ w+ |. r2 n RowBox[{"-", "0.636585`"}], "+", "x7"}], ")"}], "2"], "-",
' ?$ M) \: {* N9 C+ H* v0 i, g9 j SuperscriptBox[
& m# @5 a3 Y2 K% ~6 e+ n' ]0 D RowBox[{"(", 2 v0 J+ I2 [$ c: i
RowBox[{
% O8 K" u5 T, `' P! S7 }: R# ~ RowBox[{"-", "0.780463`"}], "+", "x8"}], ")"}], "2"], "-", : G% f g3 B2 K
SuperscriptBox["x9", "2"]}], ")"}]}]]}], "-",
& G5 q/ ^9 P0 k! R! d$ }: b RowBox[{"0.07581214474544536`", " ", 9 T# w. z" h& ?3 Q$ p
SuperscriptBox["\[ExponentialE]",
8 a, h& U$ y6 D* U2 W6 A7 x RowBox[{"3.1415926535897936`", " ", 8 S6 m% l+ S) h8 E: M! P
RowBox[{"(",
' f" b+ R5 {( n" k* E. w! u RowBox[{( r9 K% U7 b+ K! Y( @+ X
RowBox[{"-", "0.21008576609800003`"}], "-", w; n* y. C, b
SuperscriptBox["x3", "2"], "-", ; y! b( G; I2 Q" K
SuperscriptBox["x6", "2"], "-", 9 l5 m |7 v$ x2 T
SuperscriptBox["x7", "2"], "-", 9 t/ u9 i/ f2 e6 z: v
SuperscriptBox[3 T8 _* Z! K" e$ S$ j- _6 [
RowBox[{"(",
2 }4 \) x: d6 S RowBox[{
( ^2 c: A6 M/ o. x: I& O RowBox[{"-", "0.672709`"}], "+", "x8"}], ")"}], "2"], "-",
F j) w! `/ w* K, r( L SuperscriptBox["x9", "2"]}], ")"}]}]]}], "-",
/ x1 t* v1 J! { RowBox[{"0.10599338351843121`", " ", 4 E @+ q. o, t* H" B& a
SuperscriptBox["\[ExponentialE]",
; h% x! ^/ n% Y$ \0 P% H7 A5 L- B RowBox[{"3.1415926535897936`", " ",
1 _+ n9 N) T% W$ e7 \( I RowBox[{"(", 9 v0 N& w3 z$ {
RowBox[{/ t0 D5 q B; o+ i; f+ }. n5 x
RowBox[{"-", "0.4481471925460001`"}], "-",
& i# E; b/ j- T( S4 _+ L* t* `9 D SuperscriptBox[
! `) d7 \( D8 M2 I5 O% V4 R4 g; B RowBox[{"(",
6 r6 ?% p3 V8 ~, ]2 h9 Y& c# o RowBox[{
8 e5 @. z/ X3 k3 j7 T% W' ?6 }4 L RowBox[{"-", "0.452931`"}], "+", "x3"}], ")"}], "2"], "-",
. c8 G' u3 E2 V7 H9 e SuperscriptBox[
& E$ V2 } n6 ?( J RowBox[{"(",
( X9 ]$ m7 C4 @- _$ K$ }4 A: @5 s RowBox[{
4 `9 E2 y' _7 G% l RowBox[{"-", "0.370761`"}], "+", "x6"}], ")"}], "2"], "-", + C, j9 n1 O v- w* A7 ]
SuperscriptBox["x7", "2"], "-", # X7 |! d5 ?0 U7 I( c L7 G
SuperscriptBox[& c9 e+ y: N- k& ?+ L& f6 `
RowBox[{"(", 4 b3 t( k% \) Z: K' y- O
RowBox[{
+ I+ ^2 j% t7 d. L$ Y/ M; v s RowBox[{"-", "0.509567`"}], "+", "x8"}], ")"}], "2"], "-", * B" i" T- U5 P3 J1 \4 J
SuperscriptBox["x9", "2"]}], ")"}]}]]}], "+",
# m" M, l! W5 b6 x# L; y- E# U RowBox[{"0.5008208386064421`", " ", ; s. C m f0 F l: a: U: N
SuperscriptBox["\[ExponentialE]",
! ?4 i' o, u- ]& h& q1 a1 S RowBox[{"3.1415926535897936`", " ",
7 j$ J6 D9 i/ P RowBox[{"(", f; @: A1 ~3 b' G) z& n& U( n, _
RowBox[{
" V E: L/ V& d% m RowBox[{"-", "0.08722659614000003`"}], "-",
# I. {. x: s* V* {; ?- p; S SuperscriptBox[
# ?( K I5 o2 o5 f8 W7 z* c9 B7 h RowBox[{"(", , J5 I7 R* {: |9 S6 K
RowBox[{
2 |* J% @0 K& V* F RowBox[{"-", "0.4943`"}], "+", "x3"}], ")"}], "2"], "-", ! |$ e7 E) ?% M; C
SuperscriptBox[# Q4 m i7 s4 g5 L" ?, E! e
RowBox[{"(", 6 C$ l2 V& T7 s; n+ a* ?3 s
RowBox[{9 O) x! z" d! I; z r5 Q
RowBox[{"-", "0.375283`"}], "+", "x6"}], ")"}], "2"], "-", $ f6 y% p; D) F7 k$ Q
SuperscriptBox["x7", "2"], "-",
+ g8 T( F9 z; [( T6 K4 Y U* C; @ SuperscriptBox[% W$ ?; v; Q. Z0 g- T2 M/ ]+ K
RowBox[{"(",
$ ?- t5 h; N+ {# W% s' d" T/ i RowBox[{
8 C% l# Q w: y% S$ M RowBox[{"-", "0.505539`"}], "+", "x8"}], ")"}], "2"], "-", 0 u, [6 I) i I( t' g
SuperscriptBox["x9", "2"]}], ")"}]}]]}], "+", $ {2 y9 Z6 h* t0 b% L1 F8 N( a
RowBox[{"0.32564305572552343`", " ",
# ^ i' v: Q/ }' {" ~5 U SuperscriptBox["\[ExponentialE]",
9 ^9 N" f, f; b: } RowBox[{"3.1415926535897936`", " ", 0 p) \4 m+ a2 K3 S, u1 U
RowBox[{"(", * v6 L. I1 H; d/ ?
RowBox[{3 O( A0 w& o/ V' ^! f* F
RowBox[{"-", "0.23738217000100004`"}], "-", ) j9 o ]1 h& j* `# ?5 A
SuperscriptBox[
" y& N) Y) B; x2 i RowBox[{"(", 7 D! R& }' g0 ]; ]0 k
RowBox[{7 T! F2 M2 B/ b. J$ z) l" h+ m# U* d! M
RowBox[{"-", "0.33037`"}], "+", "x3"}], ")"}], "2"], "-", 3 U8 L d5 X: c V. S
SuperscriptBox[5 }% f, a$ @0 k1 q! e
RowBox[{"(",
" B( S, {+ k9 b7 Q6 Y RowBox[{
7 |, C; m- U! s RowBox[{"-", "0.752072`"}], "+", "x6"}], ")"}], "2"], "-",
Q7 o* _( V, b! d. } SuperscriptBox[
. r4 i" t2 u$ d8 Z1 L0 ] RowBox[{"(",
2 i2 G8 ?! H: F3 u1 f" O RowBox[{6 o5 [7 T0 ]: {' T4 t
RowBox[{"-", "0.408943`"}], "+", "x7"}], ")"}], "2"], "-",
1 b. E% s4 F" S/ o SuperscriptBox[
! T9 R# {- r5 R2 i& H$ Z1 x RowBox[{"(", $ l) ~- n; @, s6 p6 m
RowBox[{
& ^9 J; l& D g, i u( R! M) X- n RowBox[{"-", "0.504532`"}], "+", "x8"}], ")"}], "2"], "-", 8 k h" M) a9 D: L0 E' m6 m
SuperscriptBox["x9", "2"]}], ")"}]}]]}], "+",
, h9 g0 Q1 A3 ^% `9 S" X& S9 U5 l9 W8 l RowBox[{"0.6665374509702793`", " ", " ^) V& q2 I- G+ e7 u; F
SuperscriptBox["\[ExponentialE]", 9 [9 l0 X: s# g* h. k5 O
RowBox[{"3.1415926535897936`", " ",
. Y% @6 h T& W: Y+ F RowBox[{"(",
$ u! ~5 t) ], B( A2 l7 h. a' o RowBox[{; x6 j1 ^. y0 ^1 I0 ~* [
RowBox[{"-", "0.19162171876400003`"}], "-",
0 d/ T5 {2 _6 r5 q8 l) { SuperscriptBox[, B7 {' m! z# x4 H+ o0 H
RowBox[{"(",
) f* F2 B! U! b6 {3 }8 ]0 x. a+ h; v RowBox[{; j4 m s4 @5 i, T, t& L
RowBox[{"-", "0.544826`"}], "+", "x3"}], ")"}], "2"], "-", % ^1 G) D& u6 c2 [3 Q1 S) c2 B, ?
SuperscriptBox[$ O( s$ C/ @9 w+ Y# {0 C! M$ R
RowBox[{"(",
6 s$ ^& d7 N. j) k RowBox[{- @* K0 M4 D3 m
RowBox[{"-", "0.53052`"}], "+", "x6"}], ")"}], "2"], "-",
) X {+ T( L% I9 k SuperscriptBox[
& B( s4 K! p% j! x, T RowBox[{"(",
# A- o/ {5 S# _+ y: c5 _$ t* m RowBox[{
! D* L) c, x, a RowBox[{"-", "0.819512`"}], "+", "x7"}], ")"}], "2"], "-", ! S0 U8 \9 ~0 K, X
SuperscriptBox["x8", "2"], "-", 9 W3 O% K1 c, f( |& ?
SuperscriptBox["x9", "2"]}], ")"}]}]]}], "+",
8 E. G/ j7 Q4 u' V3 ?. I0 J RowBox[{"0.4812237524557293`", " ",
1 E: r. u! o1 _1 d+ {- x/ s/ d8 U SuperscriptBox["\[ExponentialE]", % q) A1 @0 W" ~& H! R6 z
RowBox[{"3.1415926535897936`", " ", 6 w- Y n6 N- y& Y7 [
RowBox[{"(",
: e0 S3 A2 t8 G7 K5 k RowBox[{) h1 N: o: {& ?3 B" v( j2 ^
RowBox[{"-", "0.109748954594`"}], "-",
2 n' K+ N; W. b! L: w+ Z0 ~, P$ T8 c SuperscriptBox[
' f( G0 L/ W4 s- R! {) }& p1 W( h( t+ o RowBox[{"(", 6 C7 I" d4 p& M N+ Y
RowBox[{2 `1 h! N% A! {1 K. l
RowBox[{"-", "0.160584`"}], "+", "x3"}], ")"}], "2"], "-", , g' d" l9 |7 s1 ]1 U
SuperscriptBox["x6", "2"], "-", 9 a) W* j: e$ d* y$ m/ p' O5 E4 Z
SuperscriptBox[8 {& O# C7 ~, f# D9 q& N; b
RowBox[{"(", + w, b+ O, d9 o$ G% e
RowBox[{8 L1 v9 `2 X5 e( h4 m; K- U' w
RowBox[{"-", "0.684553`"}], "+", "x7"}], ")"}], "2"], "-",
9 I9 ^. a9 |! ?0 a SuperscriptBox["x8", "2"], "-",
) n; T0 l `7 X% T# d) n SuperscriptBox["x9", "2"]}], ")"}]}]]}], "-", : T" q9 k, S+ ~1 f" k. I: T8 q
RowBox[{"0.176024676254045`", " ",
; X' {' O H/ M( f SuperscriptBox["\[ExponentialE]", - P0 |4 t- e' U+ r1 u
RowBox[{"3.1415926535897936`", " ", ! A; D2 _0 ~ k$ i% b$ y( Y
RowBox[{"(",
$ l; Z* d% S3 b2 e' p, A. A) w# T' ~ RowBox[{
6 N8 M ~+ m3 }- P' u RowBox[{"-", "0.14616677062500003`"}], "-", I+ s9 V1 J. i8 O6 V& M& ^
SuperscriptBox[: d9 ^: d' D7 {! h/ {
RowBox[{"(", # I, X, N* G2 {
RowBox[{* b& i( y$ G6 `4 z% W- b
RowBox[{"-", "0.414297`"}], "+", "x3"}], ")"}], "2"], "-", $ T+ u, a. K' ^3 |
SuperscriptBox["x6", "2"], "-", & G4 c1 c; x1 L$ L0 `# F
SuperscriptBox[
" D) W" I1 Y4 M) n" {7 C' I# N$ H RowBox[{"(",
4 C, O9 m3 F; j# p RowBox[{. {7 O9 ]% h2 S, V
RowBox[{"-", "0.544715`"}], "+", "x7"}], ")"}], "2"], "-",
! R, F6 }3 ^4 i) D2 f' W/ M8 u SuperscriptBox["x8", "2"], "-", # o+ n9 N7 P, c8 h
SuperscriptBox["x9", "2"]}], ")"}]}]]}], "-",
) s0 l( ^+ }; G. o) P RowBox[{"0.5945873894818965`", " ",
2 V0 V9 d) L: F% B SuperscriptBox["\[ExponentialE]", 5 f( D# [- _4 v' @6 C) G2 m7 t
RowBox[{"3.1415926535897936`", " ", ; e; [0 a# d0 N8 p
RowBox[{"(",
9 Q6 [# Y% ]( E1 ] RowBox[{3 u2 y! F$ e7 F: e3 _( o# t
RowBox[{"-", "0.10407011464100005`"}], "-", 8 p+ x' h; f2 s& ?' g. c: i0 ~! |
SuperscriptBox[
1 l4 f# t3 p' j5 U$ p RowBox[{"(", 7 T/ Q8 E8 v( A& N" P
RowBox[{- S; A2 P, o" K
RowBox[{"-", "0.3555`"}], "+", "x3"}], ")"}], "2"], "-", . [4 ~5 s0 F9 I1 t0 \
SuperscriptBox[% v' Y5 @7 _+ u P6 p
RowBox[{"(", + {% ~/ y0 o. @. I2 S+ w
RowBox[{3 a! D5 h# D+ n2 `) o
RowBox[{"-", "0.37679`"}], "+", "x6"}], ")"}], "2"], "-",
3 Z; V- E$ x- {+ x3 f& C; r SuperscriptBox[
3 N& M$ W+ H6 c3 v RowBox[{"(",
# u6 ~" g2 ]; B RowBox[{/ K8 O) L1 n( n
RowBox[{"-", "0.411382`"}], "+", "x7"}], ")"}], "2"], "-",
8 P9 E! U6 l* L7 r5 p4 p SuperscriptBox["x8", "2"], "-", 2 z, K1 E0 ~& J3 h1 W( a8 Z- Z9 C
SuperscriptBox["x9", "2"]}], ")"}]}]]}], "+",
& O0 @9 G" w# @% X, Q# ~ RowBox[{"0.027591936509660075`", " ", # H3 V% a4 \: d7 O7 u) n
SuperscriptBox["\[ExponentialE]", 1 Y9 D2 w- B% U' t$ I
RowBox[{"3.1415926535897936`", " ", 9 r9 i; K& ^* I) T8 N* s
RowBox[{"(",
]6 O2 g* h2 k b" {. P$ q RowBox[{8 X8 `' l* J- c1 |* C% r
RowBox[{"-", "0.31770463544200006`"}], "-",
G5 d% X! g/ Z5 I SuperscriptBox[
1 E& H# ?7 x8 |9 h RowBox[{"(", " e, N* a) Z/ O$ U
RowBox[{
2 ~+ Q1 I, t0 Z1 | RowBox[{"-", "0.655012`"}], "+", "x3"}], ")"}], "2"], "-", & d, U5 z% L0 k) E" k
SuperscriptBox["x6", "2"], "-",
) `1 b) H+ C3 e9 [( X6 C SuperscriptBox["x7", "2"], "-",
: u% f3 V+ j) [( _* H8 s! b SuperscriptBox["x8", "2"], "-",
- M, i b9 w8 J* ` SuperscriptBox["x9", "2"]}], ")"}]}]]}], "+", , v4 k7 P1 P( [! ?8 z
RowBox[{"0.5252475961933536`", " ",
) \# Q- F# E, Q. {. ` SuperscriptBox["\[ExponentialE]",
% z9 H' k+ s1 d0 f8 I RowBox[{"3.1415926535897936`", " ", 2 J) y) r7 H& m9 l' t# y
RowBox[{"(",
, e& c' A% s% S0 C4 w. \ RowBox[{
2 k9 Z$ _4 a" Y) _- \ RowBox[{"-", "0.6410867660730001`"}], "-",
$ A. m! ]$ a' U/ }; W" x5 z* J/ ? SuperscriptBox[2 A/ t" m3 E/ n7 M. R8 q! B
RowBox[{"(", 2 V2 [1 p( \& @5 W3 h/ n) j
RowBox[{
2 o! v n A- S+ a, k) t RowBox[{"-", "0.420753`"}], "+", "x3"}], ")"}], "2"], "-",
+ ]1 C6 k) W$ M; ?9 _( C SuperscriptBox["x6", "2"], "-", - e! E q% u" B5 t
SuperscriptBox["x7", "2"], "-",
+ B; a5 \) J' [' L4 M! ?* i% } SuperscriptBox["x8", "2"], "-",
6 V7 C5 I: v( g6 p4 N SuperscriptBox["x9", "2"]}], ")"}]}]]}], "-",
4 e0 F7 F( V6 a9 y; C+ A RowBox[{"0.32047284779644936`", " ", * t3 N' e3 c1 U }. E
SuperscriptBox["\[ExponentialE]",
" F1 t* [: K: w$ t RowBox[{"3.1415926535897936`", " ",
2 } S- @& e7 P* u& Y4 S$ W+ r6 h RowBox[{"(", 1 B* |/ z1 S1 K5 h* w
RowBox[{4 b% g& {$ I% A: ?" B2 i
RowBox[{"-", "0.155663887074`"}], "-", + Q6 t/ Y7 T3 v: m
SuperscriptBox[
% [% _ a. K" k) w0 U+ C7 x" c RowBox[{"(",
2 P' `. T# J3 i: ?" H RowBox[{
! k J4 w, v" ]' h. F RowBox[{"-", "0.267704`"}], "+", "x3"}], ")"}], "2"], "-", 4 G7 F4 }- x" P$ k- Z4 A4 D6 l, G
SuperscriptBox["x6", "2"], "-", 1 F L' Q+ N* A/ M4 }
SuperscriptBox["x7", "2"], "-", O K* \& F' U. |
SuperscriptBox["x8", "2"], "-", / z9 a0 x& d# S; u: e" [( r7 x2 b
SuperscriptBox["x9", "2"]}], ")"}]}]]}], "+",
/ @9 ]4 x h- g* Q RowBox[{"0.7528674241482847`", " ", , O5 J* \! _7 ^- c9 D% g- E9 j$ W
SuperscriptBox["\[ExponentialE]", 6 a% G: ~& M9 T. y+ B
RowBox[{"3.1415926535897936`", " ", & }7 l: `. z* }; ]9 e6 G
RowBox[{"(",
4 G2 k1 [# g* `+ \/ ]: Z RowBox[{9 G$ I3 z# i4 q
RowBox[{"-", "0.14151232428600002`"}], "-",
! ^- z& [$ Y: {5 } SuperscriptBox[6 z6 L# p. k/ s+ u, ]& f
RowBox[{"(", % Q5 ^7 Y! K- x2 T" \; l
RowBox[{- x; f) U( L. A" X
RowBox[{"-", "0.234619`"}], "+", "x3"}], ")"}], "2"], "-",
7 R F! S+ {$ {3 r7 s o SuperscriptBox["x6", "2"], "-",
' m- N1 R8 Q) j SuperscriptBox["x7", "2"], "-", 7 b& G$ U8 g4 M9 m
SuperscriptBox["x8", "2"], "-",
, j3 ?) _) v U SuperscriptBox["x9", "2"]}], ")"}]}]]}]}]], "Output",; u3 o! B j, b- `8 j4 l1 z z
CellChangeTimes->{3.5779628386090403`*^9}]6 _/ Z8 a% c9 u9 |' s$ a- x
}, Open ]],* X9 i [! B y9 A# {5 I" @
1 D1 k( R( F6 ]* `2 \. X% H
Cell[BoxData[" "], "Input",
# Y/ b; }! T" }% z CellChangeTimes->{3.577962835879035*^9}],
( }/ V( E/ K0 [5 }
: K! r# r) A1 c( X, g- P2 PCell[BoxData["\:94a2\:6c34\:7684\:7ec8\:70b9\:6e29\:5ea6\:4e3a"], "Input"], q" @4 {0 K- Q+ A5 M
$ v% a- i- ?. r5 v# cCell[CellGroupData[{
5 M$ M% G. @1 p6 q/ L6 E" @' i
) e5 D8 _% n$ U2 Q! W! ~Cell[BoxData[
/ K! @* X$ D {4 ?. Y4 H* V RowBox[{"y2", "/.", ' `' x% B( x9 U' K' a" W5 @( t( w# N; \
RowBox[{"{",
2 H* B7 Z5 q9 h9 l/ B; }9 f4 f RowBox[{
$ f4 `/ j6 v$ Z& g _ ]; H& C7 H9 H! A RowBox[{"x1", "->", "0.7406"}], ",",
f% A" L9 Z# Z* t L RowBox[{"x2", "->", "0.4621"}], ",", ' O4 J* V6 H. e7 B) _# Q5 ?
RowBox[{"x4", "->", "0.2221"}], ",",
5 n+ @+ X; \6 [2 G" U RowBox[{"x5", "->", "0.5208"}]}], "}"}]}]], "Input",7 B- w" ]4 I6 q! u/ n8 [
CellChangeTimes->{3.577962787784151*^9}],% x6 _9 b$ ~6 j- o) i( d. }
# Q: o x6 U) J$ g6 H% ]& B
Cell[BoxData[
" S0 k5 _1 M$ @4 a' ]& l RowBox[{, L. w! k! t) Q' F
RowBox[{"0.9125798890455848`", " ",
3 `1 ]. }4 P9 P2 h! I) F$ m8 t SuperscriptBox["\[ExponentialE]", 3 K/ x9 {; p( u' C+ A- C0 a) T" E
RowBox[{"3.1415926535897936`", " ",
$ S7 d) |0 J9 S/ q! O* | RowBox[{"(",
$ K( s) N: _/ Y5 R. M- {' c) y: B RowBox[{4 W u2 \/ L5 _5 ]/ ]
RowBox[{"-", "0.17911224641499998`"}], "-", 0 }$ L! z$ L) N) | g
SuperscriptBox[2 M+ a/ n. B2 z j. s& C- g
RowBox[{"(", ( J, i. X$ C5 ?0 J* b
RowBox[{1 x z( ^" E) k% S/ n4 M) d
RowBox[{"-", "0.530346`"}], "+", "x3"}], ")"}], "2"], "-",
0 Z+ |7 e! j3 T, g SuperscriptBox[
7 ^5 z0 R+ l# I2 T! T$ W RowBox[{"(", 3 h% F) j$ p! o' S% J7 m& s; m' u
RowBox[{
1 `7 y2 f2 y5 i1 W9 R3 f% W5 R RowBox[{"-", "0.529013`"}], "+", "x6"}], ")"}], "2"], "-",
$ c. H ~ D, C SuperscriptBox[$ P; Y; U) ]0 P9 o* s
RowBox[{"(", ' g$ f% T W4 q6 D: O( }$ ]
RowBox[{9 B" q0 o, i0 ~# p, k" V. _
RowBox[{"-", "0.409756`"}], "+", "x7"}], ")"}], "2"], "-", ) u3 m5 H2 ^- g3 {
SuperscriptBox["x8", "2"], "-", + A, u1 I9 [3 |1 b
SuperscriptBox[
* l' S7 ^' }6 Z# g& N8 b RowBox[{"(",
+ j) V3 H& x. O RowBox[{
- G) ^3 Q* m2 Y7 z0 q$ Y RowBox[{"-", "1.`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}], "+",
& ]: u2 o9 z9 A4 F) H8 d; i, \ RowBox[{"0.2883186011296682`", " ",
/ u+ l9 ~! K( i SuperscriptBox["\[ExponentialE]", . _' K/ s6 a( `, L( c0 }* Z
RowBox[{"3.1415926535897936`", " ",
. K- j3 W: K% V% b$ A8 N7 i RowBox[{"(",
; U5 U3 d* l4 P Z! q! p* B RowBox[{5 ^2 M S; f" _
RowBox[{"-", "0.105619387859`"}], "-",
" n( K1 U* E {) W SuperscriptBox[
, f, b4 r. X; O RowBox[{"(", 5 M' x/ ]8 Z p$ ?- U
RowBox[{) ~+ q4 g5 w3 \% X# s8 \
RowBox[{"-", "0.64973`"}], "+", "x3"}], ")"}], "2"], "-",
3 ], m5 U" `. K; k SuperscriptBox["x6", "2"], "-", 2 @. ?, V4 ]' @
SuperscriptBox[
# c7 C9 P# B" i/ n RowBox[{"(", " D/ O. u0 _" x- ]8 {1 C ?
RowBox[{) t, R& _, S* w* M- Y) J( m- \
RowBox[{"-", "0.636585`"}], "+", "x7"}], ")"}], "2"], "-",
6 A3 X+ P: F+ H+ J# ?' F+ @ SuperscriptBox["x8", "2"], "-", - I# {8 ~7 X S {# ^: Z" H g1 v
SuperscriptBox[0 o% `# b; ]( x$ {4 h& z) D
RowBox[{"(",
3 d+ J; `0 ^! m5 F' W RowBox[{
) i6 N. N. ?5 e# i RowBox[{"-", "0.766748`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}], ' g r# ]/ L: C, M* K
"+",
; C3 B% X2 J1 c$ P+ k/ j RowBox[{"0.2115905228598317`", " ", * }, g- I' d2 P9 |
SuperscriptBox["\[ExponentialE]", % D4 |$ U3 T' I8 P* e
RowBox[{"3.1415926535897936`", " ",
; |0 v5 i+ W3 g; H! K RowBox[{"(", - @8 y: c1 K' r$ P* F9 _+ L/ z
RowBox[{* s: F" ]* ]5 y% ~2 i
RowBox[{"-", "0.236605670085`"}], "-", : p1 v4 R1 K. L
SuperscriptBox[
1 Q( Q1 f$ t/ W0 w/ ~; ` RowBox[{"(", : O4 }! J( X, {% c8 F
RowBox[{
% C7 Y2 N5 `$ K3 j% ] RowBox[{"-", "0.109343`"}], "+", "x3"}], ")"}], "2"], "-", : U. v' J. F6 }# @; `" S% K
SuperscriptBox["x6", "2"], "-", , n1 j* ^6 N$ {2 y
SuperscriptBox["x7", "2"], "-",
6 B: y6 F" q4 D+ @3 ]1 g; y' L SuperscriptBox["x8", "2"], "-",
/ z# |# A4 @7 f& C/ g5 g SuperscriptBox[
, s M8 `& s7 c, }$ ` RowBox[{"(",
1 R; y: E1 O0 m RowBox[{
( m3 S" n4 w& R6 b RowBox[{"-", "0.752567`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}],
; E* J/ i7 J. \) k, [- V "-", 0 X) I3 ^; w& J5 ]. T
RowBox[{"0.22829938846668896`", " ",
) J) @: J- F1 I SuperscriptBox["\[ExponentialE]",
- l* g& q$ |* [' O/ ?5 { RowBox[{"3.1415926535897936`", " ", 0 D5 y6 L f% U
RowBox[{"(",
3 N& T O' b+ B* O& Y( S RowBox[{
3 b9 Y! [! ]# {# _" g4 i& G# T RowBox[{"-", "0.46221081830200006`"}], "-",
8 [0 ?* y3 S6 d! U0 b5 m SuperscriptBox[
& X, h0 _! |$ d- h1 B5 O0 T RowBox[{"(",
" b# A7 g- y" D4 C; S- K RowBox[{
7 p! C" Y0 b: {) O+ _% A, [; ]5 ? RowBox[{"-", "0.258697`"}], "+", "x3"}], ")"}], "2"], "-",
; f& ^/ y, q4 z SuperscriptBox[0 K" f& c8 z; h) f0 X
RowBox[{"(",
, K, V b( f4 O8 ~ Z0 L9 F5 g9 A RowBox[{
; Y& e! g; N! B. p/ [ RowBox[{"-", "0.420497`"}], "+", "x6"}], ")"}], "2"], "-",
4 } X4 l1 G3 j SuperscriptBox[" Z- ~' N6 Q1 x; _/ c
RowBox[{"(", ) m$ r" c( U2 v! e
RowBox[{2 B% I3 X( f! d1 F) Y- R: D
RowBox[{"-", "0.535772`"}], "+", "x7"}], ")"}], "2"], "-", 0 N. V1 C3 H0 C- P% Q
SuperscriptBox["x8", "2"], "-",
6 E/ ^: T( t" q SuperscriptBox[
! r- m# i+ U) w2 ? RowBox[{"(",
6 _) {6 s* `9 f1 z RowBox[{3 ]9 g0 j1 S+ ]- |: z
RowBox[{"-", "0.494866`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}],
' `. ]4 Z) \, q2 ], R "+", 8 f( [% Q$ w* b8 S! j8 @
RowBox[{"0.27551257162880105`", " ",
' |, E8 M& D- `- l( [ SuperscriptBox["\[ExponentialE]",
! Y. x* U2 d: ~; M8 N I4 L5 L1 |1 v RowBox[{"3.1415926535897936`", " ",
O7 e3 Q. n5 s7 s RowBox[{"(", + R/ d" h4 W+ n2 d0 |) f8 L2 P
RowBox[{7 J" I, X4 k i% V% Z C
RowBox[{"-", "0.5837889295140001`"}], "-", ! Q; D" M; ?, v. \# r
SuperscriptBox[
- C$ P6 m; @) x+ {* z+ U7 ], O RowBox[{"(", * O% p8 ?$ u5 J* F
RowBox[{9 ?0 v9 ^' O+ X4 }3 W1 y* K
RowBox[{"-", "0.027011`"}], "+", "x3"}], ")"}], "2"], "-", 6 R x5 @3 j; H; ]
SuperscriptBox["x6", "2"], "-",
3 k8 u* w3 |4 ]: G t, ~! S SuperscriptBox[% O& T* K0 @' k
RowBox[{"(",
0 E6 `( q. {( n% m RowBox[{3 @8 O& O0 _5 v- w7 b
RowBox[{"-", "0.452033`"}], "+", "x7"}], ")"}], "2"], "-", % [2 U1 t& Y) O! ^4 x+ X
SuperscriptBox["x8", "2"], "-", ( {; I+ H+ P5 W4 R
SuperscriptBox[/ Z0 D, w' k$ J8 ~
RowBox[{"(",
0 @4 [3 r$ E9 I RowBox[{) F" n2 O: F. ?
RowBox[{"-", "0.278729`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}],
8 R; J$ _. I, i: i c: o' N "-", ) E; H& t/ G& j, a6 B. A; G
RowBox[{"0.12620581913715256`", " ",
' `8 q) R2 f0 B1 U( A SuperscriptBox["\[ExponentialE]", ; i0 i; y0 ?, w: g5 G
RowBox[{"3.1415926535897936`", " ", " ]+ J9 Q- b0 k9 t% e2 j
RowBox[{"(", % }9 Q- v% }7 }0 q* t; _5 t. H
RowBox[{
: ?8 X8 e: Y+ G0 f4 M( m/ G* i RowBox[{"-", "0.19030188470200005`"}], "-",
& L8 a* K9 Y! W- v* T, [ SuperscriptBox[
$ M/ G9 ^2 O2 w6 ?$ M RowBox[{"(", 4 n. Q6 ?3 W* k" a2 p! Y; V+ ~% t
RowBox[{5 C5 I9 n9 A- _
RowBox[{"-", "0.510223`"}], "+", "x3"}], ")"}], "2"], "-", 3 O& O+ w8 \3 h# H+ x
SuperscriptBox[' f+ E7 d' ?* t. T
RowBox[{"(", & m8 L; U" K5 ]8 A" o+ O- i
RowBox[{& h, ]7 j6 j# V4 S
RowBox[{"-", "0.748304`"}], "+", "x6"}], ")"}], "2"], "-",
0 m2 Z, s8 w6 K/ r SuperscriptBox["x7", "2"], "-",
3 h3 n# y' G5 l1 v/ m; ] SuperscriptBox["x8", "2"], "-",
2 ?; J$ W- Q1 x* m" Y" Z SuperscriptBox[
8 P* g4 u$ n7 n, ~ RowBox[{"(",
. s$ [( q, N6 j RowBox[{
) _$ r- F" ~" V$ y4 A: X0 e RowBox[{"-", "0.243032`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}], - E. [6 W: q" P8 G9 r
"+", ' Y0 U `8 O6 Z/ i
RowBox[{"0.12782130225993898`", " ", 4 K. h/ K- F- p1 q; n
SuperscriptBox["\[ExponentialE]",
. m* m( U: s) E @ RowBox[{"3.1415926535897936`", " ",
' P. H1 D* w9 B% i( ~: P( T RowBox[{"(",
' c* L( P4 ]9 b* J RowBox[{9 G: b$ x# }0 \9 ~
RowBox[{"-", "0.28518780882`"}], "-", 0 }' v4 I! E1 D# L
SuperscriptBox[8 ~4 i% t. ]1 C
RowBox[{"(", ! O" c3 H# [- b+ G
RowBox[{
& }. m1 u0 Z, W% J. a RowBox[{"-", "0.158058`"}], "+", "x3"}], ")"}], "2"], "-",
3 r% G" [3 c- F0 H8 q) T SuperscriptBox[4 \3 ?- Y% d4 z1 Z/ n: @( ^
RowBox[{"(",
0 ~. v5 B* i. M* H! [& N7 l4 J RowBox[{7 ~: e' O! z! B, o
RowBox[{"-", "0.166541`"}], "+", "x6"}], ")"}], "2"], "-",
. Z# J; J% P/ o% ~# P8 P' _6 S" i SuperscriptBox[
0 E3 {- q, V- x4 v RowBox[{"(", - H, o( r: `' R) C8 J
RowBox[{3 D8 f) Z% H4 J' A
RowBox[{"-", "0.278049`"}], "+", "x7"}], ")"}], "2"], "-",
! Z4 Q8 P r- V" B SuperscriptBox["x8", "2"], "-",
2 u, x' _3 G# p- F0 g+ B: ]4 w SuperscriptBox[
, x$ R' t! L- L/ z* B8 N' i# _ RowBox[{"(", b0 A! c% n4 R6 {1 ]; E* P
RowBox[{7 }0 C/ D( O9 B8 e3 C9 R
RowBox[{"-", "0.236675`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}], % \ q* i/ Z( d/ O" K
"+", $ P. O: C- ?+ y
RowBox[{"0.23615247809381104`", " ", 6 x# s0 `: z2 S5 z
SuperscriptBox["\[ExponentialE]",
. ]' A+ S8 R- C7 |0 q4 L9 A: r6 n3 z0 V RowBox[{"3.1415926535897936`", " ",
, T3 c6 h: N) ^ RowBox[{"(",
5 A+ t4 K% W+ C3 h( ]0 X- M3 E1 q RowBox[{( U* l$ b5 w( U1 G2 V j
RowBox[{"-", "0.11387365200400001`"}], "-", H) V) C' `5 E r. n; f3 J
SuperscriptBox[
9 H7 t' C: l: t8 U* Z- o3 Y RowBox[{"(",
: }/ c) `$ F) E0 [, g( {$ n$ x RowBox[{
3 W, \4 ^) H& f. x+ W% _% m! S' H RowBox[{"-", "0.177646`"}], "+", "x3"}], ")"}], "2"], "-",
& \8 g X V( H1 ^ SuperscriptBox[* _. o0 C) Q. r/ u( o
RowBox[{"(",
, p5 s' w! V- u @8 P; k RowBox[{
+ N. P: B" j$ O; @/ T RowBox[{"-", "0.502638`"}], "+", "x6"}], ")"}], "2"], "-", # M# I/ _- N; ], T
SuperscriptBox["x7", "2"], "-",
5 Y$ J( W; l8 M6 e SuperscriptBox["x8", "2"], "-", , Y( }( b. }+ O$ j! T
SuperscriptBox[
$ A7 n9 L# G2 D7 Z# {+ m RowBox[{"(", $ x4 M4 n' Z) G; F- p% S
RowBox[{4 w; q" K. K/ U) t4 ]2 c
RowBox[{"-", "0.178973`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}],
1 r5 P( T, R1 U2 t7 d$ m @; t: I "+",
0 t$ T% S- ^7 C' c3 K- }1 }+ i RowBox[{"0.3207174990295845`", " ", . V- ?" G% ], k% u9 a
SuperscriptBox["\[ExponentialE]", 8 t( @7 c$ ?" X n& K% h; A
RowBox[{"3.1415926535897936`", " ",
; C e3 }' }/ Y2 j+ o1 C. ? RowBox[{"(", / u4 z) K. }( L$ h
RowBox[{
' ^. m+ r1 F9 m8 m" L* n RowBox[{"-", "0.11442644782500001`"}], "-", - t5 v' |5 b6 b0 n
SuperscriptBox[# w2 M/ s+ ]. T" m& S
RowBox[{"(",
0 ?7 u( `* {$ m$ G6 P RowBox[{
: r6 M }! E D& I# H# ~3 _ RowBox[{"-", "0.33973`"}], "+", "x3"}], ")"}], "2"], "-",
( x& W* D6 D( w& t' m6 E6 O SuperscriptBox["x6", "2"], "-",
% o5 \* i8 ^; L! S) H' z- Q: @ SuperscriptBox[
; \/ v, `9 R3 g0 p9 e3 R1 \ RowBox[{"(",
/ N6 ^; H( }* P" Y RowBox[{
$ c9 }/ q/ g0 L; u) Z RowBox[{"-", "0.636585`"}], "+", "x7"}], ")"}], "2"], "-", ! N: H, x) @ t# Z3 v, Z" P+ h
SuperscriptBox[
$ x$ o8 c9 w9 @$ Q C8 D5 Z2 T2 j RowBox[{"(",
+ e3 C; K/ g! F RowBox[{
* ]) E4 ~0 K$ Z8 @ RowBox[{"-", "0.780463`"}], "+", "x8"}], ")"}], "2"], "-",
" L2 r$ m3 k8 `4 P: m" T SuperscriptBox["x9", "2"]}], ")"}]}]]}], "-", 5 b% c( a3 n2 V1 Q' Q
RowBox[{"0.15852708848338293`", " ",
6 D; p" r' d4 P7 p1 L7 @& J SuperscriptBox["\[ExponentialE]",
: \$ j, X, v% y/ d* a RowBox[{"3.1415926535897936`", " ",
- x, ]( N# E: o9 ^; H# o RowBox[{"(", : S" v$ q S0 |% b; a
RowBox[{
6 h# l. B( W6 w* W RowBox[{"-", "0.21008576609800003`"}], "-", . G" c$ L; V* ?& q) g& P: c
SuperscriptBox["x3", "2"], "-",
# _ @- K% H8 F SuperscriptBox["x6", "2"], "-", 8 n# c4 Z" m3 d
SuperscriptBox["x7", "2"], "-", 7 g6 D' k: E% h1 J$ O1 ?
SuperscriptBox[! ~+ a6 H! B5 e! M, M
RowBox[{"(",
/ n) A. d5 |- B8 z. X$ g RowBox[{" @( x: N, F* V4 Z% F9 F
RowBox[{"-", "0.672709`"}], "+", "x8"}], ")"}], "2"], "-",
* m& T* Y# ?& Y+ A, t9 m. m( R SuperscriptBox["x9", "2"]}], ")"}]}]]}], "+",
" T' e2 G( h i, M* \& I% ]& O/ `% O RowBox[{"0.6019775648968266`", " ", # A; K ?1 \& ~( H- ]( F# g' x5 p
SuperscriptBox["\[ExponentialE]", 5 d& E6 B3 B! u& G( t# i, C) e- o
RowBox[{"3.1415926535897936`", " ",
1 h! o7 D- R$ n- y. }$ O& I8 H RowBox[{"(",
; k: D& A2 @# z" K RowBox[{/ B, X/ o$ J# q7 q8 v% [6 A
RowBox[{"-", "0.4481471925460001`"}], "-", ; y a: {! t6 t! I: L/ i& F7 b* |
SuperscriptBox[- M! @: _* Y- y$ S$ C/ S: Y) G6 p
RowBox[{"(", " |6 ] ^& ^. m8 ]; _1 ^
RowBox[{/ t4 s. n$ `, L3 M6 n! N
RowBox[{"-", "0.452931`"}], "+", "x3"}], ")"}], "2"], "-",
8 u; l$ {5 m. ~9 {% }6 C SuperscriptBox[4 M- B! O; T6 e. q
RowBox[{"(",
4 @( _* | ` J RowBox[{( L# E; R5 R8 K; m% I
RowBox[{"-", "0.370761`"}], "+", "x6"}], ")"}], "2"], "-",
" M9 z. f5 ^" g SuperscriptBox["x7", "2"], "-",
+ |/ u( ]. y T SuperscriptBox[
( Z- c. t9 I* L! `6 c$ K" ? RowBox[{"(",
6 Z6 P# k8 u+ L; Y) Z! ~' W8 t5 |" } RowBox[{8 S( Y7 H o" A- s; }
RowBox[{"-", "0.509567`"}], "+", "x8"}], ")"}], "2"], "-",
3 w f: w% V {3 Y2 K5 U SuperscriptBox["x9", "2"]}], ")"}]}]]}], "+",
! f$ `3 n) e# B% n0 j6 \ RowBox[{"0.16041393254115266`", " ",
5 C$ e; T9 t# c1 B' W7 [" f SuperscriptBox["\[ExponentialE]",
! L' f' j9 R+ h/ q RowBox[{"3.1415926535897936`", " ",
/ q# @) I3 [9 v/ m+ k RowBox[{"(", 0 X/ G4 a$ k+ l4 b0 W T2 g
RowBox[{
7 ` Q) ~4 ^2 F% N# _ RowBox[{"-", "0.08722659614000003`"}], "-",
- ?' _6 w: w9 z9 w2 G! M. D! L3 A. s SuperscriptBox[
! _$ K- i4 H- B RowBox[{"(", : M( w0 o9 {- K. t. |$ a$ n. X- i
RowBox[{2 K( _, d9 S; F( U/ T2 P9 B" i( B) _
RowBox[{"-", "0.4943`"}], "+", "x3"}], ")"}], "2"], "-",
( g9 Y! ?; P5 t, s$ Z/ e SuperscriptBox[/ B# \ S6 e9 ^( J. @1 }- \
RowBox[{"(",
7 d: Y0 ?% ^8 `2 [ RowBox[{* f. F. m5 n' ^. {" k6 \# o$ j
RowBox[{"-", "0.375283`"}], "+", "x6"}], ")"}], "2"], "-",
; z. g& E( u |) v+ ?( i SuperscriptBox["x7", "2"], "-",
; h3 R8 [/ K& U; H2 a SuperscriptBox[
9 b4 A: H9 c8 f RowBox[{"(",
1 @. ]( y; D, v; ]* v RowBox[{, I1 L1 b; E6 [' L5 u
RowBox[{"-", "0.505539`"}], "+", "x8"}], ")"}], "2"], "-", ( F! H9 |$ C0 x8 M4 d% U
SuperscriptBox["x9", "2"]}], ")"}]}]]}], "+", 4 i+ w! V7 \) W& m! Y3 e1 F V3 g
RowBox[{"0.482281849713638`", " ",
; P% S$ M, b0 j* ?$ P5 S- X SuperscriptBox["\[ExponentialE]",
& M3 W! h5 q- X( T% |3 s* K RowBox[{"3.1415926535897936`", " ",
0 O( a* G9 } c9 o& C4 p- h RowBox[{"(",
, `7 j$ g+ D9 H% G" A, c$ ? RowBox[{, w; D) [; ?. h; P
RowBox[{"-", "0.23738217000100004`"}], "-",
s: O5 e, O* q, ?" t; F SuperscriptBox[
, X1 b6 Y6 d3 [7 Y& j `: g4 W' Y. k RowBox[{"(", 4 J# ~- m! Z, m% f
RowBox[{8 e$ u2 p: k( P7 A8 ?3 N: v4 t
RowBox[{"-", "0.33037`"}], "+", "x3"}], ")"}], "2"], "-",
0 X f' g' b6 S! q5 n" @ SuperscriptBox[/ Z$ s( h2 I8 O) c# R# Q' e
RowBox[{"(", 6 d% b ?' h% A
RowBox[{
6 \/ m5 i5 F5 S7 O3 B3 Z RowBox[{"-", "0.752072`"}], "+", "x6"}], ")"}], "2"], "-", % P: j! [& K8 i8 g. F8 |
SuperscriptBox[
# j. T1 A' d$ ?5 f* f7 b V5 R RowBox[{"(", / I, C O! S4 d# e
RowBox[{" G0 u; B0 o0 Y( Q' K' N
RowBox[{"-", "0.408943`"}], "+", "x7"}], ")"}], "2"], "-",
' s. r/ |% T5 E8 q4 f7 ]1 P SuperscriptBox[0 R; G( N! z) A0 P
RowBox[{"(",
Y+ `2 {2 M- z( D; j RowBox[{0 h. t3 j5 j" L( p5 A: y- U
RowBox[{"-", "0.504532`"}], "+", "x8"}], ")"}], "2"], "-",
9 U" E+ E8 X+ O% ~0 e `) x- p8 o SuperscriptBox["x9", "2"]}], ")"}]}]]}], "+", - Q" e4 i; ~9 r" h. R0 _+ N
RowBox[{"0.29549238400772093`", " ", 3 ]7 O9 p) d0 ?3 Z: f1 l
SuperscriptBox["\[ExponentialE]", 7 H/ i" p) K( x; u. ^% q$ H% X
RowBox[{"3.1415926535897936`", " ",
9 X9 c# c. s6 \' w: |& C RowBox[{"(", $ t. r8 c# s$ G! i( Q3 R9 q
RowBox[{2 T" w- B( L; ]. ]2 l2 L
RowBox[{"-", "0.19162171876400003`"}], "-", ! W. e/ A) y( o. N2 u
SuperscriptBox[+ }) i( i6 l% D5 i. R# J m6 j
RowBox[{"(",
* k. Z( z& E% z/ V, I- M RowBox[{' l7 P5 I* J. P) j3 p6 z. w( n
RowBox[{"-", "0.544826`"}], "+", "x3"}], ")"}], "2"], "-", ; @% r% [3 f4 U9 }! a) J9 }0 n
SuperscriptBox[1 d# c: ], k1 U5 p
RowBox[{"(",
9 b4 M8 |, A. @" y RowBox[{
$ E" `2 `4 m% f0 n: u RowBox[{"-", "0.53052`"}], "+", "x6"}], ")"}], "2"], "-",
3 v5 D$ `7 S: Q) @1 z SuperscriptBox[3 ~& w: A) X, q3 D& a" C
RowBox[{"(", 5 @8 w3 t2 W! O. j8 x, C- e; w
RowBox[{
% I$ Q! J" R k/ y RowBox[{"-", "0.819512`"}], "+", "x7"}], ")"}], "2"], "-", , H s5 [( e u
SuperscriptBox["x8", "2"], "-",
" J1 ?8 H* `7 p# P+ ~. J- ^) d: ~ SuperscriptBox["x9", "2"]}], ")"}]}]]}], "+",
0 q( F% p2 U( W% Q- O RowBox[{"0.31296872769679895`", " ",
) {! N, C/ H5 ^7 G5 u5 i+ t# u8 Q SuperscriptBox["\[ExponentialE]",
, @. ~) d; L2 D/ ] RowBox[{"3.1415926535897936`", " ", , D" d4 I8 k9 X+ o
RowBox[{"(", ! y- _# Z. i5 @% \% b8 ]
RowBox[{' U7 P1 U- m+ k ^2 Z5 V
RowBox[{"-", "0.109748954594`"}], "-",
0 E: }7 B( v- _. v- R* m SuperscriptBox[
( Y, q) y% K) H1 C5 b RowBox[{"(", , |( h! C# E4 e6 _9 p- Q" t
RowBox[{
. @" y+ h0 w9 y+ O: Y" U RowBox[{"-", "0.160584`"}], "+", "x3"}], ")"}], "2"], "-",
. A. a* g8 M T& n4 s3 N3 R: W) B& Z" p, @ SuperscriptBox["x6", "2"], "-", ) X0 _- w9 n9 p. B6 Y2 K/ |8 Y: G# D
SuperscriptBox[ H# j- P. s! V6 T; v6 d
RowBox[{"(", _' D0 }7 d# j% T: l; Y# F
RowBox[{' t( l, \# y& F; U
RowBox[{"-", "0.684553`"}], "+", "x7"}], ")"}], "2"], "-", 8 H3 _# r1 i3 ~* i* q9 u: x8 e
SuperscriptBox["x8", "2"], "-",
% Q1 j3 @5 L; R, O' m SuperscriptBox["x9", "2"]}], ")"}]}]]}], "-", ( j0 V1 T4 \# t y- T# Q: y$ z
RowBox[{"0.4666313851213299`", " ", 1 \" V! @+ W6 n6 r1 |* |
SuperscriptBox["\[ExponentialE]",
: C% U/ x- I' ^* _* l1 P$ s% R5 C RowBox[{"3.1415926535897936`", " ", 1 [3 g6 ?4 v; ~! t0 z( F( W
RowBox[{"(", , \* [$ k# V) C1 T8 j J
RowBox[{( z: N# D- P5 B; `& J2 x
RowBox[{"-", "0.14616677062500003`"}], "-", . m; k: v4 U: y- t- q, p( F
SuperscriptBox[4 \8 F' b( L! B- h* p
RowBox[{"(",
# x% X0 K! h+ Y6 ^ RowBox[{, ?( T# s$ B; p2 e& H
RowBox[{"-", "0.414297`"}], "+", "x3"}], ")"}], "2"], "-",
, N( u3 k# z/ z% { SuperscriptBox["x6", "2"], "-", / n7 q: i ]# }: o: K/ C- I
SuperscriptBox[
" n% U' | j( V. {: n$ f. R RowBox[{"(",
) v" [( H) b; t7 L; n: F RowBox[{
7 k+ N M* G) [1 c5 V* s* h RowBox[{"-", "0.544715`"}], "+", "x7"}], ")"}], "2"], "-", 9 N; [9 e+ Z) \: D
SuperscriptBox["x8", "2"], "-",
7 y5 @" m' O' { SuperscriptBox["x9", "2"]}], ")"}]}]]}], "+",
( M9 [% D- Z/ l7 d( W5 Z% t RowBox[{"0.37419828116611387`", " ", 7 f4 M$ o( d# B/ @) L& m* A
SuperscriptBox["\[ExponentialE]", 4 X; d( N3 I7 r& \- a
RowBox[{"3.1415926535897936`", " ", 8 U' T. ?6 ] n3 l. P4 k
RowBox[{"(", # {$ ?2 X0 i+ w! s7 p$ l
RowBox[{
/ A4 Y3 M# y, c; V6 j; Y' S RowBox[{"-", "0.10407011464100005`"}], "-",
+ L3 U1 e6 s0 J* g/ \7 o SuperscriptBox[$ X: @5 x5 K0 t! `/ i" S4 ^% q5 M) O
RowBox[{"(",
/ \* y7 h& f& v6 |2 i RowBox[{, q, k# C! V1 q2 i
RowBox[{"-", "0.3555`"}], "+", "x3"}], ")"}], "2"], "-",
5 l: k/ a/ [. J' p SuperscriptBox[
# P$ l8 a8 c( k9 d RowBox[{"(",
* O8 @4 F B- I1 F RowBox[{
& l9 I t9 y$ Q2 Q9 ?) } RowBox[{"-", "0.37679`"}], "+", "x6"}], ")"}], "2"], "-", 3 [& K8 I1 b( d( y$ g5 |( |8 S
SuperscriptBox[
9 T6 f7 ?: `$ x RowBox[{"(", # \( y* Z& X. F) M
RowBox[{( i' D+ {4 \: r) Z: J4 R
RowBox[{"-", "0.411382`"}], "+", "x7"}], ")"}], "2"], "-", $ C* l! U6 Y4 \7 H! ]
SuperscriptBox["x8", "2"], "-", 6 d0 g8 W G5 w9 S. n& t6 M1 X
SuperscriptBox["x9", "2"]}], ")"}]}]]}], "-",
! h& z* A I ^. _1 J4 E3 S RowBox[{"0.025873988843992612`", " ",
" N& s. y" L$ I2 u' ^- q SuperscriptBox["\[ExponentialE]", 0 I" o4 p; h- m
RowBox[{"3.1415926535897936`", " ",
- U7 o0 p- H' E RowBox[{"(",
, }: y c6 O2 t- [" `8 |- q RowBox[{
7 P% `' y/ u/ l" L% V8 z. U: W! P RowBox[{"-", "0.31770463544200006`"}], "-",
* a' E+ U) }3 k) i+ e SuperscriptBox[
0 ^; m* ]0 s6 w4 I( j$ Z& a; E) v RowBox[{"(", # t7 S% c: z8 H" z- r$ A# @
RowBox[{
2 O8 ~- n1 w% C RowBox[{"-", "0.655012`"}], "+", "x3"}], ")"}], "2"], "-",
- X. @# y: X ? SuperscriptBox["x6", "2"], "-", : u4 V# c+ S$ O8 Z
SuperscriptBox["x7", "2"], "-",
% ^$ }# @/ L% @9 a SuperscriptBox["x8", "2"], "-", Z& Q6 l# B, R( m0 b0 m
SuperscriptBox["x9", "2"]}], ")"}]}]]}], "+",
, y! { j8 R" ?7 M! P* o! _8 e9 y RowBox[{"0.5575503376854455`", " ", ( I$ _9 ~- x; c
SuperscriptBox["\[ExponentialE]",
8 j% @9 ?6 K6 s1 Z! h, e RowBox[{"3.1415926535897936`", " ",
5 k, z& Z/ x3 Z( a" i3 \ RowBox[{"(", 0 ? |* B! d5 N
RowBox[{! \- k9 ]* ?( p
RowBox[{"-", "0.6410867660730001`"}], "-",
" X' ~# y/ B7 ?9 [2 f. l }( z- u SuperscriptBox[
+ T h' y% ^( {' w RowBox[{"(", 9 ?( E) `$ ]4 T. B( t, V1 X7 L% f( G
RowBox[{
7 d' w3 [$ K6 _' ^: u, D: k RowBox[{"-", "0.420753`"}], "+", "x3"}], ")"}], "2"], "-",
% a7 [- x: U) N. C SuperscriptBox["x6", "2"], "-", - e$ s% N/ A: j" Y# I6 l4 k
SuperscriptBox["x7", "2"], "-",
6 ^' [/ W& ?2 O( t SuperscriptBox["x8", "2"], "-", 7 @2 p5 ^8 T* M# G7 c1 l
SuperscriptBox["x9", "2"]}], ")"}]}]]}], "-",
; V! r4 W# F% H7 B* N3 p RowBox[{"0.13398540448199214`", " ",
* ?( e$ _ `2 r# R: ] SuperscriptBox["\[ExponentialE]", 3 y8 i6 F' |8 h* v& G) U4 `) H
RowBox[{"3.1415926535897936`", " ", 5 B! U" r0 |4 r$ z$ I. b5 n7 u8 W
RowBox[{"(",
9 T" m8 i) _) b. H4 ^% ` RowBox[{
- _1 Y& d) z4 y+ i3 b RowBox[{"-", "0.155663887074`"}], "-",
; O# z+ ^0 i3 S; `+ T3 L' [7 c8 h SuperscriptBox[, J/ s `- ~8 Z7 ]
RowBox[{"(",
6 J- B! k; D0 d6 S; i RowBox[{7 a e0 K- x) q1 ^ L* M
RowBox[{"-", "0.267704`"}], "+", "x3"}], ")"}], "2"], "-",
. l, l+ x) ^0 { SuperscriptBox["x6", "2"], "-", # w! h# _- L' @' O- l" r8 u: O
SuperscriptBox["x7", "2"], "-",
7 z! c4 R/ O' I/ l9 z$ u SuperscriptBox["x8", "2"], "-",
' \$ L. F) U$ |7 G4 Z) | SuperscriptBox["x9", "2"]}], ")"}]}]]}], "+", ( @$ F# T2 [2 i* b( i
RowBox[{"0.4572385099113415`", " ", 9 G- B: q- v* {6 f( k1 b
SuperscriptBox["\[ExponentialE]", " T0 _9 i- H; x9 n# f6 v" j
RowBox[{"3.1415926535897936`", " ",
- _$ g6 |5 w" f" f: a6 S3 z RowBox[{"(",
) k5 G+ S' }1 O6 C0 t RowBox[{
/ [4 P7 w+ e, b6 [9 @ RowBox[{"-", "0.14151232428600002`"}], "-", 5 B! [/ Q2 S8 T1 V8 C @! c! U
SuperscriptBox[
- t3 @7 T+ d6 J1 A1 P7 D1 Z# A RowBox[{"(",
; \) c, x n! i$ F: ` RowBox[{) [7 ~, J) v( |8 ~* u4 B* B
RowBox[{"-", "0.234619`"}], "+", "x3"}], ")"}], "2"], "-", / S$ t7 F+ b6 w8 E7 C& F
SuperscriptBox["x6", "2"], "-", ) \6 w7 @( J0 q; [" ~
SuperscriptBox["x7", "2"], "-", ) b; |; f# f. ~ O
SuperscriptBox["x8", "2"], "-",
% G% M- E3 k' N; H SuperscriptBox["x9", "2"]}], ")"}]}]]}]}]], "Output",
9 |8 O' P! a' {0 A: P CellChangeTimes->{3.577962841401445*^9}]
. I3 t6 g# ^' d1 B% [1 c* s' w}, Open ]]. J; X) @9 t b( @3 t' O' m) F
}," Y, Q* Q- _3 e5 K
WindowSize->{1093, 659},
B, e0 L. ^, JWindowMargins->{{61, Automatic}, {Automatic, 15}},4 B/ [7 V; V) ^. T: O u
FrontEndVersion->"7.0 for Microsoft Windows (32-bit) (February 18, 2009)",7 _0 G/ m* r% d; P
StyleDefinitions->"Default.nb"
( C& v3 y& L A, R]
% F$ J3 f% u9 {4 A2 Z' G/ y2 @(* End of Notebook Content *); F0 e7 x& j! S& @
r C$ l2 g& C G* D) F+ V
(* Internal cache information *); p: j% ?# X ^) ]3 x
(*CellTagsOutline
. j3 j w9 T7 b% M( RCellTagsIndex->{}
( n/ D5 j+ {0 L7 s7 ^) x*)+ X3 ^* c A* I5 Q& s |# a4 q
(*CellTagsIndex$ P/ ^ i4 b3 }8 ]7 |
CellTagsIndex->{}! a4 q, |- U4 K8 i$ Z9 k+ s
*)2 ]* I) ~3 x* i1 i: n; Z
(*NotebookFileOutline
$ d- L$ X* T+ z1 |Notebook[{2 u- T1 [8 U; l# ?% K7 m
Cell[CellGroupData[{
: H0 N9 R) c3 O4 W c( R6 g* T3 ECell[567, 22, 22639, 450, 1792, "Input"],
" A( e# Y8 K8 R1 U. e. H6 G6 V8 ?Cell[23209, 474, 21281, 449, 1703, "Output"]& K# o1 C' N! n$ @# ~3 [& H9 R
}, Open ]],! N7 X/ ?! U6 Q3 H q% w
Cell[CellGroupData[{
1 _3 X. f. s: s( bCell[44527, 928, 198, 5, 31, "Input"],
# b1 H0 d1 b, ]! e2 Q0 P+ \: ~, F" `Cell[44728, 935, 53666, 1605, 1532, "Output"]3 U: o) F8 R% m9 ], \7 I
}, Open ]],
7 {9 `3 \' t6 F$ X" v9 PCell[98409, 2543, 614, 16, 112, "Input"],
3 e+ \2 \' ?4 QCell[99026, 2561, 667, 17, 72, "Input"],* s4 f4 J5 ?! Y. G1 y( [% T
Cell[CellGroupData[{. {9 {8 V) ]; `1 T6 F& x
Cell[99718, 2582, 885, 13, 52, "Input"],, v' l% f, \( |+ I& ~
Cell[100606, 2597, 935, 14, 30, "Output"]," a6 h8 i/ j1 O* D- J. t1 @
Cell[101544, 2613, 932, 14, 30, "Output"]; Z1 M3 K! l+ V3 q& z5 F- K! j6 R
}, Open ]],
; @* X m: j3 ^: QCell[102491, 2630, 4236, 93, 412, "Input"], b8 I7 |: `! b
Cell[CellGroupData[{
5 E3 k- Z J L7 g; C2 yCell[106752, 2727, 90, 1, 31, "Input"],. B/ h4 }/ {) H2 I9 Z
Cell[106845, 2730, 872, 13, 30, "Output"]
# a% b/ m# Y0 y9 Z}, Open ]],0 c% R5 H3 h! ]; h
Cell[107732, 2746, 458, 10, 31, "Input"],1 o# F5 D. O. F0 F: s4 k
Cell[108193, 2758, 126, 2, 31, "Input"],
1 ^! e4 |. s7 J BCell[CellGroupData[{
4 v9 P1 J% }& z. F2 zCell[108344, 2764, 248, 6, 31, "Input"],2 C8 O! [, J3 K, X: F% c
Cell[108595, 2772, 1007, 17, 30, "Output"]
$ w- U- x s0 G. i& k/ Z8 O( F}, Open ]],5 C) I* Z- H* d; T
Cell[CellGroupData[{
7 e: r& {6 M% D$ QCell[109639, 2794, 251, 6, 31, "Input"],
. d+ l- L# ^: {) [( y0 ^' |Cell[109893, 2802, 1013, 17, 30, "Output"]1 n2 a! e. `# R2 `- R
}, Open ]],7 k- C/ I6 k* X; W+ H ~7 ?
Cell[110921, 2822, 1232, 23, 31, "Input"],6 E% t% V, M( R7 H9 V! m6 v
Cell[CellGroupData[{
5 T3 n( v" M1 M4 _Cell[112178, 2849, 147, 5, 31, "Input"],
0 H/ @$ b2 o5 X9 f) VCell[112328, 2856, 1979, 50, 50, "Output"]
1 L: P3 P G9 n. s. s}, Open ]],# ?% S8 K0 L7 U! k' A! S
Cell[CellGroupData[{
4 A. w/ z, Q; l: Z2 n R! m8 ACell[114344, 2911, 195, 5, 31, "Input"],
* e. i K$ l" E( j8 _, p+ O2 }: Y1 G9 PCell[114542, 2918, 123, 2, 30, "Output"]/ Q/ ~; z# v$ U+ B
}, Open ]],
) G$ N; T r9 t( r# nCell[CellGroupData[{
% T t( F0 f& D- |Cell[114702, 2925, 144, 4, 31, "Input"],! Q) L. {: b0 C. \+ O; Y) { w% M
Cell[114849, 2931, 96, 1, 30, "Output"]
; w+ P0 H) G3 B6 F# S}, Open ]],
& C5 z4 {! r- c+ uCell[CellGroupData[{
' E' Q8 f. D% ^/ sCell[114982, 2937, 146, 4, 31, "Input"],
: m. e* t- N3 [' C b5 b' KCell[115131, 2943, 495, 7, 30, "Output"]
7 _5 H+ |8 S6 D4 k/ r. ^# `}, Open ]],! s: p+ f% C5 i/ w
Cell[CellGroupData[{$ `" T. `# c1 @: K4 P
Cell[115663, 2955, 144, 4, 31, "Input"]," \* l* P: {3 K k( ?% ?+ i
Cell[115810, 2961, 418, 6, 30, "Output"]
h3 y4 e; l3 f, n7 Q}, Open ]],
% ^( x$ H* `/ k! U4 DCell[CellGroupData[{
& u. _- z( X& ^8 FCell[116265, 2972, 144, 4, 31, "Input"],% M" P! N; [4 h4 C
Cell[116412, 2978, 549, 8, 30, "Output"]- F6 z- A; Q" |$ s) `- H. K
}, Open ]],+ ~+ W2 o1 T, x2 L$ Z* ?- @
Cell[CellGroupData[{
9 Q, o" {5 z$ v) g% ECell[116998, 2991, 537, 10, 31, "Input"],
% p- z. X1 B7 ~Cell[117538, 3003, 998, 14, 30, "Output"]) T, `+ E; f& F h& U2 K, }+ d5 k
}, Open ]],$ ^9 T2 v5 J/ s( U& r4 z
Cell[CellGroupData[{
; p f2 c: ^: k) `/ ` ?Cell[118573, 3022, 2321, 55, 44, "Input"],
6 U: l. ^, t/ D8 OCell[120897, 3079, 1541, 38, 91, "Output"]
" K: q/ L- y7 H; B! z}, Open ]],/ q) a& J8 w; a: H( ~5 [5 V
Cell[CellGroupData[{, S% i6 `& [+ V$ u& M) m
Cell[122475, 3122, 856, 19, 87, "Input"],
y$ s( |$ B# |0 `- iCell[123334, 3143, 568, 14, 91, "Output"]
4 p& `* e' G( y! Z}, Open ]],& w9 j$ N0 V+ k( |+ o# v: Z
Cell[CellGroupData[{
8 q) ^) f t" SCell[123939, 3162, 437, 10, 31, "Input"],
8 T2 E0 m C/ E3 H+ F0 L# S/ FCell[124379, 3174, 739, 12, 30, "Output"]8 i6 I7 `+ P7 l2 W. { @
}, Open ]],
4 b7 ]$ ?4 O2 d4 I7 T$ ACell[125133, 3189, 242, 3, 31, "Input"],
' f+ \% b+ x0 dCell[CellGroupData[{
* S, I8 E4 R' HCell[125400, 3196, 109, 2, 31, "Input"],
/ B( O% \0 k/ `1 Z4 s9 tCell[125512, 3200, 323, 7, 30, "Output"]
: Z8 @4 P3 O0 h+ `; {* L, H9 _}, Open ]],
8 u6 |; k4 N7 _9 j2 ]Cell[CellGroupData[{4 R2 [5 ?; c) y1 N3 ]) h" r& k
Cell[125872, 3212, 526, 15, 31, "Input"],* J( E! B; T1 l
Cell[126401, 3229, 1436, 44, 36, "Output"]
, S# |9 J* s2 u5 z% Q% I}, Open ]],: E% p4 ]4 e4 v' H4 o* n2 P
Cell[CellGroupData[{
- `2 i) v/ J7 I/ n0 lCell[127874, 3278, 92, 2, 31, "Input"],+ r: V4 a: g$ S/ Y" i9 ]6 c
Cell[127969, 3282, 326, 7, 30, "Output"]7 r. k: ^4 r) C, c* L. L
}, Open ]],# q T/ Q7 Z r; G4 w( v
Cell[CellGroupData[{1 }) _' }& s! Z0 C3 [
Cell[128332, 3294, 388, 13, 31, "Input"],
7 ]/ C7 V# |; C" Q8 o; ZCell[128723, 3309, 1381, 42, 36, "Output"]
5 z0 P: s: ?$ z6 b}, Open ]],
' e m# E: X! T8 w7 F+ |3 KCell[CellGroupData[{2 q5 o% l% R# E! M
Cell[130141, 3356, 89, 2, 31, "Input"],
4 g9 e1 s& I7 v% f0 J* `# M8 uCell[130233, 3360, 320, 7, 30, "Output"]
$ O, t) ]7 I. o. f, v: X5 B3 }6 W}, Open ]],, g' O7 ~2 C# r
Cell[CellGroupData[{
+ R. R6 O% N/ N- }& cCell[130590, 3372, 387, 13, 31, "Input"],
% L2 w. T8 M. m- ICell[130980, 3387, 1381, 42, 36, "Output"]% I& w# E% Q3 A$ \2 v" J+ V
}, Open ]],8 |/ A9 B' X/ t8 I/ p l
Cell[CellGroupData[{# y# [ h% q8 w0 I1 l/ s% R( o! r
Cell[132398, 3434, 91, 2, 31, "Input"],$ a; X; ^) g8 N; ~& Q3 Y7 j
Cell[132492, 3438, 328, 7, 30, "Output"]
7 q" ^6 _* J7 ?- N9 Z8 i. ~2 V}, Open ]],
* ?0 E9 H9 n1 F3 RCell[CellGroupData[{
7 U* T2 e( q$ j$ c/ V/ M* _- O7 M4 K. kCell[132857, 3450, 384, 13, 31, "Input"],. ^4 d$ q$ E5 j2 V& L
Cell[133244, 3465, 1379, 42, 36, "Output"]6 v9 C6 A9 A5 z$ c/ Q- N
}, Open ]],; S5 @+ n0 Z* _' B$ X
Cell[CellGroupData[{
# f9 X: q0 W; w1 f1 x. y, z4 hCell[134660, 3512, 93, 2, 31, "Input"],
( m# b7 N' c9 d; P4 m( zCell[134756, 3516, 322, 7, 30, "Output"]
9 Z1 V7 n- D1 L! h" [}, Open ]],- P2 ?/ ]5 ^2 [; }2 B, L
Cell[CellGroupData[{
0 g' E' w6 t$ i8 G3 r4 v j$ p ?Cell[135115, 3528, 385, 13, 31, "Input"],% g3 x* @: ?. ? w) _
Cell[135503, 3543, 1379, 42, 36, "Output"]
" N2 p7 `7 ~* P}, Open ]],
) m' Y7 `2 {# _! b- iCell[CellGroupData[{
9 V T7 U. ?0 ?+ V0 D& d/ P. SCell[136919, 3590, 113, 2, 31, "Input"],7 o; D, h! y2 J+ d+ b2 @4 L
Cell[137035, 3594, 348, 7, 30, "Output"]
; X0 B8 r7 n6 L}, Open ]],
( h* F( t: Z" E3 c# j" DCell[CellGroupData[{8 g! U' P: l! J" a7 u
Cell[137420, 3606, 406, 13, 31, "Input"], ?/ D1 ^& v K: p
Cell[137829, 3621, 1414, 43, 36, "Output"]# |9 d5 }; H5 Q! A
}, Open ]],7 d5 g+ V; V/ Z7 P' F% Z: |
Cell[CellGroupData[{
( D. G5 {/ X' C. C) p; `Cell[139280, 3669, 135, 3, 31, "Input"],
0 |6 ^6 ^4 c9 k+ g1 A6 N+ a# W7 @Cell[139418, 3674, 358, 7, 30, "Output"]' i" x9 L0 Y2 B' m" f
}, Open ]],
1 C# @0 ~/ B$ C8 B8 l" [* H7 p, N" u% O8 ^Cell[CellGroupData[{' i2 k2 R' N7 K; @ R4 i
Cell[139813, 3686, 430, 14, 31, "Input"],8 T, M# {: y, V
Cell[140246, 3702, 1426, 43, 36, "Output"]; ?# R7 O6 f1 y6 e2 A% E
}, Open ]],7 z4 C0 Z% U" h5 k9 @/ k1 C
Cell[CellGroupData[{; b: I9 m: O0 K8 Q0 W
Cell[141709, 3750, 156, 3, 31, "Input"],
1 `9 I9 X1 s7 ?- Q+ ?5 hCell[141868, 3755, 377, 8, 30, "Output"]
- l: i& }; T$ `: b}, Open ]],) t y, v1 b2 K) V
Cell[CellGroupData[{. z5 `! O5 ? n* B
Cell[142282, 3768, 452, 14, 31, "Input"],! I) X8 Y! {9 Z* V" r
Cell[142737, 3784, 1440, 42, 36, "Output"]
2 m3 f5 b; z0 ?/ z* f b}, Open ]],
8 m2 B) f6 w/ A$ w+ @" t8 lCell[CellGroupData[{
. t: w1 o T" _1 X, I. j6 HCell[144214, 3831, 178, 3, 31, "Input"],
2 {2 K3 f+ F+ e; S' ]6 GCell[144395, 3836, 448, 9, 30, "Output"]9 } E* G, m' j+ J" @' [
}, Open ]],* t9 ~$ L w0 Y ^/ D' {1 j
Cell[CellGroupData[{2 P5 R9 W* z* _
Cell[144880, 3850, 474, 14, 31, "Input"],% X( r/ P, C9 N; v
Cell[145357, 3866, 1510, 43, 36, "Output"], ?0 A( a& d! f C4 J
}, Open ]],, S* N- Y6 y" q) G; c! B! t5 a
Cell[CellGroupData[{
" X2 V2 X: ?2 xCell[146904, 3914, 470, 14, 52, "Input"],
! U! \, Q" v4 i8 I, P9 iCell[147377, 3930, 257, 5, 30, "Output"],
7 V% ]9 w5 @$ y- Y @- z/ v ICell[147637, 3937, 1310, 38, 36, "Output"]+ m, y3 r e3 f, w1 G; n
}, Open ]],
* M9 S+ r2 {# L# nCell[CellGroupData[{
' M% _9 f$ Z. S( J% Z2 Z4 g, mCell[148984, 3980, 520, 15, 52, "Input"],0 w/ I% z* p0 ]" b
Cell[149507, 3997, 293, 7, 30, "Output"],* |+ d/ H$ R( c- p' _
Cell[149803, 4006, 1345, 40, 36, "Output"]. p, }; V; }* Z2 g
}, Open ]], @4 j7 S$ |" f2 |3 b
Cell[CellGroupData[{1 s$ ]0 \$ G4 c8 Z3 {) {1 X
Cell[151185, 4051, 520, 15, 52, "Input"],
* V5 m" R& b5 V8 V, Y% u5 s wCell[151708, 4068, 266, 6, 30, "Output"],
3 ~, w# U& T& b# [1 ACell[151977, 4076, 1319, 39, 36, "Output"]' g9 C2 D' ~: ?: p7 |$ S6 q
}, Open ]],7 s$ G/ i* z" t4 `7 X
Cell[CellGroupData[{
|7 Z) a6 t0 ~2 M! K- C" K8 MCell[153333, 4120, 520, 15, 52, "Input"],/ u( J* F& E, J' M. v
Cell[153856, 4137, 272, 6, 30, "Output"],
4 S6 B4 ?* Z% J- b* ?( k8 }" t- G8 _Cell[154131, 4145, 1327, 40, 36, "Output"]
3 y- v% K2 |, O}, Open ]],
, C: O* f( n5 v! LCell[CellGroupData[{/ A2 U/ r# ~" ^* L% B% [
Cell[155495, 4190, 520, 15, 52, "Input"],
3 {1 c3 q. D4 ^Cell[156018, 4207, 265, 6, 30, "Output"],
3 E' R3 s) _9 U; Q) R$ c# oCell[156286, 4215, 1318, 39, 36, "Output"]
% e* {6 y5 A! l0 r# D4 ?}, Open ]],3 w8 P+ W# G. Y* Z8 S! |
Cell[CellGroupData[{* G+ b7 H( e0 o/ A# |. W! p
Cell[157641, 4259, 517, 15, 52, "Input"],
: s1 }/ ~* O5 U s& HCell[158161, 4276, 275, 6, 30, "Output"],2 k3 k x; L' m& D& f% C: b! L& p9 V
Cell[158439, 4284, 1333, 41, 36, "Output"]
( F$ \2 \% j; G0 O}, Open ]]," n' Y. a: _0 K! Y) j
Cell[159787, 4328, 381, 11, 31, "Input"],$ {$ b' J4 A- E
Cell[CellGroupData[{
; {( T7 e" L3 @, M" D' [: ZCell[160193, 4343, 573, 16, 52, "Input"],+ W: Q9 I- q5 G8 \3 t
Cell[160769, 4361, 278, 6, 30, "Output"],
8 m! n1 S# C& S6 y ICell[161050, 4369, 1328, 41, 36, "Output"]7 e' O5 u% V' l* J2 N) M! `& E. o* G6 t
}, Open ]],
8 N% F; W$ k- @( p( Y+ l& q6 cCell[CellGroupData[{
5 E; v q& Y2 H% a- N8 bCell[162415, 4415, 571, 16, 52, "Input"],5 Z- a3 W1 Z N7 V4 h9 G$ Y
Cell[162989, 4433, 270, 6, 30, "Output"],, }* e @5 Z6 U& J
Cell[163262, 4441, 1325, 40, 36, "Output"]' B2 k1 i1 j+ d; F2 n+ r2 {
}, Open ]],1 ~) c4 K" G; h6 O
Cell[CellGroupData[{9 V$ A2 t7 {4 R6 t# @+ h- g
Cell[164624, 4486, 571, 16, 52, "Input"],6 R6 {: o. w6 g# Q
Cell[165198, 4504, 264, 6, 30, "Output"],4 z" s6 J8 U7 O& y
Cell[165465, 4512, 1316, 39, 36, "Output"]
0 q& w G! w/ I$ `/ N}, Open ]],
: T% @! \" _1 U! z! k# rCell[CellGroupData[{
$ F5 B2 D6 x5 y& mCell[166818, 4556, 571, 16, 52, "Input"],5 p5 |' A* V# ?7 O; [
Cell[167392, 4574, 271, 6, 30, "Output"],
6 ^! c6 T( W0 h; ?Cell[167666, 4582, 1329, 41, 36, "Output"]
% g3 u( `$ M2 C4 D( G}, Open ]],' [" b$ G0 F2 h, v
Cell[CellGroupData[{1 q; T. p2 K' _) G) p# ^; C2 a
Cell[169032, 4628, 570, 16, 52, "Input"], P4 B) t5 I4 Y, F+ ?$ P9 k4 q
Cell[169605, 4646, 277, 6, 30, "Output"],' B2 W" y8 Z, \: s( t. b
Cell[169885, 4654, 1335, 41, 36, "Output"]
; E) y) g5 F) G" O}, Open ]],
1 I. v) b) m4 L2 y' w9 B( RCell[CellGroupData[{
4 M& }/ X7 m* j+ J# ACell[171257, 4700, 571, 16, 52, "Input"],
' l* e! ]+ [) L4 ]! N+ b, BCell[171831, 4718, 274, 6, 30, "Output"],
* I- _ {! Y3 b: t8 [- mCell[172108, 4726, 1335, 42, 36, "Output"]
( D; k3 s/ O9 z; K/ Z3 ]}, Open ]],: _: y# _/ i" T. E4 W* y3 Z
Cell[173458, 4771, 104, 1, 31, "Input"],
4 f/ Y, m' B+ B/ I' {7 O* ?& NCell[CellGroupData[{
# k. \; b" F) rCell[173587, 4776, 279, 7, 31, "Input"],
1 A$ L2 e$ S6 x" y- D. ~# pCell[173869, 4785, 878, 14, 50, "Output"]
* A3 T. G" m: c}, Open ]],
7 y9 M4 H/ t7 I+ C: e' LCell[CellGroupData[{
! \- i2 r/ ]( y, j8 h* FCell[174784, 4804, 243, 5, 31, "Input"],
3 W* @5 f) I5 _: x. F4 k8 }Cell[175030, 4811, 216, 3, 30, "Output"]; D; ^& }( d6 T" ~* q
}, Open ]],4 C7 j4 b, u4 U/ Q- P0 {' I
Cell[175261, 4817, 537, 14, 31, "Input"],
8 \. G" u, \ ?3 l5 _Cell[CellGroupData[{
+ s" @- s3 Y2 }! a$ ^Cell[175823, 4835, 94, 1, 31, "Input"],* Y4 g3 u, _2 ]
Cell[175920, 4838, 1319, 20, 107, "Output"]9 M5 X+ H/ c& I, [- V
}, Open ]],
/ _: Y; Z7 P# K! {/ I, k! ICell[CellGroupData[{! {; {- g+ b# p6 x+ K
Cell[177276, 4863, 464, 12, 31, "Input"],. L3 ^. _9 f9 E$ H2 r
Cell[177743, 4877, 17248, 366, 582, "Output"]# X* ]9 S2 X; s7 [+ [; D' J
}, Open ]],+ ^9 ]6 e# `" f$ d/ C4 t
Cell[195006, 5246, 32810, 934, 912, "Input"],# x3 @; [( c6 ?7 @2 t+ R
Cell[CellGroupData[{+ e" l" r' \2 j# C4 q; K
Cell[227841, 6184, 284, 6, 31, "Input"],
b) j+ Q8 A( J# t8 @Cell[228128, 6192, 961, 17, 50, "Output"]9 b8 K; r C& S% W0 `7 y
}, Open ]],: k+ Z' b' J0 v) m2 d
Cell[CellGroupData[{$ S m. L/ B) I- Y
Cell[229126, 6214, 531, 11, 31, "Input"],% [- R5 c3 S! T+ m0 b
Cell[229660, 6227, 28858, 853, 537, "Output"]/ `+ o( |/ f: Y1 R
}, Open ]],2 w1 d+ D' u& u' ?! \: ^
Cell[CellGroupData[{( S/ z8 p* J5 ]4 Z; x$ g
Cell[258555, 7085, 281, 7, 31, "Input"],
) _# Q( ~& v2 T6 B+ Q3 LCell[258839, 7094, 540, 10, 30, "Output"]* |* J: C; W4 I3 F: t
}, Open ]],& v x" W' T* w, T
Cell[259394, 7107, 1869, 53, 92, "Input"],
! n2 w, w0 o' M8 `7 {- ~$ ~9 DCell[CellGroupData[{5 @ l ^$ G% y, } `/ h8 ~
Cell[261288, 7164, 138, 2, 31, "Input"],+ O+ o+ l5 }2 K3 ^; A" b# t3 @
Cell[261429, 7168, 1122, 20, 69, "Output"]
7 m- P7 p& n7 y/ s}, Open ]],
+ k1 c6 J; K2 x ~2 `Cell[CellGroupData[{
8 H$ n( y' K& @& g F4 N; DCell[262588, 7193, 1816, 29, 152, "Input"],
' b) o; }$ }' R) S$ a6 R7 YCell[264407, 7224, 1736, 28, 88, "Output"]
! P: s1 C0 y4 V/ o: J1 S}, Open ]],
/ r, x2 o$ e* B7 e/ G' W- F! Z/ `$ BCell[CellGroupData[{
8 C( h5 N# F5 ^) `* o! V. R+ `Cell[266180, 7257, 209, 6, 31, "Input"],
3 l$ j; l5 m: W) G H+ f% qCell[266392, 7265, 516, 9, 30, "Output"]
- P0 N/ n( Q7 c/ o}, Open ]], T3 U# x; @& i$ ~ ~3 i) |$ D
Cell[266923, 7277, 613, 16, 31, "Input"],: a# r3 k, F7 P* S6 @! Z0 B
Cell[CellGroupData[{
( a2 J ?& a- L! J7 I1 PCell[267561, 7297, 157, 2, 31, "Input"],' @6 G! ]8 m2 e0 N! m0 y- V
Cell[267721, 7301, 776, 13, 50, "Output"]# N" y! N* ?3 g5 y- i5 _1 j
}, Open ]],, _$ z$ P% S' V2 `6 l& R, _: `
Cell[CellGroupData[{
$ F* P' `* t3 lCell[268534, 7319, 1397, 21, 112, "Input"],- f, `) u D& l! [9 K
Cell[269934, 7342, 1384, 21, 88, "Output"]& {! P6 g5 P! ~8 a
}, Open ]],
+ s N6 `( E5 `! \Cell[CellGroupData[{1 c8 g/ S& M+ I. l, J* R
Cell[271355, 7368, 1208, 30, 55, "Input"],
# M: s |' I4 r; \- bCell[272566, 7400, 1299, 29, 256, "Output"]
, B e9 Y4 V D}, Open ]],
9 M( o1 S# U* V* t2 T3 T- uCell[CellGroupData[{3 T! E( X( y- `; y8 g3 `0 `/ B0 F v
Cell[273902, 7434, 829, 23, 31, "Input"],; p2 v" s! u! P: ]0 h$ _: F
Cell[274734, 7459, 1053, 22, 249, "Output"]
6 k( ~4 |* W: p7 D3 Z! g5 X# N$ d" Z}, Open ]],5 b3 w; {( k% F3 i' J
Cell[CellGroupData[{
' Z% l, q- w% l0 u7 L( |! rCell[275824, 7486, 84, 2, 31, "Input"]," |1 X: C, A- J* k
Cell[275911, 7490, 1675, 36, 256, "Output"] N- A6 S- E$ U: D! @7 _! `
}, Open ]]," f" o) I/ N' F* }* a8 H, `5 o
Cell[277601, 7529, 131, 2, 31, "Input"],
8 p1 r1 ^& j$ N" Q2 p; b2 V. A0 M0 XCell[CellGroupData[{
- N2 G9 I( q& N) @& LCell[277757, 7535, 302, 7, 31, "Input"],
/ s J! R: G6 K0 ~- c" q. CCell[278062, 7544, 935, 16, 50, "Output"]
9 G8 N- W$ N0 y5 W}, Open ]],
0 ]8 }, P! o$ [& j1 z6 qCell[CellGroupData[{6 Q% @, \/ w7 ]' ^* z* m! L5 @
Cell[279034, 7565, 295, 6, 31, "Input"],- o5 x! Q: {( |& j
Cell[279332, 7573, 244, 3, 30, "Output"]
# F- a: k) c7 R& F* ^' V( e}, Open ]],& |) D: R! q2 @. l: s! g7 T( F
Cell[279591, 7579, 610, 15, 31, "Input"],
$ A( e' o/ `! f. b5 _5 c6 g' iCell[CellGroupData[{
) Y4 ~6 Z3 |# ICell[280226, 7598, 120, 2, 31, "Input"],8 p2 M. Y0 F; N: s I- G( t
Cell[280349, 7602, 1334, 21, 107, "Output"]
) m8 i. ]2 ?1 G}, Open ]],
, G4 ^7 `) G& sCell[CellGroupData[{6 N' K1 R, N/ H% V0 y2 h$ a) P! I
Cell[281720, 7628, 460, 12, 31, "Input"],
& P$ U+ B( U: P4 k7 s0 c( U4 \ vCell[282183, 7642, 17248, 366, 582, "Output"]
( ]- `- H! E9 w6 O( A) y% b$ Q' x}, Open ]],
$ X+ V6 X) g8 s' GCell[299446, 8011, 32810, 934, 912, "Input"],' d' X4 p! U1 k- Y5 X
Cell[CellGroupData[{* }! f7 q8 B. T; w
Cell[332281, 8949, 334, 6, 31, "Input"],
! l) ~# {* C8 m" C6 y/ iCell[332618, 8957, 1004, 18, 50, "Output"]
5 X* I) A$ _1 s! c}, Open ]]," V1 K3 g0 U# S
Cell[CellGroupData[{
* E' N3 Q+ {; ZCell[333659, 8980, 559, 11, 31, "Input"],2 a% m+ ~4 X3 d3 e) c- r
Cell[334221, 8993, 28881, 853, 537, "Output"]
% ~, m7 K1 d. y! s}, Open ]],. D4 m1 ]; ?2 M/ f1 j
Cell[CellGroupData[{5 L& V& u m6 V5 J7 B: [- o) l( F
Cell[363139, 9851, 306, 7, 31, "Input"],
: H! ]$ h( a* R$ Q3 ~/ uCell[363448, 9860, 562, 10, 30, "Output"]
9 d9 i* w- L" W/ y}, Open ]],* V9 u% b* W( c! v5 N# W2 Q
Cell[364025, 9873, 1915, 53, 92, "Input"],
' p, w% l% o7 O% s! ICell[CellGroupData[{
8 S" V* A1 b6 \; |& r7 W; RCell[365965, 9930, 163, 2, 31, "Input"],1 `8 @1 d6 D" F" n; u
Cell[366131, 9934, 1139, 20, 69, "Output"]1 }/ p; ~$ B! c* L) }9 T$ F6 @
}, Open ]],8 |3 U0 B: O m q
Cell[CellGroupData[{, E' U; W7 ]3 f8 g8 G7 `
Cell[367307, 9959, 1863, 30, 152, "Input"],
6 z2 q! [; R) k5 ~$ A6 |& ?, f; zCell[369173, 9991, 1761, 28, 88, "Output"]
7 U4 b$ x0 \: D" D: C q}, Open ]],
( o6 N# y/ i% q& e' YCell[CellGroupData[{1 V i) c4 V/ a* y( u* B Y$ A
Cell[370971, 10024, 231, 6, 31, "Input"],
2 H$ c" n& y+ a; E6 `; qCell[371205, 10032, 540, 10, 30, "Output"]
# {# m2 c% s/ j) d, M! S0 P}, Open ]],
P0 D2 G* i v7 l6 x eCell[371760, 10045, 687, 17, 31, "Input"],7 H9 ?+ q* D( k' {$ g
Cell[CellGroupData[{
& `. o7 T% D' G0 ZCell[372472, 10066, 185, 3, 31, "Input"],; ~, B( F+ l5 V6 J3 y) K
Cell[372660, 10071, 804, 13, 69, "Output"]
3 n0 h' @- n3 u}, Open ]],
; c( u* V" R2 u ]' ]$ ^" A& yCell[CellGroupData[{
0 @, r6 m3 u% I# lCell[373501, 10089, 1405, 21, 112, "Input"],
; R- {1 Q6 W9 J- R% s: _/ u- @Cell[374909, 10112, 1387, 21, 88, "Output"]
3 I- \& Q8 p" |% I0 k; {( Z# n7 S}, Open ]],' N5 q# j4 `1 |0 _+ S9 q
Cell[CellGroupData[{
5 v5 t3 p, H$ ]0 gCell[376333, 10138, 1339, 33, 55, "Input"],/ x, O3 y4 M" w& X2 L4 T! J! k
Cell[377675, 10173, 1370, 30, 256, "Output"]
$ k+ T2 \/ O+ e: D0 S( A4 M}, Open ]],
. w% E) @" z9 U2 V( a1 S; W' |Cell[CellGroupData[{8 `9 T, _7 ]; n# T' U* E; [& m+ E
Cell[379082, 10208, 877, 24, 31, "Input"],
+ U4 ]/ c8 r% k) u5 M9 \Cell[379962, 10234, 1058, 22, 249, "Output"]
2 `7 N9 l; E( t$ \}, Open ]],: p2 `3 L% w! Z& e+ H- X# v
Cell[CellGroupData[{
! O( b# N( M9 o% WCell[381057, 10261, 84, 2, 31, "Input"],8 J5 m0 h' Y. S' s" i: B" {1 [% T" E7 E
Cell[381144, 10265, 1659, 36, 256, "Output"]
1 S" ]0 ~8 U5 d# r) d9 ]0 r9 G* c}, Open ]],
8 J3 ?5 O" \ k% _4 _6 j7 bCell[382818, 10304, 509, 10, 52, "Input"],
$ }9 ]2 A* {7 A3 t7 O8 RCell[383330, 10316, 530, 10, 33, "Input"],
7 o) x& c a5 Q: P5 ZCell[383863, 10328, 69, 1, 31, "Input"],
: b1 g* M$ m3 Z) V! _) q3 `Cell[383935, 10331, 62, 0, 31, "Input"],; @# w9 v- U) w" p* n
Cell[CellGroupData[{
5 F& m; Y$ o: P" X% a! m; z9 @& vCell[384022, 10335, 364, 9, 31, "Input"],
* \5 j. ]% h5 ^. Y7 w9 dCell[384389, 10346, 13864, 402, 287, "Output"]1 G% @& a7 q c2 x) E
}, Open ]],
/ m; l+ R0 {' x/ _9 p: e' r) }Cell[398268, 10751, 69, 1, 31, "Input"],6 \, }1 _9 t' Z) z1 A" V
Cell[398340, 10754, 74, 0, 31, "Input"],
* ^5 S: D. E* ^. y& s c/ G T9 pCell[CellGroupData[{
2 d5 L3 |9 P& ~, D7 iCell[398439, 10758, 288, 8, 31, "Input"],
! f1 B% T! a* x$ V- uCell[398730, 10768, 13861, 402, 287, "Output"]
$ I! [, a/ ], v$ o) W}, Open ]]
! \0 \/ M/ }+ z& L}6 H* x# R# o4 S+ y5 ]
]
$ U1 {5 g2 S% v: M3 n) L% O( z*)& d2 M: J, d1 w3 w# H+ U
$ _- _4 X) T3 `3 K9 M
(* End of internal cache information *）* i8 R5 N9 k/ P8 D
2 R! T- f% X% \' b4 L! A* M
这个是用mathmatic做的神经网络，能导出最后的权值，就是可以写出表达式，我想用matlab做，却不知道怎么做 |
IP卡
狗仔卡
发表于 2013-7-29 20:37
转播
淘帖
分享
收藏
支持
反对
微信
提升卡
置顶卡
沉默卡
喧嚣卡
变色卡
抢沙发
显身卡
