EMA13:MA(C,13),COLORWHITE,LINETHICK2;
EMA34:MA(C,34),COLORYELLOW;
EMA55:MA(C,55),COLORFF00FF;
{红杏出墙}
HX1:=EMA13 HX2:=BARSLAST((C-EMA13)/EMA13*100<-6);{收盘价在13均线%6到现在的天数} HX3:=ABS(1-EMA55/REF(C,1))>0.1; HX6:=BARSLAST(CROSS(EMA55,EMA34))>=20;{13日均线下降趋于走平} HX4:=ABS(1-REF(EMA13,1)/EMA13)<0.004 AND C HX5:=REF(C,1) HX7:=HX1 {AND HX3} AND HX4 AND HX5 ; HX8:=HX7 AND FILTER(HX7,10);{满足后10天内不标记} DRAWTEXT(HX8,L-0.4L,'1红杏出墙'),COLORYELLOW; {蚂蚁上树} BR1:=COUNT(BETWEEN(((C-O)/O)*100,0,5) ,5)=5;{5日内收盘价都比前日收盘价高} BR2:=(ABS(EMA13-EMA34)+ABS(EMA34-EMA55))/C<0.1;{主均线相距很近或基本持平} BR3:=C>EMA55 AND COUNT(L MYSS:=BR1 AND BR2 AND BR3; DRAWTEXT(MYSS AND FILTER(MYSS,5), L-0.4L,'1蚂蚁上树'),COLORYELLOW; {马失前蹄} MSQT1:=EMA55/EMA13>1.04 AND EMA13/C>1.03; MSQT2:=O<=REF(L,1) AND REF(O,1)/REF(C,1)>1.03; MSQT:= MSQT1 AND MSQT2; DRAWTEXT(MSQT, L-0.4L,'1马失前蹄'),COLORYELLOW; {绝处逢生} JCFS1:=EMA55>EMA13 AND EMA13>C; JCFS2:=O<=REF(L,1) AND C/O>1.05; JCFS:= JCFS1 AND JCFS2; DRAWTEXT(JCFS, L-0.4L,'1绝处逢生'),COLORYELLOW; {金屋藏娇} JWCJ1:=C JWCJ2:=O<=REF(C,1) AND L>=REF(L,1); JWCJ3:=REF(C,1)/REF(L,1)>1.02; JWCJ4:=EMA13 JWCJ:=JWCJ1 AND JWCJ2 AND JWCJ3 AND JWCJ4; DRAWTEXT(JWCJ, L-0.4L,'1金屋藏娇'),COLORYELLOW; {日月合璧} RYHB1:=REF(O,1)<=REF(C,2) AND REF(C,1)
RYHB2:=C>O AND ABS(1-C/REF(O,1))<0.025 AND ABS(1-O/REF(C,1))<0.025; RYHB3:=EMA13
RYHB4:=REF(L,1)<=LLV(REF(L,1),10); RYHB:=RYHB1 AND RYHB2 AND RYHB3 AND RYHB4; DRAWTEXT(RYHB , L-0.4L,'1日月合璧'),COLORYELLOW; {破镜重圆} PJCY1:=REF(O,1)/REF(C,1)>1.02; PJCY2:=O<=REF(C,1) AND C>=REF(O,1); PJCY3:=(ABS(1-REF(C,1)/EMA55)<0.05 OR ABS(1-C/EMA55)<0.05 OR ABS(1-MA(C,2)/EMA55)<0.05); PJCY4:=EMA13>EMA55 OR EMA13>MA(EMA13,5); PJCY:=PJCY1 AND PJCY2 AND PJCY3 AND PJCY4; DRAWTEXT(PJCY, L-0.4L,'1破镜重圆'),COLORYELLOW; {步步高} BBG1:=C>=REF(C,1) AND REF(C,1)>=REF(C,2);{3日内收盘价都比前日收盘价高} BBG2:=V>=REF(V,1) AND REF(V,1)>=REF(V,2);{3日内量都比前日量高} BBG3:=COUNT(C>=O,3)=3; BBG:=BBG1 AND BBG2 AND BBG3; DRAWTEXT(BBG AND FILTER(BBG,3), L-0.4L,'1步步高'),COLORYELLOW; {黑客点击} DJ1:=EMA13>EMA34 AND EMA34 DJ2:=O>EMA55;{开盘价大于55日均线} DJ3:=CROSS(EMA13,EMA55) OR ABS(1-EMA13/EMA55)<0.002; DJ4:=O>C AND C
HKDJ:= DJ2 AND DJ3 AND DJ4; DRAWTEXT(HKDJ AND FILTER(HKDJ,10),L,'2黑客点击'),COLORRED; {红衣侠女} XN1:=ABS(1-HHV(EMA55,5)/LLV(EMA55,5))<0.02; XN2:=CROSS(EMA13,EMA55) OR ABS(1-EMA13/EMA55)<0.002; XN3:=C>O AND V>REF(V,1) AND C>EMA55; HYXN:=XN1 AND XN2 AND XN3; DRAWTEXT(HYXN AND FILTER(HYXN,5),L,'2红衣侠女'),COLORRED; {海底捞月} LY1:=COUNT(ABS(1-EMA55/EMA34)<0.1,20)>=16; LY2:=COUNT(CROSS(EMA34,EMA13),40)>=1 AND COUNT(CROSS(EMA55,EMA13),40)>=1; LY3:=CROSS(EMA13,EMA55); HDLY:=LY1 AND LY2 AND LY3; DRAWTEXT(HDLY AND FILTER(HDLY,5),L-0.3L,'2海底捞月'),COLORRED; {均线互换} JXHH:=BARSLAST(REF(CROSS(EMA55,EMA34),1)) AND CROSS(EMA34,EMA55); DRAWTEXT(JXHH,L-0.4L,'2均线互换'),COLORRED; {梅开二度} MKED1:=BARSLAST(REF(CROSS(EMA34,EMA13),1)); MKED2:=COUNT(H>=EMA55,MKED1)=MKED1; MKED:=MKED2 AND CROSS(EMA13,EMA34); DRAWTEXT(MKED,L-0.2L,'2梅开二度'),COLORRED; {一阳三线} YY1:=C>EMA13 AND O YY2:=C>EMA34 AND O YY3:=C>EMA55 AND O YYSX:=YY1 AND YY2 AND YY3; DRAWTEXT(YYSX,L-0.2L,'2一阳三线'),COLORRED; {揭竿而起} MAX3:=MAX(MAX(EMA13,EMA34),EMA55); MIN3:=MIN(MIN(EMA13,EMA34),EMA55); JG1:=ABS(EMA13-EMA34) JG2:=ABS(EMA34-EMA55) JG3:=C>=O*1.03 AND C>MAX3;{阳线3%} JG4:=O>MIN3 AND O JG5:=C>REF(H,5); JG6:=(C-EMA34)/EMA34<=0.15;{控制价高} JG7:=V>MA(V,5) AND MA(V,10); JGEQ:=JG1 AND JG2 AND JG3 AND JG4 AND JG5 AND JG6 AND JG7; DRAWTEXT(JGEQ,L-0.2L,'2揭竿而起'),COLORRED; {三线推进} MAX4:=MAX(MAX(MAX(EMA13,EMA34),EMA55),H); MIN4:=MIN(MIN(MIN(EMA13,EMA34),EMA55),L); SXTJ1:=HHV(MAX4,60); SXTJ2:=LLV(MIN4,60); SXTJ3:=EVERY(ABS(1-SXTJ1/SXTJ2)<0.3,20); SXTJ:=SXTJ3 AND (YYSX OR JGEQ); DRAWTEXT(SXTJ AND FILTER(SXTJ,10),L-0.2L,'2三线推进'),COLORRED; {双蹄并进} STBJ1:=CROSS(DMI.PDI,DMI.MDI); STBJ2:=ABS(1-DMI.ADX/DMI.ADXR)<0.1; STBJ:=STBJ1 AND STBJ2; DRAWTEXT(STBJ,L-0.2L,'2双蹄并进'),COLORRED; {投石问路} TSWL1:=CROSS(EMA13,EMA34) AND EMA13 DRAWTEXT(TSWL1,L-0.2L,'2投石问路'),COLORRED; {三军集结} SJJJ3:=REF(EMA55,1)>REF(EMA13,1); SJJJ4:=ABS(1-(MAX(MAX(EMA34,EMA55),EMA13)/MIN(MIN(EMA13,EMA34),EMA55)))<0.005; SJJJ:=SJJJ3 AND SJJJ4; DRAWTEXT(SJJJ AND FILTER(SJJJ,5),L-0.2L,'2三军集结'),COLORRED; 三军集结:=SJJJ AND FILTER(SJJJ,5); XG:三军集结,NODRAW; {浪子回头} LZ1:=REF(C,2)
LZ2:=C<=REF(C,1) AND REF(C,1)<=REF(C,2); LZ3:=MA(V,3)
LZ4:=REF(C,3)>EMA13 AND (C>EMA55 OR ABS(1-C/EMA55)<0.01); LZHT:=LZ1 AND LZ2 AND LZ3 AND LZ4; DRAWTEXT(LZHT AND FILTER(LZHT,5), H+0.2H,'3浪子回头'),COLORBLUE; {走四方} ZSF1:=REF(C,4)>REF(O,4) AND (REF(C,4)>EMA13 OR REF(C,4)>EMA34) AND (ABS(1-REF(EMA55,4)/EMA55)<0.01 OR MA(EMA55,4)>REF(EMA55,5)); ZSF2:=COUNT(ABS((1-REF(C,1)/C)*100)<3,4)=4 AND MA(V,4)
ZSF:=ZSF1 AND ZSF2; DRAWTEXT(ZSF AND FILTER(ZSF,4), H+0.2H,'3走四方'),COLORBLUE; {暗度陈仓} ADCC1:=O/C>1.05 AND EMA13/EMA55<1.1 AND EMA13>MA(EMA13,5); ADCC2:=O/REF(C,1)<1.03;{V ADCC:=ADCC1 AND ADCC2; DRAWTEXT(ADCC, H+0.2H,'3暗度陈仓'),COLORBLUE; {一石二鸟} YSEN1:=REF(C,2)>REF(O,2) AND REF(C,1)
YSEN2:=REF(C,2)>EMA55 AND EMA13>EMA55 AND EMA13>=MA(EMA13,5); YSEN3:=REF(V,2)>REF(V,1) AND REF(V,2)>V; YSEN:=YSEN1 AND YSEN2 AND YSEN3; DRAWTEXT(YSEN, H+0.2H,'3一石二鸟'),COLORBLUE; {双飞燕} SFY1:=EMA13>EMA34 AND EMA34>EMA55; SFY2:=REF(O,1)>=REF(C,2) AND O>=REF(C,1) AND REF(C,2)>=REF(O,2); SFY3:=COUNT(C>O AND C/O<1.02,2)=2 OR COUNT(C SFY4:= V
SFY:=SFY1 AND SFY2 AND SFY3 AND SFY4; DRAWTEXT(SFY AND FILTER(SFY,2), H+0.2H,'3双飞燕'),COLORBLUE; {三剑客} SJK1:=EMA13>EMA34 AND EMA34>EMA55; SJK2:=COUNT(C<=O AND O/C<1.03,3)=3 AND COUNT(ABS(1-REF(C,1)/C)<1.03,2)=2; SJK:=SJK1 AND SJK2; DRAWTEXT(SJK AND FILTER(SJK,3), H+0.2H,'3三剑客'),COLORBLUE; {四星望月} SXWY1:=COUNT(C>=O AND C/O<1.03,4)=4; SXWY2:=(ABS(EMA13-EMA34)+ABS(EMA34-EMA55))/C<0.1;{主均线相距很近或基本持平} SXWY3:=EMA13 SXWY:=SXWY1 AND SXWY2 AND SXWY3; DRAWTEXT(SXWY AND FILTER(SXWY,5), H+0.2H,'3四星望月'),COLORBLUE; {星星点灯} XXDD1:=ABS(1-C/O)*100<=2.5 AND H/MAX(C,O)>1.03 AND REF(C,1)/REF(O,1)>1.05; XXDD2:=O>=REF(C,1) AND ABS(1-REF(EMA13,1)/EMA55)<0.1}; XXDD:=XXDD1 AND XXDD2; DRAWTEXT(XXDD,H+0.2H,'3星星点灯'),COLORBLUE; {小鸟依人} XNYR1:=REF(C,1)/REF(O,1)>1.05; XNYR2:=O<=REF(C,1) AND ABS(1-C/O)<0.02; XNYR3:=COUNT(JGEQ OR YYSX OR HYXN,10)>=1 AND COUNT(JGEQ OR YYSX OR HYXN,2)=0; XNYR:=XNYR1 AND XNYR2 AND XNYR3; DRAWTEXT(XNYR, H+0.2H,'3小鸟依人'),COLORBLUE; {立竿见影} LGJY1:=O<=REF(C,1) AND V
LGJY2:=COUNT(JGEQ OR YYSX OR HYXN,2)=1; LGJY:=LGJY1 AND LGJY2; DRAWTEXT(LGJY, H+0.2H,'3立竿见影'),COLORBLUE; {一阴三线} YYSX1:=C YYSX2:=C YYSX3:=C YYYSX:=YYSX1 AND YYSX2 AND YYSX3; DRAWTEXT(YYYSX,H+0.4H,'4一阴三线'),COLORGREEN; {落井下石} LJXS1:=O1.05 AND C DRAWTEXT(LJXS1,H+0.4H,'4落井下石'),COLORGREEN; {晨钟暮鼓} CZMG1:=REF(C,1)/REF(O,1)>1.05 AND REF(V,1)/REF(V,2)>2 AND HSL>3; CZMG2:=C>O AND V
CZMG:=CZMG1 AND CZMG2; DRAWTEXT(CZMG,H+0.4H,'4晨钟暮鼓'),COLORGREEN; {见好就收} Y:=(EMA13-EMA55)/EMA13*100; JHJX:=REF(Y,1)<=10 AND Y>10; {DRAWICON(JHJX,H,1);} DRAWTEXT(JHJX,H+0.4H,'4见好就收'),COLORGREEN; {一枝独秀} YZ1:=C/O>1.01 AND H/C>1.025 ;{收阳有上影} YZ2:=EMA13>MAX(EMA34,EMA55) AND C>1.05*EMA13 AND O>MA(C,11);{昨收阳 今大于均线} YZDX:=YZ1 AND YZ2; DRAWTEXT(YZDX,H+0.4H,'4一枝独秀'),COLORGREEN; {独上高楼} DSGL1:=REF(C,1)>=REF(O,1); DSGL2:=O/REF(C,1)>1.029 AND O/C>1.03 AND O/MAX(EMA13,EMA55)>1.03; DSGL:=DSGL1 AND DSGL2; DRAWTEXT(DSGL,H+0.4H,'4独上高楼'),COLORGREEN; {分道扬镳} FDYB:=CROSS(EMA34,EMA13) AND EMA34>EMA55; DRAWTEXT(FDYB,H+0.4H,'4分道扬镳'),COLORGREEN; {突出重围} TCCW1:=REF(EMA55,1)
TCCW2:=EMA13 TCCW:=TCCW1 AND TCCW2; DRAWTEXT(TCCW AND FILTER(TCCW,5),H+0.4H,'4突出重围'),COLORGREEN; {明修栈道} MXZD1:=C/O>1.07; MXZD2:=EMA13>HHV(REF(EMA13,1),5) AND V>HHV(REF(V,1),10) AND V/MA(REF(V,1),5)>2; MXZD:=MXZD1 AND MXZD2; DRAWTEXT(MXZD,H+0.4H,'4明修栈道'),COLORGREEN; {拖泥带水} TNDS1:=O/REF(C,1)>1.05 AND MIN(C,O)/L>1.03; TNDS2:=C/MAX(EMA13,EMA55)>1.03 AND C>REF(C,1); TNDS:=TNDS1 AND TNDS2; DRAWTEXT(TNDS,H+0.4H,'4拖泥带水'),COLORGREEN; {金蝉脱壳} JCTQ1:=C JCTQ2:=REF(O,1)>=REF(C,2) AND REF(C,1)>REF(O,1) AND O<=REF(C,1) AND C>REF(O,1); JCTQ:=JCTQ1 AND JCTQ2; DRAWTEXT(JCTQ,H+0.4H,'4金蝉脱壳'),COLORGREEN; {一箭穿心} YJCX:=CROSS(EMA55,EMA13); DRAWTEXT(YJCX,H+0.4H,'4一箭穿心'),COLORGREEN; {过河拆桥} GHCQ1:=C GHCQ2:=O>EMA13 AND C GHCQ3:=EMA13/EMA55>1.1 AND ABS(1-EMA13/MA(EMA13,3))<0.02; GHCQ:=GHCQ1 AND GHCQ2 AND GHCQ3; DRAWTEXT(GHCQ,H+0.4H,'4过河拆桥'),COLORGREEN; {狗急跳墙} GJTQ1:=O/REF(C,1)>1.02 AND L>REF(C,1); GJTQ2:=V>MA(V,5); GJTQ3:=EMA13/EMA55>1.1; GJTQ:=GJTQ1 AND GJTQ2 AND GJTQ3; DRAWTEXT(GJTQ,H+0.4H,'4狗急跳墙'),COLORGREEN; {一剑封喉} YJFH1:=REF(C,1)>=REF(O,1); YJFH2:=H/MAX(C,O)>=1.035 ; YJFH3:=V/MA(REF(V,1),11)>3 AND EMA13/EMA55>1.05; YJFH:=YJFH1 AND YJFH2 AND YJFH3; DRAWTEXT(YJFH,H+0.4H,'4一剑封喉'),COLORGREEN; {节外生枝} JWSZ1:=EMA13>MAX(EMA34,EMA55) AND EMA13/EMA55>1.1 AND REF(C,1)>1.04*EMA13 AND REF(C,1)/REF(O,1)>1.04; JWSZ2:=ABS(1-C/O)<0.015 AND ABS(1-REF(C,1)/C)<0.02; JWSZ:=JWSZ1 AND JWSZ2; DRAWTEXT(JWSZ,H+0.4H,'4节外生枝'),COLORGREEN; {笑里藏刀} XLCD1:=REF(H,1)/MAX(REF(C,1),REF(O,1))>1.04; XLCD2:=H=REF(C,1); XLCD3:=EMA13/EMA55>1.05 AND C/EMA13>1.03; XLCD:=XLCD1 AND XLCD2 AND XLCD3; DRAWTEXT(XLCD,H+0.4H,'4笑里藏刀'),COLORGREEN;