请教一下求极值的问题

qixl

因为工作中遇到要求一组曲线的最大值和最小值，
但数据中有时会在同一个拐点处出现多个极大值
或极小值，我想要找得到那个最大值和它对应的
时刻，也就是那多个极值的中间时刻，请教一下
怎么进行判断呢？数据在附件里，麻烦懂的人帮
忙看看。谢谢！！

honggexjq

试做了个，最后那个数据我觉得不能算波峰或者波谷，只是下降曲线当中一段直线罢了

qixl

不好意思,现在才回复,当时是在外出差出现的问题,第二天就回单位了,
单位在装修,一直没网,所以回复的有些晚了...
      代码写的非常简洁,不过我也是看了好久才基本上看懂了(本人在编程的
逻辑上太差...),有些问题想请教您:一是里面有一处循环的时候有一个do while 1
那个1是什么意思?;     二是在数组的应用上,我看您写的数组需要转置一下才可以
,可不可以不转置的呀?换种说法就是为什么不能通过在列的循环而是要通过行的循环
来做(我试了一下,问题说下标越界,不过不知道是怎么回事...)    三是关于判断极值的问题
这个也是我最关心的,比如一个极值是1.5,它的前面有若干个1.4,后面也有若干个1.4,我可以
看出来代码能把前面的1.4给排除掉,然后得到1,5是极大值,不过再朝后循环的时候我不知道它
为什么能把后面的1.4给排除掉,我一直看不出来(非常想知道是为什么,代码计算结果非常好,
就是不知道为什么能排除掉...)

honggexjq

1. do while 后面跟的是个条件判断语句，1代表永远为真，即无条件执行循环体，当然你要在循环体里设置退出条件，否则就要死循环了 exit do就是退出循环
2.这里的数组用的是动态定义维数，也就是说每次来个数据就加一维，但在VBA里二维数组的动态定义只能对第二维使用，也就是说不能这么定义ReDim Preserve darr(1 To k, 1 To 2)所以最后还需要转置下，如果不很习惯也可以定义两个一维数组
3.排除的关键是FOR循环里的一句 i = j - 1，注意在DO WHILE里，当碰到连续的相同值时，j是不断累加的，道理很简单，如果第一个1.5是极大值或者极小值，那么后面所有连续相同的1.5肯定也是极大或者极小值，不用再判断了，可以跳过

qixl

谢谢!!!懂了!!!

qixl

还想向你请教下关于极值的问题,我根据您的代码重新写了一个代码,
有关循环求每天的极值的,不过循环下来求出来的跟原来的对不上,表
现在日期平均下来对不上,您能帮我看看吗?

contec

能不能指点一下公式啊，看不到哪里有函数啊。