估短KDJ(通达信)，极品变色MACD(通达信)

估短 KDJ(通达信)

{估短kdj}{界文kd修改带提示版}

N1:=7;N2:=27;

stICKLINE(C>0,40,60,10,0),COLORGRAY;

RSV:=(CLOSE-LLV(LOW,N1))/(HHV(HIGH,N1)-LLV(LOW,N1))*100;

短K:SMA(RSV,3,1),COLORF580F5,LINETHICK0;

短D:Sma(短K,3,1),COLORCCDD33,LINETHICK0;

RSV1:=(CLOSE-LLV(LOW,N2))/(HHV(HIGH,N2)-LLV(LOW,N2))*100;

中K:SMA(RSV1,5,1),COLORRED,LINETHICK0;

中D:SMA(中K,10,1),COLOR33AA33,LINETHICK0;

底线:10,COLORWHITE;

顶线:90,{COLOR00FFFF;},COLORWHITE;

STICKLINE(短K>短D,短K,短D,3,1),COLORF580F5;

STICKLINE(短K<=短D,短K,短D,3,1),COLORCCDD33;

STICKLINE(中K>中D,中K,中D,2,0),COLOR0000EF;

STICKLINE(中K<=中D,中K,中D,2,0),COLOR33AA33;

中J:=3*中K-2*中D,COLORFF00FF;

超跌:IF(中J<0,10,0),COLORLIGREEN;

BDDD:=LLV(中J,2)=LLV(中J,8);

重启:IF(crOSS(中J,REF(中J+0.01,1)) AND BDDD AND 中J<20,10,-10),COLORLIRED;

加码:IF(CROSS(中J,REF(中J+0.01,1)) AND BDDD AND BETWEEN(中J,20,60),1,0),COLORRED,NODRAW;

BDGD:=HHV(中J,2)=HHV(中J,8) AND 中J>80;

小心:IF(CROSS(REF(中J-0.01,1),中J) AND REF(BDGD,1),90,120),COLORYELLOW;

DRAWICON(加码,中J,1);

{J线共振彩带版}RSV1A:=(CLOSE-LLV(LOW,27))/(HHV(HIGH,27)-LLV(LOW,27))*100;

K1:=SMA(RSV1,5,1);

D1:=SMA(K1,5,1);

J1:=3*K1-2*D1;

AA1:=ema(J1,5);

AA2:=REF(AA1,1);

DRAWBAND(AA1,RGB(255,255,0),AA2,RGB(0,255,0));

RSV2:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100;

K2:=SMA(RSV2,3,1);

D2:=SMA(K2,3,1);

J2:=3*K2-2*D2;

BB1:=EMA(J2,5);

BB2:=REF(BB1,1);

DRAWBAND(BB1,RGB(255,0,0),BB2,RGB(0,0,255));

DD:=AA1>AA2 AND BB1>BB2;

注意买入:DD AND NOT(REF(DD,1)) AND (AA1<50 OR BB1<50) ,LINETHICK0;

DRAWICON(注意买入,-5,1);

注意卖出:REF(DD,1)=1 AND NOT(DD),LINETHICK0;

DRAWICON(注意卖出,105,2);

极品变色MACD(通达信)

difF:ema(CLOSE,12)-Ema(CLOSE,27);

DEA:EMA(DIFF,9);

macd:=2*(DIFF-DEA);

stICKLINE(MacD>=0,MACD,0,2,1),COLORF00FF0;

STICKLINE(MACD<0,MACD,0,2,1),COLORWHITE;

STICKLINE(MACD<REF(MACD,1)AND MACD>0,0,MACD,2,0 ),COLOR00AAFF;

STICKLINE(MACD<REF(MACD,1)AND MACD>0,0,MACD,2,0 ),COLOR00BBFF;

STICKLINE(MACD<REF(MACD,1)AND MACD>0,0,MACD,2,0 ),COLOR00CCFF;

STICKLINE(MACD<REF(MACD,1)AND MACD>0,0,MACD,2,0 ),COLOR00ddfF;

STICKLINE(MACD<REF(MACD,1)AND MACD>0,0,MACD,2,0 ),COLOR00EEFF;

STICKLINE(MACD<REF(MACD,1)AND MACD>0,0,MACD,2,0 ),COLOR00FFFF;

