2024年2月19日发(作者：)

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窗口，把以下代码复制至This Work book中，另存为启用宏的工作簿。

Public pp As Boolean

Sub心形图()

pp=Not(pp)

For i=0To1000*4

If pp=False Then

Exit Sub

Else

Do Events

[B2]=i/5/4

IfiMod1=0Then

Do Events

End If

End If

Next i

End Sub

7.插入按钮

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

8.心动时刻点击按钮，心动开始，再次点击，心动结束。