通达信筹码锁定大周期主图选股指标公式源码

通达信筹码锁定大周期主图选股指标公式源码

源码正文：

ZRR:=(YEAR-1992)*365+INTPART((YEAR-1989)/4)+IF(MONTH<=2,DAY+(MONTH-1)*31,DAY+
INTPART(13*(MONTH+1)/5)-7+(MONTH-1)*28+IF(INTPART(YEAR/4)=YEAR/4,1,0)){XG51};
T:=BArslAst(ZRR-REF(ZRR,1)>WEEkdAY-REF(WEEKDAY,1))+1{XG51};
T1:=REF(T,T)+T{XG51};
T2:=REF(T,T1)+T1{XG51};
T3:=REF(T,T2)+T2{XG51};
T4:=REF(T,T3)+T3{XG51};
T5:=REF(T,T4)+T4{XG51};
T6:=REF(T,T5)+T5{XG51};
T7:=REF(T,T6)+T6{XG51};
T8:=REF(T,T7)+T7{XG51};
T9:=REF(T,T8)+T8{XG51};
T10:=REF(T,T9)+T9{XG51};
T11:=REF(T,T10)+T10{XG51};
T12:=REF(T,T11)+T11{XG51};
T13:=REF(T,T12)+T12{XG51};
T14:=REF(T,T13)+T13{XG51};
T15:=REF(T,T14)+T14{XG51};
T16:=REF(T,T15)+T15{XG51};
T17:=REF(T,T16)+T16{XG51};
T18:=REF(T,T17)+T17{XG51};
T19:=REF(T,T18)+T18{XG51};
T20:=REF(T,T19)+T19{XG51};
T21:=REF(T,T20)+T20{XG51};
三周:(REF(CLOSE,T)+REF(CLOSE,T1)+CLOSE)/3{XG51};
五周:(REF(CLOSE,T)+REF(CLOSE,T1)+REF(CLOSE,T2)+REF(CLOSE,T3)+CLOSE)/5{XG51};
十周:(REF(CLOSE,T)+REF(CLOSE,T1)+REF(CLOSE,T2)+REF(CLOSE,T3)+REF(CLOSE,T4)+REF(CLOSE,T5)+REF(CLOSE,T6)+REF(CLOSE,T7)+REF(CLOSE,T8)+CLOSE)/10{XG51};
AA15:=C>COST(85) AND C<COST(90) AND C<HHV(H,60){XG51};
天:=FILTER(AA15,25){XG51};
dif:=ema(CLOSE,12)-Ema(CLOSE,26){XG51};
DEA:=EMA(DIF,9){XG51};
macd:=(DIF-DEA)*2{XG51};
A1:=COST(65){XG51};
A2:=C/REF(C,150)<1.2{XG51};
A3:=MA(V,100)>MA(V,50){XG51};
A4:=YEAR>2012{XG51};
RSV:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100{XG51};
K:=SMA(RSV,3,1){XG51};
D:=SMA(K,3,1){XG51};
J:=3*K-2*D{XG51};
筹码锁定:=A4 AND crOSS(C,A1) AND CROSS(K,D) AND A2 AND C<HHV(H,60) AND MacD>0 AND DIF>0 AND DEA>0 AND DIF>DEA*1.01 AND A3{XG51};
DRAWTEXT(筹码锁定,LOW,'●筹码锁定'),COLORWHITE;

{X_G^5.1_C_N_{}