計算機科学のブログ

知識を広げる グラフィックスプリミティブを使った図形の作成 三角形、円(Disk)、スタイルの設定、色、描画、Graphics、輪郭線、EdgeForm

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

triangle 3, 4, 5

SSSTriangle[3, 4, 5]
Output
Graphics[SSSTriangle[3, 4, 5]]
Output
Graphics[Triangle[{{0, 0}, {3, 0}, {0, 5}}]]
Output
Graphics[{Pink, Triangle[{{0, 0}, {3, 0}, {0, 5}}]}]
Output
Graphics[{Pink, EdgeForm[Black], Triangle[{{0, 0}, {3, 0}, {0, 5}}]}]
Output
Graphics[{Pink, EdgeForm[{Black, Thick}], Triangle[{{0, 0}, {3, 0}, {0, 5}}]}]
Output
Graphics[{Pink, EdgeForm[{Black, Thick}], Triangle[{{0, 0}, {3, 0}, {0, 5}}],
          Blue, Disk[{3, 4}, 1]}
]
Output
Plot[3x, {x, -Pi, Pi}]
Output
Plot[3x, {x, -Pi, Pi}, Epilog -> {Point[{0, 0}]]
Output
Plot[3x, {x, -Pi, Pi}, Epilog -> {PointSize[Large], Point[{0, 0}]}]
Output
Plot[3x, {x, -Pi, Pi}, Epilog -> {Red, PointSize[Large], Point[{0, 0}]}]
Output
Manipulate[
    Plot[3x, {x, -Pi, Pi}, Epilog -> {Red, PointSize[Large], Point[{a, 3a}]}],
    {a, -Pi, Pi}
]
Output