咨詢內(nèi)容：

老師煩請(qǐng)幫忙把以下文華改為博易大師用

DIFF:=EMA(CLOSE,12)-EMA(CLOSE,26);
DEA:=EMA(DIFF,9);
MACD:=2*(DIFF-DEA),COLORSTICK;
金:=CROSS(DIFF,DEA);
死:=CROSSDOWN(DIFF,DEA);
HH0:=REFX1(HHV(H,75),10000);
LL0:=REFX1(LLV(L,75),10000);
MM0:=REFX1((HH0+LL0)/2,10000);
HL0:=REFX1(IF(REFX1(C,10000)>=MM0,LL0-(HH0-LL0)*0.2,HH0+(HH0-LL0)*0.2),10000);
HH1:=IF(REFX1(C,10000)<MM0,HH0*1.01,HL0);
LL1:=IF(REFX1(C,10000)>=MM0,LL0*0.99,HL0);
HL1:=(HH1+LL1)/2,COLORYELLOW;
DIFFX:=EMA(CLOSE,5)-EMA(CLOSE,26);
DEAX:=EMA(DIFFX,3);
MACDX:=(DIFFX-DEAX)*2,COLORSTICK;
STICKLINE(MACD>0,MACD+HL1,HL1,2,1),COLOR00FFFF;
STICKLINE(MACD>0 AND MACD>REF(MACD,1),
MACD+HL1,HL1,2,0),COLORFF00FF;
STICKLINE(MACD<0,MACD+HL1,HL1,2,0),COLOR00FFFF;
STICKLINE(MACD<0 AND MACD>REF(MACD,1),
MACD+HL1,HL1,2,1),COLORFF00FF;
RSV1:=(C-LLV(L,9))/(HHV(H,9)-LLV(L,9));
RSVK:=SMA(RSV1,3,1);
RSVD:=SMA(RSVK,3,1);
RSVJ:=RSVK*3-RSVD*2;
K:=RSVK*3+HL1,COLORWHITE;
D:=RSVD*3+HL1,COLORYELLOW;
J:=RSVJ*3+HL1,COLORRED,LINETHICK2;
DRAWBAND(K,RGB(150,0,150),D,RGB(150,150,150));
FILLRGN(K>D,K,D,RGB(150,0,150));
FILLRGN(K<D,K,D,RGB(150,150,150));
?

?

?來(lái)源:程序化99網(wǎng)（ www.weiqiv.net.cn ）

博易技術(shù)人員： 收到，謝謝老師。 DIFF:=EMA(CLOSE,12)-EMA(CLOSE,26);
U:=DATACOUNT-BARPOS-1;
DEA:=EMA(DIFF,9);
MACD:=2*(DIFF-DEA),COLORSTICK;
金:=CROSS(DIFF,DEA);
死:=CROSS(DEA,DIFF);
HH0:=REFX(HHV(H,75),U);
LL0:=REFX(LLV(L,75),U);
MM0:=REFX((HH0+LL0)/2,U);
HL0:=REFX(IF(REFX(C,U)>=MM0,LL0-(HH0-LL0)*0.2,HH0+(HH0-LL0)*0.2),U);
HH1:=IF(REFX(C,U)<MM0,HH0*1.01,HL0);
LL1:=IF(REFX(C,U)>=MM0,LL0*0.99,HL0);
HL1:=(HH1+LL1)/2,COLORYELLOW;
DIFFX:=EMA(CLOSE,5)-EMA(CLOSE,26);
DEAX:=EMA(DIFFX,3);
MACDX:=(DIFFX-DEAX)*2,COLORSTICK;
STICKLINE(MACD>0,MACD+HL1,HL1,2,1),COLOR00FFFF;
STICKLINE(MACD>0ANDMACD>REF(MACD,1),
MACD+HL1,HL1,2,0),COLORFF00FF;
STICKLINE(MACD<0,MACD+HL1,HL1,2,0),COLOR00FFFF;
STICKLINE(MACD<0ANDMACD>REF(MACD,1),
MACD+HL1,HL1,2,1),COLORFF00FF;
RSV1:=(C-LLV(L,9))/(HHV(H,9)-LLV(L,9));
RSVK:=SMA(RSV1,3,1);
RSVD:=SMA(RSVK,3,1);
RSVJ:=RSVK*3-RSVD*2;
K:=RSVK*3+HL1,COLORWHITE;
D:=RSVD*3+HL1,COLORYELLOW;
J:=RSVJ*3+HL1,COLORRED,LINETHICK2;
FILLRGN2(K,D,K>D,COLOR960096,K<D,COLOR969696); 來(lái)源 程序化久久網(wǎng)