同花顺主力进出源码

 V1:=(C*2+H+L)/4*10;

V2:=EMA(V1,13)-EMA(V1,34);

V3:=EMA(V2,5);

V4:=2*(V2-V3)*5.5;

交时1:=FROMOPEN<240;

交时2:=交时1<=0;

交时3:=1;

定时1:=IF(DATE>20150330,交时2,交时3);

零轴线:0,colorwhite,DOTLINE;

主力撤:IF( 定时1 AND V4<=0,V4,NULL),LINETHICK3,colorcyan;

主力进:IF( 定时1 AND V4>=0,V4,NULL),LINETHICK3,colorff00ff;

V5:=(HHV(INDEXH,8)-INDEXC)/(HHV(INDEXH,8)-LLV(INDEXL,8))*8;

V6:=EMA(3*V5-2*SMA(V5,18,1),5);

V7:=(INDEXC-LLV(INDEXL,8))/(HHV(INDEXH,8)-LLV(INDEXL,8))*10;

V8:=(INDEXC*2+INDEXH+INDEXL)/4;

V9:=EMA(V8,13)-EMA(V8,34);

VA:=EMA(V9,3);

VB:=(V9-VA)/2;

大盘资金进场:IF( 定时1 AND VB>=0,VB,NULL),colorred,LINETHICK1;

大盘资金撤走:IF( 定时1 AND VB<=0,VB,NULL),colorgreen,LINETHICK1;

大盘涨幅:(INDEXC-REF(INDEXC,1))/REF(INDEXC,1)*100,NODRAW,coloryellow;

DRAWTEXT( WEEKDAY>4  AND  FILTER( WEEKDAY>4 ,180)  ,-10 ,'设计编写:到同花顺圈子搜索《与庄同行》 '),coloryellow;

V11:=3*SMA((C-LLV(L,55))/(HHV(H,55)-LLV(L,55))*100,5,1)-2*SMA(SMA((C-LLV(L,55))/(HHV(H,55)-LLV(L,55))*100,5,1),3,1);

趋势线:=EMA(V11,3);

V12:=(趋势线-REF(趋势线,1))/REF(趋势线,1)*100;

见顶清仓:=FILTER(趋势线>90 AND 趋势线

买入股票:=趋势线<=13 AND V12>13;

STICKLINE( 定时1 AND 买入股票,0,62,5,0),color0099ff;

bb:= (趋势线<=13 AND V12>13) AND FILTER((趋势线<=13 AND V12>13),10) ;

DRAWTEXT ( 定时1 AND bb,80,'买入股票'),color0099ff;

DRAWTEXT(  定时1 AND 见顶清仓 AND 定时1 ,75,'●清仓'),colorgreen;

金额:=MONEY,NODRAW,colorred;

换手:=VOL/SHGZG*100,NODRAW,colorcyan;

JEHS1:=金额>5001234 AND 换手>1.0 ;

cc:=(趋势线>=90 AND V12) AND FILTER((趋势线>=90 AND V12),10);

STICKLINE(大盘资金进场  AND 定时1 AND 趋势线<13,0,25,9,0),colorred;

DRAWTEXT (大盘资金进场  AND 定时1 AND 趋势线<13 AND FILTER(大盘资金进场  AND 趋势线<13 ,5) , 40,'大盘进'),colorred;

STICKLINE(大盘资金撤走  AND 定时1 AND 趋势线>90,0,25,9,0),colorgreen;

DRAWTEXT (大盘资金撤走  AND 定时1 AND 趋势线>90 AND FILTER(大盘资金撤走  AND 趋势线>90 ,3)  ,40,'大盘撤'),colorgreen;

STICKLINE(主力进 AND JEHS1 AND 定时1 AND  趋势线<13,0,40,7,0  ),colorff00ff;

DRAWTEXT (主力进 AND JEHS1  AND 定时1 AND 趋势线<13   AND FILTER(主力进 AND 趋势线<13,5)  , 55,'主力进'),colorff00ff;

STICKLINE(主力撤 AND 定时1 AND 趋势线>90,0,40,5,0 ),colorcyan;

DRAWTEXT (主力撤 AND 定时1 AND 趋势线>90  AND FILTER(主力撤 AND 趋势线>90  ,3) , 60,'主力撤'),colorcyan;

准备现金:=趋势线<=13;

STICKLINE( 定时1 AND 准备现金,0,10,5,0),colorwhite;

aa:=(趋势线<=13) AND FILTER((趋势线<=13),10);

DRAWTEXT ( 定时1 AND aa,-3,'准备现金'),colorwhite;