- 注册时间
- 2013-10-24
- 最后登录
- 1970-1-1
- 威望
- 星
- 金币
- 枚
- 贡献
- 分
- 经验
- 点
- 鲜花
- 朵
- 魅力
- 点
- 上传
- 次
- 下载
- 次
- 积分
- 8854
- 在线时间
- 小时
|
发表于 2017-5-14 15:56:00
|
显示全部楼层
本帖最后由 kastin 于 2017-5-14 16:05 编辑
因为他们舍去了小量部分,所以要四舍五入,精确的通项公式不能舍去小量部分,并且恰好就能算得是整数。
这一点从斐波那契数列的通项公式就可得知——$$F_n=\frac{1}{\sqrt{5}}\left[\left(\frac{1+\sqrt{5}}{2}\right)^n-\left(\frac{1-\sqrt{5}}{2}\right)^n\right]\tag{1}$$上面方括号内第二项底数绝对值是0.618...,故其 `n` 次幂除以`\sqrt{5}`之后不超过0.5(`n\geqslant 1`),故可写成四舍五入形式:$$\mathrm{Round}\left(\frac{1}{\sqrt{5}}\left(\frac{1+\sqrt{5}}{2}\right)^n\right)\tag{2}$$当然,由于上面是二阶线性递推方程,特征根为两实单根(不同的实数),所以通项公式直接就能写出来;当特征根为两共轭虚根时候,通项公式最简形式就需要用三角函数表示了。
例如二阶递推式 `c_{n+2}=-2c_{n+1}-2c_n\;(c_1=c_2=1)` 有两共轭虚根 `-1\pm i`,标准通项公式为复数形式:$$\frac{i-1}{4}\left((1+2 i) (-1-i)^n+(2+i) (-1+i)^n\right)\tag{3.1}$$这个形式可以通过二项式定理展开合并,写成纯实数的多项式形式,但会非常复杂,且需要根据 `n` 模4的结果分好几类。
事实上,由于特征根为复数,其幅角为 `\D\pm\frac{3}{4}\pi`,因此通项公式可用欧拉公式实数化,结果必然是特征根模长的幂与该幅角 `n` 倍角正余弦的乘积项的形式:$$c_n=-2^{\frac{n}{2}-1} \left(\sin\frac{3 \pi n}{4} +3\cos \frac{3 \pi n}{4} \right)=-2^{\frac{n}{2}-1}\sqrt{10}\cos\left(\frac{3 \pi n}{4}-\arctan\frac{1}{3}\right)\tag{3.2}$$前面的根号2为特征根的模长。
同样,对于三阶线性递推方程,其特征方程是三次代数方程,特征根可能是三个实根,或者一个实根与一对共轭虚根。如果三个实根中存在二重根或者三重根的特殊情况,这些情况与单根情形不同,需要特殊处理。楼主的问题属于一个实根与一对共轭虚根情形,故仅讨论这种情况。因此通项公式是 `(1)` 和 `(3)` 的组合形式。类似地,也可以同样将共轭虚根写成三角函数形式化简。
$$a_n=\frac{1}{22\*3^{n+1} } \left(22+\sqrt[3]{847+33 \sqrt{33}}+\sqrt[3]{847-33 \sqrt{33}}\right) \left(1+\sqrt[3]{19+3 \sqrt{33}}+\sqrt[3]{19-3 \sqrt{33}}\right)^n+\frac{1}{11\*3^{n+1}}\sqrt{-22 \sqrt[3]{847+33 \sqrt{33}}+\left(847+33 \sqrt{33}\right)^{2/3}-22 \sqrt[3]{847-33 \sqrt{33}}+\left(847-33 \sqrt{33}\right)^{2/3}+396}\left(-\sqrt[3]{19+3 \sqrt{33}}+\left(19+3 \sqrt{33}\right)^{2/3}-\sqrt[3]{19-3 \sqrt{33}}+\left(19-3 \sqrt{33}\right)^{2/3}-3\right)^{\frac{n}{2}}\cos(\theta_1+n\theta_2)$$其中$$\theta_1=\arctan\frac{\sqrt{3} \sqrt[3]{11} \left(\sqrt[3]{77-3 \sqrt{33}}-\sqrt[3]{77+3 \sqrt{33}}\right)}{\sqrt[3]{847+33 \sqrt{33}}+\sqrt[3]{847-33 \sqrt{33}}-44},\theta_2=\arctan \frac{\sqrt{3} \left(\sqrt[3]{19+3 \sqrt{33}}-\sqrt[3]{19-3 \sqrt{33}}\right)}{\sqrt[3]{19+3 \sqrt{33}}+\sqrt[3]{19-3 \sqrt{33}}-2}-\pi.$$结果验证符合
- Subscript[\[Theta], 1] =
- Arg[1/3 -
- 1/264 (1 + I Sqrt[3]) Power[6776 - 264 Sqrt[33], (
- 3)^-1] - ((1 - I Sqrt[3]) Power[77 + 3 Sqrt[33], (3)^-1])/(
- 12 11^(2/3))];
- Subscript[\[Theta], 2] =
- Arg[1/3 - 1/6 (1 - I Sqrt[3]) Power[19 - 3 Sqrt[33], (3)^-1] -
- 1/6 (1 + I Sqrt[3]) Power[19 + 3 Sqrt[33], (3)^-1]];
- a[n_] = 1/
- 44 (44 + Power[6776 - 264 Sqrt[33], (3)^-1] +
- 2 Power[11 (77 + 3 Sqrt[33]), (3)^-1]) 3^(-n -
- 1) (1 + Power[19 - 3 Sqrt[33], (3)^-1] + Power[19 + 3 Sqrt[33], (
- 3)^-1])^n +
- 1/(11*3^(n +
- 1)) Sqrt[(-(19 + 3 Sqrt[33])^(1/3) + (19 + 3 Sqrt[33])^(2/
- 3) - (19 - 3 Sqrt[33])^(1/3) + (19 - 3 Sqrt[33])^(2/3) -
- 3)^n (-22 (847 + 33 Sqrt[33])^(1/3) + (847 + 33 Sqrt[33])^(2/
- 3) - 22 (847 - 33 Sqrt[33])^(1/3) + (847 - 33 Sqrt[33])^(2/
- 3) + 396)] Cos[
- Subscript[\[Theta], 1] + n Subscript[\[Theta], 2]] // Simplify
- a100 = RecurrenceTable[{x[n] == x[n - 1] + x[n - 2] + x[n - 3],
- x[1] == 1, x[2] == 2, x[3] == 4}, x[n], {n, 100, 100}]
- a[100] // N[#, 1+IntegerLength @@ a100] & (* 复杂根式100次方化简需要很长时间,也许根本电脑无法给出确定结果,但可通过数值验算到任意精度 *)
复制代码 |
|