Mathematica　ーこのソフトを私が知ったのは高校３年のこと。当時通っていた東進ハイスクールの講師であった

安田亨先生のテキストの中でMathematicaが紹介されていたんです。一次変換が実際にどのように作用するのか、

説明がしてありました。回転を表す一次変換などは本当に回転していることがわかったものです。再び大学で出会

うとは思いもしませんでした。Mathematicaというソフトは文字のまま計算してくれる数式処理ソフトなんですが、

これがまた優れもの。図書館や自分で買った本を読んでみると、様々なことができます。小学校の算数から大学の

数学の専門教養まではもちろんのこと、世界地図だって表すことができます。また指定した日付の曜日まで表すこ

ができるんです。ちなみに僕の誕生日である１９７７年４月２１日は木曜日でした。ここではMathematicaのアニメ

ーションについて紹介します。下に書いてあるプログラミングは「円柱を自己交差する３次元Lissajous図形に変形

するアニメーション」を実行します。一番最初の「Do」というのは「アニメーションを実行する」というコマンドです。

本当はアニメーションの１コマが順を追って紹介されるだけなので、私がアニメーションを組み上げるソフトを使ってア

ニメーションを完成させました。また機会があれば別のプログラミングもご紹介したいと思います。

Do[
ParametricPlot3D[
{
Cos[u],
Sin[u] + n 2 Cos[v],
(1-n) (v-Pi) + n 2 Sin[(n+1) v]
},
{u, 0, 2Pi},
{v, 0, 2Pi},
PlotPoints -> 20,
PlotRange -> {{-3, 3}, {-3, 3}, {-3, Pi}},
Boxed -> False,
ViewPoint->{2.668, -0.987, 1.833}
],
{n, 0, 1, 0.025}
]