(************** Content-type: application/mathematica ************** CreatedBy='Mathematica 5.2' Mathematica-Compatible Notebook This notebook can be used with any Mathematica-compatible application, such as Mathematica, MathReader or Publicon. The data for the notebook starts with the line containing stars above. To get the notebook into a Mathematica-compatible application, do one of the following: * Save the data starting with the line of stars above into a file with a name ending in .nb, then open the file inside the application; * Copy the data starting with the line of stars above to the clipboard, then use the Paste menu command inside the application. Data for notebooks contains only printable 7-bit ASCII and can be sent directly in email or through ftp in text mode. Newlines can be CR, LF or CRLF (Unix, Macintosh or MS-DOS style). NOTE: If you modify the data for this notebook not in a Mathematica- compatible application, you must delete the line below containing the word CacheID, otherwise Mathematica-compatible applications may try to use invalid cache data. For more information on notebooks and Mathematica-compatible applications, contact Wolfram Research: web: http://www.wolfram.com email: info@wolfram.com phone: +1-217-398-0700 (U.S.) Notebook reader applications are available free of charge from Wolfram Research. *******************************************************************) (*CacheID: 232*) (*NotebookFileLineBreakTest NotebookFileLineBreakTest*) (*NotebookOptionsPosition[ 103321, 2686]*) (*NotebookOutlinePosition[ 103965, 2708]*) (* CellTagsIndexPosition[ 103921, 2704]*) (*WindowFrame->Normal*) Notebook[{ Cell[CellGroupData[{ Cell[TextData[{ StyleBox["Finding the Eigenvalues of a Symmetric Matrix", "Subsubtitle", FontSize->18, FontVariations->{"CompatibilityType"->0}], StyleBox["\n", FontWeight->"Plain", FontVariations->{"CompatibilityType"->0}], StyleBox["Author's Data", FontSize->14, FontWeight->"Bold"], StyleBox[": ", FontSize->14], StyleBox["Housam BINOUS\nDepartment of Chemical Engineering\nNational \ Institute of Applied Sciences and Technology\nTunis, TUNISIA\nEmail: \ binoushousam@yahoo.com ", FontSize->14, FontWeight->"Plain"] }], "Title", TextAlignment->Center, Background->RGBColor[0.605478, 0.996109, 0.605478]], Cell[TextData[{ StyleBox["Reference :", FontWeight->"Bold"], "\n\nKenneth J. Beers, Numerical Methods for Chemical Engineering, \ Applications in Matlab, Cambridge University Press, 2007.\n" }], "Subsubtitle", Background->RGBColor[0.773449, 0.996109, 0.996109]], Cell[OLEData["\<\ dNGekLRT;C0=00000000 0000000R00006`00n;@d0:3K:@1n10000?ihfZFGKfQKEAC0kk]9lnOUcg]mOm8T bmZTcSXM;NY:HMHbff51D6M]HB;2B3GMQTT[Jdg=9eO[WdfQWM;ockiickgT_NA;a4n;j`6=m T@AQWc[[lU=7XY;49HVFBREKJY>RG1LXn`DYfD>J=D]ZlBPTCT[Dd<7GIlLZPOMZd6@V>i3`m61I=2D_<9SDo8leff5Hebg5CiXPZk5 k0f3KR<24]bEggSoYTJ^O;@n o[Ee9NooNoa7km0@0lGXllg`EYWMTSe7/i^ []OJ`eC/LhfU^5T0KXaROSL>_Qn>o a1RgU^d?Vhbk>?NIQk1M`kbZnb:ROcHBDdGkMNF5X5SOjC3VMeAPYko[0Fco@lI< @l1>O`Do/=?On/]N4bd gUEjSC? ?mXPlW>aGT?T6L=0oTmYV7_d3^CoOJAC4GU9VC@`[jTRcb[[8I4CPA^jbF[oMfhClWgFe8OnDQ5VW2_OOIIi^Hml[inU`O6d_bi0_cm>loK_e F9V_f;lIgFEn;B;jmiUmNc4O@?5mIPc55cG/GmB`Oe73oZ/jc7>n4>3cnJ^?FDIc jF`fIhG`jng86o2KE>LPfi?26?OgMIFiEAO^g PIB>^AoiCo^aOMZ?kAjb8W0Ii[8bck<0I002IV@2Ic0003`284cP0000?08XC<0000000^Pl@0000G`1O 05l0D01@05@0<@0`0000Ra<@0000003[;PP0002j5lL1T4;OVB00^PlR0000C@1_ 06@0j01/06D0801`0640LP0P06@0j@1V0640M@1d00l0kPWh/0U07N_FP0_`4B0180o`4000P010<90000?`<1 0040403`1b00003oool000000820P0000000^n3S030020@<0003oooooooooo`000000000000000000000000000000000000000000 000004<0000h0P00000004<0M@1b0780I@1^07@0801E07<0I@1b000000000000 0000000000000000000000000000000000000000000J0080oooooooooooooooo 0000000000000000000000000000000000000000000000000P00038000000000 0@1306l0K@1`04l0HP1Z00000000000000000000000000000000000000000000 0000000000000000000001800P0100000P000?ooool000000000000000000000 00000000000000000000000000030000N`000000000?0000j0000080003T1000 7P0000h00014JF5`Kg=YM6UfIB0a06l07P0000L0001RJFi_MG<0M1h000070000 HVU^KgEc07@N00000P0003@0KVlN00005@0004eYHg9_LfmVM21@KgMULU1_JFid 001@0400000P84_=0@000400000P^O6I^QO70D000010M_fJfQO70@<000000000 0000000000000000000000000000000000000000003no`001@42000000000000 00000000000100000]G=eI`^6a2CU`P0:bci[S0000080P004000004000280000 0`000900000?0000[00000@0002l00001P000<@000070000c00000P0003D0000 2@000=`0000:0000i00001L0003/00002`000?@0000@0000o00001<000040@00 5P0000`1000=0000504000`0001Y0@000P000>@4000N00005000045VIVUSJ65W IB3P86`WjF=bHFh07P0000P0001dMFiYKF5b00<000017`000`00000000030000 0@0000<0000000000`00000000030000000000<000112PX02`000000000;0000 000000/0000000002`000000000N4000100000H00011LVUQK00B0000CFmTj6aU 871QLR1TjFIQMG@05`0004eYHg9_LfmVM215LGEQM6U_KR0c;S003P0004AYHG1_ LfUdJGIU8340310000P0000N00004P00051_K6USIGP3T`@00040j@0@003P4000P1H000D0000:0000000000000001000000000@l02@B/0000 000:10@0000400003`3<3iP00000000000l0RQ<` 0000002j3a00001O05l0G`1@0500E00a0300002;4a00000000d42000072e001` ]@003`3`3eP000000?<3500000<0000400000P00000100000000002O3`@00006 0000002Z3`X0000100000@000000402O3`@000050000002Z3`X0000100000@00 0000003Z0`00000?0?P3e@T00080k`?[l@00<0I002IV@2Ic0003`284cP0000?08XC<0000000 ^Pl@0000G`1O05l0D01@05@0<@0`0000Ra<@0000003[;PP0002j5lL1T4;OVB00 ^PlR0000C@1_06@0j01/06D0801`0640LP0P06@0j@1V0640M@1d00l0kP?<0@00 0P3_0aP0000000003a00000000000020000000<04`0?00`4?04000l00_0d0@00 8008l0P00002000010P000l00o2/00003`04l2P0000100W`4000000000000000 00000000000200[`20000008000500003`04l7@0002b10[`200000@8000@2P00 L`0;l2X00004@@40000;0@@0000o0@000@210IWoIP2o0A00403o0@00200o0P00 0P0C02;a1P000;l1001P00004?080000U`9d0eTBJ`h?017`30000000`@/40000 100000l01?1X00004P0:l0P00001200000`00;<02o120000P0470000P@71ool0 P`7`0Hl@S07>ooooT`6>Wh/0U07N_FP0W04;0010_`4B0180o`4000P010<90000 ?`<100404`0Rl@H0002o0@00800@0?0780000?ooo`000000P8200000002kh><0 I002IV@2Ic0003`284cP0000?08XC<0000000^Pl@0000G`1O05l0D01@05@0 <@0`0000Ra<@0000003[;PP0002j5lL1L=KSVA004A2e2@00030007RLkEUmK5C7 4Ingkgcf_C_OWMmmL7Lai^`Bk8CP6^a@772=8IQB=H03DZZBU1XhPl_I1Yli/:RX /B5:F`WB948XbAnTCOi:FhU45FT2SI7BY:GiJ2D/X[BE@QbgRJ1l]Z8R[]gI]o_> ^`oOnNbh8@WNdnS]KfIfMoISMWKgo_A>`O_?78fL1D_j>ZP`=>`0^l1CA0D_P8gc QXJ7Qdgil5Cj@ZGkX@eo7A25IM2:ggKX]2j5S2T8>JTiYn^1_4dAkdmi@j9[ZLYU[JQG48CJ^=/FT0E5XfbYONmVDVHWTioUU/1ef@2?f_1W7XAG7 HBE7bJb/RP:AeW`fkLm0fVQSN@FFH[/]/0g7H@=l?i_RD]8Wd?idY>dlWh?dGj7l 4:L0Y?MUM7g`0?=kmbQj@NCUIbPoUChojK?domF_5oE@ojNnej/cgYCogeco=l_A kESL1dI;i]iPnWl1T]^`0L07K3nPnlJDogmad]1=J;>8[iDXOX^ABY2nPW@kilo2 KbUB6M8MB7LRcDJj2fT>DSWBEi4ZT>Kb2HEQSSVVd:hOi; cod4/]moPLoMI2Fa?i=HkBgA?Re3HjMiUf=[h/Jd/VkU2YICXM3hdY>SPiPi]PYX CR7D39X[Ed:LidcY^@SL1RDdH/bbNb32e`b=:;fHNajY5kN4ib=HQ^^hh;k6SRe[ >kMQ>8kViR7g>V4UP=/mAf5enlU1/]1;Lcib`/IbU?NQK_9HcToF4aoGFdol?/I[ d?8;6>n7;YJS_2Om9XoUo:AH6n1URkECW7O=7NJlJnk:0>?=2]Bk6Nm:T>DXKjU^ lYKZM1`o8CU3oDI?7SGLb4K0^jJcID=K7>2_>MZAeoYeN>WIbc]?8TD[[^kLWm>d UOEI0CXFlkC[N/ldF[B/Ljcjo^?@G[KF]lU9eNhH/naAQiJkMT0^NlKAM;Lio_Ak :FECUg;IVIe=UagJd_Ce:[aNB=EKjF7fIUh7nff_ik5agVlkhF8fM0g1R0e0KESK g19;A5O6MTK_Kf]YK4eS0k7d[L1Nhj9E?=AYhTDJaN]Bn8:3hU:>[jZJY7mEMDSj gD[2CG5U2Qlfi?=Bn1dkaG=C^8^8mGD[5@Z[SoDc>SbaOYYSCGPoZfdGEMJ^]EkU DheO;>LYHfe/iOH_EkM8^=[f]Ug6Wa26[O_GjY_Jc;nWlb7[ n0oHOY5;ZiRC/_/]`hjJE;]KldEi]k;?8N>171WGZjcl:>_?j^_ejNflLOgm`:Qg MZL6;19XA[AP[i2/;BoT6^Rh4ElD@T[FM2HjHRe`=jfGgPj;hLM60JZ`n2R `^QY9=jQYo7_MoUg?OmnSkJ9YdmEhg7CL_NUim[kVSNf]bGJVSZROmSDg17KdAkM E?[amQf=7Le][HUXIGT5d9_G_F^RbcSCR7/V::n4OeFoH=kEc=C6_m_h>11hhJC2 7fN?o2h0MkdG>7;JMXg8EKh[>0UCMRZZc`FP8=6Z0AFY`mA;E KE@lHZm51JdgiJFIM;9<2U/J]f`bcnkV6I16COXnBof:nZ43Z1NadaQMZOANCnol m?i?Hbmm0c3_ooA=aKcoC`=j=`088n5Q3PmmK:gR>X;oaod?5b1D8J7C`gbT[b4] @:Y6^PMY8M8RY1ZPofd0e28]AZY3FX:d5>UNX>m1k=5Z>M8gT>PVl4ghl]haKmKm [ceo78fF>?eb?g3NZkH6KiF:9h;O^Co]XB[M1T_lAgc /oS>l1W?P2k:2ige4^k?Tg6OHh=K;>lSSnHc?dgQKN CVgTBV@4OckRomm>;^O_b@]ZPo3PGjca?hl@jb6Ik8TS=DZA4d?WXMcci53NN@XD /^lEELGkUY>92eSH=P:d4LJAWK`Qm9IS@:hc^JVS1FPgj?;fMX=AD@b;=B=]1YI_ 1EY0kfU4RR?]3gdR k/nCLIoS;=DWNmZA=R>QNne987E`el[N9LOQ=GAiYGF4=<8/eWKjWFSD=LYf7M[M Cg_n9g]Jj3K:]m?hIcVFBO[4RHaoa i4olgBIm?:j=G9Y>JdRVh_6YfbQNTL8_QBR^Bn7^X:SO46RH;^?ID_V6@5PZ?jS; nX>j[3nXboXGO6`oBgHjPNe?knMABJ:U] bLKhSQSCjo7f/]ZJC7c5f?gZDWR>EiCogUW/To4JBOnP@iHOMG``gm^Zd7@YX[nZB9VIkF99S^ff_EiBoYLShEL;fjVBB]CkOeV/K[OGi ]W;SQQY_K=nDcddVfbISa^HgVBOJ=@Q5GjC9Nh[/c8>8cW[Dn4ALjOjf; ^3m?aWf>?[N8ODCUN28_eiTlYln8D>Fl7BgdB4A/]lOKEB3:HnijbLkCmP=N9Yo0 RmaFJ]MT_LQ=YLU:M?kBoOngngJ0ejH3E>ACV@=?P8O]DoooOKWnod^o2ekG1h`h =oIoPfSW5ITlU_>C 0kik^=h1goFR;?[j/dac8_Ne9U8Bb[Z_ak>OVi[8_T:a[dn7FX>/3dn7=/hHjolR k13nSA45;_;cCE58aSn=<7b1h`<1FKk@;n=O1AWn9lMoe1TnKijW@TMW R>lj]I5g`n:kcf1XDD3l_jXQD2g;MAUOl>D5AOeh<>`EiAmh=[U4nm[M<_j9Uf6c OalhIOW7VXa9?/=VocXM39_mNl3c3kMXcek]AHn8?lYic2WFEig;/=UnZB[;MmTH =]/kYS1/]WOJ7Y3JNiFLiOooool3000010000040003ooooo0P000000002L<@00 =BD00?hc000100T000?o6@00200L0000000400000`4800D0000;0P0000050000 30;;2;T;0`0001h020000?X21@000000oooo00@0000]0@001`000?`2001/Shl0 00040000;@4100@0000]0@00300004098@3`0000000002L0^0/00000100002d1 00070000o0800?ooo`0000@0000]0@8010000?010@070000o08006fAT@0000@0 000]0@40100002d1000<0000@0TQ0?00000000008`2h2bL000040000;@4000@0 000]0@8010000?010@070000o08006nBTP0000@0000]0@40100002d1000<0000 @0TQ0?00000000004P2h2dX000040000;@4000@0000]0@8010000?010@070000 o08006nDU00000@0000]0@40100002d1000<0000@0TQ0?00000000006P2h2e`0 00040000;@4000@0000]0@8010000?010@070000o080076EU@0000@0000]0@40 100002d1000<0000@0TQ0?00000000004P2h2gH000040000;@4000@0000]0@80 10000?010@070000o08007:GU`0000@0000]0@40100002d1000<0000@0TQ0?00 000000006P2h2hP000040000;@4000@0000]0@8010000?010@070000o08007>I V@0000@0000]0@40100002d1000<0000@0TQ0?00000000006P2h2j8000040000 ;@4000@0000]0@8010000?010@070000o08007FKV`0000@0000]0@40100002d1 000<0000@0TQ0?00000000004P2h2k`000040000;@4000@0000]0@8010000?01 0@070000o08007JMW@0000@0000]0@40100002d1000<0000@0TQ0?0000000000 4P2h2lh000040000;@4000@0000]0@8010000?010@070000o08007ROW`0000@0 000]0@40100002d1000<0000@0TQ0?00000000004@2h2n0000040000;@4000@0 000]0@8010000?010@070000o08007VQX@0000@0000]0@40100002d1000<0000 @0TQ0?00000000004P2h2o4000040000;@4000@0000]0@8010000?010@070000 o08007^SX`0000@0000]0@40100002d1000<0000@0TQ0?00000000004@2h2`<1 00040000;@4000@0000]0@8010000?010@070000o08007bUY@0000@0000]0@40 100002d1000<0000@0TQ0?00000000004P2h2a@100040000;@4000@0000]0@80 10000?010@070000o08007jWY`0000@0000]0@40100002d1000<0000@0TQ0?00 000000004@2h2bH100040000;@4000@0000]0@8010000?010@070000o080082Y Z@0000@0000]0@40100002d1000<0000@0TQ0?00000000002`2h2cL100040000 ;@4000@0000]0@8010000?010@070000o080086[Z`0000@0000]0@40100002d1 000<0000@0TQ0?0000000000402h2d8100040000;@4000@0000]0@8010000?01 0@070000o08008>][@0000@0000]0@40100002d1000<0000@0TQ0?0000000000 3`2h2e8100040000;@4000@0000]0@8010000?010@070000o08008B_[`0000@0 000]0@40100002d1000<0000@0TQ0?00000000002`2h2f4100040000;@4000@0 000]0@8010000?010@070000o08008Ja/@0000@0000]0@40100002d1000<0000 @0TQ0?0000000000402h2f`100040000;@4000@0000]0@8010000?010@070000 o08008Nc/`0000@0000]0@40100002d1000<0000@0TQ0?00000000002`2h2g`1 00040000;@4000@0000]0@8010000?010@070000o08008Ve]@0000@0000]0@40 100002d1000<0000@0TQ0?00000000003`2h2hL100040000;@4000@0000]0@80 10000?010@070000o08008Zg]`0000@0000]0@40100002d1000<0000@0TQ0?00 000000002`2h2iH100040000;@4000@0000]0@8010000?010@070000o08008bi ^@0000@0000]0@40100002d1000<0000@0TQ0?00000000002`2h2j4100040000 ;@4000@0000]0@8010000?010@070000o08008fk^`0000@0000]0@40100002d1 000<0000@0TQ0?00000000003@2h2j`100040000;@4000@0000]0@8010000?01 0@070000o08008jm_@0000@0000]0@40100002d1000<0000@0TQ0?0000000000 2`2h2kT100040000;@4000@0000]0@8010000?010@070000o080092o_`0000@0 000]0@40100002d1000<0000@0TQ0?00000000002`2h2l@100040000;@4000@0 000]0@8010000?010@070000o08009;0`00000@0000]0@40100002d1000<0000 @0TQ0?00000000002@2h2ll100040000;@4000@0000]0@8010000?010@070000 o08009?2`P0000@0000]0@40100002d1000<0000@0TQ0?00000000003@2h2mP1 00040000;@4000@0000]0@8010000?010@070000o08009C4a00000@0000]0@40 100002d1000<0000@0TQ0?00000000002`2h2nD100040000;@4000@0000]0@80 10000?010@070000o08009K6aP0000@0000]0@40100002d1000<0000@0TQ0?00 000000002`2h2o0100040000;@4000@0000]0@8010000?010@070000o08009O8 b00000@0000]0@40100002d1000<0000@0TQ0?00000000003`2h2o/100040000 ;@4000@0000]0@8010000?010@070000o08009W:bP0000@0000]0@40100002d1 000<0000@0TQ0?00000000002`2h2`X200040000;@4000@0000]0@8010000?01 0@070000o08009[cP0000@0 000]0@40100002d1000<0000@0TQ0?00000000002`2h2b<200040000;@4000@0 000]0@8010000?010@070000o08009g@d00000@0000]0@40100002d1000<0000 @0TQ0?00000000002`2h2bh200040000;@4000@0000]0@8010000?010@070000 o08009oBdP0000@0000]0@40100002d1000<0000@0TQ0?00000000003`2h2cT2 00040000;@4000@0000]0@8010000?010@070000o0800:7De00000@0000]0@40 100002d1000<0000@0TQ0?00000000002`2h2dP200040000;@4000@0000]0@80 10000?010@070000o0800:;FeP0000@0000]0@40100002d1000<0000@0TQ0?00 000000003`2h2e<200040000;@4000@0000]0@8010000?010@070000o0800:CH f00000@0000]0@40100002d1000<0000@0TQ0?00000000002`2h2f8200040000 ;@4000@0000]0@8010000?010@070000o0800:GJfP0000@0000]0@40100002d1 000<0000@0TQ0?0000000000402h2fd200040000;@4000@0000]0@8010000?01 0@070000o0800:OLg00000@0000]0@40100002d1000<0000@0TQ0?0000000000 3`2h2gd200040000;@4000@0000]0@8010000?010@070000o0800:SNgP0000@0 000]0@40100002d1000<0000@0TQ0?00000000002`2h2h`200040000;@4000@0 000]0@8010000?010@070000o0800:WPh00000@0000]0@40100002d1000<0000 @0TQ0?00000000004P2h2iL200040000;@4000@0000]0@8010000?010@070000 o0800:_RhP0000@0000]0@40100002d1000<0000@0TQ0?00000000004@2h2jT2 00040000;@4000@0000]0@8010000?010@070000o0800:gTi00000@0000]0@40 100002d1000<0000@0TQ0?00000000004P2h2kX200040000;@4000@0000]0@80 10000?010@070000o0800:kViP0000@0000]0@40100002d1000<0000@0TQ0?00 000000002`2h2l`200040000;@4000@0000]0@8010000?010@070000o0800:oX j00000@0000]0@40100002d1000<0000@0TQ0?00000000003`2h2mL200040000 ;@4000@0000]0@8010000?010@070000o0800;7ZjP0000@0000]0@40100002d1 000<0000@0TQ0?00000000006P2h2nH200040000;@4000@0000]0@8010000?01 0@070000o0800;?/k00000@0000]0@40100002d1000<0000@0TQ0?0000000000 4P2h2`0300040000;@4000@0000]0@8010000?010@070000o0800;C^kP0000@0 000]0@40100002d1000<0000@0TQ0?00000000004P2h2a8300040000;@4000@0 000]0@8010000?010@070000o0800;G`l00000@0000]0@40100002d1000<0000 @0TQ0?00000000004@2h2b@300040000;@4000@0000]0@8010000?010@070000 o0800;Oal@0000@0000]0@40100002d1000<0000@0TQ0?00000000004P2h2cD3 00040000;@4000@0000]0@8010000?010@070000o0800;Scl`0000@0000]0@40 100002d1000<0000@0TQ0?00000000006P2h2dL300040000;@4000@0000]0@80 10000?010@070000o0800;Wem@0000@0000]0@40100002d1000<0000@0TQ0?00 000000006`2h2f4300040000;@4000@0000]0@8010000?010@070000o0800;_g m`0000@0000]0@40100002d1000<0000@0TQ0?00000000008`2h2g`300040000 ;@4000@0000]0@8010000?010@070000o0800;cin@0000@0000]0@40100002d1 000<0000@0TQ0?0000000000;02h2il300040000;@4000@0000]0@8010000?01 0@070000o0800;kkn`0000@0000]0@40100002d1000<0000@0TQ0?0000000000 =02h2l/300040000;@4000@0000]0@8010000?010@070000o0800;omo@0000@0 000]0@40100002d1000<0000@0TQ0?0000000000A`2h2ol300040000;@4000@0 000]0@8010000?010@070000o0800<7oo`0000@0000]0@40100002d1000<0000 @0TQ0?0000000000J@2h2dH400040000;@4000@0000]0@8010000?010@070000 o0800<3mo@0000@0000]0@40100002d1000<0000@0TQ0?0000000000=@2h2jl4 00040000;@4000@0000]0@8010000?010@070000o0800;kkn`0000@0000]0@40 100002d1000<0000@0TQ0?0000000000;02h2n@400040000;@4000@0000]0@80 10000?010@070000o0800;gin@0000@0000]0@40100002d1000<0000@0TQ0?00 000000008`2h2a0500040000;@4000@0000]0@8010000?010@070000o0800;_h n00000@0000]0@40100002d1000<0000@0TQ0?00000000006P2h2c<500040000 ;@4000@0000]0@8010000?010@070000o0800;[fmP0000@0000]0@40100002d1 000<0000@0TQ0?00000000006`2h2dd500040000;@4000@0000]0@8010000?01 0@070000o0800;Wdm00000@0000]0@40100002d1000<0000@0TQ0?0000000000 6P2h2fP500040000;@4000@0000]0@8010000?010@070000o0800;OblP0000@0 000]0@40100002d1000<0000@0TQ0?00000000006P2h2h8500040000;@4000@0 000]0@8010000?010@070000o0800;G`l00000@0000]0@40100002d1000<0000 @0TQ0?00000000004P2h2i`500040000;@4000@0000]0@8010000?010@070000 o0800;C^kP0000@0000]0@40100002d1000<0000@0TQ0?00000000004P2h2jh5 00040000;@4000@0000]0@8010000?010@070000o0800;?/k00000@0000]0@40 100002d1000<0000@0TQ0?00000000004@2h2l0500040000;@4000@0000]0@80 10000?010@070000o0800;7[j`0000@0000]0@40100002d1000<0000@0TQ0?00 000000004P2h2m4500040000;@4000@0000]0@8010000?010@070000o0800;3Y j@0000@0000]0@40100002d1000<0000@0TQ0?00000000003`2h2n<500040000 ;@4000@0000]0@8010000?010@070000o0800:oWi`0000@0000]0@40100002d1 000<0000@0TQ0?00000000002`2h2o8500040000;@4000@0000]0@8010000?01 0@070000o0800:kUi@0000@0000]0@40100002d1000<0000@0TQ0?0000000000 4P2h2od500040000;@4000@0000]0@8010000?010@070000o0800:cSh`0000@0 000]0@40100002d1000<0000@0TQ0?00000000004@2h2`l600040000;@4000@0 000]0@8010000?010@070000o0800:[Qh@0000@0000]0@40100002d1000<0000 @0TQ0?00000000004P2h2b0600040000;@4000@0000]0@8010000?010@070000 o0800:SOg`0000@0000]0@40100002d1000<0000@0TQ0?00000000002`2h2c86 00040000;@4000@0000]0@8010000?010@070000o0800:SMg@0000@0000]0@40 100002d1000<0000@0TQ0?00000000003`2h2cd600040000;@4000@0000]0@80 10000?010@070000o0800:KKf`0000@0000]0@40100002d1000<0000@0TQ0?00 00000000402h2d`600040000;@4000@0000]0@8010000?010@070000o0800:GI f@0000@0000]0@40100002d1000<0000@0TQ0?00000000002`2h2e`600040000 ;@4000@0000]0@8010000?010@070000o0800:?Ge`0000@0000]0@40100002d1 000<0000@0TQ0?00000000003`2h2fL600040000;@4000@0000]0@8010000?01 0@070000o0800:;Ee@0000@0000]0@40100002d1000<0000@0TQ0?0000000000 2`2h2gH600040000;@4000@0000]0@8010000?010@070000o0800:3Cd`0000@0 000]0@40100002d1000<0000@0TQ0?00000000003`2h2h4600040000;@4000@0 000]0@8010000?010@070000o08009kAd@0000@0000]0@40100002d1000<0000 @0TQ0?00000000002`2h2i0600040000;@4000@0000]0@8010000?010@070000 o08009c?c`0000@0000]0@40100002d1000<0000@0TQ0?00000000002`2h2i/6 00040000;@4000@0000]0@8010000?010@070000o08009_=c@0000@0000]0@40 100002d1000<0000@0TQ0?00000000003@2h2jH600040000;@4000@0000]0@80 10000?010@070000o08009[;b`0000@0000]0@40100002d1000<0000@0TQ0?00 000000002`2h2k<600040000;@4000@0000]0@8010000?010@070000o08009S9 b@0000@0000]0@40100002d1000<0000@0TQ0?0000000000402h2kh600040000 ;@4000@0000]0@8010000?010@070000o08009O7a`0000@0000]0@40100002d1 000<0000@0TQ0?00000000002`2h2lh600040000;@4000@0000]0@8010000?01 0@070000o08009G5a@0000@0000]0@40100002d1000<0000@0TQ0?0000000000 2`2h2mT600040000;@4000@0000]0@8010000?010@070000o08009C3``0000@0 000]0@40100002d1000<0000@0TQ0?00000000003@2h2n@600040000;@4000@0 000]0@8010000?010@070000o08009?1`@0000@0000]0@40100002d1000<0000 @0TQ0?00000000002@2h2o4600040000;@4000@0000]0@8010000?010@070000 o0800970`00000@0000]0@40100002d1000<0000@0TQ0?00000000002`2h2oX6 00040000;@4000@0000]0@8010000?010@070000o08008nn_P0000@0000]0@40 100002d1000<0000@0TQ0?00000000002`2h2`D700040000;@4000@0000]0@80 10000?010@070000o08008jl_00000@0000]0@40100002d1000<0000@0TQ0?00 000000003@2h2a0700040000;@4000@0000]0@8010000?010@070000o08008fj ^P0000@0000]0@40100002d1000<0000@0TQ0?00000000002`2h2ad700040000 ;@4000@0000]0@8010000?010@070000o08008^h^00000@0000]0@40100002d1 000<0000@0TQ0?00000000002`2h2bP700040000;@4000@0000]0@8010000?01 0@070000o08008Zf]P0000@0000]0@40100002d1000<0000@0TQ0?0000000000 3`2h2c<700040000;@4000@0000]0@8010000?010@070000o08008Rd]00000@0 000]0@40100002d1000<0000@0TQ0?00000000002`2h2d8700040000;@4000@0 000]0@8010000?010@070000o08008Nb/P0000@0000]0@40100002d1000<0000 @0TQ0?0000000000402h2dd700040000;@4000@0000]0@8010000?010@070000 o08008F`/00000@0000]0@40100002d1000<0000@0TQ0?00000000002`2h2ed7 00040000;@4000@0000]0@8010000?010@070000o08008B^[P0000@0000]0@40 100002d1000<0000@0TQ0?00000000003`2h2fP700040000;@4000@0000]0@80 10000?010@070000o08008:/[00000@0000]0@40100002d1000<0000@0TQ0?00 000000003`2h2gL700040000;@4000@0000]0@8010000?010@070000o080086Z ZP0000@0000]0@40100002d1000<0000@0TQ0?00000000002`2h2hH700040000 ;@4000@0000]0@8010000?010@070000o08007nXZ00000@0000]0@40100002d1 000<0000@0TQ0?00000000004P2h2i4700040000;@4000@0000]0@8010000?01 0@070000o08007fVYP0000@0000]0@40100002d1000<0000@0TQ0?0000000000 4P2h2j<700040000;@4000@0000]0@8010000?010@070000o08007bTY00000@0 000]0@40100002d1000<0000@0TQ0?00000000004@2h2kD700040000;@4000@0 000]0@8010000?010@070000o08007ZRXP0000@0000]0@40100002d1000<0000 @0TQ0?00000000004P2h2lH700040000;@4000@0000]0@8010000?010@070000 o08007VPX00000@0000]0@40100002d1000<0000@0TQ0?00000000004@2h2mP7 00040000;@4000@0000]0@8010000?010@070000o08007NNWP0000@0000]0@40 100002d1000<0000@0TQ0?00000000004P2h2nT700040000;@4000@0000]0@80 10000?010@070000o08007JLW00000@0000]0@40100002d1000<0000@0TQ0?00 000000004@2h2o/700040000;@4000@0000]0@8010000?010@070000o08007BJ VP0000@0000]0@40100002d1000<0000@0TQ0?00000000006`2h2``800040000 ;@4000@0000]0@8010000?010@070000o08007>HV00000@0000]0@40100002d1 000<0000@0TQ0?00000000006P2h2bL800040000;@4000@0000]0@8010000?01 0@070000o080076FUP0000@0000]0@40100002d1000<0000@0TQ0?0000000000 6`2h2d4800040000;@4000@0000]0@8010000?010@070000o080072DU00000@0 000]0@40100002d1000<0000@0TQ0?00000000006P2h2e`800040000;@4000@0 000]0@8010000?010@070000o08006nBTP0000@0000]0@40100002d1000<0000 @0TQ0?00000000008`2h2gH800040000;@4000@0000]0@8010000?010@070000 o08006fAT@0000@0000]0@40100002d1000<0000@0TQ0?00000000008`2h2iT8 00040000;@4000@0000]0@8010000?010@070000o08006b?S`0000@0000]0@40 100002d1000<0000@0TQ0?00000000003@2h2k`800040000;@4000@0000]0@80 10000?010@080000nP80000000000000100002d10@0400009`7oo`<0000N00L0 003l0P00VOmV0000100002d10`040000;@4000`000102B40l0000000000Y1/87 F@7<0@@0000]0@40100002d10P040000;@4300@0000]0@00300004098@3`0000 000002T6`PMI0L`1100002d10@040000;@4200<0000N00<0000N00@0000]0@40 100002d10P040000;P4000D000090P00000500000@;oool0100000@13@0L0000 n`84008000000;`2000000L20R9CNG=dIFd00000000000000000000000000000 000000@0000]0@@01@0000T2000000@000020@401@000042oooo00@0000^0AP0 20000?X200040000000000@0000]0@D01@0001@2kP601@D0000C0Vh2P0D50000 50;^0A/61@0001<2KP8K1PD0000D0^<1M`D500004`;S0BH61@0001@2]0>`1@D0 000C0S<4/0D5000050:d0gl61@0001<2<`Ao1PD0000D0ZT3Y`D500004`:Y0hX6 1@0001@2``Ah1@D0000C0/<4XPH50000508/1Ph51@0001<2U@H>1@D0000D0R`6 m`D500004`:E1_L570000?/2S?ld0000002@0@0000870P0@DgU]HVm/00000000 00000000000000000000000000040000;@4600T0000b2Zd5:@L10000:54M01`0 003k0Xco=0000000T04000021`8045=iKF9_K000000000000000000000000000 00000000100002d11`040000l04600T0000b2Zd5:@P10000:E4M01`0003k0Xco =0000000T04000021`8045=iKF9_K00000000000000000000000000000000000 100002d11P040000l04700T0000b2SH6:@L10000:54M01`0003k0Xco=0000000 T04000021`8045=iKF9_K00000000000000000000000000000000000100002d1 1`040000l04600T0000b2SH6:@P10000:E4M00D0000D0]X58PL500004`9V1R87 1@0001@2fPGB20D0000C0VH6dPP5000050;?1AT71@0001<2c`GM21`0003k0Xco =0000000T04000021`8045=iKF9_K00000000000000000000000000000000000 100002d11P040000l04700T0000b2UH7CPL10000:54M01`0003k0Xco=0000000 T04000021`8045=iKF9_K00000000000000000000000000000000000100002d1 1`040000l04600T0000b2UH7CPP10000:E4M00D0000D0_H6jPH500004`;f1_D8 70000?/2Z?l00000002@0@0000870P0@DgU]HVm/000000000000000000000000 0000000000040000;@4600@0003`0@L02@00038:;PLB1P40003_DB`02@00038: fPHB1P40003_DB`02@00038:J@LB1P40003^DB/02@00038:A0HB1P40003_DB`0 2@00038:m`DB1P40003_DB`02@00038:QPHB1P40003]DB/02@00038:X`DB1P40 003/DB/02@00038:30L72@40000[DC002@00038:EPNb1`40000]DBl02@00038: 30NT1P40000mDC002@00038:=PJ=1`40000]DC002@00038:[PF=1`40000]DC00 2@00038:i@GC1P40000mDC002@00038:M`Ih1@40000]DC002@00038:n@BP1040 003_DB`02@00038:Y@BP1040003_DB`02@00038:7`FP1040003^DB/02@00038: 3`BP1040003_DB`02@00038:eP>P1040003_DB`02@00038:D@BP1040003]DB/0 2@00038:PP>P1040003/DB/02@00038:f@@b1@40000mDC002@00038:_`=Q1@40 000mDC002@00038:/P9`1040003_DB`02@00038:o`9`1040003^DB/02@00038: 4@9`1040003_DB`02@00038:GP9`1040003]DB/02@00038:_@5`1040003/DB/0 2@00038:j0831@40000mDBl02@00038:n@4a1@40000mDC0070000?/2cOl00000 002@0@0000870P0@DgU]HVm/0000000000000000000000000000000000040000 ;@4700@0003`0@H02@00038::0MX2040000]DA`02@00038:20I42040000]DA`0 2@00038:P0E42040000]DA`02@00038:_PF61P40000[DA`02@00038:mP@L1P40 000]DA`02@00038:hP?g1@40000]DA`02@00038:H0?g1@40000]DA`02@00038: U`1`40001]DC<02@00038:[PG>1`40001]DC<0 2@00038:M`Ji1@40001]DC<02@00038:M`HE1@40001/DC802@00038:f@C:1040 001/DC802@00038:j0:J1040001/DC8070000?/2cOl00000002@0@4000070P0@ E6U]IGH[Y?o0@Yc^5P0078G5000 0040@0000000V`@007P>001<4000003e3a`000000000?`X00`0000096P000@00 00@0000002WX000000000000001T0;D030<<3@00002hGal0@2PO000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 000000000000000000000?L40@0006]A5`090000IGLPDVm]HFh00000000000000000000000@0 000]0@H010000?011`090000IGLPDVm]HFh00000000000000000 000000@0000]0@L010000?011P090000IGLPDVm]HFh00000000000000000000000@0 000]0@H010000?011`0900001D0 o3PE0:Bc6P0H=aD0N>C6<0@0000]0@D010000?01100400009`7oo`@0000W0Ooo 0`000000000000000000000000000000CT5>B@00000\>"], "Graphics", ImageSize->{575, 431.25}, ImageMargins->{{43, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}}], Cell[CellGroupData[{ Cell[TextData[{ "Finding the eigenvalues using the ", StyleBox["Mathematica", FontSlant->"Italic"], " built-in function Eigenvalues." }], "Subsubtitle", TextAlignment->Left, Background->RGBColor[1, 1, 0.682353]], Cell[CellGroupData[{ Cell[BoxData[ \(A = {{1, \(-1\), 2}, {\(-1\), 5, 3}, {2, 3, 5}}\)], "Input"], Cell[BoxData[ \({{1, \(-1\), 2}, {\(-1\), 5, 3}, {2, 3, 5}}\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(A // MatrixForm\)], "Input"], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"1", \(-1\), "2"}, {\(-1\), "5", "3"}, {"2", "3", "5"} }, RowSpacings->1, ColumnSpacings->1, ColumnAlignments->{Left}], "\[NoBreak]", ")"}], Function[ BoxForm`e$, MatrixForm[ BoxForm`e$]]]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(Eigenvalues[A] // N\)], "Input"], Cell[BoxData[ \({8.0788815996376`, 3.636013835949218`, \(-0.714895435586818`\)}\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(Eigenvectors[A] // N\)], "Input"], Cell[BoxData[ \({{0.15185176161944192`, 0.9250593587995715`, 1.`}, {1.246434398652954`, \(-1.2856183204522296`\), 1.`}, {\(-1.6396654706172242`\), \(-0.8118548314507897`\), 1.`}}\)], "Output"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["\<\ Finding the largest eigenvalue (\[Lambda]=8.07888). The corresponding \ eigenvector is u=(0.110785,0.674885,0.729559).\ \>", "Subsubtitle", TextAlignment->Left, Background->RGBColor[1, 1, 0.682353]], Cell[BoxData[ \(\(v[0] = {1. , 1, 1};\)\)], "Input"], Cell[CellGroupData[{ Cell[BoxData[ \(For[i = 1, i < 100, {v[i] = A . v[i - 1]/Norm[A . v[i - 1]], l[i] = v[i] . A . v[i], Print[i, "\< \>", l[i]], \(i++\)}]\)], "Input"], Cell[BoxData[ InterpretationBox[\(1\[InvisibleSpace]" \ "\[InvisibleSpace]7.980392156862747`\), SequenceForm[ 1, " ", 7.9803921568627469], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(2\[InvisibleSpace]" \ "\[InvisibleSpace]8.061411549037581`\), SequenceForm[ 2, " ", 8.0614115490375813], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(3\[InvisibleSpace]" \ "\[InvisibleSpace]8.075353948017185`\), SequenceForm[ 3, " ", 8.0753539480171845], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(4\[InvisibleSpace]" \ "\[InvisibleSpace]8.07816676777954`\), SequenceForm[ 4, " ", 8.0781667677795408], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(5\[InvisibleSpace]" \ "\[InvisibleSpace]8.078736787782484`\), SequenceForm[ 5, " ", 8.0787367877824838], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(6\[InvisibleSpace]" \ "\[InvisibleSpace]8.078852266142297`\), SequenceForm[ 6, " ", 8.078852266142297], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(7\[InvisibleSpace]" \ "\[InvisibleSpace]8.078875657883648`\), SequenceForm[ 7, " ", 8.078875657883648], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(8\[InvisibleSpace]" \ "\[InvisibleSpace]8.078880396088827`\), SequenceForm[ 8, " ", 8.0788803960888274], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(9\[InvisibleSpace]" \ "\[InvisibleSpace]8.078881355849584`\), SequenceForm[ 9, " ", 8.0788813558495836], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(10\[InvisibleSpace]" \ "\[InvisibleSpace]8.078881550256478`\), SequenceForm[ 10, " ", 8.0788815502564777], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(11\[InvisibleSpace]" \ "\[InvisibleSpace]8.078881589635078`\), SequenceForm[ 11, " ", 8.0788815896350776], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(12\[InvisibleSpace]" \ "\[InvisibleSpace]8.078881597611511`\), SequenceForm[ 12, " ", 8.0788815976115114], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(13\[InvisibleSpace]" \ "\[InvisibleSpace]8.078881599227202`\), SequenceForm[ 13, " ", 8.0788815992272021], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(14\[InvisibleSpace]" \ "\[InvisibleSpace]8.07888159955447`\), SequenceForm[ 14, " ", 8.0788815995544692], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(15\[InvisibleSpace]" \ "\[InvisibleSpace]8.078881599620757`\), SequenceForm[ 15, " ", 8.0788815996207575], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(16\[InvisibleSpace]" \ "\[InvisibleSpace]8.07888159963419`\), SequenceForm[ 16, " ", 8.0788815996341903], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(17\[InvisibleSpace]" \ "\[InvisibleSpace]8.078881599636912`\), SequenceForm[ 17, " ", 8.0788815996369117], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(18\[InvisibleSpace]" \ "\[InvisibleSpace]8.07888159963746`\), SequenceForm[ 18, " ", 8.0788815996374606], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(19\[InvisibleSpace]" \ "\[InvisibleSpace]8.07888159963757`\), SequenceForm[ 19, " ", 8.0788815996375707], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(20\[InvisibleSpace]" \ "\[InvisibleSpace]8.078881599637592`\), SequenceForm[ 20, " ", 8.078881599637592], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(21\[InvisibleSpace]" \ "\[InvisibleSpace]8.078881599637599`\), SequenceForm[ 21, " ", 8.0788815996375991], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(22\[InvisibleSpace]" \ "\[InvisibleSpace]8.0788815996376`\), SequenceForm[ 22, " ", 8.0788815996376009], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(23\[InvisibleSpace]" \ "\[InvisibleSpace]8.078881599637599`\), SequenceForm[ 23, " ", 8.0788815996375991], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(24\[InvisibleSpace]" \ "\[InvisibleSpace]8.0788815996376`\), SequenceForm[ 24, " ", 8.0788815996376009], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(25\[InvisibleSpace]" \ "\[InvisibleSpace]8.078881599637599`\), SequenceForm[ 25, " ", 8.0788815996375991], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(26\[InvisibleSpace]" \ "\[InvisibleSpace]8.078881599637597`\), SequenceForm[ 26, " ", 8.0788815996375973], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(27\[InvisibleSpace]" \ "\[InvisibleSpace]8.0788815996376`\), SequenceForm[ 27, " ", 8.0788815996376009], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(28\[InvisibleSpace]" \ "\[InvisibleSpace]8.0788815996376`\), SequenceForm[ 28, " ", 8.0788815996376009], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(29\[InvisibleSpace]" \ "\[InvisibleSpace]8.078881599637599`\), SequenceForm[ 29, " ", 8.0788815996375991], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(30\[InvisibleSpace]" \ "\[InvisibleSpace]8.078881599637599`\), SequenceForm[ 30, " ", 8.0788815996375991], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(31\[InvisibleSpace]" \ "\[InvisibleSpace]8.078881599637599`\), SequenceForm[ 31, " ", 8.0788815996375991], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(32\[InvisibleSpace]" \ "\[InvisibleSpace]8.0788815996376`\), SequenceForm[ 32, " ", 8.0788815996376009], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(33\[InvisibleSpace]" \ "\[InvisibleSpace]8.078881599637599`\), SequenceForm[ 33, " ", 8.0788815996375991], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(34\[InvisibleSpace]" \ "\[InvisibleSpace]8.0788815996376`\), SequenceForm[ 34, " ", 8.0788815996376009], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(35\[InvisibleSpace]" \ "\[InvisibleSpace]8.078881599637599`\), SequenceForm[ 35, " ", 8.0788815996375991], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(36\[InvisibleSpace]" \ "\[InvisibleSpace]8.078881599637599`\), SequenceForm[ 36, " ", 8.0788815996375991], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(37\[InvisibleSpace]" \ "\[InvisibleSpace]8.0788815996376`\), SequenceForm[ 37, " ", 8.0788815996376009], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(38\[InvisibleSpace]" \ "\[InvisibleSpace]8.0788815996376`\), SequenceForm[ 38, " ", 8.0788815996376009], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(39\[InvisibleSpace]" \ "\[InvisibleSpace]8.0788815996376`\), SequenceForm[ 39, " ", 8.0788815996376009], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(40\[InvisibleSpace]" \ "\[InvisibleSpace]8.0788815996376`\), SequenceForm[ 40, " ", 8.0788815996376009], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(41\[InvisibleSpace]" \ "\[InvisibleSpace]8.078881599637599`\), SequenceForm[ 41, " ", 8.0788815996375991], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(42\[InvisibleSpace]" \ "\[InvisibleSpace]8.0788815996376`\), SequenceForm[ 42, " ", 8.0788815996376009], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(43\[InvisibleSpace]" \ "\[InvisibleSpace]8.078881599637599`\), SequenceForm[ 43, " ", 8.0788815996375991], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(44\[InvisibleSpace]" \ "\[InvisibleSpace]8.0788815996376`\), SequenceForm[ 44, " ", 8.0788815996376009], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(45\[InvisibleSpace]" \ "\[InvisibleSpace]8.078881599637599`\), SequenceForm[ 45, " ", 8.0788815996375991], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(46\[InvisibleSpace]" \ "\[InvisibleSpace]8.0788815996376`\), SequenceForm[ 46, " ", 8.0788815996376009], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(47\[InvisibleSpace]" \ "\[InvisibleSpace]8.078881599637599`\), SequenceForm[ 47, " ", 8.0788815996375991], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(48\[InvisibleSpace]" \ "\[InvisibleSpace]8.0788815996376`\), SequenceForm[ 48, " ", 8.0788815996376009], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(49\[InvisibleSpace]" \ "\[InvisibleSpace]8.078881599637599`\), SequenceForm[ 49, " ", 8.0788815996375991], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(50\[InvisibleSpace]" \ "\[InvisibleSpace]8.0788815996376`\), SequenceForm[ 50, " ", 8.0788815996376009], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(51\[InvisibleSpace]" \ "\[InvisibleSpace]8.078881599637599`\), SequenceForm[ 51, " ", 8.0788815996375991], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(52\[InvisibleSpace]" \ "\[InvisibleSpace]8.0788815996376`\), SequenceForm[ 52, " ", 8.0788815996376009], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(53\[InvisibleSpace]" \ "\[InvisibleSpace]8.078881599637599`\), SequenceForm[ 53, " ", 8.0788815996375991], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(54\[InvisibleSpace]" \ "\[InvisibleSpace]8.0788815996376`\), SequenceForm[ 54, " ", 8.0788815996376009], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(55\[InvisibleSpace]" \ "\[InvisibleSpace]8.078881599637599`\), SequenceForm[ 55, " ", 8.0788815996375991], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(56\[InvisibleSpace]" \ "\[InvisibleSpace]8.0788815996376`\), SequenceForm[ 56, " ", 8.0788815996376009], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(57\[InvisibleSpace]" \ "\[InvisibleSpace]8.078881599637599`\), SequenceForm[ 57, " ", 8.0788815996375991], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(58\[InvisibleSpace]" \ "\[InvisibleSpace]8.0788815996376`\), SequenceForm[ 58, " ", 8.0788815996376009], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(59\[InvisibleSpace]" \ "\[InvisibleSpace]8.078881599637599`\), SequenceForm[ 59, " ", 8.0788815996375991], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(60\[InvisibleSpace]" \ "\[InvisibleSpace]8.0788815996376`\), SequenceForm[ 60, " ", 8.0788815996376009], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(61\[InvisibleSpace]" \ "\[InvisibleSpace]8.078881599637599`\), SequenceForm[ 61, " ", 8.0788815996375991], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(62\[InvisibleSpace]" \ "\[InvisibleSpace]8.0788815996376`\), SequenceForm[ 62, " ", 8.0788815996376009], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(63\[InvisibleSpace]" \ "\[InvisibleSpace]8.078881599637599`\), SequenceForm[ 63, " ", 8.0788815996375991], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(64\[InvisibleSpace]" \ "\[InvisibleSpace]8.0788815996376`\), SequenceForm[ 64, " ", 8.0788815996376009], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(65\[InvisibleSpace]" \ "\[InvisibleSpace]8.078881599637599`\), SequenceForm[ 65, " ", 8.0788815996375991], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(66\[InvisibleSpace]" \ "\[InvisibleSpace]8.0788815996376`\), SequenceForm[ 66, " ", 8.0788815996376009], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(67\[InvisibleSpace]" \ "\[InvisibleSpace]8.078881599637599`\), SequenceForm[ 67, " ", 8.0788815996375991], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(68\[InvisibleSpace]" \ "\[InvisibleSpace]8.0788815996376`\), SequenceForm[ 68, " ", 8.0788815996376009], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(69\[InvisibleSpace]" \ "\[InvisibleSpace]8.078881599637599`\), SequenceForm[ 69, " ", 8.0788815996375991], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(70\[InvisibleSpace]" \ "\[InvisibleSpace]8.0788815996376`\), SequenceForm[ 70, " ", 8.0788815996376009], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(71\[InvisibleSpace]" \ "\[InvisibleSpace]8.078881599637599`\), SequenceForm[ 71, " ", 8.0788815996375991], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(72\[InvisibleSpace]" \ "\[InvisibleSpace]8.0788815996376`\), SequenceForm[ 72, " ", 8.0788815996376009], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(73\[InvisibleSpace]" \ "\[InvisibleSpace]8.078881599637599`\), SequenceForm[ 73, " ", 8.0788815996375991], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(74\[InvisibleSpace]" \ "\[InvisibleSpace]8.0788815996376`\), SequenceForm[ 74, " ", 8.0788815996376009], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(75\[InvisibleSpace]" \ "\[InvisibleSpace]8.078881599637599`\), SequenceForm[ 75, " ", 8.0788815996375991], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(76\[InvisibleSpace]" \ "\[InvisibleSpace]8.0788815996376`\), SequenceForm[ 76, " ", 8.0788815996376009], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(77\[InvisibleSpace]" \ "\[InvisibleSpace]8.078881599637599`\), SequenceForm[ 77, " ", 8.0788815996375991], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(78\[InvisibleSpace]" \ "\[InvisibleSpace]8.0788815996376`\), SequenceForm[ 78, " ", 8.0788815996376009], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(79\[InvisibleSpace]" \ "\[InvisibleSpace]8.078881599637599`\), SequenceForm[ 79, " ", 8.0788815996375991], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(80\[InvisibleSpace]" \ "\[InvisibleSpace]8.0788815996376`\), SequenceForm[ 80, " ", 8.0788815996376009], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(81\[InvisibleSpace]" \ "\[InvisibleSpace]8.078881599637599`\), SequenceForm[ 81, " ", 8.0788815996375991], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(82\[InvisibleSpace]" \ "\[InvisibleSpace]8.0788815996376`\), SequenceForm[ 82, " ", 8.0788815996376009], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(83\[InvisibleSpace]" \ "\[InvisibleSpace]8.078881599637599`\), SequenceForm[ 83, " ", 8.0788815996375991], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(84\[InvisibleSpace]" \ "\[InvisibleSpace]8.0788815996376`\), SequenceForm[ 84, " ", 8.0788815996376009], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(85\[InvisibleSpace]" \ "\[InvisibleSpace]8.078881599637599`\), SequenceForm[ 85, " ", 8.0788815996375991], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(86\[InvisibleSpace]" \ "\[InvisibleSpace]8.0788815996376`\), SequenceForm[ 86, " ", 8.0788815996376009], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(87\[InvisibleSpace]" \ "\[InvisibleSpace]8.078881599637599`\), SequenceForm[ 87, " ", 8.0788815996375991], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(88\[InvisibleSpace]" \ "\[InvisibleSpace]8.0788815996376`\), SequenceForm[ 88, " ", 8.0788815996376009], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(89\[InvisibleSpace]" \ "\[InvisibleSpace]8.078881599637599`\), SequenceForm[ 89, " ", 8.0788815996375991], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(90\[InvisibleSpace]" \ "\[InvisibleSpace]8.0788815996376`\), SequenceForm[ 90, " ", 8.0788815996376009], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(91\[InvisibleSpace]" \ "\[InvisibleSpace]8.078881599637599`\), SequenceForm[ 91, " ", 8.0788815996375991], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(92\[InvisibleSpace]" \ "\[InvisibleSpace]8.0788815996376`\), SequenceForm[ 92, " ", 8.0788815996376009], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(93\[InvisibleSpace]" \ "\[InvisibleSpace]8.078881599637599`\), SequenceForm[ 93, " ", 8.0788815996375991], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(94\[InvisibleSpace]" \ "\[InvisibleSpace]8.0788815996376`\), SequenceForm[ 94, " ", 8.0788815996376009], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(95\[InvisibleSpace]" \ "\[InvisibleSpace]8.078881599637599`\), SequenceForm[ 95, " ", 8.0788815996375991], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(96\[InvisibleSpace]" \ "\[InvisibleSpace]8.0788815996376`\), SequenceForm[ 96, " ", 8.0788815996376009], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(97\[InvisibleSpace]" \ "\[InvisibleSpace]8.078881599637599`\), SequenceForm[ 97, " ", 8.0788815996375991], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(98\[InvisibleSpace]" \ "\[InvisibleSpace]8.0788815996376`\), SequenceForm[ 98, " ", 8.0788815996376009], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(99\[InvisibleSpace]" \ "\[InvisibleSpace]8.078881599637599`\), SequenceForm[ 99, " ", 8.0788815996375991], Editable->False]], "Print"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(v[99]\)], "Input"], Cell[BoxData[ \({0.11078482556891439`, 0.6748854185987964`, 0.7295590409188227`}\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(A . v[99]/l[99]\)], "Input"], Cell[BoxData[ \({0.1107848255689144`, 0.6748854185987965`, 0.7295590409188228`}\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \({0.15185176161944192`, 0.9250593587995715`, 1.`}\ 0.7295590409188228`\)], "Input"], Cell[BoxData[ \({0.11078482556891375`, 0.6748854185987966`, 0.7295590409188228`}\)], "Output"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["\<\ Finding the smallest eigenvalue (\[Lambda]=-0.714895). The corresponding \ eigenvector is u=(-0.786375,-0.389362,0.479595).\ \>", "Subsubtitle", TextAlignment->Left, Background->RGBColor[1, 1, 0.682353]], Cell[CellGroupData[{ Cell[BoxData[ \(For[i = 1, i < 100, {v[i] = Inverse[A] . v[i - 1]/Norm[Inverse[A] . v[i - 1]], l[i] = v[i] . Inverse[A] . v[i], Print[i, "\< \>", 1/l[i]], \(i++\)}]\)], "Input"], Cell[BoxData[ InterpretationBox[\(1\[InvisibleSpace]" \ "\[InvisibleSpace]\(-0.7590361445783131`\)\), SequenceForm[ 1, " ", -.75903614457831314], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(2\[InvisibleSpace]" \ "\[InvisibleSpace]\(-0.7157005534517913`\)\), SequenceForm[ 2, " ", -.71570055345179129], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(3\[InvisibleSpace]" \ "\[InvisibleSpace]\(-0.7149195863427913`\)\), SequenceForm[ 3, " ", -.71491958634279129], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(4\[InvisibleSpace]" \ "\[InvisibleSpace]\(-0.7148963146260072`\)\), SequenceForm[ 4, " ", -.71489631462600722], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(5\[InvisibleSpace]" \ "\[InvisibleSpace]\(-0.7148954691410278`\)\), SequenceForm[ 5, " ", -.71489546914102775], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(6\[InvisibleSpace]" \ "\[InvisibleSpace]\(-0.7148954368805949`\)\), SequenceForm[ 6, " ", -.71489543688059487], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(7\[InvisibleSpace]" \ "\[InvisibleSpace]\(-0.7148954356368061`\)\), SequenceForm[ 7, " ", -.71489543563680613], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(8\[InvisibleSpace]" \ "\[InvisibleSpace]\(-0.7148954355887503`\)\), SequenceForm[ 8, " ", -.71489543558875035], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(9\[InvisibleSpace]" \ "\[InvisibleSpace]\(-0.7148954355868927`\)\), SequenceForm[ 9, " ", -.71489543558689272], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(10\[InvisibleSpace]" \ "\[InvisibleSpace]\(-0.7148954355868209`\)\), SequenceForm[ 10, " ", -.71489543558682089], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(11\[InvisibleSpace]" \ "\[InvisibleSpace]\(-0.7148954355868181`\)\), SequenceForm[ 11, " ", -.71489543558681812], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(12\[InvisibleSpace]" \ "\[InvisibleSpace]\(-0.7148954355868181`\)\), SequenceForm[ 12, " ", -.71489543558681812], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(13\[InvisibleSpace]" \ "\[InvisibleSpace]\(-0.7148954355868179`\)\), SequenceForm[ 13, " ", -.7148954355868179], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(14\[InvisibleSpace]" \ "\[InvisibleSpace]\(-0.7148954355868179`\)\), SequenceForm[ 14, " ", -.7148954355868179], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(15\[InvisibleSpace]" \ "\[InvisibleSpace]\(-0.7148954355868179`\)\), SequenceForm[ 15, " ", -.7148954355868179], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(16\[InvisibleSpace]" \ "\[InvisibleSpace]\(-0.714895435586818`\)\), SequenceForm[ 16, " ", -.71489543558681801], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(17\[InvisibleSpace]" \ "\[InvisibleSpace]\(-0.714895435586818`\)\), SequenceForm[ 17, " ", -.71489543558681801], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(18\[InvisibleSpace]" \ "\[InvisibleSpace]\(-0.714895435586818`\)\), SequenceForm[ 18, " ", -.71489543558681801], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(19\[InvisibleSpace]" \ "\[InvisibleSpace]\(-0.7148954355868181`\)\), SequenceForm[ 19, " ", -.71489543558681812], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(20\[InvisibleSpace]" \ "\[InvisibleSpace]\(-0.714895435586818`\)\), SequenceForm[ 20, " ", -.71489543558681801], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(21\[InvisibleSpace]" \ "\[InvisibleSpace]\(-0.7148954355868182`\)\), SequenceForm[ 21, " ", -.71489543558681823], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(22\[InvisibleSpace]" \ "\[InvisibleSpace]\(-0.714895435586818`\)\), SequenceForm[ 22, " ", -.71489543558681801], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(23\[InvisibleSpace]" \ "\[InvisibleSpace]\(-0.714895435586818`\)\), SequenceForm[ 23, " ", -.71489543558681801], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(24\[InvisibleSpace]" \ "\[InvisibleSpace]\(-0.714895435586818`\)\), SequenceForm[ 24, " ", -.71489543558681801], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(25\[InvisibleSpace]" \ "\[InvisibleSpace]\(-0.714895435586818`\)\), SequenceForm[ 25, " ", -.71489543558681801], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(26\[InvisibleSpace]" \ "\[InvisibleSpace]\(-0.714895435586818`\)\), SequenceForm[ 26, " ", -.71489543558681801], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(27\[InvisibleSpace]" \ "\[InvisibleSpace]\(-0.714895435586818`\)\), SequenceForm[ 27, " ", -.71489543558681801], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(28\[InvisibleSpace]" \ "\[InvisibleSpace]\(-0.714895435586818`\)\), SequenceForm[ 28, " ", -.71489543558681801], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(29\[InvisibleSpace]" \ "\[InvisibleSpace]\(-0.714895435586818`\)\), SequenceForm[ 29, " ", -.71489543558681801], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(30\[InvisibleSpace]" \ "\[InvisibleSpace]\(-0.714895435586818`\)\), SequenceForm[ 30, " ", -.71489543558681801], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(31\[InvisibleSpace]" \ "\[InvisibleSpace]\(-0.714895435586818`\)\), SequenceForm[ 31, " ", -.71489543558681801], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(32\[InvisibleSpace]" \ "\[InvisibleSpace]\(-0.714895435586818`\)\), SequenceForm[ 32, " ", -.71489543558681801], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(33\[InvisibleSpace]" \ "\[InvisibleSpace]\(-0.714895435586818`\)\), SequenceForm[ 33, " ", -.71489543558681801], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(34\[InvisibleSpace]" \ "\[InvisibleSpace]\(-0.714895435586818`\)\), SequenceForm[ 34, " ", -.71489543558681801], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(35\[InvisibleSpace]" \ "\[InvisibleSpace]\(-0.714895435586818`\)\), SequenceForm[ 35, " ", -.71489543558681801], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(36\[InvisibleSpace]" \ "\[InvisibleSpace]\(-0.714895435586818`\)\), SequenceForm[ 36, " ", -.71489543558681801], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(37\[InvisibleSpace]" \ "\[InvisibleSpace]\(-0.714895435586818`\)\), SequenceForm[ 37, " ", -.71489543558681801], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(38\[InvisibleSpace]" \ "\[InvisibleSpace]\(-0.714895435586818`\)\), SequenceForm[ 38, " ", -.71489543558681801], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(39\[InvisibleSpace]" \ "\[InvisibleSpace]\(-0.714895435586818`\)\), SequenceForm[ 39, " ", -.71489543558681801], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(40\[InvisibleSpace]" \ "\[InvisibleSpace]\(-0.714895435586818`\)\), SequenceForm[ 40, " ", -.71489543558681801], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(41\[InvisibleSpace]" \ "\[InvisibleSpace]\(-0.714895435586818`\)\), SequenceForm[ 41, " ", -.71489543558681801], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(42\[InvisibleSpace]" \ "\[InvisibleSpace]\(-0.714895435586818`\)\), SequenceForm[ 42, " ", -.71489543558681801], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(43\[InvisibleSpace]" \ "\[InvisibleSpace]\(-0.714895435586818`\)\), SequenceForm[ 43, " ", -.71489543558681801], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(44\[InvisibleSpace]" \ "\[InvisibleSpace]\(-0.714895435586818`\)\), SequenceForm[ 44, " ", -.71489543558681801], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(45\[InvisibleSpace]" \ "\[InvisibleSpace]\(-0.714895435586818`\)\), SequenceForm[ 45, " ", -.71489543558681801], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(46\[InvisibleSpace]" \ "\[InvisibleSpace]\(-0.714895435586818`\)\), SequenceForm[ 46, " ", -.71489543558681801], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(47\[InvisibleSpace]" \ "\[InvisibleSpace]\(-0.714895435586818`\)\), SequenceForm[ 47, " ", -.71489543558681801], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(48\[InvisibleSpace]" \ "\[InvisibleSpace]\(-0.714895435586818`\)\), SequenceForm[ 48, " ", -.71489543558681801], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(49\[InvisibleSpace]" \ "\[InvisibleSpace]\(-0.714895435586818`\)\), SequenceForm[ 49, " ", -.71489543558681801], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(50\[InvisibleSpace]" \ "\[InvisibleSpace]\(-0.714895435586818`\)\), SequenceForm[ 50, " ", -.71489543558681801], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(51\[InvisibleSpace]" \ "\[InvisibleSpace]\(-0.714895435586818`\)\), SequenceForm[ 51, " ", -.71489543558681801], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(52\[InvisibleSpace]" \ "\[InvisibleSpace]\(-0.714895435586818`\)\), SequenceForm[ 52, " ", -.71489543558681801], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(53\[InvisibleSpace]" \ "\[InvisibleSpace]\(-0.714895435586818`\)\), SequenceForm[ 53, " ", -.71489543558681801], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(54\[InvisibleSpace]" \ "\[InvisibleSpace]\(-0.714895435586818`\)\), SequenceForm[ 54, " ", -.71489543558681801], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(55\[InvisibleSpace]" \ "\[InvisibleSpace]\(-0.714895435586818`\)\), SequenceForm[ 55, " ", -.71489543558681801], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(56\[InvisibleSpace]" \ "\[InvisibleSpace]\(-0.714895435586818`\)\), SequenceForm[ 56, " ", -.71489543558681801], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(57\[InvisibleSpace]" \ "\[InvisibleSpace]\(-0.714895435586818`\)\), SequenceForm[ 57, " ", -.71489543558681801], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(58\[InvisibleSpace]" \ "\[InvisibleSpace]\(-0.714895435586818`\)\), SequenceForm[ 58, " ", -.71489543558681801], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(59\[InvisibleSpace]" \ "\[InvisibleSpace]\(-0.714895435586818`\)\), SequenceForm[ 59, " ", -.71489543558681801], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(60\[InvisibleSpace]" \ "\[InvisibleSpace]\(-0.714895435586818`\)\), SequenceForm[ 60, " ", -.71489543558681801], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(61\[InvisibleSpace]" \ "\[InvisibleSpace]\(-0.714895435586818`\)\), SequenceForm[ 61, " ", -.71489543558681801], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(62\[InvisibleSpace]" \ "\[InvisibleSpace]\(-0.714895435586818`\)\), SequenceForm[ 62, " ", -.71489543558681801], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(63\[InvisibleSpace]" \ "\[InvisibleSpace]\(-0.714895435586818`\)\), SequenceForm[ 63, " ", -.71489543558681801], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(64\[InvisibleSpace]" \ "\[InvisibleSpace]\(-0.714895435586818`\)\), SequenceForm[ 64, " ", -.71489543558681801], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(65\[InvisibleSpace]" \ "\[InvisibleSpace]\(-0.714895435586818`\)\), SequenceForm[ 65, " ", -.71489543558681801], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(66\[InvisibleSpace]" \ "\[InvisibleSpace]\(-0.714895435586818`\)\), SequenceForm[ 66, " ", -.71489543558681801], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(67\[InvisibleSpace]" \ "\[InvisibleSpace]\(-0.714895435586818`\)\), SequenceForm[ 67, " ", -.71489543558681801], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(68\[InvisibleSpace]" \ "\[InvisibleSpace]\(-0.714895435586818`\)\), SequenceForm[ 68, " ", -.71489543558681801], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(69\[InvisibleSpace]" \ "\[InvisibleSpace]\(-0.714895435586818`\)\), SequenceForm[ 69, " ", -.71489543558681801], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(70\[InvisibleSpace]" \ "\[InvisibleSpace]\(-0.714895435586818`\)\), SequenceForm[ 70, " ", -.71489543558681801], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(71\[InvisibleSpace]" \ "\[InvisibleSpace]\(-0.714895435586818`\)\), SequenceForm[ 71, " ", -.71489543558681801], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(72\[InvisibleSpace]" \ "\[InvisibleSpace]\(-0.714895435586818`\)\), SequenceForm[ 72, " ", -.71489543558681801], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(73\[InvisibleSpace]" \ "\[InvisibleSpace]\(-0.714895435586818`\)\), SequenceForm[ 73, " ", -.71489543558681801], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(74\[InvisibleSpace]" \ "\[InvisibleSpace]\(-0.714895435586818`\)\), SequenceForm[ 74, " ", -.71489543558681801], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(75\[InvisibleSpace]" \ "\[InvisibleSpace]\(-0.714895435586818`\)\), SequenceForm[ 75, " ", -.71489543558681801], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(76\[InvisibleSpace]" \ "\[InvisibleSpace]\(-0.714895435586818`\)\), SequenceForm[ 76, " ", -.71489543558681801], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(77\[InvisibleSpace]" \ "\[InvisibleSpace]\(-0.714895435586818`\)\), SequenceForm[ 77, " ", -.71489543558681801], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(78\[InvisibleSpace]" \ "\[InvisibleSpace]\(-0.714895435586818`\)\), SequenceForm[ 78, " ", -.71489543558681801], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(79\[InvisibleSpace]" \ "\[InvisibleSpace]\(-0.714895435586818`\)\), SequenceForm[ 79, " ", -.71489543558681801], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(80\[InvisibleSpace]" \ "\[InvisibleSpace]\(-0.714895435586818`\)\), SequenceForm[ 80, " ", -.71489543558681801], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(81\[InvisibleSpace]" \ "\[InvisibleSpace]\(-0.714895435586818`\)\), SequenceForm[ 81, " ", -.71489543558681801], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(82\[InvisibleSpace]" \ "\[InvisibleSpace]\(-0.714895435586818`\)\), SequenceForm[ 82, " ", -.71489543558681801], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(83\[InvisibleSpace]" \ "\[InvisibleSpace]\(-0.714895435586818`\)\), SequenceForm[ 83, " ", -.71489543558681801], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(84\[InvisibleSpace]" \ "\[InvisibleSpace]\(-0.714895435586818`\)\), SequenceForm[ 84, " ", -.71489543558681801], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(85\[InvisibleSpace]" \ "\[InvisibleSpace]\(-0.714895435586818`\)\), SequenceForm[ 85, " ", -.71489543558681801], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(86\[InvisibleSpace]" \ "\[InvisibleSpace]\(-0.714895435586818`\)\), SequenceForm[ 86, " ", -.71489543558681801], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(87\[InvisibleSpace]" \ "\[InvisibleSpace]\(-0.714895435586818`\)\), SequenceForm[ 87, " ", -.71489543558681801], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(88\[InvisibleSpace]" \ "\[InvisibleSpace]\(-0.714895435586818`\)\), SequenceForm[ 88, " ", -.71489543558681801], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(89\[InvisibleSpace]" \ "\[InvisibleSpace]\(-0.714895435586818`\)\), SequenceForm[ 89, " ", -.71489543558681801], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(90\[InvisibleSpace]" \ "\[InvisibleSpace]\(-0.714895435586818`\)\), SequenceForm[ 90, " ", -.71489543558681801], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(91\[InvisibleSpace]" \ "\[InvisibleSpace]\(-0.714895435586818`\)\), SequenceForm[ 91, " ", -.71489543558681801], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(92\[InvisibleSpace]" \ "\[InvisibleSpace]\(-0.714895435586818`\)\), SequenceForm[ 92, " ", -.71489543558681801], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(93\[InvisibleSpace]" \ "\[InvisibleSpace]\(-0.714895435586818`\)\), SequenceForm[ 93, " ", -.71489543558681801], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(94\[InvisibleSpace]" \ "\[InvisibleSpace]\(-0.714895435586818`\)\), SequenceForm[ 94, " ", -.71489543558681801], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(95\[InvisibleSpace]" \ "\[InvisibleSpace]\(-0.714895435586818`\)\), SequenceForm[ 95, " ", -.71489543558681801], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(96\[InvisibleSpace]" \ "\[InvisibleSpace]\(-0.714895435586818`\)\), SequenceForm[ 96, " ", -.71489543558681801], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(97\[InvisibleSpace]" \ "\[InvisibleSpace]\(-0.714895435586818`\)\), SequenceForm[ 97, " ", -.71489543558681801], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(98\[InvisibleSpace]" \ "\[InvisibleSpace]\(-0.714895435586818`\)\), SequenceForm[ 98, " ", -.71489543558681801], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(99\[InvisibleSpace]" \ "\[InvisibleSpace]\(-0.714895435586818`\)\), SequenceForm[ 99, " ", -.71489543558681801], Editable->False]], "Print"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(v[99]\)], "Input"], Cell[BoxData[ \({\(-0.786375375289721`\), \(-0.3893615247764928`\), 0.47959500848286046`}\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(A . v[99]\ l[99]\)], "Input"], Cell[BoxData[ \({\(-0.7863753752897212`\), \(-0.38936152477649294`\), 0.47959500848286024`}\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \({\(-1.6396654706172242`\), \(-0.8118548314507897`\), 1.`}\ \((0.47959500848286024`)\)\)], "Input"], Cell[BoxData[ \({\(-0.7863753752897207`\), \(-0.38936152477649255`\), 0.47959500848286024`}\)], "Output"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["\<\ Finding the eigenvalue near 4 (\[Lambda]=3.63601). The corresponding \ eigenvector is u=(-0.607734,0.626839,-0.487578).\ \>", "Subsubtitle", TextAlignment->Left, Background->RGBColor[1, 1, 0.682353]], Cell[CellGroupData[{ Cell[BoxData[ \(For[i = 1, i < 100, {v[i] = Inverse[\((A - 4\ IdentityMatrix[3])\)] . v[i - 1]/ Norm[Inverse[\((A - 4\ IdentityMatrix[3])\)] . v[i - 1]], l[i] = 1/v[i] . Inverse[\((A - 4\ IdentityMatrix[3])\)] . v[i] + 4, Print[i, "\< \>", l[i]], \(i++\)}]\)], "Input"], Cell[BoxData[ InterpretationBox[\(1\[InvisibleSpace]" \ "\[InvisibleSpace]3.5983236621534496`\), SequenceForm[ 1, " ", 3.5983236621534496], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(2\[InvisibleSpace]" \ "\[InvisibleSpace]3.635724468355987`\), SequenceForm[ 2, " ", 3.6357244683559871], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(3\[InvisibleSpace]" \ "\[InvisibleSpace]3.6360115845574796`\), SequenceForm[ 3, " ", 3.6360115845574796], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(4\[InvisibleSpace]" \ "\[InvisibleSpace]3.6360138183354906`\), SequenceForm[ 4, " ", 3.6360138183354906], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(5\[InvisibleSpace]" \ "\[InvisibleSpace]3.636013835810831`\), SequenceForm[ 5, " ", 3.6360138358108309], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(6\[InvisibleSpace]" \ "\[InvisibleSpace]3.6360138359481273`\), SequenceForm[ 6, " ", 3.6360138359481273], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(7\[InvisibleSpace]" \ "\[InvisibleSpace]3.6360138359492096`\), SequenceForm[ 7, " ", 3.6360138359492096], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(8\[InvisibleSpace]" \ "\[InvisibleSpace]3.636013835949218`\), SequenceForm[ 8, " ", 3.636013835949218], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(9\[InvisibleSpace]" \ "\[InvisibleSpace]3.636013835949218`\), SequenceForm[ 9, " ", 3.636013835949218], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(10\[InvisibleSpace]" \ "\[InvisibleSpace]3.636013835949218`\), SequenceForm[ 10, " ", 3.636013835949218], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(11\[InvisibleSpace]" \ "\[InvisibleSpace]3.636013835949218`\), SequenceForm[ 11, " ", 3.636013835949218], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(12\[InvisibleSpace]" \ "\[InvisibleSpace]3.636013835949218`\), SequenceForm[ 12, " ", 3.636013835949218], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(13\[InvisibleSpace]" \ "\[InvisibleSpace]3.636013835949218`\), SequenceForm[ 13, " ", 3.636013835949218], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(14\[InvisibleSpace]" \ "\[InvisibleSpace]3.636013835949218`\), SequenceForm[ 14, " ", 3.636013835949218], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(15\[InvisibleSpace]" \ "\[InvisibleSpace]3.636013835949218`\), SequenceForm[ 15, " ", 3.636013835949218], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(16\[InvisibleSpace]" \ "\[InvisibleSpace]3.636013835949218`\), SequenceForm[ 16, " ", 3.636013835949218], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(17\[InvisibleSpace]" \ "\[InvisibleSpace]3.636013835949218`\), SequenceForm[ 17, " ", 3.636013835949218], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(18\[InvisibleSpace]" \ "\[InvisibleSpace]3.636013835949218`\), SequenceForm[ 18, " ", 3.636013835949218], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(19\[InvisibleSpace]" \ "\[InvisibleSpace]3.636013835949218`\), SequenceForm[ 19, " ", 3.636013835949218], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(20\[InvisibleSpace]" \ "\[InvisibleSpace]3.636013835949218`\), SequenceForm[ 20, " ", 3.636013835949218], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(21\[InvisibleSpace]" \ "\[InvisibleSpace]3.636013835949218`\), SequenceForm[ 21, " ", 3.636013835949218], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(22\[InvisibleSpace]" \ "\[InvisibleSpace]3.636013835949218`\), SequenceForm[ 22, " ", 3.636013835949218], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(23\[InvisibleSpace]" \ "\[InvisibleSpace]3.636013835949218`\), SequenceForm[ 23, " ", 3.636013835949218], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(24\[InvisibleSpace]" \ "\[InvisibleSpace]3.636013835949218`\), SequenceForm[ 24, " ", 3.636013835949218], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(25\[InvisibleSpace]" \ "\[InvisibleSpace]3.636013835949218`\), SequenceForm[ 25, " ", 3.636013835949218], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(26\[InvisibleSpace]" \ "\[InvisibleSpace]3.636013835949218`\), SequenceForm[ 26, " ", 3.636013835949218], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(27\[InvisibleSpace]" \ "\[InvisibleSpace]3.636013835949218`\), SequenceForm[ 27, " ", 3.636013835949218], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(28\[InvisibleSpace]" \ "\[InvisibleSpace]3.636013835949218`\), SequenceForm[ 28, " ", 3.636013835949218], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(29\[InvisibleSpace]" \ "\[InvisibleSpace]3.636013835949218`\), SequenceForm[ 29, " ", 3.636013835949218], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(30\[InvisibleSpace]" \ "\[InvisibleSpace]3.636013835949218`\), SequenceForm[ 30, " ", 3.636013835949218], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(31\[InvisibleSpace]" \ "\[InvisibleSpace]3.636013835949218`\), SequenceForm[ 31, " ", 3.636013835949218], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(32\[InvisibleSpace]" \ "\[InvisibleSpace]3.636013835949218`\), SequenceForm[ 32, " ", 3.636013835949218], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(33\[InvisibleSpace]" \ "\[InvisibleSpace]3.636013835949218`\), SequenceForm[ 33, " ", 3.636013835949218], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(34\[InvisibleSpace]" \ "\[InvisibleSpace]3.636013835949218`\), SequenceForm[ 34, " ", 3.636013835949218], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(35\[InvisibleSpace]" \ "\[InvisibleSpace]3.636013835949218`\), SequenceForm[ 35, " ", 3.636013835949218], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(36\[InvisibleSpace]" \ "\[InvisibleSpace]3.636013835949218`\), SequenceForm[ 36, " ", 3.636013835949218], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(37\[InvisibleSpace]" \ "\[InvisibleSpace]3.636013835949218`\), SequenceForm[ 37, " ", 3.636013835949218], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(38\[InvisibleSpace]" \ "\[InvisibleSpace]3.636013835949218`\), SequenceForm[ 38, " ", 3.636013835949218], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(39\[InvisibleSpace]" \ "\[InvisibleSpace]3.636013835949218`\), SequenceForm[ 39, " ", 3.636013835949218], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(40\[InvisibleSpace]" \ "\[InvisibleSpace]3.636013835949218`\), SequenceForm[ 40, " ", 3.636013835949218], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(41\[InvisibleSpace]" \ "\[InvisibleSpace]3.636013835949218`\), SequenceForm[ 41, " ", 3.636013835949218], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(42\[InvisibleSpace]" \ "\[InvisibleSpace]3.636013835949218`\), SequenceForm[ 42, " ", 3.636013835949218], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(43\[InvisibleSpace]" \ "\[InvisibleSpace]3.636013835949218`\), SequenceForm[ 43, " ", 3.636013835949218], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(44\[InvisibleSpace]" \ "\[InvisibleSpace]3.636013835949218`\), SequenceForm[ 44, " ", 3.636013835949218], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(45\[InvisibleSpace]" \ "\[InvisibleSpace]3.636013835949218`\), SequenceForm[ 45, " ", 3.636013835949218], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(46\[InvisibleSpace]" \ "\[InvisibleSpace]3.636013835949218`\), SequenceForm[ 46, " ", 3.636013835949218], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(47\[InvisibleSpace]" \ "\[InvisibleSpace]3.636013835949218`\), SequenceForm[ 47, " ", 3.636013835949218], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(48\[InvisibleSpace]" \ "\[InvisibleSpace]3.636013835949218`\), SequenceForm[ 48, " ", 3.636013835949218], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(49\[InvisibleSpace]" \ "\[InvisibleSpace]3.636013835949218`\), SequenceForm[ 49, " ", 3.636013835949218], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(50\[InvisibleSpace]" \ "\[InvisibleSpace]3.636013835949218`\), SequenceForm[ 50, " ", 3.636013835949218], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(51\[InvisibleSpace]" \ "\[InvisibleSpace]3.636013835949218`\), SequenceForm[ 51, " ", 3.636013835949218], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(52\[InvisibleSpace]" \ "\[InvisibleSpace]3.636013835949218`\), SequenceForm[ 52, " ", 3.636013835949218], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(53\[InvisibleSpace]" \ "\[InvisibleSpace]3.636013835949218`\), SequenceForm[ 53, " ", 3.636013835949218], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(54\[InvisibleSpace]" \ "\[InvisibleSpace]3.636013835949218`\), SequenceForm[ 54, " ", 3.636013835949218], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(55\[InvisibleSpace]" \ "\[InvisibleSpace]3.636013835949218`\), SequenceForm[ 55, " ", 3.636013835949218], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(56\[InvisibleSpace]" \ "\[InvisibleSpace]3.636013835949218`\), SequenceForm[ 56, " ", 3.636013835949218], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(57\[InvisibleSpace]" \ "\[InvisibleSpace]3.636013835949218`\), SequenceForm[ 57, " ", 3.636013835949218], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(58\[InvisibleSpace]" \ "\[InvisibleSpace]3.636013835949218`\), SequenceForm[ 58, " ", 3.636013835949218], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(59\[InvisibleSpace]" \ "\[InvisibleSpace]3.636013835949218`\), SequenceForm[ 59, " ", 3.636013835949218], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(60\[InvisibleSpace]" \ "\[InvisibleSpace]3.636013835949218`\), SequenceForm[ 60, " ", 3.636013835949218], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(61\[InvisibleSpace]" \ "\[InvisibleSpace]3.636013835949218`\), SequenceForm[ 61, " ", 3.636013835949218], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(62\[InvisibleSpace]" \ "\[InvisibleSpace]3.636013835949218`\), SequenceForm[ 62, " ", 3.636013835949218], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(63\[InvisibleSpace]" \ "\[InvisibleSpace]3.636013835949218`\), SequenceForm[ 63, " ", 3.636013835949218], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(64\[InvisibleSpace]" \ "\[InvisibleSpace]3.636013835949218`\), SequenceForm[ 64, " ", 3.636013835949218], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(65\[InvisibleSpace]" \ "\[InvisibleSpace]3.636013835949218`\), SequenceForm[ 65, " ", 3.636013835949218], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(66\[InvisibleSpace]" \ "\[InvisibleSpace]3.636013835949218`\), SequenceForm[ 66, " ", 3.636013835949218], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(67\[InvisibleSpace]" \ "\[InvisibleSpace]3.636013835949218`\), SequenceForm[ 67, " ", 3.636013835949218], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(68\[InvisibleSpace]" \ "\[InvisibleSpace]3.636013835949218`\), SequenceForm[ 68, " ", 3.636013835949218], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(69\[InvisibleSpace]" \ "\[InvisibleSpace]3.636013835949218`\), SequenceForm[ 69, " ", 3.636013835949218], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(70\[InvisibleSpace]" \ "\[InvisibleSpace]3.636013835949218`\), SequenceForm[ 70, " ", 3.636013835949218], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(71\[InvisibleSpace]" \ "\[InvisibleSpace]3.636013835949218`\), SequenceForm[ 71, " ", 3.636013835949218], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(72\[InvisibleSpace]" \ "\[InvisibleSpace]3.636013835949218`\), SequenceForm[ 72, " ", 3.636013835949218], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(73\[InvisibleSpace]" \ "\[InvisibleSpace]3.636013835949218`\), SequenceForm[ 73, " ", 3.636013835949218], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(74\[InvisibleSpace]" \ "\[InvisibleSpace]3.636013835949218`\), SequenceForm[ 74, " ", 3.636013835949218], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(75\[InvisibleSpace]" \ "\[InvisibleSpace]3.636013835949218`\), SequenceForm[ 75, " ", 3.636013835949218], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(76\[InvisibleSpace]" \ "\[InvisibleSpace]3.636013835949218`\), SequenceForm[ 76, " ", 3.636013835949218], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(77\[InvisibleSpace]" \ "\[InvisibleSpace]3.636013835949218`\), SequenceForm[ 77, " ", 3.636013835949218], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(78\[InvisibleSpace]" \ "\[InvisibleSpace]3.636013835949218`\), SequenceForm[ 78, " ", 3.636013835949218], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(79\[InvisibleSpace]" \ "\[InvisibleSpace]3.636013835949218`\), SequenceForm[ 79, " ", 3.636013835949218], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(80\[InvisibleSpace]" \ "\[InvisibleSpace]3.636013835949218`\), SequenceForm[ 80, " ", 3.636013835949218], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(81\[InvisibleSpace]" \ "\[InvisibleSpace]3.636013835949218`\), SequenceForm[ 81, " ", 3.636013835949218], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(82\[InvisibleSpace]" \ "\[InvisibleSpace]3.636013835949218`\), SequenceForm[ 82, " ", 3.636013835949218], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(83\[InvisibleSpace]" \ "\[InvisibleSpace]3.636013835949218`\), SequenceForm[ 83, " ", 3.636013835949218], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(84\[InvisibleSpace]" \ "\[InvisibleSpace]3.636013835949218`\), SequenceForm[ 84, " ", 3.636013835949218], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(85\[InvisibleSpace]" \ "\[InvisibleSpace]3.636013835949218`\), SequenceForm[ 85, " ", 3.636013835949218], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(86\[InvisibleSpace]" \ "\[InvisibleSpace]3.636013835949218`\), SequenceForm[ 86, " ", 3.636013835949218], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(87\[InvisibleSpace]" \ "\[InvisibleSpace]3.636013835949218`\), SequenceForm[ 87, " ", 3.636013835949218], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(88\[InvisibleSpace]" \ "\[InvisibleSpace]3.636013835949218`\), SequenceForm[ 88, " ", 3.636013835949218], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(89\[InvisibleSpace]" \ "\[InvisibleSpace]3.636013835949218`\), SequenceForm[ 89, " ", 3.636013835949218], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(90\[InvisibleSpace]" \ "\[InvisibleSpace]3.636013835949218`\), SequenceForm[ 90, " ", 3.636013835949218], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(91\[InvisibleSpace]" \ "\[InvisibleSpace]3.636013835949218`\), SequenceForm[ 91, " ", 3.636013835949218], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(92\[InvisibleSpace]" \ "\[InvisibleSpace]3.636013835949218`\), SequenceForm[ 92, " ", 3.636013835949218], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(93\[InvisibleSpace]" \ "\[InvisibleSpace]3.636013835949218`\), SequenceForm[ 93, " ", 3.636013835949218], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(94\[InvisibleSpace]" \ "\[InvisibleSpace]3.636013835949218`\), SequenceForm[ 94, " ", 3.636013835949218], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(95\[InvisibleSpace]" \ "\[InvisibleSpace]3.636013835949218`\), SequenceForm[ 95, " ", 3.636013835949218], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(96\[InvisibleSpace]" \ "\[InvisibleSpace]3.636013835949218`\), SequenceForm[ 96, " ", 3.636013835949218], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(97\[InvisibleSpace]" \ "\[InvisibleSpace]3.636013835949218`\), SequenceForm[ 97, " ", 3.636013835949218], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(98\[InvisibleSpace]" \ "\[InvisibleSpace]3.636013835949218`\), SequenceForm[ 98, " ", 3.636013835949218], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(99\[InvisibleSpace]" \ "\[InvisibleSpace]3.636013835949218`\), SequenceForm[ 99, " ", 3.636013835949218], Editable->False]], "Print"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(v[99]\)], "Input"], Cell[BoxData[ \({\(-0.6077338986444771`\), 0.626839113957044`, \(-0.4875779257225788`\)}\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(A . v[99]\ 1/l[99]\)], "Input"], Cell[BoxData[ \({\(-0.6077338986444771`\), 0.626839113957044`, \(-0.4875779257225787`\)}\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \({1.246434398652954`, \(-1.2856183204522296`\), 1.`}\ \((\(-0.4875779257225787`\))\)\)], "Input"], Cell[BoxData[ \({\(-0.607733898644477`\), 0.6268391139570435`, \(-0.4875779257225787`\)}\)], "Output"] }, Open ]] }, Closed]] }, Open ]] }, FrontEndVersion->"5.2 for Microsoft Windows", ScreenRectangle->{{0, 1024}, {0, 685}}, WindowSize->{1014, 651}, WindowMargins->{{0, Automatic}, {Automatic, 0}} ] (******************************************************************* Cached data follows. If you edit this Notebook file directly, not using Mathematica, you must remove the line containing CacheID at the top of the file. The cache data will then be recreated when you save this file from within Mathematica. *******************************************************************) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[1776, 53, 657, 19, 229, "Title"], Cell[2436, 74, 271, 6, 107, "Subsubtitle"], Cell[2710, 82, 39044, 602, 440, "Graphics"], Cell[CellGroupData[{ Cell[41779, 688, 225, 7, 47, "Subsubtitle"], Cell[CellGroupData[{ Cell[42029, 699, 80, 1, 30, "Input"], Cell[42112, 702, 77, 1, 29, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[42226, 708, 48, 1, 30, "Input"], Cell[42277, 711, 363, 11, 71, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[42677, 727, 52, 1, 30, "Input"], Cell[42732, 730, 104, 2, 29, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[42873, 737, 53, 1, 30, "Input"], Cell[42929, 740, 223, 4, 29, "Output"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[43201, 750, 212, 5, 48, "Subsubtitle"], Cell[43416, 757, 56, 1, 30, "Input"], Cell[CellGroupData[{ Cell[43497, 762, 178, 4, 30, "Input"], Cell[43678, 768, 184, 4, 25, "Print"], Cell[43865, 774, 184, 4, 25, "Print"], Cell[44052, 780, 184, 4, 25, "Print"], Cell[44239, 786, 183, 4, 25, "Print"], Cell[44425, 792, 184, 4, 25, "Print"], Cell[44612, 798, 183, 4, 25, "Print"], Cell[44798, 804, 183, 4, 25, "Print"], Cell[44984, 810, 184, 4, 25, "Print"], Cell[45171, 816, 184, 4, 25, "Print"], Cell[45358, 822, 186, 4, 25, "Print"], Cell[45547, 828, 186, 4, 25, "Print"], Cell[45736, 834, 186, 4, 25, "Print"], Cell[45925, 840, 186, 4, 25, "Print"], Cell[46114, 846, 185, 4, 25, "Print"], Cell[46302, 852, 186, 4, 25, "Print"], Cell[46491, 858, 185, 4, 25, "Print"], Cell[46679, 864, 186, 4, 25, "Print"], Cell[46868, 870, 185, 4, 25, "Print"], Cell[47056, 876, 185, 4, 25, "Print"], Cell[47244, 882, 185, 4, 25, "Print"], Cell[47432, 888, 186, 4, 25, "Print"], Cell[47621, 894, 184, 4, 25, "Print"], Cell[47808, 900, 186, 4, 25, "Print"], Cell[47997, 906, 184, 4, 25, "Print"], Cell[48184, 912, 186, 4, 25, "Print"], Cell[48373, 918, 186, 4, 25, "Print"], Cell[48562, 924, 184, 4, 25, "Print"], Cell[48749, 930, 184, 4, 25, "Print"], Cell[48936, 936, 186, 4, 25, "Print"], Cell[49125, 942, 186, 4, 25, "Print"], Cell[49314, 948, 186, 4, 25, "Print"], Cell[49503, 954, 184, 4, 25, "Print"], Cell[49690, 960, 186, 4, 25, "Print"], Cell[49879, 966, 184, 4, 25, "Print"], Cell[50066, 972, 186, 4, 25, "Print"], Cell[50255, 978, 186, 4, 25, "Print"], Cell[50444, 984, 184, 4, 25, "Print"], Cell[50631, 990, 184, 4, 25, "Print"], Cell[50818, 996, 184, 4, 25, "Print"], Cell[51005, 1002, 184, 4, 25, "Print"], Cell[51192, 1008, 186, 4, 25, "Print"], Cell[51381, 1014, 184, 4, 25, "Print"], Cell[51568, 1020, 186, 4, 25, "Print"], Cell[51757, 1026, 184, 4, 25, "Print"], Cell[51944, 1032, 186, 4, 25, "Print"], Cell[52133, 1038, 184, 4, 25, "Print"], Cell[52320, 1044, 186, 4, 25, "Print"], Cell[52509, 1050, 184, 4, 25, "Print"], Cell[52696, 1056, 186, 4, 25, "Print"], Cell[52885, 1062, 184, 4, 25, "Print"], Cell[53072, 1068, 186, 4, 25, "Print"], Cell[53261, 1074, 184, 4, 25, "Print"], Cell[53448, 1080, 186, 4, 25, "Print"], Cell[53637, 1086, 184, 4, 25, "Print"], Cell[53824, 1092, 186, 4, 25, "Print"], Cell[54013, 1098, 184, 4, 25, "Print"], Cell[54200, 1104, 186, 4, 25, "Print"], Cell[54389, 1110, 184, 4, 25, "Print"], Cell[54576, 1116, 186, 4, 25, "Print"], Cell[54765, 1122, 184, 4, 25, "Print"], Cell[54952, 1128, 186, 4, 25, "Print"], Cell[55141, 1134, 184, 4, 25, "Print"], Cell[55328, 1140, 186, 4, 25, "Print"], Cell[55517, 1146, 184, 4, 25, "Print"], Cell[55704, 1152, 186, 4, 25, "Print"], Cell[55893, 1158, 184, 4, 25, "Print"], Cell[56080, 1164, 186, 4, 25, "Print"], Cell[56269, 1170, 184, 4, 25, "Print"], Cell[56456, 1176, 186, 4, 25, "Print"], Cell[56645, 1182, 184, 4, 25, "Print"], Cell[56832, 1188, 186, 4, 25, "Print"], Cell[57021, 1194, 184, 4, 25, "Print"], Cell[57208, 1200, 186, 4, 25, "Print"], Cell[57397, 1206, 184, 4, 25, "Print"], Cell[57584, 1212, 186, 4, 25, "Print"], Cell[57773, 1218, 184, 4, 25, "Print"], Cell[57960, 1224, 186, 4, 25, "Print"], Cell[58149, 1230, 184, 4, 25, "Print"], Cell[58336, 1236, 186, 4, 25, "Print"], Cell[58525, 1242, 184, 4, 25, "Print"], Cell[58712, 1248, 186, 4, 25, "Print"], Cell[58901, 1254, 184, 4, 25, "Print"], Cell[59088, 1260, 186, 4, 25, "Print"], Cell[59277, 1266, 184, 4, 25, "Print"], Cell[59464, 1272, 186, 4, 25, "Print"], Cell[59653, 1278, 184, 4, 25, "Print"], Cell[59840, 1284, 186, 4, 25, "Print"], Cell[60029, 1290, 184, 4, 25, "Print"], Cell[60216, 1296, 186, 4, 25, "Print"], Cell[60405, 1302, 184, 4, 25, "Print"], Cell[60592, 1308, 186, 4, 25, "Print"], Cell[60781, 1314, 184, 4, 25, "Print"], Cell[60968, 1320, 186, 4, 25, "Print"], Cell[61157, 1326, 184, 4, 25, "Print"], Cell[61344, 1332, 186, 4, 25, "Print"], Cell[61533, 1338, 184, 4, 25, "Print"], Cell[61720, 1344, 186, 4, 25, "Print"], Cell[61909, 1350, 184, 4, 25, "Print"], Cell[62096, 1356, 186, 4, 25, "Print"] }, Open ]], Cell[CellGroupData[{ Cell[62319, 1365, 38, 1, 30, "Input"], Cell[62360, 1368, 105, 2, 29, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[62502, 1375, 48, 1, 30, "Input"], Cell[62553, 1378, 104, 2, 29, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[62694, 1385, 111, 2, 30, "Input"], Cell[62808, 1389, 105, 2, 29, "Output"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[62962, 1397, 217, 5, 48, "Subsubtitle"], Cell[CellGroupData[{ Cell[63204, 1406, 207, 4, 30, "Input"], Cell[63414, 1412, 191, 4, 25, "Print"], Cell[63608, 1418, 191, 4, 25, "Print"], Cell[63802, 1424, 191, 4, 25, "Print"], Cell[63996, 1430, 191, 4, 25, "Print"], Cell[64190, 1436, 191, 4, 25, "Print"], Cell[64384, 1442, 191, 4, 25, "Print"], Cell[64578, 1448, 191, 4, 25, "Print"], Cell[64772, 1454, 191, 4, 25, "Print"], Cell[64966, 1460, 191, 4, 25, "Print"], Cell[65160, 1466, 193, 4, 25, "Print"], Cell[65356, 1472, 193, 4, 25, "Print"], Cell[65552, 1478, 193, 4, 25, "Print"], Cell[65748, 1484, 192, 4, 25, "Print"], Cell[65943, 1490, 192, 4, 25, "Print"], Cell[66138, 1496, 192, 4, 25, "Print"], Cell[66333, 1502, 192, 4, 25, "Print"], Cell[66528, 1508, 192, 4, 25, "Print"], Cell[66723, 1514, 192, 4, 25, "Print"], Cell[66918, 1520, 193, 4, 25, "Print"], Cell[67114, 1526, 192, 4, 25, "Print"], Cell[67309, 1532, 193, 4, 25, "Print"], Cell[67505, 1538, 192, 4, 25, "Print"], Cell[67700, 1544, 192, 4, 25, "Print"], Cell[67895, 1550, 192, 4, 25, "Print"], Cell[68090, 1556, 192, 4, 25, "Print"], Cell[68285, 1562, 192, 4, 25, "Print"], Cell[68480, 1568, 192, 4, 25, "Print"], Cell[68675, 1574, 192, 4, 25, "Print"], Cell[68870, 1580, 192, 4, 25, "Print"], Cell[69065, 1586, 192, 4, 25, "Print"], Cell[69260, 1592, 192, 4, 25, "Print"], Cell[69455, 1598, 192, 4, 25, "Print"], Cell[69650, 1604, 192, 4, 25, "Print"], Cell[69845, 1610, 192, 4, 25, "Print"], Cell[70040, 1616, 192, 4, 25, "Print"], Cell[70235, 1622, 192, 4, 25, "Print"], Cell[70430, 1628, 192, 4, 25, "Print"], Cell[70625, 1634, 192, 4, 25, "Print"], Cell[70820, 1640, 192, 4, 25, "Print"], Cell[71015, 1646, 192, 4, 25, "Print"], Cell[71210, 1652, 192, 4, 25, "Print"], Cell[71405, 1658, 192, 4, 25, "Print"], Cell[71600, 1664, 192, 4, 25, "Print"], Cell[71795, 1670, 192, 4, 25, "Print"], Cell[71990, 1676, 192, 4, 25, "Print"], Cell[72185, 1682, 192, 4, 25, "Print"], Cell[72380, 1688, 192, 4, 25, "Print"], Cell[72575, 1694, 192, 4, 25, "Print"], Cell[72770, 1700, 192, 4, 25, "Print"], Cell[72965, 1706, 192, 4, 25, "Print"], Cell[73160, 1712, 192, 4, 25, "Print"], Cell[73355, 1718, 192, 4, 25, "Print"], Cell[73550, 1724, 192, 4, 25, "Print"], Cell[73745, 1730, 192, 4, 25, "Print"], Cell[73940, 1736, 192, 4, 25, "Print"], Cell[74135, 1742, 192, 4, 25, "Print"], Cell[74330, 1748, 192, 4, 25, "Print"], Cell[74525, 1754, 192, 4, 25, "Print"], Cell[74720, 1760, 192, 4, 25, "Print"], Cell[74915, 1766, 192, 4, 25, "Print"], Cell[75110, 1772, 192, 4, 25, "Print"], Cell[75305, 1778, 192, 4, 25, "Print"], Cell[75500, 1784, 192, 4, 25, "Print"], Cell[75695, 1790, 192, 4, 25, "Print"], Cell[75890, 1796, 192, 4, 25, "Print"], Cell[76085, 1802, 192, 4, 25, "Print"], Cell[76280, 1808, 192, 4, 25, "Print"], Cell[76475, 1814, 192, 4, 25, "Print"], Cell[76670, 1820, 192, 4, 25, "Print"], Cell[76865, 1826, 192, 4, 25, "Print"], Cell[77060, 1832, 192, 4, 25, "Print"], Cell[77255, 1838, 192, 4, 25, "Print"], Cell[77450, 1844, 192, 4, 25, "Print"], Cell[77645, 1850, 192, 4, 25, "Print"], Cell[77840, 1856, 192, 4, 25, "Print"], Cell[78035, 1862, 192, 4, 25, "Print"], Cell[78230, 1868, 192, 4, 25, "Print"], Cell[78425, 1874, 192, 4, 25, "Print"], Cell[78620, 1880, 192, 4, 25, "Print"], Cell[78815, 1886, 192, 4, 25, "Print"], Cell[79010, 1892, 192, 4, 25, "Print"], Cell[79205, 1898, 192, 4, 25, "Print"], Cell[79400, 1904, 192, 4, 25, "Print"], Cell[79595, 1910, 192, 4, 25, "Print"], Cell[79790, 1916, 192, 4, 25, "Print"], Cell[79985, 1922, 192, 4, 25, "Print"], Cell[80180, 1928, 192, 4, 25, "Print"], Cell[80375, 1934, 192, 4, 25, "Print"], Cell[80570, 1940, 192, 4, 25, "Print"], Cell[80765, 1946, 192, 4, 25, "Print"], Cell[80960, 1952, 192, 4, 25, "Print"], Cell[81155, 1958, 192, 4, 25, "Print"], Cell[81350, 1964, 192, 4, 25, "Print"], Cell[81545, 1970, 192, 4, 25, "Print"], Cell[81740, 1976, 192, 4, 25, "Print"], Cell[81935, 1982, 192, 4, 25, "Print"], Cell[82130, 1988, 192, 4, 25, "Print"], Cell[82325, 1994, 192, 4, 25, "Print"], Cell[82520, 2000, 192, 4, 25, "Print"] }, Open ]], Cell[CellGroupData[{ Cell[82749, 2009, 38, 1, 30, "Input"], Cell[82790, 2012, 114, 2, 29, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[82941, 2019, 49, 1, 30, "Input"], Cell[82993, 2022, 116, 2, 29, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[83146, 2029, 127, 2, 30, "Input"], Cell[83276, 2033, 116, 2, 29, "Output"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[83441, 2041, 214, 5, 48, "Subsubtitle"], Cell[CellGroupData[{ Cell[83680, 2050, 322, 6, 50, "Input"], Cell[84005, 2058, 185, 4, 25, "Print"], Cell[84193, 2064, 184, 4, 25, "Print"], Cell[84380, 2070, 185, 4, 25, "Print"], Cell[84568, 2076, 185, 4, 25, "Print"], Cell[84756, 2082, 184, 4, 25, "Print"], Cell[84943, 2088, 185, 4, 25, "Print"], Cell[85131, 2094, 185, 4, 25, "Print"], Cell[85319, 2100, 183, 4, 25, "Print"], Cell[85505, 2106, 183, 4, 25, "Print"], Cell[85691, 2112, 185, 4, 25, "Print"], Cell[85879, 2118, 185, 4, 25, "Print"], Cell[86067, 2124, 185, 4, 25, "Print"], Cell[86255, 2130, 185, 4, 25, "Print"], Cell[86443, 2136, 185, 4, 25, "Print"], Cell[86631, 2142, 185, 4, 25, "Print"], Cell[86819, 2148, 185, 4, 25, "Print"], Cell[87007, 2154, 185, 4, 25, "Print"], Cell[87195, 2160, 185, 4, 25, "Print"], Cell[87383, 2166, 185, 4, 25, "Print"], Cell[87571, 2172, 185, 4, 25, "Print"], Cell[87759, 2178, 185, 4, 25, "Print"], Cell[87947, 2184, 185, 4, 25, "Print"], Cell[88135, 2190, 185, 4, 25, "Print"], Cell[88323, 2196, 185, 4, 25, "Print"], Cell[88511, 2202, 185, 4, 25, "Print"], Cell[88699, 2208, 185, 4, 25, "Print"], Cell[88887, 2214, 185, 4, 25, "Print"], Cell[89075, 2220, 185, 4, 25, "Print"], Cell[89263, 2226, 185, 4, 25, "Print"], Cell[89451, 2232, 185, 4, 25, "Print"], Cell[89639, 2238, 185, 4, 25, "Print"], Cell[89827, 2244, 185, 4, 25, "Print"], Cell[90015, 2250, 185, 4, 25, "Print"], Cell[90203, 2256, 185, 4, 25, "Print"], Cell[90391, 2262, 185, 4, 25, "Print"], Cell[90579, 2268, 185, 4, 25, "Print"], Cell[90767, 2274, 185, 4, 25, "Print"], Cell[90955, 2280, 185, 4, 25, "Print"], Cell[91143, 2286, 185, 4, 25, "Print"], Cell[91331, 2292, 185, 4, 25, "Print"], Cell[91519, 2298, 185, 4, 25, "Print"], Cell[91707, 2304, 185, 4, 25, "Print"], Cell[91895, 2310, 185, 4, 25, "Print"], Cell[92083, 2316, 185, 4, 25, "Print"], Cell[92271, 2322, 185, 4, 25, "Print"], Cell[92459, 2328, 185, 4, 25, "Print"], Cell[92647, 2334, 185, 4, 25, "Print"], Cell[92835, 2340, 185, 4, 25, "Print"], Cell[93023, 2346, 185, 4, 25, "Print"], Cell[93211, 2352, 185, 4, 25, "Print"], Cell[93399, 2358, 185, 4, 25, "Print"], Cell[93587, 2364, 185, 4, 25, "Print"], Cell[93775, 2370, 185, 4, 25, "Print"], Cell[93963, 2376, 185, 4, 25, "Print"], Cell[94151, 2382, 185, 4, 25, "Print"], Cell[94339, 2388, 185, 4, 25, "Print"], Cell[94527, 2394, 185, 4, 25, "Print"], Cell[94715, 2400, 185, 4, 25, "Print"], Cell[94903, 2406, 185, 4, 25, "Print"], Cell[95091, 2412, 185, 4, 25, "Print"], Cell[95279, 2418, 185, 4, 25, "Print"], Cell[95467, 2424, 185, 4, 25, "Print"], Cell[95655, 2430, 185, 4, 25, "Print"], Cell[95843, 2436, 185, 4, 25, "Print"], Cell[96031, 2442, 185, 4, 25, "Print"], Cell[96219, 2448, 185, 4, 25, "Print"], Cell[96407, 2454, 185, 4, 25, "Print"], Cell[96595, 2460, 185, 4, 25, "Print"], Cell[96783, 2466, 185, 4, 25, "Print"], Cell[96971, 2472, 185, 4, 25, "Print"], Cell[97159, 2478, 185, 4, 25, "Print"], Cell[97347, 2484, 185, 4, 25, "Print"], Cell[97535, 2490, 185, 4, 25, "Print"], Cell[97723, 2496, 185, 4, 25, "Print"], Cell[97911, 2502, 185, 4, 25, "Print"], Cell[98099, 2508, 185, 4, 25, "Print"], Cell[98287, 2514, 185, 4, 25, "Print"], Cell[98475, 2520, 185, 4, 25, "Print"], Cell[98663, 2526, 185, 4, 25, "Print"], Cell[98851, 2532, 185, 4, 25, "Print"], Cell[99039, 2538, 185, 4, 25, "Print"], Cell[99227, 2544, 185, 4, 25, "Print"], Cell[99415, 2550, 185, 4, 25, "Print"], Cell[99603, 2556, 185, 4, 25, "Print"], Cell[99791, 2562, 185, 4, 25, "Print"], Cell[99979, 2568, 185, 4, 25, "Print"], Cell[100167, 2574, 185, 4, 25, "Print"], Cell[100355, 2580, 185, 4, 25, "Print"], Cell[100543, 2586, 185, 4, 25, "Print"], Cell[100731, 2592, 185, 4, 25, "Print"], Cell[100919, 2598, 185, 4, 25, "Print"], Cell[101107, 2604, 185, 4, 25, "Print"], Cell[101295, 2610, 185, 4, 25, "Print"], Cell[101483, 2616, 185, 4, 25, "Print"], Cell[101671, 2622, 185, 4, 25, "Print"], Cell[101859, 2628, 185, 4, 25, "Print"], Cell[102047, 2634, 185, 4, 25, "Print"], Cell[102235, 2640, 185, 4, 25, "Print"], Cell[102423, 2646, 185, 4, 25, "Print"] }, Open ]], Cell[CellGroupData[{ Cell[102645, 2655, 38, 1, 30, "Input"], Cell[102686, 2658, 113, 2, 29, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[102836, 2665, 51, 1, 30, "Input"], Cell[102890, 2668, 113, 2, 29, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[103040, 2675, 125, 2, 30, "Input"], Cell[103168, 2679, 113, 2, 29, "Output"] }, Open ]] }, Closed]] }, Open ]] } ] *) (******************************************************************* End of Mathematica Notebook file. *******************************************************************)