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

我用下面的公式来计算增长的百分比

( (final_amount - original_amount) / original_amount ) * 100

我原来的金额是零，最后的金额是，比如说，1000。我得到一个被零除的错误

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

我怎样才能找到增长的百分比呢

---

提前谢谢。

很简单：你不能

您正在应用与此等式相反的公式：

original + original * amount/100 = final

你的未知是多少。但是，当“原始”为0时，方程的左侧始终为0，并且无论数值是多少，都有0=最终值

---

编辑

如果希望从0增加到100，可以使用

If

语句：

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

---

我可以把百分比增加到100吗？100分制的无穷大是100。使用

if

语句区分这两种情况。我正在编辑我的答案以添加一些代码。一行代码版本：

设置增加[expr{$original\u amount？（$final\u amount-$original\u amount）/$original\u amount*100:100}]