請老師幫忙把通達信指標改為博易大師指標，謝謝　[博易POBO]

咨詢內容： 請老師幫忙把通達信指標改為博易大師指標，謝謝 <!-- 咨詢內容： 附件 : --> 指標.docx

?

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

博易技術人員： VAR1:=EMA(EMA(CLOSE,13),13);
控盤:= (VAR1-REF(VAR1,1))/REF(VAR1,1)*1000,COLORFFCCCC,POINTDOT;
STICKLINE(控盤<0,控盤,0,2,0),COLORWHITE;
無莊控盤:控盤<0,COLORWHITE;
STICKLINE(控盤>REF(控盤,1) AND 控盤>0,控盤,0,2,1),COLORRED;
有莊控盤: 控盤>REF(控盤,1) AND 控盤>0,COLORRED;
VAR2:=100*WINNER(CLOSE*0.95);
STICKLINE(控盤<REF(控盤,1) AND 控盤>0,控盤,0,2,0),COLOR00FF00;
主力出貨: 控盤<REF(控盤,1) AND 控盤>0,COLOR00FF00;
STICKLINE(VAR2>50 AND COST(85)<CLOSE AND 控盤>0,控盤,0,2,0),COLORFF00FF;
高度控盤: VAR2>50 AND COST(85)<CLOSE AND 控盤>0,COLORFF00FF;
A10:=CROSS(控盤,0);
開始控盤:IF(A10,6,0),COLORYELLOW;
控盤天數:BARSLAST(有莊控盤 OR 高度控盤 ),LINETHICK0,COLORWHITE;
出貨天數:BARSLAST(主力出貨),LINETHICK0,COLORWHITE;
WY1001:=(2*CLOSE+HIGH+LOW)/4;
WY1002:=EMA(WY1001,4);
WY1003:=EMA(WY1002,4);
WY1004:=EMA(WY1003,4);
X:=(WY1004-REF(WY1004,1))/REF(WY1004,1)*2000;
X1:=IF(X<REF(X,1),X,DRAWNULL),COLORWHITE,LINETHICK2;
XO:=MA(X,2),COLOR9932CD;
SI:=REF(X,1);
DIF1:=EMA(CLOSE,12)-EMA(CLOSE,26);
DEA1:=EMA(DIF1,9);
{柱狀線}
MACD1:=(DIF1-DEA1)*2*60;
MACD上:IF(MACD1>REF(MACD1,1),MACD1,DRAWNULL),
STICK,COLORRED,LINETHICK1;
MACD下:IF(MACD1<REF(MACD1,1),MACD1,DRAWNULL),
STICK,COLORFF9900,LINETHICK1;
低位金叉:=CROSS(DIF1,DEA1) AND DIF1<-0.1;
DRAWTEXT(低位金叉,-8,' 低位金叉'),COLORRED;
JCCOUNT:=COUNT(CROSS(DIF1,DEA1),BARSLAST(DEA1>=0));
二次金叉:=CROSS(DIF1,DEA1) AND DEA1<0 AND COUNT(JCCOUNT=2,21)=1;
DRAWICON(二次金叉,DEA1*1.04,13) ;
DRAWTEXT(二次金叉,-3,' 二次金叉'),COLORFF00FF;
A101:=BARSLAST(REF(CROSS(DIF1,DEA1),1));
底背離:=REF(CLOSE,A101+1)>CLOSE AND DIF1>REF(DIF1,A101+1) AND CROSS(DIF1,DEA1);
DRAWICON(底背離,-5,1);
DRAWTEXT(底背離,-0.50,' 底背離'),COLORYELLOW;
A20:=BARSLAST(REF(CROSS(DEA1,DIF1),1));
頂背離:=REF(CLOSE,A20+1)<CLOSE AND REF(DIF1,A20+1)>DIF1 AND CROSS(DEA1,DIF1);
DRAWTEXT(頂背離,30,' 頂背離'),COLORGREEN;
DRAWICON(頂背離,30,2);

SG:=EMA(HHV(HIGH,1),8);
XA1:=EMA(CLOSE,8);
X30:=((XA1 < REF(XA1,1)) AND (CLOSE < XA1));
X31:=IF(((SG < REF(SG,1)) OR X30),1,0);
全倉出擊:=((((COUNT((X31 = 1),4) = 3) AND (X31 = 0)) AND (((CLOSE - REF(CLOSE,1)) / REF(CLOSE,1)) > 0.085)) * 89);
STICKLINE(全倉出擊,66,0,3,0),COLORFF00FF;
DRAWICON((全倉出擊 >= 89),67,1);
DRAWTEXT((全倉出擊 >= 89),69,'*大膽殺入'); 謝謝 來源 程序化久久網