显示1-1个结果(共1个)。
第页1
T(n,m),平面摆精确微分时间依赖性的幂/傅里叶级数展开式中系数的分母。
+0 10
3, 15, 3, 315, 27, 27, 2835, 945, 27, 81, 155925, 2025, 2025, 135, 27, 6081075, 779625, 30375, 405, 243, 243, 638512875, 212837625, 654885, 42525, 8505, 1215, 729, 10854718875, 638512875, 58046625, 4465125, 127575, 3645, 729, 729
评论
按行读取三角形(参见示例)。的评论A274076号给出分数三角形的定义,它决定了与时间无关的解的微分时间依赖性的任意精度(参见。A273506型,A273507型)平面摆的运动方程。有关更多详细信息,请参见“相位空间几何的平面摆及其以外”(Klee,2016)。
例子
n\m |1 2 3 4
---+---------------------
1 | 3;
2 | 15, 3;
3 | 315, 27, 27;
4 | 2835, 945, 27, 81;
数学
R[n_]:=平方[4 k]加[1,总计[k^#R[#,Q]&/@范围[n]]]
Vq[n_]:=总计[(-1)^(#1)(r Cos[Q])^(2#)/((2#)!)&&@范围[2,n]]
r规则[n_]:=使用[{H=ReplaceAll[1/2r^2+(Vq[n+1]),{r->r[n]}]},
函数[{rules},Nest[Rule[#[[1]],ReplaceAll[#[2]],rules]]&/@#&,rules,n]][
压扁[R[#,Q]->展开[(-1/4)ReplaceAll[系数[H,k^(#+1)],{R[#、Q]->0}]&/@范围[n]]]
dt[n_]:=使用[{rules=RRules[n]},展开[Subtract[Times[Expand[D[R[n]/。规则,Q]],正常@系列[1/R[n],{k,0,n}]/。规则,Cot[Q]],1]]]
dt系数[n_]:=与[{dtn=dt[n]},函数[{a},系数[系数[dtn,k^a],Cos[Q]^(2(a+#))]和/@范围[a]]/@范围[n]]
压扁[分母[dt系数[10]]
搜索在0.005秒内完成
查找|欢迎光临|维基|注册|音乐|地块2|演示|索引|浏览|网络摄像头
贡献新序列。或评论|格式|样式表|变换|超级搜索|最近
OEIS社区|维护人OEIS基金会。
许可协议、使用条款、隐私政策。.
上次修改时间:美国东部夏令时2024年9月22日11:40。包含376114个序列。(在oeis4上运行。)
|