(*********************************************************************** 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[ 12271, 432]*) (*NotebookOutlinePosition[ 38273, 1379]*) (* CellTagsIndexPosition[ 38229, 1375]*) (*WindowFrame->Normal*) Notebook[{ Cell[CellGroupData[{ Cell["Multilocus genotype frequencies", "Title", Evaluatable->False, AspectRatioFixed->True], Cell["\<\ Published results using this notebook should cite: Hospital, F., Dillmann, C. and Melchinger, A.E. (1996) A general algorithm to \ compute multilocus genotype frequencies under various mating systems. Comput. \ Appl. Biosci, 12(6):455-462.\ \>", "Text"], Cell[CellGroupData[{ Cell[TextData["Full-Sib Mating"], "Subtitle", Evaluatable->False, AspectRatioFixed->True], Cell[CellGroupData[{ Cell[TextData["Initialization"], "Section", Evaluatable->False, AspectRatioFixed->True], Cell[TextData["ClearAll[\"Global`*\"];"], "Input", AspectRatioFixed->True], Cell[CellGroupData[{ Cell[TextData["Number of loci"], "Subsection", Evaluatable->False, AspectRatioFixed->True], Cell[CellGroupData[{ Cell[TextData["n=3"], "Input", AspectRatioFixed->True], Cell[OutputFormData["\<\ 3\ \>", "\<\ 3\ \>"], "Output", Evaluatable->False, AspectRatioFixed->True] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData["General definitions"], "Subsection", Evaluatable->False, AspectRatioFixed->True], Cell["<<\"definitions.ma\"", "Input", AspectRatioFixed->True], Cell[TextData["G[i_,j_,k_,l_]:=Outer[Times,Pf[i,j],Pm[k,l]]"], "Input", AspectRatioFixed->True], Cell[TextData[ "mat[i_,j_,k_,l_,x_,y_,u_,v_]:=\n\ (G[i,j,k,l][[x]][[y]]+delta[x,y]*G[i,j,k,l][[y]][[x]])*\n\ (G[i,j,k,l][[u]][[v]]+delta[u,v]*G[i,j,k,l][[v]][[u]])"], "Input", AspectRatioFixed->True], Cell[TextData[ "matgen[i_,j_,k_,l_,x_,y_]:=\n\ (G[i,j,k,l][[x]][[y]]+delta[x,y]*G[i,j,k,l][[y]][[x]])"], "Input", AspectRatioFixed->True], Cell[CellGroupData[{ Cell[TextData["Index for genotypes"], "Subsubsection", Evaluatable->False, AspectRatioFixed->True], Cell["\<\ S1= Table[{i,i},{i,1,ngam/2}]; S2=Flatten[ Table[{i,j}, {i,1,ngam/2-1},{j,i+1,ngam-i}],1]; S3=Table[{ngam/2+1-i,ngam/2+i},{i,1,ngam/2}]; S4=Flatten[ Table[{i,j}, {j,ngam/2+2,ngam},{i,ngam+2-j,j-1}],1]; S5=Table[{i,i},{i,ngam/2+1,ngam}]; L1=Length[S1];L2=Length[S2];L3=Length[S3];\ \>", "Input", AspectRatioFixed->True], Cell[CellGroupData[{ Cell[TextData["genlist=Join[S1,S2,S3,S4,S5]"], "Input", AspectRatioFixed->True], Cell[OutputFormData[ "\<\ {{1, 1}, {2, 2}, {3, 3}, {4, 4}, {1, 2}, {1, 3}, {1, 4}, {1, 5}, {1, 6}, {1, 7}, {2, 3}, {2, 4}, {2, 5}, {2, 6}, {3, 4}, {3, 5}, {4, 5}, {3, 6}, {2, 7}, {1, 8}, {4, 6}, {5, 6}, {3, 7}, {4, 7}, {5, 7}, {6, 7}, {2, 8}, {3, 8}, {4, 8}, {5, 8}, {6, 8}, {7, 8}, {5, 5}, {6, 6}, {7, 7}, {8, 8}}\ \>", "\<\ {{1, 1}, {2, 2}, {3, 3}, {4, 4}, {1, 2}, {1, 3}, {1, 4}, {1, 5}, {1, 6}, {1, 7}, {2, 3}, {2, 4}, {2, 5}, {2, 6}, {3, 4}, {3, 5}, {4, 5}, {3, 6}, {2, 7}, {1, 8}, {4, 6}, {5, 6}, {3, 7}, {4, 7}, {5, 7}, {6, 7}, {2, 8}, {3, 8}, {4, 8}, {5, 8}, {6, 8}, {7, 8}, {5, 5}, {6, 6}, {7, 7}, {8, 8}}\ \>"], "Output", Evaluatable->False, AspectRatioFixed->True] }, Open ]], Cell[CellGroupData[{ Cell[TextData["ngen=Length[genlist]"], "Input", AspectRatioFixed->True], Cell[OutputFormData["\<\ 36\ \>", "\<\ 36\ \>"], "Output", Evaluatable->False, AspectRatioFixed->True] }, Open ]], Cell[TextData[ "Clear[index];\nindex=Table[\"+\",{ngam},{ngam}];\n\ Do[index[[genlist[[i,1]],genlist[[i,2]]]]=i,{i,1,ngen}];"], "Input", AspectRatioFixed->True], Cell[CellGroupData[{ Cell[TextData[ "TableForm[index,\nTableHeadings->{Table[gamname[i],{i,ngam}],\n\ Table[gamname[i],{i,ngam}]},\nTableAlignments->Center]"], "Input", AspectRatioFixed->True], Cell[OutputFormData["\<\ TableForm[{{1, 5, 6, 7, 8, 9, 10, 20}, {\"+\", 2, 11, 12, 13, 14, 19, 27}, {\"+\", \"+\", 3, 15, 16, 18, 23, 28}, {\"+\", \"+\", \"+\", 4, 17, 21, 24, 29}, {\"+\", \"+\", \"+\", \"+\", 33, 22, 25, 30}, {\"+\", \"+\", \"+\", \"+\", \"+\", 34, 26, 31}, {\"+\", \"+\", \"+\", \"+\", \"+\", \"+\", 35, 32}, {\"+\", \"+\", \"+\", \"+\", \"+\", \"+\", \"+\", 36}}, TableHeadings -> {{\"000\", \"001\", \"010\", \"011\", \"100\", \"101\", \"110\"\\ , \"111\"}, {\"000\", \"001\", \"010\", \"011\", \"100\", \"101\"\\ , \"110\", \"111\"}}, TableAlignments -> Center]\ \>", "\<\ 000 001 010 011 100 101 110 111 000 1 5 6 7 8 9 10 20 001 + 2 11 12 13 14 19 27 010 + + 3 15 16 18 23 28 011 + + + 4 17 21 24 29 100 + + + + 33 22 25 30 101 + + + + + 34 26 31 110 + + + + + + 35 32 111 + + + + + + + 36\ \>"], "Output", Evaluatable->False, LineSpacing->{1, 0}, AspectRatioFixed->True] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData["Index for couples with symmetries :"], "Subsubsection", Evaluatable->False, AspectRatioFixed->True], Cell["\<\ ulist=Flatten[ Table[Join[genlist[[i]],genlist[[j]]], {i,1,ngam(ngam+2)/4},{j,i,Max[ngam(ngam+2)/4,ngen+1-i]}], 1];\ \>", "Input", AspectRatioFixed->True], Cell[TextData[ "Table[{genlist[[i]],Table[genlist[[j]],{j,i,Max[ngam(ngam+2)/4,ngen+1-i]}]},\ \n{i,1,ngam(ngam+2)/4}]//ColumnForm;"], "Input", AspectRatioFixed->True], Cell[CellGroupData[{ Cell[TextData["nsym=Length[ulist]"], "Input", AspectRatioFixed->True], Cell[OutputFormData["\<\ 346\ \>", "\<\ 346\ \>"], "Output", Evaluatable->False, AspectRatioFixed->True] }, Open ]], Cell[TextData["cp[i_]:=ulist[[i]]"], "Input", AspectRatioFixed->True], Cell[TextData["gen[i_]:=genlist[[i]]"], "Input", AspectRatioFixed->True], Cell[TextData["Symmetries male/female"], "Text", Evaluatable->False, AspectRatioFixed->True], Cell[TextData["sym1[cpI_]:=Flatten[Reverse[Partition[cpI,2]]]"], "Input", AspectRatioFixed->True], Cell["Symmetries on genotypes", "Text", Evaluatable->False, AspectRatioFixed->True], Cell["sym2[cpI_]:=ngam+1-Reverse[cpI]", "Input", AspectRatioFixed->True], Cell[TextData["a[cpI_,cpX_]:=Apply[mat,Flatten[{cpI,cpX}]]"], "Input", AspectRatioFixed->True], Cell[TextData["b[cpI_,genX_]:=Apply[matgen,Flatten[{cpI,genX}]]"], "Input", AspectRatioFixed->True] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData["Recursion on couples frequencies (with symetries)"], "Section", Evaluatable->False, AspectRatioFixed->True], Cell["\<\ h[t_,x_]:=h[t,x]= Simplify[ Sum[ (a[cp[i],cp[x]] + delta[ cp[i] , sym1[ cp[i] ] ] a[ sym1[ cp[i] ] , cp[x] ] + delta[ sym1[ cp[i] ] , sym2[ cp[i] ] ] * delta[ cp[i] , sym2[ cp[i] ] ] * ( a[ sym2[ cp[i] ] , cp[x] ] + delta[ cp[i] , sym1[ cp[i] ] ] * a[ sym1[ sym2[ cp[i] ] ] , cp[x] ] ) ) * h[t-1, i], {i,1,nsym}]]\ \>", "Input", AspectRatioFixed->True], Cell[TextData[ "cprec[t_,x_]:=cprec[t,x]=\nSum[\n(a[cp[i],cp[x]] + \ndelta[ cp[i] , sym1[ \ cp[i] ] ] a[ sym1[ cp[i] ] , cp[x] ] +\ndelta[ sym1[ cp[i] ] , sym2[ cp[i] ] \ ] * delta[ cp[i] , sym2[ cp[i] ] ] *\n( a[ sym2[ cp[i] ] , cp[x] ] +\ndelta[ \ cp[i] , sym1[ cp[i] ] ] *\na[ sym1[ sym2[ cp[i] ] ] , cp[x] ] ) ) *\nz[t-1, \ i],\n{i,1,nsym}]"], "Input", AspectRatioFixed->True], Cell[TextData[ "Format[z[t_,x_]]:=Apply[Subscripted[\"h\"[t]],ulist[[x]]]"], "Input", AspectRatioFixed->True], Cell["\<\ Do[h[1,i]=0,{i,nsym}]; h[1,nsym]=1;\ \>", "Input", AspectRatioFixed->True], Cell[TextData["htot[t_]:=Table[h[t,i],{i,nsym}]"], "Input", AspectRatioFixed->True], Cell[CellGroupData[{ Cell[TextData["htot[1]"], "Input", AspectRatioFixed->True], Cell[OutputFormData[ "\<\ {0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1}\ \>", "\<\ {0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1}\ \>"], "Output", Evaluatable->False, AspectRatioFixed->True] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Recursion on genotype frequencies (with symmetries)", "Section", Evaluatable->False, AspectRatioFixed->True], Cell[TextData[ "f[t_,x_]:=Simplify[\nSum[\n(b[cp[i],gen[x]] + \ndelta[ cp[i] , sym1[ cp[i] ] \ ] b[ sym1[ cp[i] ] , gen[x] ] +\ndelta[ sym1[ cp[i] ] , sym2[ cp[i] ] ] * \ delta[ cp[i] , sym2[ cp[i] ] ] *\n( b[ sym2[ cp[i] ] , gen[x] ] +\ndelta[ \ cp[i] , sym1[ cp[i] ] ] *\nb[ sym1[ sym2[ cp[i] ] ] , gen[x] ] ) ) *\nh[t-1, \ i],\n{i,1,nsym}]]"], "Input", AspectRatioFixed->True], Cell[TextData["freq[t_]:=Table[f[t,x],{x,ngen}]"], "Input", AspectRatioFixed->True], Cell["freq[2]", "Input", AspectRatioFixed->True] }, Open ]] }, Open ]] }, Open ]] }, FrontEndVersion->"X 3.0", ScreenRectangle->{{0, 1152}, {0, 900}}, WindowToolbars->{}, CellGrouping->Automatic, WindowSize->{520, 600}, WindowMargins->{{303, Automatic}, {Automatic, 60}}, PrivateNotebookOptions->{"ColorPalette"->{RGBColor, 128}}, ShowCellLabel->True, ShowCellTags->False, RenderingOptions->{"ObjectDithering"->True, "RasterDithering"->False}, CharacterEncoding->"XAutomaticEncoding", StyleDefinitions -> Notebook[{ Cell[CellGroupData[{ Cell["Style Definitions", "Subtitle"], Cell["\<\ Modify the definitions below to change the default appearance of \ all cells in a given style. Make modifications to any definition using \ commands in the Format menu.\ \>", "Text"], Cell[CellGroupData[{ Cell["Style Environment Names", "Section"], Cell[StyleData[All, "Working"], PageWidth->WindowWidth, ScriptMinSize->9], Cell[StyleData[All, "Presentation"], PageWidth->WindowWidth, ScriptMinSize->12, FontSize->16], Cell[StyleData[All, "Condensed"], PageWidth->WindowWidth, CellBracketOptions->{"Margins"->{1, 1}, "Widths"->{0, 5}}, ScriptMinSize->8, FontSize->11], Cell[StyleData[All, "Printout"], PageWidth->PaperWidth, ScriptMinSize->5, FontSize->10, PrivateFontOptions->{"FontType"->"Outline"}] }, Open ]], Cell[CellGroupData[{ Cell["Notebook Options", "Section"], Cell["\<\ The options defined for the style below will be used at the \ Notebook level.\ \>", "Text"], Cell[StyleData["Notebook"], PageHeaders->{{Cell[ TextData[ { CounterBox[ "Page"]}], "PageNumber"], None, Cell[ TextData[ { ValueBox[ "FileName"]}], "Header"]}, {Cell[ TextData[ { ValueBox[ "FileName"]}], "Header"], None, Cell[ TextData[ { CounterBox[ "Page"]}], "PageNumber"]}}, CellFrameLabelMargins->6, StyleMenuListing->None] }, Open ]], Cell[CellGroupData[{ Cell["Styles for Headings", "Section"], Cell[CellGroupData[{ Cell[StyleData["Title"], CellMargins->{{7, Inherited}, {8, 40}}, Evaluatable->False, CellGroupingRules->{"TitleGrouping", 0}, CellHorizontalScrolling->False, PageBreakBelow->False, GroupPageBreakWithin->False, TextAlignment->Center, CounterIncrements->"Title", CounterAssignments->{{"Section", 0}, {"Equation", 0}, {"Figure", 0}, { "Subtitle", 0}, {"Subsubtitle", 0}}, AspectRatioFixed->True, FontFamily->"times", FontSize->24, FontWeight->"Bold"], Cell[StyleData["Title", "Presentation"], CellMargins->{{24, 10}, {20, 40}}, LineSpacing->{1, 0}, FontSize->44], Cell[StyleData["Title", "Condensed"], CellMargins->{{8, 10}, {4, 8}}, FontSize->20], Cell[StyleData["Title", "Printout"], CellMargins->{{2, 10}, {15, 30}}, FontSize->24] }, Open ]], Cell[CellGroupData[{ Cell[StyleData["Subtitle"], CellMargins->{{7, Inherited}, {6, 15}}, Evaluatable->False, CellGroupingRules->{"TitleGrouping", 10}, CellHorizontalScrolling->False, PageBreakBelow->False, GroupPageBreakWithin->False, TextAlignment->Center, CounterIncrements->"Subtitle", CounterAssignments->{{"Section", 0}, {"Equation", 0}, {"Figure", 0}, { "Subsubtitle", 0}}, AspectRatioFixed->True, FontFamily->"times", FontSize->18, FontWeight->"Bold"], Cell[StyleData["Subtitle", "Presentation"], CellMargins->{{24, 10}, {15, 20}}, LineSpacing->{1, 0}, FontSize->36], Cell[StyleData["Subtitle", "Condensed"], CellMargins->{{8, 10}, {4, 4}}, FontSize->14], Cell[StyleData["Subtitle", "Printout"], CellMargins->{{2, 10}, {10, 15}}, FontSize->18] }, Open ]], Cell[CellGroupData[{ Cell[StyleData["Subsubtitle"], CellMargins->{{7, Inherited}, {6, 20}}, Evaluatable->False, CellGroupingRules->{"TitleGrouping", 20}, CellHorizontalScrolling->False, PageBreakBelow->False, GroupPageBreakWithin->False, TextAlignment->Center, CounterIncrements->"Subsubtitle", CounterAssignments->{{"Section", 0}, {"Equation", 0}, {"Figure", 0}}, AspectRatioFixed->True, FontFamily->"times", FontSize->14, FontSlant->"Italic"], Cell[StyleData["Subsubtitle", "Presentation"], CellMargins->{{24, 10}, {10, 20}}, LineSpacing->{1, 0}, FontSize->24], Cell[StyleData["Subsubtitle", "Condensed"], CellMargins->{{8, 10}, {8, 12}}, FontSize->12], Cell[StyleData["Subsubtitle", "Printout"], CellMargins->{{2, 10}, {8, 10}}, FontSize->14] }, Open ]], Cell[CellGroupData[{ Cell[StyleData["Section"], CellDingbat->"\[GraySquare]", CellMargins->{{22, Inherited}, {8, 20}}, Evaluatable->False, CellGroupingRules->{"SectionGrouping", 30}, CellHorizontalScrolling->False, PageBreakBelow->False, CounterIncrements->"Section", CounterAssignments->{{"Subsection", 0}, {"Subsubsection", 0}}, AspectRatioFixed->True, FontFamily->"times", FontSize->18, FontWeight->"Bold"], Cell[StyleData["Section", "Presentation"], CellMargins->{{40, 10}, {11, 32}}, LineSpacing->{1, 0}, FontSize->24], Cell[StyleData["Section", "Condensed"], CellMargins->{{18, Inherited}, {6, 12}}, FontSize->12], Cell[StyleData["Section", "Printout"], CellMargins->{{13, 0}, {7, 22}}, FontSize->14] }, Open ]], Cell[CellGroupData[{ Cell[StyleData["Subsection"], CellDingbat->"\[FilledSquare]", CellMargins->{{19, Inherited}, {8, 15}}, Evaluatable->False, CellGroupingRules->{"SectionGrouping", 40}, CellHorizontalScrolling->False, PageBreakBelow->False, CounterIncrements->"Subsection", CounterAssignments->{{"Subsubsection", 0}}, AspectRatioFixed->True, FontFamily->"times", FontSize->14, FontWeight->"Bold"], Cell[StyleData["Subsection", "Presentation"], CellMargins->{{36, 10}, {11, 32}}, LineSpacing->{1, 0}, FontSize->22], Cell[StyleData["Subsection", "Condensed"], CellMargins->{{16, Inherited}, {6, 12}}, FontSize->12], Cell[StyleData["Subsection", "Printout"], CellMargins->{{9, 0}, {7, 22}}, FontSize->12] }, Open ]], Cell[CellGroupData[{ Cell[StyleData["Subsubsection"], CellDingbat->"\[EmptySquare]", CellMargins->{{18, Inherited}, {8, 12}}, Evaluatable->False, CellGroupingRules->{"SectionGrouping", 50}, CellHorizontalScrolling->False, PageBreakBelow->False, CounterIncrements->"Subsubsection", AspectRatioFixed->True, FontFamily->"times", FontSize->12, FontWeight->"Bold"], Cell[StyleData["Subsubsection", "Presentation"], CellMargins->{{34, 10}, {11, 26}}, LineSpacing->{1, 0}, FontSize->18], Cell[StyleData["Subsubsection", "Condensed"], CellMargins->{{17, Inherited}, {6, 12}}, FontSize->10], Cell[StyleData["Subsubsection", "Printout"], CellMargins->{{9, 0}, {7, 14}}, FontSize->11] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Styles for Body Text", "Section"], Cell[CellGroupData[{ Cell[StyleData["Text"], CellMargins->{{7, 10}, {7, 7}}, Evaluatable->False, CellHorizontalScrolling->False, PageBreakWithin->Automatic, LineSpacing->{1, 3}, CounterIncrements->"Text", AspectRatioFixed->True, FontFamily->"times", FontSize->12], Cell[StyleData["Text", "Presentation"], CellMargins->{{24, 10}, {10, 10}}, LineSpacing->{1, 5}], Cell[StyleData["Text", "Condensed"], CellMargins->{{8, 10}, {6, 6}}, LineSpacing->{1, 1}], Cell[StyleData["Text", "Printout"], CellMargins->{{2, 2}, {6, 6}}] }, Open ]], Cell[CellGroupData[{ Cell[StyleData["SmallText"], CellMargins->{{7, 10}, {6, 6}}, Evaluatable->False, CellHorizontalScrolling->False, PageBreakWithin->Automatic, LineSpacing->{1, 3}, CounterIncrements->"SmallText", AspectRatioFixed->True, FontFamily->"times", FontSize->10], Cell[StyleData["SmallText", "Presentation"], CellMargins->{{24, 10}, {8, 8}}, LineSpacing->{1, 5}, FontSize->12], Cell[StyleData["SmallText", "Condensed"], CellMargins->{{8, 10}, {5, 5}}, LineSpacing->{1, 2}, FontSize->9], Cell[StyleData["SmallText", "Printout"], CellMargins->{{2, 2}, {5, 5}}, FontSize->7] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Styles for Input/Output", "Section"], Cell["\<\ The cells in this section define styles used for input and output \ to the kernel. Be careful when modifying, renaming, or removing these \ styles, because the front end associates special meanings with these style \ names.\ \>", "Text"], Cell[CellGroupData[{ Cell[StyleData["Input"], PageWidth->Infinity, CellMargins->{{42, 10}, {5, 7}}, Evaluatable->True, CellGroupingRules->"InputGrouping", CellHorizontalScrolling->True, PageBreakWithin->False, GroupPageBreakWithin->False, CellLabelMargins->{{23, Inherited}, {Inherited, Inherited}}, DefaultFormatType->DefaultInputFormatType, AutoItalicWords->{}, FormatType->InputForm, ShowStringCharacters->True, NumberMarks->True, CounterIncrements->"Input", AspectRatioFixed->True, FontFamily->"courier", FontSize->12, FontWeight->"Bold"], Cell[StyleData["Input", "Presentation"], CellMargins->{{72, Inherited}, {8, 10}}, LineSpacing->{1, 0}], Cell[StyleData["Input", "Condensed"], CellMargins->{{40, 10}, {2, 3}}], Cell[StyleData["Input", "Printout"], CellMargins->{{39, 0}, {4, 6}}, FontSize->9] }, Open ]], Cell[StyleData["InputOnly"], Evaluatable->True, CellGroupingRules->"InputGrouping", CellHorizontalScrolling->True, DefaultFormatType->DefaultInputFormatType, AutoItalicWords->{}, FormatType->InputForm, ShowStringCharacters->True, NumberMarks->True, CounterIncrements->"Input", StyleMenuListing->None, FontWeight->"Bold"], Cell[CellGroupData[{ Cell[StyleData["Output"], PageWidth->Infinity, CellMargins->{{42, 10}, {7, 5}}, CellEditDuplicate->True, Evaluatable->False, CellGroupingRules->"OutputGrouping", CellHorizontalScrolling->True, PageBreakWithin->False, GroupPageBreakWithin->False, GeneratedCell->True, CellAutoOverwrite->True, CellLabelMargins->{{23, Inherited}, {Inherited, Inherited}}, DefaultFormatType->DefaultOutputFormatType, LineSpacing->{1, 0}, AutoItalicWords->{}, FormatType->InputForm, CounterIncrements->"Output", AspectRatioFixed->True, FontFamily->"courier", FontSize->12], Cell[StyleData["Output", "Presentation"], CellMargins->{{72, Inherited}, {10, 8}}, LineSpacing->{1, 0}], Cell[StyleData["Output", "Condensed"], CellMargins->{{41, Inherited}, {3, 2}}], Cell[StyleData["Output", "Printout"], CellMargins->{{39, 0}, {6, 4}}, FontSize->9] }, Open ]], Cell[CellGroupData[{ Cell[StyleData["Message"], PageWidth->Infinity, CellMargins->{{42, Inherited}, {Inherited, Inherited}}, Evaluatable->False, CellGroupingRules->"OutputGrouping", PageBreakWithin->False, GroupPageBreakWithin->False, GeneratedCell->True, CellAutoOverwrite->True, ShowCellLabel->False, CellLabelMargins->{{23, Inherited}, {Inherited, Inherited}}, DefaultFormatType->DefaultOutputFormatType, AutoItalicWords->{}, FormatType->InputForm, CounterIncrements->"Message", AspectRatioFixed->True, StyleMenuListing->None, FontFamily->"courier", FontSize->12, FontColor->RGBColor[0, 0, 1]], Cell[StyleData["Message", "Presentation"], CellMargins->{{72, Inherited}, {Inherited, Inherited}}, LineSpacing->{1, 0}], Cell[StyleData["Message", "Condensed"], CellMargins->{{41, Inherited}, {Inherited, Inherited}}], Cell[StyleData["Message", "Printout"], CellMargins->{{39, Inherited}, {Inherited, Inherited}}, FontSize->8, FontColor->GrayLevel[0]] }, Open ]], Cell[CellGroupData[{ Cell[StyleData["Print"], PageWidth->Infinity, CellMargins->{{42, Inherited}, {Inherited, Inherited}}, Evaluatable->False, CellGroupingRules->"OutputGrouping", CellHorizontalScrolling->True, PageBreakWithin->False, GroupPageBreakWithin->False, GeneratedCell->True, CellAutoOverwrite->True, ShowCellLabel->False, CellLabelMargins->{{23, Inherited}, {Inherited, Inherited}}, DefaultFormatType->DefaultOutputFormatType, AutoItalicWords->{}, FormatType->InputForm, CounterIncrements->"Print", AspectRatioFixed->True, StyleMenuListing->None, FontFamily->"courier", FontSize->12], Cell[StyleData["Print", "Presentation"], CellMargins->{{72, Inherited}, {Inherited, Inherited}}, LineSpacing->{1, 0}], Cell[StyleData["Print", "Condensed"], CellMargins->{{41, Inherited}, {Inherited, Inherited}}], Cell[StyleData["Print", "Printout"], CellMargins->{{39, Inherited}, {Inherited, Inherited}}, FontSize->8] }, Open ]], Cell[CellGroupData[{ Cell[StyleData["Graphics"], PageWidth->Infinity, CellMargins->{{7, Inherited}, {Inherited, Inherited}}, Evaluatable->False, CellGroupingRules->"GraphicsGrouping", CellHorizontalScrolling->True, PageBreakWithin->False, GroupPageBreakWithin->False, GeneratedCell->True, CellAutoOverwrite->True, ShowCellLabel->False, DefaultFormatType->DefaultOutputFormatType, FormatType->InputForm, CounterIncrements->"Graphics", AspectRatioFixed->True, ImageSize->{282, 287}, ImageMargins->{{34, Inherited}, {Inherited, 0}}, StyleMenuListing->None, FontFamily->"courier", FontSize->12], Cell[StyleData["Graphics", "Presentation"], ImageMargins->{{62, Inherited}, {Inherited, 0}}], Cell[StyleData["Graphics", "Condensed"], ImageSize->{175, 175}, ImageMargins->{{38, Inherited}, {Inherited, 0}}], Cell[StyleData["Graphics", "Printout"], ImageSize->{250, 250}, ImageMargins->{{30, Inherited}, {Inherited, 0}}, FontSize->9] }, Open ]], Cell[CellGroupData[{ Cell[StyleData["CellLabel"], StyleMenuListing->None, FontFamily->"Helvetica", FontSize->9, FontColor->RGBColor[0, 0, 1]], Cell[StyleData["CellLabel", "Presentation"], FontSize->12], Cell[StyleData["CellLabel", "Condensed"], FontSize->9], Cell[StyleData["CellLabel", "Printout"], FontFamily->"Courier", FontSize->8, FontSlant->"Italic", FontColor->GrayLevel[0]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Formulas and Programming", "Section"], Cell[CellGroupData[{ Cell[StyleData["InlineFormula"], CellMargins->{{10, 4}, {0, 8}}, CellHorizontalScrolling->True, ScriptLevel->1, SingleLetterItalics->True], Cell[StyleData["InlineFormula", "Presentation"], CellMargins->{{24, 10}, {10, 10}}, LineSpacing->{1, 5}], Cell[StyleData["InlineFormula", "Condensed"], CellMargins->{{8, 10}, {6, 6}}, LineSpacing->{1, 1}], Cell[StyleData["InlineFormula", "Printout"], CellMargins->{{2, 0}, {6, 6}}] }, Open ]], Cell[CellGroupData[{ Cell[StyleData["DisplayFormula"], CellMargins->{{42, Inherited}, {Inherited, Inherited}}, CellHorizontalScrolling->True, ScriptLevel->0, SingleLetterItalics->True, StyleMenuListing->None, UnderoverscriptBoxOptions->{LimitsPositioning->True}], Cell[StyleData["DisplayFormula", "Presentation"], LineSpacing->{1, 5}], Cell[StyleData["DisplayFormula", "Condensed"], LineSpacing->{1, 1}], Cell[StyleData["DisplayFormula", "Printout"]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Styles for Headers and Footers", "Section"], Cell[StyleData["Header"], CellMargins->{{7, 0}, {4, 1}}, Evaluatable->False, CellHorizontalScrolling->False, PageBreakWithin->Automatic, AspectRatioFixed->True, StyleMenuListing->None, FontFamily->"times", FontSize->12, FontSlant->"Italic"], Cell[StyleData["Footer"], CellMargins->{{7, 0}, {0, 4}}, Evaluatable->False, CellHorizontalScrolling->False, PageBreakWithin->Automatic, TextAlignment->Center, AspectRatioFixed->True, StyleMenuListing->None, FontFamily->"times", FontSize->12, FontSlant->"Italic"], Cell[StyleData["PageNumber"], CellMargins->{{0, 0}, {4, 1}}, StyleMenuListing->None, FontFamily->"Times", FontSize->10] }, Open ]], Cell[CellGroupData[{ Cell["Palette Styles", "Section"], Cell["\<\ The cells below define styles that define standard \ ButtonFunctions, for use in palette buttons.\ \>", "Text"], Cell[StyleData["Paste"], StyleMenuListing->None, ButtonStyleMenuListing->Automatic, ButtonBoxOptions->{ButtonFunction:>(FrontEndExecute[ { FrontEnd`NotebookApply[ FrontEnd`InputNotebook[ ], #, After]}]&)}], Cell[StyleData["Evaluate"], StyleMenuListing->None, ButtonStyleMenuListing->Automatic, ButtonBoxOptions->{ButtonFunction:>(FrontEndExecute[ { FrontEnd`NotebookApply[ FrontEnd`InputNotebook[ ], #, All], SelectionEvaluate[ FrontEnd`InputNotebook[ ], All]}]&)}], Cell[StyleData["EvaluateCell"], StyleMenuListing->None, ButtonStyleMenuListing->Automatic, ButtonBoxOptions->{ButtonFunction:>(FrontEndExecute[ { FrontEnd`NotebookApply[ FrontEnd`InputNotebook[ ], #, All], FrontEnd`SelectionMove[ FrontEnd`InputNotebook[ ], All, Cell, 1], FrontEnd`SelectionEvaluateCreateCell[ FrontEnd`InputNotebook[ ], All]}]&)}], Cell[StyleData["CopyEvaluate"], StyleMenuListing->None, ButtonStyleMenuListing->Automatic, ButtonBoxOptions->{ButtonFunction:>(FrontEndExecute[ { FrontEnd`SelectionCreateCell[ FrontEnd`InputNotebook[ ], All], FrontEnd`NotebookApply[ FrontEnd`InputNotebook[ ], #, All], FrontEnd`SelectionEvaluate[ FrontEnd`InputNotebook[ ], All]}]&)}], Cell[StyleData["CopyEvaluateCell"], StyleMenuListing->None, ButtonStyleMenuListing->Automatic, ButtonBoxOptions->{ButtonFunction:>(FrontEndExecute[ { FrontEnd`SelectionCreateCell[ FrontEnd`InputNotebook[ ], All], FrontEnd`NotebookApply[ FrontEnd`InputNotebook[ ], #, All], FrontEnd`SelectionEvaluateCreateCell[ FrontEnd`InputNotebook[ ], All]}]&)}] }, Open ]], Cell[CellGroupData[{ Cell["Hyperlink Styles", "Section"], Cell["\<\ The cells below define styles useful for making hypertext \ ButtonBoxes. The \"Hyperlink\" style is for links within the same Notebook, \ or between Notebooks.\ \>", "Text"], Cell[CellGroupData[{ Cell[StyleData["Hyperlink"], StyleMenuListing->None, ButtonStyleMenuListing->Automatic, FontColor->RGBColor[0, 0, 1], FontVariations->{"Underline"->True}, ButtonBoxOptions->{ButtonFunction:>(FrontEndExecute[ { FrontEnd`NotebookLocate[ #2]}]&), Active->True, ButtonNote->ButtonData}], Cell[StyleData["Hyperlink", "Presentation"]], Cell[StyleData["Hyperlink", "Condensed"]], Cell[StyleData["Hyperlink", "Printout"], FontColor->GrayLevel[0], FontVariations->{"Underline"->False}] }, Open ]], Cell["\<\ The following styles are for linking automatically to the on-line \ help system.\ \>", "Text"], Cell[CellGroupData[{ Cell[StyleData["MainBookLink"], StyleMenuListing->None, ButtonStyleMenuListing->Automatic, FontColor->RGBColor[0, 0, 1], FontVariations->{"Underline"->True}, ButtonBoxOptions->{ButtonFunction:>(FrontEndExecute[ { FrontEnd`HelpBrowserLookup[ "MainBook", #]}]&), Active->True, ButtonFrame->"None"}], Cell[StyleData["MainBookLink", "Presentation"]], Cell[StyleData["MainBookLink", "Condensed"]], Cell[StyleData["MainBookLink", "Printout"], FontColor->GrayLevel[0], FontVariations->{"Underline"->False}] }, Open ]], Cell[CellGroupData[{ Cell[StyleData["AddOnsLink"], StyleMenuListing->None, ButtonStyleMenuListing->Automatic, FontFamily->"Courier", FontColor->RGBColor[0, 0, 1], FontVariations->{"Underline"->True}, ButtonBoxOptions->{ButtonFunction:>(FrontEndExecute[ { FrontEnd`HelpBrowserLookup[ "AddOns", #]}]&), Active->True, ButtonFrame->"None"}], Cell[StyleData["AddOnsLink", "Presentation"]], Cell[StyleData["AddOnsLink", "Condensed"]], Cell[StyleData["AddOnLink", "Printout"], FontColor->GrayLevel[0], FontVariations->{"Underline"->False}] }, Open ]], Cell[CellGroupData[{ Cell[StyleData["RefGuideLink"], StyleMenuListing->None, ButtonStyleMenuListing->Automatic, FontFamily->"Courier", FontColor->RGBColor[0, 0, 1], FontVariations->{"Underline"->True}, ButtonBoxOptions->{ButtonFunction:>(FrontEndExecute[ { FrontEnd`HelpBrowserLookup[ "RefGuideLink", #]}]&), Active->True, ButtonFrame->"None"}], Cell[StyleData["RefGuideLink", "Presentation"]], Cell[StyleData["RefGuideLink", "Condensed"]], Cell[StyleData["RefGuideLink", "Printout"], FontColor->GrayLevel[0], FontVariations->{"Underline"->False}] }, Open ]], Cell[CellGroupData[{ Cell[StyleData["GettingStartedLink"], StyleMenuListing->None, ButtonStyleMenuListing->Automatic, FontColor->RGBColor[0, 0, 1], FontVariations->{"Underline"->True}, ButtonBoxOptions->{ButtonFunction:>(FrontEndExecute[ { FrontEnd`HelpBrowserLookup[ "GettingStarted", #]}]&), Active->True, ButtonFrame->"None"}], Cell[StyleData["GettingStartedLink", "Presentation"]], Cell[StyleData["GettingStartedLink", "Condensed"]], Cell[StyleData["GettingStartedLink", "Printout"], FontColor->GrayLevel[0], FontVariations->{"Underline"->False}] }, Open ]], Cell[CellGroupData[{ Cell[StyleData["OtherInformationLink"], StyleMenuListing->None, ButtonStyleMenuListing->Automatic, FontColor->RGBColor[0, 0, 1], FontVariations->{"Underline"->True}, ButtonBoxOptions->{ButtonFunction:>(FrontEndExecute[ { FrontEnd`HelpBrowserLookup[ "OtherInformation", #]}]&), Active->True, ButtonFrame->"None"}], Cell[StyleData["OtherInformationLink", "Presentation"]], Cell[StyleData["OtherInformationLink", "Condensed"]], Cell[StyleData["OtherInformationLink", "Printout"], FontColor->GrayLevel[0], FontVariations->{"Underline"->False}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Placeholder Styles", "Section"], Cell["\<\ The cells below define styles useful for making placeholder \ objects in palette templates.\ \>", "Text"], Cell[CellGroupData[{ Cell[StyleData["Placeholder"], Editable->False, Selectable->False, StyleBoxAutoDelete->True, Placeholder->True, StyleMenuListing->None], Cell[StyleData["Placeholder", "Presentation"]], Cell[StyleData["Placeholder", "Condensed"]], Cell[StyleData["Placeholder", "Printout"]] }, Open ]], Cell[CellGroupData[{ Cell[StyleData["SelectionPlaceholder"], Editable->False, Selectable->False, StyleBoxAutoDelete->True, Placeholder->Primary, StyleMenuListing->None, DrawHighlighted->True], Cell[StyleData["SelectionPlaceholder", "Presentation"]], Cell[StyleData["SelectionPlaceholder", "Condensed"]], Cell[StyleData["SelectionPlaceholder", "Printout"]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["FormatType Styles", "Section"], Cell["\<\ The cells below define styles that are mixed in with the styles \ of most cells. If a cell's FormatType matches the name of one of the styles \ defined below, then that style is applied between the cell's style and its \ own options.\ \>", "Text"], Cell[StyleData["CellExpression"], PageWidth->Infinity, CellMargins->{{6, Inherited}, {Inherited, Inherited}}, ShowCellLabel->False, ShowSpecialCharacters->False, AllowInlineCells->False, AutoItalicWords->{}, StyleMenuListing->None, FontFamily->"Courier", Background->GrayLevel[1]], Cell[StyleData["InputForm"], AllowInlineCells->False, StyleMenuListing->None, FontFamily->"Courier"], Cell[StyleData["OutputForm"], PageWidth->Infinity, TextAlignment->Left, LineSpacing->{1, -5}, StyleMenuListing->None, FontFamily->"Courier"], Cell[StyleData["StandardForm"], LineSpacing->{1.25, 0}, StyleMenuListing->None, FontFamily->"Courier"], Cell[StyleData["TraditionalForm"], LineSpacing->{1.25, 0}, SingleLetterItalics->True, TraditionalFunctionNotation->True, DelimiterMatching->None, StyleMenuListing->None], Cell["\<\ The style defined below is mixed in to any cell that is in an \ inline cell within another.\ \>", "Text"], Cell[StyleData["InlineCell"], TextAlignment->Left, ScriptLevel->1, StyleMenuListing->None], Cell[StyleData["InlineCellEditing"], StyleMenuListing->None, Background->RGBColor[1, 0.749996, 0.8]] }, Open ]] }, Open ]] }] ] (*********************************************************************** 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, 96, 2, 76, "Title"], Cell[1830, 55, 263, 5, 86, "Text"], Cell[CellGroupData[{ Cell[2118, 64, 93, 2, 42, "Subtitle"], Cell[CellGroupData[{ Cell[2236, 70, 91, 2, 49, "Section"], Cell[2330, 74, 76, 1, 27, "Input"], Cell[CellGroupData[{ Cell[2431, 79, 94, 2, 40, "Subsection"], Cell[CellGroupData[{ Cell[2550, 85, 56, 1, 27, "Input"], Cell[2609, 88, 104, 6, 26, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[2762, 100, 99, 2, 40, "Subsection"], Cell[2864, 104, 63, 1, 27, "Input"], Cell[2930, 107, 97, 1, 27, "Input"], Cell[3030, 110, 201, 4, 57, "Input"], Cell[3234, 116, 139, 3, 42, "Input"], Cell[CellGroupData[{ Cell[3398, 123, 102, 2, 36, "Subsubsection"], Cell[3503, 127, 330, 13, 177, "Input"], Cell[CellGroupData[{ Cell[3858, 144, 81, 1, 27, "Input"], Cell[3942, 147, 720, 23, 106, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[4699, 175, 73, 1, 27, "Input"], Cell[4775, 178, 106, 6, 26, "Output"] }, Open ]], Cell[4896, 187, 162, 3, 57, "Input"], Cell[CellGroupData[{ Cell[5083, 194, 173, 3, 72, "Input"], Cell[5259, 199, 1197, 34, 220, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[6505, 239, 118, 2, 36, "Subsubsection"], Cell[6626, 243, 166, 6, 72, "Input"], Cell[6795, 251, 168, 3, 42, "Input"], Cell[CellGroupData[{ Cell[6988, 258, 71, 1, 27, "Input"], Cell[7062, 261, 108, 6, 26, "Output"] }, Open ]], Cell[7185, 270, 71, 1, 27, "Input"], Cell[7259, 273, 74, 1, 27, "Input"], Cell[7336, 276, 96, 2, 32, "Text"], Cell[7435, 280, 99, 1, 27, "Input"], Cell[7537, 283, 87, 2, 32, "Text"], Cell[7627, 287, 74, 1, 27, "Input"], Cell[7704, 290, 96, 1, 27, "Input"], Cell[7803, 293, 101, 1, 27, "Input"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[7965, 301, 126, 2, 49, "Section"], Cell[8094, 305, 365, 13, 177, "Input"], Cell[8462, 320, 382, 6, 162, "Input"], Cell[8847, 328, 111, 2, 27, "Input"], Cell[8961, 332, 86, 4, 42, "Input"], Cell[9050, 338, 85, 1, 27, "Input"], Cell[CellGroupData[{ Cell[9160, 343, 60, 1, 27, "Input"], Cell[9223, 346, 2316, 59, 298, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[11588, 411, 118, 2, 49, "Section"], Cell[11709, 415, 381, 6, 162, "Input"], Cell[12093, 423, 85, 1, 27, "Input"], Cell[12181, 426, 50, 1, 27, "Input"] }, Open ]] }, Open ]] }, Open ]] } ] *) (*********************************************************************** End of Mathematica Notebook file. ***********************************************************************)