Mathematicaでアニメをしてみた その2