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

shenjianrong163

老师，请教下：怎样在PPT中用程序画这样的图形？谢谢！

Enocheasty

shenjianrong163 发表于 2024-12-8 14:40
老师，请教下：怎样在PPT中用程序画这样的图形？谢谢！

不知道你是否有特殊要求，这个云朵形状PPT里面是有的，如果一定要你贴出的这个样子的图形，你只能用自由曲线去描了，就像在ps中描图一样。
这个东西跟函数没关系。要从程序生成图形，也不过就是将描好图形的节点坐标重现一遍而已。

shenjianrong163

Enocheasty 发表于 2024-12-8 18:34
不知道你是否有特殊要求，这个云朵形状PPT里面是有的，如果一定要你贴出的这个样子的图形，你只能用自由 ...

主要是想了解下怎样让几段曲线连成闭合的图形！

Enocheasty

shenjianrong163 发表于 2024-12-10 23:11
主要是想了解下怎样让几段曲线连成闭合的图形！

这个要说说你具体的用意了，让曲线相连，如果曲线是已知的，不就让各段首尾坐标相连就行了？
像我上面的用函数绘制的曲线（其实就是很多小段的折线），让它们闭合有点麻烦，主要是计算闭合周期，不同的参数会导致闭合周期变化很大，我既不希望超过1个闭合周期（这样图线会重复，节点增多，但没意义）；也不想它们不到1个周期（这样图线不会闭合）。

shenjianrong163

Enocheasty 发表于 2024-12-11 10:49
这个要说说你具体的用意了，让曲线相连，如果曲线是已知的，不就让各段首尾坐标相连就行了？
像我上面的 ...

能否举下例子，画３段弧形曲线，首尾连接起来？谢谢！

Enocheasty

shenjianrong163 发表于 2024-12-12 22:53
能否举下例子，画３段弧形曲线，首尾连接起来？谢谢！

不知道你用什么语言，给你一段VBA吧，反正都一样的用法。运行下面的代码就能组成一个三段曲线的封闭图形了。原理一样，如果你希望节点坐标能通过函数生成，那你要自己研究函数了。

1. Sub test()
   
2.     With ActiveWindow.Selection.SlideRange(1).Shapes.BuildFreeform(msoEditingCorner, 212, 424)
   
3.         .AddNodes msoSegmentCurve, msoEditingCorner, 123, 355, 245, 123, 358, 145
   
4.         .AddNodes msoSegmentCurve, msoEditingCorner, 472, 166, 919, 507, 895, 554
   
5.         .AddNodes msoSegmentCurve, msoEditingCorner, 871, 600, 302, 492, 212, 424
   
6.         .ConvertToShape
   
7.     End With
   
8. End Sub

复制代码

shenjianrong163

Enocheasty 发表于 2024-12-13 17:52
不知道你用什么语言，给你一段VBA吧，反正都一样的用法。运行下面的代码就能组成一个三段曲线的封闭图形 ...

好的，谢谢！

woxoo

请教一下，给出一个任意函数解析式，如何在作图时均匀取点（图像上两点间的曲线长度都相等）

Enocheasty

woxoo 发表于 2024-12-21 08:11
请教一下，给出一个任意函数解析式，如何在作图时均匀取点（图像上两点间的曲线长度都相等）

如果函数比较确定，函数的导数和积分都好求的情况下，可以用解析解算曲线长度。

函数y = f(x)， 函数的曲线长度的计算公式为：

至于你要两点之间的长度一样，导数是常数则x等步距就行，否则就要根据你设定的长度来试算了，试算可以用二分法逼近。

如果你的函数不确定，导数又难求，积分也难求，那么就要用数值法了
数值法求曲线长度有：梯形法
1、将区间[a,b]划分为n个小区间，每个小区间的长度h = (b-a) / n；
2、对于第i个小区间[xi-1,xi]，用梯形法近似求曲线长度：

3、这段曲线长度就近似为L = Σ ΔLi
还可以用辛普森法

对于导数，有时直接使用解析式也是很困的，可以使用数值法求近似值。
使用差商法，有前差商、后差商以及中心差商。
中心差商求x0处的导数：

其中h可以取一个很小的正数来计算。

至于如何让两段曲线相等，是挺麻烦的，我当时给贝塞尔曲线等分的时候，就是用的二分法试算逼近的。

woxoo

Enocheasty 发表于 2024-12-21 15:51
如果函数比较确定，函数的导数和积分都好求的情况下，可以用解析解算曲线长度。

函数y = f(x)， 函数 ...

虽然积分和导数早都还给大学老师了，但还是谢谢你的回复！