- 精华
- 0
- 在线时间
- 3840 小时
- UID
- 20842
- 积分
- 931
- 帖子
- 382
- 阅读权限
- 255
- 注册时间
- 2010-12-3
- 最后登录
- 2022-2-15
- 精华
- 0
- UID
- 20842
- 积分
- 931
- 帖子
- 382
- 主题
- 2
- 阅读权限
- 255
- 注册时间
- 2010-12-3
- 最后登录
- 2022-2-15
|
本帖最后由 追涨杀跌 于 2011-7-28 11:10 编辑
回复 1# 盛世长城
可以参照HighD写个类似的HighW,呵呵- Params
- Numeric WeeksAgo(1);
- Vars
- NumericSeries barCnt;
- NumericSeries WeekHigh;
- Numeric i;
- Numeric j;
- Numeric nIndex(0);
- Numeric CBIndex;
- Begin
- CBIndex = CurrentBar;
- If(CBIndex == 0 || IntPart(DateDiff(19700105,Date)/7) != IntPart(DateDiff(19700105,Date[1])/7))
- {
- barCnt = 1;
- WeekHigh = High;
- }Else
- {
- barCnt = barCnt + 1;
- If(High > WeekHigh)
- WeekHigh = High;
- }
-
- If(WeeksAgo == 0)
- {
- return WeekHigh;
- }Else
- {
- For i = 1 To WeeksAgo
- {
- If( i == 1)
- {
- j = 0;
- }Else
- {
- j = j + BarCnt[j];
- }
- If (j > CBIndex )
- Return InvalidNumeric;
- nIndex = nIndex + BarCnt[j];
- }
- Return WeekHigh[nIndex];
- }
- End
复制代码 |
|