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

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;

原理解析：
ZJ赋值:MA("KDJ.J#WEEK"(9,3,3) ,5)
AAA赋值:ZJ< 0 AND ZJ< 1日前的ZJ
BB赋值:ZJ< 0 AND ZJ>=1日前的ZJ
DD赋值:ZJ>=0 AND ZJ>=1日前的ZJ
EE赋值: ZJ>85
FF赋值:ZJ< 1日前的ZJ AND ZJ>0
如果ISLASTBAR返回240/FROM开盘价否则返回1
NN赋值:120
HH赋值:NN日内V*TT最高值
LL赋值:NN日内V最低值
最高赋值:CONST(HH)
最低赋值:CONST(LL)
最高2:=CONST(NN日内H最高值)
最低2:=CONST(NN日内L最低值)
PP赋值:IF((最高2*0.9-(最高2-最低2)*0.5)>CONST(20日内L最低值),0.9,IF((最高2*0.9-(最高2-最低2)*0.5)>CONST(50日内L最低值),0.7,0.6)),NODRAW
RCC1赋值:最高2*0.9-(最高2-最低2)*PP
最低3:=RCC1和最低2的较小值
AA赋值:最低3
当满足条件AAA时,在AA-0.000*AA和AA-0.040*AA之间画柱状线
当满足条件BB时,在AA-0.000*AA和AA-0.040*AA之间画柱状线
当满足条件DD时,在AA-0.000*AA和AA-0.040*AA之间画柱状线
当满足条件EE时,在AA-0.000*AA和AA-0.040*AA之间画柱状线
当满足条件FF时,在AA-0.000*AA和AA-0.040*AA之间画柱状线
当满足条件1时,在横轴0.2纵轴0.86位置书写文字