|
Private Sub CommandButton1_Click()
x = Sheet1.Cells(1, 2)
Pi = Sheet1.Cells(1, 3)
x = x - Int(x / 2 / Pi) * 2 * Pi
Sum = 1
n = 1
eps = 10 ^ (-10)
Do
Sum = Sum * (1 - x ^ 2 / Pi ^ 2 / n ^ 2)
n = n + 1
Loop Until (x ^ 2 / Pi ^ 2 / n ^ 2 <= eps)
Sheet1.Cells(2, 2) = Sum * x
Sheet1.Cells(2, 3) = n
End Sub
Archiver|手机版|科学网 ( 京ICP备07017567号-12 )
GMT+8, 2024-9-27 10:11
Powered by ScienceNet.cn
Copyright © 2007- 中国科学报社