計算機科学のブログ

知識を広げる グラフィックのスタイル付けとカスタマイズ 座標軸、色、ラベル、メッシュ、境界ボックス、領域、グラフ、頂点、リスト、3Dの棒グラフ

ハンズ・オン・スタートMathematica® -Wolfram言語™によるプログラミング (C・ヘイスティング(著)、K・ミショー(著)、M・モリソン(著)、ウルフラム・リサーチ(翻訳)、丸善出版)の第2部(知識を広げる)、第12章(グラフィックのスタイル付けとカスタマイズ)の練習問題1、2、3、4、5、6、7、8、9、10の解答を求めてみる。

Plot[x^3+5x^2-11, {x, -6, 3},
    Filling -> Bottom]
Output

plot sin x / x red

Plot[Sin[x]/x, {x, -9.4, 9.4}, PlotStyle -> Red]
Output
Plot[{Sin[x]/3, Cos[x]/5}, {x, -10, 10}, Axes -> None]
Output
Plot[{x^2-5,2x^2 + 3x - 5, x+2}, {x, -5, 5},
    PlotLegends -> {1, 2, 3}]
Output
Plot3D[Sin[x^2-y], {x, -Pi, Pi}, {y, -Pi, Pi},
    Mesh->None,
    Boxed->False,
    Axes->None
]
Output
ListPointPlot3D[
    {Table[Sin[x^2 - y], {x, -Pi, Pi, 2 Pi / 10}, {y, -Pi, Pi, 2 Pi / 10}],
    Table[Cos[x^2 -y], {x, -Pi, Pi, 2 Pi / 10}, {y, -Pi, Pi, 2 Pi / 10}]},
    Boxed->False,
    Axes->None
]
Output

plot x^3 - x^2 + y^3 - 4y^2-3y < 5 orange

RegionPlot[x^3 - x^2 + y^3 - 4 y^2 - 3 y < 5, {x, -6., 6.}, {y, -6., 6.}, PlotStyle -> Orange]
Output
a = Table[Table[Sin[3x] Sin[y-5], {x, -10, 10}],
          {y, -10, 10}]
Output
ListDensityPlot[a]
Output
Clear[a]

Graph[{a->b,
       a->c,
       b->a,
       b->3,
       c->d,
       c->e,
       d->e,
       e->a,
       e->d,
       e->d},
       VertexLabels->"Name"
]
Output
ListPlot[{{0, 0}, {1, 0}, {2, 1}, {3, 3}, {4, 3}, {5, 7}, {6, 13}, {7, 15}, {8, 16}, {9, 12}, {13, 0}},
         AxesLabel->{"seconds", "temp"},
         PlotStyle->Red,
         PlotRange->{0, 30}]
Output
RandomInteger[{0, 5}, 5]

{5, 2, 5, 2, 2}
BarChart3D[
    Table[RandomInteger[{0, 5}, 5], {i, 1, 10}]
]
Output
BarChart3D[
    Table[RandomInteger[{0, 5}, 5], {i, 1, 10}],
    ChartLayout-> "Stacked"
]
Output