利用 RStudio 計算
\[1.02^{0.03}+1.04^{0.06}+1.06^{0.09}+\cdots+1.66^{0.99}\]
options(digits=15) #增加有效位數至15位
sum <- 0
for (i in 1:33){sum <- sum + (1+0.02*i)^{0.03*i}}
cat("加總結果為", sum)## 加總結果為 40.2032203121522記錄一項項加總的累積過程：
options(digits=15)
sum <- 0
for (i in 1:33){sum <- sum + (1+0.02*i)^{0.03*i} ; cat("i=",i,"sum=",sum,"\n")}## i= 1 sum= 1.00059425531866
## i= 2 sum= 2.00295026915689
## i= 3 sum= 3.00820824578286
## i= 4 sum= 4.01748634791824
## i= 5 sum= 5.03188555898905
## i= 6 sum= 6.0524942072916
## i= 7 sum= 7.08039220193117
## i= 8 sum= 8.11665502432036
## i= 9 sum= 9.16235751389089
## i= 10 sum= 10.2185774823302
## i= 11 sum= 11.286399186976
## i= 12 sum= 12.3669166908907
## i= 13 sum= 13.4612371345026
## i= 14 sum= 14.5704839414804
## i= 15 sum= 15.6957999796365
## i= 16 sum= 16.8383506960869
## i= 17 sum= 17.9993272445943
## i= 18 sum= 19.1799496219453
## i= 19 sum= 20.3814698293411
## i= 20 sum= 21.6051750740856
## i= 21 sum= 22.8523910263182
## i= 22 sum= 24.1244851451438
## i= 23 sum= 25.422870088243
## i= 24 sum= 26.7490072188962
## i= 25 sum= 28.1044102243109
## i= 26 sum= 29.4906488591965
## i= 27 sum= 30.9093528286805
## i= 28 sum= 32.3622158248995
## i= 29 sum= 33.8509997319188
## i= 30 sum= 35.3775390140447
## i= 31 sum= 36.9437453030747
## i= 32 sum= 38.5516122006045
## i= 33 sum= 40.2032203121522