※ 引述《candy88257 (阿泰斯)》之銘言：
: 例如:
: 今天有某個方程式解出來的解是:
: {3i,2i,i,2,3,1+i,1-i}
: 很奇怪，它為啥要把1+-i放在最後面?
: 有辦法快速將1+i跟1-i放在"其絕對值大小的位置"嗎?
: 也就是讓它變成:
: {3i,2i,1+i,1-i,i,2,3}
: 求高手解惑!!
: 感謝!!!!
mysort[mylist_List]:=Block[{temp1,temp2},
temp1=Reverse[Sort[{Abs[Im[#]],#}&/@
Select[mylist,Head[#]==Complex&]]][[All,2]];
temp2=Sort[Complement[mylist,temp1]];
Flatten[{temp1,temp2}]
]
list = {3 I, 2 I, 1 + I, 1 - I, I, 2, 3}
mysort[list]