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

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));
T:=BArslAST(ZRR-REF(ZRR,1)>WEEkdAY-REF(WEEKDAY,1))+1;
T1:=REF(T,T)+T;
T2:=REF(T,T1)+T1;
T3:=REF(T,T2)+T2;
T4:=REF(T,T3)+T3;
T5:=REF(T,T4)+T4;
T6:=REF(T,T5)+T5;
T7:=REF(T,T6)+T6;
T8:=REF(T,T7)+T7;
T9:=REF(T,T8)+T8;
T10:=REF(T,T9)+T9;
T11:=REF(T,T10)+T10;
T12:=REF(T,T11)+T11;
T13:=REF(T,T12)+T12;
T14:=REF(T,T13)+T13;
T15:=REF(T,T14)+T14;
T16:=REF(T,T15)+T15;
T17:=REF(T,T16)+T16;
T18:=REF(T,T17)+T17;
T19:=REF(T,T18)+T18;
T20:=REF(T,T19)+T19;
T21:=REF(T,T20)+T20;
三周:(REF(CLOSE,T)+REF(CLOSE,T1)+CLOSE)/3;
五周:(REF(CLOSE,T)+REF(CLOSE,T1)+REF(CLOSE,T2)+REF(CLOSE,T3)+CLOSE)/5;
十周:(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;
AA15:=C>COST(85) AND C<COST(90) AND C<HHV(H,60);
天:=FILTER(AA15,25);
DIF:=EMA(CLOSE,12)-EMA(CLOSE,26);
DEA:=EMA(DIF,9);
macd:=(DIF-DEA)*2;
A1:=COST(65);
A2:=C/REF(C,150)<1.2;
A3:=MA(V,100)>MA(V,50);
A4:=YEAR>2012;
RSV:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100;
K:=SMA(RSV,3,1);
D:=SMA(K,3,1);
J:=3*K-2*D;
筹码锁定:=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;
DRAWTEXT(筹码锁定,LOW,'●筹码锁定'),COLORRED;