先给出一幅图片，如下图所示，是一个函数曲线的图像：Plot[Sin[x], {x, 0, 2 Pi}]本文的目的是，把它做成动态图，让它的背景色交替出现黑白两色。
工具/原料
1
电脑
2
Mathematica
方法/步骤
1
先给图像添加黑色背景：Plot[Sin[x], {x, 0, 2 Pi}, Background -> Black]
2
黑色的参数表达，可以是：RGBColor[0,0,0]。Plot[Sin[x], {x, 0, 2 Pi}, Background -> RGBColor[0, 0, 0]]
3
而白色的参数表示，可以写成：Plot[Sin[x], {x, 0, 2 Pi},Background -> RGBColor[1, 1, 1]]
4
要想实现黑白交替，有一个“赖皮”办法，就是分别以黑白两色的图片交替，做成gif：Export['c.gif',{白色图,黑色图}]
5
在电脑里面找到这幅图片，就是下面这样。
6
而真实的、支持互动效果的方法，就是把背景色参数化，用参数的变化，来控制背景色：Manipulate[ Plot[Sin[x], {x, 0, 2 Pi}, Background -> RGBColor[{Mod[Floor[n], 2], Mod[Floor[n], 2], Mod[Floor[n], 2]}]], {n, 0, 10}]其中，Mod[Floor[n], 2]交替取值0或1。
7
随机的颜色变换：Background -> RGBColor[{RandomReal[n^n - Floor[n^n]], RandomReal[Abs[Sin[n]]], RandomReal[Abs[Cos[n]]]}]而n的变化范围是1到10之间的实数，最后得到的效果可能是下面这样。
注意事项
最后面这个例子，代码稍微有点复杂，而且运行结果是随机的，也就是每一次运行的结果，都可能不一样。
下一篇：睡前4式减肥瑜伽动作打造妖娆身段