Mathematica中怎么完成如果其中一个数组的最小值是复数，则选择另一个数组的最小值；如果两个数组的最小值都不是复数，返回两者中较小的那个

在Mathematica中，你可以使用`Min`函数以及`ComplexExpand`和`Im`（虚部）来实现这个逻辑。首先，你需要比较两个数组的最小值，如果它们都是实数，就直接取最小值；如果有复数出现，那就先展开复数，然后只考虑虚部，因为实数部分不影响整体的最小值。以下是相应的代码示例：

Clear[minComplex]
minComplex[array1_, array2_] := 
 Module[{realPartMin, complexPartMin},
  realPartMin = Min[Map[Re, {array1, array2}]];
  complexPartMin = Min[Map[Im, {array1, array2}], Infinity];
  If[! ComplexQ[realPartMin], realPartMin,
   If[complexPartMin == Infinity, Min[array1, array2],
    Min[realPartMin, -complexPartMin]]]
 ]

这里，我们首先计算每个数组的实部最小值，然后处理虚部。如果任一实部最小值不是复数，我们就返回它。如果都是复数，我们会检查虚部，如果虚部都是正无穷大（表示有一个数组的所有元素都是实数），那么直接返回两个数组的最小实数值。如果虚部不是正无穷大，我们取两者中的较小值。