通达信自然日和交易日的玄机主图指标(源码)

N:=1131204;
TJ0:=DATE=N;
TJ0T:=BARSLAST(TJ0);
SJ:=MOD(TJ0T,4);
SJT:=BARSLAST(SJ);
TJ0A:=IF(SJT=1,DATE,0);
TJ01:=DATETODAY(N);
TJ02:=DATETODAY(TJ0A)-TJ01;
A1:=BARSCOUNT(C);
A2:=CONST(REF(N,A1));
A3:=DATETODAY(A2);
A4:=DATETODAY(DATE);
TJT:=BARSLAST(DATE=N);
A2T:=BACKSET(DATE=N,BARSCOUNT(C));
ZL:=A3-A4;
ZT:=A2T*BARSCOUNT(C)-1;
ZTT:=CONST(REF(A1,TJT))-A1-CONST(ZT)-1;
TJA:=MOD(ZTT,4);
TJAT:=BARSLAST(TJA);
DRAWNUMBER(SJT=1,L,TJ02)COLORYELLOW;
DRAWNUMBER(SJT=1,H*1.02,TJ0T);
DRAWNUMBER(ZTT>0 AND TJAT=1,H*1.02,ZTT);
DRAWNUMBER(ZTT>0 AND TJAT=1,L,ZL)COLORYELLOW;