通达信五彩周J主图公式

显示全部楼层 · 发表于通达信电脑版 2017-3-1 17:58:56

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;
STICKLINE(AAA,C,O,3,0),COLOR2737FF;
STICKLINE(AAA,H,L,0,0),COLOR2737FF;
STICKLINE(AAA,C,O,1.9,0),COLOR226CFF;
STICKLINE(AAA,C,O,1.0,0),COLOR3EA6FF;
STICKLINE(AAA,C,O,0.2,0),COLOR17FFF6;
STICKLINE(BB,C,O,3,0),COLOR990099;
STICKLINE(BB,H,L,0,0),COLORFF00FF;
STICKLINE(BB,C,O,1.9,0),COLORBB00CC;
STICKLINE(BB,C,O,1.0,0),COLORDD00DD;
STICKLINE(BB,C,O,0.2,0),COLORFF88FF;
STICKLINE(DD,C,O,3,0),COLOR000099;
STICKLINE(DD,H,L,0,0),COLOR0000FF;
STICKLINE(DD,C,O,1.9,0),COLOR0000CC;
STICKLINE(DD,C,O,1.0,0),COLOR0000DD;
STICKLINE(DD,C,O,0.2,0),COLOR7788FF;
STICKLINE(EE,C,O,3,0),COLOR00AAAA;
STICKLINE(EE,H,L,0,0),COLOR00FFFF;
STICKLINE(EE,C,O,1.9,0),COLOR00CCCC;
STICKLINE(EE,C,O,1.0,0),COLOR00DDDD;
STICKLINE(EE,C,O,0.2,0),COLOR00FFFF;
STICKLINE(FF,C,O,3,0),COLOR888800;
STICKLINE(FF,H,L,0,0),COLORFFFF00;
STICKLINE(FF,C,O,1.9,0),COLORCCCC00;
STICKLINE(FF,C,O,1.0,0),COLORDDDD00;
STICKLINE(FF,C,O,0.2,0),COLORFFFF00;
YK:=MA("KDJ.K#MONTH"(9,3,3),20),LINETHICK0;
YD:=MA("KDJ.D#MONTH"(9,3,3),20),LINETHICK0;
YJ:=MA("KDJ.J#MONTH"(9,3,3),20);
ZK:=MA("KDJ.K#WEEK"(9,3,3) ,5),LINETHICK0;
ZD:=MA("KDJ.D#WEEK"(9,3,3) ,5),LINETHICK0;
RSV:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100;
K:=SMA(RSV,3,1),LINETHICK0;
D:=SMA(K,3,1),LINETHICK0;
J:=3*K-2*D,LINETHICK0;
RJC:DRAWICON(CROSS(K,D),L*0.98,1);
DRAWTEXT(RJC,L*0.98,'日金叉'),COLOR0000FF;
RSC:DRAWICON(CROSS(D,K),H*1.03,2),;
DRAWTEXT(RSC,H*1.03,'日死叉'),COLORFFFFFF;
ZJC: DRAWICON (CROSS(ZK,ZD), L*0.98,1);
DRAWTEXT(ZJC,L*0.98,'周金叉'),COLORFF00FF;
ZSC: DRAWICON (CROSS(ZD,ZK), H*1.03,2),;
DRAWTEXT(ZSC,H*1.03,'周死叉'),COLOR00FFFF;
YJC: DRAWICON (CROSS(YK,YD), L*0.98,1);
DRAWTEXT(YJC,L*0.98,'月金叉'),COLORFF0000;
YSC: DRAWICON (CROSS(YD,YK), H*1.03,2);
DRAWTEXT(YSC,H*1.03,'月死叉'),COLORADEAEA;
MA10:MA(C,10),COLORRED,LINETHICK1;
IF(MA10<REF(MA10,1),MA10,DRAWNULL),COLORFFFF00,LINETHICK1;
MA20:MA(C,20),COLORFF00FF,LINETHICK1;
IF(MA20<REF(MA20,1),MA20,DRAWNULL),COLORFFFFFF,LINETHICK1;
MA55:MA(C,55),COLORFF0000,LINETHICK1;
IF(MA55<REF(MA55,1),MA55,DRAWNULL),COLOR00FFFF,LINETHICK1;
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向上--加仓★★黄色--周J>85--风险提示★★青色--周J下跌--持币★★'),COLOR00FFFF;

黄三 · 发表于 2018-7-28 11:50:49

学习下，谢谢分享！

逆风飞翔 · 发表于 2017-12-14 22:01:41

