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

来函数检测结果如下：
该公式没有未来函数

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;};

原理解析：
A赋值:4
高1赋值:REF(1500日内H最高值,1)
低1赋值:REF(1500日内L最低值,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,画白色
输出%19:REFDATE(H1,DATE),POINTDOT,画黄色
输出%38:REFDATE(H2,DATE),POINTDOT,画黄色
输出%50:REFDATE(H3,DATE),POINTDOT,画白色
输出%61:REFDATE(H4,DATE),POINTDOT,画黄色
输出%80:REFDATE(H5,DATE),POINTDOT,画黄色
输出突破:1日前的C的A日指数移动平均COLORMAGENTA,LINETHICK1
A1X:=(C的A日指数移动平均-突破)/突破*100
输出出击:IF(A1X>=0,REF(C的A日指数移动平均,上次A1X上穿0距今天数+1),DRAWNULL)画红色,LINETHICK1
输出休假:IF(A1X<0,REF(C的A日指数移动平均,上次0上穿A1X距今天数+1),DRAWNULL)画绿色,LINETHICK1
当满足条件A1X>=0时,在出击和突破之间画柱状线
当满足条件A1X<0时,在休假和突破之间画柱状线
STICKLINE(A1X上穿0,C,O,2,0),画黄色
STICKLINE(0上穿A1X,C,O,2,0),画绿色
{DRAWTEXT(A1X上穿0,L-0.9,'B'),画黄色
DRAWTEXT(0上穿A1X,H+1,'S'),画绿色
}
DRAWICON(A1X上穿0,L-0.3,1),画黄色
DRAWICON(0上穿A1X,H+0.4,9),画绿色
如果A1X<0返回突破否则返回DRAWNULL
}
DRAWTEXT(A1X上穿0,H,'参考介入价:'+'C'+' ')
{DP赋值:1日前的INDEXC的A日指数移动平均
DPX赋值:(INDEXC的A日指数移动平均-DP)/DP*100
STICKLINE(DPX>=0 AND A1X>=0,REFDATE(低1,DATE),REFDATE(低1,DATE)*0.98,2,1)画红色
STICKLINE(DPX<0 AND A1X<0,REFDATE(低1,DATE),REFDATE(低1,DATE)*0.98,2,1)画绿色
STICKLINE(NOT(DPX>=0 AND A1X>=0) AND NOT(DPX<0 AND A1X<0),REFDATE(低1,DATE),REFDATE(低1,DATE)*0.98,2,1)画黄色
}