KDJ＋MACD寒松整编之副图（通达信原码）
RSV:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100;
RQ:=IF(DATE+19000000<20080630,1,0);
K:SMA(RSV,3,1)*RQ,LINETHICK2,COLORWHITE;
D:SMA(K,3,1),LINETHICK2,COLOR00DDDD;
J:3*K-2*D,LINETHICK2,COLORBB00CC;
DIFF:EMA(CLOSE,12)-EMA(CLOSE,26),COLORBROWN,LINETHICK0;
DEA:EMA(DIFF,9),LINETHICK0,COLORFF9999;
MACD:2*(DIFF-DEA),COLOR00DDDD,LINETHICK0;
KX:=250;
HK:=HHV(K,KX);
HD:=HHV(D,KX);
HJ:=HHV(J,KX);
LK:=LLV(K,KX);
LD:=LLV(D,KX);
LJ:=LLV(J,KX);
HKMAX:=MAX(HK,MAX(HD,HJ));
LKMIN:=MIN(LK,MIN(LD,LJ));
KDBL:=(HKMAX+LKMIN)/2;
KDC:=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));
FDBL:=(HMAX+LMIN)/100;
FDC:=HMAX-LMIN;
SH:=(0-FDBL)*(KDC/FDC)+KDBL;
DIFFA:(DIFF-FDBL)*(KDC/FDC)+KDBL,COLOR00AA00;
DEAA:(DEA-FDBL)*(KDC/FDC)+KDBL,COLORCCBBBB;
MACDA:=(MACD-FDBL)*(KDC/FDC)+KDBL;
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(CDB,SH,MACDA,1,0),COLOREE00EE;
STICKLINE(CDA,SH,MACDA,1,0),COLOR00DDDD;
STICKLINE(CDC,SH,MACDA,1,0),COLORAA11BB;
STICKLINE(CDD,SH,MACDA,1,0),COLORBLUE;
{STICKLINE(DIFF,DIFFA,DIFFA,1,1),COLOR00CC00;
STICKLINE(DEA,DEAA,DEAA,1,1),COLORCCBBBB};
STICKLINE(MACD>=0,79,80,5,1),COLORBB00AA;
STICKLINE(MACD<0,79,80,5,1),COLORGREEN;
STICKLINE(CDB OR CDC,19,20,5,1),COLORBB00AA;
STICKLINE(CDD OR CDA,19,20,5,1),COLORGREEN;
[ 本帖最后由 小财神祺祺 于 2007-11-27 15:03 编辑 ]
附件: 您所在的用户组无法下载或查看附件
