本日の授業のページ
授業内容
Mathematica による数列の定義の仕方
本日の授業で必要な
Mathematica のコマンドです．
1. 定義の仕方
Clear[a]
a[n_] := (1 + 1/n)^n
N[a[100]]
N[E]
Limit[a[n], n -> Infinity]
N[E^6, 10]
N[Sin[31*Pi/180]]
Clear[b]
b[n_] := Sin[1/n]/(1/n)
N[b[1]]
N[b[2]]
N[b[100]]
N[b[200]]
Limit[b[n], n -> Infinity]
2 Do コマンドの使い方
c := 1
Do[c = 2*c + 1, {3}]; c
d := 1
Do[d = 2*d^2 + 2, {2}]; d
Do[d = 2*d^2 + 2, {2}]; d
Module[{d = 1}, Do[d = 2*d^2 + 2, {2}]; d]
a[n_] := Module[{d = 1}, Do[d = 2*d^2 + 2, {n-1}]; d]
a[2]
a[2]
3 数列の定義
b[1]:=5
b[n_]:=b[n-1]+3
{b[1],b[2],b[3]}
Table[b[n],{n,1,10}]
卒業研究のページに戻る
ホームページに戻る