■あけおめことよろ
阪本ひろむ氏から年賀状が届いた.

インターネットで流布しているものとのことであるが,Mathematicaで描かれた富士山は代数曲線とサインカーブからできている.
「f[x_] := If[x <= 1 && x >= -1, x^4 - x^2 + 6, 12/(Abs[x] + 1)]」
「g[x_] := If[Abs[x] <= 2, (1/2) Cos[6 x] + 7/2]」
「Plot[{f[x], g[x]}, {x, -6, 6}]」
おめでたい図柄であるうえ,オモロイではないか.
===================================