# Tag Info

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]}]

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 ...

0

This is how you can do what you are asking for. np = 6 (*no of k points*) ne = 8 (*no of bands*) norm = Table[ Map[Norm[#] &, (data[[i, 2]] - data[[i - 1, 2]])], {i, 2, np}]; norm = Join[{Range[ne]}, norm]; (*norm contains Norm of difference between the eigen vectors. you can use some other quantity as well *) data1 = Map[Transpose[Join[{data[[#, 1]...

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, ...

1

This works for me: Clear[intfcurl]; intfcurl[x_?NumericQ, y_?NumericQ, z_?NumericQ] := With[{q = intfd[x, y, z]}, {q[[2, 3]] - q[[3, 2]], q[[3, 1]] - q[[1, 3]], q[[1, 2]] - q[[2, 1]]}] VectorPlot3D[intf[x, y, z] intfcurl[x, y, z], {x, -3, 3}, {y, -3, 3}, {z, 0, 1}] (But it helps not to have testdata based on a function with zero curl!)

Top 50 recent answers are included