STICKLINE(MACD>=REF(MACD,1)AND MACD>0,0,MACD,2,0 ),COLOR0000AA;

STICKLINE(MACD>=REF(MACD,1)AND MACD>0,0,MACD,2,0 ),COLOR0011BB;

STICKLINE(MACD>=REF(MACD,1)AND MACD>0,0,MACD,2,0 ),COLOR0022CC;

STICKLINE(MACD>=REF(MACD,1)AND MACD>0,0,MACD,2,0 ),COLOR0033DD;

STICKLINE(MACD>=REF(MACD,1)AND MACD>0,0,MACD,2,0 ),COLOR0044EE;

STICKLINE(MACD>=REF(MACD,1)AND MACD>0,0,MACD,2,0 ),COLOR0055FF;

STICKLINE(MACD>REF(MACD,1)AND MACD<0,0,MACD,2,0 ),COLORAA00BB;

STICKLINE(MACD>REF(MACD,1)AND MACD<0,0,MACD,2,0 ),COLORBB11BB;

STICKLINE(MACD>REF(MACD,1)AND MACD<0,0,MACD,2,0 ),COLORCC22BB;

STICKLINE(MACD>REF(MACD,1)AND MACD<0,0,MACD,2,0 ),COLORDD33BB;

STICKLINE(MACD>REF(MACD,1)AND MACD<0,0,MACD,2,0 ),COLOREE44BB;

STICKLINE(MACD>REF(MACD,1)AND MACD<0,0,MACD,2,0 ),COLORFF55BB;

STICKLINE(MACD<=REF(MACD,1)AND MACD<0,0,MACD,2,0 ),COLORFFAA00;

STICKLINE(MACD<=REF(MACD,1)AND MACD<0,0,MACD,2,0 ),COLORFFBB11;

STICKLINE(MACD<=REF(MACD,1)AND MACD<0,0,MACD,2,0 ),COLORFFCC22;

STICKLINE(MACD<=REF(MACD,1)AND MACD<0,0,MACD,2,0 ),COLORFFDD33;

STICKLINE(MACD<=REF(MACD,1)AND MACD<0,0,MACD,2,0 ),COLORFFEE44;

STICKLINE(MACD<=REF(MACD,1)AND MACD<0,0,MACD,2,0 ),COLORFFFF55;

IF(DIFF<0,DIFF,0),COLORRED,LINETHICK1;

IF(DIFF<0,0,DIFF),COLORYELLOW,LINETHICK1;

IF(DIFF<DEA,DIFF,DEA),COLOR00FF00,LINETHICK1;

IF(DIFF>DEA,DEA,DEA),COLORWHITE,LINETHICK1;

低位金叉:=crOSS(DIFF,DEA) AND DIFF<-0.1;

STICKLINE(低位金叉,0,-0.18,2,0),COLORYELLOW;

DRAWTEXT(低位金叉,-0.1,' 低位金叉'),COLORYELLOW;

JCCOUNT:=COUNT(CROSS(DIFF,DEA),BArslAST(DEA>=0));

二次金叉:=CROSS(DIFF,DEA) AND DEA<0 AND COUNT(JCCOUNT=2,21)=1;

STICKLINE(二次金叉,0,-0.18,2,0),COLORFF00FF;

DRAWICON(二次金叉,DEA*1.04,13) ;

DRAWTEXT(二次金叉,-0.1,' 二次金叉'),COLORFF00FF;

A1:=BARSLAST(REF(CROSS(DIFF,DEA),1));

底背离:=REF(CLOSE,A1+1)>CLOSE AND DIFF>REF(DIFF,A1+1) AND CROSS(DIFF,DEA);

STICKLINE(底背离,0,0.13,2,0),COLOR00FF00;

DRAWLINE(A1=0,DEA,底背离,DEA,0),COLORRED,LINETHICK2;

DRAWTEXT(底背离,0.1,' 底背离'),COLOR00FF00;

A2:=BARSLAST(REF(CROSS(DEA,DIFF),1));

顶背离:=REF(CLOSE,A2+1)<CLOSE AND REF(DIFF,A2+1)>DIFF AND CROSS(DEA,DIFF);

DRAWLINE(A2=0,DEA,顶背离,DEA,0),COLORGREEN,LINETHICK2;