- 精华
- 0
- 在线时间
- 280 小时
- UID
- 5525
- 积分
- 1473
- 帖子
- 429
- 阅读权限
- 60
- 注册时间
- 2009-9-22
- 最后登录
- 2022-5-23
- 精华
- 0
- UID
- 5525
- 积分
- 1473
- 帖子
- 429
- 主题
- 93
- 阅读权限
- 60
- 注册时间
- 2009-9-22
- 最后登录
- 2022-5-23
|
优化的上吊线函数代码如下,供朋友们共同学习提高。- //------------------------------------------------------------------------
- // 简称: mySDX
- // 名称: 上吊线
- // 类别: 用户函数
- // 类型: 顶部反转
- // 输出: 布尔型
- //------------------------------------------------------------------------
- // 实体处于K线上端,实体的颜色无所谓
- // 下影线至少达到实体高度的2倍
- // 没有上影线或上影线极短
- // 在趋势的顶部,且当前K线正在得到验证
- Params
- Numeric myBars(5); //顶部趋势至少保持5Bar
- Numeric myBar0(8); //缺省的Bar振幅至少有8个点
- Vars
- Numeric myBar30; //30个周期的平均Bar振幅
- Numeric myBar1; //Bar[1]的振幅
- Numeric myIndex(1);
- Bool myCon1;
- Bool myCon2;
- Bool myCon3;
- Bool myCon4;
- Bool myCon5;
- Bool myCon6;
-
- Begin
- myBar30 = AverageFC(High[1]-Low[1],30); //30个周期的振幅
- If (myBar30<myBar0) myBar30=myBar0; //如果振幅太小则设置最小值
- myBar1 = High[1]-Low[1];
- myCon1 = myBar1>=myBar30;
- myCon2 = (High[1] - Min(Open[1],Close[1]))/myBar1 <=0.4; //实体在K线的上部
- myCon2 = myCon2 or (Max(Open[1],Close[1])-Low[1])/myBar1<=0.4; //或实体在K线的下部
- myCon3 = Abs(Open[1]-Close[1])/(myBar1) <=0.4; //实体小于K线的2/5,即下影线或上影线较长
- myCon4 = (High[1]>=HighestFC(Close[1],5)); //处于近期顶部
- myCon5 = (Close[1]>=AverageFC(Close[1],5)); //处于近期顶部
- myCon6 = (High[1]-Low)/myBar1 >=0.5; //确认下跌
- If (myCon1 && myCon2 && myCon3 && myCon4 && myCon5 && myCon6)
- {
- //FileAppend("c:\\test0.Log",Text(CurrentBar)+" "+DateToString(CurrentDate)+" "+TimeToString(CurrentTime));
- PlotString("SDX","上吊线",High[1]+2,-1,1);
- Return True;
- }
- Return False;
- End
- //------------------------------------------------------------------------
- // 编译版本 GS2010.12.08
- // 用户版本 2011/10/10 08:15
- // 版权所有 efrogking
- // 更改声明 TradeBlazer Software保留对TradeBlazer平台
- // 每一版本的TrabeBlazer公式修改和重写的权利
- //------------------------------------------------------------------------
复制代码 |
|