通达信九方情绪周期副图，源码

ZJ:=MA("KDJ.J#WEEK"(9,3,3) ,5);

AAA:=ZJ< 0 AND ZJ< REF(ZJ,1);
BB:=ZJ< 0 AND ZJ>=REF(ZJ,1);
DD:=ZJ>=0 AND ZJ>=REF(ZJ,1);
EE:= ZJ>85;
FF:=ZJ< REF(ZJ,1) AND ZJ>0;
TT:=IF(ISLASTBAR,240/FROMOPEN,1);
NN:=120;
HH:=HHV(V*TT,NN);
LL:=LLV(V,NN);
最高:=CONST(HH);
最低:=CONST(LL);
最高2:=CONST(HHV(H,NN));
最低2:=CONST(LLV(L,NN));
PP:=IF((最高2*0.9-(最高2-最低2)*0.5)>CONST(LLV(L,20)),0.9,IF((最高2*0.9-(最高2-最低2)*0.5)>CONST(LLV(L,50)),0.7,0.6)),NODRAW;
RCC1:=最高2*0.9-(最高2-最低2)*PP;
最低3:=MIN(RCC1,最低2);
AA:=最低3;
STICKLINE(AAA,AA-0.000*AA,AA-0.040*AA,2.5,0),COLOR3EA6FF;
STICKLINE(BB,AA-0.000*AA,AA-0.040*AA,2.5,0),COLORFF00FF;
STICKLINE(DD,AA-0.000*AA,AA-0.040*AA,2.5,0),COLOR0000FF;
STICKLINE(EE,AA-0.000*AA,AA-0.040*AA,2.5,1),COLOR00FFFF;
STICKLINE(FF,AA-0.000*AA,AA-0.040*AA,2.5,1),COLORFFFF00;
DRAWTEXT_FIX(1,0.2,0.86,0,'★★ 橘红色--周J< 0--底部警示★★粉色--周J拐头--买入★★红色--周J向上--加仓★★黄s--周J>85--风险提示★★青色--周J下跌--持币★★'),COLOR00FFFF;