通达信年季月周涨幅主图指标(源码)

A:=BARSLAST(WEEKOFYEAR!=REF(WEEKOFYEAR,1));
YA:=BARSLAST(MONTH!=REF(MONTH,1));
JA:=MOD(MONTH,3);
JD:=BARSLAST(CROSS(JA,0.5));
NA:=BARSLAST(YEAR!=REF(YEAR,1));
QT:=BACKSET(A=0,2);
YQT:=BACKSET(YA=0,2);
JQT:=BACKSET(JD=0,2);
NQT:=BACKSET(NA=0,2);
T:=BARSLAST(CROSS(QT=1,0.5));
YT:=BARSLAST(CROSS(YQT=1,0.5));
JT:=BARSLAST(CROSS(JQT=1,0.5));
NT:=BARSLAST(CROSS(NQT=1,0.5));
CC:=REF(REF(C,T),1);
YC:=REF(REF(C,YT),1);
JC:=REF(REF(C,JT),1);
NC:=REF(REF(C,NT),1);
周涨幅:(C-CC)/CC*100 NODRAW;
月涨幅:(C-YC)/YC*100 NODRAW;
季涨幅:(C-JC)/JC*100 NODRAW;
年涨幅:(C-NC)/NC*100 NODRAW;