{{-0.23, -0.23, -0.225589}, {-0.2253, -0.2253, -0.14235}, {-0.2206, \ -0.2253, -0.0879649}, {-0.2159, -0.2253, -0.0349218}, {-0.2112, \ -0.2253, -0.00326249}, {-0.2065, -0.2253, -0.00477785}, {-0.2018, \ -0.2253, -0.02718}, {-0.1971, -0.2253, -0.046182}, {-0.1924, -0.2253, \ -0.04644}, {-0.1877, -0.2253, -0.0276063}, {-0.183, -0.2253, \ -0.0039083}, {-0.1783, -0.2253, -0.0091262}, {-0.1736, -0.2253, \ -0.112377}, {-0.1689, -0.2253, -0.445319}, {-0.1642, -0.2253, \ -1.21895}, {-0.1595, -0.2253, -2.64622}, {-0.1548, -0.2253, -4.70044}} 请问，如何删除这个数组中绝对值大于0.2的元

请问大家，如果我想用Eigensystem求解一个矩阵时，如何对本征值和本征态排序，也就是Eigensystem中如何对本征值排序的，比如我想让本征值从大到小排序，并且呢本征态也是按照本征值的顺序排列

请问Abs里加for循环会报错是吧？ 例如Abs[1 + For[n = 2, n <= 3, n++, 3 n;]]；又或者我想定义一个函数 su1[rx_, ry_] := Abs[Sum[Exp[I*(K[[i]].{rx, ry})]*ee[[2, damu]][[2 i - 1]], {i, 1, 6, 2}] + Sum[ Exp[I*(K[[i]].{rx, ry})]*ee[[2, damu]][[2 i - 1]], {i, 8, 12, 2}] + For[n = 2, n <= m, n++, Sum[Exp[I*(K[[i]].{rx, ry})]*ee[[2, damu]][[2 i - 1]], {i, 6 n*(n - 1) + 1, 6 n*(n - 1) + n}] + Sum[Exp[I*(K[[i]].{rx, ry})]*ee[[2, damu]][[2 i - 1]], {i, 6 n*(n - 1) + 2 n + 1, 6 n*(n - 1) + 3 n}] + Sum[Exp[I*(K[[i]].{rx, ry})]*ee[[2, damu]][[2 i - 1]], {i, 6 n*(n - 1) + 4 n + 1,

mathematica能进行for循环的嵌套吗

像这种取点该怎么写代码呢，谢谢！