同花顺资金进出统计副图源码

//#@Fname=资金统计
//#@comment=
 //#@control=
 //#@FuncType=
 //#@style=无庄控盘:Line2,a一般价格(灰),1,0,1,5,16777215;开始控盘:Line2,a一般价格(灰),1,0,1,5,65535;有庄控盘:Line2,a一般价格(灰),1,0,1,5,255;高度控盘:Line2,a一般价格(灰),1,0,1,5,16711935;主力出货:Line2,a一般价格(灰),1,0,1,5,65280;
 //#@availperiod=2147430400
 //#@param=
 //#@isDrawCurve=1
 //#@Fdesc=资金进出统计
//#@defaultperiod=16384
 //#@coord=D
 //#@ordinate=0,0.000000;0,0.000000;0,0.000000;0,0.000000;0,0.000000;0;0,0.000000
 //#@@FUNCSPEC@=source

VAR1:=EMA(EMA(CLOSE,9),9);
控盘:=(VAR1-REF(VAR1,1))/REF(VAR1,1)*1000;
 STICKLINE(控盘<0,控盘,0,8,0),colorwhite;
 A10:=CROSS(控盘,0);
无庄控盘:IF(控盘<0,控盘,0),colorwhite,LINETHICK;
开始控盘:IF(A10,5,0),LINETHICK1,coloryellow;
 STICKLINE(控盘>REF(控盘,1) AND 控盘>0,控盘,0,8,0),colorred;
有庄控盘:IF(控盘>REF(控盘,1) AND 控盘>0,控盘,0),colorred,LINETHICK;
 VAR2:=100*WINNER(CLOSE*0.95);
 STICKLINE(VAR2>50 AND COST(85)<CLOSE AND 控盘>0,控盘,0,8,0),COLORFF00FF;
高度控盘:IF(VAR2>50 AND COST(85)<CLOSE AND 控盘>0,控盘,0),COLORFF00FF,LINETHICK;
 STICKLINE(控盘<REF(控盘,1) AND 控盘>0,控盘,0,8,0),COLOR00FF00;
主力出货:IF(控盘<REF(控盘,1) AND 控盘>0,控盘,0),COLOR00FF00,LINETHICK;