|
m=50；（*最大周长*）
sides[per_]：=选择[Reverse/@Integer Partitions[per，{3}，Range[Ceiling[per/2]]]，#[[1]]<per/2&#[2]]<per/2&#[[3]]<per/2；
三角形=删除事例[表[sides[per]，{per，3，m}]，{}]//平展[#，1]//SortBy[Total[#]m^3+#[1]]m^2+#[2]]m+#[1]]；
面积[{a_，b_，c}]：=与[{p=（a+b+c）/2}，平方[p（p-a）（p-b）（p-c）]//圆]；
| 