完整的复原的这个过程，今天就跟大家分享一下这个心形变化的函数图，是如何用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、保存代码，点击退出编辑状态，即可完成。

附：成品，可以用来向女朋友表白哈哈

链接: https://pan.baidu.com/s/1IswEdgS9ZH7WsUAXExn1JQ