我想使用 R 計算以下序列，沒有回圈，即回圈。
1 (2/3) ((2/3)*(4/5)) ((2/3)*(4/5)*(6/7)) ... ((2/3)*(4/5)*...(20/21))
到目前為止，我嘗試了使用序列和 while 函式的不同方法，但找不到合適的解決方案。幫助將不勝感激。
uj5u.com熱心網友回復：
我們可能會使用 cumprod
v1 <- seq(2, 20, by = 2)
v2 <- seq(3, 21, by = 2)
1 sum(cumprod(v1/v2))
[1] 4.945724
-手動計算
1 (2/3) ((2/3)*(4/5)) ((2/3)*(4/5)*(6/7)) ((2/3)*(4/5)*(6/7) * (8/9)) ((2/3)*(4/5)*(6/7) * (8/9) * (10/11)) ((2/3)*(4/5)*(6/7) * (8/9) * (10/11) * (12/13)) ((2/3)*(4/5)*(6/7) * (8/9) * (10/11) * (12/13) * (14/15)) ((2/3)*(4/5)*(6/7) * (8/9) * (10/11) * (12/13) * (14/15) * (16/17)) ((2/3)*(4/5)*(6/7) * (8/9) * (10/11) * (12/13) * (14/15) * (16/17) * (18/19)) ((2/3)*(4/5)*(6/7) * (8/9) * (10/11) * (12/13) * (14/15) * (16/17) * (18/19) * (20/21))
[1] 4.945724
轉載請註明出處，本文鏈接：https://www.uj5u.com/shujuku/358125.html