|
| |
|
| A282691型 |
| a（n）=任意2^（n+1）多项式c0+c1*x+c2*x^2+…+的最大实根数c_n*x^n，其中系数c_i是+1或-1。 |
|
2
|
|
|
|
0, 1, 2, 3, 2, 3, 2, 5, 4, 5, 4, 5, 4, 5, 6, 7, 6, 5, 6, 7, 6, 7, 6, 9
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
|
偏移
|
0.3
|
|
|
评论
|
根以多重数计算。
由于（+/-）P（（+/-，x）具有与P（x）相同的实根数，我们只需要考虑x^0和x^1系数为+1的情况-罗伯特·伊斯雷尔2017年2月23日
|
|
|
链接
|
|
|
|
例子
|
a（1）=1来自1+x。
a（2）=2，从1+x-x^2开始。
a（3）=3从1+x-x^2-x^3=（1+x）*（1-x^2）。
a（5）=3从x^5-x^4+x^3-x^2到x+1-罗伯特·伊斯雷尔2017年2月26日
a（7）=5来自x^7+x^6-x^5-x^4-x^3-x^2+x+1=（x-1）^2*（x+1）^3*（x^2+1）-柴华武和W·埃德温·克拉克2017年2月23日
|
|
|
MAPLE公司
|
numroots:=进程（p，x）
本地：
sturm（sturmseq（p，x），x，-无穷大，无穷大）：
结束进程：
a： =程序（n）
局部m、T、L、L1、p、p、s、k、q、u；
m： =0；
T： =组合：-cartprod（[seq（[1，-1]，i=1..n-1）]）：
而不是T[完成]do
五十： =T[下一个值]（）；
L1:=[1，1，op（L）]；
p： =加法（L1[i]*x^（i-1），i=1..n+1）；
q： =平方英尺（p，x）；
k： =0；
对于q[2]中的u，做k:=k+numroots（u[1]，x）*u[2]；od；
如果k>m，则m:=k；fi；
结束do：
返回m；
结束进程：
|
|
|
数学
|
Do[Print[Max[CountRoots[Internal`FromCoefficientList[#，x]，x]&/@Tuples[{1，-1}，n]]，{n，1，23}](*卢卡·佩特龙2017年2月23日*）
|
|
|
交叉参考
|
|
|
|
关键词
|
非n,更多
|
|
|
作者
|
|
|
|
扩展
|
a（7）修正，a（15）-a（16）增加柴华武2017年2月23日；a（7）也由修正W·埃德温·克拉克2017年2月23日
a（17）-a（22）由添加卢卡·佩特龙2017年2月23日
|
|
|
状态
|
经核准的
|
| |
|
|
