{SVZL - 主力持仓分析}
input:p1(7);
主力持仓:topview(1436,0,200),LINETHICK2;
bb1:=主力持仓-ref(主力持仓,1);
STICKLINE(bb1<0.2 and bb1>=0,bb1+主力持仓,主力持仓,0.1,0),colorred;
STICKLINE(bb1>=0.2 and bb1<1,bb1+主力持仓,主力持仓,1,0),colorred;
STICKLINE(bb1>=1 and bb1<2,bb1+主力持仓,主力持仓,2,0),colorred;
STICKLINE(bb1>=2,bb1+主力持仓,主力持仓,3,0),colorred;
STICKLINE(bb1>-0.2 and bb1<0,主力持仓+bb1,主力持仓,0.1,0),COLORCYAN;
STICKLINE(bb1<=-0.2 and bb1>-1,主力持仓+bb1,主力持仓,1,0),COLORCYAN;
STICKLINE(bb1<=-1 and bb1>-2,主力持仓+bb1,主力持仓,2,0),COLORCYAN;
STICKLINE(bb1<=-2,主力持仓+bb1,主力持仓,3,0),COLORCYAN;
多日净值:=主力持仓-ref(主力持仓,p1);
drawmovetext(多日净值>0,NUMTOSTR(p1)+'日内买卖净占比'+NUMTOSTR(多日净值)+'%'),colorred;
drawmovetext(多日净值<=0,NUMTOSTR(p1)+'日内买卖净占比'+NUMTOSTR(-多日净值)+'%'),colorgreen;
drawflagtext(bb1>0.2,主力持仓+bb1,'当日主力净买入占流通盘的'+NUMTOSTR(intpart(bb1*100)/100)+'%'),colorred;
drawflagtext(bb1<=-0.2,主力持仓+bb1,'当日主力净卖出占流通盘的'+NUMTOSTR(intpart(-bb1*100)/100)+'%'),colorgreen;
DRAWGBK((topview(1400,0,10)-ref(topview(1400,0,10),1))<>0 and STRCMP(STKLABEL,'000001')<>0 and capital<>0),COLOR484848;
drawmovetext((topview(1400,0,10)-ref(topview(1400,0,10),1))>0,'流通A股增加了'+NUMTOSTR((topview(1400,0,10)-ref(topview(1400,0,10),1))/10000)+'万股'),coloryellow;
drawmovetext((topview(1400,0,10)-ref(topview(1400,0,10),1))<0,'流通A股减少了'+NUMTOSTR((ref(topview(1400,0,10),1)-topview(1400,0,10))/10000)+'万股'),coloryellow;
drawtextabs(0,0,'超赢主力持仓'),coloryellow;
{TRT - 顺势交易}
variable:p1=0;
c1:=INTPART(cyc(5)*100*0.96)/100;
p2:=intpart(ref(cyc(5),1)*100)/100;
p3:=intpart(ref(cyc(5),1)*0.96*100)/100;
vv:=intpart(min(capital*0.05,ref(ma(vol,34),1))/100);
p40:=intpart(maxcyc*100)/100;
p41:=intpart(ref(MAXCYC,1)*100)/100;
p4:=p1=0 and c>p2 or (ref(vol/100,1)<vv and c>intpart(p2*0.98*100)/100 and vol>min(capital*0.05,ref(ma(vol,34),1)));
p5:=p1=1 and c<min(p3,p41);
p1:=if(p4=1,1,if(p5=1,0,ref(p1,1)));
STICKLINE(p1=1 and c<o,c,o,8,1),color5454ff,layer0;
STICKLINE(p1=1 and c<o,c,o,6,0),colorffff54;
STICKLINE(p1=1 and c<o,c,l,0.5,0),color5454ff;
STICKLINE(p1=1 and c<o,h,o,0.5,0),color5454ff;
STICKLINE(p1=0 and c>o,c,o,8,1),colorffff54;
STICKLINE(p1=0 and c>o,c,h,0.5,0),colorffff54;
STICKLINE(p1=0 and c>o,l,o,0.5,0),colorffff54;
DRAWTEXT(cross(p1,0),l*0.9,'B'),coloryellow,LINETHICK3;
DRAWTEXT(cross(1,p1),h*1.05,'S'),COLORgreen,LINETHICK3;
DRAWFLAGTEXT(p1=0 and (p2*0.98-c)/c>0.1,c,'持币');
DRAWFLAGTEXT(p1=0 and (p2*0.98-c)/c<=0.1 and ref(vol/100,1)<vv,c,'明日收盘价超过'+str(p2)+';或收盘价超过'+str(intpart(p2*0.98*100)/100)+'且成交量大于'+str(vv)+'买入');
DRAWFLAGTEXT(p1=0 and (p2*0.98-c)/c<=0.1 and ref(vol/100,1)>=vv,c,'明日收盘价超过'+str(p2)+'买入');
DRAWFLAGTEXT(p1=1 and (c-min(c1,p40))/min(c1,p40)>0.1 ,c,'持股');
DRAWFLAGTEXT(p1=1 and (c-min(c1,p40))/min(c1,p40)<=0.1 ,c,'明日收盘价跌破'+str(min(c1,p40))+'卖出');;
{SUPL - 主力资金线}
variable:eye=0;
eye:=(BIGORDER(1)-BIGORDER(2))*vol/capital*100;
eyes:=sum(eye,0);
gold:=eyes+50;
主力资金:gold,color0093f5;
STICKLINE(eye>0 and eye<0.5,gold,gold+eye,0.5,0),colorred;
STICKLINE(eye>=0.5 and eye<1,gold,gold+eye,2,0),colorred;
STICKLINE(eye>=1 and eye<2,gold,gold+eye,3,0),colorred;
STICKLINE(eye>=2,gold,gold+eye,4,0),colorred;
STICKLINE(eye>-0.5 and eye<=0,gold+eye,gold,0.5,0),COLORCYAN;
STICKLINE(eye<=-0.5 and eye>-1,gold+eye,gold,2,0),COLORCYAN;
STICKLINE(eye<=-1 and eye>-2,gold+eye,gold,3,0),COLORCYAN;
STICKLINE(eye<=-2,gold+eye,gold,4,0),COLORCYAN;
drawflagtext(eye>=0.3,gold+eye,'当日主力净买入力度'+NUMTOSTR(intpart(eye*100)/100)+'%'),colorred;
drawflagtext(eye<=-0.3,gold+eye,'当日主力净卖出力度'+NUMTOSTR(intpart(eye*100)/100)+'%'),colorgreen;