题目说要使用MH算法。

我的程序是：

我使用：
p <- f(n = 1000, x = 2)
但是不收敛。请问懂MH算法的朋友帮帮忙，看看哪出错了。