WolframのWebサイトのコンテンツとインタラクトしたりフォームを送信したりするためには，JavaScriptを有効にしてください．有効にする方法

Wolfram言語＆システムドキュメントセンター

サイクル分解を色付けする

サイクル分解を色付けする

素数の頂点についての完全グラフのサイクル分解を色付けする．

Wolfram Language code:

ColoringCycles[n_] := Block[{i, e}, e = Table[Mod[#, n, 1]Mod[# + i, n, 1]& /@ Range[n], {i, (n - 1) / 2}];
	HighlightGraph[CompleteGraph[n, PlotLabel -> Style[n, 11, FontFamily -> "Verdana"]], Table[Style[e[[i]], ColorData[1][i]], {i, Length[e]}], ImageSize -> {150, 150}]];

Wolfram Language code: graphs = ColoringCycles[#]& /@ {3, 5, 7, 9, 11, 13};

Wolfram Language code: Grid[Partition[graphs, 3], Frame -> All, FrameStyle -> LightGray]

Top