In[]:=
Quit
In[]:=
<<RQA`
henon generator
henon generator
plot utility
plot utility
In[]:=
mapplot[rm_]:=ArrayPlot[rm,DataReversedTrue,FrameTicksNone,ImageSize500,PlotLegendsAutomatic,ColorFunction(If[#0,GrayLevel[0.99],ColorData["GrayYellowTones"][#]]&)]
stuff
stuff
Really simple sample
Really simple sample
In[]:=
rmx=SparseArray1-ReverseImageData
Out[]=
SparseArray
In[]:=
mapplot[rmx]
Out[]=
In[]:=
RQARecurrence[rmx]//N
Out[]=
0.422222
In[]:=
mapplot[RQA`Private`diagonalSegments[rmx]]
Out[]=
In[]:=
RQA`Private`diagonalSegments[rmx]//Normal
Out[]=
{{0.,0.,0.,1.,1.,1.,1.,0.,1.},{1.,0.,0.,0.,0.,0.,0.,1.},{1.,0.,0.,0.,0.,0.,0.},{1.,1.,1.,1.,0.,0.},{0.,0.,0.,0.,0.},{1.,1.,0.,1.},{0.,0.,1.},{1.,1.},{1.}}
In[]:=
RQA`Private`segmentLengths[RQA`Private`diagonalSegments[rmx]]
Out[]=
RQA`Private`segmentLengthsSparseArray,SparseArray,SparseArray,SparseArray,SparseArray,SparseArray,SparseArray,SparseArray,SparseArray
In[]:=
RQADiagonalLineLengths[rmx,"Dmin"1]
Out[]=
{4,1,1,1,1,4,2,1,1,2,1}
In[]:=
Options[RQADiagonalLineLengths]
Out[]=
{SymmetricTrue,Dmin2}
In[]:=
rmx
In[]:=
amess=Map[If[#1,RandomReal[],#]&,rmx,{2}]
Out[]=
SparseArray
In[]:=
mapplot[amess]
Out[]=
In[]:=
mapplot[RQA`Private`diagonalSegments[amess]]
Out[]=
Diagonal run lengths
Diagonal run lengths