Several auxiliary functions
In[]:=
Begin["`Private`"];
If your output will be a sequence of graphs, select a display option.
Display as:
individual images
a movie
both of the above
In[]:=
fixTicks[tl_] := (fac = If[ticLO === True, 0, 1]; Map[{#, If[# == Round[#], Round[#], #], {0, fac 0.01}}&, tl, {2}]); h[x_] := Which[ x >= 1 - .2, .2, x >= 2/3 - .1, .6, x >= 1/2 - .1, 1, x >= 1/3 - .17, .8, True, .4] elimDups1D[data_, tol_] := Module[{d = Sort[data]}, Union[FoldList[If[#2 < tol + #1, #1, #2]&, First[d], Rest[d]]]] elimDups2DOrdered[data_, tol_] := ( FoldList[If[(#2 - #1).(#2 - #1) < tol^2, #1, #2]&, First[data], Rest[data]] //. {aa___, {xx_?NumberQ, yy_}, {xx_, yy_}, cc___} :> {aa, {xx, yy}, cc}) normsq[x_, set_] := Min[(x-#).(x-#) & /@ set] elimDups2D[data_, tol_] := Fold[If[normsq[#2, #1] > tol^2, Append[#1,#2], #1] &, {First[data]}, Rest[data]] FilterOptions[c_Symbol, opts___] := Module[{keywords = First /@ Options[c], a}, a = Select[ {opts}, MemberQ[keywords, First[#]]& ]; If[ a == {}, a = Options[c][[{1}]]]; Sequence @@ a]
If your output will be a sequence of graphs, select a display option.
Display as:
individual images
a movie
both of the above
Up to
Initialization code: The NullclinePlot package