软件名称：[B]KDMACD（副图 源码 解盘）[/B]
软件类型：国产软件
运行环境：Win9X/Win2000/WinXP/Win2003/
软件语言：简体中文
授权方式：免费版
软件大小：20.0 KB
官方主页：Home Page
更新时间：2011-03-13 08:13:51
软件简介:

DRAWGBK(CLOSE>0,COLORRGB(1,1841,3411),COLORRGB(1,1881,6532),3);
RSV:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100;
K:SMA(RSV,3,1),LINETHICK2,colorFFFFFF;
D:SMA(K,3,1),LINETHICK2,colorDDDD;
J:3*K-2*D,LINETHICK2,color800080;
DIFF:EMA(CLOSE,12)-EMA(CLOSE,26),LINETHICK0,color99FF;
DEA:EMA(DIFF,9),LINETHICK0,colorFF9999;
MACD:2*(DIFF-DEA),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,color9900;
明压:阻价,LINETHICK0;
明撑:支价,LINETHICK0;
DD1:=BACKSET(ISLASTBAR,SUM(1,0));
DD2:=(3*HIGH+LOW+OPEN+2*CLOSE)/7*DD1;
DD3:=(DD2+REF(DD2,1)+REF(DD2,3)+REF(DD2,5))/4*DD1;
大单:EMA(DD3,10),LINETHICK0,colorCC9900;
RSV1:=(HHV(HIGH,9.8)-CLOSE)/(HHV(HIGH,9.8)-LLV(LOW,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,-10,0),colorCCCC;
明天卖:IF(买卖=0,90,100),colorFF00;
KX:=SYSPARAM(3)-SYSPARAM(2)+1;
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[DATACOUNT],MAX(DH[DATACOUNT],JH[DATACOUNT]));
LKMIN:=MIN(KL[DATACOUNT],MIN(DL[DATACOUNT],JL[DATACOUNT]));
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[DATACOUNT],MAX(MHD[DATACOUNT],MHM[DATACOUNT]));
LMIN:=MIN(MLF[DATACOUNT],MIN(MLD[DATACOUNT],MLM[DATACOUNT]));
FHLB:=(HMAX-LMIN)/100;
FHLC:=HMAX-LMIN;
SH:=(-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),colorAAFF;
STICKLINE(CDA,SH,MACDA,6.6,0),colorBBFF;
STICKLINE(CDA,SH,MACDA,4.4,0),colorCCFF;
STICKLINE(CDA,SH,MACDA,3.3,0),colorDDFF;
STICKLINE(CDA,SH,MACDA,2.2,0),colorEEFF;
STICKLINE(CDA,SH,MACDA,1.1,0),colorFFFF;
STICKLINE(CDB,SH,MACDA,6,0),colorAA;
STICKLINE(CDB,SH,MACDA,6.6,0),color11BB;
STICKLINE(CDB,SH,MACDA,4.4,0),color22CC;
STICKLINE(CDB,SH,MACDA,3.3,0),color33DD;
STICKLINE(CDB,SH,MACDA,2.2,0),color44EE;
STICKLINE(CDB,SH,MACDA,1.1,0),color55FF;
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(DIFF>0 OR DIFF<0,DIFFA),POINTDOT,LINETHICK1,color99FF;
PARTLINE(DEA>0 OR DEA<0,DEAA),POINTDOT,LINETHICK1,colorFF9999;
DRAWTEXT(ISLASTBAR,SH,'  0'),colorAAAA;
TYP:=(HIGH+LOW+CLOSE)/3;
CCI:=(TYP-MA(TYP,14))/(0.015*AVEDEV(TYP,14));
STICKLINE(CDB OR CDC OR 明天买<0 AND CCI<-10 OR CDA AND DIFF/DEA>=REF(DIFF/DEA,1),19,20,2,0),colorFF;
STICKLINE(明天买>=0 AND (CDD OR CDA AND DIFF/DEA<REF(DIFF/DEA,1)),19,20,2,1),colorFF00;
STICKLINE(K>=REF(K,1),80,80,2,1),colorFF;
STICKLINE(K<REF(K,1),80,80,2,1),colorFF00;
PARTLINE(K>0 OR K<0,K),LINETHICK2,colorFFFFFF;
PARTLINE(D>0 OR D<0,D),LINETHICK2,colorDDDD;
PARTLINE(J>0 OR J<0,J),LINETHICK2,color800080;
MACD金叉:=CROSS(MACD,DIFF) AND MACD>=-0.05 AND MACD<=0.02;
DRAWTEXT(MACD金叉,MACDA*0.82,'MACD金叉'),colorFFFF;
XX:=FFT(MA(LOW,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(低位金叉,10,' 低位金叉'),color99DD;
JCCOUNT:=COUNT(CROSS(DIFF,DEA),BARSLAST(DEA>=0));
二次金叉:=CROSS(DIFF,DEA) AND DEA<0 AND COUNT(JCCOUNT=2,21)=1;
DRAWTEXT(二次金叉,DEAA*0.96,' 二次金叉'),ALIGN0,colorFF00FF;
A1:=BARSLAST(REF(CROSS(DIFF,DEA),1));
底背离:=REF(CLOSE,A1+1)>CLOSE AND DIFF>REF(DIFF,A1+1) AND CROSS(DIFF,DEA);
DRAWTEXT(底背离,-2,' 底背离'),color99FF;
A2:=BARSLAST(REF(CROSS(DEA,DIFF),1));
顶背离:=REF(CLOSE,A2+1)<CLOSE 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,'DIF周金叉'),colorFFCC;
DRAWTEXT(CROSS(周DEA,周DIFF),DEAA*1.08,'DIF周死叉'),ALIGN0,colorCDFFBB;
MACD周金叉:=CROSS(周MACD,周DIFF) AND 周MACD>=-0.05 AND 周MACD<=0.02;
DRAWTEXT(MACD周金叉,MACDA-0.03,'MACD周金叉'),colorFFFF;
月DIFF:="MACD.DIFF#MONTH";
月DEA:="MACD.DEA#MONTH";
DIF月金叉:=CROSS(月DIFF,月DEA);
DRAWTEXT(DIF月金叉,DEAA*0.98,'DIF月金叉'),colorFFCC;
DRAWTEXT(CROSS(月DEA,月DIFF),DEAA*1.02,'DIF月死叉'),ALIGN0,colorDDDDDD;
周K:="KDJ.K#week";
周D:="KDJ.D#week";
周J:="KDJ.J#week";
月K:="KDJ.K#MONTH";
月D:="KDJ.D#MONTH";
月J:="KDJ.J#MONTH";
月金叉:=CROSS("KDJ.K#MONTH","KDJ.D#MONTH");
周金叉:=CROSS("KDJ.K#week","KDJ.D#week");
日金叉:=FILTER(CROSS(K,D) AND K<20,4);
DRAWTEXT(月金叉,月D-2,'★'),ALIGN0,color22EE;
DRAWTEXT(月金叉,月D-2,'KD月金叉'),colorFFFF;
DRAWTEXT(周金叉,周D,'★'),ALIGN2,color22EE;
DRAWTEXT(周金叉,周D,' KD周金叉'),colorFF00;
DRAWICON(日金叉,K,1),ALIGN2;
DRAWTEXT(日金叉,D-6,'低位金叉'),colorCCCC;
DRAWTEXT(CROSS("KDJ.D#week"(9,3,3),"KDJ.K#week"(9,3,3)),周D*1.2,'KD周死叉'),colorDDBB;
DRAWTEXT(CROSS("KDJ.D#MONTH"(9,3,3),"KDJ.K#MONTH"(9,3,3)),月D-2,'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*1.06,'顶背离'),colorFFFFDD;
MD1:=MA(CLOSE,80)-MA(CLOSE,13)/3;
MD2:=MA((CLOSE-MD1)/MD1,3);
买点1:=IF(CROSS(MD2,0) AND LOW/REF(HIGH,1)<1.012 AND J<75 AND J>REF(J,1),1,0);
DRAWTEXT(买点1=1,D*0.96,'买'),colorFF00FF;
MA12:=MA(CLOSE,12);
佳点:=IF(FILTER(MACD>=REF(MACD,5) 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(佳点=1,MACDA*0.98,'佳点'),color99FF;
DX0:=EMA(CLOSE,2)-EMA(OPEN,5);
DX5%:=IF(CROSS(DX0,MACD) AND LOW<=XX AND MACD<=-0.11 AND (J<20 OR K<20),1,0);
DRAWTEXT(DX5%,MACDA*0.96,'短
[url=http://www.70822.com/soft/sort013/sort02/down-31550.html]KDMACD（副图 源码 解盘）[/url]