- 注册时间
- 2021-11-19
- 最后登录
- 1970-1-1
- 威望
- 星
- 金币
- 枚
- 贡献
- 分
- 经验
- 点
- 鲜花
- 朵
- 魅力
- 点
- 上传
- 次
- 下载
- 次
- 积分
- 9086
- 在线时间
- 小时
|
发表于 2024-10-14 13:18:59
|
显示全部楼层
- Clear["Global`*"];(*mathematica11.2,win7(64bit)Clear all variables*)
- (*求出行列式的值*)
- aa=Table[{n,Det[Table[x+k*Boole[k==c],{k,n},{c,n}]]},{n,20}]
- (*求出行列式值的x项的系数*)
- bb=Coefficient[#[[2]],x]&/@aa
- (*求出通项公式函数*)
- cc=FindSequenceFunction[bb,n]//FullSimplify
复制代码
借你的锅下面
求出结果
行列式的值是
{{1, 1 + x}, {2, 2 + 3 x}, {3, 6 + 11 x}, {4, 24 + 50 x}, {5,
120 + 274 x}, {6, 720 + 1764 x}, {7, 5040 + 13068 x}, {8,
40320 + 109584 x}, {9, 362880 + 1026576 x}, {10,
3628800 + 10628640 x}, {11, 39916800 + 120543840 x}, {12,
17280 (27720 + 86021 x)}, {13, 17280 (360360 + 1145993 x)}, {14,
241920 (360360 + 1171733 x)}, {15,
3628800 (360360 + 1195757 x)}, {16,
29030400 (720720 + 2436559 x)}, {17,
29030400 (12252240 + 42142223 x)}, {18,
1567641600 (4084080 + 14274301 x)}, {19,
1567641600 (77597520 + 275295799 x)}, {20,
156764160000 (15519504 + 55835135 x)}}
x的系数是
{1, 3, 11, 50, 274, 1764, 13068, 109584, 1026576, 10628640, \
120543840, 1486442880, 19802759040, 283465647360, 4339163001600, \
70734282393600, 1223405590579200, 22376988058521600, \
431565146817638400, 8752948036761600000}
通项表达式是n! HarmonicNumber[n]
\[n! H_n\]
|
|