登录
A130702号
Euler V=E-F+2中可能的边作为三次多项式的根,其形式为:P(x)=(x-V)*(x-F)*(x+E)=x^3+(E-V-F)*x^2+(V*F-E(V+F))*x=E*F*V在此处解出F(面、边、顶点)。
0
4, 8, 12, 16, 18, 20, 22, 24, 28, 30, 32, 36, 40, 42, 44, 48, 52, 54, 56, 60, 64, 66, 72
抵消
1,1
评论
欧拉V,F,E:V=E-F+2P(x)=(x-V)*(x-F)*(x+E)=x^3+(E-V-F)*x^2+(V*F-E(V+F))*x=E*F*V让(E-V-F-F)=-2 V+F=E+2的多项式立方和乘积:P=V*F I得到P(x。在例外组中:(减少到两个整数变量)p=16*m;m->{1,3,15}E=6*n;n->{1,2,5}程序为{-E,V,F}生成右根
配方奶粉
F根,例如:x^3+(E-V-F)*x^2+(V*F-E(V+F))*x=E*F*V,并且非常类似(四面体、立方体、八面体、十二面体、二十面体)
例子
获取四面体(立方体、八面体)根的程序,
(十二面体,
二十面体):
a={1,2,5}
b={1,3,15}
g[n,m]:=x/。解[e[a[[m]]*p[b[[m]]-e[a[m]]]*(e[a[[
m] ]]+2)*x+p[b[[m]]*x-2*x^2+x^3==0,x][[n]]
表[g[n,m],{n,1,3},{m,1,3}]
{{-6, -12, -30}, {4, 6, 12}, {4, 8, 20}}
数学
ExpandAll[(x-v)*(x-f)*(x+e)];e[n]:=6*n;p[m]:=16*m;a0=表格[If[IntegerQ[x/.求解[e[m]*p[p0]-e[m]*(e[m]+2)*x+p[p0]*x-2*x^2+x^3==0,x][[1]]]&&IntegerQ[x/.Solve[e[m]*p0]-e[m]*(e[m]+2)*x+p0]*x-2*x^2+x^3==0[e[m]*p[p0]-e[m]*(e[m]+2)*x+p[p0]*x-2*x^2+x^3==0,x][[3]],{Abs[x]/。求解[e[m]*p[p0]-e[m]x*x+p[p0]*x-2*x^2+x^3==0,x][[3]},{}],{m,1,12},}
关键词
非n,未经编辑的
作者
罗杰·巴古拉2007年7月6日
状态
经核准的