KDJ相对能量(副图源码贴图) 
{N:2,90,9;M1:2,30,3;M2:2,30,3} 
RSV:=(CLOSE-LLV(LOW,N))/(HHV(HIGH,N)-LLV(LOW,N))*100; 
K:SMA(RSV,M1,1),COLORWHITE,LINETHICK2; 
D:SMA(K,M2,1),COLORYELLOW,LINETHICK2; 
J:3*K-2*D,COLORMAGENTA,LINETHICK2; 
OBV:=K;       
P:=5; 
A1:=REF(OBV,P)=HHV(OBV,2*P+1); 
B1:=FILTER(A1,P); 
C1:=BACKSET(B1,P+1); 
D1:=FILTER(C1,P);{高点} 
A2:=REF(OBV,P)=LLV(OBV,2*P+1); 
B2:=FILTER(A2,P); 
C2:=BACKSET(B2,P+1); 
D2:=FILTER(C2,P);{低点} 
上:REF(OBV,BARSLAST(D1)),COLORFF00FF,NODRAW; 
下:REF(OBV,BARSLAST(D2)),COLOR00FF00,NODRAW; 
向上:CROSS(OBV,上*1.01),NODRAW; 
相对能量:(OBV-下)/(上-下)*100,COLORYELLOW,NODRAW; 
R11:=BACKSET(ISLASTBAR,BARSLAST(D1)+1);  
S11:=R11>REF(R11,1); 
DRAWLINE(D1,OBV,S11,OBV,1),COLOR0000FF; 
T11:=BACKSET(ISLASTBAR,BARSLAST(D2)+1); 
U11:=T11>REF(T11,1); 
DRAWLINE(D2,OBV,U11,OBV,1),COLORFFFF00; 
STICKLINE(C>0,下,下,1,0),COLOR00FF00; 
STICKLINE(C>0,上,上,1,0),COLORFF00FF; 
DRAWTEXT(CROSS(OBV,上*1.01),上,'上'),COLORFFFFFF; 
DRAWTEXT(CROSS(下*0.99,OBV),下,'下'),COLORFFFFFF; 
 
{主升波段显示} 
BBI:=(EMA(CLOSE,3)+EMA(CLOSE,6)+EMA(CLOSE,12)+EMA(CLOSE,24))/4;  
EBBI:=(EMA(C,6)+EMA(C,18)+EMA(C,54)+EMA(C,162))/4;  
FF1:=EMA(C,3)>EMA(C,7) AND EMA(C,7)>EMA(C,21) AND EMA(C,21)>EMA(C,54);  
DIFF:=EMA(CLOSE,12)-EMA(CLOSE,26);  
DEA:=EMA(DIFF,9);  
主升浪:IF(BBI>EBBI AND FF1 AND DIFF>DEA,10,0),COLORYELLOW,POINTDOT;  
STICKLINE(主升浪,10,0,1,1),COLORYELLOW;  
DRAWICON(CROSS(K,D) AND CROSS(J,D),10,1);{1号图标显示红箭头}; 
DRAWICON(D1,OBV,27); 
DRAWICON(D2,OBV,25);  
 
{金叉.,共振} 
VAR0004:="KDJ.K#WEEK"(9,3,3);  
VAR0005:="KDJ.D#WEEK"(9,3,3);  
VAR0006:="KDJ.K#MONTH"(9,3,3); 
VAR0007:="KDJ.D#MONTH"(9,3,3);  
周金叉:IF(CROSS(VAR0004,VAR0005),15,0)LINESTICK, COLORRED; 
月金叉:IF(CROSS(VAR0006,VAR0007),20,0)LINESTICK,COLORYELLOW; 
DRAWTEXT(周金叉,16,'周金叉'),COLORRED; 
DRAWTEXT(月金叉,20,'月金叉'),COLORYELLOW; 
 
{抄底加仓} 
抄底:IF(REF(COUNT(K<REF(K,1),5)>=5,1) AND COUNT(K<30,5)>=2  AND COUNT(J<0,3)>0 AND CROSS(J,0),60,50),COLOR00FFFF; 
TJ00:=BARSLAST(REF(CROSS(K,D) AND REF(K,1)<35,1)); 
TJ11:=C<REF(C,TJ00+1)*1.1 AND REF(K,1)<60  AND (TJ00+1)<25   AND (TJ00+1)>5  AND  K>REF(K,TJ00+1) AND CROSS(K,D); 
加仓:IF(TJ11,35,0),COLORGREEN;  
A22:=BARSLAST(REF(CROSS("KDJ.K"(9,3,3),"KDJ.D"(9,3,3)),1)); 
 
DRAWICON(CROSS(K,D),K,1); 
DRAWICON(CROSS(D,K),D,2);  |