- 精华
- 3
- 在线时间
- 12229 小时
- UID
- 5
- 积分
- 26584
- 帖子
- 12686
- 阅读权限
- 200
- 注册时间
- 2007-7-20
- 最后登录
- 2021-11-3
- 精华
- 3
- UID
- 5
- 积分
- 26584
- 帖子
- 12686
- 主题
- 49
- 阅读权限
- 200
- 注册时间
- 2007-7-20
- 最后登录
- 2021-11-3
|
可以将原AverageD的代码改写一下,- Params
- Numeric Length(3);
- Vars
- Numeric SumValue;
- Numeric Value1;
- Numeric i;
- Numeric avgvalue;
- Begin
- For i = Length DownTo 1
- {
- Value1 = highD(i)- LowD(i);
- If(Value1 == InvalidNumeric )
- {
- sumvalue = InvalidNumeric;
- }
- SumValue = SumValue + Value1;
- }
- avgvalue =SumValue/Length;
- Commentary("avg=="+text(avgvalue));
- End
复制代码 |
|