抛砖引玉。
arctan(x) = x - x^3/3 + x^5/5 - x^7/7 + ...
infinity
= SUM (-1)^(i+1) * (x^i) / i
i = 1
因为tan(pi/4) = 1, 所以 pi/4 = arctan(1), 所以pi = 4 * (1 - 1/3 + 1/5 - 1/7 + ...)
假设计算精度是前n项,就有
function calculate_pi(n)
Local total
While n >= 1
total = total + (-1)^(n+1)/n
n = n - 1
End While
Return n * 4
End
因为楼主并未说明是什么型号的图形计算机,而我又很久没写过TI-BASIC了,所以不一定能通过语法检查。
另外这个级数收敛没有其他一些更好的级数快,所以还有更好的级数计算pi的。