ハウツー 17 ステップを1つのセッション内で順に実行します。各ステップはエンジンで実行済みで、以下の出力は実際に生成されたものです。
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]31ListPlot[{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}]