新控盘系数公式还加密干什么?我模仿做了一个!
BHR:selfdata('控盘系数'),linethick1,PRECIS2,Color00FFFF,LAYER0;{selfdata('控盘系数'),coloryellow;}
二日增量:BHR-ref(BHR,n1) ,LINETHICK0,colorff00ff;
三日增量:bhr-ref(bhr,n2),LINETHICK0,coloryellow;
五日增量:bhr-ref(bhr,n3),LINETHICK0,colorred;
十日增量:bhr-ref(bhr,n4),LINETHICK0,colorred;
控盘动量:SELFDATA('控盘动量'),LINETHICK0;
系数增减:BHR-ref(BHR,1),LINETHICK0;
STICKLINE(系数增减>0,BHR+系数增减,BHR,7,1),colorred;
STICKLINE(系数增减<0,BHR,BHR+系数增减,7,1),colorgreen;
DRAWRECTREL(2,0,250,1000,RGB(255,0,0));
DRAWTEXTREL(15,50,' 控盘系数'),COLORWHITE;
DRAWTEXTREL(10,200,' 判断主力控盘程度的标准:'),COLORYELLOW;
DRAWTEXTREL(10,350,' 30%以下: 没有主力'),COLORGREEN;
DRAWTEXTREL(10,460,' 30%-40%: 有主力'),COLORGREEN;
DRAWTEXTREL(10,560,' 40%-50%: 主力控盘'),COLORGREEN;
DRAWTEXTREL(10,660,' 50%-70%: 主力高度控盘'),COLORGREEN;
DRAWTEXTREL(10,760,' 70%以上: 主力绝对控盘'),COLORGREEN;
DRAWTEXTREL(150,50,'控盘:'+NUMTOSTRN(BHR,2)),LINETHICK6,ColorFFFFFF;
DRAWTEXTREL(150,550,'增减:'+NUMTOSTRN(系数增减,2)),LINETHICK6,COLORYELLOW;
LL:=LLVALL(BHR)*0.98;
STICKLINE(控盘动量>0,控盘动量*3+ll,ll,7,0),Color0000FF;
STICKLINE(控盘动量>0,控盘动量*3+ll,ll,3,0),ColorB5B5FF;
STICKLINE(控盘动量<0,控盘动量*3+ll,ll,7,0),Color00B700;
STICKLINE(控盘动量<0,控盘动量*3+ll,ll,3,0),ColorCAFFCA;
STICKLINE(c>0,ll,ll,3,0),Color0000BB; |