咨詢內容：

幫我改到現貨版上

AADATE:=DATE<1991230;
DRAWGBK(C>0, RGB(0,10,10),RGB(88,0,0),0,'0',0);
Z1:=STRCAT(HYBLOCK,' ');
Z2:=STRCAT(Z1,DYBLOCK);
Z3:=STRCAT(Z2,' ');
DRAWTEXT_FIX(ISLASTBAR,0,0,0,STRCAT(Z3,GNBLOCK)),COLORRED;
ZK1:=(XMA(XMA(H,25),25)-XMA(XMA(L,25),25))*1+XMA(XMA(H,25),25),DOTLINE,COLORBLUE;
ZD1:=XMA(XMA(L,25),25)-(XMA(XMA(H,25),25)-XMA(XMA(L,25),25))*1,LINETHICK2,COLORRED;
ZD2:=EMA(ZD1,25),LINETHICK2;
鴻鳴上軌:IF(AADATE,(XMA(XMA(H,25),25)-XMA(XMA(L,25),25))*1+XMA(XMA(H,25),25),DRAWNULL),DOTLINE,COLORYELLOW;
鴻鳴中軌:IF(AADATE,XMA(XMA(L,25),25)-(XMA(XMA(H,25),25)-XMA(XMA(L,25),25))*1,DRAWNULL),LINETHICK2,COLORRED;
鴻鳴下軌:IF(AADATE,EMA(ZD1,25),DRAWNULL),LINETHICK2,COLORCYAN;

DRAWBAND(ZD1,RGB(55,0,0),ZD2,RGB(0,91,0));
DRAWKLINE(H,O,L,C);
STICKLINE(IF(AADATE,ZD1>LOW AND ZD1<HIGH,DRAWNULL),ZD1,MIN(MIN(OPEN,CLOSE),ZD1),2,0),COLORYELLOW;
STICKLINE(IF(AADATE,ZD1>MIN(C,O) AND ZD1<MAX(C,O),DRAWNULL),ZD1,MIN(OPEN,CLOSE),2,0),COLORYELLOW;
STICKLINE(IF(AADATE,ZD1>HIGH,DRAWNULL),OPEN,CLOSE,2,0),COLORYELLOW;
STICKLINE(IF(AADATE,ZD1>HIGH,DRAWNULL),HIGH,LOW,0,0),COLORYELLOW;
A1:=(DVOL/C)/2,NODRAW;

?

?來源:程序化99網（ www.weiqiv.net.cn ）

博易技術人員： AADATE:=DATE<1991230;
ZK1:=(EMA(EMA(H,25),25)-EMA(EMA(L,25),25))*1+EMA(EMA(H,25),25),COLORBLUE;
ZD1:=EMA(EMA(L,25),25)-(EMA(EMA(H,25),25)-EMA(EMA(L,25),25))*1,LINETHICK2,COLORRED;
ZD2:=EMA(ZD1,25),LINETHICK2;
鴻鳴上軌:IF(AADATE,(EMA(EMA(H,25),25)-EMA(EMA(L,25),25))*1+EMA(EMA(H,25),25),DRAWNULL),COLORYELLOW;
鴻鳴中軌:IF(AADATE,EMA(EMA(L,25),25)-(EMA(EMA(H,25),25)-EMA(EMA(L,25),25))*1,DRAWNULL),LINETHICK2,COLORRED;
鴻鳴下軌:IF(AADATE,EMA(ZD1,25),DRAWNULL),LINETHICK2,COLORCYAN;
FILLRGN2(ZD1,ZD2,ZD1>ZD2,COLOR000037,ZD1<ZD2,COLOR005B00);
DRAWKLINE(H,O,L,C);
STICKLINE(IF(AADATE,ZD1>LOW AND ZD1<HIGH,DRAWNULL),ZD1,MIN(MIN(OPEN,CLOSE),ZD1),2,0),COLORYELLOW;
STICKLINE(IF(AADATE,ZD1>MIN(C,O) AND ZD1<MAX(C,O),DRAWNULL),ZD1,MIN(OPEN,CLOSE),2,0),COLORYELLOW;
STICKLINE(IF(AADATE,ZD1>HIGH,DRAWNULL),OPEN,CLOSE,2,0),COLORYELLOW;
STICKLINE(IF(AADATE,ZD1>HIGH,DRAWNULL),HIGH,LOW,0,0),COLORYELLOW; 現貨版不能用，5.4上能用再說和原版差異很大 來源 程序化久久網