求BB2000老师把通达信金波银浪指标改为飞狐指标

zjl_369

求BB2000老师把通达信金波银浪指标改为飞狐指标

来自：MACD论坛(bbs.macd.cn) 作者：zjl_369 浏览：987 回复：1

{金波银浪20101212} HQ0:=IF(ZIG(MA((H+L)/2,3),5)>REF(ZIG(MA((H+L)/2,3),5),1),1,0); STICKLINE(HQ0=1,0,0.5,1,0),COLORRED;
STICKLINE(HQ0=1,100,99.5,1,0),COLORRED;
STICKLINE(HQ0=0,0,0.5,1,0),COLORGREEN;
STICKLINE(HQ0=0,100,99.5,1,0),COLORGREEN;
LOWV:=LLV(LOW,9);
HIGHV:=HHV(HIGH,9);
RSV:=EMA((CLOSE-LOWV)/(HIGHV-LOWV)*100,3);
走势F:EMA(RSV,3),COLORWHITE;
走势S:MA(走势F,3),COLORYELLOW;
RSVZ:=(CLOSE-LLV(LOW,18))/(HHV(HIGH,18)-LLV(LOW,18))*100;
PKZ:=SMA(RSVZ,5,1);
PDZ:=SMA(PKZ,6,1);
PJZ:=3*PKZ-2*PDZ;
LC:=REF(CLOSE,1);
VSI1:=SMA(MAX(CLOSE-LC,0),6,1)/SMA(ABS(CLOSE-LC),6,1)*100;
LX:=PERIOD;
ZQ:=IF(LX=5,4,IF(LX=4,4,IF(LX=2,8,4)));
DXW:=IF((ZIG(3,5)>REF(ZIG(3,5),1)) AND (REF(ZIG(3,5),1)<=REF(ZIG(3,5),2)) AND (REF(ZIG(3,5),2)<=REF(ZIG(3,5),3)),1,0);
DXWMC:=IF((ZIG(3,5)<REF(ZIG(3,5),1)) AND (REF(ZIG(3,5),1)>=REF(ZIG(3,5),2)) AND (REF(ZIG(3,5),2)>=REF(ZIG(3,5),3)),1,0);
MR1:=SUM(DXW,ZQ);
ZS2:=IF(MR1>0,1,0);
RSV1:=(CLOSE - LLV(LOW,18))/(HHV(HIGH,18) - LLV(LOW,18))*100;
K1:=EMA(RSV1,3);  D1:=EMA(K1,3);  J1:=(3*K1-2*D1);  
KDJ1:=REF(COUNT(J1<REF(J1,1),5)>=3,1) AND REF(J1,1)<20;
KDJ2:=J1>REF(J1,1);
FZ:=SUM(IF(FILTER(KDJ1 AND KDJ2,3),30,0),ZQ);
ZS3:=IF(FZ>0,1,0);
MD:=ZS2 AND ZS3;
TYP:=(HIGH+LOW+CLOSE)/3;
AZZ:=(TYP-MA(TYP,14))/(0.015*AVEDEV(TYP,14));
ZBPD:=IF(走势F>=走势S OR AZZ>=-100,1,0);
MR:=MD AND ZBPD; XSZQ:=IF(PERIOD=5,3,4);
DYC:=IF(SUM(MR,XSZQ)>1,0,1);
STICKLINE(MR AND DYC,0,35,1,0),COLORRED;
DRAWTEXT(MR AND DYC,20,' 买进'),COLORRED;
DRAWICON(DXW,10,1);
底部:IF(CLOSE<MA(L+(H-L)/2,25)*0.95,1,DRAWNULL),NODRAW,COLORMAGENTA;
STICKLINE(底部,0,5,5,1),COLORMAGENTA;
HSL:=(VOL/CAPITAL)*100;
ZF:=(ABS(CLOSE-OPEN)/REF(CLOSE,1))*100;
ZHB:=(ZF/HSL)*100;
ZHB10:=MA(ZHB,10);
NOSL:=IF((VOL>REF(MA(VOL,3),1)*0.8),1,0);
ZX:=LOW+(HIGH-LOW)/2; ZXMAX:=HHV(ZX,10);
YH1:=BARSLAST(DXW); YH2:=BARSLAST(DXWMC);
DQPD:=IF(YH2=0,1,IF(YH1>YH2,0,1));
GD1:=IF(PJZ>=100,1,0);
GD2:=COUNT(PJZ>=100,3);
GDCS:=IF(GD2>0,1,0);
KDJPD:=IF(GD1 OR GDCS,1,0);
RS2:=IF(VSI1>=80,1,0);
RS3:=COUNT(VSI1>=80,3);
RSICS:=IF(RS3>0,1,0);
RSIPD:=IF(RS2 OR RSICS,1,0);
ZBPD1:=IF(KDJPD AND VSI1>60,1,0);
ZBPD2:=IF(RSIPD AND PJZ>80,1,0);
ZBPD0:=ZBPD1 OR ZBPD2;
ZHBMAX:=HHV(ZHB10,5),NODRAW;
TD2:=IF(ZX=ZXMAX AND ZHB10<ZHBMAX,1,0);
TD3:=IF(DQPD AND TD2 AND NOSL,1,0);
TD33:=IF(ZBPD0 AND TD3,1,0);
STICKLINE(TD33,100,75,1,0),COLORGREEN;
DYC2:=IF(SUM(TD33,5)>1,0,1);
DRAWTEXT(TD33 AND DYC2,60,'悬崖'),COLORGREEN;
DRAWICON(DXWMC,90,2);
顶部:IF(HIGH>MA(L+(H-L)/2,25)*1.15,1,DRAWNULL),NODRAW,COLORCYAN;
STICKLINE(顶部,100,95,5,1),COLORCYAN;

谢感共

象这种有未来涵数的，论坛应该管一管才好。
不知要害死多少人啊！