本
文
摘
要
今天在抖音上看到一个抖友，发了一个短视频。视频中利用Excel制作出一个漂亮，并通过动态赋值，实现心形变化的函数图（如下图）。
觉得十分好看，但玩过抖音的小伙伴都知道，一般这种视频都是不会给教程的，这个视频也不例外。于是，我就发挥了自己的动手能力，
完整的复原的这个过程，今天就跟大家分享一下这个心形变化的函数图，是如何用Excel制作出来的。
一、制作原理：
1、利用笛卡尔心形函数 r=a(1－sinθ）的基本形式，由于该形式是单线变量，为了丰富多线变化，采用了变形式（具体函数如下图）。
其中，可以变常数a的大小，控制心形线大小。理论上，a越大，心形线越大。
2、利用该函数式，在Excel表中，通过函数X、a值的变化，生成一系列有关Y的数据区域，再取Y数据区域，插入图表，选取带直线的散点图。再利用
Excel控件的赋值，实现可变常数a的动态赋值变化，实现心形图像的线性变化，即可完成。
二、制作工具：office软件的Excel，或者WPS软件的Excel
三、采用的函数：SQRT（）平方根计算函数、SIN（）正弦函数、PI()返回圆周率的近似值函数、POWER（）乘幂运算函数
四、前提条件：启动开发工具，采用VBA编程。在弹出的“ Excel选项 ”属性框中，选择“常用”，在“使用Excel时采用的首选项模块下，选择在“ 在功能区显示开发工具选项卡 ”复选框打钩，按确定。建议对VBA宏的安全级别，不要设置太高，否则无法运行。
五、主要步骤：
1、任选单元格A3，作为X序列的纵向起点；选单元格B3，作为Y序列的纵向起点。
2、X的取值范围：[-1.81,1.81]，该取值范围是保证正弦函数有效取值范围。
3、Y=POWER(A3^2,1/3)+0.9*SQRT(3.3-A3^2)*SIN($G$2*PI()*A3)。
4、这里的$G$2，是可变常数a的固定单位格。当然，a在哪个单元格可以自己选，前提要保证Excel引用的是绝对值。
5、 选取Y序列的数据区域，单击Excel菜单栏中的 ”插入“， 在图表区域，点击 ”带直线的散点图 “，即可得到。
6、为了表现图像的美观，可以采用隐藏或者采用Delete键的方式，去掉横纵坐标和数值。图像线条颜色可以设置成“红色”。
7、为了实现可变常数a的动态变化，采用Excel的滚动条（ScrollBar），进行滑动赋值。
8、单击Excel菜单栏中的 ”开发工具“，找到滚动条，并点击滚动条的“控件属性”，将Max设置为1000，Min设置为1。
9、打开滚动条（ScrollBar）“编辑代码”，这里“G2”就是可变常数a所在的单位格。
Private Sub ScrollBar1_Change()
Sheet1.Range("G2") = ScrollBar1.Value / 10
End Sub
10、保存代码，点击退出编辑状态，即可完成。
附：成品，可以用来向女朋友表白哈哈
后台回复:表白
