(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 8.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 157, 7] NotebookDataLength[ 66064, 1398] NotebookOptionsPosition[ 65784, 1383] NotebookOutlinePosition[ 66161, 1400] CellTagsIndexPosition[ 66118, 1397] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{"Defining", " ", "the", " ", "simulation", " ", "parameters"}], " ", "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"A", " ", "=", " ", "3"}], ";"}], " ", "\n", RowBox[{ RowBox[{"\[Epsilon]", " ", "=", " ", "0.2"}], ";"}], "\n", RowBox[{ RowBox[{"\[Alpha]", " ", "=", " ", "3"}], ";"}], " ", RowBox[{"(*", " ", RowBox[{ "Changes", " ", "height", " ", "of", " ", "cubic", " ", "nullcline", " ", "peak"}], " ", "*)"}], "\n", RowBox[{ RowBox[{"\[Gamma]", " ", "=", " ", "0.05"}], ";"}], " ", RowBox[{"(*", " ", RowBox[{ RowBox[{ RowBox[{"1", "/", "\[Gamma]"}], " ", "is", " ", "the", " ", "gradient", " ", "of", " ", "the", " ", "straight"}], "-", RowBox[{"line", " ", "nullcline"}]}], " ", "*)"}], "\n", RowBox[{ RowBox[{"v0", " ", "=", " ", "0.4"}], ";"}], " ", RowBox[{"(*", " ", RowBox[{ RowBox[{ RowBox[{ RowBox[{"-", "1"}], "/", "\[Gamma]"}], " ", "v0", " ", "is", " ", "the", " ", "y", " ", "intercept", " ", "of", " ", "the", " ", "straight"}], "-", RowBox[{"line", " ", "nullcline"}]}], " ", "*)"}], "\n", RowBox[{ RowBox[{"w0", " ", "=", " ", "0.4"}], ";"}], "\n", RowBox[{ RowBox[{"T", " ", "=", " ", "25"}], ";"}], "\n", "\n", RowBox[{ RowBox[{"n", " ", "=", " ", "25"}], ";"}], " ", RowBox[{"(*", " ", RowBox[{"Size", " ", "of", " ", "lattice", " ", "n", " ", "x", " ", "m"}], " ", "*)"}], "\n", RowBox[{ RowBox[{"m", " ", "=", " ", "25"}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{"initialising", " ", "parameters"}], " ", "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"clustersize", "=", RowBox[{"Table", "[", RowBox[{"i", ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "1"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{ "initialising", " ", "step", " ", "size", " ", "for", " ", "calculating", " ", "the", " ", "number", " ", "of", " ", "excited", " ", "cells"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"stp", " ", "=", " ", "0.1"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"K", " ", "=", " ", "1"}], ";", " ", RowBox[{"(*", " ", RowBox[{"Coupling", " ", "strength"}], " ", "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", "\n", RowBox[{"(*", " ", RowBox[{ RowBox[{ "Calculating", " ", "the", " ", "starting", " ", "values", " ", "for", " ", "t"}], " ", "=", " ", "0"}], " ", "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"initial", " ", "=", " ", RowBox[{"Solve", "[", RowBox[{ RowBox[{ RowBox[{"wi", " ", "==", " ", RowBox[{ RowBox[{"A", "*", "vi", "*", RowBox[{"(", RowBox[{"vi", "-", "\[Alpha]"}], ")"}], "*", RowBox[{"(", RowBox[{"1", "-", "vi"}], ")"}]}], "-", "w0"}]}], " ", "&&", " ", RowBox[{"wi", " ", "==", " ", RowBox[{ RowBox[{"(", RowBox[{"vi", "-", "v0"}], ")"}], "/", "\[Gamma]"}]}]}], ",", " ", RowBox[{"{", RowBox[{"vi", ",", "wi"}], "}"}], ",", " ", "Reals"}], "]"}]}], ";"}], "\n", RowBox[{ RowBox[{"initialline", " ", "=", " ", RowBox[{"Solve", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"wj", " ", "==", " ", RowBox[{ RowBox[{"A", "*", "vj", "*", RowBox[{"(", RowBox[{"vj", "-", "\[Alpha]"}], ")"}], "*", RowBox[{"(", RowBox[{"1", "-", "vj"}], ")"}]}], "-", "w0"}]}], " ", "&&", " ", RowBox[{"wj", " ", "==", " ", "wi"}]}], "/.", RowBox[{"initial", "[", RowBox[{"[", "1", "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"vj", ",", "wj"}], "}"}], ",", "Reals"}], "]"}]}], ";"}], "\n", RowBox[{ RowBox[{"localmax", " ", "=", " ", RowBox[{"FindMaxValue", "[", RowBox[{ RowBox[{ RowBox[{"A", "*", "vi", "*", RowBox[{"(", RowBox[{"vi", "-", "\[Alpha]"}], ")"}], "*", RowBox[{"(", RowBox[{"1", "-", "vi"}], ")"}]}], "-", "w0"}], ",", " ", RowBox[{"{", RowBox[{"vi", ",", RowBox[{"vj", "/.", RowBox[{"initialline", "[", RowBox[{"[", "3", "]"}], "]"}]}]}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{"Defining", " ", "the", " ", "perturbed", " ", "cell"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"kickleftN", " ", "=", " ", RowBox[{"Floor", "[", RowBox[{ RowBox[{"(", RowBox[{"n", "-", "1"}], ")"}], "/", "2"}], "]"}]}], ";"}], "\n", RowBox[{ RowBox[{"kickrightN", " ", "=", " ", RowBox[{"Floor", "[", RowBox[{ RowBox[{"(", RowBox[{"n", "+", "3"}], ")"}], "/", "2"}], "]"}]}], ";"}], "\t", "\n", RowBox[{ RowBox[{"kickcellN", " ", "=", " ", RowBox[{"Floor", "[", RowBox[{ RowBox[{"(", RowBox[{"n", "+", "1"}], ")"}], "/", "2"}], "]"}]}], ";"}], "\n", "\n", RowBox[{ RowBox[{"kickleftM", " ", "=", " ", RowBox[{"Floor", "[", RowBox[{ RowBox[{"(", RowBox[{"m", "-", "1"}], ")"}], "/", "2"}], "]"}]}], ";"}], "\n", RowBox[{ RowBox[{"kickrightM", " ", "=", " ", RowBox[{"Floor", "[", RowBox[{ RowBox[{"(", RowBox[{"m", "+", "3"}], ")"}], "/", "2"}], "]"}]}], ";"}], "\t", "\n", RowBox[{ RowBox[{"kickcellM", " ", "=", " ", RowBox[{"Floor", "[", RowBox[{ RowBox[{"(", RowBox[{"m", "+", "1"}], ")"}], "/", "2"}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{ RowBox[{"Cycling", " ", "through", " ", "perturbation", " ", "values"}], ",", " ", RowBox[{"probability", " ", "of", " ", "connections", " ", "existing"}], ",", " ", RowBox[{"and", " ", "number", " ", "of", " ", "iterations"}]}], " ", "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"Monitor", "[", RowBox[{ RowBox[{"Monitor", "[", RowBox[{ RowBox[{"Monitor", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"kick", "=", "1"}], ",", RowBox[{"kick", "\[LessEqual]", "2.5"}], ",", RowBox[{"kick", "=", RowBox[{"kick", "+", "0.5"}]}], ",", "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"prob", "=", "0"}], ",", " ", RowBox[{"prob", "\[LessEqual]", "1"}], ",", " ", RowBox[{"prob", "=", RowBox[{"prob", "+", "0.1"}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"JJ", "=", "1"}], ",", RowBox[{"JJ", "\[LessEqual]", "100"}], ",", RowBox[{"JJ", "++"}], ",", StyleBox["\n", FontSize->14], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{ "FHN", " ", "equations", " ", "and", " ", "initial", " ", "conditions"}], " ", "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"fitzeqns", " ", "=", RowBox[{"Join", "[", StyleBox["\[IndentingNewLine]", FontSize->14], RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"v", "[", RowBox[{"1", ",", "1"}], "]"}], "'"}], "[", "t", "]"}], "==", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"A", "*", RowBox[{ RowBox[{"v", "[", RowBox[{"1", ",", "1"}], "]"}], "[", "t", "]"}], "*", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"v", "[", RowBox[{"1", ",", "1"}], "]"}], "[", "t", "]"}], "-", "\[Alpha]"}], ")"}], "*", RowBox[{"(", RowBox[{"1", "-", RowBox[{ RowBox[{"v", "[", RowBox[{"1", ",", "1"}], "]"}], "[", "t", "]"}]}], ")"}]}], "-", RowBox[{ RowBox[{"w", "[", RowBox[{"1", ",", "1"}], "]"}], "[", "t", "]"}], "-", "w0"}], ")"}], "/", "\[Epsilon]"}], ")"}], "\[IndentingNewLine]", "+", RowBox[{"K", "*", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"v", "[", RowBox[{"1", ",", "2"}], "]"}], "[", "t", "]"}], "-", RowBox[{ RowBox[{"v", "[", RowBox[{"1", ",", "1"}], "]"}], "[", "t", "]"}]}], ")"}]}], "\[IndentingNewLine]", "+", RowBox[{"K", "*", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"v", "[", RowBox[{"2", ",", "1"}], "]"}], "[", "t", "]"}], "-", RowBox[{ RowBox[{"v", "[", RowBox[{"1", ",", "1"}], "]"}], "[", "t", "]"}]}], ")"}]}], "\[IndentingNewLine]", "+", RowBox[{"K", "*", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"v", "[", RowBox[{"1", ",", "m"}], "]"}], "[", "t", "]"}], "-", RowBox[{ RowBox[{"v", "[", RowBox[{"1", ",", "1"}], "]"}], "[", "t", "]"}]}], ")"}]}], "\[IndentingNewLine]", "+", RowBox[{"K", "*", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"v", "[", RowBox[{"n", ",", "1"}], "]"}], "[", "t", "]"}], "-", RowBox[{ RowBox[{"v", "[", RowBox[{"1", ",", "1"}], "]"}], "[", "t", "]"}]}], ")"}]}]}]}], "}"}], ",", "\n", "\n", "\t\t\t", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"v", "[", RowBox[{"1", ",", "i"}], "]"}], "'"}], "[", "t", "]"}], "==", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"A", "*", RowBox[{ RowBox[{"v", "[", RowBox[{"1", ",", "i"}], "]"}], "[", "t", "]"}], "*", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"v", "[", RowBox[{"1", ",", "i"}], "]"}], "[", "t", "]"}], "-", "\[Alpha]"}], ")"}], "*", RowBox[{"(", RowBox[{"1", "-", RowBox[{ RowBox[{"v", "[", RowBox[{"1", ",", "i"}], "]"}], "[", "t", "]"}]}], ")"}]}], "-", RowBox[{ RowBox[{"w", "[", RowBox[{"1", ",", "i"}], "]"}], "[", "t", "]"}], "-", "w0"}], ")"}], "/", "\[Epsilon]"}], ")"}], "\[IndentingNewLine]", "+", RowBox[{"K", "*", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"v", "[", RowBox[{"1", ",", RowBox[{"i", "-", "1"}]}], "]"}], "[", "t", "]"}], "-", RowBox[{ RowBox[{"v", "[", RowBox[{"1", ",", "i"}], "]"}], "[", "t", "]"}]}], ")"}]}], "\[IndentingNewLine]", "+", RowBox[{"K", "*", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"v", "[", RowBox[{"2", ",", "i"}], "]"}], "[", "t", "]"}], "-", RowBox[{ RowBox[{"v", "[", RowBox[{"1", ",", "i"}], "]"}], "[", "t", "]"}]}], ")"}]}], "\[IndentingNewLine]", "+", RowBox[{"K", "*", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"v", "[", RowBox[{"1", ",", RowBox[{"i", "+", "1"}]}], "]"}], "[", "t", "]"}], "-", RowBox[{ RowBox[{"v", "[", RowBox[{"1", ",", "i"}], "]"}], "[", "t", "]"}]}], ")"}]}], "\[IndentingNewLine]", "+", RowBox[{"K", "*", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"v", "[", RowBox[{"n", ",", "i"}], "]"}], "[", "t", "]"}], "-", RowBox[{ RowBox[{"v", "[", RowBox[{"1", ",", "i"}], "]"}], "[", "t", "]"}]}], ")"}]}]}]}], ",", RowBox[{"{", RowBox[{"i", ",", "2", ",", RowBox[{"m", "-", "1"}]}], "}"}]}], "]"}], ",", "\n", "\t\t\t", "\n", "\t\t\t", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"v", "[", RowBox[{"1", ",", "m"}], "]"}], "'"}], "[", "t", "]"}], "==", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"A", "*", RowBox[{ RowBox[{"v", "[", RowBox[{"1", ",", "m"}], "]"}], "[", "t", "]"}], "*", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"v", "[", RowBox[{"1", ",", "m"}], "]"}], "[", "t", "]"}], "-", "\[Alpha]"}], ")"}], "*", RowBox[{"(", RowBox[{"1", "-", RowBox[{ RowBox[{"v", "[", RowBox[{"1", ",", "m"}], "]"}], "[", "t", "]"}]}], ")"}]}], "-", RowBox[{ RowBox[{"w", "[", RowBox[{"1", ",", "m"}], "]"}], "[", "t", "]"}], "-", "w0"}], ")"}], "/", "\[Epsilon]"}], ")"}], "\[IndentingNewLine]", "+", RowBox[{"K", "*", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"v", "[", RowBox[{"1", ",", RowBox[{"m", "-", "1"}]}], "]"}], "[", "t", "]"}], "-", RowBox[{ RowBox[{"v", "[", RowBox[{"1", ",", "m"}], "]"}], "[", "t", "]"}]}], ")"}]}], "\[IndentingNewLine]", "+", RowBox[{"K", "*", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"v", "[", RowBox[{"2", ",", "m"}], "]"}], "[", "t", "]"}], "-", RowBox[{ RowBox[{"v", "[", RowBox[{"1", ",", "m"}], "]"}], "[", "t", "]"}]}], ")"}]}], "\[IndentingNewLine]", "+", RowBox[{"K", "*", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"v", "[", RowBox[{"1", ",", "1"}], "]"}], "[", "t", "]"}], "-", RowBox[{ RowBox[{"v", "[", RowBox[{"1", ",", "m"}], "]"}], "[", "t", "]"}]}], ")"}]}], "\[IndentingNewLine]", "+", RowBox[{"K", "*", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"v", "[", RowBox[{"n", ",", "m"}], "]"}], "[", "t", "]"}], "-", RowBox[{ RowBox[{"v", "[", RowBox[{"1", ",", "m"}], "]"}], "[", "t", "]"}]}], ")"}]}]}]}], "}"}], ",", "\n", "\n", "\t\t\t", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"v", "[", RowBox[{"i", ",", "1"}], "]"}], "'"}], "[", "t", "]"}], "==", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"A", "*", RowBox[{ RowBox[{"v", "[", RowBox[{"i", ",", "1"}], "]"}], "[", "t", "]"}], "*", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"v", "[", RowBox[{"i", ",", "1"}], "]"}], "[", "t", "]"}], "-", "\[Alpha]"}], ")"}], "*", RowBox[{"(", RowBox[{"1", "-", RowBox[{ RowBox[{"v", "[", RowBox[{"i", ",", "1"}], "]"}], "[", "t", "]"}]}], ")"}]}], "-", RowBox[{ RowBox[{"w", "[", RowBox[{"i", ",", "1"}], "]"}], "[", "t", "]"}], "-", "w0"}], ")"}], "/", "\[Epsilon]"}], ")"}], "\[IndentingNewLine]", "+", RowBox[{"K", "*", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"v", "[", RowBox[{ RowBox[{"i", "-", "1"}], ",", "1"}], "]"}], "[", "t", "]"}], "-", RowBox[{ RowBox[{"v", "[", RowBox[{"i", ",", "1"}], "]"}], "[", "t", "]"}]}], ")"}]}], "\[IndentingNewLine]", "+", RowBox[{"K", "*", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"v", "[", RowBox[{"i", ",", "2"}], "]"}], "[", "t", "]"}], "-", RowBox[{ RowBox[{"v", "[", RowBox[{"i", ",", "1"}], "]"}], "[", "t", "]"}]}], ")"}]}], "\[IndentingNewLine]", "+", RowBox[{"K", "*", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"v", "[", RowBox[{ RowBox[{"i", "+", "1"}], ",", "1"}], "]"}], "[", "t", "]"}], "-", RowBox[{ RowBox[{"v", "[", RowBox[{"i", ",", "1"}], "]"}], "[", "t", "]"}]}], ")"}]}], "\[IndentingNewLine]", "+", RowBox[{"K", "*", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"v", "[", RowBox[{"i", ",", "m"}], "]"}], "[", "t", "]"}], "-", RowBox[{ RowBox[{"v", "[", RowBox[{"i", ",", "1"}], "]"}], "[", "t", "]"}]}], ")"}]}]}]}], ",", RowBox[{"{", RowBox[{"i", ",", "2", ",", RowBox[{"n", "-", "1"}]}], "}"}]}], "]"}], ",", "\n", "\n", "\t\t\t", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"v", "[", RowBox[{"i", ",", "m"}], "]"}], "'"}], "[", "t", "]"}], "==", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"A", "*", RowBox[{ RowBox[{"v", "[", RowBox[{"i", ",", "m"}], "]"}], "[", "t", "]"}], "*", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"v", "[", RowBox[{"i", ",", "m"}], "]"}], "[", "t", "]"}], "-", "\[Alpha]"}], ")"}], "*", RowBox[{"(", RowBox[{"1", "-", RowBox[{ RowBox[{"v", "[", RowBox[{"i", ",", "m"}], "]"}], "[", "t", "]"}]}], ")"}]}], "-", RowBox[{ RowBox[{"w", "[", RowBox[{"i", ",", "m"}], "]"}], "[", "t", "]"}], "-", "w0"}], ")"}], "/", "\[Epsilon]"}], ")"}], "\[IndentingNewLine]", "+", RowBox[{"K", "*", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"v", "[", RowBox[{ RowBox[{"i", "-", "1"}], ",", "m"}], "]"}], "[", "t", "]"}], "-", RowBox[{ RowBox[{"v", "[", RowBox[{"i", ",", "m"}], "]"}], "[", "t", "]"}]}], ")"}]}], "\[IndentingNewLine]", "+", RowBox[{"K", "*", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"v", "[", RowBox[{"i", ",", RowBox[{"m", "-", "1"}]}], "]"}], "[", "t", "]"}], "-", RowBox[{ RowBox[{"v", "[", RowBox[{"i", ",", "m"}], "]"}], "[", "t", "]"}]}], ")"}]}], "\[IndentingNewLine]", "+", RowBox[{"K", "*", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"v", "[", RowBox[{ RowBox[{"i", "+", "1"}], ",", "m"}], "]"}], "[", "t", "]"}], "-", RowBox[{ RowBox[{"v", "[", RowBox[{"i", ",", "m"}], "]"}], "[", "t", "]"}]}], ")"}]}], "\[IndentingNewLine]", "+", RowBox[{"K", "*", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"v", "[", RowBox[{"i", ",", "1"}], "]"}], "[", "t", "]"}], "-", RowBox[{ RowBox[{"v", "[", RowBox[{"i", ",", "m"}], "]"}], "[", "t", "]"}]}], ")"}]}]}]}], ",", RowBox[{"{", RowBox[{"i", ",", "2", ",", RowBox[{"n", "-", "1"}]}], "}"}]}], "]"}], ",", "\n", "\n", "\t\t\t", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"v", "[", RowBox[{"n", ",", "1"}], "]"}], "'"}], "[", "t", "]"}], "==", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"A", "*", RowBox[{ RowBox[{"v", "[", RowBox[{"n", ",", "1"}], "]"}], "[", "t", "]"}], "*", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"v", "[", RowBox[{"n", ",", "1"}], "]"}], "[", "t", "]"}], "-", "\[Alpha]"}], ")"}], "*", RowBox[{"(", RowBox[{"1", "-", RowBox[{ RowBox[{"v", "[", RowBox[{"n", ",", "1"}], "]"}], "[", "t", "]"}]}], ")"}]}], "-", RowBox[{ RowBox[{"w", "[", RowBox[{"n", ",", "1"}], "]"}], "[", "t", "]"}], "-", "w0"}], ")"}], "/", "\[Epsilon]"}], ")"}], "\[IndentingNewLine]", "+", RowBox[{"K", "*", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"v", "[", RowBox[{"n", ",", "2"}], "]"}], "[", "t", "]"}], "-", RowBox[{ RowBox[{"v", "[", RowBox[{"n", ",", "1"}], "]"}], "[", "t", "]"}]}], ")"}]}], "\[IndentingNewLine]", "+", RowBox[{"K", "*", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"v", "[", RowBox[{ RowBox[{"n", "-", "1"}], ",", "1"}], "]"}], "[", "t", "]"}], "-", RowBox[{ RowBox[{"v", "[", RowBox[{"n", ",", "1"}], "]"}], "[", "t", "]"}]}], ")"}]}], "\[IndentingNewLine]", "+", RowBox[{"K", "*", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"v", "[", RowBox[{"1", ",", "1"}], "]"}], "[", "t", "]"}], "-", RowBox[{ RowBox[{"v", "[", RowBox[{"n", ",", "1"}], "]"}], "[", "t", "]"}]}], ")"}]}], "\[IndentingNewLine]", "+", RowBox[{"K", "*", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"v", "[", RowBox[{"n", ",", "m"}], "]"}], "[", "t", "]"}], "-", RowBox[{ RowBox[{"v", "[", RowBox[{"n", ",", "1"}], "]"}], "[", "t", "]"}]}], ")"}]}]}]}], "}"}], ",", "\n", "\n", "\t\t\t", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"v", "[", RowBox[{"n", ",", "i"}], "]"}], "'"}], "[", "t", "]"}], "==", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"A", "*", RowBox[{ RowBox[{"v", "[", RowBox[{"n", ",", "i"}], "]"}], "[", "t", "]"}], "*", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"v", "[", RowBox[{"n", ",", "i"}], "]"}], "[", "t", "]"}], "-", "\[Alpha]"}], ")"}], "*", RowBox[{"(", RowBox[{"1", "-", RowBox[{ RowBox[{"v", "[", RowBox[{"n", ",", "i"}], "]"}], "[", "t", "]"}]}], ")"}]}], "-", RowBox[{ RowBox[{"w", "[", RowBox[{"n", ",", "i"}], "]"}], "[", "t", "]"}], "-", "w0"}], ")"}], "/", "\[Epsilon]"}], ")"}], "\[IndentingNewLine]", "+", RowBox[{"K", "*", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"v", "[", RowBox[{"n", ",", RowBox[{"i", "-", "1"}]}], "]"}], "[", "t", "]"}], "-", RowBox[{ RowBox[{"v", "[", RowBox[{"n", ",", "i"}], "]"}], "[", "t", "]"}]}], ")"}]}], "\[IndentingNewLine]", "+", RowBox[{"K", "*", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"v", "[", RowBox[{ RowBox[{"n", "-", "1"}], ",", "i"}], "]"}], "[", "t", "]"}], "-", RowBox[{ RowBox[{"v", "[", RowBox[{"n", ",", "i"}], "]"}], "[", "t", "]"}]}], ")"}]}], "\[IndentingNewLine]", "+", RowBox[{"K", "*", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"v", "[", RowBox[{"n", ",", RowBox[{"i", "+", "1"}]}], "]"}], "[", "t", "]"}], "-", RowBox[{ RowBox[{"v", "[", RowBox[{"n", ",", "i"}], "]"}], "[", "t", "]"}]}], ")"}]}], "\[IndentingNewLine]", "+", RowBox[{"K", "*", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"v", "[", RowBox[{"1", ",", "i"}], "]"}], "[", "t", "]"}], "-", RowBox[{ RowBox[{"v", "[", RowBox[{"n", ",", "i"}], "]"}], "[", "t", "]"}]}], ")"}]}]}]}], ",", RowBox[{"{", RowBox[{"i", ",", "2", ",", RowBox[{"m", "-", "1"}]}], "}"}]}], "]"}], ",", "\n", "\n", "\t\t\t", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"v", "[", RowBox[{"n", ",", "m"}], "]"}], "'"}], "[", "t", "]"}], "==", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"A", "*", RowBox[{ RowBox[{"v", "[", RowBox[{"n", ",", "m"}], "]"}], "[", "t", "]"}], "*", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"v", "[", RowBox[{"n", ",", "m"}], "]"}], "[", "t", "]"}], "-", "\[Alpha]"}], ")"}], "*", RowBox[{"(", RowBox[{"1", "-", RowBox[{ RowBox[{"v", "[", RowBox[{"n", ",", "m"}], "]"}], "[", "t", "]"}]}], ")"}]}], "-", RowBox[{ RowBox[{"w", "[", RowBox[{"n", ",", "m"}], "]"}], "[", "t", "]"}], "-", "w0"}], ")"}], "/", "\[Epsilon]"}], ")"}], "\[IndentingNewLine]", "+", RowBox[{"K", "*", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"v", "[", RowBox[{"n", ",", RowBox[{"m", "-", "1"}]}], "]"}], "[", "t", "]"}], "-", RowBox[{ RowBox[{"v", "[", RowBox[{"n", ",", "m"}], "]"}], "[", "t", "]"}]}], ")"}]}], "\[IndentingNewLine]", "+", RowBox[{"K", "*", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"v", "[", RowBox[{ RowBox[{"n", "-", "1"}], ",", "m"}], "]"}], "[", "t", "]"}], "-", RowBox[{ RowBox[{"v", "[", RowBox[{"n", ",", "m"}], "]"}], "[", "t", "]"}]}], ")"}]}], "\[IndentingNewLine]", "+", RowBox[{"K", "*", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"v", "[", RowBox[{"n", ",", "1"}], "]"}], "[", "t", "]"}], "-", RowBox[{ RowBox[{"v", "[", RowBox[{"n", ",", "m"}], "]"}], "[", "t", "]"}]}], ")"}]}], "\[IndentingNewLine]", "+", RowBox[{"K", "*", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"v", "[", RowBox[{"1", ",", "m"}], "]"}], "[", "t", "]"}], "-", RowBox[{ RowBox[{"v", "[", RowBox[{"n", ",", "m"}], "]"}], "[", "t", "]"}]}], ")"}]}]}]}], "}"}], ",", "\n", "\[IndentingNewLine]", RowBox[{"Flatten", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"v", "[", RowBox[{"i", ",", "j"}], "]"}], "'"}], "[", "t", "]"}], "==", " ", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"A", "*", RowBox[{ RowBox[{"v", "[", RowBox[{"i", ",", "j"}], "]"}], "[", "t", "]"}], "*", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"v", "[", RowBox[{"i", ",", "j"}], "]"}], "[", "t", "]"}], "-", "\[Alpha]"}], ")"}], "*", RowBox[{"(", RowBox[{"1", "-", RowBox[{ RowBox[{"v", "[", RowBox[{"i", ",", "j"}], "]"}], "[", "t", "]"}]}], ")"}]}], "-", RowBox[{ RowBox[{"w", "[", RowBox[{"i", ",", "j"}], "]"}], "[", "t", "]"}], "-", "w0"}], ")"}], "/", "\[Epsilon]"}], ")"}], "\[IndentingNewLine]", "+", RowBox[{"K", "*", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"v", "[", RowBox[{ RowBox[{"i", "-", "1"}], ",", "j"}], "]"}], "[", "t", "]"}], "-", RowBox[{ RowBox[{"v", "[", RowBox[{"i", ",", "j"}], "]"}], "[", "t", "]"}]}], ")"}]}], "\[IndentingNewLine]", "+", RowBox[{"K", "*", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"v", "[", RowBox[{"i", ",", RowBox[{"j", "-", "1"}]}], "]"}], "[", "t", "]"}], "-", RowBox[{ RowBox[{"v", "[", RowBox[{"i", ",", "j"}], "]"}], "[", "t", "]"}]}], ")"}]}], "\[IndentingNewLine]", "+", RowBox[{"K", "*", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"v", "[", RowBox[{ RowBox[{"i", "+", "1"}], ",", "j"}], "]"}], "[", "t", "]"}], "-", RowBox[{ RowBox[{"v", "[", RowBox[{"i", ",", "j"}], "]"}], "[", "t", "]"}]}], ")"}]}], "\[IndentingNewLine]", "+", RowBox[{"K", "*", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"v", "[", RowBox[{"i", ",", RowBox[{"j", "+", "1"}]}], "]"}], "[", "t", "]"}], "-", RowBox[{ RowBox[{"v", "[", RowBox[{"i", ",", "j"}], "]"}], "[", "t", "]"}]}], ")"}]}]}]}], ",", RowBox[{"{", RowBox[{"i", ",", "2", ",", RowBox[{"n", "-", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "2", ",", RowBox[{"m", "-", "1"}]}], "}"}]}], "]"}], "]"}], ",", "\n", "\n", "\t\t\t", RowBox[{"Flatten", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"w", "[", RowBox[{"i", ",", "j"}], "]"}], "'"}], "[", "t", "]"}], "==", RowBox[{ RowBox[{ RowBox[{"v", "[", RowBox[{"i", ",", "j"}], "]"}], "[", "t", "]"}], "-", RowBox[{"\[Gamma]", "*", RowBox[{ RowBox[{"w", "[", RowBox[{"i", ",", "j"}], "]"}], "[", "t", "]"}]}], "-", "v0"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "m"}], "}"}]}], "]"}], "]"}], ",", "\n", "\n", "\t\t\t", RowBox[{"Flatten", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"v", "[", RowBox[{"i", ",", "j"}], "]"}], "[", "0", "]"}], "==", RowBox[{"Evaluate", "[", RowBox[{"initial", "[", RowBox[{"[", RowBox[{"1", ",", "1", ",", "2"}], "]"}], "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "kickleftN"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "m"}], "}"}]}], "]"}], "]"}], ",", "\n", "\t\t\t", RowBox[{"Flatten", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"v", "[", RowBox[{"i", ",", "j"}], "]"}], "[", "0", "]"}], "==", RowBox[{"Evaluate", "[", RowBox[{"initial", "[", RowBox[{"[", RowBox[{"1", ",", "1", ",", "2"}], "]"}], "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "kickrightN", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "m"}], "}"}]}], "]"}], "]"}], ",", "\n", "\t\t\t", RowBox[{"Flatten", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"v", "[", RowBox[{"kickcellN", ",", "j"}], "]"}], "[", "0", "]"}], "==", RowBox[{"Evaluate", "[", RowBox[{"initial", "[", RowBox[{"[", RowBox[{"1", ",", "1", ",", "2"}], "]"}], "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "kickleftM"}], "}"}]}], "]"}], "]"}], ",", "\n", "\t\t\t", RowBox[{"Flatten", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"v", "[", RowBox[{"kickcellN", ",", "j"}], "]"}], "[", "0", "]"}], "==", RowBox[{"Evaluate", "[", RowBox[{"initial", "[", RowBox[{"[", RowBox[{"1", ",", "1", ",", "2"}], "]"}], "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"j", ",", "kickrightM", ",", "m"}], "}"}]}], "]"}], "]"}], ",", "\n", "\t\t\t", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"v", "[", RowBox[{"kickcellN", ",", "kickcellM"}], "]"}], "[", "0", "]"}], "==", RowBox[{"kick", "+", RowBox[{"Evaluate", "[", RowBox[{"initial", "[", RowBox[{"[", RowBox[{"1", ",", "1", ",", "2"}], "]"}], "]"}], "]"}]}]}], "}"}], ",", "\n", "\t\t\t", RowBox[{"Flatten", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"w", "[", RowBox[{"i", ",", "j"}], "]"}], "[", "0", "]"}], "==", RowBox[{"Evaluate", "[", RowBox[{"initial", "[", RowBox[{"[", RowBox[{"1", ",", "2", ",", "2"}], "]"}], "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "m"}], "}"}]}], "]"}], "]"}]}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"fitzsoln", " ", "=", " ", RowBox[{"NDSolve", "[", RowBox[{"fitzeqns", ",", "\n", "\n", "\t\t\t", RowBox[{"Join", "[", RowBox[{ RowBox[{"Flatten", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{"v", "[", RowBox[{"i", ",", "j"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "m"}], "}"}]}], "]"}], "]"}], ",", RowBox[{"Flatten", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{"w", "[", RowBox[{"i", ",", "j"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "m"}], "}"}]}], "]"}], "]"}]}], "]"}], ",", "\[IndentingNewLine]", "\n", "\t\t\t", RowBox[{"{", RowBox[{"t", ",", "0", ",", "T"}], "}"}], ",", " ", RowBox[{"MaxSteps", "->", "100000"}]}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{ RowBox[{ "Calculating", " ", "the", " ", "number", " ", "of", " ", "excited", " ", "cells", " ", "in", " ", "the", " ", "lattice"}], ",", " ", RowBox[{ "defined", " ", "by", " ", "the", " ", "trajectory", " ", "of", " ", "the", " ", "FHN", " ", "solution"}]}], " ", "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"clustersize", "[", RowBox[{"[", "JJ", "]"}], "]"}], "=", RowBox[{"Sum", "[", RowBox[{ RowBox[{"Boole", "[", RowBox[{"0", "<", RowBox[{ RowBox[{"Max", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"w", "[", RowBox[{"i", ",", "j"}], "]"}], "[", "t", "]"}], "/.", RowBox[{"fitzsoln", "[", RowBox[{"[", "1", "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", "T", ",", "stp"}], "}"}]}], "]"}], "]"}], "-", "localmax"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "m"}], "}"}]}], "]"}]}]}]}], "]"}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"cluster", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"clustersize", "[", RowBox[{"[", "JJ", "]"}], "]"}], ",", RowBox[{"{", RowBox[{"JJ", ",", "1", ",", "1", ",", "1"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{ "Export", " ", "the", " ", "number", " ", "of", " ", "connected", " ", "cells", " ", "from", " ", "each", " ", "iteration"}], " ", "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"Export", "[", RowBox[{ RowBox[{"\"\\"", "<>", RowBox[{"ToString", "[", "kick", "]"}], "<>", "\"\<_Prob_\>\"", "<>", RowBox[{"ToString", "[", "prob", "]"}], "<>", "\"\<.xls\>\""}], ",", "cluster"}], "]"}]}]}], "]"}]}], "]"}], ",", "JJ"}], "]"}], ",", "prob"}], "]"}], ",", "kick"}], "]"}]}]}]], "Input", CellChangeTimes->{{3.532606864785928*^9, 3.532606882168932*^9}, { 3.5326120717791023`*^9, 3.53261208989428*^9}, {3.532612183753501*^9, 3.5326122148930893`*^9}, {3.532612261523888*^9, 3.532612322791523*^9}, { 3.5326137218490543`*^9, 3.53261378719409*^9}, {3.532615615934325*^9, 3.5326156202040043`*^9}, {3.5326157883747797`*^9, 3.532615850763818*^9}, { 3.532682692725692*^9, 3.5326829782490597`*^9}, {3.532683090143605*^9, 3.532683100232452*^9}, {3.532683424818034*^9, 3.5326834263293247`*^9}, { 3.532683486398925*^9, 3.5326834868677073`*^9}, {3.532683652450959*^9, 3.532683672997684*^9}, {3.532683793370749*^9, 3.53268379393113*^9}, { 3.532683851097702*^9, 3.532683883616993*^9}, {3.532684355907588*^9, 3.532684389700838*^9}, {3.532684429926792*^9, 3.532684445466216*^9}, { 3.53268457750484*^9, 3.532684789324682*^9}, {3.53268482962416*^9, 3.532684845351305*^9}, {3.5326849023198833`*^9, 3.532684911398129*^9}, { 3.5326850541130257`*^9, 3.532685201271964*^9}, {3.532685666583823*^9, 3.532685688248933*^9}, {3.532685786469277*^9, 3.532685804724216*^9}, { 3.532685857817605*^9, 3.532685941162455*^9}, {3.53276078349255*^9, 3.532760793004826*^9}, {3.532769172068709*^9, 3.532769193054927*^9}, { 3.5327692287037907`*^9, 3.532769295044729*^9}, {3.532769374135459*^9, 3.532769428074271*^9}, {3.532769534021637*^9, 3.532769551773013*^9}, { 3.5327699111274223`*^9, 3.532769998176772*^9}, 3.532770046551955*^9, { 3.5327700838524837`*^9, 3.532770093704132*^9}, {3.532770174617778*^9, 3.5327702594120626`*^9}, {3.532770295710794*^9, 3.5327703164755383`*^9}, { 3.5327704534495487`*^9, 3.532770456234541*^9}, {3.532844336952189*^9, 3.5328443471468687`*^9}, {3.532845297633594*^9, 3.532845299360591*^9}, { 3.532845728389729*^9, 3.532845729513698*^9}, {3.532847071964898*^9, 3.532847074794471*^9}, {3.532847425965845*^9, 3.532847437878367*^9}, { 3.532847671003903*^9, 3.532847671179577*^9}, {3.532847731677341*^9, 3.5328477318859377`*^9}, {3.5328484082400713`*^9, 3.532848414625639*^9}, { 3.532850571663954*^9, 3.5328506065522213`*^9}, {3.532850686263096*^9, 3.532850687037674*^9}, {3.53483868662658*^9, 3.534838712230386*^9}, { 3.53484173175797*^9, 3.534841736112151*^9}, {3.5348418752426577`*^9, 3.534842061868259*^9}, {3.5348421184094954`*^9, 3.534842347148363*^9}, { 3.534843068806739*^9, 3.534843071373981*^9}, {3.534843138227895*^9, 3.5348431461707563`*^9}, {3.534843327748958*^9, 3.5348433279253883`*^9}, { 3.534843411278064*^9, 3.534843431459527*^9}, {3.534843486323204*^9, 3.534843501149116*^9}, 3.5348448949283867`*^9, {3.534846234932992*^9, 3.534846260797937*^9}, {3.5348464793888483`*^9, 3.534846867324185*^9}, { 3.534846972769693*^9, 3.534846987829253*^9}, {3.534847035109365*^9, 3.534847061410451*^9}, {3.535543093219618*^9, 3.535543111996092*^9}, 3.535543251399661*^9, {3.535543366158592*^9, 3.535543367093252*^9}, { 3.535543661615468*^9, 3.535543689690281*^9}, {3.535543836626871*^9, 3.5355438376309958`*^9}, {3.5355445379877243`*^9, 3.535544541831149*^9}, { 3.536241422418518*^9, 3.536241460836588*^9}, {3.536241616738831*^9, 3.53624183841392*^9}, {3.536242048841227*^9, 3.536242119755302*^9}, { 3.5362422326132708`*^9, 3.5362422336023073`*^9}, {3.536242779553029*^9, 3.53624287095063*^9}, {3.5362429758809843`*^9, 3.5362430835185833`*^9}, { 3.536243372641409*^9, 3.536243378308578*^9}, {3.536251695588995*^9, 3.536251750931859*^9}, {3.5362520279970703`*^9, 3.536252035395845*^9}, { 3.536252170216642*^9, 3.5362522332204647`*^9}, {3.5362523628130493`*^9, 3.5362523949710608`*^9}, {3.536252581755929*^9, 3.536252581956904*^9}, { 3.536252800639579*^9, 3.536252838523755*^9}, {3.536252965662325*^9, 3.536252965818972*^9}, {3.536253093748168*^9, 3.536253152742661*^9}, { 3.5363084431511507`*^9, 3.536308480864346*^9}, {3.536308515038767*^9, 3.53630853367108*^9}, {3.536311036250738*^9, 3.5363110790622377`*^9}, { 3.5363111151972637`*^9, 3.53631111685885*^9}, {3.536311302158003*^9, 3.5363113111396523`*^9}, {3.536311519532618*^9, 3.536311520790102*^9}, { 3.53631195954189*^9, 3.536311966397149*^9}, {3.5363121641805058`*^9, 3.5363121645367393`*^9}, {3.5363123596597958`*^9, 3.536312362687736*^9}, { 3.5363124982070923`*^9, 3.5363124988396883`*^9}, {3.536312767833125*^9, 3.536312778580255*^9}, {3.536313803728924*^9, 3.536313804551959*^9}, { 3.536313878375802*^9, 3.5363139003214283`*^9}, {3.536314102572567*^9, 3.536314119628388*^9}, 3.536314151814311*^9, {3.5363144419558907`*^9, 3.536314460207127*^9}, {3.536314608631907*^9, 3.5363146096529093`*^9}, { 3.536578740428589*^9, 3.536578794475873*^9}, {3.536579202856476*^9, 3.5365792338729*^9}, {3.536579348857587*^9, 3.5365793517945967`*^9}, { 3.536579444507148*^9, 3.536579487060173*^9}, {3.536579982321886*^9, 3.5365800732814693`*^9}, {3.5365801238069143`*^9, 3.536580138296728*^9}, { 3.536580211003615*^9, 3.5365802474594507`*^9}, {3.53658033704347*^9, 3.5365803731915083`*^9}, {3.536580465152152*^9, 3.536580546564788*^9}, { 3.5365806402598886`*^9, 3.536580812418172*^9}, {3.536580872249102*^9, 3.536580920218329*^9}, {3.536581555172461*^9, 3.5365815689217873`*^9}, { 3.536581616226577*^9, 3.536581616807436*^9}, {3.536581648338614*^9, 3.536581709679296*^9}, {3.536581806230226*^9, 3.5365819580690403`*^9}, { 3.536582033556519*^9, 3.5365821667032337`*^9}, {3.5365829762051783`*^9, 3.536583063777096*^9}, {3.536583820437426*^9, 3.536583822797658*^9}, { 3.53658386272003*^9, 3.5365838629876738`*^9}, {3.536583961894421*^9, 3.536583962300262*^9}, {3.536583999219*^9, 3.536583999617824*^9}, { 3.536584234133642*^9, 3.536584234503765*^9}, {3.536584268138204*^9, 3.536584307302615*^9}, {3.5365843750797653`*^9, 3.536584381609662*^9}, { 3.536584571801281*^9, 3.5365846610712767`*^9}, 3.53658470635371*^9, { 3.536584739863494*^9, 3.536584758361651*^9}, {3.536584789871663*^9, 3.5365848207196503`*^9}, {3.536584864429389*^9, 3.536584872259412*^9}, { 3.536584973732284*^9, 3.536585017078877*^9}, {3.536585180596897*^9, 3.536585189227991*^9}, {3.5365852448551083`*^9, 3.53658524737794*^9}, { 3.536585295543872*^9, 3.536585345914833*^9}, {3.536585376778853*^9, 3.536585387320888*^9}, {3.536585443297854*^9, 3.5365854497557077`*^9}, { 3.536585488637251*^9, 3.536585489008321*^9}, {3.536585551860445*^9, 3.536585555461179*^9}, {3.536587233123438*^9, 3.536587239224224*^9}, { 3.536587292276573*^9, 3.536587405312882*^9}, {3.536587498810093*^9, 3.536587505349629*^9}, {3.536587892845229*^9, 3.536587893503488*^9}, { 3.536656692600088*^9, 3.536656692912733*^9}, {3.536657285703114*^9, 3.5366572961721897`*^9}, {3.536657364389876*^9, 3.536657365293353*^9}, { 3.53665749572023*^9, 3.536657501021501*^9}, {3.536658971553192*^9, 3.536658972328136*^9}, {3.5366615304753942`*^9, 3.5366615318401003`*^9}, { 3.536664836107407*^9, 3.536664846690257*^9}, {3.5366650513718576`*^9, 3.53666513583471*^9}, {3.536665513515723*^9, 3.536665544040567*^9}, { 3.536665746289983*^9, 3.536665748818185*^9}, {3.536666065701861*^9, 3.536666066168975*^9}, {3.536666341058337*^9, 3.5366663415240717`*^9}, { 3.536666629059801*^9, 3.53666663346134*^9}, {3.5366678920488586`*^9, 3.536667893787619*^9}, {3.536668662509074*^9, 3.536668680143776*^9}, { 3.53684233593452*^9, 3.536842337308271*^9}, {3.536842999832747*^9, 3.536843000340613*^9}, 3.536843086290498*^9, {3.536845741795575*^9, 3.5368457440811253`*^9}, {3.536846273333809*^9, 3.536846281471423*^9}, { 3.536925457571826*^9, 3.536925601943513*^9}, 3.536925699782469*^9, { 3.536925768050406*^9, 3.536925768665897*^9}, {3.5369259612865973`*^9, 3.536925967246896*^9}, {3.536934469563246*^9, 3.53693449229847*^9}, { 3.536995110217697*^9, 3.536995110651726*^9}, {3.536995374557434*^9, 3.536995383940194*^9}, {3.5369954536434402`*^9, 3.536995482625719*^9}, { 3.536996586976859*^9, 3.536996616926464*^9}, {3.536996659243349*^9, 3.536996666403837*^9}, {3.536996730168541*^9, 3.536996773472311*^9}, { 3.536996835912709*^9, 3.5369968608932343`*^9}, {3.536996920431782*^9, 3.536996933390024*^9}, {3.536996976090445*^9, 3.5369970858240337`*^9}, { 3.537003035289237*^9, 3.537003040713353*^9}, {3.537003092495742*^9, 3.537003117113302*^9}, {3.5370031588488007`*^9, 3.537003161506316*^9}, { 3.537003212340076*^9, 3.5370033320093946`*^9}, {3.537003403743532*^9, 3.5370034390551367`*^9}, {3.537003698115279*^9, 3.537003822100574*^9}, { 3.537003865825398*^9, 3.537003925161119*^9}, {3.537003970492025*^9, 3.537003986617445*^9}, {3.53700402972521*^9, 3.53700403249264*^9}, { 3.5370040680161037`*^9, 3.537004085957473*^9}, 3.537004164103647*^9, { 3.537004224312953*^9, 3.537004356681924*^9}, {3.53700451620492*^9, 3.537004519790703*^9}, {3.537004555137944*^9, 3.537004555454488*^9}, 3.53700464606034*^9, {3.5370046966653023`*^9, 3.537004697580366*^9}, { 3.5370053826427107`*^9, 3.537005389396596*^9}, {3.537005703504344*^9, 3.537005704206707*^9}, {3.537006023849761*^9, 3.537006024366371*^9}, { 3.537006351588276*^9, 3.537006352213231*^9}, {3.537006700295794*^9, 3.53700670943218*^9}, {3.537006873739184*^9, 3.537006876767666*^9}, { 3.537006993514879*^9, 3.537006996756686*^9}, 3.537007082268162*^9, { 3.5370072950934763`*^9, 3.537007310009777*^9}, {3.537007505439665*^9, 3.53700751294096*^9}, {3.5370076622880917`*^9, 3.537007662843211*^9}, { 3.53700816793058*^9, 3.53700820687078*^9}, {3.537008307389723*^9, 3.5370084671134987`*^9}, {3.537008595569394*^9, 3.537008603202497*^9}, { 3.53700878017548*^9, 3.5370087807683897`*^9}, {3.537008875168754*^9, 3.537008929702416*^9}, {3.537009010381345*^9, 3.537009059452262*^9}, { 3.5370091403279657`*^9, 3.5370092085145817`*^9}, {3.537009405466415*^9, 3.537009406376917*^9}, {3.537009773696063*^9, 3.53700977391004*^9}, { 3.537009946101865*^9, 3.537009946524858*^9}, {3.5370101019238997`*^9, 3.53701017165816*^9}, {3.537010383307703*^9, 3.537010385818906*^9}, { 3.537010473002355*^9, 3.537010600882744*^9}, {3.5370106315642548`*^9, 3.537010781682274*^9}, {3.53701105460518*^9, 3.5370110553642263`*^9}, 3.5370112108608303`*^9, 3.537011289922455*^9, 3.5370113947299633`*^9, 3.5370114773087873`*^9, 3.537011593682901*^9, {3.5370116706917553`*^9, 3.53701167188848*^9}, {3.5370118853215857`*^9, 3.537011886802759*^9}, { 3.5370119749365396`*^9, 3.537011975306656*^9}, {3.53701205023138*^9, 3.5370120505778933`*^9}, {3.537012155742978*^9, 3.5370121562482862`*^9}, { 3.537012254440979*^9, 3.537012254623496*^9}, {3.5370180074775877`*^9, 3.537018023729445*^9}, {3.537018222068013*^9, 3.537018258960266*^9}, 3.5370183570161*^9, {3.537018660468933*^9, 3.5370186969044*^9}, { 3.537018743729825*^9, 3.5370187597407913`*^9}, {3.5370188821777*^9, 3.5370188827242117`*^9}, {3.537018974300582*^9, 3.537018974836557*^9}, { 3.537019053820277*^9, 3.537019054362322*^9}, {3.537019151039456*^9, 3.5370191516421213`*^9}, {3.53701921104869*^9, 3.537019211474104*^9}, { 3.537019277390901*^9, 3.5370192778287888`*^9}, {3.537019394714287*^9, 3.537019395183753*^9}, {3.537019590557564*^9, 3.537019590957713*^9}, { 3.5370196581333313`*^9, 3.537019658325418*^9}, {3.537019713446814*^9, 3.537019713606732*^9}, {3.537019768866452*^9, 3.537019769306559*^9}, { 3.5370198138421497`*^9, 3.537019814044237*^9}, {3.5370198967727213`*^9, 3.537019899085993*^9}, {3.537020439177253*^9, 3.53702046201206*^9}, { 3.5370205336404943`*^9, 3.5370205376243153`*^9}, {3.537020629349224*^9, 3.537020639039344*^9}, {3.537020755184494*^9, 3.537020755717846*^9}, { 3.537021075645815*^9, 3.53702116892515*^9}, {3.537112055662101*^9, 3.537112057506659*^9}, {3.537525495984027*^9, 3.537525509454638*^9}, { 3.5375255821486273`*^9, 3.5375256182894297`*^9}, 3.5375259649123077`*^9, { 3.537526505215653*^9, 3.5375265339995213`*^9}, {3.537526641024365*^9, 3.537526641241992*^9}, {3.537526907809174*^9, 3.537526908298526*^9}, { 3.5375385192063847`*^9, 3.5375385569088087`*^9}, {3.5376013786318817`*^9, 3.537601383060347*^9}, {3.537602007543713*^9, 3.5376020148721237`*^9}, { 3.53763352209664*^9, 3.537633546261272*^9}, {3.537634214274472*^9, 3.537634215710865*^9}, {3.53763451459693*^9, 3.5376345156810713`*^9}, { 3.5376345516330547`*^9, 3.5376345658154*^9}, {3.537634614706703*^9, 3.537634614882284*^9}, {3.537634942686738*^9, 3.537634946311659*^9}, { 3.53763692799608*^9, 3.5376369291314297`*^9}, {3.5376375000657663`*^9, 3.5376376501289473`*^9}, {3.537637681037273*^9, 3.537637683721382*^9}, { 3.537638179001693*^9, 3.5376382175343924`*^9}, {3.5376382868266973`*^9, 3.5376383040560923`*^9}, {3.537638508463381*^9, 3.537638510669075*^9}, { 3.5376386005095463`*^9, 3.5376386758536043`*^9}, {3.537681230209497*^9, 3.537681283902409*^9}, {3.537683451458239*^9, 3.5376835100778646`*^9}, { 3.537683542528788*^9, 3.537683547184917*^9}, {3.537775040902906*^9, 3.53777507337353*^9}, {3.5377759343997927`*^9, 3.537775938498169*^9}, { 3.538120508810554*^9, 3.538120528769951*^9}, {3.538126724328848*^9, 3.5381267253455*^9}, {3.53812711319495*^9, 3.538127114379224*^9}, { 3.5384758744257183`*^9, 3.538475893324342*^9}, 3.540378819903249*^9, 3.5403789830337057`*^9, {3.540382110495472*^9, 3.5403822346462317`*^9}, { 3.5403825824384823`*^9, 3.540382643993623*^9}, {3.5403827475499277`*^9, 3.540382754075849*^9}, {3.5403838345700283`*^9, 3.540383843186613*^9}, { 3.540384656899314*^9, 3.540384663745204*^9}, {3.540388493806221*^9, 3.540388507312608*^9}, {3.540390537574602*^9, 3.540390542401016*^9}, 3.5403925291472197`*^9, {3.54039382319403*^9, 3.54039382373024*^9}, { 3.540400161139216*^9, 3.540400162361719*^9}, {3.540402491473936*^9, 3.540402494305128*^9}, {3.5404040415858507`*^9, 3.5404040592323523`*^9}, { 3.540404641763316*^9, 3.5404046424765778`*^9}, {3.540404975449855*^9, 3.540404975827155*^9}, {3.54040579340697*^9, 3.540405804068118*^9}, { 3.540405976563624*^9, 3.5404059784448767`*^9}, 3.540406112351431*^9, { 3.540406236208609*^9, 3.540406236435235*^9}, {3.5404064431530027`*^9, 3.540406446657372*^9}, {3.5404065687057543`*^9, 3.540406571976191*^9}, { 3.5404068334718733`*^9, 3.540406835426367*^9}, {3.540406960707121*^9, 3.540406961129279*^9}, {3.5404070386405153`*^9, 3.540407039136353*^9}, { 3.540407075811489*^9, 3.540407106923333*^9}, 3.5404071380989428`*^9, { 3.54040717403069*^9, 3.540407253289342*^9}, {3.5404491129597197`*^9, 3.540449117131935*^9}, {3.540449656174988*^9, 3.540449687381233*^9}, { 3.540449876601446*^9, 3.54044988782975*^9}, {3.540450371058668*^9, 3.540450371336205*^9}, {3.5404508517634497`*^9, 3.540450852528854*^9}, { 3.540451177096429*^9, 3.54045117743113*^9}, {3.5404512457296057`*^9, 3.540451261930766*^9}, {3.5404562192265167`*^9, 3.540456287083074*^9}, { 3.540460989229697*^9, 3.540460990555895*^9}, 3.540465215111041*^9, { 3.540474052462885*^9, 3.540474054658515*^9}, {3.5836596105030193`*^9, 3.583659639014853*^9}, {3.583660322195457*^9, 3.58366032283488*^9}, { 3.583661022444833*^9, 3.5836610501633368`*^9}, {3.583661241153503*^9, 3.583661253173471*^9}, {3.583661935716051*^9, 3.583662344057054*^9}, { 3.583662735140151*^9, 3.5836627423464746`*^9}, 3.5836640044499617`*^9, { 3.5836642917616997`*^9, 3.5836642960042477`*^9}, {3.583664344961866*^9, 3.583664346935779*^9}, {3.583664443108959*^9, 3.5836644465653057`*^9}, { 3.583664614570422*^9, 3.583664629843173*^9}, {3.583665184594462*^9, 3.583665187501651*^9}, {3.583665274527651*^9, 3.583665302827753*^9}, { 3.5836654521073427`*^9, 3.583665453495645*^9}, {3.583665509058762*^9, 3.583665512439021*^9}, {3.583665684281384*^9, 3.583665730182185*^9}, { 3.583665826531087*^9, 3.583665829960683*^9}, {3.583666207264202*^9, 3.583666308282412*^9}, {3.583666350333873*^9, 3.583666355943613*^9}, { 3.583666394801559*^9, 3.583666417070355*^9}, {3.5836666184525843`*^9, 3.583666628406446*^9}, {3.583666728983395*^9, 3.583666748766686*^9}, { 3.5836669122101917`*^9, 3.583666968701953*^9}, {3.583667045478593*^9, 3.58366706060555*^9}, {3.58366732950218*^9, 3.583667338174811*^9}, { 3.5836675017482443`*^9, 3.5836675072159986`*^9}, 3.583667556380075*^9, { 3.583667953123939*^9, 3.583667975622198*^9}, {3.583668025344462*^9, 3.583668048340946*^9}, {3.583668096709653*^9, 3.583668118614182*^9}, { 3.583668360774268*^9, 3.58366836419665*^9}, {3.583736134070408*^9, 3.583736220011578*^9}, {3.5837365918365993`*^9, 3.583736600433065*^9}, { 3.5837372322654963`*^9, 3.5837372327506723`*^9}, {3.583737312389865*^9, 3.58373738610857*^9}, {3.5837374239852467`*^9, 3.583737440102166*^9}, { 3.5837374934576607`*^9, 3.583737503657291*^9}, {3.583737616822407*^9, 3.583737617015534*^9}, {3.583737649485317*^9, 3.5837376519256077`*^9}, { 3.58373773530469*^9, 3.583737736279683*^9}, {3.6258118590735207`*^9, 3.625811859562573*^9}, {3.6312924910906677`*^9, 3.631292497811223*^9}, { 3.631292551948015*^9, 3.631292757491125*^9}, {3.6312936911019077`*^9, 3.6312937450856752`*^9}, 3.631293834241856*^9, {3.631293992022113*^9, 3.6312942778153048`*^9}}] }, WindowSize->{868, 693}, WindowMargins->{{0, Automatic}, {Automatic, 0}}, ShowSelection->True, FrontEndVersion->"10.0 for Mac OS X x86 (32-bit, 64-bit Kernel) (September 9, \ 2014)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[557, 20, 65223, 1361, 2409, "Input"] } ] *) (* End of internal cache information *)