[转载]大家都想的私募分时源码附图

私募分时

VAR1:=EMA(EMA(CLOSE,9),9);
控盘:=(VAR1-REF(VAR1,1))/REF(VAR1,1)*500;
STICKLINE(控盘<0,控盘,0,0.99,0),COLOR00FF00;
A10:=CROSS(控盘,0);
开始控盘:=IF(A10,5,0);
STICKLINE(控盘>REF(控盘,1) AND控盘>0,控盘,0,0.99,0),COLORRED;
进货:IF(控盘>REF(控盘,1) AND控盘>0,控盘,0),COLORRED;
VAR2:=100*WINNER(CLOSE*0.95);
STICKLINE(VAR2>50 AND COST(85)<CLOSEAND 控盘>0,控盘,0,0.99,0),COLORFF00FF;
高度控盘:=IF(VAR2>50 AND COST(85)<CLOSEAND 控盘>0,控盘,0);
STICKLINE(控盘<REF(控盘,1) AND控盘>0,控盘,0,0.99,0),COLORYELLOW;
洗盘:IF(控盘<REF(控盘,1) AND控盘>0,控盘,0),COLOR00FF00;
出货:IF(控盘<0,控盘,0),COLOR00FF00;
比例1:=进货+洗盘;
比例2:=-出货;
差额:(SUM(比例1,0)-SUM(比例2,0))/20,COLORRED;
差额平均:MA(差额,40);
DRAWICON(差额>0.5 ANDREF(差额,1)<=0.5,差额,7),COLORWHITE;
最高价1:=HHV(H,240);
最高价2:=HHV(C,240);
DRAWICON(差额>0.5 ANDC=最高价1  ANDREF(最高价2,1)>REF(C,1)
ANDC>REF(C,1)AND(进货+洗盘)>0.15,差额,7),COLORWHITE;
DRAWICON(差额<-0.5 ANDREF(差额,1)>=-0.5,差额,7),COLORGREEN;
最低价:=LLV(C,240);
DRAWICON(差额>0.5 AND C=最低价 ANDREF(最低价,1)<REF(C,1)
AND C<REF(C,1)AND出货<-0.15,差额,7),COLORGREEN;
正:0.5,COLORBROWN;
负:-0.5,COLORBROWN;