咨詢內容： 老師請修改成博弈，萬分感謝 來自 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止損: 老師，改好了但有些擋住了，能不能紅點變綠點加個哭臉，綠點變紅點加笑臉，謝謝 來源 程序化久久網