知識を広げるプログラムの作成変数、関数、リスト、局所変数、Clear、規則、制御構造、条件分岐、IF、Which

開発環境

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

b = N[Sqrt[20], 3]

4.47

f[b_] := N[Sqrt[b], 3]

Module[
    {g = b^2},
    g + 1
]

21.0

4.47

tab10 = Table[f[n], {n, 1, 10, 1}]

{1.00, 1.41, 1.73, 2.00, 2.24, 2.45, 2.65, 2.83, 3.00, 3.16}

tab10[[3]] = 10

tab10

{1.00, 1.41, 10, 2.00, 2.24, 2.45, 2.65, 2.83, 3.00, 3.16}

x^2+y-z /. {x->5, y->3, z->1}

i = 1;

Which[
    tab10[[1]] > 1, Print[1],
    tab10[[2]] > 1, Print[2],
    tab10[[3]] > 2, Print[3]
]

4.47

Clear[b]

b^2

b = N[Sqrt[20], 3]

4.47

If[b^3 < 95, "LOWER", "HIGHER"]

LOWER