macd和kdj兩副圖指標(biāo)合成一個源碼公式

作者：大智慧來源：cxh99.com 發(fā)布時間：2022年12月24日

{有日、月、周金叉、買賣點(diǎn)提示！！對于新手肯定不錯！！！}

DRAWGBK((C > 0),STRIP(RGB(4,1,28),RGB(4,1,35),0));

DRAWTEXTREL(10,900,''),linethick1,COLOR00EEff;

RSV:=(C-LLV(L,9))/(HHV(H,9)-LLV(L,9))*100;

K:SMA(RSV,3,1),LINETHICK2,COLORWHITE;

D:SMA(K,3,1),LINETHICK2,COLOR00DDDD;

J:3*K-2*D,LINETHICK2,COLOR800080;

DIFF:EMA(C,12)-EMA(C,26),linethick0,COLOR0099FF;

DEA :EMA(DIFF,9),linethick0,COLORD89837;

MACD:2*(DIFF-DEA),COLORFF9999,linethick0;

YLZC:=if(close=INDEXC,(INDEXC+INDEXh+INDEXl+INDEXO)/4,AMOUNT/(vol+0.01)/100);

阻價:=if(close=INDEXC,YLZC+INDEXC-INDEXl,YLZC+(close-low));

支價:=if(close=INDEXC,INDEXl+INDEXC-YLZC,low+(close-YLZC));

今壓:REF(阻價,1),LINETHICK0,COLORAA11BB;

今撐:REF(支價,1),LINETHICK0,COLOR009900;

明壓:阻價,LINETHICK0;

明撐:支價,LINETHICK0;

rsv1:=(hhv(h,9.8)-c)/(hhv(h,9.8)-llv(l,9.8))*101;

kk:=sma(rsv1,3,1);

dd:=sma(kk,3,1);

jj:=3*kk-2*dd;

買賣:=if(jj>=100,100,if(jj<=0,0,jj));

明天買:if(買賣=100,0-10,0),color00cccc;

明天賣:if(買賣=0,90,100),color00ff00;

KX:=250;

KH:=HHV(K,KX);

DH:=HHV(D,KX);

JH:=HHV(J,KX);

KL:=LLV(K,KX);

DL:=LLV(D,KX);

JL:=LLV(J,KX);

HKMAX:=MAX(KH,MAX(DH,JH));

LKMIN:=MIN(KL,MIN(DL,JL));

KHLB:=(HKMAX+LKMIN)/2;

KHLC:=HKMAX-LKMIN;

MHF:=HHV(DIFF,KX);

MHD:=HHV(DEA,KX);

MHM:=HHV(MACD,KX);

MLF:=LLV(DIFF,KX);

MLD:=LLV(DEA,KX);

MLM:=LLV(MACD,KX);

HMAX:=MAX(MHF,MAX(MHD,MHM));

LMIN:=MIN(MLF,MIN(MLD,MLM));

FHLB:=(HMAX-LMIN)/100;

FHLC:=HMAX-LMIN;

SH:=(0-FHLB)*(KHLC/FHLC)+KHLB;

DIFFA:=(DIFF-FHLB)*(KHLC/FHLC)+KHLB;

DEAA:=(DEA-FHLB)*(KHLC/FHLC)+KHLB;

MACDA:=(macd-FHLB)*(KHLC/FHLC)+KHLB;

CDA:=MACD<ref(MACD,1) and MACD>0;

CDB:=MACD>=ref(MACD,1) and MACD>0;

CDC:=MACD>ref(MACD,1) and MACD<0;

CDD:=MACD<=ref(MACD,1) and MACD<0;

STICKLINE(CDA,SH,macda,6,0),COLOR00AAFF;{黃s段}

STICKLINE(CDA,SH,macda,6.6,0),COLOR00BBFF;

STICKLINE(CDA,SH,macda,4.4,0),COLOR00CCFF;

STICKLINE(CDA,SH,macda,3.3,0),COLOR00DDFF;

STICKLINE(CDA,SH,macda,2.2,0),COLOR00EEFF;

STICKLINE(CDA,SH,macda,1.1,0),COLOR00FFFF;

STICKLINE(CDB,SH,macda,6,0),COLOR0000AA; {紅色段}

