前提オブジェクト 任意の3つの線分からなるリストsegmentList 目的のオブジェクト If[Length[Unique[Flatten[Zip[{Point[α, 0], Point[α, 1]}, α, segmentList]]]] ≟ 3 ∧ (Min[Unique[segmentList]] ≠ 0) ∧ Length[Unique[segmentList]] ≟ 3 ∧ (Area[Polygon…

0,1,2,3, 0,1,2,3, 0,1,2,3,... のように、 0を含み、最大値を含まないループ（0 <= 数値 < 最大値）は、 Mod[ <数値>, <最大値> ] で得られます。 上の例では、数値オブジェクトnを作成し、さらに、数値オブジェクト loop = Mod[n, 4] を作成すれば、nをス…