tcl - 计算百分比增加时出现异常。如何进行？

Question

我正在使用以下公式来找到增加的百分比，

( (final_amount - original_amount) / original_amount ) * 100

我的原始金额为零，最终金额为 1000。我收到被零除的错误。

如果我的最终金额也是 0 会发生什么？

我该如何找到 %increase ？

提前致谢。

Answer 1

很简单：你不能！

您正在应用此等式的倒数：

original + original * amount/100 = final

你的未知数是数量。但是，当original为0时，等式的左侧始终为0并且您有0 = final，无论数量是多少。

---

编辑

如果您想从 0 增加到任何被视为100的值，您可以使用以下if语句：

if { $origina_amount == 0 } {
    set increase 100
} else {
    set increase [expr {($final_amount - $origina_amont) / $original_amount * 100}]
}