同花顺海豚张嘴源码附图

C3:=REF(C,1);

涨停:=IF((C-C3)*100/C3>=(10-0.01*100/C3),1,0);

STICKLINE(涨停,OPEN,CLOSE,2,0),colorred;

跌停:=IF((C3-C)*100/C3>=(10-0.01*100/C3),1,0);

STICKLINE(跌停,OPEN,CLOSE,2,0),colorgreen;

MA4:MA(CLOSE,4),COLORFFFFFF;

MA10:MA(CLOSE,10),coloryellow;

MA20:MA(CLOSE,20),COLORFF00FF;

MA62:MA(CLOSE,62),COLORFFFF00;

VAR1:=SLOPE(MA20,3)>0;

VAR2:=ABS(SLOPE(MA62,3))<0.19;

VAR3:=SLOPE(MA62,3)>REF(SLOPE(MA62,3),1);

VAR4:=REF(MA4,4)>MA20;

VAR5:=REF(MA20<MA62,15)AND MA20>=MA62;

ABSVOL:=(MA4-MA20);

VAR6:=SLOPE(MA4,2)>=REF(SLOPE(MA4,2),1) AND   ABSVOL>=REF(ABSVOL,1) AND REF(ABSVOL,2)>=REF(ABSVOL,1);

CON1:=VAR1 AND VAR2 AND VAR3 AND VAR4 AND VAR5 AND VAR6 ;

VAR41:=REF(MA4>MA20,3);

ABSVOL1:=ABS(MA4-MA10);

VAR61:=REF(ABSVOL1,2)>REF(ABSVOL1,1) AND ABSVOL1>REF(ABSVOL1,1) AND SLOPE(MA4,2)<0 AND SLOPE(MA4,2)>REF(SLOPE(MA4,2),1);

CON2:=VAR1 AND VAR2 AND VAR3 AND VAR41 AND VAR5 AND VAR61 ;

CON:=CON1 OR CON2;

DRAWTEXT(NOT(REF(CON,4))AND NOT(REF(CON,3))AND NOT(REF(CON,1))AND NOT(REF(CON,2)) AND CON,LOW*0.98,'海豚张嘴');

MA120:MA(C,120),COLOR88BBFF;

MA250:MA(C,250),COLOR0000FF;

VAR11:=REF(CLOSE,1);

VAR12:=SMA(MAX(CLOSE-VAR11,0),13,1)/SMA(ABS(CLOSE-VAR11),13,1)*100;

VAR13:=CROSS(69,VAR12);

VARA:=FILTER(VAR13,4);

DRAWICON(VARA,HIGH*1.035,3),colorgreen;

DRAWTEXT(VARA,HIGH*1.04,'绝顶'),colorwhite;

A5:=EMA(CLOSE,12)-EMA(CLOSE,26);

A6:=EMA(A5,9);

DRAWICON(A5<-0.1 AND A5>A6,LLV(L,21),1);

STICKLINE(CLOSE>=OPEN,C,H,0,0), colorred;

STICKLINE(CLOSE>=OPEN,O,L,0,0),  colorred;

STICKLINE(CLOSE<OPEN,O,H,0,0), Color00EC00;

STICKLINE(CLOSE<OPEN,C,L,0,0), Color00EC00;

STICKLINE(CLOSE>=OPEN,C,O,8,0),Color0000A1;

STICKLINE(CLOSE>=OPEN,C,O,6,0),Color0000B5;

STICKLINE(CLOSE>=OPEN,C,O,5,0),Color0000C5;

STICKLINE(CLOSE>=OPEN,C,O,4,0),Color0000D4;

STICKLINE(CLOSE>=OPEN,C,O,2.5,0),Color0000EC;

STICKLINE(CLOSE>=OPEN,C,O,1,0),Color0000FF;

STICKLINE(CLOSE<OPEN,C,O,8,0),Color009000;

STICKLINE(CLOSE<OPEN,C,O,7,0),Color00B400;

STICKLINE(CLOSE<OPEN,C,O,5,0),Color00C700;

STICKLINE(CLOSE<OPEN,C,O,3,0),Color00DB00;

STICKLINE(CLOSE<OPEN,C,O,1,0),Color00EC00;MA4:=MA(CLOSE,4);

MA20:=MA(CLOSE,20);

MA10:=MA(CLOSE,10);

MA62:=MA(CLOSE,62);

VAR1:=SLOPE(MA20,3)>0;

VAR2:=ABS(SLOPE(MA62,3))<0.19;

VAR3:=SLOPE(MA62,3)>REF(SLOPE(MA62,3),1);

VAR4:=REF(MA4,4)>MA20;

VAR5:=REF(MA20<MA62,15)AND MA20>=MA62;

ABSVOL:=(MA4-MA20);

VAR6:=SLOPE(MA4,2)>=REF(SLOPE(MA4,2),1) AND   ABSVOL>=REF(ABSVOL,1) AND REF(ABSVOL,2)>=REF(ABSVOL,1);

CON1:=VAR1 AND VAR2 AND VAR3 AND VAR4 AND VAR5 AND VAR6 ;

VAR41:=REF(MA4>MA20,3);

ABSVOL1:=ABS(MA4-MA10);

VAR61:=REF(ABSVOL1,2)>REF(ABSVOL1,1) AND ABSVOL1>REF(ABSVOL1,1) AND SLOPE(MA4,2)<0 AND SLOPE(MA4,2)>REF(SLOPE(MA4,2),1);

CON2:=VAR1 AND VAR2 AND VAR3 AND VAR41 AND VAR5 AND VAR61 ;

CON:=CON1 OR CON2;

//XG:NOT(REF(CON,4))AND NOT(REF(CON,3))AND NOT(REF(CON,1))AND NOT(REF(CON,2)) AND CON;