Mathematica，剩下的零

Question

我正在努力摆脱输出中Mathematica中几乎为零的表达式。 例如：

    pVec = Table[{i, Exp[-i*0.03]}, {i, 0, 2.5, 1/2}]; 

    pVec[[2, 2]] = p1; 
    pVec[[3, 2]] = p2; 
    pVec[[4, 2]] = p3; 
    pVec[[5, 2]] = p4; 
    pVec[[6, 2]] = p5; 

    qq = Interpolation[pVec, InterpolationOrder -> 1]; 

>> qq[0.5] 
>> 0. (1 - p1) + p1 

0*(1-p1)显然是零，但我找不到摆脱它的方法？ （我对Mathematica相对较新......）简化没有工作，N[ ]也没有工作FullSimplyfy[ ]。

有什么建议吗？因为在使用这种插值的大表达式中，这些零表达式累积...并且我有10行答案而不是常量。

Answer 1

我认为您需要的功能是Chop。

从帮助：“Chop[expr]将expr中的近似实数替换为接近于零的精确整数0”

例如：

Chop@qq[0.5]
Chop[0.` (1 - p1) + p1]

两者都作为输出：

P1