(*********************************************************************** Mathematica-Compatible Notebook This notebook can be used on any computer system with Mathematica 3.0, MathReader 3.0, or any compatible application. The data for the notebook starts with the line of 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[ 17572, 670]*) (*NotebookOutlinePosition[ 18469, 701]*) (* CellTagsIndexPosition[ 18425, 697]*) (*WindowFrame->Normal*) Notebook[{ Cell[CellGroupData[{ Cell["\<\ m = Table[ 1/(i+j+1),{i,1,3},{j,1,3}] \ \>", "Input", PageWidth->Infinity], Cell[BoxData[ \({{1\/3, 1\/4, 1\/5}, {1\/4, 1\/5, 1\/6}, {1\/5, 1\/6, 1\/7}}\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell["Inverse[m]", "Input", PageWidth->Infinity], Cell[BoxData[ \({{300, \(-900\), 630}, {\(-900\), 2880, \(-2100\)}, {630, \(-2100\), 1575}}\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell["\<\ % . m \ \>", "Input", PageWidth->Infinity], Cell[BoxData[ \({{1, 0, 0}, {0, 1, 0}, {0, 0, 1}}\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell["Det[ m - x IdentityMatrix[3] ]", "Input", PageWidth->Infinity], Cell[BoxData[ \(1\/378000 - \(317\ x\)\/25200 + \(71\ x\^2\)\/105 - x\^3\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell["\<\ NSolve[ % == 0 , x]\ \>", "Input", PageWidth->Infinity], Cell[BoxData[ \({{x \[Rule] 0.000212736918826030763`}, { x \[Rule] 0.0189263109740709118`}, {x \[Rule] 0.657051428297579231`}} \)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell["Eigenvalues[ N[m] ]", "Input", PageWidth->Infinity], Cell[BoxData[ \({0.657051428297579231`, 0.0189263109740708088`, 0.000212736918826014465`}\)], "Output"] }, Open ]], Cell["Eigenvalues[ Table[Random[], {100},{100}] ];", "Input", PageWidth->Infinity], Cell[CellGroupData[{ Cell["\<\ ListPlot[ Transpose[ {Re[%], Im[%]} ]]\ \>", "Input", PageWidth->Infinity], Cell[GraphicsData["PostScript", "\<\ %! %%Creator: Mathematica %%AspectRatio: .61803 MathPictureStart /Mabs { Mgmatrix idtransform Mtmatrix dtransform } bind def /Mabsadd { Mabs 3 -1 roll add 3 1 roll add exch } bind def %% Graphics /Courier findfont 10 scalefont setfont % Scaling calculations 0.323258 0.106431 0.309017 0.111391 [ [.1104 .29652 -6 -9 ] [.1104 .29652 6 0 ] [.53612 .29652 -3 -9 ] [.53612 .29652 3 0 ] [.74898 .29652 -3 -9 ] [.74898 .29652 3 0 ] [.96184 .29652 -3 -9 ] [.96184 .29652 3 0 ] [.31076 .08624 -12 -4.5 ] [.31076 .08624 0 4.5 ] [.31076 .19763 -12 -4.5 ] [.31076 .19763 0 4.5 ] [.31076 .42041 -6 -4.5 ] [.31076 .42041 0 4.5 ] [.31076 .5318 -6 -4.5 ] [.31076 .5318 0 4.5 ] [ 0 0 0 0 ] [ 1 .61803 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath 0 g .25 Mabswid .1104 .30902 m .1104 .31527 L s [(-2)] .1104 .29652 0 1 Mshowa .53612 .30902 m .53612 .31527 L s [(2)] .53612 .29652 0 1 Mshowa .74898 .30902 m .74898 .31527 L s [(4)] .74898 .29652 0 1 Mshowa .96184 .30902 m .96184 .31527 L s [(6)] .96184 .29652 0 1 Mshowa .125 Mabswid .16361 .30902 m .16361 .31277 L s .21683 .30902 m .21683 .31277 L s .27004 .30902 m .27004 .31277 L s .37647 .30902 m .37647 .31277 L s .42969 .30902 m .42969 .31277 L s .4829 .30902 m .4829 .31277 L s .58934 .30902 m .58934 .31277 L s .64255 .30902 m .64255 .31277 L s .69577 .30902 m .69577 .31277 L s .8022 .30902 m .8022 .31277 L s .85541 .30902 m .85541 .31277 L s .90863 .30902 m .90863 .31277 L s .05718 .30902 m .05718 .31277 L s .00396 .30902 m .00396 .31277 L s .25 Mabswid 0 .30902 m 1 .30902 L s .32326 .08624 m .32951 .08624 L s [(-2)] .31076 .08624 1 0 Mshowa .32326 .19763 m .32951 .19763 L s [(-1)] .31076 .19763 1 0 Mshowa .32326 .42041 m .32951 .42041 L s [(1)] .31076 .42041 1 0 Mshowa .32326 .5318 m .32951 .5318 L s [(2)] .31076 .5318 1 0 Mshowa .125 Mabswid .32326 .10851 m .32701 .10851 L s .32326 .13079 m .32701 .13079 L s .32326 .15307 m .32701 .15307 L s .32326 .17535 m .32701 .17535 L s .32326 .2199 m .32701 .2199 L s .32326 .24218 m .32701 .24218 L s .32326 .26446 m .32701 .26446 L s .32326 .28674 m .32701 .28674 L s .32326 .3313 m .32701 .3313 L s .32326 .35357 m .32701 .35357 L s .32326 .37585 m .32701 .37585 L s .32326 .39813 m .32701 .39813 L s .32326 .44269 m .32701 .44269 L s .32326 .46496 m .32701 .46496 L s .32326 .48724 m .32701 .48724 L s .32326 .50952 m .32701 .50952 L s .32326 .06396 m .32701 .06396 L s .32326 .04168 m .32701 .04168 L s .32326 .0194 m .32701 .0194 L s .32326 .55408 m .32701 .55408 L s .32326 .57636 m .32701 .57636 L s .32326 .59863 m .32701 .59863 L s .25 Mabswid .32326 0 m .32326 .61803 L s 0 0 m 1 0 L 1 .61803 L 0 .61803 L closepath clip newpath .008 w .64182 .30902 Mdot .03634 .40128 Mdot .03634 .21675 Mdot .07104 .47902 Mdot .07104 .13901 Mdot .51465 .55032 Mdot .51465 .06772 Mdot .02381 .30902 Mdot .23769 .60332 Mdot .23769 .01472 Mdot .6034 .3698 Mdot .6034 .24823 Mdot .09749 .49257 Mdot .09749 .12546 Mdot .56935 .44892 Mdot .56935 .16911 Mdot .54869 .47154 Mdot .54869 .14649 Mdot .38113 .58516 Mdot .38113 .03288 Mdot .06313 .37605 Mdot .06313 .24198 Mdot .58248 .37414 Mdot .58248 .2439 Mdot .4446 .55503 Mdot .4446 .063 Mdot .35831 .57954 Mdot .35831 .03849 Mdot .17251 .53147 Mdot .17251 .08656 Mdot .25985 .5735 Mdot .25985 .04453 Mdot .3134 .57413 Mdot .3134 .0439 Mdot .48071 .50724 Mdot .48071 .1108 Mdot .39972 .54674 Mdot .39972 .0713 Mdot .50633 .46487 Mdot .50633 .15316 Mdot .20677 .52018 Mdot .20677 .09785 Mdot .55533 .30902 Mdot .13753 .44165 Mdot .13753 .17639 Mdot .38875 .53314 Mdot .38875 .08489 Mdot .10301 .32827 Mdot .10301 .28977 Mdot .1807 .48455 Mdot .1807 .13348 Mdot .5071 .41942 Mdot .5071 .19861 Mdot .13352 .40039 Mdot .13352 .21765 Mdot .25769 .51317 Mdot .25769 .10486 Mdot .14295 .30902 Mdot .49398 .36263 Mdot .49398 .25541 Mdot .42525 .46001 Mdot .42525 .15802 Mdot .46373 .41876 Mdot .46373 .19927 Mdot .28687 .48335 Mdot .28687 .13469 Mdot .3782 .4758 Mdot .3782 .14224 Mdot .20361 .43133 Mdot .20361 .1867 Mdot .35479 .48071 Mdot .35479 .13733 Mdot .24863 .46077 Mdot .24863 .15726 Mdot .18066 .35042 Mdot .18066 .26761 Mdot .46627 .32096 Mdot .46627 .29707 Mdot .30583 .44568 Mdot .30583 .17235 Mdot .21136 .37756 Mdot .21136 .24047 Mdot .42413 .39094 Mdot .42413 .22709 Mdot .4348 .35227 Mdot .4348 .26576 Mdot .20666 .30902 Mdot .21907 .34427 Mdot .21907 .27376 Mdot .41662 .30902 Mdot .27695 .39013 Mdot .27695 .22791 Mdot .34099 .38104 Mdot .34099 .23699 Mdot .33626 .3726 Mdot .33626 .24543 Mdot .38273 .30902 Mdot .2972 .33186 Mdot .2972 .28617 Mdot % End of Graphics MathPictureEnd \ \>"], "Graphics", PageWidth->Infinity, Evaluatable->False, ImageSize->{300, 185}, ImageMargins->{{100, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}}, ImageCache->GraphicsData["Bitmap", "\<\ CF5dJ6E]HGAYHf4PAg9QL6QYHggoo00<007oo000037oo000S Ool00`00Oomoo`0jOol00`00Oomoo`0lOol00`00Oomoo`0lOol00`00Ool0000lOol2000=Ool0029o o`03001oo`0003]oo`03001oogoo03]oo`03001oo`0003ioo`8003aoo`03001oogoo00aoo`008goo 00<007ooOol0goo0P0037oo 000NOol00`00Oomoo`0oOol00`00Oomoo`39Ool0061oo`03001oogoo0Ool00`00Oomoo`0= Ool00`00Oomoo`0=Ool00`00Oomoo`0=Ool00`00Oomoo`0=Ool00`00Oomoo`0 Ool00`00Oomoo`2hOol0061oo`03001oogoo0"], ImageRangeCache->{{{0, 299}, {184, 0}} -> {-3.05745, -2.77416, 0.031559, 0.0301538}}], Cell[BoxData[ TagBox[\(\[SkeletonIndicator] Graphics \[SkeletonIndicator]\), False, Editable->False]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell["\<\ MatrixForm[ {{0,a},{a,b}} ] \ \>", "Input", PageWidth->Infinity], Cell[BoxData[ TagBox[ RowBox[{"(", GridBox[{ {"0", "a"}, {"a", "b"} }], ")"}], (MatrixForm[ #]&)]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell["Simplify[ Eigenvectors[%] ]", "Input", PageWidth->Infinity], Cell[BoxData[ \({{\(-\(\(b + \@\(4\ a\^2 + b\^2\)\)\/\(2\ a\)\)\), 1}, { \(\(-b\) + \@\(4\ a\^2 + b\^2\)\)\/\(2\ a\), 1}}\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell["Eigenvalues[ %% ]", "Input", PageWidth->Infinity], Cell[BoxData[ \({1\/2\ \((b - \@\(4\ a\^2 + b\^2\))\), 1\/2\ \((b + \@\(4\ a\^2 + b\^2\))\)}\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell["1+ x^2 + 3 x^3 /. x -> 1 + a", "Input", PageWidth->Infinity], Cell[BoxData[ \(1 + \((1 + a)\)\^2 + 3\ \((1 + a)\)\^3\)], "Output"] }, Open ]], Cell["f[n_] := n^2", "Input", PageWidth->Infinity], Cell[CellGroupData[{ Cell["\<\ f[3] + 1 / f [a+b]\ \>", "Input", PageWidth->Infinity], Cell[BoxData[ \(9 + 1\/\((a + b)\)\^2\)], "Output"] }, Open ]], Cell["fac[n_] := n fac[n-1]", "Input", PageWidth->Infinity], Cell["\<\ fac[1] := 1 \ \>", "Input", PageWidth->Infinity], Cell[CellGroupData[{ Cell["\<\ ?fac \ \>", "Input", PageWidth->Infinity], Cell[BoxData[ \("Global`fac"\)], "Print"], Cell[BoxData[ InterpretationBox[ StyleBox[\(fac[1]\ := \ 1\n\ \n fac[n_]\ := \ n*fac[n\ - \ 1]\), ShowStringCharacters->True, NumberMarks->True], InputForm[ Definition[ fac]], Editable->True, AutoDelete->True]], "Print"] }, Open ]], Cell[CellGroupData[{ Cell["fac[30]", "Input", PageWidth->Infinity], Cell[BoxData[ \(265252859812191058636308480000000\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell["Gamma[31]", "Input", PageWidth->Infinity], Cell[BoxData[ \(265252859812191058636308480000000\)], "Output"] }, Open ]], Cell["mylog[x_ y_] := mylog[x] + mylog[y]", "Input", PageWidth->Infinity], Cell[CellGroupData[{ Cell["mylog[ a b c ]", "Input", PageWidth->Infinity], Cell[BoxData[ \(mylog[a] + mylog[b] + mylog[c]\)], "Output"] }, Open ]], Cell["g/: g[x_] + g[y_] := g[x + y]", "Input", PageWidth->Infinity], Cell[CellGroupData[{ Cell["\<\ g[a] + g[b] + g[c] \ \>", "Input", PageWidth->Infinity], Cell[BoxData[ \(g[a + b + c]\)], "Output"] }, Open ]] }, FrontEndVersion->"Microsoft Windows 3.0", ScreenRectangle->{{0, 1024}, {0, 740}}, WindowToolbars->{}, CellGrouping->Manual, WindowSize->{448, 584}, WindowMargins->{{16, Automatic}, {Automatic, 12}}, PrivateNotebookOptions->{"ColorPalette"->{RGBColor, -1}}, ShowCellLabel->True, ShowCellTags->False, RenderingOptions->{"ObjectDithering"->True, "RasterDithering"->False}, StyleDefinitions -> "Report.nb" ] (*********************************************************************** 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[1731, 51, 86, 4, 53, "Input"], Cell[1820, 57, 97, 2, 62, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1954, 64, 50, 1, 35, "Input"], Cell[2007, 67, 118, 2, 68, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[2162, 74, 54, 4, 53, "Input"], Cell[2219, 80, 67, 1, 49, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[2323, 86, 70, 1, 35, "Input"], Cell[2396, 89, 90, 1, 64, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[2523, 95, 68, 4, 53, "Input"], Cell[2594, 101, 159, 3, 68, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[2790, 109, 59, 1, 35, "Input"], Cell[2852, 112, 114, 2, 49, "Output"] }, Open ]], Cell[2981, 117, 84, 1, 38, "Input"], Cell[CellGroupData[{ Cell[3090, 122, 87, 4, 56, "Input"], Cell[3180, 128, 11778, 396, 193, 4618, 302, "GraphicsData", "PostScript", "Graphics"], Cell[14961, 526, 130, 3, 29, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[15128, 534, 76, 4, 48, "Input"], Cell[15207, 540, 161, 6, 54, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[15405, 551, 67, 1, 30, "Input"], Cell[15475, 554, 147, 2, 47, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[15659, 561, 57, 1, 30, "Input"], Cell[15719, 564, 117, 2, 42, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[15873, 571, 68, 1, 30, "Input"], Cell[15944, 574, 72, 1, 29, "Output"] }, Open ]], Cell[16031, 578, 52, 1, 30, "Input"], Cell[CellGroupData[{ Cell[16108, 583, 67, 4, 48, "Input"], Cell[16178, 589, 55, 1, 44, "Output"] }, Open ]], Cell[16248, 593, 61, 1, 30, "Input"], Cell[16312, 596, 60, 4, 48, "Input"], Cell[CellGroupData[{ Cell[16397, 604, 53, 4, 48, "Input"], Cell[16453, 610, 45, 1, 25, "Print"], Cell[16501, 613, 284, 9, 63, "Print"] }, Open ]], Cell[CellGroupData[{ Cell[16822, 627, 47, 1, 30, "Input"], Cell[16872, 630, 67, 1, 29, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[16976, 636, 49, 1, 30, "Input"], Cell[17028, 639, 67, 1, 29, "Output"] }, Open ]], Cell[17110, 643, 75, 1, 30, "Input"], Cell[CellGroupData[{ Cell[17210, 648, 54, 1, 30, "Input"], Cell[17267, 651, 64, 1, 29, "Output"] }, Open ]], Cell[17346, 655, 69, 1, 30, "Input"], Cell[CellGroupData[{ Cell[17440, 660, 67, 4, 48, "Input"], Cell[17510, 666, 46, 1, 29, "Output"] }, Open ]] } ] *) (*********************************************************************** End of Mathematica Notebook file. ***********************************************************************)