Hot answers tagged

3

I think this does what you want. exportToFolder[{dir_, data : {{_, _?MatrixQ} ..}}] := With[{path = "folder" <> ToString @ dir}, CreateDirectory @ path; Export[FileNameJoin[{path, ToString @ #}], #2, "Table"] & @@@ data; ] Make sure you first remove the TableForm wrapper from your data: rawoutput = First @ alloutput; Then your ...


3

I suppose Pick will help as well. For example: Pick[list, UnitStep[list[[;;,1]]-240],0] Pick[list, UnitStep[list[[;;,2]]-4000],0] The basic idea is to generate another list including information you want from the original list, then select using some criteria apply to the new list. Thus, this method is wider applicable: Simple select can be done easily ...


2

As Michael E2 said Select is an easy place to start. Example based on the measured value less than 4000: data = {{.1, 3.56}, {.2, 3.77}, {.3, 3.88}, {240.1, 8000}, {240.2, 8000}, {240.3, 7999}}; Select[data, #[[2]] < 4000 &] {{0.1, 3.56}, {0.2, 3.77}, {0.3, 3.88}} Example based on time less than 240: Select[data, #[[1]] < 240 &] ...


2

See FindPeaks[data,σ,s,t]finds only peaks with values greater than t. on FindPeaks peaks = FindPeaks[-list, 0.98, 0., 0.015] {{67,0.0213815},{127,0.160996},{189,0.0784903}} ListLinePlot[{-list, list}, Epilog -> {Red, PointSize[Large], Point[peaks]}]


2

Second try Manipulate[ Module[{x, yNum, yDen}, {x, yNum, yDen} = {"x-Axis", "y-Axis num", "y-Axis den"} /. data; Pane["<your stuff here>"[x, yNum, yDen], {400, 100}] ], (* selector for axis categories *) {{axis, "x-Axis", "select"}, {"x-Axis", "y-Axis num", "y-Axis den"}, SetterBar[ Dynamic[axis, (axis = #; axiselement = Lookup[data, ...



Only top voted, non community-wiki answers of a minimum length are eligible