{替股票飞飞儿改的--loy518}
N:=5;
DRAWGBK(DATE>900101,COLORRGB(75,75,75),COLORRGB(0,0,0),1);
DRAWTEXTEX(1,0,10,10,STKLABEL+' '+STKNAME+' '+BLKNAME),COLOR00FFFF;
总股本（亿）:FINANCE(1)/10000,COLORYELLOW,LINETHICK0;
流通（亿）:FINANCE(7)/10000,COLORFFFFFF,LINETHICK0;
均价:=(3*C+H+L+O)/6;
VAR1x:=(8*均价+7*REF(均价,1)+6*REF(均价,2)+5*REF(均价,3)+4*REF(均价,4)+3*REF(均价,5)+2*REF(均价,6)+REF(均价,8))/36;
VAR2x:=(LLV(VAR1x,2)+LLV(VAR1x,4)+LLV(VAR1x,6))/3;
SZ1:=REF(VAR1x,1)=REF(VAR2x,1) AND VAR1x>VAR2x AND CLOSE>VAR1x;
SZ2:=VAR1x>VAR2x AND VAR1x>REF(VAR1x,1) AND VAR2x>REF(VAR2x,1) AND H/VAR1x<1.1 AND L>VAR2x AND CLOSE>VAR1x;
SZ3:=VAR1x>VAR2x AND VAR1x>REF(VAR1x,1) AND VAR2x>=REF(VAR2x,1) AND H/VAR1x>1.1;
SZ4:=VAR1x>VAR2x AND VAR1x>REF(VAR1x,1) AND VAR2x>REF(VAR2x,1) AND CLOSE>VAR2x AND CLOSE<VAR1x;
SZ5:=(VAR1x>VAR2x AND VAR2x>REF(VAR2x,1) AND VAR1x<>REF(VAR1x,1) AND CLOSE<VAR2x) OR (VAR1x>VAR2x AND VAR1x<REF(VAR1x,1) AND VAR2x<REF(VAR2x,1) AND CLOSE<VAR2x);
SZ6:=REF(VAR1x,1)>REF(VAR2x,1) AND VAR1x=VAR2x AND CLOSE<VAR2x;
XD1:=VAR1x=VAR2x AND CLOSE<VAR2x OR (VAR1x<REF(VAR1x,1) AND VAR2x<REF(VAR2x,1) AND REF(VAR1x,1)=REF(VAR2x,1) AND CLOSE<VAR2x);
XD2:=VAR1x=VAR2x AND CLOSE>VAR1x;
SAT:=(AMOUNT/C)/(HHV(AMOUNT,N)/HHV(C,N));
量能饱和度:=IF(SAT>1,1,SAT)*100;
DRAWTEXTEX(SZ1[SYSPARAM(1)],0,320,25,'调整结束短线介入'),COLORRED;
DRAWTEXTEX(SZ2[SYSPARAM(1)],0,320,25,'上升通道走势良好'),COLORRED;
DRAWTEXTEX(SZ3[SYSPARAM(1)],0,320,25,'股价偏离注意调整'),COLORRED;
DRAWTEXTEX(SZ4[SYSPARAM(1)],0,320,25,'上升通道调整洗盘'),COLORGREEN;
DRAWTEXTEX(SZ5[SYSPARAM(1)],0,320,25,'转向特征注意离场'),COLORGREEN;
DRAWTEXTEX(SZ6[SYSPARAM(1)],0,320,25,'通道改变坚决离场'),COLORGREEN;
DRAWTEXTEX(XD1[SYSPARAM(1)],0,320,25,'下跌通道只宜观望'),COLORGREEN;
DRAWTEXTEX(XD2[SYSPARAM(1)],0,320,25,'短期底部准备进入'),COLORYELLOW;
AB1:=COST(0.33);
AB2:=COST(5);
AB3:=COST(15);
AB4:=COST(55);
AB5:=COST(97);
AA1:=COST(90);
AA2:=COST(70);
AA3:=COST(30);
AA4:=COST(10);
获利:=WINNER(CLOSE)*100;
套牢:=100-WINNER(CLOSE)*100;
DRAWTEXTEX(1,0,15,25,'量能饱和度:'+NUMTOSTR(量能饱和度[SYSPARAM(1)],2)+'%'),COLOR00FFFF;
DRAWTEXTEX(1,0,15,40,'90成本:'+NUMTOSTR(AA1[SYSPARAM(1)],2)),COLOR00FFFF;
DRAWTEXTEX(1,0,15,55,'70成本:'+NUMTOSTR(AA2[SYSPARAM(1)],2)),COLOR00FFFF;
DRAWTEXTEX(1,0,15,70,'30成本:'+NUMTOSTR(AA3[SYSPARAM(1)],2)),COLOR00FFFF;
DRAWTEXTEX(1,0,15,85,'10成本:'+NUMTOSTR(AA4[SYSPARAM(1)],2)),COLOR00FFFF;
VOL,VOLSTICK;
T1:1/VOL*1000>0.01 AND "KDJ.J"<0;
选股:REF(T1,1)=1 AND T1=0,colorffffcc;
选股V:MIN(vol*3,MA(V,5)*2),COLORYELLOW,LINETHICK3;
DRAWTEXT(选股,V,'选\n股'),colorffffcc,PXUP60,ALIGN0;
DRAWICON(选股,选股V,10);
PARTLINE(SMA(选股V,2,1)>REF(SMA(选股V,2,1),1),选股V),ColorB400FF,LINETHICK3; |