STICKLINE(CDB,SH,macda,6.6,0),COLOR0011BB;

STICKLINE(CDB,SH,macda,4.4,0),COLOr0022CC;

STICKLINE(CDB,SH,macda,3.3,0),COLOR0033DD;

STICKLINE(CDB,SH,macda,2.2,0),COLOR0044EE;

STICKLINE(CDB,SH,macda,1.1,0),COLOR0055FF;

STICKLINE(CDC,SH,macda,6,0),COLORAA00BB;{向上粉紅}

STICKLINE(CDC,SH,macda,6.6,0),COLORBB11BB;

STICKLINE(CDC,SH,macda,4.4,0),COLORCC22BB;

STICKLINE(CDC,SH,macda,3.3,0),COLORDD33BB;

STICKLINE(CDC,SH,macda,2.2,0),COLOREE44BB;

STICKLINE(CDC,SH,macda,1.1,0),COLORFF55BB;

STICKLINE(CDD,SH,macda,6,0),COLORFF7700;

STICKLINE(CDD,SH,macda,6.6,0),COLORFF8811;

STICKLINE(CDD,SH,macda,4.4,0),COLORFFAA22;

STICKLINE(CDD,SH,macda,3.3,0),COLORFFBB33;

STICKLINE(CDD,SH,macda,2.2,0),COLORFFDD44;

STICKLINE(CDD,SH,macda,1.1,0),COLORFFDD55;

PARTLINE(DIFFA,DIFF>0,RGB(255,153,153),DIFF<0,RGB(255,153,153));

PARTLINE(DEAA,DEA>0,RGB(65,105,225),DEA<0,RGB(65,105,225));

DRAWTEXT(BARSTATUS=2,SH,' 0'),color00aaaa;

TYP:=(H+L+C)/3;

STICKLINE(diff>ref(diff,1),20,20,2,0),COLORRED;

