Mathematicaで何ができるのか?

下の実行結果(PostScript)はココ!

数値計算
- N[ Log[ 4 Pi ], 40 ] (40桁でlog(4π)を計算)
- 100! (階乗の計算)
数式処理
- Integrate[ x^4 / (x^2 - 1), x ] (積分の計算)
- Inverse[ {{a, b}, {c, d}} ] (逆行列の計算)
- Solve[ 3x^3+2x^2+x+1 == 0, x ] (3次方程式の解を求める)
- Factor[ x^6 - y^6 ] (因数分解)
グラフィック表示
- Plot3D[ Sin[x y], {x,0,Pi}, {y,0,Pi} ] (z=sin(x y)の3次元表示)
- ParametricPlot[ {Sin[t], Sin[2t]}, {t,0,2Pi} ] (x=sin t, y=sin 2tのパラメータ表示)
- ListPlot[ Table[Prime[n], {n,50}] ] (最初の50個の素数の分布)
プログラミング
- フィボナッチ数の定義の例
  
  f[0] = f[1] = 1;
  f[n_] := f[n-1] + f[n-2];