この記事は 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 はやっぱり高いっすね…