(*********************************************************************** 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[ 12545, 452]*) (*NotebookOutlinePosition[ 38580, 1400]*) (* CellTagsIndexPosition[ 38536, 1396]*) (*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["General Definitions"], "Subtitle", Evaluatable->False, AspectRatioFixed->True], Cell["\<\ ngam=2^n; ngen=ngam(ngam+1)/2; Imn=IdentityMatrix[ngam]; gam[i_]:=gam[i]=Table[ (Mod[(i-1),2^(n-l+1)]-Mod[(i-1),2^(n-l)])/2^(n-l),{l,1,n}]; Phi[i_]:=Phi[i]=1+gam[i]; zyg[i_,j_]:=zyg[i,j]={gam[i],gam[j]}; gamprod[i_,j_]:=gamprod[i,j]= Table[zyg[i,j][[ Phi[k][[l]] ]] [[l]],{k,1,ngam},{l,1,n}]; rho[k_,l_]:=rho[k,l]= Abs[gam[k][[l]]-gam[k][[l+1]]]; g[x_]:=g[x]=1+Sum[2^k x[[n-k]],{k,0,n-1}]; delta[i_,j_]:=If[i==j,0,1]\ \>", "Input", InitializationCell->True, AspectRatioFixed->True], Cell["\<\ R[k_]:=R[k]= 1/2*Product[rho[k,l]*r[l]+(1-rho[k,l])*(1-r[l]),{l,1,n-1}]; P[i_,j_]:=P[i,j]= Sum[R[k]*Imn[[g[gamprod[i,j][[k]]]]],{k,1,ngam}];\ \>", "Input", InitializationCell->True, AspectRatioFixed->True], Cell["gamname[i_]:=StringJoin[Map[ToString,gam[i]]]", "Input", InitializationCell->True, AspectRatioFixed->True], Cell["\<\ If[n>2, Format[r[x_]]:=Subscripted[r[x]], Format[r[x_]]:=r]; Format[s[x_]]:=Subscripted[s[x]]; Format[u[x_,y_]]:=Subscripted[u[x,y]]; Format[v[x_]]:=Subscripted[v[x]]\ \>", "Input", InitializationCell->True, AspectRatioFixed->True], Cell["\<\ If[n>2, Format[r[x_],TeXForm]:=Subscripted[r[x]], Format[r[x_],TeXForm]:=r]; Format[s[x_],TeXForm]:=Subscripted[s[x]]; Format[u[x_,y_],TeXForm]:=Subscripted[u[x,y]]; Format[v[x_],TeXForm]:=Subscripted[v[x]]\ \>", "Input", InitializationCell->True, AspectRatioFixed->True], Cell[CellGroupData[{ Cell["\<\ rulers={ r[x_]+r[y_]-2r[x_]r[y_]->1-s[x]s[y]-r[x]r[y], -(r[x_]+r[y_]-2r[x_]r[y_])->-(1-s[x]s[y]-r[x]r[y]), r[x_]+r[y_]-r[x_]r[y_]->1-s[x]s[y], -r[x_]-r[y_]+r[x_]r[y_]->s[x]s[y]-1, 1 - r[x_]->s[x], -1+r[x_]->-s[x]}\ \>", "Input", InitializationCell->True, AspectRatioFixed->True], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ InterpretationBox[\(r\_x_\), Subscripted[ r[ Pattern[ x, Blank[ ]]]], Editable->False], "+", InterpretationBox[\(r\_y_\), Subscripted[ r[ Pattern[ y, Blank[ ]]]], Editable->False], "-", RowBox[{"2", " ", InterpretationBox[\(r\_x_\), Subscripted[ r[ Pattern[ x, Blank[ ]]]], Editable->False], " ", InterpretationBox[\(r\_y_\), Subscripted[ r[ Pattern[ y, Blank[ ]]]], Editable->False]}]}], "\[Rule]", RowBox[{"1", "-", RowBox[{ InterpretationBox[\(r\_x\), Subscripted[ r[ x]], Editable->False], " ", InterpretationBox[\(r\_y\), Subscripted[ r[ y]], Editable->False]}], "-", RowBox[{ InterpretationBox[\(s\_x\), Subscripted[ s[ x]], Editable->False], " ", InterpretationBox[\(s\_y\), Subscripted[ s[ y]], Editable->False]}]}]}], ",", RowBox[{ RowBox[{ RowBox[{"-", InterpretationBox[\(r\_x_\), Subscripted[ r[ Pattern[ x, Blank[ ]]]], Editable->False]}], "-", InterpretationBox[\(r\_y_\), Subscripted[ r[ Pattern[ y, Blank[ ]]]], Editable->False], "+", RowBox[{"2", " ", InterpretationBox[\(r\_x_\), Subscripted[ r[ Pattern[ x, Blank[ ]]]], Editable->False], " ", InterpretationBox[\(r\_y_\), Subscripted[ r[ Pattern[ y, Blank[ ]]]], Editable->False]}]}], "\[Rule]", RowBox[{\(-1\), "+", RowBox[{ InterpretationBox[\(r\_x\), Subscripted[ r[ x]], Editable->False], " ", InterpretationBox[\(r\_y\), Subscripted[ r[ y]], Editable->False]}], "+", RowBox[{ InterpretationBox[\(s\_x\), Subscripted[ s[ x]], Editable->False], " ", InterpretationBox[\(s\_y\), Subscripted[ s[ y]], Editable->False]}]}]}], ",", RowBox[{ RowBox[{ InterpretationBox[\(r\_x_\), Subscripted[ r[ Pattern[ x, Blank[ ]]]], Editable->False], "+", InterpretationBox[\(r\_y_\), Subscripted[ r[ Pattern[ y, Blank[ ]]]], Editable->False], "-", RowBox[{ InterpretationBox[\(r\_x_\), Subscripted[ r[ Pattern[ x, Blank[ ]]]], Editable->False], " ", InterpretationBox[\(r\_y_\), Subscripted[ r[ Pattern[ y, Blank[ ]]]], Editable->False]}]}], "\[Rule]", RowBox[{"1", "-", RowBox[{ InterpretationBox[\(s\_x\), Subscripted[ s[ x]], Editable->False], " ", InterpretationBox[\(s\_y\), Subscripted[ s[ y]], Editable->False]}]}]}], ",", RowBox[{ RowBox[{ RowBox[{"-", InterpretationBox[\(r\_x_\), Subscripted[ r[ Pattern[ x, Blank[ ]]]], Editable->False]}], "-", InterpretationBox[\(r\_y_\), Subscripted[ r[ Pattern[ y, Blank[ ]]]], Editable->False], "+", RowBox[{ InterpretationBox[\(r\_x_\), Subscripted[ r[ Pattern[ x, Blank[ ]]]], Editable->False], " ", InterpretationBox[\(r\_y_\), Subscripted[ r[ Pattern[ y, Blank[ ]]]], Editable->False]}]}], "\[Rule]", RowBox[{\(-1\), "+", RowBox[{ InterpretationBox[\(s\_x\), Subscripted[ s[ x]], Editable->False], " ", InterpretationBox[\(s\_y\), Subscripted[ s[ y]], Editable->False]}]}]}], ",", RowBox[{ RowBox[{"1", "-", InterpretationBox[\(r\_x_\), Subscripted[ r[ Pattern[ x, Blank[ ]]]], Editable->False]}], "\[Rule]", InterpretationBox[\(s\_x\), Subscripted[ s[ x]], Editable->False]}], ",", RowBox[{ RowBox[{\(-1\), "+", InterpretationBox[\(r\_x_\), Subscripted[ r[ Pattern[ x, Blank[ ]]]], Editable->False]}], "\[Rule]", RowBox[{"-", InterpretationBox[\(s\_x\), Subscripted[ s[ x]], Editable->False]}]}]}], "}"}]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[TextData["Full Sib mating"], "Subsubsection", Evaluatable->False, AspectRatioFixed->True], Cell["\<\ Pf[i_,j_]:=Pf[i,j]=P[i,j]/.r[x_]->rf[x]; Pm[i_,j_]:=Pm[i,j]=P[i,j]/.r[x_]->rm[x]\ \>", "Input", InitializationCell->True, AspectRatioFixed->True] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData["\nApplications"], "Subtitle", Evaluatable->False, AspectRatioFixed->True], Cell["\<\ Below are simple implementations of the formulae in Hospital et al. \ (1996). More sophisticated implementations taking symmetries into account can be found in files: 'random','backcross','selfing', and 'fullsib'.\ \>", "Text"], Cell[CellGroupData[{ Cell[TextData["Random mating"], "Section", Evaluatable->False, AspectRatioFixed->True], Cell["\<\ f[t_,x_,y_]:=f[t,x,y]= 2^delta[x,y]* Sum[P[i,j][[x]]*f[t-1,i,j],{i,1,ngam},{j,i,ngam}]* Sum[P[i,j][[y]]*f[t-1,i,j],{i,1,ngam},{j,i,ngam}]\ \>", "Input", AspectRatioFixed->True] }, Open ]], Cell[CellGroupData[{ Cell[TextData["Backcrossing"], "Section", Evaluatable->False, AspectRatioFixed->True], Cell["\<\ B=Union[Map[g,gamprod[b1,b2]]]; nb=Length[B];\ \>", "Input", AspectRatioFixed->True], Cell["\<\ f[t_,x_,y_]:=f[t,x,y]= Sum[ (P[i,B[[j]]][[x]]*P[b1,b2][[y]]+ delta[x,y]*P[i,B[[j]]][[y]]*P[b1,b2][[x]])* f[t-1,Min[i,B[[j]]],Max[i,B[[j]]]],{i,1,ngam},{j,1,nb}]\ \>", "Input", AspectRatioFixed->True] }, Open ]], Cell[CellGroupData[{ Cell[TextData["Selfing"], "Section", Evaluatable->False, AspectRatioFixed->True], Cell["\<\ f[t_,x_,y_]:=f[t,x,y]= 2^delta[x,y]* Sum[P[i,j][[x]]*P[i,j][[y]]*f[t-1,i,j],{i,1,ngam},{j,i,ngam}]\ \>", "Input", AspectRatioFixed->True] }, Open ]], Cell[CellGroupData[{ Cell[TextData["Full-Sibs mating"], "Section", Evaluatable->False, AspectRatioFixed->True], Cell["\<\ G[i_,j_,k_,l_]:=G[i,j,k,l]= Outer[Times,Pf[i,j],Pm[k,l]] h[t_,x_,y_,u_,v_]:=h[t,x,y,u,v]= Sum[ (G[i,j,k,l][[x]][[y]]+delta[x,y]*G[i,j,k,l][[y]][[x]])* (G[i,j,k,l][[u]][[v]]+delta[u,v]*G[i,j,k,l][[v]][[u]])* h[t-1,i,j,k,l], {i,1,ngam},{j,i,ngam},{k,1,ngam},{l,k,ngam}]; f[t_,x_,y_]:=f[t,x,y]= Sum[ (G[i,j,k,l][[x]][[y]]+delta[x,y]*G[i,j,k,l][[y]][[x]])* h[t-1,i,j,k,l], {i,1,ngam},{j,i,ngam},{k,1,ngam},{l,k,ngam}]; \ \>", "Input", AspectRatioFixed->True] }, Open ]] }, Open ]] }, Open ]] }, FrontEndVersion->"X 3.0", ScreenRectangle->{{0, 1024}, {0, 768}}, AutoGeneratedPackage->Automatic, WindowToolbars->{}, CellGrouping->Automatic, WindowSize->{520, 600}, WindowMargins->{{113, Automatic}, {29, Automatic}}, 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", Evaluatable->False], Cell[1830, 55, 263, 5, 86, "Text"], Cell[CellGroupData[{ Cell[2118, 64, 97, 2, 42, "Subtitle", Evaluatable->False], Cell[2218, 68, 504, 25, 342, "Input", InitializationCell->True], Cell[2725, 95, 220, 8, 87, "Input", InitializationCell->True], Cell[2948, 105, 116, 2, 27, "Input", InitializationCell->True], Cell[3067, 109, 245, 9, 102, "Input", InitializationCell->True], Cell[3315, 120, 285, 9, 102, "Input", InitializationCell->True], Cell[CellGroupData[{ Cell[3625, 133, 292, 10, 117, "Input", InitializationCell->True], Cell[3920, 145, 6287, 195, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[10244, 345, 98, 2, 36, "Subsubsection", Evaluatable->False], Cell[10345, 349, 159, 5, 42, "Input", InitializationCell->True] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[10553, 360, 92, 2, 63, "Subtitle", Evaluatable->False], Cell[10648, 364, 237, 5, 68, "Text"], Cell[CellGroupData[{ Cell[10910, 373, 90, 2, 49, "Section", Evaluatable->False], Cell[11003, 377, 188, 6, 72, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[11228, 388, 89, 2, 49, "Section", Evaluatable->False], Cell[11320, 392, 96, 4, 42, "Input"], Cell[11419, 398, 211, 7, 87, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[11667, 410, 84, 2, 49, "Section", Evaluatable->False], Cell[11754, 414, 149, 5, 57, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[11940, 424, 93, 2, 49, "Section", Evaluatable->False], Cell[12036, 428, 469, 19, 267, "Input"] }, Open ]] }, Open ]] }, Open ]] } ] *) (*********************************************************************** End of Mathematica Notebook file. ***********************************************************************)