用通达信zjtj副图演变的同花顺zjtj //#@Fname=高度控盘 //#@comment= //#@control= //#@FuncType= //#@style=无庄控盘:Line0,,1,0,1,5,65535;开始控盘:Line0,,2,0,1,5,65535;有庄控盘:Line0,,1,0,1,5,255;高度控盘:Line0,,1,0,1,5,16711935;控盘趋弱:Line0,,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,1,0),colorgreen; A10:=CROSS(控盘,0); 无庄控盘:IF(控盘<0,控盘,0),coloryellow,LINETHICK1; 开始控盘:IF(A10,5,0),LINETHICK2,coloryellow; STICKLINE(控盘>REF(控盘,1) AND 控盘>0,控盘,0,1,0),colorred; 有庄控盘:IF(控盘>REF(控盘,1) AND 控盘>0,控盘,0),colorred,LINETHICK1; VAR2:=100*WINNER(CLOSE*0.95); STICKLINE(VAR2>50 AND COST(85)<CLOSE AND 控盘>0,控盘,0,1,0),COLORFF00FF; 高度控盘:IF(VAR2>50 AND COST(85)<CLOSE AND 控盘>0,控盘,0),COLORFF00FF,LINETHICK1; STICKLINE(控盘<REF(控盘,1) AND 控盘>0,控盘,0,1,0),COLOR00FF00; 控盘趋弱:IF(控盘<REF(控盘,1) AND 控盘>0,控盘,0),COLOR00FF00,LINETHICK1; |
