源码
V5:=MA(VOL,5);
V10:=MA(VOL,10);
V20:=MA(VOL,20);
LDAY1:=BARSLAST(CROSS(V5,V10));
LDAY2:=BARSLAST(CROSS(V5,V20));
LDAY3:=BARSLAST(CROSS(V10,V20));
LTJ1:=(LDAY1>LDAY2
OR LDAY1=LDAY2) {AND COUNT(CROSS(V5,V20),LDAY1)=1} AND LDAY2=0 AND
V10 LTJ2:=(C>O AND REF(C,1) AND C>REF(C,2)); LTJ:=LTJ1 AND LTJ2; LTJ0:=LTJ1 AND V10>REF(V10,1); MA5:MA(C,5),COLORWHITE; MA10:MA(C,10),COLORCYAN; MA20:MA(C,20),COLORRED; MA40:MA(C,40),LINETHICK2,POINTDOT,COLORBLUE; MA60:MA(C,60),LINETHICK2,POINTDOT,COLORGREEN; PDAY1 := BARSLAST(CROSS(MA5,MA60));{5日均线上穿60日均线} PDAY2 := BARSLAST(CROSS(MA10,MA60));{10日均线上穿60日均线，至此形成鸭颈部} PDAY3 := BARSLAST(REF(HIGH=HHV(HIGH,PDAY2),1));{形成头部，要下跌} PDAY4 := BARSLAST(CROSS(MA10,MA5){ OR (REF(MA10,1) MA5=MA10)});{下跌后，5日均线和10日均线死叉} PDAY5 := BARSLAST(CROSS(MA5,MA10){ OR (REF(MA5,1)=REF(MA10,1) AND MA5>MA10)});{回落不久，5日均线和10日均线形成金叉，形成部} A1:= PDAY1>PDAY2 AND PDAY2>PDAY3 AND PDAY3>PDAY4 AND PDAY4>PDAY5 AND PDAY5<5; A2:= COUNT(CROSS(MA10,MA5),PDAY2)=1; A3:=MA5>MA60 AND MA10>MA60; {JT:=CROSS(MA20,MA60) AND C>O AND REF(C,1) REF(C,2)>REF(O,2); CSFR:=CROSS(C,MA20) AND CROSS(C,MA40) AND CROSS(C,MA60); STICKLINE(JT,H,L,1,0),COLORYELLOW; STICKLINE(JT,O,C,8,0),COLORYELLOW; STICKLINE(CSFR,H,L,1,0),COLORWHITE; STICKLINE(CSFR,O,C,8,0),COLORWHITE; DRAWTEXT(CSFR,H,'出水芙蓉'),COLORYELLOW; DRAWTEXT(JT ,L, '价托'),COLORRED;} CSFR:=CROSS(C,MA20) AND CROSS(C,MA40) AND CROSS(C,MA60); YDAY1:=BARSLAST(CROSS(MA5,MA10)); YDAY2:=BARSLAST(CROSS(MA5,MA20)); YDAY3:=BARSLAST(CROSS(MA10,MA20)); YJZZ:=(YDAY1=YDAY2 AND YDAY2=YDAY3 OR (YDAY1-YDAY2=1 OR YDAY2-YDAY3=1)) AND REF(MA5,2) AND REF(MA10,2) YJZZ1:=YDAY1=YDAY2 AND YDAY2=YDAY3 AND MA5>MA10 AND MA10>MA20 AND YDAY1=1; YJT:=YDAY1>=YDAY2 AND YDAY2=0 AND MA10 DAY1:=BARSLAST(CROSS(MA20,MA40)); DAY2:=BARSLAST(CROSS(MA20,MA60)); DAY3:=BARSLAST(CROSS(MA40,MA60)); TJ0:=DAY1>=DAY2 AND DAY3<5; 短顶:MA(REF(HHV(H,40),1),1); 头顶:MA(REF(HHV(H,60),1),1); 年顶:MA(REF(HHV(H,0),1),1),LINETHICK2,POINTDOT,COLORWHITE; JZZ:=DAY1=DAY2 AND DAY2=DAY3 AND REF(MA20,1) MA20>MA40 AND MA40>MA60; TJ1:=DAY1>=DAY2 AND COUNT(CROSS(MA20,MA60),DAY1)=1{AND (DAY1-DAY2)<10}; TJ2:=C>O AND CROSS(C,头顶); TJ21:=C>O AND CROSS(C,短顶); {TJ22:=C>O AND CROSS(C,年顶) AND VOL TJ3:=VOL>REF(VOL,1); TJ4:=MA20>MA60 AND MA40>REF(MA40,1) AND MA40 TJ5:=DAY1>=DAY2 AND DAY2=0 AND MA40 {TJ:=(TJ2 AND TJ3) OR (TJ21 AND TJ3);} TJ:=DYNAINFO(4)>0 AND HHV(HIGH,10)/LLV(LOW,10)<1.25 AND REF(CLOSE,1)<(LLV(LOW,15)+(HHV(HIGH,15)-LLV(LOW,15))*0.85) AND CLOSE>OPEN AND CLOSE>=HHV(HIGH,10); STICKLINE(LTJ0,H,L,1,0),COLORGREEN; STICKLINE(LTJ0,O,C,8,0),COLORGREEN; STICKLINE(TJ,H,L,1,0),COLORYELLOW; STICKLINE(TJ,O,C,8,0),COLORYELLOW; {STICKLINE(TJ22,H,L,1,0),COLORYELLOW; STICKLINE(TJ22,O,C,8,0),COLORYELLOW;} STICKLINE(LTJ,H,L,1,0),COLORRED; STICKLINE(LTJ,O,C,8,0),COLORRED; STICKLINE(CSFR,H,L,1,0),COLORWHITE; STICKLINE(CSFR,O,C,8,0),COLORWHITE; DRAWTEXT(CSFR,H,'出水芙蓉'),COLORYELLOW; DRAWTEXT(TJ,L-0.2, '放量突破'),COLORRED; {DRAWTEXT(TJ22,H+0.2, '轻松过顶'),COLORWHITE;} {WWW.88GS.COM} DRAWTEXT(LTJ,H+0.5,'量托+多方炮'),COLORYELLOW; DRAWTEXT(LTJ0,H+0.5,'量托'),COLORYELLOW; DRAWTEXT(TJ5,MA60-0.2,'季价托'),COLORYELLOW; DRAWTEXT(YJT,MA20-0.5,'月价托'),COLORYELLOW; DRAWTEXT(JZZ,MA60-0.2,'金蜘蛛'),COLORYELLOW; DRAWTEXT(YJZZ OR YJZZ1,MA20-0.2,'月金蜘蛛'),COLORYELLOW; 老鸭头:=(A1 AND A2 AND A3) AND FILTER(A1 AND A2 AND A3 ,5); DRAWTEXT(老鸭头,L,'老鸭头'),COLORGREEN; STICKLINE(老鸭头,H,L,0.5,0),COLORGREEN; STICKLINE(老鸭头,O,C,6,1),COLORGREEN,LINETHICK3;
