DRAWTEXT(C,70,' '+NUMTOSTR( N)),ALIGN0,COLORRED;
DRAWTEXT(C,60,' 次'),ALIGN0,COLORGREEN;
DRAWTEXT(C,50,' 完'),ALIGN0,COLORGREEN;
DRAWTEXT(C,40,' 全'),ALIGN0,COLORGREEN;
DRAWTEXT(C,30,' 换'),ALIGN0,COLORGREEN;
DRAWTEXT(C,20,' 手'),ALIGN0,COLORGREEN;
DRAWTEXT(C,10,' '+NUMTOSTR( K)+'天'),ALIGN0,COLORGREEN;
K:=1;
END
ELSE
K:=K+1;
日换手:SUM(VOL,1)*100/CAPITAL,colorf0f000,LINETHICK0 ;
五日换手:SUM(VOL,5)*100/CAPITAL,colorf0f000,LINETHICK0 ;
十日换手:SUM(VOL,10)*100/CAPITAL,colorf0f000,LINETHICK0 ;
二十日换手:SUM(VOL,20)*100/CAPITAL,colorf0f000,LINETHICK0 ;
百日换手:SUM(VOL,100)*100/CAPITAL,colorf0f000,LINETHICK0 ;
AA:=VOL/((HIGH-LOW)*2-ABS(CLOSE-OPEN));
成交量(手):VOL,ColorC700FF,LINETHICK0;
主动买盘:IF(CLOSE OPEN,AA*(HIGH-LOW),IF(CLOSE OPEN,AA*((HIGH-OPEN)+(CLOSE-LOW)),VOL/2)),COLORred,
LINETHICK0;
主动卖盘:IF(CLOSE OPEN,0-AA*((HIGH-CLOSE)+(OPEN-LOW)),IF(CLOSE OPEN,0-AA*(HIGH-LOW),0-VOL/2)),color66ff00,
LINETHICK0;
{解盘:N=75 25 100 }
REFLINE: 0, 25, 75, 100;
Var1:=IF(MA(CLOSE,88),1,0);
Var2:=1/WINNER(CLOSE);
Var3:=100-ABS((CLOSE-MA(CLOSE,13))/MA(CLOSE,13)*100);
HSL:=vol/capital*100;
量能:=SUM(HSL,N);
涨幅1:=100*(CLOSE-REF(CLOSE,N))/REF(CLOSE,N);
流通市值:=capital*c;
AH:=HHV(流通市值,N);
AL:=LLV(流通市值,N);
t1:=if(HSL =2,1,0);
t2:=if(HSL 2 AND HSL 3,1,0);
t3:=if(HSL 3 AND HSL 5,1,0);
t4:=if(HSL 5 AND HSL 8,1,0);
t5:=if(HSL 8 AND HSL 15,1,0);
t6:=if(HSL 15 AND HSL 25,1,0);
t7:=if(HSL =25,1,0);
sss:=100/4;
i:=0;
IF HSL =2 THEN BEGIN DRAWTEXT(c 0 and DISPSTATUS=2,100-(sss*i),'日换手率在1%--2%,股价属于成交低靡,属于冷门股。日换手率成交小于3%的成交额称为 成交无量 。'),Color00FFFF,ALIGN2; i:=i+1;
END
IF HSL 2 AND HSL 3 THEN BEGIN DRAWTEXT(c 0 and
DISPSTATUS=2,100-(sss*i),'日换手率在2%--3%,股价属于成交温和,属于备份股。'),Color00FFFF,ALIGN2;
i:=i+1;
END
IF HSL 3 AND HSL 5 THEN BEGIN DRAWTEXT(c 0 and DISPSTATUS=2,100-(sss*i),' 日换手率在3%--5%,股价属于成交活跃,表示有庄家在积极活动,属于热门股。把10日平均换手率大于3%或大于5%,而后又缩量至换手率小于3%高度控盘的个股作为选股条件。'),Color00FFFF,ALIGN2; i:=i+1; END
IF HSL 5 AND HSL 8 THEN BEGIN DRAWTEXT(c 0 and DISPSTATUS=2,100-(sss*i),' 日换手率在5%--8%, 大于7%,常常超过10%,属于股价成交带量,表明筹码在急剧换手。发生在低位或是通过第一阻力区,很可能是强庄积极进货。'),Color00FFFF,ALIGN2;
i:=i+1; END
IF HSL 8 AND HSL 15 THEN BEGIN DRAWTEXT(c 0 and DISPSTATUS=2,100-(sss*i),' 日换手率大于8%--15%,股价属于成交放量。'),ColorFFFFF5,ALIGN2; i:=i+1; END
IF HSL 15 AND HSL 25 THEN BEGIN DRAWTEXT(c 0 and DISPSTATUS=2,100-(sss*i),' 日换手率大于15%--25%,股价属于成交巨量,发生在高位或高位缩量横盘之后,很可能是庄家出货。'),Color00FFFF,ALIGN2;
i:=i+1; END
IF HSL =25 THEN BEGIN DRAWTEXT(c 0 and DISPSTATUS=2,100-(sss*i),' 日换手率大于25% 股价属于成交怪异。'),ColorFFFFFF,ALIGN2; i:=i+1; END
IF 量能 3*N AND 涨幅1 3*N THEN BEGIN DRAWTEXT(c 0 and DISPSTATUS=2,100-(sss*i),'继续大涨'),ColorFF00FF,ALIGN2; i:=i+1; END
IF 量能 0.5*N AND 涨幅1 N THEN BEGIN DRAWTEXT(c 0 and DISPSTATUS=2,100-(sss*i),'继续小涨'),ColorFFFF00,ALIGN2; i:=i+1; END
IF 量能 0.5*N AND 涨幅1 -N AND 涨幅1 0 THEN BEGIN DRAWTEXT(c 0 and DISPSTATUS=2,100-(sss*i),'继续小跌'),ColorFFFF00,ALIGN2; i:=i+1; END
IF 量能 3*N AND 涨幅1 -3*N THEN BEGIN DRAWTEXT(c 0 and DISPSTATUS=2,100-(sss*i),'继续大跌'),ColorFF00FF,ALIGN2; i:=i+1; END
IF ((量能 3*N AND 涨幅1 N) OR (量能 0.5*N AND 涨幅1 3*N)
OR (量能 3*N AND 涨幅1 -N AND 涨幅1 0) OR (量能 0.5*N AND 涨幅1 -3*N)) THEN BEGIN DRAWTEXT(c 0 and DISPSTATUS=2,100-(sss*i),'注意反转'),ColorFFFFF5,ALIGN2;
i:=i+1; END
IF 涨幅1 0 and 流通市值 =AL THEN BEGIN DRAWTEXT(c 0 and DISPSTATUS=2,100-(sss*i),'流通市值减小,涨幅加大'),Color00FFFF,ALIGN2; i:=i+1; END
IF 涨幅1 =0 and 流通市值 =AL THEN BEGIN DRAWTEXT(c 0 and DISPSTATUS=2,100-(sss*i),'流通市值加大,涨幅减小'),Color00FFFF,ALIGN2; i:=i+1; END;
DRAWTEXTREL(20 ,50 ,'趋势看周线' );
DRAWTEXTREL(20 ,200 ,'选股看日线' );
DRAWTEXTREL(20 ,350 ,'买股看时线' );