房贷还款循环代码疑问：月还1750元的30年贷款计算是否正确？

原代码的核心错误 #

你的代码存在多处逻辑错误，导致结果完全不可信：

1. 月利率计算彻底错误：intm = (1 + i) ^ (1/12) 用循环变量i（月份数）代替年利率计算月利率，完全不符合房贷利率的计算逻辑。正确的月利率应为年利率除以12，即 4.75/100/12。
2. 余额更新逻辑错误：正确的房贷余额更新公式是 余额 = 余额 + 当月利息 - 月供，而你错误地用(intm*balance) - monthly_payment，且intm本身计算错误，导致余额变化完全偏离实际。
3. 循环终止逻辑无效：if(!i %% balance) 判断月份数是否能被余额整除，这和贷款还清的业务逻辑毫无关系，属于无意义的条件判断。
4. 业务逻辑矛盾：你设定的月供1750元不足以覆盖每月利息——第一个月利息约为 500000*4.75%/12≈1979元，月供比利息还少，贷款余额会逐月增加，永远无法还清。

正确的还款跟踪代码 #

以下是能准确模拟房贷还款过程的R代码：

# 初始化参数
initial_balance <- 500000
apr <- 4.75
monthly_payment <- 1750

# 计算按月复利的名义月利率（房贷通用计算方式）
monthly_rate <- apr / 100 / 12

balance <- initial_balance
month <- 0

# 循环跟踪还款状态
while (balance > 0) {
  month <- month + 1
  # 计算当月产生的利息
  monthly_interest <- balance * monthly_rate
  # 更新余额：本金+利息-月供
  balance <- balance + monthly_interest - monthly_payment
  
  # 打印每月明细（可选）
  cat("第", month, "个月：余额 =", round(balance, 2), "元，当月利息 =", round(monthly_interest, 2), "元\n")
}

运行这段代码会发现，每个月的余额都在持续增加（第一个月余额变为500229.17元），永远无法还清贷款——这是因为月供不足以覆盖利息导致的必然结果。如果想要在有限时间内还清贷款，月供至少需要大于每月利息（约1979元），比如按30年还清的话，月供约为2605元，此时代码会输出刚好360个月还清。

内容的提问来源于stack exchange，提问作者Claudia