- 精华
- 3
- 在线时间
- 196 小时
- UID
- 2459
- 积分
- 14123
- 帖子
- 179
- 阅读权限
- 150
- 注册时间
- 2008-9-26
- 最后登录
- 2015-12-3
- 精华
- 3
- UID
- 2459
- 积分
- 14123
- 帖子
- 179
- 主题
- 19
- 阅读权限
- 150
- 注册时间
- 2008-9-26
- 最后登录
- 2015-12-3
|
仿照黄总(nopain)写的CloseD函数,稍作修改写成一个跨周期求周收盘的函数,黄总不要向我追索版权费哈
- //------------------------------------------------------------------------
- // 简称: CloseW
- // 名称: 求N周前的收盘价
- // 类别: 用户函数
- // 类型: 内建函数
- // 输出: 数值型
- //------------------------------------------------------------------------
- Params
- Numeric weeksAgo(2);
- Vars
- NumericSeries barCnt;
- NumericSeries weekClose;
- Numeric i;
- Numeric j;
- Numeric nIndex(0);
- Begin
- If (Day-Day[1]>1 Or Day-Day[1]<0)
- {
- barCnt = 1;
- }Else
- {
- barCnt = barCnt[1] + 1;
- }
- weekClose = Close;
- If (weeksAgo == 0)
- {
- Return weekClose;
- }Else
- {
- For i = 1 To weeksAgo
- {
- If (i == 1)
- {
- j = 0;
- }Else
- {
- j = j + barCnt[j];
- }
- If (j > CurrentBar) Return InvalidNumeric;
- nIndex = nIndex + barCnt[j];
- }
- Return weekClose[nIndex];
- }
- End
- //------------------------------------------------------------------------
- // 编译版本 GS2004.06.12
- // 用户版本 2010/08/12 18:29
- // 版权所有 hyjok
- // 更改声明 TradeBlazer Software保留对TradeBlazer平台
- // 每一版本的TrabeBlazer公式修改和重写的权利
- //------------------------------------------------------------------------
复制代码 |
-
总评分: 威望 + 199
金钱 + 199
查看全部评分
|