STICKLINE(diff<ref(diff,1),20,20,2,0),COLORGREEN;{http://www.tumamayizhan.com}

STICKLINE(K>=ref(K,1) or k>d and diff>ref(diff,1),80,80,2,1),COLORRED;

STICKLINE(K<ref(K,1),80,80,2,1),COLORGREEN;{http://www.tumamayizhan.com}

MACD金叉:=CROSS(MACD,DIFF) AND MACD>=(0-0.05) AND MACD<=0.02;

DRAWTEXT(MACD金叉,macda*0.82,'MACD金叉'),color00FFFF;

XX:=ema(MA(L,3)*0.96,30);

DIFF金叉:=if(CROSS(DIFF,DEA) AND XX-REF(XX,1)>0 AND MACD>=REF(MACD,1) AND DIFF<=0,1,0);

DRAWTEXT(DIFF金叉=1,DIFFA*1.68,'DIFF金叉'),colorCDFFBB;

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

DRAWTEXT(低位金叉,deaa*0.99,' 低位金叉'),COLOR0099DD;

DIFDEA:=COUNT(CROSS(DIFF,DEA),BARSLAST(DEA>=0));

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

DRAWTEXT(二次金叉,deaa*0.99-8,' 二次金叉'),ColorFF00FF;

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

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

DRAWTEXT(底背離,DEAA*0.99-16,' 底背離'),Color0099FF;

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

頂背離:=REF(C,A2+1)<C AND REF(DIFF,A2+1)>DIFF AND CROSS(DEA,DIFF);

DRAWTEXT(FILTER(頂背離,5),DEAA*1.02,'頂背離'),COLORDDAAAA;

{周金叉,死叉}

周DIFF:="MACD.DIFF#WEEK";

周DEA:="MACD.DEA#WEEK";

周MACD:="MACD.MACD#WEEK";

DIF周金叉:=CROSS(周DIFF,周DEA);

DRAWTEXT(DIF周金叉,DEAA,'DIFF周金叉'),COLOR0099FF;

DRAWTEXT(CROSS(周DEA,周DIFF),DEAA+4,'DIFF周死叉'),align0,COLORCDFFBB;

MACD周金叉:=CROSS(周MACD,周DIFF) AND 周MACD>=(0-0.05) AND 周MACD<=0.02;

DRAWTEXT(MACD周金叉,macda-0.03,'MACD周金叉'),color00FFFF;

{月金叉,死叉}

月DIFF:="MACD.DIFF#MONTH";

月DEA:="MACD.DEA#MONTH";

DIF月金叉:=CROSS(月DIFF,月DEA);

DRAWTEXT(DIF月金叉,DEAA*0.98,'DIF月金叉'),COLOR00FFCC;

DRAWTEXT(CROSS(月DEA,月DIFF),DEAA*1.02,'DIF月死叉'),align0,COLORDDDDDD;

周K:="KDJ.K#WEEK"(9,3,3);

周D:="KDJ.D#WEEK"(9,3,3);

周J:="KDJ.J#WEEK"(9,3,3);

月K:="KDJ.K#MONTH"(9,3,3);

月D:="KDJ.D#MONTH"(9,3,3);

月J:="KDJ.J#MONTH"(9,3,3);

月金叉:=cross(月K,月D);

周金叉:=cross(周K,周D);

日金叉:=FILTER(cross(K,D) and K<20,4);

drawtext(月金叉,月D-2,''),ALIGN0,color0022ee;

DRAWTEXT(月金叉,月D-2,'KD月金叉'),coloryellow;

drawtext(周金叉,周D,''),ALIGN2,color0022ee;

DRAWTEXT(周金叉,周D,' KD周金叉'),COLORGREEN;{http://www.tumamayizhan.com}

DRAWICON(日金叉,K,1),align2;

DRAWTEXT(日金叉,D-6,'低位金叉'),color00CCCC;

DRAWTEXT(CROSS(周D,周K),周D*1.2,'KD周死叉'),COLOR00DDBB;

DRAWTEXT(CROSS(月D,月K),月D,'KD月死叉'),COLORFFFFFF;

KDB:=BARSLAST(ref(cross(k,d),1));

KDDB:=ref(close,KDB+1)>close and ref(k,KDB+1)<k and cross(k,d);

K底背:=if(FILTER(KDDB>0,5),1,0);

DRAWTEXT(K底背=1,D*0.98,'底背離'),COLORDDDDDD;

KDD:=BARSLAST(ref(cross(d,k),1));

K頂背:=ref(close,KDD+1)<close and ref(k,KDD+1)>k and cross(d,k);

DRAWTEXT(FILTER(K頂背>0,5),D+8,'頂背離'),COLORFFAA22;

MD1:=MA(C,80)-MA(C,13)/3;

MD2:=MA((C-MD1)/MD1,3);

買點(diǎn)1:=CROSS(MD2,0) AND L/REF(H,1)<1.012 AND J<75 AND J>REF(J,1);

ma12:=MA(C,12);

佳點(diǎn):=if(FILTER(MACD>=REF(MACD,5) AND open<=ref(close,1) and XX-REF(XX,1)>0 AND MACD<=0 AND ma12-REF(ma12,1)>=0,3) and J<80 and J>ref(J,1) and D>ref(D,1) and (diff>=ref(diff,1) or dea>=ref(dea,1)),1,0);

DRAWTEXT(佳點(diǎn)=1,macda*0.98,'佳點(diǎn)'),color0099FF;

DX0:=EMA(C,2)-EMA(O,5);

DX1:=if(CROSS(DX0,MACD) AND L<=XX AND MACD<=(0-0.11) and (J<20 or K<20),1,0);

DRAWTEXT(FILTER(DX1,3),0,'短10%'),color00CC00;{短線}

MA10:=MA(C,10);

SS:=EMA(MA(H,3)*1.05,30);

LQS:=if(FILTER(0.7*(CROSS(DIFF,DEA) AND C<SS AND XX-REF(XX,1)>0 AND CROSS(MACD,0) AND MACD>=0 AND DIFF>0 AND ma10-REF(ma10,1)>0 AND V>REF(V,1))>=0.7 AND (C<SS AND XX-REF(XX,1)>0),5) AND J<80,1,0);

DRAWTEXT(LQS=1,macda*0.98,'量價齊上'),colorCDFFDD;{量價齊上}

公式導(dǎo)入教程: 【通達(dá)信公式源碼導(dǎo)入方法教程】【同花順公式源碼導(dǎo)入方法教程】【大智慧新一代公式源碼導(dǎo)入方法教程】