計算機科学のブログ

知識を広げる 2Dグラフィックスと3Dグラフィックス 自由形式入力、Wolfram言語、Plot, Plot3D, ベクトル場、VectorPlot、数直線、区間、NumberLinePlot、有向グラフ

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

plot of 3 x^2 + 7 x - 9

Plot[3 x^2 + 7 x - 9, {x, -3.7, 1.3}]
Output

plot derivative of 3x^2 + 7x - 9

Plot[D[3 x^2 + 7 x - 9, x], {x, -1.8, 1.8}, Evaluated -> True]
Output

plot 3x^2 + 5y^2

Plot3D[3 x^2 + 5 y^2, {x, -6., 6.}, {y, -6., 6.}]
Output
Plot[Sin[x] / x, {x, -10, 10}]
Output
Plot[{3x-5, x^2 + 1, {x, -10, 10}]

ToExpression::sntx: Invalid syntax in or before "Plot[{3x-5, x^2 + 1, {x, -10, 10}] ".
                                                                                   ^
Output
Plot[{3x-5, x^2 + 1}, {x, -10, 10}]
Output
Plot3D[Sin[x] Cos[x] Sin[y], {x, -Pi, Pi}, {y, -Pi, Pi}]
Output
VectorPlot[{3 Sin[x y^2], -3 Cos[x y^2], {x, -1.5, 1.5}]

ToExpression::sntx: Invalid syntax in or before "VectorPlot[{3 Sin[x y^2], -3 Cos[x y^2], {x, -1.5, 1.5}] ".
                                                                                                         ^
Output
VectorPlot[{3 Sin[x y^2], -3 Cos[x y^2]}, {x, -1.5, 1.5}]

VectorPlot::argrx: VectorPlot called with 2 arguments; 3 arguments are expected.
Output
VectorPlot[{3 Sin[x y^2], -3 Cos[x y^2]}, {x, -1.5, 1.5}, {y, -1.5, 1.5}]
Output
Graph[{1 *-* 2}]

ToExpression::sntx: Invalid syntax in or before "Graph[{1 *-* 2}]".
                                                             ^
Output
Graph[{ 1 -- 2}]

Decrement::rvalue: 1 is not a variable with a value, so its value cannot be changed.
Output
Graph[ {1 -> 2}]
Output
Graph[ {1 <-> 2}]
Output
Graph[{1->2, 1->3, 1->4, 2->3, 2->5, 3->1, 3->3, 3->5, 4->1, 4->5, 5->5}]
Output
NumberLinePlot[x<1/2, {-5, 5}]

                                                                                                                                  1
Valid variable specification expected beyond position `1` in `2`.: Valid variable specification expected beyond position 1 in x < -.
                                                                                                                                  2
Output
NumberLinePlot[x<1/2, {x, -5, 5}]
Output
Manipulate[

ToExpression::sntxi: Incomplete expression; more input is needed .
Output
Manipulate[
    NumberLinePlot[x < number, {x, -5, 5}],
    {number, 0, 5}]
Output