填坑过左峰通达信公式 追涨类副图 源码分析

N:=4;{参数N}

TM:=1200823;{注册制}

ZT:=H>=IF(DATE<TM,ZTPRICE(REF(C,1),IF(CODELIKE('688'),0.2-0.01,IF(NAMEINCLUDE('S'),0.05-0.01,0.1-0.01))),ZTPRICE(REF(C,1),IF(CODELIKE('688') OR CODELIKE('300'),0.2-0.01,IF(NAMEINCLUDE('S'),0.05-0.01,0.1-0.01))));

月线:=WMA(C,21);

月角:ATAN((月线/REF(月线,1)-1)*100)*180/3.1416,NODRAW;

A1:=REF(H,N)=HHV(H,2*N+1);

B1:=FILTER(A1,N);

C1:=BACKSET(B1,N+1);

D1:=FILTER(C1,N) AND ZT;

E1:=BARSLAST(D1 );

STICKLINE(C<0,0,0.3,2,0),COLORRED;

缩量:=V<0.8*HHV(V,20);{量小于20天内最高量的0.8倍}

选D股:=CROSS(C,REF(H,E1)) AND V<=REF(V,E1)*1.2 AND 月角>30,NODRAW;

选股:=CROSS(C,REF(H,E1)) AND 缩量 AND 月角>20,NODRAW;

STICKLINE(选股,0,0.3,2,0),COLORYELLOW;

STICKLINE(选股,0.31,0.6,2,0),COLORGREEN;

STICKLINE(选股,0.61,0.9,2,0),COLORWHITE;

STICKLINE(选股,0.91,1,2,0),COLORLIRED;

STICKLINE(选股,0.91,1,3,0),COLORLIMAGENTA;

股东占流通比:100*FINVALUE(244)/FINVALUE(239),NODRAW;

历史衰退系数:100/(100-股东占流通比),NODRAW;

ZF:=PEAK(H,30,1);

XG:CROSS(C,ZF);