咨詢內容：

改在博弈上用

短高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;
D90H:=EMA(短高H,90),COLORRED,LINETHICK1;
D90L:=EMA(短低L,90),COLORRED,LINETHICK1;
D90差:=D90H-D90L;
D90頂:=D90H+D90差*2,COLORRED,LINETHICK1;
D90底:=D90L-D90差*2,COLORRED,LINETHICK1;
高0:=(XMA(XMA(H,25),25)-XMA(XMA(L,25),25))*1+XMA(XMA(H,25),25),LINETHICK1,COLORWHITE;
低0:=XMA(XMA(L,25),25)-(XMA(XMA(H,25),25)-XMA(XMA(L,25),25))*1,LINETHICK1,COLORWHITE;
多頭定位:=低0>=D90底 AND 高0>=D90頂;
空頭定位:=高0<=D90頂 AND 低0<=D90底;
震蕩定位:=低0>=D90底 AND 高0<=D90頂;
波段頂0:=(XMA(XMA(H,60),60)-XMA(XMA(L,60),60))*3+XMA(XMA(H,60),60),LINETHICK2,COLORGREEN;
波段底0:=XMA(XMA(L,60),60)-(XMA(XMA(H,60),60)-XMA(XMA(L,60),60))*3,LINETHICK2,COLORGREEN;
STICKLINE(多頭定位=1,高0,低0,5,0),COLOR000066;
STICKLINE(空頭定位=1,高0,低0,5,0),COLOR003300;
STICKLINE(震蕩定位=1,高0,低0,5,0),COLOR555555;
STICKLINE(1=1,D90H,D90L,5,0),COLORLIGRAY;
多止損:XMA(XMA(L,25),25)-(XMA(XMA(H,25),25)-XMA(XMA(L,25),25))*3.5,DOTLINE,COLORGREEN;
多止盈:(XMA(XMA(H,25),25)-XMA(XMA(L,25),25))*1+XMA(XMA(H,25),25),LINETHICK0,COLORWHITE;
空止損:(XMA(XMA(H,25),25)-XMA(XMA(L,25),25))*3.5+XMA(XMA(H,25),25),DOTLINE,COLORRED;
空止盈:XMA(XMA(L,25),25)-(XMA(XMA(H,25),25)-XMA(XMA(L,25),25))*0.5,LINETHICK0,COLORWHITE;
做空:(XMA(XMA(H,25),25)-XMA(XMA(L,25),25))*1+XMA(XMA(H,25),25),LINETHICK1,COLORWHITE;
做多:XMA(XMA(L,25),25)-(XMA(XMA(H,25),25)-XMA(XMA(L,25),25))*1,LINETHICK1,COLORWHITE;
空損:=(XMA(XMA(H,25),25)-XMA(XMA(L,25),25))*3.9+XMA(XMA(H,25),25),LINETHICK1,COLORYELLOW;
多損:=XMA(XMA(L,25),25)-(XMA(XMA(H,25),25)-XMA(XMA(L,25),25))*3.9,LINETHICK1,COLORYELLOW;
波段頂:=(XMA(XMA(H,60),60)-XMA(XMA(L,60),60))*3+XMA(XMA(H,60),60),LINETHICK1,COLORRED;
波段底:=XMA(XMA(L,60),60)-(XMA(XMA(H,60),60)-XMA(XMA(L,60),60))*3,LINETHICK1,COLORGREEN;
DRAWTEXT(ISLASTBAR,做空,'空'),COLORWHITE;
DRAWTEXT(ISLASTBAR,做多,'多'),COLORWHITE;
DRAWTEXT(ISLASTBAR,空損,'損'),COLORRED;
DRAWTEXT(ISLASTBAR,多損,'損'),COLORGREEN;
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,LOW,HIGH,0.0,0),COLORRED;?
STICKLINE(今D>=昨D,CLOSE,OPEN,3,1),COLORRED;
STICKLINE(今D<=昨D,LOW,HIGH,0.0,0),COLORGREEN;?
STICKLINE(今D<=昨D,CLOSE,OPEN,3,1),COLORGREEN;
多線:=DRAWLINE(HIGH>=HHV(HIGH,12),HIGH,LOW<=LLV(LOW,12),HHV(HIGH,2),1),LINETHICK2,COLORMAGENTA;
空線:=DRAWLINE(LOW<=LLV(LOW,12),LOW,HIGH>=HHV(HIGH,12),LLV(LOW,2),1),LINETHICK2,COLORWHITE;
白色點多定位1:=L<做多 AND H>做多;
白色點空定位1:=H>做空 AND L<做空;
STICKLINE(白色點多定位1=1,L,做多,3,0),COLORWHITE;?
STICKLINE(白色點空定位1=1,H,做空,3,0),COLORWHITE;?
白色點多定位2:=H<做多;
白色點空定位2:=L>做空;
STICKLINE(白色點多定位2=1,L,H,0.0,0),COLORWHITE;?
STICKLINE(白色點多定位2=1,C,O,3,0),COLORWHITE;
STICKLINE(白色點空定位2=1,L,H,0.0,0),COLORWHITE;?
STICKLINE(白色點空定位2=1,C,O,3,0),COLORWHITE;
多頭紅色點:=今D>昨D;
空頭紅色點:=今D<昨D;
多頭紅色點定位1:=白色點多定位1=1 AND 多頭紅色點=1;
空頭紅色點定位1:=白色點空定位1=1 AND 空頭紅色點=1;
STICKLINE(多頭紅色點定位1=1,L,做多,3,0),COLORMAGENTA;?
STICKLINE(空頭紅色點定位1=1,H,做空,3,0),COLORMAGENTA;?
多頭紅色點定位2:=白色點多定位2=1 AND 多頭紅色點=1;
空頭紅色點定位2:=白色點空定位2=1 AND 空頭紅色點=1;
STICKLINE(多頭紅色點定位2=1,L,H,0.0,0),COLORMAGENTA;?
STICKLINE(多頭紅色點定位2=1,C,O,3,0),COLORMAGENTA;
STICKLINE(空頭紅色點定位2=1,L,H,0.0,0),COLORMAGENTA;?
STICKLINE(空頭紅色點定位2=1,C,O,3,0),COLORMAGENTA;
多頭多定位:=CROSS(做多,L) AND 多頭定位=1;
多頭平定位:=CROSS(H,做空) AND 多頭定位=1 AND 震蕩定位=0;
空頭空定位:=CROSS(H,做空) AND 空頭定位=1;
空頭平定位:=CROSS(做多,L) AND 空頭定位=1 AND 震蕩定位=0;
震蕩多定位:=CROSS(做多,L) AND 震蕩定位=1;
震蕩空定位:=CROSS(H,做空) AND 震蕩定位=1;
<!-- 咨詢內容：

