計算機科学のブログ

Mathematicaの基本1 Mathematicaノートブックの共有 方程式の解、グラフの描画

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

コード

Solve[3 x + 1 = 7 x - 9]

Set::write: Tag Plus in 1 + 3 x is Protected.



`1` is not a quantified system of equations and inequalities.: -9 + 7 x is not a quantified system of equations and inequalities.
Output
Solve[3 x + 1 == 7 x - 9]
Output
Plot[Sin[x] / x, {x, -10, 10}]
Output
Plot3D[
    Sin[x y] / x, {x, -10, 10}, {y, 1, 5},
    PlotRange -> {-1, 5}]
Output