已知三边形一内角为60度, 周长为3, 三边形面积最大值=0.4330127。
已知四边形一内角为60度, 周长为4, 四边形面积最大值=0.9413205。
已知五边形一内角为60度, 周长为5, 五边形面积最大值=1.5464739。
已知六边形一内角为60度, 周长为6, 六边形面积最大值=2.2737641。
已知七边形一内角为60度, 周长为7, 七边形面积最大值=3.1282941。
已知八边形一内角为60度, 周长为8, 八边形面积最大值=4.1117736。
已知九边形一内角为60度, 周长为9, 九边形面积最大值=5.2249376。
......
0.4330127, 0.9413205, 1.5464739, 2.2737641, 3.1282941, 4.1117736, 5.2249376, 6.4681547, 7.8416298, 9.3454862, 10.979802, 12.744630, 14.640007, 16.665958, 18.822502, 21.109654}
四舍五入后得到这样一串数。
0, 1, 2, 2, 3, 4, 5, 6, 8, 9, 11, 13, 15, 17, 19, 21, 24, 26, 29, 32, 35, 38, 41, 44, 48, 51, 55, 59, 63, 67, 71, 75, 80, 85, 89, 94, 99, 104, 110, 115,
121, 126, 132, 138, 144, 150, 157, 163, 170, 177, 183, 190, 198, 205, 212, 220, 227, 235, 243, 251, 259, 268, 276, 285, 293, 302, 311, 320,
329, 339, 348, 358, 367, 377, 387, 397, 408, 418, 429, 439, 450, 461, 472, 483, 494, 506, 517, 529, 541, 553, 565, 577, 590, 602, 615, 627,
640, 653, 666, 680, 693, 707, 720, 734, 748, 762, 776, 790, 805, 820, 834, 849, 864, 879, 894, 910, 925, 941, 957, 972, 988, 1005, 1021, ...}
- Table[NSolve[{(n - 2) a + b == Pi, (n - 2) x + 2 y == n, Pi/2 - a == ((n - 2) Pi - Pi/3)/(2 (n - 1)), x/ Sin[2 a] == R/Cos[a],
- y/ Sin[b] == R /Sin[Pi/6], ((n - 2) R^2 Sin[2 a] + 2 y*R*Sin[Pi/6 + b])/2 == S, R > 0, Pi > a > 0, Pi > b > 0}, {a, b, x, y, R, S}], {n, 3, 9}]
复制代码 |