显示1-1个结果(共1个)。
第页1
n X n网格(或地理板)上锐角三角形的数量,相异到全等。
+0 4
0, 0, 2, 8, 23, 51, 101, 179, 295, 460, 688, 988, 1382, 1876, 2495, 3258, 4191, 5298, 6613, 8166, 9973, 12065, 14472, 17208, 20341, 23873, 27838, 32282, 37238, 42734, 48840, 55573, 62973, 71067, 79934, 89640, 100172, 111613, 123959, 137336, 151842
例子
对于n=3,两个锐角三角形为:
*.. .*.
..* *..
*.. ..*
MAPLE公司
三角形:=proc(n)局部三角形集,i,j,k,l,A,B,C;三角形集:={}:对于i从0到n,对于j从0到n,对于k从0到ndo,对于l从0到n-do A:=i^2+j^2:B:=k^2+l^2:C:=(i-k)^2+(j-l)^2:如果A^2+B^2+C^2<>2*(A*B+B*C+C*A),则三角形集:od:od:od:返回(TriangleSet);结束时间:
IsAcuteTriangle:=proc(T),如果T[1]^2+T[2]^2>T[3]^2和T[1]|2+T[3]^2>T[2]和T[2]^2+T[3]^2>T[1]^2,则true-else false fi:结束:
a: =proc(n)局部三角形集,AcuteTriangleSet,i;三角形集:=三角形(n):AcuteTriangleSet:={}:对于i从1到nops(TriangleSet),如果IsAcuteTringle(TrianglesSet[i]),那么AcuteTrianleSet:={op(AcuteTringeSet[i]}fi:od:return(nops(Acute三角形集));结束时间:
扩展
a(21)-a(40)来自马丁·瑞诺2011年5月8日
搜索在0.005秒内完成
|