阪本ひろむ氏から年賀状が届いた．

　インターネットで流布しているものとのことであるが，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}]」

　おめでたい図柄であるうえ，オモロイではないか．

＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