【原】当数学家遇上Excel

正文开始前先插播一件事，因小编疏漏，忘记回复这位朋友了，且公众号对回复时间有限制，现已无法在后台回复，这位朋友看到后可加小编微信：Excel_360，直接发文件给您，抱歉！

-------华丽丽的分割线-------

今天要分享的是一个关于数学家笛卡尔的爱情故事，在笛卡尔与公主的最后一封信中，留下了这个方程：r=a(1－sinθ），聪明的公主把方程解了出来，并画成图形，著名的“心形线“便产生了。

我们在此基础上更上一层楼，把数学家的知识与Excel的功能融合在一起，发挥出更强大的力量。

以 r=a(1－sinθ）为原型，利用Excel图表，制作一个高逼格的动态表白心形图！

>>>进入教程<<<

1.插入方程式

变形后的方程如下：

通过x、a值的变化，生成一系列有关f(x)的数据区域，取f(x)插入散点图，再利用Excel控件，控制常数a的大小，最终实现心形的变化。

2.转化为Excel函数

f(x)=POWER(x^2,1/3)+0.9*SQRT(3.3-x^2)*SIN(a*PI()*x)

<<<向左滑动<<<

用到的Excel函数有：乘幂函数POWER、平方根函数SQRT、正弦函数SIN、圆周率的近似值函数PI。

3.准备数据

x取值范围[-1.81,1.81]，原因是要保证方程中的（3.3-x^2）取值为正。

在A4输入-1.81，以等差值为0.02依次增大至1.81。

B4输入Excel函数，设x=A4，a=$B$2（B2要绝对引用）

3.插入散点图

选取B列数据→插入→图表→散点图→带平滑线的散点图

当改变B2的值时，图形相应的产生变化

4.美化图表

删除不必要的元素，调整形状颜色等

5.添加背景文字

在单元格中输入以下文字，数字用公式等于B2

双击图表区，在设置图表区格式中，把填充颜色设置为【无填充】，同时也可以把边框设置为【无线条】

6.智能控制

打开VB窗口，把以下代码复制至ThisWorkbook中，另存为启用宏的工作簿。

Public pp As BooleanSub 心形图()  pp = Not (pp)  For i = 0 To 1000 * 4    If pp = False Then      Exit Sub    Else      DoEvents      [B2] = i / 5 / 4      If i Mod 1 = 0 Then        DoEvents      End If    End If  Next iEnd Sub

7.插入按钮

开发工具→插入→按钮→指定宏→选择[ThisWorkbook.心形图]→确定→鼠标拉出按钮→更改按钮名字

8.心动时刻

点击按钮，心动开始，再次点击，心动结束。

再加上背景图，大功告成

---