咨詢內容：
懇請老師改寫成博易指標公式，謝謝老師
HH:=(20*H+19*REF(H,1)+18*REF(H,2)+17*REF(H,3)+16*REF(H,4)+15*REF(H,5)+14*REF(H,6)
+13*REF(H,7)+12*REF(H,8)+11*REF(H,9)+10*REF(H,10)+9*REF(H,11)+8*REF(H,12)
+7*REF(H,13)+6*REF(H,14)+5*REF(H,15)+4*REF(H,16)+3*REF(H,17)+2*REF(H,18)+
REF(H,20))/210,COLORBLUE,LINETHICK1;
LL:=(20*L+19*REF(L,1)+18*REF(L,2)+17*REF(L,3)+16*REF(L,4)+15*REF(L,5)+14*REF(L,6)
+13*REF(L,7)+12*REF(L,8)+11*REF(L,9)+10*REF(L,10)+9*REF(L,11)+8*REF(L,12)
+7*REF(L,13)+6*REF(L,14)+5*REF(L,15)+4*REF(L,16)+3*REF(L,17)+2*REF(L,18)+
REF(L,20))/210,COLORBLUE,LINETHICK1;
D90H:=EMA(HH,90),COLORRED,LINETHICK1;
D90L:=EMA(LL,90),COLORRED,LINETHICK1;
DGH:=(20*H+19*REF(H,1)+18*REF(H,2)+17*REF(H,3)+16*REF(H,4)+15*REF(H,5)+14*REF(H,6)
+13*REF(H,7)+12*REF(H,8)+11*REF(H,9)+10*REF(H,10)+9*REF(H,11)+8*REF(H,12)
+7*REF(H,13)+6*REF(H,14)+5*REF(H,15)+4*REF(H,16)+3*REF(H,17)+2*REF(H,18)+
REF(H,20))/210,COLORBLUE,LINETHICK1;
DDL:=(20*L+19*REF(L,1)+18*REF(L,2)+17*REF(L,3)+16*REF(L,4)+15*REF(L,5)+14*REF(L,6)
+13*REF(L,7)+12*REF(L,8)+11*REF(L,9)+10*REF(L,10)+9*REF(L,11)+8*REF(L,12)
+7*REF(L,13)+6*REF(L,14)+5*REF(L,15)+4*REF(L,16)+3*REF(L,17)+2*REF(L,18)+
REF(L,20))/210,COLORBLUE,LINETHICK1;
D90C:=D90H-D90L;
D90D:=D90H+D90C*2,COLORRED,LINETHICK1;
D90T:=D90L-D90C*2,COLORRED,LINETHICK1;
G0:=(REFX1(MA(REFX1(MA(H,25),25/2),25),25/2)-REFX1(MA(REFX1(MA(L,25),25/2),25),25/2))*1+REFX1(MA(REFX1(MA(H,25),25/2),25),25/2),LINETHICK1,COLORWHITE;
D0:=REFX1(MA(REFX1(MA(L,25),25/2),25),25/2)-(REFX1(MA(REFX1(MA(H,25),25/2),25),25/2)-REFX1(MA(REFX1(MA(L,25),25/2),25),25/2))*1,LINETHICK1,COLORWHITE;
DTD:=D0>=D90T AND G0>=D90D;
KTD:=G0<=D90D AND D0<=D90T;
ZDD:=D0>=D90T AND G0<=D90D;
BDD0:=(REFX1(MA(REFX1(MA(H,60),60/2),60),60/2)-REFX1(MA(REFX1(MA(L,60),60/2),60),60/2))*3+REFX1(MA(REFX1(MA(H,60),60/2),60),60/2),LINETHICK2,COLORGREEN;
BDT0:=REFX1(MA(REFX1(MA(L,60),60/2),60),60/2)-(REFX1(MA(REFX1(MA(H,60),60/2),60),60/2)-REFX1(MA(REFX1(MA(L,60),60/2),60),60/2))*3,LINETHICK2,COLORGREEN;
STICKLINE(DTD=1,G0,D0,5,0),COLOR000066;
STICKLINE(KTD=1,G0,D0,5,0),COLOR003300;
STICKLINE(ZDD=1,G0,D0,5,0),COLOR555555;
ZK1:(REFX1(MA(REFX1(MA(H,25),25/2),25),25/2)-REFX1(MA(REFX1(MA(L,25),25/2),25),25/2))*1+REFX1(MA(REFX1(MA(H,25),25/2),25),25/2),DOT,COLORWHITE;
ZD1:REFX1(MA(REFX1(MA(L,25),25/2),25),25/2)-(REFX1(MA(REFX1(MA(H,25),25/2),25),25/2)-REFX1(MA(REFX1(MA(L,25),25/2),25),25/2))*1,DOT,COLORWHITE;
BS:(REFX1(MA(REFX1(MA(H,60),60/2),60),60/2)-REFX1(MA(REFX1(MA(L,60),60/2),60),60/2))*2.2+REFX1(MA(REFX1(MA(H,60),60/2),60),60/2),DOT,COLORRED;
SS:=REFX1(MA(REFX1(MA(L,25),25/2),25),25/2)-(REFX1(MA(REFX1(MA(H,25),25/2),25),25/2)-REFX1(MA(REFX1(MA(L,25),25/2),25),25/2))*1.5,DOT,COLORGREEN;
BD:REFX1(MA(REFX1(MA(L,60),60/2),60),60/2)-(REFX1(MA(REFX1(MA(H,60),60/2),60),60/2)-REFX1(MA(REFX1(MA(L,60),60/2),60),60/2))*2.8,DOT,COLORGREEN;
ZZ:=(ZK1+ZD1)/2,DOT,COLORYELLOW;
STICKLINE(1=1,D90H,D90L,5,0),COLORGRAY;
DEA3:=EMA((EMA(CLOSE,3) - EMA(CLOSE,6)),9),COLORGREEN,LINETHICK2;
DEA3B:=REF(DEA3,1),COLORWHITE,LINETHICK1;?
DEA33B:=EMA((EMA(EMA(CLOSE,3) - EMA(CLOSE,9),3) - EMA(EMA(CLOSE,3) - EMA(CLOSE,9),9)),9),COLORWHITE,LINETHICK1;
DEA333B:=REF(DEA33B,1),COLORWHITE,LINETHICK1;
STICKLINE(DEA3B<DEA3 OR DEA333B<DEA33B,L,H,0.0,0),COLORRED;?
STICKLINE(DEA3B<DEA3 OR DEA333B<DEA33B,C,O,3,1),COLORRED;
STICKLINE(DEA3<DEA3B,L,H,0.0,0),COLORGREEN;?
STICKLINE(DEA3<DEA3B,C,O,3,1),COLORGREEN;
白色點多定位1:=L<ZD1 AND H>ZD1;
白色點空定位1:=H>ZK1 AND L<ZK1;
STICKLINE(白色點多定位1=1,L,ZD1,3.2,0),COLOR0044FF;
STICKLINE(白色點多定位1=1,L,ZD1,2.7,0),COLOR0066FF;
STICKLINE(白色點多定位1=1,L,ZD1,2.1,0),COLOR0088FF;
STICKLINE(白色點多定位1=1,L,ZD1,1.5,0),COLOR00AAFF;
STICKLINE(白色點多定位1=1,L,ZD1,0.9,0),COLOR00CCFF;
STICKLINE(白色點多定位1=1,L,ZD1,0.2,0),COLOR00FFFF;
STICKLINE(白色點空定位1=1,H,ZK1,3.2,0),COLOR770077;
STICKLINE(白色點空定位1=1,H,ZK1,2.7,0),COLOR990099;
STICKLINE(白色點空定位1=1,H,ZK1,2.1,0),COLORBB00BB;
STICKLINE(白色點空定位1=1,H,ZK1,1.5,0),COLORDD00DD;
STICKLINE(白色點空定位1=1,H,ZK1,0.9,0),COLORFF00FF;
STICKLINE(白色點空定位1=1,H,ZK1,0.2,0),COLORFF55FF;?
白色點多定位2:=H<ZD1;
白色點空定位2:=L>ZK1;
STICKLINE(白色點多定位2=1,L,H,0.0,0),COLOR00FFFF;?
STICKLINE(白色點多定位2=1,C,O,3.2,0),COLOR0044FF;
STICKLINE(白色點多定位2=1,C,O,2.7,0),COLOR0066FF;
STICKLINE(白色點多定位2=1,C,O,2.1,0),COLOR0088FF;
STICKLINE(白色點多定位2=1,C,O,1.5,0),COLOR00AAFF;
STICKLINE(白色點多定位2=1,C,O,0.9,0),COLOR00CCFF;
STICKLINE(白色點多定位2=1,C,O,0.2,0),COLOR00FFFF;
STICKLINE(白色點空定位2=1,L,H,0.0,0),COLORFF55FF;?
STICKLINE(白色點空定位2=1,C,O,3.2,0),COLOR770077;
STICKLINE(白色點空定位2=1,C,O,2.7,0),COLOR990099;
STICKLINE(白色點空定位2=1,C,O,2.1,0),COLORBB00BB;
STICKLINE(白色點空定位2=1,C,O,1.5,0),COLORDD00DD;
STICKLINE(白色點空定位2=1,C,O,0.9,0),COLORFF00FF;
STICKLINE(白色點空定位2=1,C,O,0.2,0),COLORFF55FF;
多頭紅色點:=DEA3B<DEA3 OR DEA333B<DEA33B;
空頭紅色點:=DEA3B>DEA3 OR DEA333B>DEA33B;
多頭紅色點定位1:=白色點多定位1=1 AND 多頭紅色點=1;
空頭紅色點定位1:=白色點空定位1=1 AND 空頭紅色點=1;
STICKLINE(多頭紅色點定位1=1,L,ZD1,3.2,0),COLOR000077;
STICKLINE(多頭紅色點定位1=1,L,ZD1,2.7,0),COLOR000099;
STICKLINE(多頭紅色點定位1=1,L,ZD1,2.1,0),COLOR0000BB;
STICKLINE(多頭紅色點定位1=1,L,ZD1,1.5,0),COLOR0000DD;
STICKLINE(多頭紅色點定位1=1,L,ZD1,0.9,0),COLOR0000FF;
STICKLINE(多頭紅色點定位1=1,L,ZD1,0.2,0),COLOR6666FF;
STICKLINE(空頭紅色點定位1=1,H,ZK1,3.2,0),COLORFF0000;
STICKLINE(空頭紅色點定位1=1,H,ZK1,2.7,0),COLORFF3300;
STICKLINE(空頭紅色點定位1=1,H,ZK1,2.1,0),COLORFF5500;
STICKLINE(空頭紅色點定位1=1,H,ZK1,1.5,0),COLORFF7700;
STICKLINE(空頭紅色點定位1=1,H,ZK1,0.9,0),COLORFF9900;
STICKLINE(空頭紅色點定位1=1,H,ZK1,0.2,0),COLORFFCC00;
多頭紅色點定位2:=白色點多定位2=1 AND 多頭紅色點=1;
空頭紅色點定位2:=白色點空定位2=1 AND 空頭紅色點=1;
STICKLINE(多頭紅色點定位2=1,L,H,0.0,0),COLOR6666FF;?
STICKLINE(多頭紅色點定位2=1,C,O,3.2,0),COLOR000077;
STICKLINE(多頭紅色點定位2=1,C,O,2.7,0),COLOR000099;
STICKLINE(多頭紅色點定位2=1,C,O,2.1,0),COLOR0000BB;
STICKLINE(多頭紅色點定位2=1,C,O,1.5,0),COLOR0000DD;
STICKLINE(多頭紅色點定位2=1,C,O,0.9,0),COLOR0000FF;
STICKLINE(多頭紅色點定位2=1,C,O,0.2,0),COLOR6666FF;
STICKLINE(空頭紅色點定位2=1,L,H,0.0,0),COLORFFCC00;?
STICKLINE(空頭紅色點定位2=1,C,O,3.2,0),COLORFF0000;
STICKLINE(空頭紅色點定位2=1,C,O,2.7,0),COLORFF3300;
STICKLINE(空頭紅色點定位2=1,C,O,2.1,0),COLORFF5500;
STICKLINE(空頭紅色點定位2=1,C,O,1.5,0),COLORFF7700;
STICKLINE(空頭紅色點定位2=1,C,O,0.9,0),COLORFF9900;
STICKLINE(空頭紅色點定位2=1,C,O,0.2,0),COLORFFCC00;
多頭多定位:=CROSS(ZD1,L) AND DTD=1;
多頭平定位:=CROSS(H,ZK1) AND DTD=1 AND ZDD=0;
空頭空定位:=CROSS(H,ZK1) AND KTD=1;
空頭平定位:=CROSS(ZD1,L) AND KTD=1 AND ZDD=0;
震蕩多定位:=CROSS(ZD1,L) AND ZDD=1;
震蕩空定位:=CROSS(H,ZK1) AND ZDD=1;
DRAWTEXT(ISLASTBAR,ZK1,'賣'),COLORWHITE;
DRAWTEXT(ISLASTBAR,ZD1,'買'),COLORWHITE;
DRAWTEXT(ISLASTBAR,BS,'頂'),COLORRED;
DRAWTEXT(ISLASTBAR,BD,'底'),COLORGREEN;
DRAWICON(空頭平定位=1,L,5);
DRAWICON(多頭平定位=1,H,15);
DRAWICON(多頭多定位=1 OR 震蕩多定位=1,L,5);
DRAWICON(空頭空定位=1 OR 震蕩空定位=1,H,15);
?
?來源:程序化99網（ www.weiqiv.net.cn ）
博易技術人員：
買入:REFX(REFX(MA(L,120),120/2),120/2)-(REFX(REFX(MA(H,120),120/2),120/2)-REFX(REFX(MA(L,120),120/2),120/2))*4,COLORYELLOW,NODRAW;
止盈:(REFX(REFX(MA(H,120),120/2),120/2)-REFX(REFX(MA(L,120),120/2),120/2))*4+REFX(REFX(MA(H,120),120/2),120/2),COLORWHITE,NODRAW;
止損:REFX(REFX(MA(L,120),120/2),120/2)-(REFX(REFX(MA(H,120),120/2),120/2)-REFX(REFX(MA(L,120),120/2),120/2))*6,COLORWHITE,NODRAW;
短高H:=(20*H+19*REF(H,1)+18*REF(H,2)+17*REF(H,3)+16*REF(H,4)+15*REF(H,5)+14*REF(H,6)
+13*REF(H,7)+12*REF(H,8)+11*REF(H,9)+10*REF(H,10)+9*REF(H,11)+8*REF(H,12)
+7*REF(H,13)+6*REF(H,14)+5*REF(H,15)+4*REF(H,16)+3*REF(H,17)+2*REF(H,18)+
REF(H,20))/210,COLORBLUE,LINETHICK1;
短低L:=(20*L+19*REF(L,1)+18*REF(L,2)+17*REF(L,3)+16*REF(L,4)+15*REF(L,5)+14*REF(L,6)
+13*REF(L,7)+12*REF(L,8)+11*REF(L,9)+10*REF(L,10)+9*REF(L,11)+8*REF(L,12)
+7*REF(L,13)+6*REF(L,14)+5*REF(L,15)+4*REF(L,16)+3*REF(L,17)+2*REF(L,18)+
REF(L,20))/210,COLORBLUE,LINETHICK1;
多空線:=(短高H+短低L)/2;
D90:=EMA(多空線,90);
A252:=DATACOUNT-BARPOS-1;
高0:=(REFX(REFX(MA(H,25),A252),A252)-REFX(REFX(MA(L,25),A252),A252))*1+REFX(REFX(MA(H,25),A252),A252),LINETHICK1,COLORWHITE;
低0:=REFX(REFX(MA(L,25),A252),A252)-(REFX(REFX(MA(H,25),A252),A252)-REFX(REFX(MA(L,25),A252),A252))*1,LINETHICK1,COLORWHITE;
多頭定位:=多空線>=D90;
空頭定位:=多空線<D90;
短頂:=(REFX(REFX(MA(H,25),A252),A252)-REFX(REFX(MA(L,25),A252),A252))*2+REFX(REFX(MA(H,25),A252),A252),LINETHICK2,COLORGREEN;
短底:=REFX(REFX(MA(L,25),A252),A252)-(REFX(REFX(MA(H,25),A252),A252)-REFX(REFX(MA(L,25),A252),A252))*2,LINETHICK2,COLORGREEN;
短線收盤:=(C-短底)/(短頂-短底)*100000,LINETHICK2,COLORRED;
短線開盤:=(O-短底)/(短頂-短底)*100000,LINETHICK2,COLORRED;
短線高盤:=(H-短底)/(短頂-短底)*100000,LINETHICK2,COLORRED;
短線低盤:=(L-短底)/(短頂-短底)*100000,NODRAW,COLORRED;
STICKLINE(多頭定位=1,90000,20000,5,0),COLOR000066;
STICKLINE(空頭定位=1,90000,20000,5,0),COLOR003300;
做空:90000,COLORWHITE,LINETHICK1;
做多:20000,COLORWHITE,LINETHICK1;
RSV:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100;
K:=SMA(RSV,3,1);
D:=SMA(K,3,1);
J:=3*K-2*D;
今D:=EMA(D,3);
昨D:=REF(今D,1);
STICKLINE(今D>=昨D,短線低盤,短線高盤,1,0),COLORRED;
STICKLINE(今D>=昨D,短線收盤,短線開盤,5,1),COLORRED;
STICKLINE(今D<=昨D,短線低盤,短線高盤,1,0),COLORGREEN;
STICKLINE(今D<=昨D,短線收盤,短線開盤,5,1),COLORGREEN;
白色點多定位1:=短線低盤<做多 AND 短線高盤>做多;
白色點空定位1:=短線高盤>做空 AND 短線低盤<做空;
STICKLINE(白色點多定位1=1,短線低盤,做多,5,0),COLORWHITE;
STICKLINE(白色點空定位1=1,短線高盤,做空,5,0),COLORWHITE;
白色點多定位2:=短線高盤<做多;
白色點空定位2:=短線低盤>做空;
STICKLINE(白色點多定位2=1,短線低盤,短線高盤,1,0),COLORWHITE;
STICKLINE(白色點多定位2=1,短線收盤,短線開盤,5,0),COLORWHITE;
STICKLINE(白色點空定位2=1,短線低盤,短線高盤,1,0),COLORWHITE;
STICKLINE(白色點空定位2=1,短線收盤,短線開盤,5,0),COLORWHITE;
多頭紅色點:=今D>昨D;
空頭紅色點:=今D<昨D;
多頭紅色點定位1:=白色點多定位1=1 AND 多頭紅色點=1;
空頭紅色點定位1:=白色點空定位1=1 AND 空頭紅色點=1;
STICKLINE(多頭紅色點定位1=1,短線低盤,做多,5,0),COLORMAGENTA;
STICKLINE(空頭紅色點定位1=1,短線高盤,做空,5,0),COLORMAGENTA;
多頭紅色點定位2:=白色點多定位2=1 AND 多頭紅色點=1;
空頭紅色點定位2:=白色點空定位2=1 AND 空頭紅色點=1;
STICKLINE(多頭紅色點定位2=1,短線低盤,短線高盤,1,0),COLORMAGENTA;
STICKLINE(多頭紅色點定位2=1,短線收盤,短線開盤,5,0),COLORMAGENTA;
STICKLINE(空頭紅色點定位2=1,短線低盤,短線高盤,1,0),COLORMAGENTA;
STICKLINE(空頭紅色點定位2=1,短線收盤,短線開盤,5,0),COLORMAGENTA;
多頭多定位:=CROSS(做多,短線低盤) AND 多頭定位=1;
多頭平定位:=CROSS(短線高盤,做空) AND 多頭定位=1;
空頭空定位:=CROSS(短線高盤,做空) AND 空頭定位=1;
空頭平定位:=CROSS(做多,短線低盤) AND 空頭定位=1;
DRAWICON(空頭平定位=1,短線低盤,5);
DRAWICON(多頭平定位=1,短線高盤,6);
DRAWICON(多頭多定位=1,短線低盤,5);
DRAWICON(空頭空定位=1,短線高盤,6);
DRAWTEXT(ISLASTBAR,90000,'賣'),COLORGREEN;
DRAWTEXT(ISLASTBAR,20000,'買'),COLORRED;
來源 程序化久久網
打印本文
關閉窗口