Plot data

sdata = Table[1. Sin[2 i], {i, 0, 2 Pi, Pi / 12}]

{0., 0.5, 0.8660254037844386, 1., 0.8660254037844386, 0.5, 0., -0.5, -0.8660254037844386, -1., -0.8660254037844386, -0.5, 0., 0.5, 0.8660254037844386, 1., 0.8660254037844386, 0.5, 0., -0.5, -0.8660254037844386, -1., -0.8660254037844386, -0.5, 0.}

ListPlot[sdata]

-Graphics-

ListPlot[sdata, Filling -> Axis]

-Graphics-

ListPlot[sdata, PlotStyle -> {PointSize[Medium], Red}]

-Graphics-

ListLinePlot[sdata]

-Graphics-

cdata = Table[1. Cos[i  / 2], {i, 0, 2 Pi, Pi / 12}];

ListLinePlot[{sdata, cdata}]

-Graphics-

ListPolarPlot[cdata]

-Graphics-

data = Table[Sin[j ^ 2 + i ^ 2], {i, 0, Pi, Pi / 30}, {j, 0, Pi, Pi / 30}];

Length[data]

31

ListPlot[{data[[1]], data[[19]]}]

-Graphics-

ListLinePlot[{data[[1]], data[[19]]}]

-Graphics-

ListPointPlot3D[data]

-Graphics3D-

ListPlot3D[data]

-Graphics3D-

ListDensityPlot[data]

-Graphics-

ListContourPlot[data]

-Graphics-

Manipulate[ListPolarPlot[Table[Cos[i  / n] ^ m, {i, -k Pi, t Pi, Pi / d}], PlotStyle -> {PointSize[s], Red}, ImageSize -> {400, 400}, Axes -> None, PlotRange -> {{-1.1, 1.1}, {-1.1, 1.1}}], {{n, 0.32}, 0.1, 5, 0.01}, {m, 1, 4, 1}, {{t, 4.14}, 2, 6}, {{d, 100}, 10, 200, 10}, {{k, 4}, -1.5, 8}, {{s, 0.006}, 0.003, 0.01, 0.001}]

Manipulate[ListPolarPlot[Table[Cos[i/n]^m, {i, -(k*Pi), t*Pi, Pi/d}], PlotStyle -> {PointSize[s], Red}, ImageSize -> {400, 400}, Axes -> None, PlotRange -> {{-1.1, 1.1}, {-1.1, 1.1}}], {{n, 0.32}, 0.1, 5, 0.01}, {m, 1, 4, 1}, {{t, 4.14}, 2, 6}, {{d, 100}, 10, 200, 10}, {{k, 4}, -1.5, 8}, {{s, 0.006}, 0.003, 0.01, 0.001}]