用函数曲线在PPT中绘制曲线花

Enocheasty

看到其他兄弟在PPT中绘制函数图像，忽然灵光一现，搞了个好玩的功能，通过一些周期性的曲线，在PPT中绘制函数曲线花型，看起来还挺好看的。
可以调整参数，画出各种各样的图形。我的目标是为了做PPT，就看这个玩具功能以后能不能有啥用了。。。

dongdonggege

不错，程序能否欣赏一下。

Enocheasty

dongdonggege 发表于 2024-12-6 12:57
不错，程序能否欣赏一下。

这个只是插件里面的一个小功能,插件暂时不会发。如果你只是想问问绘制曲线的代码，我可以分享一些，其实就是一个公式而已。这些代码不能直接用，但是可以改改就能用，比如PointD结构的Offset方法，也是我自己写的。
C#代码，返回的PointD序列，将其连起来就是那个曲线了。另外PointD是我自己的定义的一个结构，主要是PointF在进行曲线运算的时候，舍入误差太大了。容易累积。
贝壳形曲线：

1. public static List<PointD> ShellCurve(PointD origin, double paraA, double paraB)
   
2.             {
   
3.                 List<PointD> points = [];
   
4.                 double delta = Math.PI / 180;
   
5.                 for (int i = 0; i < 360; i++)
   
6.                 {
   
7.                     double t = i * delta;
   
8.                     double r = paraA * (paraB + 2 * Math.Cos(t) + Math.Pow(Math.Sin(90 * t), 3));
   
9.                     points.Add(new PointD(r * Math.Cos(t), r * Math.Sin(t)).Offset(origin));
   
10.                 }
    
11.                 points.Add(points.First());
    
12.                 return points;
    
13.             }

复制代码

盆形曲线：

1. public static List<PointD> BasinCurve(PointD origin, double paraA, double paraB, int paraN)
   
2.             {
   
3.                 List<PointD> points = [];
   
4.                 int steps = paraN / 2;
   
5.                 double dlta = Math.PI / 90 / steps;
   
6.                 for (int i = 0; i < 90 * steps; i++)
   
7.                 {
   
8.                     double t = i * dlta;
   
9.                     double x = paraA * Math.Cos(paraN * t - t) * Math.Cos(paraN * t), y = paraB * Math.Pow(Math.Cos(paraN * t), 2);
   
10.                     points.Add(new PointD(x, y).Offset(origin));
    
11.                 }
    
12.                 points.Add(points.First());
    
13.                 return points;
    
14.             }

复制代码

玫瑰线（里面的GreatestCommonDivisor是一个静态方法，求最大公约数的）：

1. public static List<PointD> RoseCurve(PointD origin, double paraA, int paraN, int paraT)
   
2.             {
   
3.                 double n = (double)paraN / paraT;
   
4.                 int gcd = paraN > paraT ? GreatestCommonDivisor(paraN, paraT) : GreatestCommonDivisor(paraT, paraN);
   
5.                 paraN /= gcd; paraT /= gcd;
   
6.                 int steps = (paraT / 5 + 1) * 90;
   
7.                 double dlta = Math.PI / steps;
   
8.                 if (paraN % 2 == 0 || paraT % 2 == 0) paraT *= 2;
   
9.                 steps *= paraT;
   
10.                 List<PointD> points = [];
    
11.                 for (int i = 0; i < steps; i++)
    
12.                 {
    
13.                     double x = paraA * Math.Sin(n * i * dlta) * Math.Cos(i * dlta), y = paraA * Math.Sin(n * i * dlta) * Math.Sin(i * dlta);
    
14.                     points.Add((new PointD(x, y)).Offset(origin));
    
15.                 }
    
16.                 points.Add(points.First());
    
17.                 return points;
    
18.             }

复制代码

等等.....
想画曲线可以去网上找找那些曲线的方程，很多的，想在PPT里面画出来好看，最麻烦的就是找闭合周期了。有些算的出来，有些靠试出来的！

dongdonggege

看不懂，不如不发，这里是VBA论坛，你搞个C#的，没法学。

dongdonggege

看看是不是这样的？

Enocheasty

dongdonggege 发表于 2024-12-6 16:10
看看是不是这样的？

就是这样的。

Enocheasty

dongdonggege 发表于 2024-12-6 15:53
看不懂，不如不发，这里是VBA论坛，你搞个C#的，没法学。

我以前搞VBA，现在写VSTO插件，感觉用C# 比VB舒服些。我C#也是搞的时候才学的，说实话，我感觉语言基本都相通。

dongdonggege

是不是这个，还欠缺点。C#的pow是绝对值，还是根号？对你的函数表达式不懂。

dongdonggege

要是函数的3次方，就变成这样的图像。

Enocheasty

dongdonggege 发表于 2024-12-6 19:01
是不是这个，还欠缺点。C#的pow是绝对值，还是根号？对你的函数表达式不懂。

你只是需要公式的话，我用常规的书写格式给你。C#中Math.Pow是乘方，比如X^2 就是Math.Pow(x,2)

1、玫瑰线
x = A * sin(nθ) *cos(θ) ;  y = A * sin(nθ) * sin(θ)


2、李萨如曲线
x = A * sin(Nθ + C) ; y = B * Sin(Mθ)


3、贝壳曲线
极坐标形式：ρ = A * （B + 2 cos(θ) + sin(90 θ)^3)


4、盆形曲线
x = A * cos(Nθ -θ) * cos(Nθ) ; y = B * cos(Nθ)^2


5、领结形曲线
p = A * sin(Mθ) , q = C * cos(Nθ +C)
x = p * cos (q) ; y = p * sin(q)


6、星形
x = A / q * ((q -1) * cosθ + cos((q-1)θ)) ; y = A / q * ((q -1) * sinθ - sin((q-1)θ))


7、耳蜗形
if θ>0 then s=1 else s=-1
x = s * A * sinθ / sqrt(|θ|) ; y = s * B * (1-cosθ) / sqrt(|θ|)


8、幸运草
极坐标形式：ρ = A * (1 + cos(Nθ) + sin(Nθ)^2)


9、外轮旋线（内轮旋就是将x坐标的cos相减改为相加）
n = R - r , m = (R-r)/r
x = n * cos(θ) - D * cos(mθ) ; y = n * sinθ - D * sin(mθ)


以上，x,y为点坐标，ρ为极径，θ为参数（弧度值），其他均为常数参数，取值不同，影响形状大小。