Wolfram – Using Tables And Drawing

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}]]