Wolfram mathematica 如何统一间隔？

请帮帮我把你的名字统一起来

排队等候。。。输出根存在的间隔根：2.94和5,52。 我不得不考虑一句话：

如果区间{x*[i]，x[i+1]}和{x[i+1]，x**[i+1]}可以是方程的根，则范围{x*[i]，x**[i+1]}必须至少有一个根

因为第一根是2.94，它必须进入4个第一个区间，最后一个区间是5.52。因此，在考虑注释之后，该行应输出两个间隔。 我尝试使用Intervalionon，但它不起作用： 请帮我把这句话写在这行。

修改后的答案。有关&[]的说明，请参阅

根存在于：

{2.11731，3.3125}

{5.5,5.75}

修改后的答案。有关&[]的说明，请参阅

根存在于：

{2.11731，3.3125}

{5.5,5.75}

---

是的，有一种更简洁的方法。。一旦你有了Chris回答中的间隔列表，你只需做：

 IntervalUnion @@ intervals

---

*区间[{2.11731,3.3125}，{5.5,5.75}]*

是的，有一种更简洁的方法。。一旦你有了Chris回答中的间隔列表，你只需做：

 IntervalUnion @@ intervals

---

*Interval[{2.11731，3.3125}，{5.5，5.75}]*

谢谢，我正试图对列表进行操作。@Chris Degnen，@agentp请告诉我，不使用Interval=Sort@DeleteCases[MapThread[If]不是[0]Min@1 || Max@2<0]，3]&，{spfnpairs，spfwpairs，spxpairs}]，Null]，仅使用简单的IF？？？我已简化了我的答案。谢谢，我正在尝试对列表进行操作。@Chris Degnen，@agentp请告诉我，是否可以在没有间隔的情况下得到此结果=Sort@DeleteCases[MapThread[If]不是[0]Min@1 || Max@2<0]，3]&，{spfnpairs，spfwpairs，spxpairs}]，Null]，只是简单的如果？？？我简化了我的答案。

spxpairs = Interval /@ Partition[spx, 2, 1];
spfwpairs = Interval /@ Partition[spfw, 2, 1];
spfnpairs = Interval /@ Partition[spfn, 2, 1];

ans = Apply[IntervalUnion,
   If[Not[0 < Min@#1 || Max@#2 < 0], #3, ## &[]] &
    @@@ Transpose[{spfnpairs, spfwpairs, spxpairs}]];

Column[Prepend[List @@ ans, "Roots exist on :"], Spacings -> 1]

 IntervalUnion @@ intervals