【笔记】Excel实现笛卡尔心形散点图

发表于 更新于 阅读次数：

前言

Excel实现笛卡尔心形散点图

正文

  1. 根据笛卡尔心形公式f(x)=POWER(x^2,1/3)+0.9*SQRT(3.3-x^2)*SIN(a*PI()*x)准备数据

B2：1
A4直到A185：-1.181直到1.181，每个数字之间步长为0.02
B4直到B185：=POWER(A4^2,1/3)+0.9*SQRT(3.3-A4^2)*SIN($B$2*PI()*A4)直到=POWER(A185^2,1/3)+0.9*SQRT(3.3-A185^2)*SIN($B$2*PI()*A185)

  1. 选中B4直到B185->插入->图表->散点图

  2. 每当改变B2中的数字就可以改变心形，通过宏实现动态心形

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
var flag = false;

function CommandButton1_Click()
{
  flag = !flag;
  
  for (var i = 0; i <= 1000 * 4; i++) {
    if (!flag) {
        return;
    }
    
    DoEvents();
    
    Range("B2").Select();
    Selection.Value2 = i / 5 / 4;
    
    if (i % 1 === 0) {
      DoEvents();
    }
  }
}

完成

  • 截图纪念

参考文献

知乎——AI实验室