放射環状図生成

T. Miyazaki

g[min_, max_, n_, m_] :=
Graphics[{Thick,
Circle[{0, 0}, #] & /@ (Range[0, n - 1]*(max - min)/(n - 1) + min),
Line[{{min Cos[#], min Sin[#]}, {max Cos[#],
max Sin[#]}} & /@ (Range[0, m]*2 Pi/m)]}]
Manipulate[
g[min, max, n, m], {{min, 1}, 0.1, max, 0.1}, {{max, 2}, min,
10}, {{n, 3}, 2, 10, 1}, {{m, 3}, 1, 10, 1}]


いいなと思ったら応援しよう！