//《上升三法形态》
//一、定义仓位
LOTS:=MONEYREAL*0.8/(C*MARGIN*UNIT+FEE);//计算手数，使持仓占权益80%
//二、定义ATR
TR : MAX(MAX((HIGH-LOW),ABS(REF(CLOSE,1)-HIGH)),ABS(REF(CLOSE,1)-LOW));
//求最高价减去最低价，一个周期前的收盘价减去最高价的绝对值，一个周期前的收盘价减去最低价的绝对值，这三个值中的最大值
ATR : MA(TR,N);//求N个周期内的TR的简单移动平均
//三、定义上升三法
//1.“上升三法”中间的k线一般为3根小阴线，但有时也会出现变形形态，由超过3根k线形成，同时未必全是阴线，也有可能为小阳线或十字星。
//2.“上升三法”中间的几根k线原则上一定要在第一根长阳线的最高价与最低价之间，不过允许中间k线超过第一根长阳线的最高价，
//但绝不能跌破了第一根长阳线的最低价，否则形态失败。
//3.“上升三法”中最后一根长阳线的收盘价一定要创出第一根长阳线收盘价的新高，原则上幅度越大越好，
//如果最后一根长阳线的收盘价不能突破第一根长阳线的收盘价，则形态的有效性要大大减弱。
//4.“上升三法”的组成k线要符合量价配合特征，即前后两根长阳线要保持放量状态，中间k线要保持缩量状态。
SHSF1:=REF((N1/100)*ATR,4);// 上升三法形态的第一根k线的实体，用ATR去描述
SHSF2:=REF((N2/100)*ATR,3);// 上升三法形态的第二根k线的实体，用ATR去描述
SHSF3:=REF((N2/100)*ATR,2);// 上升三法形态的第三根k线的实体，用ATR去描述
SHSF4:=REF((N2/100)*ATR,1);// 上升三法形态的第四根k线的实体，用ATR去描述
SHSF5:=(N1/100)*ATR;// 上升三法形态的第五根k线的实体，用ATR去描述
SHSF:=SHSF1>SHSF2 && SHSF1>SHSF3 && REF(ISUP,4) && ISUP
&& (REF(H,3)<REF(H,4) && REF(H,2)<REF(H,4) && REF(H,1)<REF(H,4) && REF(L,3)>REF(L,4) && REF(L,2)>REF(L,4) && REF(L,1)>REF(L,4)
&& C>REF(C,4) && O>REF(C,1));//上升三法形态
DRAWICON(SHSF,H , 'IC88');
//四、执行交易
SHSF,BPK(LOTS);//满足上升三法形态，开仓做多
BKVOL>0,SP(BKVOL);//第二天平仓
//《下降三法形态》
//一、定义仓位
LOTS:=MONEYREAL*0.8/(C*MARGIN*UNIT+FEE);//计算手数，使持仓占权益80%
//二、定义ATR
TR : MAX(MAX((HIGH-LOW),ABS(REF(CLOSE,1)-HIGH)),ABS(REF(CLOSE,1)-LOW));
//求最高价减去最低价，一个周期前的收盘价减去最高价的绝对值，一个周期前的收盘价减去最低价的绝对值，这三个值中的最大值
ATR : MA(TR,N);//求N个周期内的TR的简单移动平均
//三、定义下降三法形态
//在本形态中,投资者主要应注意两点:一是形态中间的三根小阴阳线。如果上升三法中的三根小阴阳线击穿了第一根长阳线的最低价,
//或下降三法中的三根小阴阳线击穿了第一根长阴线的最高价,形态即宣告失败。
//二是第五根阴阳线的长度。原则上第五根越长越有效,收盘价最好是能创出新高或新低。
XJSF1:=REF((N1/100)*ATR,4);// 下降三法形态的第一根k线的实体，用ATR去描述
XJSF2:=REF((N2/100)*ATR,3);// 下降三法形态的第二根k线的实体，用ATR去描述
XJSF3:=REF((N2/100)*ATR,2);// 下降三法形态的第三根k线的实体，用ATR去描述
XJSF4:=REF((N2/100)*ATR,1);// 下降三法形态的第四根k线的实体，用ATR去描述
XJSF5:=(N1/100)*ATR;// 下降三法形态的第五根k线的实体，用ATR去描述
XJSF:=XJSF1>XJSF2 && XJSF1>XJSF3 && REF(ISDOWN,4) && ISDOWN
&& (REF(H,3)<REF(H,4) && REF(H,2)<REF(H,4) && REF(H,1)<REF(H,4) && REF(L,3)>REF(L,4) && REF(L,2)>REF(L,4) && REF(L,1)>REF(L,4)
&& C<REF(C,4) && O<REF(C,1));//下降三法形态
DRAWICON(XJSF ,H , 'IC88');
//四、执行交易
XJSF,BPK(LOTS);//满足下降三法形态，开仓做多
BKVOL>0,SP(BKVOL);//第二天平仓
//《穿头破脚形态》
//一、定义仓位
LOTS:=MONEYREAL*0.8/(C*MARGIN*UNIT+FEE);//计算手数，使持仓占权益80%
//二、定义ATR
TR : MAX(MAX((HIGH-LOW),ABS(REF(CLOSE,1)-HIGH)),ABS(REF(CLOSE,1)-LOW));
//求最高价减去最低价，一个周期前的收盘价减去最高价的绝对值，一个周期前的收盘价减去最低价的绝对值，这三个值中的最大值
ATR : MA(TR,N);//求N个周期内的TR的简单移动平均
//三、定义穿头破脚形态
//1、旭日东升形态由一阴一阳两根k线组成；
//2、第一根大阴线的下跌幅度越大越好；
//3、阳线收盘价高于阴线开盘价，阳线实体高出阴线实体部分越多，转势信号越强；
//（1）顶部穿头破脚特征
//1、在上升趋势中出现；
//2、第二根k线即阴线的长度必须足以吞掉第一根k线即阳线的全部(上、下影线可以不算)。
//（2）底部穿头破脚特征
//1、在下跌趋势中出现；
//2、第二根k线即阳线的长度必须足以吞掉第一根k线即阴线的全部(上、下影线可以不算)。
CTPJQ:=REF((N1/100)*ATR,1);// 穿头破脚形态的前一根k线的实体，用ATR去描述
CTPJH:=(N2/100)*ATR;// 穿头破脚形态的后一根k线的实体，用ATR去描述
CTPJ:=CTPJQ<CTPJH && CTPJH>N2 && L<REF(L,1) && H>REF(H,1) && ((REF(ISDOWN,1) && ISUP &&
O<REF(O,1) && C>REF(C,1) && C>REF(O,1) && O<REF(C,1)) || (REF(ISUP,1) && ISDOWN &&
O>REF(O,1) && C<REF(C,1) && C<REF(O,1) && O>REF(C,1)));//穿头破脚形态
DRAWICON(CTPJ,H , 'IC88');
//四、执行交易
CTPJ,BPK(LOTS);//满足穿头破脚形态，开仓做多
BKVOL>0,SP(BKVOL);//第二天平仓
//《单阳不破形态》
//一、定义仓位
LOTS:=MONEYREAL*0.8/(C*MARGIN*UNIT+FEE);//计算手数，使持仓占权益80%
//二、定义ATR
TR : MAX(MAX((HIGH-LOW),ABS(REF(CLOSE,1)-HIGH)),ABS(REF(CLOSE,1)-LOW));
//求最高价减去最低价，一个周期前的收盘价减去最高价的绝对值，一个周期前的收盘价减去最低价的绝对值，这三个值中的最大值
ATR : MA(TR,N);//求N个周期内的TR的简单移动平均
//三、定义单阳不破形态
//单阳不破具体的k线表现形态为：一根大阳线出现后，其后6-7根k线横向盘整，并且所有低价都没有击穿该阳线的最低价，这就是“单阳不破”
DYBPQ:=REF((N1/100)*ATR,N3);// 单阳不破形态的第一根k线的实体，用ATR去描述
DYBP:=DYBPQ>N2 && REF(ISUP,N3) && LLV(L,N3)<LLV(L,(N3-1)) && LLV(L,N3)<LLV(L,(N3-2)) && LLV(L,N3)<LLV(L,(N3-3))
&& LLV(L,N3)<LLV(L,(N3-4)) && LLV(L,N3)<LLV(L,(N3-5)) && LLV(L,N3)<LLV(L,(N3-6)) && LLV(L,N3)<L ;//单阳不破形态
//((O<REF(O,1) && C>REF(C,1) && C<REF(O,1) && O>REF(C,1)) || (O>REF(O,1) && C<REF(C,1) && O<REF(C,1) && C>REF(O,1)))
DRAWICON(DYBP ,H , 'IC88');
//四、执行交易
DYBP,BPK(LOTS);//满足单阳不破形态，开仓做多
BKVOL>0,SP(BKVOL);//第二天平仓
//《身怀六甲k线形态》
//一、定义仓位
LOTS:=MONEYREAL*0.8/(C*MARGIN*UNIT+FEE);//计算手数，使持仓占权益80%
//二、定义ATR
TR : MAX(MAX((HIGH-LOW),ABS(REF(CLOSE,1)-HIGH)),ABS(REF(CLOSE,1)-LOW));
//求最高价减去最低价，一个周期前的收盘价减去最高价的绝对值，一个周期前的收盘价减去最低价的绝对值，这三个值中的最大值
ATR : MA(TR,N);//求N个周期内的TR的简单移动平均
//MA4季
MA1:=MA(C, 1);
MA5:=MA(C,5);//周1
MA20:=MA(C,20);//月2
MA30:=MA(C,30);
MA60:=MA(C,60);//季3
MA120:=MA(C,120);//半年
MA240:=MA(C,240);//年5
//三、定义身怀六甲k线形态
//身怀六甲k线形态是由两根k线组成，身怀六甲k线形态可以在任何行情中出现，
//价格或指数先是走出一根大阴线或中阴线，接着走出一根小阴线，并且第二根k线完全包含在前一根k线实体内。
STQ:=REF((N1/100)*ATR,1);// 身怀六甲k线形态的前一根k线的实体，用ATR去描述
STH:=(N2/100)*ATR;// 身怀六甲k线形态的后一根k线的实体，用ATR去描述
SHLJ:=STQ>STH && STQ>N2 && L>REF(L,1) && H<REF(H,1) &&
((O<REF(O,1) && C>REF(C,1) && C<REF(O,1) && O>REF(C,1)) || (O>REF(O,1) && C<REF(C,1) && O<REF(C,1) && C>REF(O,1)));//身怀六甲k线
DRAWICON(SHLJ ,H , 'IC88');
//四、执行交易
SHLJ,BPK(LOTS);//满足身怀六甲k线形态，开仓做多
BKVOL>0,SP(BKVOL);//第二天平仓
|