DIFF:EMA(CLOSE,12)-EMA(CLOSE,26),COLORFF00FF;
DEA:EMA(DIFF,9),COLORBLUE;
MACD:=2*(DIFF-DEA);
ZERO:0,COLORLIBLUE;
GJ:=MAX(C,O);
低金:=CROSS(DIFF,DEA) AND DIFF<-0.1;
DRAWTEXT(低金,-0.2,'低金'),COLORBLACK;
JC:=BARSLAST(DEA>=0);
JCCOUNT:=COUNT(CROSS(DIFF,DEA),JC);
JC2:=COUNT(JCCOUNT=2,21)=1;
二金:=CROSS(DIFF,DEA) AND DEA<0 AND JC2;
DRAWTEXT(二金,0.2,'二金'),COLORORANGE;
STICKLINE(MACD>0 AND MACD>=REF(MACD,1),0,MACD,2,0),COLOR0000FF;
STICKLINE(MACD>0 AND MACD<REF(MACD,1),0,MACD,2,0),COLORFF6347;
STICKLINE(MACD<0 AND MACD>=REF(MACD,1),0,MACD,2,0),COLORFF00FF;
STICKLINE(MACD<0 AND MACD<REF(MACD,1),0,MACD,2,0),COLOR6B8E23;
L4:=LLV(GJ,4);
JL:=(HHV(DIFF,55)-LLV(DIFF,55))/5;
GT:=DEA>REF(DEA,1) AND REF(DEA,1)<REF(DEA,2);
A1:=BARSLAST(REF(GT,1));
底背离:=REF(L4,A1+1)>CLOSE AND DIFF>REF(DIFF,A1+1) AND GT;
DRAWTEXT(底背离,REF(DEA,A1)*1.18,'底背离'),COLORFF00FF;
DRAWICON(底背离,REF(DEA,A1)*1.18,3);
H4:=HHV(GJ,4);
GT2:=DEA<REF(DEA,1) AND REF(DEA,1)>REF(DEA,2);
A2:=BARSLAST(REF(GT2,1));
顶背离:=REF(H4,A2+1)<H4 AND DIFF<REF(DIFF,A2+1) AND GT2;
DRAWTEXT(顶背离,REF(DEA,A2)*1.18,'顶背离'),COLORBLUE;
DRAWICON(顶背离,REF(DEA,A2)*1.18,5);
三金:低金 AND 二金 AND 底背离,NODRAW;
DRAWICON(三金,0.4,16);
DRAWTEXT(三金,0.4,'三金'),COLORRED,LINETHICK2;
红面积:SUM(MACD,BARSLAST(MACD<0))*(MACD>0),COLOR0000FF,NODRAW;
绿面积:SUM(MACD,BARSLAST(MACD>0))*(MACD<0),COLOR6B8E23,NODRAW;
AA:=REF(绿面积,1)*100;
BB:=REF(红面积,1)*100;
DRAWNUMBER(CROSS(0,MACD),HHV(REF(MACD,1),5)+0.03,ABS(BB)),COLORRED;
DRAWNUMBER(CROSS(MACD,0),LLV(REF(MACD,1),5)-0.03,ABS(AA)),COLORBLUE;
JC3 := DEA-DIFF;
绿柱面积:=IF(MACD<0,SUM(MACD,BARSLAST(JC3<0)),0);
红柱面积:=IF(MACD>0,SUM(MACD,BARSLAST(JC3>0)),0);
本次最低价:=LLV(L,BARSLAST(JC3<0));
本次最高价:=HHV(H,BARSLAST(JC3>0));
X1:=IF (MACD<0,BARSLAST(CROSS(DIFF,DEA)),0);
前次绿柱面积:=REF(绿柱面积,X1+1);
前次最低价:=REF(本次最低价,X1+1);
Y1:=IF((绿柱面积<0 AND ABS(绿柱面积) AND 本次最低价<前次最低价 ),1,0);
RS1:= MACD<0 AND REF(MACD,1)<0 AND C<前次最低价 AND ABS(绿柱面积);
底背驰:IF(CROSS(DIFF,DEA),REF(Y1,1),0),NODRAW;
X2:=IF (MACD>0,BARSLAST(CROSS(DEA,DIFF)),0);
前次红柱面积:=REF(红柱面积,X2+1);
前次最高价:=REF(本次最高价,X2+1);
Y2:=IF((红柱面积>0 AND 红柱面积<前次红柱面积 AND 本次最高价>前次最高价 ),1,0);
RS2:= MACD>0 AND REF(MACD,1)>0 AND C>前次最高价 AND ABS(红柱面积);
顶背驰:IF(CROSS(DEA,DIFF),REF(Y2,1),0),NODRAW;
DRAWICON(底背驰,DEA,1);
DRAWTEXT(底背驰,DEA,'底背驰'),COLORRED;
DRAWICON(顶背驰,DIFF,2);
DRAWTEXT(顶背驰,DIFF,'顶背驰'),COLORBLUE;
A0:=DIFF<0 AND DEA<0;
A11:=A0>REF(A0,1);
A3:=BARSLAST(A11);
A4:=COUNT(DEA>0 AND DIFF >0,A3)=0;
A5:=CROSS(DIFF ,DEA);
A6:=BARSLAST(A5);
A7:=REF(A6,A6+1)+A6;
A8:=(DIFF+DEA)/2;
A9:=(HIGH+LOW)/2;
A10:=A5 AND A7<A3 AND A4 AND A8>REF(A8,A7) AND A9<REF(A9,A7) AND MACD>0;
DRAWTEXT(A10,DIFF*0.95,'★金叉买入'),COLORBROWN;
DRAWICON(A10,DIFF*0.9,14);
AB:=COUNT(CROSS(DIFF,DEA),BARSLAST(DEA>=0));
二次金叉:=CROSS(DIFF,DEA) AND DEA<0 AND COUNT(AB=2,21)=1;
DRAWTEXT(二次金叉,DEA,'二次金叉'),COLORRED;
DIFF,COLORFF00FF;
DEA,COLORBLUE;
DRAWICON(CROSS(DIFF,DEA),DEA,1);
DRAWICON(CROSS(DEA,DIFF),DIFF,2);