咨詢內容：
老師請修改成博弈，萬分感謝
來自 Pobo 5.5.88.0
CURRBARSCOUNT:=DATACOUNT-BARPOS+1;
DRAWLINE(CURRBARSCOUNT=BARPOS,REFX1(C,10000),CURRBARSCOUNT=1,C,3),COLORWHITE,POINTDOT;
//現價:TRENDLINES(CURRBARSCOUNT=BARPOS,REFX1(C,10000),CURRBARSCOUNT=1,C),COLORWHITE,POINTDOT;
MHH:=HHV(HIGH,10);
MLL:=LLV(LOW,5);
MHH1:=BARSLAST((C > REF(MHH,1)));
MLL1:=BARSLAST((C < REF(MLL,1)));
//多平:IF((MHH1 <MLL1),MLL,NULL),COLORLIGHTRED,DOT;
MYHH:=HHV(HIGH,5);
MYLL:=LLV(LOW,10);
MYHH1:=BARSLAST((C > REF(MYHH,1)));
MYLL1:=BARSLAST((C < REF(MYLL,1)));
//空平:IF((MYHH1>MYLL1),MYHH,NULL),COLORCYAN,DOT;
?
?
EM01:=EMA(C,13);
EM:=EMA(C,21);
UP:=EMA(EM,17);
DOWN:=EMA(EM,13);
MAM:(EMA(EM01,2)+EMA(EM01,7))/2,COLORRED;
IF(MAM<REF(MAM,1),MAM,NULL),COLORGREEN;
MIDD:(UP+DOWN)/2,COLORWHITE,NODRAW;
STICKLINE(MIDD>REF(MIDD,1),UP,DOWN,1,0),COLORRED;
STICKLINE(MIDD<REF(MIDD,1),UP,DOWN,1,0),COLORGREEN;
STICKLINE(MIDD=REF(MIDD,1),UP,DOWN,1,0),COLORGRAY;
EMAC:EMA(C,144),COLORWHITE,POINTDOT;
IF(EMAC>REF(EMAC,1),EMAC,NULL),COLORLIGHTRED,POINTDOT;
IF(EMAC<REF(EMAC,1),EMAC,NULL),COLORGREEN,POINTDOT;
//{云氏RSI平倉}
LC:=REF(CLOSE,1);
RSI1:=SMA(MAX(CLOSE-LC,0),4,1)/SMA(ABS(CLOSE-LC),4,1)*100,COLORBLUE;
?
RN:=20;
RM:=2;
RTR1:=MAX(MAX((HIGH-LOW),ABS(REF(CLOSE,1)-HIGH)),ABS(REF(CLOSE,1)-LOW));
ATR基準:=(H+L)/2,NODRAW;
波幅:=H-L;
ATR:=MA(RTR1,RN),COLORYELLOW;
RUP:=ATR基準+ATR*RM;
RDN:=ATR基準-ATR*RM;
RL1:=REF(RUP,BARSLAST(RUP<=REF(RUP,1)));
RL1B:=REF(RDN,BARSLAST(RDN>=REF(RDN,1)));
RL2:=LLV(RUP,RN*1.5);
RL2B:=HHV(RDN,RN*1.5);
RLL:=IF(RL2=REF(RL2,1) AND RL1<REF(RL1,1),RL1,IF(RL1=RL2,RL1,RL2));
RLLB:=IF(RL2B=REF(RL2B,1) AND RL1B>REF(RL1B,1),RL1B,IF(RL1B=RL2B,RL1B,RL2B));
RS1:=BARSLAST(CROSS(0.5,RUP=RLL))+1;
RS1B:=BARSLAST(CROSS(0.5,RDN=RLLB))+1;
RS2:=CROSS(COUNT((CROSS(C,RLL) OR CROSS(C,REF(RLL,2))) AND RUP>RLL,RS1),0.5);
RS2B:=CROSS(COUNT((CROSSDOWN(C,RLLB) OR CROSSDOWN(C,REF(RLLB,2))) AND RDN<RLLB,RS1B),0.5);
RA6:=BARSLAST(RS2);
RA6B:=BARSLAST(RS2B);
RB6:=BARSLAST(CROSS(HHV(RDN,RA6+1),C));
RB6B:=BARSLAST(CROSSDOWN(LLV(RUP,RA6B+1),C));
RBY:=CROSS(RB6,RA6);
RBYB:=CROSSDOWN(RB6B,RA6B);
RSL:=CROSS(RA6,RB6);
RSLB:=CROSSDOWN(RA6B,RB6B);
止損線:=IF(RB6>RA6,HHV(RDN,BARSLAST(RBY)+1),LLV(RUP,BARSLAST(RSL)+1)),COLORFF00FF,LINETHICK5;
止盈線:=IF(RB6B>RA6B,LLV(RUP,BARSLAST(RBYB)+1),HHV(RDN,BARSLAST(RSLB)+1)),COLORGREEN,LINETHICK5;
IF(RB6>RA6,止損線,NULL),RGB(128,64,0),COLORFF00FF,LINETHICK5;
IF(RB6B>RA6B,止盈線,NULL),COLORGREEN,LINETHICK5;
?
DRAWSL1(ISLASTBAR,止損線,0,5,1),COLORYELLOW,LINETHICK5;//ATR止損:
DRAWSL1(ISLASTBAR,止盈線,0,5,1),COLORBLUE,LINETHICK5;//ATR止損:
?
?
?來源:程序化99網（ www.tumamayizhan.com ）
博易技術人員：
CURRBARSCOUNT:=DATACOUNT-BARPOS+1;
DRAWLINE(CURRBARSCOUNT=BARPOS,REFX(C,DATACOUNT-BARPOS-1),CURRBARSCOUNT=1,C,3),COLORWHITE,POINTDOT;
//現價:TRENDLINES(CURRBARSCOUNT=BARPOS,REFX1(C,10000),CURRBARSCOUNT=1,C),COLORWHITE,POINTDOT;
MHH:=HHV(HIGH,10);
MLL:=LLV(LOW,5);
MHH1:=BARSLAST((C > REF(MHH,1)));
MLL1:=BARSLAST((C < REF(MLL,1)));
//多平:IF((MHH1 <MLL1),MLL,NULL),COLORLIGHTRED,DOT;
MYHH:=HHV(HIGH,5);
MYLL:=LLV(LOW,10);
MYHH1:=BARSLAST((C > REF(MYHH,1)));
MYLL1:=BARSLAST((C < REF(MYLL,1)));
//空平:IF((MYHH1>MYLL1),MYHH,NULL),COLORCYAN,DOT;
?
?
EM01:=EMA(C,13);
EM:=EMA(C,21);
UP:=EMA(EM,17);
DOWN:=EMA(EM,13);
MAM:(EMA(EM01,2)+EMA(EM01,7))/2,COLORRED;
IF(MAM<REF(MAM,1),MAM,DRAWNULL),COLORGREEN;
MIDD:(UP+DOWN)/2,COLORWHITE,NODRAW;
STICKLINE(MIDD>REF(MIDD,1),UP,DOWN,1,0),COLORRED;
STICKLINE(MIDD<REF(MIDD,1),UP,DOWN,1,0),COLORGREEN;
STICKLINE(MIDD=REF(MIDD,1),UP,DOWN,1,0),COLORGRAY;
EMAC:EMA(C,144),COLORWHITE,POINTDOT;
IF(EMAC>REF(EMAC,1),EMAC,DRAWNULL),COLORRED,POINTDOT;
IF(EMAC<REF(EMAC,1),EMAC,DRAWNULL),COLORGREEN,POINTDOT;
//{云氏RSI平倉}
LC:=REF(CLOSE,1);
RSI1:=SMA(MAX(CLOSE-LC,0),4,1)/SMA(ABS(CLOSE-LC),4,1)*100,COLORBLUE;
?
RN:=20;
RM:=2;
RTR1:=MAX(MAX((HIGH-LOW),ABS(REF(CLOSE,1)-HIGH)),ABS(REF(CLOSE,1)-LOW));
ATR基準:=(H+L)/2,NODRAW;
波幅:=H-L;
ATR:=MA(RTR1,RN),COLORYELLOW;
RUP:=ATR基準+ATR*RM;
RDN:=ATR基準-ATR*RM;
RL1:=REF(RUP,BARSLAST(RUP<=REF(RUP,1)));
RL1B:=REF(RDN,BARSLAST(RDN>=REF(RDN,1)));
RL2:=LLV(RUP,RN*1.5);
RL2B:=HHV(RDN,RN*1.5);
RLL:=IF(RL2=REF(RL2,1) AND RL1<REF(RL1,1),RL1,IF(RL1=RL2,RL1,RL2));
RLLB:=IF(RL2B=REF(RL2B,1) AND RL1B>REF(RL1B,1),RL1B,IF(RL1B=RL2B,RL1B,RL2B));
RS1:=BARSLAST(CROSS(0.5,RUP=RLL))+1;
RS1B:=BARSLAST(CROSS(0.5,RDN=RLLB))+1;
RS2:=CROSS(COUNT((CROSS(C,RLL) OR CROSS(C,REF(RLL,2))) AND RUP>RLL,RS1),0.5);
RS2B:=CROSS(COUNT((CROSS(RLLB,C) OR CROSS(REF(RLLB,2),C)) AND RDN<RLLB,RS1B),0.5);
RA6:=BARSLAST(RS2);
RA6B:=BARSLAST(RS2B);
RB6:=BARSLAST(CROSS(HHV(RDN,RA6+1),C));
RB6B:=BARSLAST(CROSS(LLV(RA6B+1,RUP),C));
RBY:=CROSS(RB6,RA6);
RBYB:=CROSS(RA6B,RB6B);
RSL:=CROSS(RA6,RB6);
RSLB:=CROSS(RB6B,RA6B);
止損線:=IF(RB6>RA6,HHV(RDN,BARSLAST(RBY)+1),LLV(RUP,BARSLAST(RSL)+1)),COLORFF00FF,LINETHICK5;
止盈線:=IF(RB6B>RA6B,LLV(RUP,BARSLAST(RBYB)+1),HHV(RDN,BARSLAST(RSLB)+1)),COLORGREEN,LINETHICK5;
IF(RB6>RA6,止損線,DRAWNULL),COLOR004080,COLORFF00FF,LINETHICK5;
IF(RB6B>RA6B,止盈線,DRAWNULL),COLORGREEN,LINETHICK5;
?
DRAWSL(ISLASTBAR,止損線,0,5,1),COLORYELLOW,LINETHICK5;//ATR止損:
DRAWSL(ISLASTBAR,止盈線,0,5,1),COLORBLUE,LINETHICK5;//ATR止損:
老師，改好了但有些擋住了，能不能紅點變綠點加個哭臉，綠點變紅點加笑臉，謝謝
來源 程序化久久網
打印本文
關閉窗口