zeroieme 发表于 2020-12-10 15:00:58

Mathematica简化测试！Why？

Simplify[{Abs[(-Subscript Subscript+Subscript Subscript)],Abs[(-Subscript Subscript+Subscript Subscript)],Abs[(-Subscript Subscript+Subscript Subscript)]},Subscript>0&&Subscript>0&&Subscript>0&&Subscript>0&&Subscript>0&&Subscript>0&&Subscript/Subscript>Subscript/Subscript>Subscript/Subscript]

FullSimplify[{Abs[(-Subscript Subscript+Subscript Subscript)],Abs[(-Subscript Subscript+Subscript Subscript)],Abs[(-Subscript Subscript+Subscript Subscript)]},Subscript>0&&Subscript>0&&Subscript>0&&Subscript>0&&Subscript>0&&Subscript>0&&Subscript/Subscript>Subscript/Subscript&&Subscript/Subscript>Subscript/Subscript&&Subscript/Subscript>Subscript/Subscript]

chyanog 发表于 2020-12-10 15:56:23

How
assum=m1>0&&n1>0&&m2>0&&n2>0&&m3>0&&n3>0&&m3/n3>m2/n2>m1/n1;

expr={Abs[-m2 n1+m1 n2],Abs[-m3 n2+m2 n3],Abs[-m3 n1+m1 n3]};

PiecewiseExpand&)}]

FullSimplify&)}]&}]

zeroieme 发表于 2020-12-10 17:57:47

PiecewiseExpand[{Abs[-m2 n1 + m1 n2], Abs[-m3 n2 + m2 n3],
Abs[-m3 n1 + m1 n3]}, Reals,
Method -> {"ConditionSimplifier" -> (Reduce[# && n1 > 0 && n2 > 0 &&
      n3 > 0 && m3/n3 > m2/n2 > m1/n1 > 0] &)}]
页: [1]
查看完整版本: Mathematica简化测试！Why？