### 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, 3]]]

Categories: Math

Article Rating
Subscribe
Notify of 