幫我改到現(xiàn)貨板上 [博易POBO]
咨詢內(nèi)容:
/*DRAWGBK(C>0, RGB(0,10,10),RGB(88,0,0),0,?',0);
Z1:=STRCAT(HYBLOCK,' ');
Z2:=STRCAT(Z1,DYBLOCK);
Z3:=STRCAT(Z2,' ');
DRAWTEXT_FIX(ISLASTBAR,0,0,0,STRCAT(Z3,GNBLOCK)),COLORRED;
*/
XH25:=REFX1(MA(H,25),25/2);
XHH25:=REFX1(XH25,25/2);
XL25:=REFX1(MA(L,25),25/2);
XLL25:=REFX1(XL25,25/2);
//ZK1:=(XMA(XMA(H,25),25)-XMA(XMA(L,25),25))*1+XMA(XMA(H,25),25),DOT,COLORBLUE;
ZK1:(XHH25-XLL25)*1+XHH25,DOT,COLORBLUE;
//ZD1:=XMA(XMA(L,25),25)-(XMA(XMA(H,25),25)-XMA(XMA(L,25),25))*1,LINETHICK2,COLORRED;
ZD1:XLL25-(XHH25-XLL25)*1,LINETHICK2,COLORRED;
ZD2:=EMA(ZD1,25),LINETHICK2;
鴻鳴上軌:IF(AADATE,ZK1,NULL),DOT,COLORYELLOW;
鴻鳴中軌:IF(AADATE,ZD1,NULL),LINETHICK2,COLORRED;
鴻鳴下軌:IF(AADATE,EMA(ZD1,25),NULL),LINETHICK2,COLORCYAN;
//DRAWBAND(ZD1,RGB(55,0,0),ZD2,RGB(0,91,0));
FILLRGN(ZD1>ZD2,ZD1,ZD2,RGB(55,0,0));
FILLRGN(ZD1<ZD2,ZD1,ZD2,RGB(0,91,0));
DRAWKLINE1(H,O,L,C);
STICKLINE(IF(AADATE,ZD1>LOW AND ZD1<HIGH,NULL),ZD1,MIN(MIN(OPEN,CLOSE),ZD1),2,0),COLORYELLOW;
STICKLINE(IF(AADATE,ZD1>MIN(C,O) AND ZD1<MAX(C,O),NULL),ZD1,MIN(OPEN,CLOSE),2,0),COLORYELLOW;
STICKLINE(IF(AADATE,ZD1>HIGH,NULL),OPEN,CLOSE,2,0),COLORYELLOW;
STICKLINE(IF(AADATE,ZD1>HIGH,NULL),HIGH,LOW,0,0),COLORYELLOW;
A1:=(VOL/C)/2,NODRAW;
XH25:=REFX(MA(H,25),25/2);
XHH25:=REFX(XH25,25/2);
XL25:=REFX(MA(L,25),25/2);
XLL25:=REFX(XL25,25/2);
ZK1:(XHH25-XLL25)*1+XHH25,POINTDOT,COLORBLUE;
ZD1:XLL25-(XHH25-XLL25)*1,LINETHICK2,COLORRED;
ZD2:=EMA(ZD1,25),LINETHICK2;
鴻鳴上軌:IF(AADATE,ZK1,DRAWNULL),POINTDOT,COLORYELLOW;
鴻鳴中軌:IF(AADATE,ZD1,DRAWNULL),LINETHICK2,COLORRED;
鴻鳴下軌:IF(AADATE,EMA(ZD1,25),DRAWNULL),LINETHICK2,COLORCYAN;
FILLRGN(ZD1>ZD2,ZD1,ZD2),COLOR000037;
FILLRGN(ZD1<ZD2,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;
A1:=(VOL/C)/2,NODRAW;
?
博易云可以使用,老版本目前不支持服務(wù),您可以試一下這個(gè)公式。如果不能使用,可以咨詢給您軟件的公司升級(jí)到新版本 來(lái)源 程序化久久網(wǎng)
幫我改到現(xiàn)貨板上
AADATE:=DATE<331231;/*DRAWGBK(C>0, RGB(0,10,10),RGB(88,0,0),0,?',0);
Z1:=STRCAT(HYBLOCK,' ');
Z2:=STRCAT(Z1,DYBLOCK);
Z3:=STRCAT(Z2,' ');
DRAWTEXT_FIX(ISLASTBAR,0,0,0,STRCAT(Z3,GNBLOCK)),COLORRED;
*/
XH25:=REFX1(MA(H,25),25/2);
XHH25:=REFX1(XH25,25/2);
XL25:=REFX1(MA(L,25),25/2);
XLL25:=REFX1(XL25,25/2);
//ZK1:=(XMA(XMA(H,25),25)-XMA(XMA(L,25),25))*1+XMA(XMA(H,25),25),DOT,COLORBLUE;
ZK1:(XHH25-XLL25)*1+XHH25,DOT,COLORBLUE;
//ZD1:=XMA(XMA(L,25),25)-(XMA(XMA(H,25),25)-XMA(XMA(L,25),25))*1,LINETHICK2,COLORRED;
ZD1:XLL25-(XHH25-XLL25)*1,LINETHICK2,COLORRED;
ZD2:=EMA(ZD1,25),LINETHICK2;
鴻鳴上軌:IF(AADATE,ZK1,NULL),DOT,COLORYELLOW;
鴻鳴中軌:IF(AADATE,ZD1,NULL),LINETHICK2,COLORRED;
鴻鳴下軌:IF(AADATE,EMA(ZD1,25),NULL),LINETHICK2,COLORCYAN;
//DRAWBAND(ZD1,RGB(55,0,0),ZD2,RGB(0,91,0));
FILLRGN(ZD1>ZD2,ZD1,ZD2,RGB(55,0,0));
FILLRGN(ZD1<ZD2,ZD1,ZD2,RGB(0,91,0));
DRAWKLINE1(H,O,L,C);
STICKLINE(IF(AADATE,ZD1>LOW AND ZD1<HIGH,NULL),ZD1,MIN(MIN(OPEN,CLOSE),ZD1),2,0),COLORYELLOW;
STICKLINE(IF(AADATE,ZD1>MIN(C,O) AND ZD1<MAX(C,O),NULL),ZD1,MIN(OPEN,CLOSE),2,0),COLORYELLOW;
STICKLINE(IF(AADATE,ZD1>HIGH,NULL),OPEN,CLOSE,2,0),COLORYELLOW;
STICKLINE(IF(AADATE,ZD1>HIGH,NULL),HIGH,LOW,0,0),COLORYELLOW;
A1:=(VOL/C)/2,NODRAW;
?
?來(lái)源:程序化99網(wǎng)( m.weiqiv.net.cn )
博易技術(shù)人員: AADATE:=DATE<331231;XH25:=REFX(MA(H,25),25/2);
XHH25:=REFX(XH25,25/2);
XL25:=REFX(MA(L,25),25/2);
XLL25:=REFX(XL25,25/2);
ZK1:(XHH25-XLL25)*1+XHH25,POINTDOT,COLORBLUE;
ZD1:XLL25-(XHH25-XLL25)*1,LINETHICK2,COLORRED;
ZD2:=EMA(ZD1,25),LINETHICK2;
鴻鳴上軌:IF(AADATE,ZK1,DRAWNULL),POINTDOT,COLORYELLOW;
鴻鳴中軌:IF(AADATE,ZD1,DRAWNULL),LINETHICK2,COLORRED;
鴻鳴下軌:IF(AADATE,EMA(ZD1,25),DRAWNULL),LINETHICK2,COLORCYAN;
FILLRGN(ZD1>ZD2,ZD1,ZD2),COLOR000037;
FILLRGN(ZD1<ZD2,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;
A1:=(VOL/C)/2,NODRAW;
?
博易云可以使用,老版本目前不支持服務(wù),您可以試一下這個(gè)公式。如果不能使用,可以咨詢給您軟件的公司升級(jí)到新版本 來(lái)源 程序化久久網(wǎng)
有思路,想編寫各種指標(biāo)公式,交易模型,選股公式,還原公式的朋友
可聯(lián)系技術(shù)人員 QQ: 262069696 或微信號(hào):cxh99cxh99 進(jìn)行 有償收費(fèi) 編寫!
(怎么收費(fèi),代編流程等詳情請(qǐng)點(diǎn)擊閱讀!)
(注:由于人數(shù)限制,QQ或微信請(qǐng)選擇方便的一個(gè)聯(lián)系我們就行,加好友時(shí)請(qǐng)簡(jiǎn)單備注下您的需求,否則無(wú)法通過(guò)。謝謝您!)
相關(guān)文章
-
沒有相關(guān)內(nèi)容