通达信短线有钱途指标公式源码副图钱袋子[万物公式]

A:=4;

高1:=REF(HHV(H,1500),1);

低1:=REF(LLV(L,1500),1);

H1:=高1-(高1-低1)*0.191;

H2:=高1-(高1-低1)*0.382;

H3:=高1-(高1-低1)*0.5;

H4:=高1-(高1-低1)*0.618;

H5:=高1-(高1-低1)*0.809;

顶:REFDATE(高1,DATE),POINTDOT,COLORWHITE;

%19:REFDATE(H1,DATE),POINTDOT,COLORYELLOW;

%38:REFDATE(H2,DATE),POINTDOT,COLORYELLOW;

%50:REFDATE(H3,DATE),POINTDOT,COLORWHITE;

%61:REFDATE(H4,DATE),POINTDOT,COLORYELLOW;

%80:REFDATE(H5,DATE),POINTDOT,COLORYELLOW;

突破:REF(EMA(C,A),1)COLORMAGENTA,LINETHICK1;

A1X:=(EMA(C,A)-突破)/突破*100;

出击:IF(A1X>=0,REF(EMA(C,A),BARSLAST(crOSS(A1X,0))+1),DRAWNULL)COLORRED,LINETHICK1;

休假:IF(A1X<0,REF(EMA(C,A),BARSLAST(CROSS(0,A1X))+1),DRAWNULL)COLORGREEN,LINETHICK1;

STICKLINE(A1X>=0,出击,突破,0,-1),COLORRED;

STICKLINE(A1X<0,休假,突破,0,-1),COLORGREEN;

STICKLINE(CROSS(A1X,0),C,O,2,0),COLORYELLOW;

STICKLINE(CROSS(0,A1X),C,O,2,0),COLORGREEN;

{DRAWTEXT(CROSS(A1X,0),L-0.9,B),COLORYELLOW;

DRAWTEXT(CROSS(0,A1X),H+1,S),COLORGREEN;}

DRAWICON(CROSS(A1X,0),L-0.3,1),COLORYELLOW;

DRAWICON(CROSS(0,A1X),H+0.4,9),COLORGREEN;

{※:IF(A1X<0,突破,DRAWNULL),COLORGREEN,LINETHICK2;}

DRAWTEXT(CROSS(A1X,0),H,参考介入价:+C+ );

{DP:=REF(EMA(INDEXC,A),1);

DPX:=(EMA(INDEXC,A)-DP)/DP*100;

STICKLINE(DPX>=0 AND A1X>=0,REFDATE(低1,DATE),REFDATE(低1,DATE)*0.98,2,1)COLORRED;

STICKLINE(DPX<0 AND A1X<0,REFDATE(低1,DATE),REFDATE(低1,DATE)*0.98,2,1)COLORGREEN;

STICKLINE(NOT(DPX>=0 AND A1X>=0) AND NOT(DPX<0 AND A1X<0),REFDATE(低1,DATE),REFDATE(低1,DATE)*0.98,2,1)COLORYELLOW;};