通达信海豚张嘴指标
源码
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;
