計算機科学のブログ

Mathematicaの基本1 1つのコマンドでインタラクティブなモデルを作る Manipulate文、式、プロット、可視化、温度計

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

Manipulate[x^2 + 1, {x, 1, 10, 1}]
Output
Manipulate[
    Table[x^i + i - 1, {i, 1, 3}],
    {x, 1, 10, 1}]
Output
Manipulate[
    {x, x^2 + 1, x^3 + 2, x^2 > 2 x + 1},
    {x, 1, 10, 1}]
Output
Plot[x^2 + 3 x - 1, {x, -5, 5}]
Output
Manipulate[
    Plot[x^2 + 3 x - 1, {x, 0, c}],
    {c, 1, 20}]
Output
Manipulate[
    Plot[x^2 + 3 x - 1, {x, 0, c}, PlotRange -> {-10, 10}],
    {c, 1, 20}]
Output
Manipulate[
    Plot[x^2 + 3 x - 1, {x, 0, c}, PlotRange -> {-5, 100}],
    {c, 1, 20}]
Output
Manipulate[
    Plot[x^2 + 3 x - 1, {x, c - 1, c}, PlotRange -> {-5, 100}],
    {c, 1, 20}]
Output
Manipulate[
    Plot[x^2 + 3 d x - 1, {x, 0, c}, PlotRange -> {-5, 100}],
    {c, 1, 20},
    {d, 1, 20}]
Output
Manipulate[
    Plot[{x^2 + 3 d x - 1,
         2 c x^2 - d x + 3,
         c x^2 + 3 d x - 1},
         {x, -10, 10},
         PlotRange -> {-5, 100}],
    {c, 1, 20},
    {d, 1, 20}]
Output
Manipulate[
    Plot[{x^2 + 3 d x - 1,
         2 c x^2 - d x + 3,
         c x^2 + 3 d x - 1},
         {x, -10, 10},
         PlotRange -> {-50, 50}],
    {c, 1, 20},
    {d, 1, 20}]
Output
ThermometerGauge[50]
Output
ThermometerGauge[10, {0, 50}]
Output
Manipulate[
    ThermometerGauge[10 x, {0, 50}],
    {x, 0, 5}]
Output