Mathematicaの基本1 入力と出力 自由形式入力、Wolfram言語の取得、素数、大小、累乗、三角関数、正弦と余弦、3次元の描画
ハンズ・オン・スタートMathematica® -Wolfram言語™によるプログラミング (C・ヘイスティング(著)、K・ミショー(著)、M・モリソン(著)、ウルフラム・リサーチ(翻訳)、丸善出版)の第1部(Mathematicaの基本1)、第3章(入力と出力)の練習問題6、7、8、9、10の解答を求めてみる。
Prime[107] + Prime[108]
1180
Prime[107]
587
Prime[108]
593
611 > 3^6
3^6
729
Plot[Sin[x] + Cos[y], {x, -Pi, Pi}, {y, -Pi, Pi}]
Plot::nonopt: Options expected (instead of {y, -Pi, Pi}) beyond position 2 in Plot[Sin[x] + Cos[y], {x, -Pi, Pi}, {y, -Pi, Pi}]. An option must be a rule or a list of rules.
Plot3D[Sin[x] + Cos[y], {x, -Pi, Pi}, {y, -Pi, Pi}]
Plot3D[Sin[x] * Cos[y], {x, -Pi, Pi}, {y, -Pi, Pi}]
Plot3D[Sin[x] + Cos[y], {x, -2Pi, 2Pi}, {y, -2Pi, 2Pi}]
Plot3D[Sin[x] * Cos[y], {x, -2Pi, 2Pi}, {y, -2Pi, 2Pi}]
