(*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 0, 0] NotebookDataLength[ 106798, 2308] NotebookOptionsPosition[ 106244, 2283] NotebookOutlinePosition[ 106622, 2300] CellTagsIndexPosition[ 106579, 2297] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[BoxData[{ RowBox[{ RowBox[{"ClearAll", "[", "\"\\"", "]"}], ";"}], "\n", RowBox[{ RowBox[{ RowBox[{"Remove", "[", "\"\\"", "]"}], ";"}], " "}]}], "Input"], Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{"Parameter", " ", "values"}], " ", "*)"}]}]], "Input", CellChangeTimes->{{3.631816167269389*^9, 3.631816171094347*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"K", " ", "=", " ", "0.5"}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"A", " ", "=", " ", "3"}], ";"}], " "}], "\n", RowBox[{ RowBox[{"\[Epsilon]", " ", "=", " ", "0.2"}], ";"}], "\n", RowBox[{ RowBox[{ RowBox[{"\[Alpha]", " ", "=", " ", "3"}], ";"}], " ", RowBox[{"(*", " ", RowBox[{ "Changes", " ", "height", " ", "of", " ", "cubic", " ", "nullcline", " ", "peak"}], " ", "*)"}]}], "\n", RowBox[{ RowBox[{ RowBox[{"\[Gamma]", " ", "=", " ", "0.05"}], ";"}], " ", RowBox[{"(*", " ", RowBox[{ RowBox[{ RowBox[{"1", "/", "\[Gamma]"}], " ", "is", " ", "the", " ", "gradient", " ", "of", " ", "the", " ", "straight"}], "-", RowBox[{"line", " ", "nullcline"}]}], " ", "*)"}]}], "\n", RowBox[{ 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[{"n", " ", "=", " ", "25"}], ";"}], "\n", RowBox[{ RowBox[{ RowBox[{"m", " ", "=", " ", "25"}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"T", " ", "=", " ", "200"}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Gamma]pace", " ", "=", " ", "0.1"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"v0pace", " ", "=", " ", "0.7"}], ";"}], "\[IndentingNewLine]", "\n", RowBox[{"(*", " ", RowBox[{ RowBox[{"Intersection", " ", "of", " ", "non"}], "-", RowBox[{"pacemaker", " ", "nullclines"}]}], " ", "*)"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ 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[{ 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]", "\n", RowBox[{"(*", " ", RowBox[{"Defining", " ", "the", " ", "pacemaker", " ", "cell"}], " ", "*)"}], "\[IndentingNewLine]"}], "\n", RowBox[{ RowBox[{"kickleftN", " ", "=", " ", RowBox[{"Floor", "[", RowBox[{ RowBox[{"(", RowBox[{"n", "-", "1"}], ")"}], "/", "2"}], "]"}]}], ";"}], "\n", RowBox[{ RowBox[{ RowBox[{"kickrightN", " ", "=", " ", RowBox[{"Floor", "[", RowBox[{ RowBox[{"(", RowBox[{"n", "+", "3"}], ")"}], "/", "2"}], "]"}]}], ";"}], "\t"}], "\n", RowBox[{ 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[{ RowBox[{"kickrightM", " ", "=", " ", RowBox[{"Floor", "[", RowBox[{ RowBox[{"(", RowBox[{"m", "+", "3"}], ")"}], "/", "2"}], "]"}]}], ";"}], "\t"}], "\n", RowBox[{ RowBox[{ RowBox[{"kickcellM", " ", "=", " ", RowBox[{"Floor", "[", RowBox[{ RowBox[{"(", RowBox[{"m", "+", "1"}], ")"}], "/", "2"}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{"Initiating", " ", "variables"}], " ", "*)"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"CC", " ", "=", " ", RowBox[{"Table", "[", RowBox[{"i", ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "1"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"inactivecount", " ", "=", " ", RowBox[{"Table", "[", RowBox[{"i", ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "1"}], "}"}]}], "]"}]}], ";"}]}], "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.5348465004326973`*^9}, { 3.537630474623178*^9, 3.537630666530549*^9}, {3.5376307063269672`*^9, 3.5376307267729607`*^9}, {3.5376307669929934`*^9, 3.537630888395961*^9}, { 3.537630938805624*^9, 3.537630940114752*^9}, {3.53763098026544*^9, 3.537630984302267*^9}, {3.538120337845372*^9, 3.538120339712873*^9}, { 3.5381203754170713`*^9, 3.538120460802527*^9}, 3.538120499975071*^9, { 3.538120533267537*^9, 3.538120553146269*^9}, {3.5381205968974123`*^9, 3.53812063556221*^9}, {3.5381206731761293`*^9, 3.538120679573641*^9}, { 3.538126692362749*^9, 3.5381266978544683`*^9}, {3.538126747718544*^9, 3.538126883751924*^9}, {3.538126999484828*^9, 3.5381270907226048`*^9}, { 3.5381271633060207`*^9, 3.538127330463004*^9}, {3.538197911054138*^9, 3.538197911380657*^9}, {3.538209543643197*^9, 3.538209588782267*^9}, { 3.538212760347987*^9, 3.538212803612235*^9}, {3.53821585297188*^9, 3.538215866399321*^9}, {3.538216800952414*^9, 3.538216801371394*^9}, { 3.538217439153715*^9, 3.538217440518195*^9}, {3.538229859847953*^9, 3.538229880164544*^9}, {3.538287236041144*^9, 3.5382872462283792`*^9}, { 3.538298204358006*^9, 3.538298225593841*^9}, {3.53837544277357*^9, 3.538375454330882*^9}, {3.538388219396018*^9, 3.538388229657449*^9}, { 3.53846765766399*^9, 3.53846766404914*^9}, {3.538474612851554*^9, 3.538474633646576*^9}, {3.5384746823942633`*^9, 3.53847474456892*^9}, 3.538474783605525*^9, 3.538474824943138*^9, 3.538474988601432*^9, { 3.5384750325354633`*^9, 3.5384750466319313`*^9}, {3.538475421678732*^9, 3.538475435773162*^9}, {3.538475899878191*^9, 3.538475900940062*^9}, { 3.53867763147766*^9, 3.538677634913357*^9}, {3.538677684126116*^9, 3.53867770182693*^9}, {3.538679137707127*^9, 3.538679139607435*^9}, 3.5387233610872927`*^9, {3.538738462455194*^9, 3.5387385468818817`*^9}, { 3.538738585192383*^9, 3.538738655337925*^9}, {3.5387392980415707`*^9, 3.538739300507572*^9}, {3.538739349824559*^9, 3.538739349990919*^9}, { 3.5387482317661037`*^9, 3.538748234426935*^9}, {3.538814622819821*^9, 3.5388146406348124`*^9}, {3.538814675470208*^9, 3.5388148764774733`*^9}, { 3.538827989785778*^9, 3.538827990652678*^9}, {3.538851551350605*^9, 3.538851551703082*^9}, {3.5389113386706553`*^9, 3.538911338787636*^9}, { 3.538925890376957*^9, 3.538925986027272*^9}, {3.538998058577771*^9, 3.5389980591915617`*^9}, {3.538998111389963*^9, 3.538998194348056*^9}, { 3.53899825250804*^9, 3.538998313382351*^9}, {3.538999623252901*^9, 3.538999631040188*^9}, {3.5390711642162037`*^9, 3.539071175321067*^9}, { 3.5390758235178957`*^9, 3.539075824953673*^9}, {3.539080959892076*^9, 3.5390809674568996`*^9}, {3.5390810139120483`*^9, 3.5390810149301167`*^9}, {3.539238062886858*^9, 3.5392380994885902`*^9}, { 3.539239310235322*^9, 3.53923931445253*^9}, {3.5393314754931507`*^9, 3.5393315123313723`*^9}, 3.539331554030561*^9, {3.542016928567255*^9, 3.5420169808542423`*^9}, {3.5420170232680397`*^9, 3.542017033753131*^9}, { 3.542017439762351*^9, 3.542017443166464*^9}, {3.542017494575527*^9, 3.542017499335765*^9}, {3.542017584366378*^9, 3.542017590936756*^9}, { 3.5420177077420177`*^9, 3.542017711658813*^9}, {3.5420178108976097`*^9, 3.5420178171575003`*^9}, {3.542017885913797*^9, 3.542017888315339*^9}, { 3.5430535566420317`*^9, 3.543053672247675*^9}, {3.543081480819821*^9, 3.54308148208712*^9}, {3.543114994019388*^9, 3.543114994429138*^9}, { 3.543161868821003*^9, 3.543161870063583*^9}, {3.5432104986121492`*^9, 3.543210504842849*^9}, {3.543488615320879*^9, 3.543488624644906*^9}, { 3.543507057292161*^9, 3.543507057444282*^9}, {3.543637631965118*^9, 3.543637632900888*^9}, {3.543833841487005*^9, 3.543833850530611*^9}, { 3.544508520059523*^9, 3.544508711604801*^9}, {3.5446370827211533`*^9, 3.544637083092345*^9}, {3.544723202045258*^9, 3.5447232023276873`*^9}, { 3.5448412716945343`*^9, 3.544841272792016*^9}, {3.544879638855476*^9, 3.544879650096877*^9}, {3.544881043422696*^9, 3.544881047499053*^9}, { 3.545031240047674*^9, 3.54503125095853*^9}, {3.545031291762952*^9, 3.545031322642085*^9}, {3.5450472680096083`*^9, 3.545047374505567*^9}, { 3.545047668172763*^9, 3.545047790953741*^9}, {3.5450481522247543`*^9, 3.5450481556779737`*^9}, {3.545048241178499*^9, 3.545048370444646*^9}, { 3.545048605841061*^9, 3.5450486167986403`*^9}, {3.545048740914565*^9, 3.5450487423448067`*^9}, {3.545050516391433*^9, 3.5450505196176147`*^9}, { 3.545052026320458*^9, 3.545052079988549*^9}, {3.545052139121907*^9, 3.545052153212063*^9}, {3.5450522097497263`*^9, 3.54505223956376*^9}, { 3.545052374239431*^9, 3.545052377567051*^9}, {3.545052506940734*^9, 3.545052507091262*^9}, {3.545052554596664*^9, 3.545052841167931*^9}, 3.545052876644014*^9, {3.545052913598878*^9, 3.545052938090016*^9}, { 3.545122165574794*^9, 3.5451221663133917`*^9}, {3.5451221991793528`*^9, 3.545122225324033*^9}, {3.545122581714266*^9, 3.54512258198761*^9}, { 3.545122663742078*^9, 3.5451227876258707`*^9}, {3.545122876012947*^9, 3.5451229378922987`*^9}, {3.5451229726725388`*^9, 3.545122974073681*^9}, 3.545123010630979*^9, {3.545123085174919*^9, 3.54512311195529*^9}, { 3.545123152892541*^9, 3.545123174790856*^9}, {3.5451232101218033`*^9, 3.5451232770296917`*^9}, 3.545123332624929*^9, {3.545123741645026*^9, 3.545123751496132*^9}, {3.545123800106042*^9, 3.545123800843266*^9}, { 3.545123865240234*^9, 3.5451238655923767`*^9}, {3.5454626665974007`*^9, 3.545462667949727*^9}, {3.5454628010899353`*^9, 3.545462802342003*^9}, { 3.545462889776354*^9, 3.545462895588512*^9}, {3.5454629997868967`*^9, 3.545463000751992*^9}, {3.545463640924694*^9, 3.5454636535261793`*^9}, { 3.545463819627701*^9, 3.545463828299856*^9}, {3.545473484626236*^9, 3.545473491749729*^9}, {3.54547372052402*^9, 3.5454737218372*^9}, { 3.545474086557822*^9, 3.545474086743305*^9}, {3.5454741196919193`*^9, 3.545474290703418*^9}, {3.545474365085167*^9, 3.545474366449871*^9}, { 3.545490251556322*^9, 3.5454902524859343`*^9}, {3.545492700072008*^9, 3.545492700434403*^9}, {3.5454929941841087`*^9, 3.545493026306234*^9}, { 3.545495201964044*^9, 3.545495205727249*^9}, {3.546146877868734*^9, 3.5461468796248283`*^9}, {3.5461472424504747`*^9, 3.546147259293845*^9}, { 3.546147458680749*^9, 3.546147484082258*^9}, {3.546147608021915*^9, 3.546147610543744*^9}, {3.5461476672950907`*^9, 3.5461476693384333`*^9}, { 3.546147841668515*^9, 3.546147843956588*^9}, {3.546147874219287*^9, 3.546148039597095*^9}, {3.546148087720866*^9, 3.5461480911940947`*^9}, { 3.546148124866562*^9, 3.546148126504509*^9}, {3.5461482398107224`*^9, 3.546148242387385*^9}, {3.546148540114626*^9, 3.546148543276417*^9}, { 3.546668760928164*^9, 3.546668764424118*^9}, {3.546669512052483*^9, 3.546669541022675*^9}, {3.5466712558433533`*^9, 3.54667125875383*^9}, { 3.5466714025391273`*^9, 3.5466714065624657`*^9}, {3.546671513059057*^9, 3.546671515095067*^9}, {3.547304089225624*^9, 3.5473040895510397`*^9}, { 3.547310203552023*^9, 3.547310204748871*^9}, {3.547311293326499*^9, 3.547311293458221*^9}, {3.547312890105049*^9, 3.5473130488562527`*^9}, { 3.547313485069509*^9, 3.547313485665039*^9}, {3.547313613432856*^9, 3.547313621324587*^9}, {3.5473137797137833`*^9, 3.5473138093871202`*^9}, { 3.547314081846126*^9, 3.547314115056786*^9}, {3.54731421154393*^9, 3.547314217269116*^9}, {3.547314303941732*^9, 3.547314305510169*^9}, { 3.54731442728648*^9, 3.547314430139208*^9}, {3.5473145255006113`*^9, 3.5473145350999727`*^9}, 3.547314629170411*^9, 3.547363404544951*^9, { 3.547363501496183*^9, 3.5473635088038607`*^9}, {3.54736438182868*^9, 3.547364381979444*^9}, 3.547364922483244*^9, {3.547380446076119*^9, 3.547380447102962*^9}, {3.547381450215629*^9, 3.547381451292016*^9}, { 3.547447345591778*^9, 3.547447346464527*^9}, {3.547447426677321*^9, 3.5474474269915743`*^9}, {3.5483157051450777`*^9, 3.5483157450610647`*^9}, {3.548316631124442*^9, 3.548316691225037*^9}, { 3.548317020241542*^9, 3.548317049868689*^9}, {3.548317126755691*^9, 3.548317127529193*^9}, {3.548319744759282*^9, 3.548319745576025*^9}, { 3.548319887298848*^9, 3.548319918371714*^9}, {3.548320265580591*^9, 3.548320275923359*^9}, {3.548320682264624*^9, 3.5483206827898827`*^9}, { 3.5483240144711943`*^9, 3.5483240148278913`*^9}, {3.5483244144974403`*^9, 3.548324414678474*^9}, {3.548325332025222*^9, 3.548325332605482*^9}, { 3.548326264120399*^9, 3.548326265229031*^9}, {3.54832653596953*^9, 3.548326536482244*^9}, {3.54832680754838*^9, 3.5483268076928043`*^9}, { 3.548327463013484*^9, 3.5483274638190727`*^9}, {3.548327963900489*^9, 3.548327964059668*^9}, {3.548328265450787*^9, 3.548328265903112*^9}, { 3.548328547968974*^9, 3.5483285483589287`*^9}, {3.548934729052847*^9, 3.548934813474833*^9}, {3.548934885471649*^9, 3.5489348870727453`*^9}, { 3.548935238266487*^9, 3.548935240578473*^9}, {3.549005480844571*^9, 3.5490055192069483`*^9}, {3.54900568271317*^9, 3.549005693416362*^9}, { 3.549015694919142*^9, 3.549015957282652*^9}, {3.5490842739041643`*^9, 3.549084487380288*^9}, {3.549086479762768*^9, 3.5490864846451063`*^9}, { 3.549086538073299*^9, 3.549086552120661*^9}, {3.549086601477612*^9, 3.549086601947423*^9}, {3.549086675693739*^9, 3.549086683679178*^9}, { 3.549086723027467*^9, 3.549086738312587*^9}, {3.549086773935854*^9, 3.54908677699522*^9}, {3.549086873343348*^9, 3.549086875916338*^9}, { 3.549086907289509*^9, 3.549086987392048*^9}, 3.549087045969491*^9, { 3.5490870993154297`*^9, 3.5490871324964247`*^9}, {3.5490875961583967`*^9, 3.549087626360208*^9}, {3.5490876943676367`*^9, 3.5490877306939697`*^9}, { 3.549094868544755*^9, 3.549094869042508*^9}, {3.549098505759453*^9, 3.54909850652285*^9}, {3.54910811966604*^9, 3.5491081198075533`*^9}, { 3.549127048163628*^9, 3.549127049239231*^9}, {3.549131078842556*^9, 3.5491310789881287`*^9}, {3.549192363507556*^9, 3.549192364884562*^9}, { 3.5491924408475447`*^9, 3.5491924414673433`*^9}, {3.54919247602073*^9, 3.549192476618147*^9}, {3.54919927308635*^9, 3.5491993028672037`*^9}, { 3.549203010782364*^9, 3.549203011065723*^9}, {3.549337673966283*^9, 3.549337690420307*^9}, {3.5494248022980347`*^9, 3.5494248029015503`*^9}, { 3.549484401090905*^9, 3.549484401236581*^9}, {3.549528963435158*^9, 3.5495289662070427`*^9}, {3.5495658337782373`*^9, 3.549565834117873*^9}, { 3.549600751103323*^9, 3.5496007515990677`*^9}, {3.549650155609775*^9, 3.549650155911797*^9}, {3.549704625247312*^9, 3.5497046541353483`*^9}, { 3.5497047817953873`*^9, 3.5497048374319267`*^9}, {3.5497048702511873`*^9, 3.549704906890953*^9}, {3.5497059027997713`*^9, 3.549705940929625*^9}, { 3.549709743973343*^9, 3.549709744622286*^9}, {3.549776408980742*^9, 3.549776417018085*^9}, {3.5497764564151297`*^9, 3.549776474279839*^9}, { 3.549776533960651*^9, 3.549776534540256*^9}, {3.549776750270699*^9, 3.549776750408584*^9}, {3.5497770208907824`*^9, 3.549777025634359*^9}, { 3.549777092701315*^9, 3.549777110922018*^9}, {3.549777148942144*^9, 3.549777163032571*^9}, {3.549777208426346*^9, 3.5497772109319143`*^9}, { 3.5497789134252234`*^9, 3.549778914675816*^9}, {3.549779022339443*^9, 3.5497790517805233`*^9}, {3.5497792602254744`*^9, 3.549779313719618*^9}, { 3.54977967339149*^9, 3.549779685903554*^9}, {3.5497797188623734`*^9, 3.5497799053475437`*^9}, {3.549954232727322*^9, 3.5499542334523783`*^9}, { 3.5499542844608727`*^9, 3.549954285736802*^9}, {3.549954337899026*^9, 3.549954339234992*^9}, {3.549954375970398*^9, 3.549954377000415*^9}, { 3.549954474808865*^9, 3.549954498497761*^9}, {3.549954554985243*^9, 3.549954660047442*^9}, {3.5499553296295652`*^9, 3.549955330019621*^9}, { 3.550210787753209*^9, 3.550210818599176*^9}, {3.550210860008881*^9, 3.550210879821658*^9}, {3.550210911601803*^9, 3.550211018487391*^9}, { 3.55021190910468*^9, 3.5502119255988617`*^9}, {3.55021259951932*^9, 3.550212618116131*^9}, {3.550212656233769*^9, 3.55021266494943*^9}, { 3.5502180231279583`*^9, 3.550218023471623*^9}, {3.55022184311093*^9, 3.5502218457264137`*^9}, {3.5503800562906218`*^9, 3.5503800626117487`*^9}, {3.550380205661541*^9, 3.5503802078941593`*^9}, { 3.5503802719865007`*^9, 3.550380276223721*^9}, {3.550396215932459*^9, 3.5503963050106983`*^9}, {3.550396380487996*^9, 3.5503964127442207`*^9}, { 3.550396644940215*^9, 3.550396646219523*^9}, {3.550397353887744*^9, 3.5503973547906437`*^9}, 3.550398637905437*^9, {3.550467599111764*^9, 3.5504675995607357`*^9}, {3.550480787034421*^9, 3.550480789813986*^9}, { 3.5504951371594753`*^9, 3.550495137644044*^9}, {3.550495707363203*^9, 3.550495728347939*^9}, {3.550501067003173*^9, 3.550501109585329*^9}, { 3.55050170791227*^9, 3.5505017197967243`*^9}, {3.550502088246933*^9, 3.550502090410617*^9}, {3.5505022890676394`*^9, 3.55050236257528*^9}, { 3.5505171788240757`*^9, 3.550517199142767*^9}, {3.550814961149806*^9, 3.550814983058262*^9}, {3.550815136591158*^9, 3.550815157899081*^9}, { 3.550823307748494*^9, 3.550823319931562*^9}, {3.55082627458635*^9, 3.550826358770453*^9}, {3.550826448304575*^9, 3.5508264622052097`*^9}, { 3.550839759665447*^9, 3.55083976307174*^9}, {3.5508407310085173`*^9, 3.5508407348936167`*^9}, {3.550852184419526*^9, 3.55085218733593*^9}, 3.550852672360114*^9, {3.551421924297884*^9, 3.551421936909439*^9}, 3.551425664227054*^9, {3.551426260727524*^9, 3.551426260879908*^9}, { 3.551438668960882*^9, 3.551438674523821*^9}, {3.554707799380856*^9, 3.554707808253438*^9}, {3.5600814662516603`*^9, 3.56008146892594*^9}, { 3.560492155115732*^9, 3.5604921713419523`*^9}, {3.5672423999458303`*^9, 3.5672424070969276`*^9}, {3.567242440987956*^9, 3.5672424483246098`*^9}, { 3.574414515813424*^9, 3.5744145160494947`*^9}, {3.574414568260951*^9, 3.574414575650922*^9}, {3.574414607469105*^9, 3.574414779720292*^9}, { 3.574414810756494*^9, 3.574414818874908*^9}, {3.57442143625563*^9, 3.574421438598734*^9}, {3.574421621639855*^9, 3.574421633262158*^9}, { 3.57442166453819*^9, 3.574421818560532*^9}, 3.574421883000194*^9, { 3.574422106614964*^9, 3.574422138400421*^9}, {3.574422176536312*^9, 3.574422177723816*^9}, {3.574422238607831*^9, 3.574422247121916*^9}, { 3.574422676851529*^9, 3.5744227058822727`*^9}, {3.5744227538780212`*^9, 3.574422754257194*^9}, {3.574422786731482*^9, 3.574422809814013*^9}, { 3.574422854150467*^9, 3.574422855472574*^9}, {3.574423241845401*^9, 3.574423266794786*^9}, {3.5744236372571*^9, 3.574423637517541*^9}, { 3.5744236973316307`*^9, 3.574423698026251*^9}, {3.574424318067589*^9, 3.574424395275681*^9}, {3.574424436797*^9, 3.5744244472678213`*^9}, { 3.575012125675378*^9, 3.57501212643894*^9}, {3.575017562254835*^9, 3.575017562547122*^9}, {3.575017632358593*^9, 3.57501763311195*^9}, 3.575017790609446*^9, {3.5750180474971046`*^9, 3.5750180511098757`*^9}, { 3.5750181749627438`*^9, 3.575018201721591*^9}, {3.575021061457209*^9, 3.575021173656392*^9}, 3.575022266720552*^9, {3.575022539414526*^9, 3.5750225424273653`*^9}, {3.575024195296536*^9, 3.575024203338813*^9}, { 3.57502425135285*^9, 3.5750242530223827`*^9}, {3.575024414031124*^9, 3.5750244665194483`*^9}, {3.5750245443243732`*^9, 3.575024548340664*^9}, { 3.5750509210250483`*^9, 3.57505099891087*^9}, {3.575100011225841*^9, 3.575100012941111*^9}, {3.5751000761062517`*^9, 3.57510008826234*^9}, { 3.5751067497176867`*^9, 3.575106756441284*^9}, {3.575107032357512*^9, 3.5751070403714*^9}, 3.5751072787449427`*^9, {3.575110579926989*^9, 3.575110584628883*^9}, {3.575111764036613*^9, 3.5751117657502613`*^9}, { 3.575121143373027*^9, 3.575121145381948*^9}, {3.57717705343093*^9, 3.577177083009467*^9}, {3.577440220085044*^9, 3.577440309733041*^9}, { 3.577440404209971*^9, 3.577440404897953*^9}, {3.577440514207752*^9, 3.5774405545842876`*^9}, {3.577440616913389*^9, 3.577440618866145*^9}, { 3.577440935806287*^9, 3.577440937113554*^9}, 3.577441154579206*^9, { 3.577441184910445*^9, 3.5774413180444098`*^9}, {3.577441370582193*^9, 3.5774415959637127`*^9}, {3.577441763017984*^9, 3.5774419459346113`*^9}, { 3.577442156541094*^9, 3.5774421953522997`*^9}, {3.577457906966424*^9, 3.577457907186198*^9}, {3.577597106084291*^9, 3.5775971067631197`*^9}, { 3.5775971556479483`*^9, 3.577597192043353*^9}, {3.57759724326101*^9, 3.5775972441317987`*^9}, {3.5775972876700487`*^9, 3.577597290168428*^9}, { 3.577597414343864*^9, 3.57759741636696*^9}, {3.5775975809800253`*^9, 3.5775975818990183`*^9}, {3.5775977341934013`*^9, 3.5775977512301407`*^9}, {3.577597929457534*^9, 3.577597929927762*^9}, { 3.577599257001355*^9, 3.577599265491398*^9}, {3.577599382995543*^9, 3.5775996382957706`*^9}, {3.57759996255772*^9, 3.577599967736058*^9}, { 3.577600340898282*^9, 3.577600422370391*^9}, {3.5776004752558403`*^9, 3.577600475439385*^9}, {3.577600578911014*^9, 3.577600608960362*^9}, { 3.577600670082762*^9, 3.577600718056077*^9}, {3.5776007563050013`*^9, 3.577600808675623*^9}, {3.577600849192411*^9, 3.577600851894465*^9}, { 3.57760090014793*^9, 3.5776009343504744`*^9}, 3.577600977016616*^9, { 3.577601022974963*^9, 3.5776010506776133`*^9}, {3.577601194495173*^9, 3.577601197546342*^9}, {3.577601633311906*^9, 3.577601635029415*^9}, { 3.5776806938290987`*^9, 3.5776807018468657`*^9}, {3.577681148715567*^9, 3.577681176348791*^9}, {3.5776812566215763`*^9, 3.577681261015019*^9}, { 3.57768131101682*^9, 3.577681337313114*^9}, {3.577681393217267*^9, 3.577681393395359*^9}, {3.577698490415572*^9, 3.57769857877654*^9}, { 3.5776986758429337`*^9, 3.577698685996072*^9}, {3.577698858663775*^9, 3.5776988604397573`*^9}, {3.631816172727263*^9, 3.6318161980373783`*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{"prob", " ", "=", " ", "0"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"JJ", " ", "=", " ", "1"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"LL", " ", "=", " ", "1"}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"RC", " ", "=", " ", RowBox[{"RandomChoice", "[", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "-", "prob"}], ",", "prob"}], "}"}], " ", "\[Rule]", " ", RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}]}], ",", RowBox[{"{", RowBox[{ RowBox[{"2", "n"}], ",", "n"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{"Solving", " ", "the", " ", "FHN", " ", "equations"}], " ", "*)"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Timing", "[", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"fitz", " ", "=", " ", RowBox[{"NDSolve", "[", RowBox[{ 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]"}], ")"}], "+", RowBox[{ RowBox[{"RC", "[", RowBox[{"[", RowBox[{"1", ",", "1"}], "]"}], "]"}], "*", RowBox[{"(", RowBox[{"K", "*", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"v", "[", RowBox[{"1", ",", "2"}], "]"}], "[", "t", "]"}], "-", RowBox[{ RowBox[{"v", "[", RowBox[{"1", ",", "1"}], "]"}], "[", "t", "]"}]}], ")"}]}], ")"}]}], "+", RowBox[{ RowBox[{"RC", "[", RowBox[{"[", RowBox[{"2", ",", "1"}], "]"}], "]"}], "*", RowBox[{"(", RowBox[{"K", "*", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"v", "[", RowBox[{"2", ",", "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]"}], ")"}], "+", RowBox[{ RowBox[{"RC", "[", RowBox[{"[", RowBox[{"1", ",", RowBox[{"i", "-", "1"}]}], "]"}], "]"}], "*", RowBox[{"(", RowBox[{"K", "*", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"v", "[", RowBox[{"1", ",", RowBox[{"i", "-", "1"}]}], "]"}], "[", "t", "]"}], "-", RowBox[{ RowBox[{"v", "[", RowBox[{"1", ",", "i"}], "]"}], "[", "t", "]"}]}], ")"}]}], ")"}]}], "+", RowBox[{ RowBox[{"RC", "[", RowBox[{"[", RowBox[{"2", ",", "i"}], "]"}], "]"}], "*", RowBox[{"(", RowBox[{"K", "*", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"v", "[", RowBox[{"2", ",", "i"}], "]"}], "[", "t", "]"}], "-", RowBox[{ RowBox[{"v", "[", RowBox[{"1", ",", "i"}], "]"}], "[", "t", "]"}]}], ")"}]}], ")"}]}], "+", RowBox[{ RowBox[{"RC", "[", RowBox[{"[", RowBox[{"1", ",", "i"}], "]"}], "]"}], "*", RowBox[{"(", RowBox[{"K", "*", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"v", "[", RowBox[{"1", ",", RowBox[{"i", "+", "1"}]}], "]"}], "[", "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]"}], ")"}], "+", RowBox[{ RowBox[{"RC", "[", RowBox[{"[", RowBox[{"1", ",", RowBox[{"m", "-", "1"}]}], "]"}], "]"}], "*", RowBox[{"(", RowBox[{"K", "*", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"v", "[", RowBox[{"1", ",", RowBox[{"m", "-", "1"}]}], "]"}], "[", "t", "]"}], "-", RowBox[{ RowBox[{"v", "[", RowBox[{"1", ",", "m"}], "]"}], "[", "t", "]"}]}], ")"}]}], ")"}]}], "+", RowBox[{ RowBox[{"RC", "[", RowBox[{"[", RowBox[{"2", ",", "m"}], "]"}], "]"}], "*", RowBox[{"(", RowBox[{"K", "*", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"v", "[", RowBox[{"2", ",", "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]"}], ")"}], "+", RowBox[{ RowBox[{"RC", "[", RowBox[{"[", RowBox[{ RowBox[{ RowBox[{"2", "i"}], "-", "2"}], ",", "1"}], "]"}], "]"}], "*", RowBox[{"(", RowBox[{"K", "*", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"v", "[", RowBox[{ RowBox[{"i", "-", "1"}], ",", "1"}], "]"}], "[", "t", "]"}], "-", RowBox[{ RowBox[{"v", "[", RowBox[{"i", ",", "1"}], "]"}], "[", "t", "]"}]}], ")"}]}], ")"}]}], "+", RowBox[{ RowBox[{"RC", "[", RowBox[{"[", RowBox[{ RowBox[{ RowBox[{"2", "i"}], "-", "1"}], ",", "1"}], "]"}], "]"}], "*", RowBox[{"(", RowBox[{"K", "*", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"v", "[", RowBox[{"i", ",", "2"}], "]"}], "[", "t", "]"}], "-", RowBox[{ RowBox[{"v", "[", RowBox[{"i", ",", "1"}], "]"}], "[", "t", "]"}]}], ")"}]}], ")"}]}], "+", RowBox[{ RowBox[{"RC", "[", RowBox[{"[", RowBox[{ RowBox[{"2", "i"}], ",", "1"}], "]"}], "]"}], "*", RowBox[{"(", RowBox[{"K", "*", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"v", "[", RowBox[{ RowBox[{"i", "+", "1"}], ",", "1"}], "]"}], "[", "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]"}], ")"}], "+", RowBox[{ RowBox[{"RC", "[", RowBox[{"[", RowBox[{ RowBox[{ RowBox[{"2", "i"}], "-", "2"}], ",", "m"}], "]"}], "]"}], "*", RowBox[{"(", RowBox[{"K", "*", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"v", "[", RowBox[{ RowBox[{"i", "-", "1"}], ",", "m"}], "]"}], "[", "t", "]"}], "-", RowBox[{ RowBox[{"v", "[", RowBox[{"i", ",", "m"}], "]"}], "[", "t", "]"}]}], ")"}]}], ")"}]}], "+", RowBox[{ RowBox[{"RC", "[", RowBox[{"[", RowBox[{ RowBox[{ RowBox[{"2", "i"}], "-", "1"}], ",", RowBox[{"m", "-", "1"}]}], "]"}], "]"}], "*", RowBox[{"(", RowBox[{"K", "*", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"v", "[", RowBox[{"i", ",", RowBox[{"m", "-", "1"}]}], "]"}], "[", "t", "]"}], "-", RowBox[{ RowBox[{"v", "[", RowBox[{"i", ",", "m"}], "]"}], "[", "t", "]"}]}], ")"}]}], ")"}]}], "+", RowBox[{ RowBox[{"RC", "[", RowBox[{"[", RowBox[{ RowBox[{"2", "i"}], ",", "m"}], "]"}], "]"}], "*", RowBox[{"(", RowBox[{"K", "*", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"v", "[", RowBox[{ RowBox[{"i", "+", "1"}], ",", "m"}], "]"}], "[", "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]"}], ")"}], "+", RowBox[{ RowBox[{"RC", "[", RowBox[{"[", RowBox[{ RowBox[{ RowBox[{"2", "n"}], "-", "1"}], ",", "1"}], "]"}], "]"}], "*", RowBox[{"(", RowBox[{"K", "*", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"v", "[", RowBox[{"n", ",", "2"}], "]"}], "[", "t", "]"}], "-", RowBox[{ RowBox[{"v", "[", RowBox[{"n", ",", "1"}], "]"}], "[", "t", "]"}]}], ")"}]}], ")"}]}], "+", RowBox[{ RowBox[{"RC", "[", RowBox[{"[", RowBox[{ RowBox[{ RowBox[{"2", "n"}], "-", "2"}], ",", "1"}], "]"}], "]"}], "*", RowBox[{"(", RowBox[{"K", "*", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"v", "[", RowBox[{ RowBox[{"n", "-", "1"}], ",", "1"}], "]"}], "[", "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]"}], ")"}], "+", RowBox[{ RowBox[{"RC", "[", RowBox[{"[", RowBox[{ RowBox[{ RowBox[{"2", "n"}], "-", "1"}], ",", RowBox[{"i", "-", "1"}]}], "]"}], "]"}], "*", RowBox[{"(", RowBox[{"K", "*", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"v", "[", RowBox[{"n", ",", RowBox[{"i", "-", "1"}]}], "]"}], "[", "t", "]"}], "-", RowBox[{ RowBox[{"v", "[", RowBox[{"n", ",", "i"}], "]"}], "[", "t", "]"}]}], ")"}]}], ")"}]}], "+", RowBox[{ RowBox[{"RC", "[", RowBox[{"[", RowBox[{ RowBox[{ RowBox[{"2", "n"}], "-", "2"}], ",", "i"}], "]"}], "]"}], "*", RowBox[{"(", RowBox[{"K", "*", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"v", "[", RowBox[{ RowBox[{"n", "-", "1"}], ",", "i"}], "]"}], "[", "t", "]"}], "-", RowBox[{ RowBox[{"v", "[", RowBox[{"n", ",", "i"}], "]"}], "[", "t", "]"}]}], ")"}]}], ")"}]}], "+", RowBox[{ RowBox[{"RC", "[", RowBox[{"[", RowBox[{ RowBox[{ RowBox[{"2", "n"}], "-", "1"}], ",", "i"}], "]"}], "]"}], "*", RowBox[{"(", RowBox[{"K", "*", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"v", "[", RowBox[{"n", ",", RowBox[{"i", "+", "1"}]}], "]"}], "[", "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]"}], ")"}], "+", RowBox[{ RowBox[{"RC", "[", RowBox[{"[", RowBox[{ RowBox[{ RowBox[{"2", "n"}], "-", "1"}], ",", RowBox[{"m", "-", "1"}]}], "]"}], "]"}], "*", RowBox[{"(", RowBox[{"K", "*", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"v", "[", RowBox[{"n", ",", RowBox[{"m", "-", "1"}]}], "]"}], "[", "t", "]"}], "-", RowBox[{ RowBox[{"v", "[", RowBox[{"n", ",", "m"}], "]"}], "[", "t", "]"}]}], ")"}]}], ")"}]}], "+", RowBox[{ RowBox[{"RC", "[", RowBox[{"[", RowBox[{ RowBox[{ RowBox[{"2", "n"}], "-", "2"}], ",", "m"}], "]"}], "]"}], "*", RowBox[{"(", RowBox[{"K", "*", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"v", "[", RowBox[{ RowBox[{"n", "-", "1"}], ",", "m"}], "]"}], "[", "t", "]"}], "-", RowBox[{ RowBox[{"v", "[", RowBox[{"n", ",", "m"}], "]"}], "[", "t", "]"}]}], ")"}]}], ")"}]}]}]}], "}"}], ",", "\[IndentingNewLine]", "\n", 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]"}], ")"}], "+", RowBox[{ RowBox[{"RC", "[", RowBox[{"[", RowBox[{ RowBox[{ RowBox[{"2", "i"}], "-", "2"}], ",", "j"}], "]"}], "]"}], "*", RowBox[{"(", RowBox[{"K", "*", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"v", "[", RowBox[{ RowBox[{"i", "-", "1"}], ",", "j"}], "]"}], "[", "t", "]"}], "-", RowBox[{ RowBox[{"v", "[", RowBox[{"i", ",", "j"}], "]"}], "[", "t", "]"}]}], ")"}]}], ")"}]}], "+", RowBox[{ RowBox[{"RC", "[", RowBox[{"[", RowBox[{ RowBox[{ RowBox[{"2", "i"}], "-", "1"}], ",", RowBox[{"j", "-", "1"}]}], "]"}], "]"}], "*", RowBox[{"(", RowBox[{"K", "*", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"v", "[", RowBox[{"i", ",", RowBox[{"j", "-", "1"}]}], "]"}], "[", "t", "]"}], "-", RowBox[{ RowBox[{"v", "[", RowBox[{"i", ",", "j"}], "]"}], "[", "t", "]"}]}], ")"}]}], ")"}]}], "+", RowBox[{ RowBox[{"RC", "[", RowBox[{"[", RowBox[{ RowBox[{"2", "i"}], ",", "j"}], "]"}], "]"}], "*", RowBox[{"(", RowBox[{"K", "*", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"v", "[", RowBox[{ RowBox[{"i", "+", "1"}], ",", "j"}], "]"}], "[", "t", "]"}], "-", RowBox[{ RowBox[{"v", "[", RowBox[{"i", ",", "j"}], "]"}], "[", "t", "]"}]}], ")"}]}], ")"}]}], "+", RowBox[{ RowBox[{"RC", "[", RowBox[{"[", RowBox[{ RowBox[{ RowBox[{"2", "i"}], "-", "1"}], ",", "j"}], "]"}], "]"}], "*", RowBox[{"(", 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[{"kickcellM", "-", "1"}]}], "}"}]}], "]"}], "]"}], ",", "\[IndentingNewLine]", "\[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]"}], ")"}], "+", RowBox[{ RowBox[{"RC", "[", RowBox[{"[", RowBox[{ RowBox[{ RowBox[{"2", "i"}], "-", "2"}], ",", "j"}], "]"}], "]"}], "*", RowBox[{"(", RowBox[{"K", "*", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"v", "[", RowBox[{ RowBox[{"i", "-", "1"}], ",", "j"}], "]"}], "[", "t", "]"}], "-", RowBox[{ RowBox[{"v", "[", RowBox[{"i", ",", "j"}], "]"}], "[", "t", "]"}]}], ")"}]}], ")"}]}], "+", RowBox[{ RowBox[{"RC", "[", RowBox[{"[", RowBox[{ RowBox[{ RowBox[{"2", "i"}], "-", "1"}], ",", RowBox[{"j", "-", "1"}]}], "]"}], "]"}], "*", RowBox[{"(", RowBox[{"K", "*", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"v", "[", RowBox[{"i", ",", RowBox[{"j", "-", "1"}]}], "]"}], "[", "t", "]"}], "-", RowBox[{ RowBox[{"v", "[", RowBox[{"i", ",", "j"}], "]"}], "[", "t", "]"}]}], ")"}]}], ")"}]}], "+", RowBox[{ RowBox[{"RC", "[", RowBox[{"[", RowBox[{ RowBox[{"2", "i"}], ",", "j"}], "]"}], "]"}], "*", RowBox[{"(", RowBox[{"K", "*", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"v", "[", RowBox[{ RowBox[{"i", "+", "1"}], ",", "j"}], "]"}], "[", "t", "]"}], "-", RowBox[{ RowBox[{"v", "[", RowBox[{"i", ",", "j"}], "]"}], "[", "t", "]"}]}], ")"}]}], ")"}]}], "+", RowBox[{ RowBox[{"RC", "[", RowBox[{"[", RowBox[{ RowBox[{ RowBox[{"2", "i"}], "-", "1"}], ",", "j"}], "]"}], "]"}], "*", RowBox[{"(", 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", ",", RowBox[{"kickcellM", "+", "1"}], ",", RowBox[{"m", "-", "1"}]}], "}"}]}], "]"}], "]"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"Flatten", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"v", "[", RowBox[{"i", ",", "kickcellM"}], "]"}], "'"}], "[", "t", "]"}], "==", " ", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"A", "*", RowBox[{ RowBox[{"v", "[", RowBox[{"i", ",", "kickcellM"}], "]"}], "[", "t", "]"}], "*", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"v", "[", RowBox[{"i", ",", "kickcellM"}], "]"}], "[", "t", "]"}], "-", "\[Alpha]"}], ")"}], "*", RowBox[{"(", RowBox[{"1", "-", RowBox[{ RowBox[{"v", "[", RowBox[{"i", ",", "kickcellM"}], "]"}], "[", "t", "]"}]}], ")"}]}], "-", RowBox[{ RowBox[{"w", "[", RowBox[{"i", ",", "kickcellM"}], "]"}], "[", "t", "]"}], "-", "w0"}], ")"}], "/", "\[Epsilon]"}], ")"}], "+", RowBox[{ RowBox[{"RC", "[", RowBox[{"[", RowBox[{ RowBox[{ RowBox[{"2", "i"}], "-", "2"}], ",", "kickcellM"}], "]"}], "]"}], "*", RowBox[{"(", RowBox[{"K", "*", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"v", "[", RowBox[{ RowBox[{"i", "-", "1"}], ",", "kickcellM"}], "]"}], "[", "t", "]"}], "-", RowBox[{ RowBox[{"v", "[", RowBox[{"i", ",", "kickcellM"}], "]"}], "[", "t", "]"}]}], ")"}]}], ")"}]}], "+", RowBox[{ RowBox[{"RC", "[", RowBox[{"[", RowBox[{ RowBox[{ RowBox[{"2", "i"}], "-", "1"}], ",", RowBox[{"kickcellM", "-", "1"}]}], "]"}], "]"}], "*", RowBox[{"(", RowBox[{"K", "*", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"v", "[", RowBox[{"i", ",", RowBox[{"kickcellM", "-", "1"}]}], "]"}], "[", "t", "]"}], "-", RowBox[{ RowBox[{"v", "[", RowBox[{"i", ",", "kickcellM"}], "]"}], "[", "t", "]"}]}], ")"}]}], ")"}]}], "+", RowBox[{ RowBox[{"RC", "[", RowBox[{"[", RowBox[{ RowBox[{"2", "i"}], ",", "kickcellM"}], "]"}], "]"}], "*", RowBox[{"(", RowBox[{"K", "*", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"v", "[", RowBox[{ RowBox[{"i", "+", "1"}], ",", "kickcellM"}], "]"}], "[", "t", "]"}], "-", RowBox[{ RowBox[{"v", "[", RowBox[{"i", ",", "kickcellM"}], "]"}], "[", "t", "]"}]}], ")"}]}], ")"}]}], "+", RowBox[{ RowBox[{"RC", "[", RowBox[{"[", RowBox[{ RowBox[{ RowBox[{"2", "i"}], "-", "1"}], ",", "kickcellM"}], "]"}], "]"}], "*", RowBox[{"(", RowBox[{"K", "*", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"v", "[", RowBox[{"i", ",", RowBox[{"kickcellM", "+", "1"}]}], "]"}], "[", "t", "]"}], "-", RowBox[{ RowBox[{"v", "[", RowBox[{"i", ",", "kickcellM"}], "]"}], "[", "t", "]"}]}], ")"}]}], ")"}]}]}]}], ",", RowBox[{"{", RowBox[{"i", ",", "2", ",", RowBox[{"kickcellN", "-", "1"}]}], "}"}]}], "]"}], "]"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"Flatten", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"v", "[", RowBox[{"i", ",", "kickcellM"}], "]"}], "'"}], "[", "t", "]"}], "==", " ", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"A", "*", RowBox[{ RowBox[{"v", "[", RowBox[{"i", ",", "kickcellM"}], "]"}], "[", "t", "]"}], "*", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"v", "[", RowBox[{"i", ",", "kickcellM"}], "]"}], "[", "t", "]"}], "-", "\[Alpha]"}], ")"}], "*", RowBox[{"(", RowBox[{"1", "-", RowBox[{ RowBox[{"v", "[", RowBox[{"i", ",", "kickcellM"}], "]"}], "[", "t", "]"}]}], ")"}]}], "-", RowBox[{ RowBox[{"w", "[", RowBox[{"i", ",", "kickcellM"}], "]"}], "[", "t", "]"}], "-", "w0"}], ")"}], "/", "\[Epsilon]"}], ")"}], "+", RowBox[{ RowBox[{"RC", "[", RowBox[{"[", RowBox[{ RowBox[{ RowBox[{"2", "i"}], "-", "2"}], ",", "kickcellM"}], "]"}], "]"}], "*", RowBox[{"(", RowBox[{"K", "*", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"v", "[", RowBox[{ RowBox[{"i", "-", "1"}], ",", "kickcellM"}], "]"}], "[", "t", "]"}], "-", RowBox[{ RowBox[{"v", "[", RowBox[{"i", ",", "kickcellM"}], "]"}], "[", "t", "]"}]}], ")"}]}], ")"}]}], "+", RowBox[{ RowBox[{"RC", "[", RowBox[{"[", RowBox[{ RowBox[{ RowBox[{"2", "i"}], "-", "1"}], ",", RowBox[{"kickcellM", "-", "1"}]}], "]"}], "]"}], "*", RowBox[{"(", RowBox[{"K", "*", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"v", "[", RowBox[{"i", ",", RowBox[{"kickcellM", "-", "1"}]}], "]"}], "[", "t", "]"}], "-", RowBox[{ RowBox[{"v", "[", RowBox[{"i", ",", "kickcellM"}], "]"}], "[", "t", "]"}]}], ")"}]}], ")"}]}], "+", RowBox[{ RowBox[{"RC", "[", RowBox[{"[", RowBox[{ RowBox[{"2", "i"}], ",", "kickcellM"}], "]"}], "]"}], "*", RowBox[{"(", RowBox[{"K", "*", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"v", "[", RowBox[{ RowBox[{"i", "+", "1"}], ",", "kickcellM"}], "]"}], "[", "t", "]"}], "-", RowBox[{ RowBox[{"v", "[", RowBox[{"i", ",", "kickcellM"}], "]"}], "[", "t", "]"}]}], ")"}]}], ")"}]}], "+", RowBox[{ RowBox[{"RC", "[", RowBox[{"[", RowBox[{ RowBox[{ RowBox[{"2", "i"}], "-", "1"}], ",", "kickcellM"}], "]"}], "]"}], "*", RowBox[{"(", RowBox[{"K", "*", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"v", "[", RowBox[{"i", ",", RowBox[{"kickcellM", "+", "1"}]}], "]"}], "[", "t", "]"}], "-", RowBox[{ RowBox[{"v", "[", RowBox[{"i", ",", "kickcellM"}], "]"}], "[", "t", "]"}]}], ")"}]}], ")"}]}]}]}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{"kickcellN", "+", "1"}], ",", RowBox[{"n", "-", "1"}]}], "}"}]}], "]"}], "]"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"v", "[", RowBox[{"kickcellN", ",", "kickcellM"}], "]"}], "'"}], "[", "t", "]"}], " ", "==", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"A", "*", RowBox[{ RowBox[{"v", "[", RowBox[{"kickcellN", ",", "kickcellM"}], "]"}], "[", "t", "]"}], "*", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"v", "[", RowBox[{"kickcellN", ",", "kickcellM"}], "]"}], "[", "t", "]"}], "-", "\[Alpha]"}], ")"}], "*", RowBox[{"(", RowBox[{"1", "-", RowBox[{ RowBox[{"v", "[", RowBox[{"kickcellN", ",", "kickcellM"}], "]"}], "[", "t", "]"}]}], ")"}]}], "-", RowBox[{ RowBox[{"w", "[", RowBox[{"kickcellN", ",", "kickcellM"}], "]"}], "[", "t", "]"}], "-", "w0"}], ")"}], "/", "\[Epsilon]"}], "+", RowBox[{ RowBox[{"RC", "[", RowBox[{"[", RowBox[{ RowBox[{ RowBox[{"2", " ", "kickcellN"}], " ", "-", "1"}], ",", " ", RowBox[{"kickcellM", "-", "1"}]}], "]"}], "]"}], "*", RowBox[{"(", RowBox[{"K", "*", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"v", "[", RowBox[{"kickcellN", ",", RowBox[{"kickcellM", "-", "1"}]}], "]"}], "[", "t", "]"}], "-", RowBox[{ RowBox[{"v", "[", RowBox[{"kickcellN", ",", "kickcellM"}], "]"}], "[", "t", "]"}]}], ")"}]}], ")"}]}], " ", "+", " ", RowBox[{ RowBox[{"RC", "[", RowBox[{"[", RowBox[{ RowBox[{ RowBox[{"2", " ", "kickcellN"}], "-", "2"}], ",", " ", "kickcellM"}], "]"}], "]"}], "*", RowBox[{"(", RowBox[{"K", "*", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"v", "[", RowBox[{ RowBox[{"kickcellN", "-", "1"}], ",", "kickcellM"}], "]"}], "[", "t", "]"}], "-", RowBox[{ RowBox[{"v", "[", RowBox[{"kickcellN", ",", "kickcellM"}], "]"}], "[", "t", "]"}]}], ")"}]}], ")"}]}], "+", RowBox[{ RowBox[{"RC", "[", RowBox[{"[", RowBox[{ RowBox[{ RowBox[{"2", " ", "kickcellN"}], "-", "1"}], ",", "kickcellM"}], "]"}], "]"}], "*", RowBox[{"(", RowBox[{"K", "*", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"v", "[", RowBox[{"kickcellN", ",", RowBox[{"kickcellM", "+", "1"}]}], "]"}], "[", "t", "]"}], "-", RowBox[{ RowBox[{"v", "[", RowBox[{"kickcellN", ",", "kickcellM"}], "]"}], "[", "t", "]"}]}], ")"}]}], ")"}]}], " ", "+", " ", RowBox[{ RowBox[{"RC", "[", RowBox[{"[", RowBox[{ RowBox[{"2", "kickcellN"}], ",", "kickcellM"}], "]"}], "]"}], "*", RowBox[{"(", RowBox[{"K", "*", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"v", "[", RowBox[{ RowBox[{"kickcellN", "+", "1"}], ",", "kickcellM"}], "]"}], "[", "t", "]"}], "-", RowBox[{ RowBox[{"v", "[", RowBox[{"kickcellN", ",", "kickcellM"}], "]"}], "[", "t", "]"}]}], ")"}]}], ")"}]}]}]}], "}"}], ",", "\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", ",", RowBox[{"kickcellM", "-", "1"}]}], "}"}]}], "]"}], "]"}], ",", "\[IndentingNewLine]", 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", ",", RowBox[{"kickcellM", "+", "1"}], ",", "m"}], "}"}]}], "]"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Flatten", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"w", "[", RowBox[{"i", ",", "kickcellM"}], "]"}], "'"}], "[", "t", "]"}], "==", RowBox[{ RowBox[{ RowBox[{"v", "[", RowBox[{"i", ",", "kickcellM"}], "]"}], "[", "t", "]"}], "-", RowBox[{"\[Gamma]", "*", RowBox[{ RowBox[{"w", "[", RowBox[{"i", ",", "kickcellM"}], "]"}], "[", "t", "]"}]}], "-", "v0"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"kickcellN", "-", "1"}]}], "}"}]}], "]"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Flatten", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"w", "[", RowBox[{"i", ",", "kickcellM"}], "]"}], "'"}], "[", "t", "]"}], "==", RowBox[{ RowBox[{ RowBox[{"v", "[", RowBox[{"i", ",", "kickcellM"}], "]"}], "[", "t", "]"}], "-", RowBox[{"\[Gamma]", "*", RowBox[{ RowBox[{"w", "[", RowBox[{"i", ",", "kickcellM"}], "]"}], "[", "t", "]"}]}], "-", "v0"}]}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{"kickcellN", "+", "1"}], ",", "n"}], "}"}]}], "]"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"w", "[", RowBox[{"kickcellN", ",", "kickcellM"}], "]"}], "'"}], "[", "t", "]"}], " ", "\[Equal]", RowBox[{ RowBox[{ RowBox[{"v", "[", RowBox[{"kickcellN", ",", "kickcellM"}], "]"}], "[", "t", "]"}], "-", RowBox[{"\[Gamma]pace", "*", RowBox[{ RowBox[{"w", "[", RowBox[{"kickcellN", ",", "kickcellM"}], "]"}], "[", "t", "]"}]}], "-", "v0pace"}]}], "}"}], ",", "\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", "]"}], "\[Equal]", " ", 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"}], "}"}]}], "]"}], "]"}]}], "]"}], ",", "\n", "\n", "\t\t\t", RowBox[{"Flatten", "[", RowBox[{"Join", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"v", "[", RowBox[{"i", ",", "j"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "m"}], "}"}]}], "]"}], ",", 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", "\[Rule]", "100000"}]}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{ "Counting", " ", "the", " ", "number", " ", "of", " ", "cells", " ", "that", " ", "are", " ", "activated"}], " ", "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"CC", "[", RowBox[{"[", "JJ", "]"}], "]"}], " ", "=", " ", RowBox[{"MaxValue", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"w", "[", RowBox[{"kickcellN", ",", "kickcellM"}], "]"}], "[", "t", "]"}], "/.", RowBox[{"fitz", "[", RowBox[{"[", "1", "]"}], "]"}]}], ",", RowBox[{ RowBox[{"T", "-", "25"}], "\[LessEqual]", "t", "\[LessEqual]", "T"}]}], "}"}], ",", "t"}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"activetable", "=", RowBox[{"CC", "-", "localmax"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{ "Counting", " ", "the", " ", "number", " ", "of", " ", "inactive", " ", "cells"}], " ", "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"inactivecount", "[", RowBox[{"[", "LL", "]"}], "]"}], "=", RowBox[{"Count", "[", RowBox[{ RowBox[{"Negative", "[", "activetable", "]"}], ",", "True"}], "]"}]}]}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]"}], "\[IndentingNewLine]"}], "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.5348465004326973`*^9}, { 3.537630474623178*^9, 3.537630666530549*^9}, {3.5376307063269672`*^9, 3.5376307267729607`*^9}, {3.5376307669929934`*^9, 3.537630888395961*^9}, { 3.537630938805624*^9, 3.537630940114752*^9}, {3.53763098026544*^9, 3.537630984302267*^9}, {3.538120337845372*^9, 3.538120339712873*^9}, { 3.5381203754170713`*^9, 3.538120460802527*^9}, 3.538120499975071*^9, { 3.538120533267537*^9, 3.538120553146269*^9}, {3.5381205968974123`*^9, 3.53812063556221*^9}, {3.5381206731761293`*^9, 3.538120679573641*^9}, { 3.538126692362749*^9, 3.5381266978544683`*^9}, {3.538126747718544*^9, 3.538126883751924*^9}, {3.538126999484828*^9, 3.5381270907226048`*^9}, { 3.5381271633060207`*^9, 3.538127330463004*^9}, {3.538197911054138*^9, 3.538197911380657*^9}, {3.538209543643197*^9, 3.538209588782267*^9}, { 3.538212760347987*^9, 3.538212803612235*^9}, {3.53821585297188*^9, 3.538215866399321*^9}, {3.538216800952414*^9, 3.538216801371394*^9}, { 3.538217439153715*^9, 3.538217440518195*^9}, {3.538229859847953*^9, 3.538229880164544*^9}, {3.538287236041144*^9, 3.5382872462283792`*^9}, { 3.538298204358006*^9, 3.538298225593841*^9}, {3.53837544277357*^9, 3.538375454330882*^9}, {3.538388219396018*^9, 3.538388229657449*^9}, { 3.53846765766399*^9, 3.53846766404914*^9}, {3.538474612851554*^9, 3.538474633646576*^9}, {3.5384746823942633`*^9, 3.53847474456892*^9}, 3.538474783605525*^9, 3.538474824943138*^9, 3.538474988601432*^9, { 3.5384750325354633`*^9, 3.5384750466319313`*^9}, {3.538475421678732*^9, 3.538475435773162*^9}, {3.538475899878191*^9, 3.538475900940062*^9}, { 3.53867763147766*^9, 3.538677634913357*^9}, {3.538677684126116*^9, 3.53867770182693*^9}, {3.538679137707127*^9, 3.538679139607435*^9}, 3.5387233610872927`*^9, {3.538738462455194*^9, 3.5387385468818817`*^9}, { 3.538738585192383*^9, 3.538738655337925*^9}, {3.5387392980415707`*^9, 3.538739300507572*^9}, {3.538739349824559*^9, 3.538739349990919*^9}, { 3.5387482317661037`*^9, 3.538748234426935*^9}, {3.538814622819821*^9, 3.5388146406348124`*^9}, {3.538814675470208*^9, 3.5388148764774733`*^9}, { 3.538827989785778*^9, 3.538827990652678*^9}, {3.538851551350605*^9, 3.538851551703082*^9}, {3.5389113386706553`*^9, 3.538911338787636*^9}, { 3.538925890376957*^9, 3.538925986027272*^9}, {3.538998058577771*^9, 3.5389980591915617`*^9}, {3.538998111389963*^9, 3.538998194348056*^9}, { 3.53899825250804*^9, 3.538998313382351*^9}, {3.538999623252901*^9, 3.538999631040188*^9}, {3.5390711642162037`*^9, 3.539071175321067*^9}, { 3.5390758235178957`*^9, 3.539075824953673*^9}, {3.539080959892076*^9, 3.5390809674568996`*^9}, {3.5390810139120483`*^9, 3.5390810149301167`*^9}, {3.539238062886858*^9, 3.5392380994885902`*^9}, { 3.539239310235322*^9, 3.53923931445253*^9}, {3.5393314754931507`*^9, 3.5393315123313723`*^9}, 3.539331554030561*^9, {3.542016928567255*^9, 3.5420169808542423`*^9}, {3.5420170232680397`*^9, 3.542017033753131*^9}, { 3.542017439762351*^9, 3.542017443166464*^9}, {3.542017494575527*^9, 3.542017499335765*^9}, {3.542017584366378*^9, 3.542017590936756*^9}, { 3.5420177077420177`*^9, 3.542017711658813*^9}, {3.5420178108976097`*^9, 3.5420178171575003`*^9}, {3.542017885913797*^9, 3.542017888315339*^9}, { 3.5430535566420317`*^9, 3.543053672247675*^9}, {3.543081480819821*^9, 3.54308148208712*^9}, {3.543114994019388*^9, 3.543114994429138*^9}, { 3.543161868821003*^9, 3.543161870063583*^9}, {3.5432104986121492`*^9, 3.543210504842849*^9}, {3.543488615320879*^9, 3.543488624644906*^9}, { 3.543507057292161*^9, 3.543507057444282*^9}, {3.543637631965118*^9, 3.543637632900888*^9}, {3.543833841487005*^9, 3.543833850530611*^9}, { 3.544508520059523*^9, 3.544508711604801*^9}, {3.5446370827211533`*^9, 3.544637083092345*^9}, {3.544723202045258*^9, 3.5447232023276873`*^9}, { 3.5448412716945343`*^9, 3.544841272792016*^9}, {3.544879638855476*^9, 3.544879650096877*^9}, {3.544881043422696*^9, 3.544881047499053*^9}, { 3.545031240047674*^9, 3.54503125095853*^9}, {3.545031291762952*^9, 3.545031322642085*^9}, {3.5450472680096083`*^9, 3.545047374505567*^9}, { 3.545047668172763*^9, 3.545047790953741*^9}, {3.5450481522247543`*^9, 3.5450481556779737`*^9}, {3.545048241178499*^9, 3.545048370444646*^9}, { 3.545048605841061*^9, 3.5450486167986403`*^9}, {3.545048740914565*^9, 3.5450487423448067`*^9}, {3.545050516391433*^9, 3.5450505196176147`*^9}, { 3.545052026320458*^9, 3.545052079988549*^9}, {3.545052139121907*^9, 3.545052153212063*^9}, {3.5450522097497263`*^9, 3.54505223956376*^9}, { 3.545052374239431*^9, 3.545052377567051*^9}, {3.545052506940734*^9, 3.545052507091262*^9}, {3.545052554596664*^9, 3.545052841167931*^9}, 3.545052876644014*^9, {3.545052913598878*^9, 3.545052938090016*^9}, { 3.545122165574794*^9, 3.5451221663133917`*^9}, {3.5451221991793528`*^9, 3.545122225324033*^9}, {3.545122581714266*^9, 3.54512258198761*^9}, { 3.545122663742078*^9, 3.5451227876258707`*^9}, {3.545122876012947*^9, 3.5451229378922987`*^9}, {3.5451229726725388`*^9, 3.545122974073681*^9}, 3.545123010630979*^9, {3.545123085174919*^9, 3.54512311195529*^9}, { 3.545123152892541*^9, 3.545123174790856*^9}, {3.5451232101218033`*^9, 3.5451232770296917`*^9}, 3.545123332624929*^9, {3.545123741645026*^9, 3.545123751496132*^9}, {3.545123800106042*^9, 3.545123800843266*^9}, { 3.545123865240234*^9, 3.5451238655923767`*^9}, {3.5454626665974007`*^9, 3.545462667949727*^9}, {3.5454628010899353`*^9, 3.545462802342003*^9}, { 3.545462889776354*^9, 3.545462895588512*^9}, {3.5454629997868967`*^9, 3.545463000751992*^9}, {3.545463640924694*^9, 3.5454636535261793`*^9}, { 3.545463819627701*^9, 3.545463828299856*^9}, {3.545473484626236*^9, 3.545473491749729*^9}, {3.54547372052402*^9, 3.5454737218372*^9}, { 3.545474086557822*^9, 3.545474086743305*^9}, {3.5454741196919193`*^9, 3.545474290703418*^9}, {3.545474365085167*^9, 3.545474366449871*^9}, { 3.545490251556322*^9, 3.5454902524859343`*^9}, {3.545492700072008*^9, 3.545492700434403*^9}, {3.5454929941841087`*^9, 3.545493026306234*^9}, { 3.545495201964044*^9, 3.545495205727249*^9}, {3.546146877868734*^9, 3.5461468796248283`*^9}, {3.5461472424504747`*^9, 3.546147259293845*^9}, { 3.546147458680749*^9, 3.546147484082258*^9}, {3.546147608021915*^9, 3.546147610543744*^9}, {3.5461476672950907`*^9, 3.5461476693384333`*^9}, { 3.546147841668515*^9, 3.546147843956588*^9}, {3.546147874219287*^9, 3.546148039597095*^9}, {3.546148087720866*^9, 3.5461480911940947`*^9}, { 3.546148124866562*^9, 3.546148126504509*^9}, {3.5461482398107224`*^9, 3.546148242387385*^9}, {3.546148540114626*^9, 3.546148543276417*^9}, { 3.546668760928164*^9, 3.546668764424118*^9}, {3.546669512052483*^9, 3.546669541022675*^9}, {3.5466712558433533`*^9, 3.54667125875383*^9}, { 3.5466714025391273`*^9, 3.5466714065624657`*^9}, {3.546671513059057*^9, 3.546671515095067*^9}, {3.547304089225624*^9, 3.5473040895510397`*^9}, { 3.547310203552023*^9, 3.547310204748871*^9}, {3.547311293326499*^9, 3.547311293458221*^9}, {3.547312890105049*^9, 3.5473130488562527`*^9}, { 3.547313485069509*^9, 3.547313485665039*^9}, {3.547313613432856*^9, 3.547313621324587*^9}, {3.5473137797137833`*^9, 3.5473138093871202`*^9}, { 3.547314081846126*^9, 3.547314115056786*^9}, {3.54731421154393*^9, 3.547314217269116*^9}, {3.547314303941732*^9, 3.547314305510169*^9}, { 3.54731442728648*^9, 3.547314430139208*^9}, {3.5473145255006113`*^9, 3.5473145350999727`*^9}, 3.547314629170411*^9, 3.547363404544951*^9, { 3.547363501496183*^9, 3.5473635088038607`*^9}, {3.54736438182868*^9, 3.547364381979444*^9}, 3.547364922483244*^9, {3.547380446076119*^9, 3.547380447102962*^9}, {3.547381450215629*^9, 3.547381451292016*^9}, { 3.547447345591778*^9, 3.547447346464527*^9}, {3.547447426677321*^9, 3.5474474269915743`*^9}, {3.5483157051450777`*^9, 3.5483157450610647`*^9}, {3.548316631124442*^9, 3.548316691225037*^9}, { 3.548317020241542*^9, 3.548317049868689*^9}, {3.548317126755691*^9, 3.548317127529193*^9}, {3.548319744759282*^9, 3.548319745576025*^9}, { 3.548319887298848*^9, 3.548319918371714*^9}, {3.548320265580591*^9, 3.548320275923359*^9}, {3.548320682264624*^9, 3.5483206827898827`*^9}, { 3.5483240144711943`*^9, 3.5483240148278913`*^9}, {3.5483244144974403`*^9, 3.548324414678474*^9}, {3.548325332025222*^9, 3.548325332605482*^9}, { 3.548326264120399*^9, 3.548326265229031*^9}, {3.54832653596953*^9, 3.548326536482244*^9}, {3.54832680754838*^9, 3.5483268076928043`*^9}, { 3.548327463013484*^9, 3.5483274638190727`*^9}, {3.548327963900489*^9, 3.548327964059668*^9}, {3.548328265450787*^9, 3.548328265903112*^9}, { 3.548328547968974*^9, 3.5483285483589287`*^9}, {3.548934729052847*^9, 3.548934813474833*^9}, {3.548934885471649*^9, 3.5489348870727453`*^9}, { 3.548935238266487*^9, 3.548935240578473*^9}, {3.549005480844571*^9, 3.5490055192069483`*^9}, {3.54900568271317*^9, 3.549005693416362*^9}, { 3.549015694919142*^9, 3.549015957282652*^9}, {3.5490842739041643`*^9, 3.549084487380288*^9}, {3.549086479762768*^9, 3.5490864846451063`*^9}, { 3.549086538073299*^9, 3.549086552120661*^9}, {3.549086601477612*^9, 3.549086601947423*^9}, {3.549086675693739*^9, 3.549086683679178*^9}, { 3.549086723027467*^9, 3.549086738312587*^9}, {3.549086773935854*^9, 3.54908677699522*^9}, {3.549086873343348*^9, 3.549086875916338*^9}, { 3.549086907289509*^9, 3.549086987392048*^9}, 3.549087045969491*^9, { 3.5490870993154297`*^9, 3.5490871324964247`*^9}, {3.5490875961583967`*^9, 3.549087626360208*^9}, {3.5490876943676367`*^9, 3.5490877306939697`*^9}, { 3.549094868544755*^9, 3.549094869042508*^9}, {3.549098505759453*^9, 3.54909850652285*^9}, {3.54910811966604*^9, 3.5491081198075533`*^9}, { 3.549127048163628*^9, 3.549127049239231*^9}, {3.549131078842556*^9, 3.5491310789881287`*^9}, {3.549192363507556*^9, 3.549192364884562*^9}, { 3.5491924408475447`*^9, 3.5491924414673433`*^9}, {3.54919247602073*^9, 3.549192476618147*^9}, {3.54919927308635*^9, 3.5491993028672037`*^9}, { 3.549203010782364*^9, 3.549203011065723*^9}, {3.549337673966283*^9, 3.549337690420307*^9}, {3.5494248022980347`*^9, 3.5494248029015503`*^9}, { 3.549484401090905*^9, 3.549484401236581*^9}, {3.549528963435158*^9, 3.5495289662070427`*^9}, {3.5495658337782373`*^9, 3.549565834117873*^9}, { 3.549600751103323*^9, 3.5496007515990677`*^9}, {3.549650155609775*^9, 3.549650155911797*^9}, {3.549704625247312*^9, 3.5497046541353483`*^9}, { 3.5497047817953873`*^9, 3.5497048374319267`*^9}, {3.5497048702511873`*^9, 3.549704906890953*^9}, {3.5497059027997713`*^9, 3.549705940929625*^9}, { 3.549709743973343*^9, 3.549709744622286*^9}, {3.549776408980742*^9, 3.549776417018085*^9}, {3.5497764564151297`*^9, 3.549776474279839*^9}, { 3.549776533960651*^9, 3.549776534540256*^9}, {3.549776750270699*^9, 3.549776750408584*^9}, {3.5497770208907824`*^9, 3.549777025634359*^9}, { 3.549777092701315*^9, 3.549777110922018*^9}, {3.549777148942144*^9, 3.549777163032571*^9}, {3.549777208426346*^9, 3.5497772109319143`*^9}, { 3.5497789134252234`*^9, 3.549778914675816*^9}, {3.549779022339443*^9, 3.5497790517805233`*^9}, {3.5497792602254744`*^9, 3.549779313719618*^9}, { 3.54977967339149*^9, 3.549779685903554*^9}, {3.5497797188623734`*^9, 3.5497799053475437`*^9}, {3.549954232727322*^9, 3.5499542334523783`*^9}, { 3.5499542844608727`*^9, 3.549954285736802*^9}, {3.549954337899026*^9, 3.549954339234992*^9}, {3.549954375970398*^9, 3.549954377000415*^9}, { 3.549954474808865*^9, 3.549954498497761*^9}, {3.549954554985243*^9, 3.549954660047442*^9}, {3.5499553296295652`*^9, 3.549955330019621*^9}, { 3.550210787753209*^9, 3.550210818599176*^9}, {3.550210860008881*^9, 3.550210879821658*^9}, {3.550210911601803*^9, 3.550211018487391*^9}, { 3.55021190910468*^9, 3.5502119255988617`*^9}, {3.55021259951932*^9, 3.550212618116131*^9}, {3.550212656233769*^9, 3.55021266494943*^9}, { 3.5502180231279583`*^9, 3.550218023471623*^9}, {3.55022184311093*^9, 3.5502218457264137`*^9}, {3.5503800562906218`*^9, 3.5503800626117487`*^9}, {3.550380205661541*^9, 3.5503802078941593`*^9}, { 3.5503802719865007`*^9, 3.550380276223721*^9}, {3.550396215932459*^9, 3.5503963050106983`*^9}, {3.550396380487996*^9, 3.5503964127442207`*^9}, { 3.550396644940215*^9, 3.550396646219523*^9}, {3.550397353887744*^9, 3.5503973547906437`*^9}, 3.550398637905437*^9, {3.550467599111764*^9, 3.5504675995607357`*^9}, {3.550480787034421*^9, 3.550480789813986*^9}, { 3.5504951371594753`*^9, 3.550495137644044*^9}, {3.550495707363203*^9, 3.550495728347939*^9}, {3.550501067003173*^9, 3.550501109585329*^9}, { 3.55050170791227*^9, 3.5505017197967243`*^9}, {3.550502088246933*^9, 3.550502090410617*^9}, {3.5505022890676394`*^9, 3.55050236257528*^9}, { 3.5505171788240757`*^9, 3.550517199142767*^9}, {3.550814961149806*^9, 3.550814983058262*^9}, {3.550815136591158*^9, 3.550815157899081*^9}, { 3.550823307748494*^9, 3.550823319931562*^9}, {3.55082627458635*^9, 3.550826358770453*^9}, {3.550826448304575*^9, 3.5508264622052097`*^9}, { 3.550839759665447*^9, 3.55083976307174*^9}, {3.5508407310085173`*^9, 3.5508407348936167`*^9}, {3.550852184419526*^9, 3.55085218733593*^9}, 3.550852672360114*^9, {3.551421924297884*^9, 3.551421936909439*^9}, 3.551425664227054*^9, {3.551426260727524*^9, 3.551426260879908*^9}, { 3.551438668960882*^9, 3.551438674523821*^9}, {3.554707799380856*^9, 3.554707808253438*^9}, {3.5600814662516603`*^9, 3.56008146892594*^9}, { 3.560492155115732*^9, 3.5604921713419523`*^9}, {3.5672423999458303`*^9, 3.5672424070969276`*^9}, {3.567242440987956*^9, 3.5672424483246098`*^9}, { 3.574414515813424*^9, 3.5744145160494947`*^9}, {3.574414568260951*^9, 3.574414575650922*^9}, {3.574414607469105*^9, 3.574414779720292*^9}, { 3.574414810756494*^9, 3.574414818874908*^9}, {3.57442143625563*^9, 3.574421438598734*^9}, {3.574421621639855*^9, 3.574421633262158*^9}, { 3.57442166453819*^9, 3.574421818560532*^9}, 3.574421883000194*^9, { 3.574422106614964*^9, 3.574422138400421*^9}, {3.574422176536312*^9, 3.574422177723816*^9}, {3.574422238607831*^9, 3.574422247121916*^9}, { 3.574422676851529*^9, 3.5744227058822727`*^9}, {3.5744227538780212`*^9, 3.574422754257194*^9}, {3.574422786731482*^9, 3.574422809814013*^9}, { 3.574422854150467*^9, 3.574422855472574*^9}, {3.574423241845401*^9, 3.574423266794786*^9}, {3.5744236372571*^9, 3.574423637517541*^9}, { 3.5744236973316307`*^9, 3.574423698026251*^9}, {3.574424318067589*^9, 3.574424395275681*^9}, {3.574424436797*^9, 3.5744244472678213`*^9}, { 3.575012125675378*^9, 3.57501212643894*^9}, {3.575017562254835*^9, 3.575017562547122*^9}, {3.575017632358593*^9, 3.57501763311195*^9}, 3.575017790609446*^9, {3.5750180474971046`*^9, 3.5750180511098757`*^9}, { 3.5750181749627438`*^9, 3.575018201721591*^9}, {3.575021061457209*^9, 3.575021173656392*^9}, 3.575022266720552*^9, {3.575022539414526*^9, 3.5750225424273653`*^9}, {3.575024195296536*^9, 3.575024203338813*^9}, { 3.57502425135285*^9, 3.5750242530223827`*^9}, {3.575024414031124*^9, 3.5750244665194483`*^9}, {3.5750245443243732`*^9, 3.575024548340664*^9}, { 3.5750509210250483`*^9, 3.57505099891087*^9}, {3.575100011225841*^9, 3.575100012941111*^9}, {3.5751000761062517`*^9, 3.57510008826234*^9}, { 3.5751067497176867`*^9, 3.575106756441284*^9}, {3.575107032357512*^9, 3.5751070403714*^9}, 3.5751072787449427`*^9, {3.575110579926989*^9, 3.575110584628883*^9}, {3.575111764036613*^9, 3.5751117657502613`*^9}, { 3.575121143373027*^9, 3.575121145381948*^9}, {3.57717705343093*^9, 3.577177083009467*^9}, {3.577440220085044*^9, 3.577440309733041*^9}, { 3.577440404209971*^9, 3.577440404897953*^9}, {3.577440514207752*^9, 3.5774405545842876`*^9}, {3.577440616913389*^9, 3.577440618866145*^9}, { 3.577440935806287*^9, 3.577440937113554*^9}, 3.577441154579206*^9, { 3.577441184910445*^9, 3.5774413180444098`*^9}, {3.577441370582193*^9, 3.5774415959637127`*^9}, {3.577441763017984*^9, 3.5774419459346113`*^9}, { 3.577442156541094*^9, 3.5774421953522997`*^9}, {3.577457906966424*^9, 3.577457907186198*^9}, {3.577597106084291*^9, 3.5775971067631197`*^9}, { 3.5775971556479483`*^9, 3.577597192043353*^9}, {3.57759724326101*^9, 3.5775972441317987`*^9}, {3.5775972876700487`*^9, 3.577597290168428*^9}, { 3.577597414343864*^9, 3.57759741636696*^9}, {3.5775975809800253`*^9, 3.5775975818990183`*^9}, {3.5775977341934013`*^9, 3.5775977512301407`*^9}, {3.577597929457534*^9, 3.577597929927762*^9}, { 3.577599257001355*^9, 3.577599265491398*^9}, {3.577599382995543*^9, 3.5775996382957706`*^9}, {3.57759996255772*^9, 3.577599967736058*^9}, { 3.577600340898282*^9, 3.577600422370391*^9}, {3.5776004752558403`*^9, 3.577600475439385*^9}, {3.577600578911014*^9, 3.577600608960362*^9}, { 3.577600670082762*^9, 3.577600718056077*^9}, {3.5776007563050013`*^9, 3.577600808675623*^9}, {3.577600849192411*^9, 3.577600851894465*^9}, { 3.57760090014793*^9, 3.5776009343504744`*^9}, 3.577600977016616*^9, { 3.577601022974963*^9, 3.5776010506776133`*^9}, {3.577601194495173*^9, 3.577601197546342*^9}, {3.577601633311906*^9, 3.577601635029415*^9}, { 3.5776806938290987`*^9, 3.5776807018468657`*^9}, {3.577681148715567*^9, 3.577681176348791*^9}, {3.5776812566215763`*^9, 3.577681261015019*^9}, { 3.57768131101682*^9, 3.577681337313114*^9}, {3.577681393217267*^9, 3.577681393395359*^9}, {3.577698490415572*^9, 3.57769857877654*^9}, { 3.5776986758429337`*^9, 3.577698707699669*^9}, {3.577698812752965*^9, 3.577698841844946*^9}, {3.577698873603722*^9, 3.577698942688799*^9}, { 3.5776990986935253`*^9, 3.577699118185672*^9}, {3.5776993888843193`*^9, 3.577699394177565*^9}, {3.577699617277738*^9, 3.577699633573032*^9}, { 3.5776997606241198`*^9, 3.577699907838092*^9}, {3.5777025975003967`*^9, 3.577702814406499*^9}, {3.577703906035803*^9, 3.577703939535818*^9}, { 3.583666589091103*^9, 3.58366659115027*^9}, {3.63181612577455*^9, 3.6318161609597607`*^9}}] }, WindowSize->{1280, 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[400, 13, 191, 5, 46, "Input"], Cell[594, 20, 200, 4, 46, "Input"], Cell[797, 26, 26463, 460, 641, "Input"], Cell[27263, 488, 78977, 1793, 1695, "Input"] } ] *)