通达信海豚张嘴指标

源码

M12:MA(CLOSE,12),COLORYELLOW,LINETHICK2;
 A:MA(C,7),COLORGREEN,LINETHICK2; IF(A>REF(A,1),A,DRAWNULL)COLORRED,LINETHICK5;
 M26:MA(CLOSE,26),COLORYELLOW,LINETHICK2,COLOR8000FF;
 M62:MA(CLOSE,62),COLORYELLOW,LINETHICK2,CIRCLEDOT;
 M133:MA(CLOSE,133),COLORYELLOW,LINETHICK2,,COLOR0080FF;

 B:=A<REF(A,1);
 IF(B-1,A,DRAWNULL)COLORRED,LINETHICK2;

DRAWTEXT(CROSS(ZIG(3,8),REF(ZIG(3,8),1)),LOW*0.97,'←进场') ,LINETHICK2,COLOR00FFFF;
 DRAWICON((ZIG(3,5)>REF(ZIG(3,5),1)) AND (REF(ZIG(3,5),1)<=REF(ZIG(3,5),2)) AND
 (REF(ZIG(3,5),2)<=REF(ZIG(3,5),3)),LOW*0.99,1);
 DRAWICON((ZIG(3,5)<REF(ZIG(3,5),1)) AND (REF(ZIG(3,5),1)>=REF(ZIG(3,5),2)) AND
 (REF(ZIG(3,5),2)>=REF(ZIG(3,5),3)),H,2);
 AZ6:=(3 * (SMA((((CLOSE - (LLV(LOW,27))) /
 ((HHV(HIGH,27)) - (LLV(LOW,27)))) * 100),5,1))) - (2 * (SMA((SMA((((CLOSE -
 (LLV(LOW,27))) / ((HHV(HIGH,27)) - (LLV(LOW,27)))) * 100),5,1)),3,1)));
 B7:=(10);
 DRAWTEXT(CROSS(AZ6,B7),L,'←底'),COLOR0000FF;
 VARC:=(ZIG(3,5)>REF(ZIG(3,5),1)) AND (REF(ZIG(3,5),1)<=REF(ZIG(3,5),2)) AND
 (REF(ZIG(3,5),2)<=REF(ZIG(3,5),3));
 VARD:=(ZIG(3,5)<REF(ZIG(3,5),1)) AND (REF(ZIG(3,5),1)>=REF(ZIG(3,5),2)) AND
 (REF(ZIG(3,5),2)>=REF(ZIG(3,5),3));
 DRAWTEXT((VARC=1),L,'满意'),COLOR0000FF;
 DRAWTEXT((VARD=1),H,'卖'),COLOR00FF00;

实体中位:IF(CLOSE>=OPEN,OPEN+(CLOSE-OPEN)/2,CLOSE+(OPEN-CLOSE)/2);
 ZF:=(MAX(O,C)-MIN(O,C))/REF(C,1)>=0.04;
 STICKLINE(C>0 AND ZF,实体中位,实体中位,4,1),LINETHICK2,COLORYELLOW;
 AA:=CLOSE/REF(CLOSE,1)>1.099;
 STICKLINE(AA,O,C,3,0),COLORMAGENTA;
 DRAWTEXT(FILTER(L<REF(L,1) AND C>REF(H,1),5),L*1.02,'短高');
STICKLINE(FILTER(L<REF(L,1) AND C>REF(H,1),5),L,L,15,0),COLORYELLOW;
破底新高:=(CLOSE>REF(HIGH,1) AND LOW<REF(LOW,1));
 STICKLINE(破底新高,OPEN,CLOSE,1,0),COLORYELLOW;