Fatal编程技术网

Wolfram mathematica 如何在mathematica中生成不等式集列表

wolfram-mathematica

Wolfram mathematica 如何在mathematica中生成不等式集列表,wolfram-mathematica,Wolfram Mathematica,我想在Mma中执行以下操作。假设我有三个表达式，x1，3x1-x2，x2-x1，其中0 如果要与第二大或第三大/最小值进行比较，则可以使用RankedMax 至于解x2的问题-x2对应于每个x1有许多不同的值，所以你不能从传统意义上解它，你可以从RegionPlot RegionPlot[Max[eqs] >= 2 Min[eqs], {x1, 0, 1}, {x2, 0, 1}, PlotPoints -> 100] 使用Max和Min并在变量列表中的x1之前指定x2，如下所示

我想在Mma中执行以下操作。假设我有三个表达式，
x1，3x1-x2，x2-x1，其中
0
如果要与第二大或第三大/最小值进行比较，则可以使用
RankedMax

至于解x2的问题-
x2
对应于每个
x1
有许多不同的值，所以你不能从传统意义上解它，你可以从
RegionPlot


RegionPlot[Max[eqs] >= 2 Min[eqs], {x1, 0, 1}, {x2, 0, 1}, PlotPoints -> 100]



使用
Max
和
Min
并在变量列表中的
x1
之前指定
x2
，如下所示


In[1]:= Reduce[
         Max[x1, 3 x1 - x2, x2 - x1] >= 2 Min[x1, 3 x1 - x2, x2 - x1] && 
         0 <= x1 && x2 <= 1, 
         {x2, x1}]


[1]中的
：=Reduce[
最大值[x1，3x1-x2，x2-x1]>=2分钟[x1，3x1-x2，x2-x1]&

0@Yaroslav Bulatov:在版本中，对不起，没有mathematica 7.0 atm的访问权限，所以我无法测试it@Yaroslav布拉托夫：你还有什么建议吗？如果没有RankedMax，你需要明确说明可能性。例如，如果你想说a，b，c中的第二大值大于2，你可以说“(b@Yaroslav布拉托夫：在Mma 7.0中有没有任何方法可以编写自己的函数，这相当于Mma 8.0中的RankedMax？

RegionPlot[Max[eqs] >= 2 Min[eqs], {x1, 0, 1}, {x2, 0, 1}, PlotPoints -> 100]



In[1]:= Reduce[
         Max[x1, 3 x1 - x2, x2 - x1] >= 2 Min[x1, 3 x1 - x2, x2 - x1] && 
         0 <= x1 && x2 <= 1, 
         {x2, x1}]