In[]:=
First/@Take[Import["/Users/sw/Dropbox/Physics/Data/23-33-ManifoldSearch/2.wxf"],5]
Out[]=
In[]:=
Binarize[
,.9]
Out[]=
In[]:=
dataprep[list_]:=Button[ImageAdjust[First[#]],Print[Last[#]]]&/@list
In[]:=
FeatureSpacePlot[dataprep@Import["/Users/sw/Dropbox/Physics/Data/23-33-ManifoldSearch/2.wxf"]]
Out[]=
This doesn’t seem to work, because of interaction between Button and FeatureSpacePlot:
In[]:=
selector00[data_]:=Module[{acc={}},{FeatureSpacePlot[Button[Tooltip[#,#]&[ImageAdjust[First[#]]],AppendTo[acc,Last[#]]]&/@data,ImageSize800,LabelingFunction(#1&)],Column[{Button["Clear",acc={}],Button["Copy",CopyToClipboard[acc]]}]}]
In[]:=
selector[Import["/Users/sw/Dropbox/Physics/Data/23-33-ManifoldSearch/2.wxf"]]
Out[]=
Production Code
Production Code
In[]:=
selector[data_]:=Module[{acc={},di=ImageAdjust[First[#]]&/@data,dr,list},dr=DimensionReduce[First/@data,2];list=Transpose[{di,dr,Last/@data}];{Graphics[Inset[Button[Tooltip[Image[#1,ImageSize30],#1],AppendTo[acc,#3]],#2,BackgroundTransparent]&@@@list,ImageSize1000],Column[{Button["Clear",acc={}],Button["Copy",CopyToClipboard[acc]]}]}]
In[]:=
selector[Import["/Users/sw/Dropbox/Physics/Data/23-33-ManifoldSearch/2.wxf"]]
Out[]=
In[]:=
dopix[list_]:=InteractiveListSelectorSW[ParallelMapMonitored[FinalPicture[#,{{0,0,0},{0,0,0}},150]#&,list]]
In[]:=
InteractiveListSelectorSW[FinalPicture[#,{{0,0,0},{0,0,0}},150]#&/@{{{1,1,1},{1,2,3}}{{3,3,3},{3,4,1},{3,4,2}},{{1,1,1},{1,2,3}}{{2,2,2},{2,4,1},{4,3,1}},{{1,1,1},{1,2,3}}{{2,2,2},{2,1,4},{3,4,2}},{{1,1,1},{1,2,3}}{{3,3,3},{3,4,2},{4,1,2}},{{1,1,1},{1,2,3}}{{2,2,2},{2,4,3},{4,1,2}},{{1,1,1},{1,2,3}}{{2,2,2},{2,4,1},{4,1,3}},{{1,1,1},{1,2,3}}{{2,2,2},{2,1,4},{3,4,1}},{{1,1,1},{1,2,3}}{{3,3,3},{3,4,1},{2,1,4}},{{1,1,1},{1,2,3}}{{2,2,2},{2,1,4},{2,3,4}},{{1,1,1},{1,2,3}}{{3,3,3},{3,1,4},{4,1,2}},{{1,1,1},{1,2,3}}{{2,2,2},{3,2,4},{1,3,4}},{{1,1,1},{1,2,3}}{{2,2,2},{2,3,4},{4,3,1}}}]
Main Run
Main Run
ct=62 failed