High-Res: (1000x1000)Mathematica code:
Graphics[
Table[
Circle[{20*Cos[i*Pi/25], 20*Sin[i*Pi/25]},
.7 + (50 - n) (1 + Sign[50 - n])/2],
{n, 0, 50, 1}, {i, 0, 24, 1}],
PlotRange -> 8, ImageSize -> 500]
Reblogged from Proof
High-Res: (1000x1000)Mathematica code:
Graphics[
Table[
Circle[{20*Cos[i*Pi/25], 20*Sin[i*Pi/25]},
.7 + (50 - n) (1 + Sign[50 - n])/2],
{n, 0, 50, 1}, {i, 0, 24, 1}],
PlotRange -> 8, ImageSize -> 500]
High-Res: (1000x1000) PDF
Mathematics & Art
wowowow legit. hurts my eyes though. wish i knew how to use matlab and mathematica