【数学】関数の表現力

この記事は Mathematica Advent Calendar 2016 - Qiita の7日目の記事です。

Mathematica は普段使っていないので、凝ったことは全くできないのですが、枠が空いていたので僕の好きな関数を紹介します。

---

ハート関数 - Heart Curve

その名の通りですが、ハートの形をした関数です。数学検定１級を大学生のときに取得したのですが、１級の試験に出題されたのを今でも覚えています。

Mathematica Notebook

PolarPlot[
  Abs[Tan[t]]^Abs[Tan[t]]^(-1), {t, 0, Pi}
]

Wolfram Alpha

Wolfram Alpha は無料で使えるので、こちらでも確認ができます。

Wolfram|Alpha: Computational Knowledge Engine

More

今回、記事を作成するにあたって、Heart Curve -- from Wolfram MathWorld というリンクを見つけたので是非こちらも参考にしてみてください。

Notebook

PolarPlot[
  2 - 2 Sin[t] + Sin[t] Sqrt[Cos[t]]/(Sin[t] + 7/5), {t, 0, 2 \[Pi]}
]

おわりに

Mathematica はやっぱり高いっすね…