(*********************************************************************** 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[ 26963, 999]*) (*NotebookOutlinePosition[ 52965, 1946]*) (* CellTagsIndexPosition[ 52921, 1942]*) (*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["Backcross"], "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["Genotype of the parents"], "Subsection", Evaluatable->False, AspectRatioFixed->True], Cell[CellGroupData[{ Cell[TextData["Recipient parent (non recurrent)"], "Subsubsection", Evaluatable->False, AspectRatioFixed->True], Cell[CellGroupData[{ Cell[TextData["a={1,1}"], "Input", AspectRatioFixed->True], Cell[OutputFormData["\<\ {1, 1}\ \>", "\<\ {1, 1}\ \>"], "Output", Evaluatable->False, AspectRatioFixed->True] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData["Recurrent parent"], "Subsubsection", Evaluatable->False, AspectRatioFixed->True], Cell[CellGroupData[{ Cell[TextData["b={8,8}"], "Input", AspectRatioFixed->True], Cell[OutputFormData["\<\ {8, 8}\ \>", "\<\ {8, 8}\ \>"], "Output", Evaluatable->False, AspectRatioFixed->True] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData["General definitions"], "Subsection", Evaluatable->False, AspectRatioFixed->True], Cell["<<\"definitions.ma\"", "Input", AspectRatioFixed->True], Cell[CellGroupData[{ Cell[TextData["a1=a[[1]];a2=a[[2]]"], "Input", AspectRatioFixed->True], Cell[OutputFormData["\<\ 1\ \>", "\<\ 1\ \>"], "Output", Evaluatable->False, AspectRatioFixed->True] }, Open ]], Cell[CellGroupData[{ Cell[TextData["b1=b[[1]];b2=b[[2]]"], "Input", AspectRatioFixed->True], Cell[OutputFormData["\<\ 8\ \>", "\<\ 8\ \>"], "Output", Evaluatable->False, AspectRatioFixed->True] }, Open ]], Cell[CellGroupData[{ Cell[TextData[ "A=Union[Map[g,gamprod[a[[1]],a[[2]]]]];\nna=Length[A]"], "Input", AspectRatioFixed->True], Cell[OutputFormData["\<\ 1\ \>", "\<\ 1\ \>"], "Output", Evaluatable->False, AspectRatioFixed->True] }, Open ]], Cell[CellGroupData[{ Cell[TextData["B=Union[Map[g,gamprod[b1,b2]]];\nnb=Length[B]"], "Input", AspectRatioFixed->True], Cell[OutputFormData["\<\ 1\ \>", "\<\ 1\ \>"], "Output", Evaluatable->False, AspectRatioFixed->True] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData["Initial genotype frequencies"], "Subsection", Evaluatable->False, AspectRatioFixed->True], Cell[CellGroupData[{ Cell[TextData[ "ulist=Sort[Union[Map[Sort,\n\ Flatten[Outer[List,Table[i,{i,ngam}],b],1],{1}]]]"], "Input", AspectRatioFixed->True], Cell[OutputFormData[ "\<\ {{1, 8}, {2, 8}, {3, 8}, {4, 8}, {5, 8}, {6, 8}, {7, 8}, {8, 8}}\ \>", "\<\ {{1, 8}, {2, 8}, {3, 8}, {4, 8}, {5, 8}, {6, 8}, {7, 8}, {8, 8}}\ \>"], "Output", Evaluatable->False, AspectRatioFixed->True] }, Open ]], Cell[CellGroupData[{ Cell[TextData["nsym=Length[ulist]"], "Input", AspectRatioFixed->True], Cell[OutputFormData["\<\ 8\ \>", "\<\ 8\ \>"], "Output", Evaluatable->False, AspectRatioFixed->True] }, Open ]], Cell[TextData[ "Clear[index];\nindex=Table[\"+\",{ngam},{ngam}];\n\ Do[index[[ulist[[i,1]],ulist[[i,2]]]]=i,{i,1,nsym}];"], "Input", AspectRatioFixed->True], Cell[TextData[ "Index for elements of freq[t], vector of all genotype frequencies at t"], "Text", Evaluatable->False, 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}, {\"+\", \"+\", \"+\", \"+\", \"+\", \"+\", \"+\", 2}, {\"+\", \"+\", \"+\", \"+\", \"+\", \"+\", \"+\", 3}, {\"+\", \"+\", \"+\", \"+\", \"+\", \"+\", \"+\", 4}, {\"+\", \"+\", \"+\", \"+\", \"+\", \"+\", \"+\", 5}, {\"+\", \"+\", \"+\", \"+\", \"+\", \"+\", \"+\", 6}, {\"+\", \"+\", \"+\", \"+\", \"+\", \"+\", \"+\", 7}, {\"+\", \"+\", \"+\", \"+\", \"+\", \"+\", \"+\", 8}}, TableHeadings -> {{\"000\", \"001\", \"010\", \"011\", \"100\", \"101\", \"110\"\\ , \"111\"}, {\"000\", \"001\", \"010\", \"011\", \"100\", \"10\\ 1\", \"110\", \"111\"}}, TableAlignments -> Center]\ \>", "\<\ 000 001 010 011 100 101 110 111 000 + + + + + + + 1 001 + + + + + + + 2 010 + + + + + + + 3 011 + + + + + + + 4 100 + + + + + + + 5 101 + + + + + + + 6 110 + + + + + + + 7 111 + + + + + + + 8\ \>"], "Output", Evaluatable->False, LineSpacing->{1, 0}, AspectRatioFixed->True] }, Open ]], Cell[TextData["Vector of all initial frequencies below:"], "Text", Evaluatable->False, AspectRatioFixed->True], Cell[CellGroupData[{ Cell[TextData[ "freq[1]=Apply[\nP[a1,a2][[#1]]*P[b1,b2][[#2]]+\n\ delta[#1,#2]*P[a1,a2][[#2]]*P[b1,b2][[#1]]\n&,ulist,{1}]//Simplify"], "Input",\ AspectRatioFixed->True], Cell[OutputFormData["\<\ {1, 0, 0, 0, 0, 0, 0, 0}\ \>", "\<\ {1, 0, 0, 0, 0, 0, 0, 0}\ \>"], "Output", Evaluatable->False, AspectRatioFixed->True] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData["Tables"], "Section", Evaluatable->False, AspectRatioFixed->True], Cell[CellGroupData[{ Cell[TextData["Recursion"], "Subsection", Evaluatable->False, AspectRatioFixed->True], Cell[CellGroupData[{ Cell[TextData["Definitions"], "Subsubsection", Evaluatable->False, AspectRatioFixed->True], Cell[CellGroupData[{ Cell[TextData[ "tabf=Flatten[Table[zf[t,i,B[[j]]],{i,1,ngam},{j,1,nb}]]"], "Input", AspectRatioFixed->True], Cell[OutputFormData[ "\<\ {zf[t, 1, 8], zf[t, 2, 8], zf[t, 3, 8], zf[t, 4, 8], zf[t, 5, 8], zf[t, 6, 8], zf[t, 7, 8], zf[t, 8, 8]}\ \>", "\<\ {zf[t, 1, 8], zf[t, 2, 8], zf[t, 3, 8], zf[t, 4, 8], zf[t, 5, 8], zf[t, 6, 8], zf[t, 7, 8], zf[t, 8, 8]}\ \>"], "Output", Evaluatable->False, AspectRatioFixed->True] }, Open ]], Cell[TextData[ "Format[zf[t_,x_,y_]]:=Subscripted[f[x,y]][t];\n\ Format[zf[t_,x_,y_],TeXForm]:=Subscripted[f[x,y]][t];\n\ Format[zf[t,x_,y_],TeXForm]:=Subscripted[f[x,y]]"], "Input", AspectRatioFixed->True], Cell[TextData[ "genrec[x_,y_]:=Sum[\n(P[i,B[[j]]][[x]]*P[b1,b2][[y]]+\n\ delta[x,y]*P[i,B[[j]]][[y]]*P[b1,b2][[x]])*\n\ zf[t,Min[i,B[[j]]],Max[i,B[[j]]]],\n{i,1,ngam},{j,1,nb}]//Together"], "Input",\ AspectRatioFixed->True], Cell["\<\ ligne[x_,y_]:= Reduce[ {genrec[x,y]==xxx, Sum[zf[t,i,y],{i,1,ngam}]==1} ][[1,2]]\ \>", "Input", AspectRatioFixed->True] }, Open ]], Cell[CellGroupData[{ Cell[TextData["Visual output"], "Subsubsection", Evaluatable->False, AspectRatioFixed->True], Cell[CellGroupData[{ Cell["\<\ Flatten[Table[{ ToString[Subscripted[f[x,B[[y]]]][\"t+1\"]], \"=\", 1/Denominator[ligne[x,B[[y]]]]* Simplify[Collect[Numerator[ligne[x,B[[y]]] ],tabf] ]}, {x,1,ngam},{y,1,nb}],1]//.rulers//TableForm\ \>", "Input", AspectRatioFixed->True], Cell[OutputFormData["\<\ TableForm[{{\"f [t+1]\\n 1,8\", \"=\", (s[1]*s[2]*zf[t, 1, 8])/2}, {\"f [t+1]\\n 2,8\", \"=\", (s[1]*(r[2]*zf[t, 1, 8] + zf[t, 2, 8]))/2}, {\"f [t+1]\\n 3,8\", \"=\", (r[1]*r[2]*zf[t, 1, 8] + (r[1]*r[2] + s[1]*s[2])*zf[t, 3, 8])/2}, {\"f [t+1]\\n 4,8\", \"=\", (r[1]*s[2]*zf[t, 1, 8] + r[1]*zf[t, 2, 8] + (1 - r[1]*r[2] - s[1]*s[2])*zf[t, 3, 8] + zf[t, 4, 8])/2}, {\"f [t+1]\\n 5,8\", \"=\", (s[2]*(r[1]*zf[t, 1, 8] + zf[t, 5, 8]))/2}, {\"f [t+1]\\n 6,8\", \"=\", (r[1]*r[2]*zf[t, 1, 8] + r[1]*zf[t, 2, 8] + r[2]*zf[t, 5, 8] + zf[t, 6, 8])/2}, {\"f [t+1]\\n 7,8\", \"=\", (r[2]*s[1]*zf[t, 1, 8] + (1 - r[1]*r[2] - s[1]*s[2])*zf[t, 3, 8] + r[2]*zf[t, 5, 8] + zf[t, 7, 8])/2}, {\"f [t+1]\\n 8,8\", \"=\", (1 + (-1 + s[1]*s[2])*zf[t, 1, 8] - r[1]*zf[t, 2, 8] + (-1 + r[1]*r[2] + s[1]*s[2])*zf[t, 3, 8] - r[2]*zf[t, 5, 8] + zf[t, 8, 8])/2}}]\ \>", "\<\ f [t+1] 1,8 = s s f [t] 1 2 1,8 ------------- 2 f [t+1] 2,8 = s (r f [t] + f [t]) 1 2 1,8 2,8 ------------------------- 2 f [t+1] 3,8 = (r r f [t] + 1 2 1,8 (r r + s s ) f [t]) / 2 1 2 1 2 3,8 f [t+1] 4,8 = (r s f [t] + r f [t] + 1 2 1,8 1 2,8 (1 - r r - s s ) f [t] + f [t]) 1 2 1 2 3,8 4,8 / 2 f [t+1] 5,8 = s (r f [t] + f [t]) 2 1 1,8 5,8 ------------------------- 2 f [t+1] 6,8 = (r r f [t] + r f [t] + 1 2 1,8 1 2,8 r f [t] + f [t]) / 2 2 5,8 6,8 f [t+1] 7,8 = (r s f [t] + 2 1 1,8 (1 - r r - s s ) f [t] + 1 2 1 2 3,8 r f [t] + f [t]) / 2 2 5,8 7,8 (1 + (-1 + s s ) f [t] - r f [t] + 1 2 1,8 1 2,8 (-1 + r r + s s ) f [t] - 1 2 1 2 3,8 f [t+1] r f [t] + f [t]) / 2 8,8 = 2 5,8 8,8\ \>"], "Output", Evaluatable->False, AspectRatioFixed->True] }, Closed]] }, Open ]], Cell[CellGroupData[{ Cell[TextData["TeX output"], "Subsubsection", Evaluatable->False, AspectRatioFixed->True], Cell[CellGroupData[{ Cell[TextData[ "tabtex=Flatten[Table[{\nzf[\"t+1\",x,B[[y]]],\n\"=\",\n\ \"\\\\frac{1}{\"<>ToString[Denominator[ligne[x,B[[y]]]]]<>\"}\"*\n\ Simplify[Collect[Numerator[ligne[x,B[[y]]] ],tabf]\n]},\n\ {x,1,ngam},{y,1,nb}],1]//.rulers//TableForm//TeXForm"], "Input", AspectRatioFixed->True], Cell[OutputFormData["\<\ \\matrix{ f_{1,8}(t+1) & = & \\frac{1}{2}\\,s_{1}\\,s_{2}\\,f_{1,8} \\cr f_{2,8}(t+1) & = & \\frac{1}{2}\\,s_{1}\\, \\left( r_{2}\\,f_{1,8} + f_{2,8} \\right) \\cr f_{3,8}(t+1) & = & \\frac{1}{2}\\, \\left( r_{1}\\,r_{2}\\,f_{1,8} + \\left( r_{1}\\,r_{2} + s_{1}\\,s_{2} \\right) \\,f_{3,8} \\right) \\cr f_{4,8}(t+1) & = & \\frac{1}{2}\\,\\left( r_{1}\\,s_{2}\\,f_{1,8} + r_{1}\\,f_{2,8} + \\left( 1 - r_{1}\\,r_{2} - s_{1}\\,s_{2} \\right) \\,f_{3,8} + f_{4,8} \\right) \\cr f_{5,8}(t+1) & = & \\frac{1}{2}\\,s_{2}\\,\\left( r_{1}\\,f_{1,8} + f_{5,8} \\right) \\cr f_{6,8}(t+1) & = & \\frac{1}{2}\\,\\left( r_{1}\\,r_{2}\\,f_{1,8} + r_{1}\\,f_{2,8} + r_{2}\\,f_{5,8} + f_{6,8} \\right) \\cr f_{7,8}(t+1) & = & \\frac{1}{2}\\,\\left( r_{2}\\,s_{1}\\,f_{1,8} + \\left( 1 - r_{1}\\,r_{2} - s_{1}\\,s_{2} \\right) \\, f_{3,8} + r_{2}\\,f_{5,8} + f_{7,8} \\right) \\cr f_{8,8}(t+1) & = & \\frac{1}{2}\\, \\left( 1 + \\left( -1 + s_{1}\\,s_{2} \\right) \\, f_{1,8} - r_{1}\\,f_{2,8} + \\left( -1 + r_{1}\\,r_{2} + s_{1}\\,s_{2} \\right) \\, f_{3,8} - r_{2}\\,f_{5,8} + f_{8,8} \\right) \\cr }\ \>", "\<\ \\matrix{ f_{1,8}(t+1) & = & \\frac{1}{2}\\,s_{1}\\,s_{2}\\,f_{1,8} \\cr f_{2,8}(t+1) & = & \\frac{1}{2}\\,s_{1}\\, \\left( r_{2}\\,f_{1,8} + f_{2,8} \\right) \\cr f_{3,8}(t+1) & = & \\frac{1}{2}\\, \\left( r_{1}\\,r_{2}\\,f_{1,8} + \\left( r_{1}\\,r_{2} + s_{1}\\,s_{2} \\right) \\,f_{3,8} \\right) \\cr f_{4,8}(t+1) & = & \\frac{1}{2}\\,\\left( r_{1}\\,s_{2}\\,f_{1,8} + r_{1}\\,f_{2,8} + \\left( 1 - r_{1}\\,r_{2} - s_{1}\\,s_{2} \\right) \\,f_{3,8} + f_{4,8} \\right) \\cr f_{5,8}(t+1) & = & \\frac{1}{2}\\,s_{2}\\,\\left( r_{1}\\,f_{1,8} + f_{5,8} \\right) \\cr f_{6,8}(t+1) & = & \\frac{1}{2}\\,\\left( r_{1}\\,r_{2}\\,f_{1,8} + r_{1}\\,f_{2,8} + r_{2}\\,f_{5,8} + f_{6,8} \\right) \\cr f_{7,8}(t+1) & = & \\frac{1}{2}\\,\\left( r_{2}\\,s_{1}\\,f_{1,8} + \\left( 1 - r_{1}\\,r_{2} - s_{1}\\,s_{2} \\right) \\, f_{3,8} + r_{2}\\,f_{5,8} + f_{7,8} \\right) \\cr f_{8,8}(t+1) & = & \\frac{1}{2}\\, \\left( 1 + \\left( -1 + s_{1}\\,s_{2} \\right) \\, f_{1,8} - r_{1}\\,f_{2,8} + \\left( -1 + r_{1}\\,r_{2} + s_{1}\\,s_{2} \\right) \\, f_{3,8} - r_{2}\\,f_{5,8} + f_{8,8} \\right) \\cr }\ \>"], "Output", Evaluatable->False, LineSpacing->{1, 0}, AspectRatioFixed->True] }, Closed]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData["Frequencies"], "Subsection", Evaluatable->False, AspectRatioFixed->True], Cell[CellGroupData[{ Cell[TextData["Definitions"], "Subsubsection", Evaluatable->False, AspectRatioFixed->True], Cell[TextData[ "f[t_,x_,y_]:=f[t,x,y]=\nSum[\n(P[i,B[[j]]][[x]]*P[b1,b2][[y]]+\n\ delta[x,y]*P[i,B[[j]]][[y]]*P[b1,b2][[x]])*\n\ 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["Initialization"], "Subsubsection", Evaluatable->False, AspectRatioFixed->True], Cell[TextData[ "Do[f[1,Min[x,B[[y]]],Max[x,B[[y]]]]=\nP[a1,a2][[x]]*P[b1,b2][[B[[y]]]]+\n\ delta[x,B[[y]]]*P[a1,a2][[B[[y]]]]*P[b1,b2][[x]],\n{x,1,ngam},{y,1,nb}]"], "Input", AspectRatioFixed->True] }, Open ]], Cell[CellGroupData[{ Cell[TextData["Output"], "Subsubsection", Evaluatable->False, AspectRatioFixed->True], Cell[CellGroupData[{ Cell[TextData["f[3,3,8]//Simplify"], "Input", AspectRatioFixed->True], Cell[OutputFormData[ "\<\ (r[1]*r[2]*(2 - 2*r[1] - 2*r[2] + 3*r[1]*r[2]))/4\ \>", "\<\ r r (2 - 2 r - 2 r + 3 r r ) 1 2 1 2 1 2 --------------------------------- 4\ \>"], "Output", Evaluatable->False, AspectRatioFixed->True] }, Open ]], Cell[CellGroupData[{ Cell[TextData["Numerator[Simplify[f[3,4,8]]]//Factor"], "Input", AspectRatioFixed->True], Cell[OutputFormData["\<\ r[1]*(2 - r[1] - 2*r[2] + 2*r[1]*r[2] + 2*r[2]^2 - 3*r[1]*r[2]^2)\ \>", "\<\ 2 2 r (2 - r - 2 r + 2 r r + 2 r - 3 r r ) 1 1 2 1 2 2 1 2\ \>"], "Output", Evaluatable->False, AspectRatioFixed->True] }, Open ]], Cell[CellGroupData[{ Cell[TextData["rulers"], "Input", AspectRatioFixed->True], Cell[OutputFormData["\<\ {r[x_] + r[y_] - 2*r[x_]*r[y_] -> 1 - r[x]*r[y] - s[x]*s[y], -r[x_] - r[y_] + 2*r[x_]*r[y_] -> -1 + r[x]*r[y] + s[x]*s[y], r[x_] + r[y_] - r[x_]*r[y_] -> 1 - s[x]*s[y], -r[x_] - r[y_] + r[x_]*r[y_] -> -1 + s[x]*s[y], 1 - r[x_] -> s[x], -1 + r[x_] -> -s[x]}\ \>", "\<\ {r + r - 2 r r -> 1 - r r - s s , x_ y_ x_ y_ x y x y -r - r + 2 r r -> -1 + r r + s s , x_ y_ x_ y_ x y x y r + r - r r -> 1 - s s , x_ y_ x_ y_ x y -r - r + r r -> -1 + s s , 1 - r -> s , x_ y_ x_ y_ x y x_ x -1 + r -> -s } x_ x\ \>"], "Output", Evaluatable->False, AspectRatioFixed->True] }, Open ]], Cell[CellGroupData[{ Cell[TextData["(f[3,8,8]//Cancel)//.rulers//Simplify"], "Input", AspectRatioFixed->True], Cell[OutputFormData[ "\<\ (r[1]*r[2] + r[1]^2*r[2]^2 + r[2]*s[1] + r[2]*s[1]^2 + r[1]*s[2] + 2*s[1]*s[2] + r[1]*r[2]*s[1]*s[2] + r[1]*s[2]^2 + s[1]^2*s[2]^2)/4\ \>", "\<\ 2 2 2 (r r + r r + r s + r s + r s + 2 s s + 1 2 1 2 2 1 2 1 1 2 1 2 2 2 2 r r s s + r s + s s ) / 4 1 2 1 2 1 2 1 2\ \>"], "Output", Evaluatable->False, AspectRatioFixed->True] }, Open ]], Cell[CellGroupData[{ Cell[TextData[ "Table[\nCancel[f[3,x,B[[y]]]],\n\ {x,1,ngam},{y,1,nb}]//.rulers//Simplify//ColumnForm"], "Input", AspectRatioFixed->True], Cell[OutputFormData["\<\ {(s[1]^2*s[2]^2)/4} {(r[2]*s[1]^2*(1 + s[2]))/4} {(r[1]*r[2]*(r[1]*r[2] + 2*s[1]*s[2]))/4} {(r[1]*(r[2] - r[1]*r[2]^2 + r[2]*s[1] + s[2] - r[2]*s[1]*s[2] + s[1]*s[2]^2))/4} {(r[1]*(1 + s[1])*s[2]^2)/4} {(r[1]*r[2]*(1 + s[1])*(1 + s[2]))/4} {(r[2]*(r[1] - r[1]^2*r[2] + s[1] + r[1]*s[2] - r[1]*s[1]*s[2] + s[1]^2*s[2]))/4} {(r[1]*r[2] + r[1]^2*r[2]^2 + r[2]*s[1] + r[2]*s[1]^2 + r[1]*s[2] + 2*s[1]*s[2] + r[1]*r[2]*s[1]*s[2] + r[1]*s[2]^2 + s[1]^2*s[2]^2)/4}\ \>", "\<\ 2 2 s s 1 2 {-------} 4 2 r s (1 + s ) 2 1 2 {---------------} 4 r r (r r + 2 s s ) 1 2 1 2 1 2 {-----------------------} 4 2 2 r (r - r r + r s + s - r s s + s s ) 1 2 1 2 2 1 2 2 1 2 1 2 {-------------------------------------------------} 4 2 r (1 + s ) s 1 1 2 {---------------} 4 r r (1 + s ) (1 + s ) 1 2 1 2 {-----------------------} 4 2 2 r (r - r r + s + r s - r s s + s s ) 2 1 1 2 1 1 2 1 1 2 1 2 {-------------------------------------------------} 4 2 2 2 {(r r + r r + r s + r s + r s + 2 s s + 1 2 1 2 2 1 2 1 1 2 1 2 2 2 2 r r s s + r s + s s ) / 4} 1 2 1 2 1 2 1 2\ \>"], "Output", Evaluatable->False, LineSpacing->{1, 0}, AspectRatioFixed->True] }, Closed]] }, Open ]], Cell[CellGroupData[{ Cell[TextData["TeX output"], "Subsubsection", Evaluatable->False, AspectRatioFixed->True], Cell[CellGroupData[{ Cell[TextData[ "freq23s=Flatten[Table[\n{zf[\"t\",x,B[[y]]],\nSimplify[f[2,x,B[[y]]]],\n\ Simplify[f[3,x,B[[y]]]]},\n{x,1,ngam},{y,1,nb}],1]//.rulers"], "Input", AspectRatioFixed->True], Cell[TextData[ "General::spell1: \n Possible spelling error: new symbol name \"freq23s\"\n \ is similar to existing symbol \"freq23\"."], "Message", Evaluatable->False, AspectRatioFixed->True], Cell[OutputFormData[ "\<\ {{zf[\"t\", 1, 8], (s[1]*s[2])/2, (s[1]^2*s[2]^2)/4}, {zf[\"t\", 2, 8], (r[2]*s[1])/2, ((2 - r[2])*r[2]*s[1]^2)/4}, {zf[\"t\", 3, 8], (r[1]*r[2])/2, (r[1]*r[2]*(2 - 2*r[1] - 2*r[2] + 3*r[1]*r[2]))/4}, {zf[\"t\", 4, 8], (r[1]*s[2])/2, (r[1]*(2 - r[1] - 2*r[2] + 2*r[1]*r[2] + 2*r[2]^2 - 3*r[1]*r[2]^2))/4}, {zf[\"t\", 5, 8], (r[1]*s[2])/2, ((2 - r[1])*r[1]*s[2]^2)/4}, {zf[\"t\", 6, 8], (r[1]*r[2])/2, ((-2 + r[1])*r[1]*(-2 + r[2])*r[2])/4}, {zf[\"t\", 7, 8], (r[2]*s[1])/2, (r[2]*(2 - 2*r[1] + 2*r[1]^2 - r[2] + 2*r[1]*r[2] - 3*r[1]^2*r[2]))/4}, {zf[\"t\", 8, 8], (s[1]*s[2])/2, (3 - 2*r[1] + r[1]^2 - 2*r[2] + 2*r[1]*r[2] - 2*r[1]^2*r[2] + r[2]^2 - 2*r[1]*r[2]^2 + 3*r[1]^2*r[2]^2)/4}}\ \>", "\<\ 2 2 s s s s 1 2 1 2 {{f [t], -----, -------}, 1,8 2 4 2 r s (2 - r ) r s 2 1 2 2 1 {f [t], -----, ---------------}, 2,8 2 4 r r r r (2 - 2 r - 2 r + 3 r r ) 1 2 1 2 1 2 1 2 {f [t], -----, ---------------------------------}, 3,8 2 4 r s 1 2 {f [t], -----, 4,8 2 2 2 r (2 - r - 2 r + 2 r r + 2 r - 3 r r ) 1 1 2 1 2 2 1 2 -----------------------------------------------}, 4 2 r s (2 - r ) r s 1 2 1 1 2 {f [t], -----, ---------------}, 5,8 2 4 r r (-2 + r ) r (-2 + r ) r 1 2 1 1 2 2 {f [t], -----, -------------------------}, 6,8 2 4 r s 2 1 {f [t], -----, 7,8 2 2 2 r (2 - 2 r + 2 r - r + 2 r r - 3 r r ) 2 1 1 2 1 2 1 2 -----------------------------------------------}, 4 s s 1 2 2 {f [t], -----, (3 - 2 r + r - 2 r + 2 r r - 8,8 2 1 1 2 1 2 2 2 2 2 2 2 r r + r - 2 r r + 3 r r ) / 4}} 1 2 2 1 2 1 2\ \>"], "Output", Evaluatable->False, AspectRatioFixed->True] }, Closed]], Cell[CellGroupData[{ Cell[TextData[ "freq23c=Flatten[Table[\n{zf[\"t\",x,B[[y]]],\nSimplify[f[2,x,B[[y]]]],\n\ Cancel[f[3,x,B[[y]]]]},\n{x,1,ngam},{y,1,nb}],1]//.rulers//Simplify"], "Input",\ AspectRatioFixed->True], Cell[TextData[ "General::spell: \n Possible spelling error: new symbol name \"freq23c\"\n \ is similar to existing symbols {freq23, freq23s}."], "Message", Evaluatable->False, AspectRatioFixed->True], Cell[OutputFormData[ "\<\ {{zf[\"t\", 1, 8], (s[1]*s[2])/2, (s[1]^2*s[2]^2)/4}, {zf[\"t\", 2, 8], (r[2]*s[1])/2, (r[2]*s[1]^2*(1 + s[2]))/4}, {zf[\"t\", 3, 8], (r[1]*r[2])/2, (r[1]*r[2]*(r[1]*r[2] + 2*s[1]*s[2]))/4}, {zf[\"t\", 4, 8], (r[1]*s[2])/2, (r[1]*(r[2] - r[1]*r[2]^2 + r[2]*s[1] + s[2] - r[2]*s[1]*s[2] + s[1]*s[2]^2))/4}, {zf[\"t\", 5, 8], (r[1]*s[2])/2, (r[1]*(1 + s[1])*s[2]^2)/4}, {zf[\"t\", 6, 8], (r[1]*r[2])/2, (r[1]*r[2]*(1 + s[1])*(1 + s[2]))/4}, {zf[\"t\", 7, 8], (r[2]*s[1])/2, (r[2]*(r[1] - r[1]^2*r[2] + s[1] + r[1]*s[2] - r[1]*s[1]*s[2] + s[1]^2*s[2]))/4}, {zf[\"t\", 8, 8], (s[1]*s[2])/2, (r[1]*r[2] + r[1]^2*r[2]^2 + r[2]*s[1] + r[2]*s[1]^2 + r[1]*s[2] + 2*s[1]*s[2] + r[1]*r[2]*s[1]*s[2] + r[1]*s[2]^2 + s[1]^2*s[2]^2)/4}}\ \>", "\<\ 2 2 s s s s 1 2 1 2 {{f [t], -----, -------}, 1,8 2 4 2 r s r s (1 + s ) 2 1 2 1 2 {f [t], -----, ---------------}, 2,8 2 4 r r r r (r r + 2 s s ) 1 2 1 2 1 2 1 2 {f [t], -----, -----------------------}, 3,8 2 4 r s 1 2 {f [t], -----, 4,8 2 2 2 r (r - r r + r s + s - r s s + s s ) 1 2 1 2 2 1 2 2 1 2 1 2 -------------------------------------------------}, 4 2 r s r (1 + s ) s 1 2 1 1 2 {f [t], -----, ---------------}, 5,8 2 4 r r r r (1 + s ) (1 + s ) 1 2 1 2 1 2 {f [t], -----, -----------------------}, 6,8 2 4 r s 2 1 {f [t], -----, 7,8 2 2 2 r (r - r r + s + r s - r s s + s s ) 2 1 1 2 1 1 2 1 1 2 1 2 -------------------------------------------------}, 4 s s 1 2 2 2 2 {f [t], -----, (r r + r r + r s + r s + 8,8 2 1 2 1 2 2 1 2 1 2 2 2 r s + 2 s s + r r s s + r s + s s ) / 4 1 2 1 2 1 2 1 2 1 2 1 2 }}\ \>"], "Output", Evaluatable->False, AspectRatioFixed->True] }, Closed]] }, Open ]] }, Open ]] }, Open ]] }, Open ]] }, Open ]] }, FrontEndVersion->"X 3.0", ScreenRectangle->{{0, 1152}, {0, 900}}, WindowToolbars->{}, CellGrouping->Automatic, WindowSize->{520, 600}, WindowMargins->{{241, Automatic}, {Automatic, 35}}, 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, 87, 2, 42, "Subtitle"], Cell[CellGroupData[{ Cell[2230, 70, 91, 2, 49, "Section"], Cell[2324, 74, 76, 1, 27, "Input"], Cell[CellGroupData[{ Cell[2425, 79, 94, 2, 40, "Subsection"], Cell[CellGroupData[{ Cell[2544, 85, 56, 1, 27, "Input"], Cell[2603, 88, 104, 6, 26, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[2756, 100, 104, 2, 40, "Subsection"], Cell[CellGroupData[{ Cell[2885, 106, 115, 2, 36, "Subsubsection"], Cell[CellGroupData[{ Cell[3025, 112, 60, 1, 27, "Input"], Cell[3088, 115, 114, 6, 26, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[3251, 127, 99, 2, 36, "Subsubsection"], Cell[CellGroupData[{ Cell[3375, 133, 60, 1, 27, "Input"], Cell[3438, 136, 114, 6, 26, "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[3613, 149, 99, 2, 40, "Subsection"], Cell[3715, 153, 63, 1, 27, "Input"], Cell[CellGroupData[{ Cell[3803, 158, 72, 1, 27, "Input"], Cell[3878, 161, 104, 6, 26, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[4019, 172, 72, 1, 27, "Input"], Cell[4094, 175, 104, 6, 26, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[4235, 186, 107, 2, 42, "Input"], Cell[4345, 190, 104, 6, 26, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[4486, 201, 98, 1, 42, "Input"], Cell[4587, 204, 104, 6, 26, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[4740, 216, 108, 2, 40, "Subsection"], Cell[CellGroupData[{ Cell[4873, 222, 133, 3, 42, "Input"], Cell[5009, 227, 240, 11, 42, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[5286, 243, 71, 1, 27, "Input"], Cell[5360, 246, 104, 6, 26, "Output"] }, Open ]], Cell[5479, 255, 158, 3, 57, "Input"], Cell[5640, 260, 148, 4, 32, "Text"], Cell[CellGroupData[{ Cell[5813, 268, 173, 3, 72, "Input"], Cell[5989, 273, 1283, 35, 220, "Output"] }, Open ]], Cell[7287, 311, 114, 2, 32, "Text"], Cell[CellGroupData[{ Cell[7426, 317, 172, 4, 72, "Input"], Cell[7601, 323, 151, 7, 26, "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[7813, 337, 83, 2, 49, "Section"], Cell[CellGroupData[{ Cell[7921, 343, 89, 2, 40, "Subsection"], Cell[CellGroupData[{ Cell[8035, 349, 94, 2, 36, "Subsubsection"], Cell[CellGroupData[{ Cell[8154, 355, 109, 2, 27, "Input"], Cell[8266, 359, 320, 11, 42, "Output"] }, Open ]], Cell[8601, 373, 208, 4, 57, "Input"], Cell[8812, 379, 226, 5, 87, "Input"], Cell[9041, 386, 131, 7, 87, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[9209, 398, 96, 2, 36, "Subsubsection"], Cell[CellGroupData[{ Cell[9330, 404, 249, 9, 117, "Input"], Cell[9582, 415, 2820, 94, 538, "Output"] }, Closed]] }, Open ]], Cell[CellGroupData[{ Cell[12451, 515, 93, 2, 28, "Subsubsection"], Cell[CellGroupData[{ Cell[12569, 521, 290, 5, 117, "Input"], Cell[12862, 528, 2534, 56, 337, "Output"] }, Closed]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[15457, 591, 91, 2, 29, "Subsection"], Cell[CellGroupData[{ Cell[15573, 597, 94, 2, 36, "Subsubsection"], Cell[15670, 601, 222, 4, 87, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[15929, 610, 97, 2, 36, "Subsubsection"], Cell[16029, 614, 203, 4, 72, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[16269, 623, 89, 2, 36, "Subsubsection"], Cell[CellGroupData[{ Cell[16383, 629, 71, 1, 27, "Input"], Cell[16457, 632, 271, 11, 50, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[16765, 648, 90, 1, 27, "Input"], Cell[16858, 651, 312, 9, 42, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[17207, 665, 59, 1, 27, "Input"], Cell[17269, 668, 787, 26, 130, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[18093, 699, 90, 1, 27, "Input"], Cell[18186, 702, 498, 16, 74, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[18721, 723, 139, 3, 57, "Input"], Cell[18863, 728, 1687, 57, 532, "Output"] }, Closed]] }, Open ]], Cell[CellGroupData[{ Cell[20599, 791, 93, 2, 28, "Subsubsection"], Cell[CellGroupData[{ Cell[20717, 797, 187, 3, 87, "Input"], Cell[20907, 802, 202, 4, 53, "Message"], Cell[21112, 808, 2631, 82, 482, "Output"] }, Closed]], Cell[CellGroupData[{ Cell[23780, 895, 197, 4, 84, "Input"], Cell[23980, 901, 209, 4, 53, "Message"], Cell[24192, 907, 2695, 84, 498, "Output"] }, Closed]] }, Open ]] }, Open ]] }, Open ]] }, Open ]] }, Open ]] } ] *) (*********************************************************************** End of Mathematica Notebook file. ***********************************************************************)