咨詢內容：

懇請老師改寫成博易指標公式，謝謝老師

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網（ m.kzuj.com.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; 來源 程序化久久網