通达信MACD和KDJ双金叉共振指标公式源码副图

　　通达信MACD和KDJ双金叉共振指标公式源码副图

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

　　K:=SMA(VAR0,3,1);

　　D:=SMA(K,3,1);

　　J:=3*K-2*D;

　　DIFF:=EMA(CLOSE,12)-EMA(CLOSE,26);

　　DEA:=EMA(DIFF,9);

　　MAVAR:=2*(DIFF-DEA);

　　VAR01:=(HHV(H,9.8)-C)/(HHV(H,9.8)-LLV(L,9.8))*101;

　　VAR1:=SMA(VAR01,3,1);

　　VAR2:=SMA(VAR1,3,1);

　　VAR3:=3*VAR1-2*VAR2;

　　VAR4:=250;

　　VAR5:=HHV(K,VAR4);

　　VAR6:=HHV(D,VAR4);

　　VAR7:=HHV(J,VAR4);

　　VAR8:=LLV(K,VAR4);

　　VAR9:=LLV(D,VAR4);

　　VAR10:=LLV(J,VAR4);

　　量化:=MAX(VAR5,MAX(VAR6,VAR7));

　　指标:=MIN(VAR8,MIN(VAR9,VAR10));

　　VAR5LB:=(量化+指标)/2;

　　VAR5LC:=量化-指标;

　　CBA1:=HHV(DIFF,VAR4);

　　CBA2:=HHV(DEA,VAR4);

　　CBA3:=HHV(MAVAR,VAR4);

　　BCF:=LLV(DIFF,VAR4);

　　BVAR:=LLV(DEA,VAR4);

　　BCM:=LLV(MAVAR,VAR4);

　　HMAX:=MAX(CBA1,MAX(CBA2,CBA3));

　　LMIN:=MIN(BCF,MIN(BVAR,BCM));

　　BCAB:=(HMAX-LMIN)/100;

　　BCAC:=HMAX-LMIN;

　　SH:=(0-BCAB)*(VAR5LC/BCAC)+VAR5LB;

　　DIFFA:=(DIFF-BCAB)*(VAR5LC/BCAC)+VAR5LB;

　　DIFFB:=(DIFF-BCAB)*(VAR5LC-HMAX)+BCM+CBA3;

　　DEAA:=(DEA-BCAB)*(VAR5LC/BCAC)+VAR5LB;

　　DRAWBAND(DIFFA,RGB(255,64,64),DEAA,RGB(64,255,64));

　　MAVARA:=(MAVAR-BCAB)*(VAR5LC/BCAC)+VAR5LB;

　　VARA:=MAVAR< REF(MAVAR,1) AND MAVAR>0;

　　VARB:=MAVAR>=REF(MAVAR,1) AND MAVAR>0;

　　VARC:=MAVAR>REF(MAVAR,1) AND MAVAR< 0;

　　CVAR2:=MAVAR<=REF(MAVAR,1) AND MAVAR< 0;

　　STICKLINE(VARA,SH,MAVARA,0.1,0),COLOR8000FF;

　　STICKLINE(VARB,SH,MAVARA,0.1,0),COLOR8000FF;

　　STICKLINE(VARC,SH,MAVARA,0.1,0),COLORBLUE;

　　STICKLINE(CVAR2,SH,MAVARA,0.1,0),COLORBLUE;

　　DRAWTEXT(BARSTATUS=2,SH,' 0轴'),COLORWHITE;

　　VAR1K:SMA(VAR0,3,1),COLORWHITE,LINETHICK2;

　　VAR2D:SMA(VAR1K,3,1),COLORYELLOW,LINETHICK2;

　　VAR3J:3*VAR1K-2*VAR2D,COLORMAGENTA,LINETHICK2;

　　A:=crOSS(DIFF,DEA) AND CROSS(VAR1K,VAR2D) AND CROSS(VAR3J,VAR2D);

　　DRAWICON(A,VAR3J,9);