帮我改到现货板上 [博易POBO]
咨询内容:
/*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;
博易云可以使用,老版本目前不支持服务,您可以试一下这个公式。如果不能使用,可以咨询给您软件的公司升级到新版本 来源 程序化久久网
帮我改到现货板上
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;
来源:程序化99网( WWW.CXH99.COM )
博易技术人员: 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;
博易云可以使用,老版本目前不支持服务,您可以试一下这个公式。如果不能使用,可以咨询给您软件的公司升级到新版本 来源 程序化久久网
有思路,想编写各种指标公式,交易模型,选股公式,还原公式的朋友
可联系技术人员 QQ: 262069696 或微信号:cxh99cxh99 进行 有偿收费 编写!
(注:由于人数限制,QQ或微信请选择方便的一个联系我们就行,加好友时请简单备注下您的需求,否则无法通过。谢谢您!)
相关文章
-
没有相关内容