Question

mathematica编写任意阶的艾米尔特多项式程序包 递推公式为 H0(x)=1 H1(x)=x Hn+1(x)=2xHn(x)-2nHn-1(x)

Hn+1 表示第（n+1）个数 求明天之前给出

Answer 1

……同学，这种的用RSolve不是秒杀吗，一行代码的事……看看RSolve指令的帮助吧。

追问

同学 你能写工整的给我吗？急求 还有什么程序流程图的

追答

……你不至于吧，这个真就是一行啊：

sol=RSolve[{Subscript[h, n + 1] ==
2 x Subscript[h, n] - 2 n Subscript[h, n - 1],
Subscript[h, 0] == 1, Subscript[h, 1] == x}, Subscript[h, n], n]

嗯，贴出来显得有点长了，但这在软件里就是一行。（Subscript是下标函数。）

要调用计算的话，比如要算个n=10的，就用这个：
Subscript[h, n] /. sol /. n -> 10

追问

我可能说的不仔细。不是指用这个软件去计算这个结果
要求是指用mathematica 语言 写一个能产生这样随机数序列的程序包结构 。题目是在计算物理这门科里出现的。

追答

没听懂……可是通项都算出来了那接下来要干什么不都随便你……

追问

哎 反正重要的不是这个通项 可以是任意的一个 重要的是产生的这个随机数序列 这个数列可能被用来进行模拟抽样 就是进行别的用途

追答

不明白……这都已经产生了确定的通项了，要如何再产生随机数啊？不了解具体的背景，我也帮不了你了……