## Draw geometric curve of Quadratic equation

Here is a simple quadratic equation:

Draw its geometric curve by wolfram.

We can use `Table`

to calculate all discrete values in special range.

`Table[2*x^2 + 1, {x, -10, 10}]`

{201, 163, 129, 99, 73, 51, 33, 19, 9, 3, 1, 3, 9, 19, 33, 51, 73,

99, 129, 163, 201}

Let’s use Plot to draw the curve of

`Plot[2*x^2 + 1, {x, -10, 10}]`

## Make a number line plot of the first 20 squares.

`ListLinePlot[Table[x^2, {x, 20}]]`

### Make a list of the even numbers (2, 4, 6, …) up to 20.

`Table[2*x, {x, 1, 10}]`

.

`{2, 4, 6, 8, 10, 12, 14, 16, 18, 20}`

### Use Table to get the same result as Range [10].

`Table[x, {x, 10}]`

`Range[10]`

=>

`{1, 2, 3, 4, 5, 6, 7, 8, 9, 10}`

### Make a table of lists of digits for the first 10 squares.

`IntegerDigits[Table[x^2, {x, 1, 10}]]`

`{{1}, {4}, {9}, {1, 6}, {2, 5}, {3, 6}, {4, 9}, {6, 4}, {8, 1}, {1, 0,`

0}}

## Make a bar chart of the first 10 squares.

`BarChart[Table[n^2, {n, 1, 10}]]`