庄家抬轿优化通达信公式 副图 源码附图

VAR1:=EMA(EMA(CLOSE,6),6);{6日指数移动平均}

控盘:= (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;

控盘天数:BARSLASTCOUNT(有庄控盘 OR 高度控盘 ),LINETHICK0,COLORWHITE;

出货天数:BARSLASTCOUNT(主力出货),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(DCLOSE,12)-EMA(DCLOSE,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,30) ;

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(底背离,2,'底背离'),COLORYELLOW;

A20:=BARSLAST(REF(CROSS(DEA1,DIF1),1));

顶背离:=REF(CLOSE,A20+1)<CLOSE AND REF(DIF1,A20+1)>DIF1 AND CROSS(DEA1,DIF1);

DRAWTEXT(顶背离,6,'顶背离'),COLORGREEN;

DRAWICON(顶背离,5,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(全仓出击,18,0,3,0),COLORFF00FF;

DRAWICON((全仓出击 >= 89),8,30);

DRAWTEXT((全仓出击 >= 89),7,'*大胆杀入'),COLORYELLOW;

 

原理解析：
VAR1赋值:收盘价的6日指数移动平均,6)
{6日指数移动平均}
控盘赋值: (VAR1-1日前的VAR1)/1日前的VAR1*1000,COLORFFCCCC,POINTDOT
当满足条件控盘<0时,在控盘和0之间画柱状线
输出无庄控盘:控盘<0,画白色
STICKLINE(控盘>1日前的控盘 AND 控盘>0,控盘,0,2,1),画红色
输出有庄控盘: 控盘>1日前的控盘 AND 控盘>0,画红色
VAR2赋值:100*收盘价*0.95计算的获利盘比例
STICKLINE(控盘<1日前的控盘 AND 控盘>0,控盘,0,2,0),COLOR00FF00
输出主力出货: 控盘<1日前的控盘 AND 控盘>0,COLOR00FF00
STICKLINE(VAR2>50 AND 获利盘为85%的成本分布<收盘价 AND 控盘>0,控盘,0,2,0),COLORFF00FF
输出高度控盘: VAR2>50 AND 获利盘为85%的成本分布<收盘价 AND 控盘>0,COLORFF00FF
A10赋值:控盘上穿0
如果A10返回6否则返回0
输出控盘天数:BARSLASTCOUNT(有庄控盘 OR 高度控盘 ),LINETHICK0,画白色
输出出货天数:BARSLASTCOUNT(主力出货),LINETHICK0,画白色
WY1001赋值:(2*收盘价+最高价+最低价)/4
WY1002赋值:WY1001的4日指数移动平均
WY1003赋值:WY1002的4日指数移动平均
WY1004赋值:WY1003的4日指数移动平均
X赋值:(WY1004-1日前的WY1004)/1日前的WY1004*2000
X1:=IF(X<1日前的X,X,DRAWNULL),画白色, 线宽为2
XO:=X的2日简单移动平均,COLOR9932CD
SI赋值:1日前的X
DIF1赋值:D收盘价的12日指数移动平均-D收盘价的26日指数移动平均
DEA1赋值:DIF1的9日指数移动平均
{柱状线}
{MACD1赋值:(DIF1-DEA1)*2*60
输出MACD上:IF(MACD1>1日前的MACD1,MACD1,DRAWNULL),
STICK,画红色,LINETHICK1
输出MACD下:IF(MACD1<1日前的MACD1,MACD1,DRAWNULL), STICK,COLORFF9900,LINETHICK1
}
低位金叉赋值:DIF1上穿DEA1 AND DIF1<-0.1
当满足条件低位金叉时,在-8和'低位金叉'位置书写文字
JCCOUNT赋值:COUNT(DIF1上穿DEA1,上次DEA1>=0距今天数)
二次金叉赋值:DIF1上穿DEA1 AND DEA1<0 AND 统计21日满足JC=2的天数=1
当满足条件二次金叉时,在DEA1*1.04和30之间画图标
当满足条件二次金叉时,在-3和'二次金叉'位置书写文字
A101:=上次1日前的DIF1上穿DEA1距今天数
底背离赋值:A101+1日前的收盘价>收盘价 AND DIF1>A101+1日前的DIF1 AND DIF1上穿DEA1
当满足条件底背离时,在-5和1之间画图标
当满足条件底背离时,在2和'底背离'位置书写文字
A20赋值:上次1日前的DEA1上穿DIF1距今天数
顶背离赋值:A20+1日前的收盘价<收盘价 AND A20+1日前的DIF1>DIF1 AND DEA1上穿DIF1
当满足条件顶背离时,在6和'顶背离'位置书写文字
当满足条件顶背离时,在5和2之间画图标
 
SG赋值:E1日内最高价最高值的8日简单移动平均
XA1:=收盘价的8日指数移动平均
X30:=((XA1 < 1日前的XA1) AND (收盘价 < XA1))
X31:=IF(((SG < 1日前的SG) OR X30),1,0)
全仓出击赋值:((((COUNT((X31 = 1),4) = 3) AND (X31 = 0)) AND (((收盘价 - 1日前的收盘价) / 1日前的收盘价) > 0.085)) * 89)
当满足条件全仓出击时,在18和0之间画柱状线
DRAWICON((全仓出击 >= 89),8,30)
DRAWTEXT((全仓出击 >= 89),7,'*大胆杀入'),画黄色