wolfram-mathematica - 我怎样才能摆脱 Mathematica 中一个令人讨厌的前置因子？

Question

我正在尝试使用 Mathematica 将代数表达式提炼成一种方便的形式，以确保我不会丢掉一个符号或犯一些其他琐碎的错误。经过大量的咒骂，我开始接受这不是一个确定性的过程，我将不得不一步一步地去做，而且代数操作调色板是我的 friend 。然而，还有一件事让我发疯。有时，mathematica 会吐出带有这些看似无关的前导表达式的表达式。例如，我现在正在查看:

0.5*(1.*Log[-1.*a^2 + 1.*bigr^2] - 1.*Log[1.*a^2 - 2.*a*bigr + 1.*bigr^2])

当我更愿意看的时候:

0.5*(Log[-a^2 + bigr^2] - Log[a^2 - 2.*a*bigr + bigr^2])

这不仅仅是一个外观问题，因为当我尝试将其应用于上述表达式中的一些明显的二次因式分解时，它会混淆 Factor[]。有什么干净的修复吗？

Answer 1

your = 0.5*(1.*Log[-1.*a^2 + 1.*bigr^2] - 1.*Log[1.*a^2 - 2.*a*bigr + 1.*bigr^2])
your  /. {1. -> 1, -1. -> -1}

(* -> 0.5 (Log[-a^2 + bigr^2] - Log[a^2 - 2. a bigr + bigr^2]) *)

1 之后的点告诉mathematica 将该数字视为非精确数量。比如

1. * 1/2
(* -> .5 *)

但是

1 * 1/2
(* -> 1/2 *)

如果您需要精确的结果，请在计算中使用精确的数量(1、2、1/2)而不是十进制数(1.、2.、0.5)