请问一下用vba求一系列数据的多个波峰用什么思路。。。

mathsxu · 发表于 2014-12-23 18:57

本帖最后由 mathsxu 于 2014-12-23 18:58 编辑

现在有一系列数据，数据值变化呈波形状态，有若干个波峰值。请问用vba求这一系列数据的峰值用什么思路谢谢啦！！！
test文件见附件！！！

谢谢各位啦！！！

liulang0808 · 发表于 2014-12-23 19:00

问题很专业，看不太懂。。。。

bluexuemei · 发表于 2014-12-23 19:09

本帖最后由 bluexuemei 于 2014-12-23 19:21 编辑

复制代码

这个简单，是求波峰的坐标吧

mathsxu · 发表于 2014-12-23 19:12

bluexuemei 发表于 2014-12-23 19:09
这个简单，是求波峰的坐标吧

是这样的。。。。但是不要用作图的方式找出来。。。。。。。
为什么不用作图，是因为我想用这样的一个程序来解决一个系列的问题。。。

在不画图的情况下，用vba 找出所有极值。。。。。。请问用什么思路。。。。谢谢啦

mathsxu · 发表于 2014-12-23 19:16

liulang0808 发表于 2014-12-23 19:00
问题很专业，看不太懂。。。。

是我没表述清楚吗。。。。。

就是一串数据，呈现增减增减交替出现的趋势，我要把增加到峰值后要开始减小时的那个值，就是函数中的极值的定义。和最值不同，有很多个极值。在曲线图中就是拱起突出的那个点。有什么思路吗，谢谢了

sz_wap · 发表于 2014-12-23 19:22

y(i)<=y(i+1) and y(i+1)>y(i+2)

mathsxu · 发表于 2014-12-23 19:27

sz_wap 发表于 2014-12-23 19:22
y(i)y(i+2)

感谢！！！！！！！！！！！！！！！！

mathsxu · 发表于 2014-12-23 19:27

bluexuemei 发表于 2014-12-23 19:09
这个简单，是求波峰的坐标吧

太感谢了！！！！！！！！！！！！！！！！！！！！！！！！虽然没测试，但是一看你的代码已经有了思路了。。。。万分感谢

feiren228 · 发表于 2014-12-23 19:29

Sub test()
Application.ScreenUpdating = False
Set d = CreateObject("scripting.dictionary")
With Sheet1
arr = .Range("A1").CurrentRegion
For i = 3 To UBound(arr)
If i < UBound(arr) Then
If arr(i, 2) > arr(i - 1, 2) And arr(i, 2) > arr(i + 1, 2) Then
n = n + 1
d(n) = Array(arr(i, 1), arr(i, 2))
ElseIf arr(i, 2) < arr(i - 1, 2) And arr(i, 2) < arr(i + 1, 2) Then
n = n + 1
d(n) = Array(arr(i, 1), arr(i, 2))
End If
ElseIf i = UBound(arr) And arr(i, 2) > arr(i - 1, 2) Or arr(i, 2) < arr(i - 1, 2) Then
d(n + 1) = Array(arr(i, 1), arr(i, 2))
End If
Next
.Range("F3").Resize(d.Count, 2) = Application.Transpose(Application.Transpose(d.items))
End With
Application.ScreenUpdating = True
End Sub

复制代码

feiren228 · 发表于 2014-12-23 19:36

测试下效果>>>>>>>>>>>>>>

test (1).zip (294.92 KB, 下载次数: 41)

		自动登录	找回密码
密码			免费注册

[求助] 请问一下用vba求一系列数据的多个波峰用什么思路。。。