比较两个不工作的浮点数 Maple 18答案

【问题标题】：Compare Two Floats Not Working Maple 18比较两个不工作的浮点数 Maple 18
【发布时间】：2014-12-02 21:49:12
【问题描述】：

我正在尝试比较两个浮点数，如果它更大，则将 tempdiffer 设置为不同，但它总是以最后一个函数值结束。这是非常基本的，但它没有设置为最高值。谁能指出我正确的方向？

with(orthopoly):
chebpade(BesselJ(1, x), x = -1 .. 1, [3, 4]):
Ttest := subs(T = orthopoly[T], chebpade(BesselJ(0, x), x = -1 .. 1, [3, 4])):
plot([Ttest, BesselJ(0, x)], x = -1 .. 1);
b := evalf(subs(x = -1, BesselJ(0,x))):
t := evalf(subs(x = -1, Ttest)):
differ := abs(t-b/t):
for i from -1 by 1 to 1 do 
    b := evalf(subs(x = i, BesselJ(0,x))):
    t := evalf(subs(x = i, Ttest)):
    tempdiffer := abs(t-b/t):
    if tempdiffer > differ then
        differ := tempdiffer;
    end if:
end do;

【问题讨论】：

标签： maple

【解决方案1】：

t-b 周围需要括号。

您正在计算abs(t - (b / t))，这给了您t 的一小部分（假设b 和t 几乎相等）。你想要的是abs((t - b) / t)，它会给你他们作为t的一小部分的差异。

【讨论】：