附件 :

-->

?

?來源:程序化99網（ www.kzuj.com.cn ）

博易技術人員： 短高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;
D90H:=EMA(短高H,90),COLORRED,LINETHICK1;
D90L:=EMA(短低L,90),COLORRED,LINETHICK1;
D90差:=D90H-D90L;
D90頂:=D90H+D90差*2,COLORRED,LINETHICK1;
D90底:=D90L-D90差*2,COLORRED,LINETHICK1;
高0:=(MA(MA(H,25),25)-MA(MA(L,25),25))*1+MA(MA(H,25),25),LINETHICK1,COLORWHITE;
低0:=MA(MA(L,25),25)-(MA(MA(H,25),25)-MA(MA(L,25),25))*1,LINETHICK1,COLORWHITE;
多頭定位:=低0>=D90底 AND 高0>=D90頂;
空頭定位:=高0<=D90頂 AND 低0<=D90底;
震蕩定位:=低0>=D90底 AND 高0<=D90頂;
波段頂0:=(MA(MA(H,60),60)-MA(MA(L,60),60))*3+MA(MA(H,60),60),LINETHICK2,COLORGREEN;
波段底0:=MA(MA(L,60),60)-(MA(MA(H,60),60)-MA(MA(L,60),60))*3,LINETHICK2,COLORGREEN;
STICKLINE(多頭定位=1,高0,低0,5,0),COLOR000066;
STICKLINE(空頭定位=1,高0,低0,5,0),COLOR003300;
STICKLINE(震蕩定位=1,高0,低0,5,0),COLOR555555;
STICKLINE(1=1,D90H,D90L,5,0),COLORGRAY;
多止損:MA(MA(L,25),25)-(MA(MA(H,25),25)-MA(MA(L,25),25))*3.5,COLORGREEN;
多止盈:(MA(MA(H,25),25)-MA(MA(L,25),25))*1+MA(MA(H,25),25),LINETHICK0,COLORWHITE;
空止損:(MA(MA(H,25),25)-MA(MA(L,25),25))*3.5+MA(MA(H,25),25),COLORRED;
空止盈:MA(MA(L,25),25)-(MA(MA(H,25),25)-MA(MA(L,25),25))*0.5,LINETHICK0,COLORWHITE;
做空:(MA(MA(H,25),25)-MA(MA(L,25),25))*1+MA(MA(H,25),25),LINETHICK1,COLORWHITE;
做多:MA(MA(L,25),25)-(MA(MA(H,25),25)-MA(MA(L,25),25))*1,LINETHICK1,COLORWHITE;
空損:=(MA(MA(H,25),25)-MA(MA(L,25),25))*3.9+MA(MA(H,25),25),LINETHICK1,COLORYELLOW;
多損:=MA(MA(L,25),25)-(MA(MA(H,25),25)-MA(MA(L,25),25))*3.9,LINETHICK1,COLORYELLOW;
波段頂:=(MA(MA(H,60),60)-MA(MA(L,60),60))*3+MA(MA(H,60),60),LINETHICK1,COLORRED;
波段底:=MA(MA(L,60),60)-(MA(MA(H,60),60)-MA(MA(L,60),60))*3,LINETHICK1,COLORGREEN;
DRAWTEXT(ISLASTBAR,做空,'空'),COLORWHITE;
DRAWTEXT(ISLASTBAR,做多,'多'),COLORWHITE;
DRAWTEXT(ISLASTBAR,空損,'損'),COLORRED;
DRAWTEXT(ISLASTBAR,多損,'損'),COLORGREEN;
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,LOW,HIGH,0.0,0),COLORRED;?
STICKLINE(今D>=昨D,CLOSE,OPEN,3,1),COLORRED;
STICKLINE(今D<=昨D,LOW,HIGH,0.0,0),COLORGREEN;?
STICKLINE(今D<=昨D,CLOSE,OPEN,3,1),COLORGREEN;
DRAWLINE(HIGH>=HHV(HIGH,12),HIGH,LOW<=LLV(LOW,12),HHV(HIGH,2),1),LINETHICK2,COLORMAGENTA;
DRAWLINE(LOW<=LLV(LOW,12),LOW,HIGH>=HHV(HIGH,12),LLV(LOW,2),1),LINETHICK2,COLORWHITE;
白色點多定位1:=L<做多 AND H>做多;
白色點空定位1:=H>做空 AND L<做空;
STICKLINE(白色點多定位1=1,L,做多,3,0),COLORWHITE;?
STICKLINE(白色點空定位1=1,H,做空,3,0),COLORWHITE;?
白色點多定位2:=H<做多;
白色點空定位2:=L>做空;
STICKLINE(白色點多定位2=1,L,H,0.0,0),COLORWHITE;?
STICKLINE(白色點多定位2=1,C,O,3,0),COLORWHITE;
STICKLINE(白色點空定位2=1,L,H,0.0,0),COLORWHITE;?
STICKLINE(白色點空定位2=1,C,O,3,0),COLORWHITE;
多頭紅色點:=今D>昨D;
空頭紅色點:=今D<昨D;
多頭紅色點定位1:=白色點多定位1=1 AND 多頭紅色點=1;
空頭紅色點定位1:=白色點空定位1=1 AND 空頭紅色點=1;
STICKLINE(多頭紅色點定位1=1,L,做多,3,0),COLORMAGENTA;?
STICKLINE(空頭紅色點定位1=1,H,做空,3,0),COLORMAGENTA;?
多頭紅色點定位2:=白色點多定位2=1 AND 多頭紅色點=1;
空頭紅色點定位2:=白色點空定位2=1 AND 空頭紅色點=1;
STICKLINE(多頭紅色點定位2=1,L,H,0.0,0),COLORMAGENTA;?
STICKLINE(多頭紅色點定位2=1,C,O,3,0),COLORMAGENTA;
STICKLINE(空頭紅色點定位2=1,L,H,0.0,0),COLORMAGENTA;?
STICKLINE(空頭紅色點定位2=1,C,O,3,0),COLORMAGENTA;
多頭多定位:=CROSS(做多,L) AND 多頭定位=1;
多頭平定位:=CROSS(H,做空) AND 多頭定位=1 AND 震蕩定位=0;
空頭空定位:=CROSS(H,做空) AND 空頭定位=1;
空頭平定位:=CROSS(做多,L) AND 空頭定位=1 AND 震蕩定位=0;
震蕩多定位:=CROSS(做多,L) AND 震蕩定位=1;
震蕩空定位:=CROSS(H,做空) AND 震蕩定位=1; 和上圖不一樣啊，K線不在兩條白色軌道內啊麻煩再改改，謝謝 來源 程序化久久網