Draw a circle and an inner circle


Graphics[{Circle[{0, 0}, 1], Circle[{0, -0.5}, 0.5]}]

Draw 10 circles which has center (i,i) and i is in {1,10}


Graphics[Table[Circle[{i, i}, 0.5], {i, 10}]]

Connect 10 points which is at (i,i)

data = Table[{i, i}, {i, 10}]  ListLinePlot[data]  

Or: Graphics[Line[data]]


ListLinePlot[{{1, 1}, {2, 3}, {3, 2}, {4, 5}, {5, 4}}]

Draw all random points as circles


Graphics[Table[Circle[RandomInteger[100, 2]], 200]]

Draw two 3D spheres


Graphics3D[{Sphere[{0, 0, 0}], Sphere[{0, 2, 0}]}]

Make 10 concentric circles with random colors

circles = Table[Style[Circle[{0, 0}, r], RandomColor[]], {r, 1, 10}]  Graphics[circles]  

Create 5 × 5 number grid


Grid[Table[(i - 1)*5 + j, {i, 5}, {j, 5}]]

Visualize values in an array. Larger values are shown darker.


ArrayPlot[Table[(i - 1)*5 + j, {i, 5}, {j, 5}]]

Make a line in 3D that goes through 50 random points with integer coordinates randomly chosen up to 50


Graphics3D[Table[Point[RandomInteger[50, 3]], 50]]


Graphics3D[Line[Table[RandomInteger[50], 50, 3]]]

Categories: Math

0 Comments

Leave a Reply

Your email address will not be published. Required fields are marked *

You cannot copy content of this page