計算機科学のブログ

Mathematicaの基本1 ヘルプの検索 ドキュメントセンター

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

コード

N[4/13]

0.307692
N[4/13,10]

0.3076923077
Sqrt[5]
Output
N[%,15]

2.23606797749979
Table[N[Sin[θ], 2], {θ, 1, 2}]

{0.84, 0.91}
Table[i^2, {i, 10}]

{1, 4, 9, 16, 25, 36, 49, 64, 81, 100}

sin(x)の値の表(xが1から20までの範囲)

Table[Sin[x], {x, 1, 20}]
Output
N[%]

{0.841471, 0.909297, 0.14112, -0.756802, -0.958924, -0.279415, 0.656987, 0.989358, 
 
>   0.412118, -0.544021, -0.99999, -0.536573, 0.420167, 0.990607, 0.650288, -0.287903, 
 
>   -0.961397, -0.750987, 0.149877, 0.912945}
myTable = Table[Sin[x], {x, 1, 20}]
Output
N[myTable, 2]

{0.84, 0.91, 0.14, -0.76, -0.96, -0.28, 0.66, 0.99, 0.41, -0.54, -1.0, -0.54, 0.42, 1.0, 
 
>   0.65, -0.29, -0.96, -0.75, 0.15, 0.91}
ListPlot[myTable]
Output
Plot[Sin[x], {x, 1, 20}]
Output