通达信波波睇庄源码附图

{N 1 100 8
 M 1 100 13
 P 1 100 16}
 {波波睇庄}
VAR1:=EMA(EMA(CLOSE,13),13);
控盘:= (VAR1-REF(VAR1,1))/REF(VAR1,1)*9000000,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;
空方:=(EMA(CLOSE,9)-EMA(CLOSE,2))/2*400000;
 0;多方:=(EMA(CLOSE,2)-EMA(CLOSE,9))/2*400000;
多方引路:(多方-空方),COLORRED,LINETHICK2;
大盘价格:=( INDEXC-REF(INDEXC,P))/50,COLORRED,LINETHICK2 ;
大盘成交量:=EMA(INDEXV/MA(INDEXV,N),2)*1.98,COLORBLUE ;
 A:=(HHV(INDEXH,13)-INDEXC)/(HHV(INDEXH,13)-LLV(INDEXL,13))*80000;
空方力量:EMA(3*A-2*SMA(A,18,1),5),COLORFF3C00,LINETHICK2;
 RSV:=(INDEXC-LLV(INDEXL,8))/(HHV(INDEXH,8)-LLV(INDEXL,8))*100000;
大盘MAV:=(INDEXC*2+INDEXH+INDEXL)/4*10000;
大盘SK := EMA(大盘MAV,13) - EMA(大盘MAV,34);
大盘SD := EMA(大盘SK,3);
大盘B:=(大盘SK-大盘SD);
大盘资金进场:IF(大盘B>=0,大盘B,0),LINESTICK,COLOR00FFFF;
大盘资金撤走:IF(大盘B<=0,大盘B,0),LINESTICK,COLOR009900;