年:=2015;
月:=6;
日:=5;
時間:=(年-1900)*10000+月*100+日;
DRAWTEXT(BARSLAST(DATE>=時間),L*0.94,’換手起點’),COLORRED;
DRAWICON(BARSLAST(DATE>=時間),L*0.98,1);
HSL:100*VOL/(capital),linethick0;
上市日期:(FINANCE2(2)-19000000),linethick0;
{天數:BARSLAST(DATE<=1140101);
累積換手:=SUM(HSL,5);}
HS100:IF(DATE>=時間,SUM(HSL,if(上市日期<=時間,BARSLAST(DATE<=時間),0))>=100,0),linethick0;
HS200:IF(DATE>=時間,SUM(HSL,if(上市日期<=時間,BARSLAST(DATE<=時間),0))>=200,0),linethick0;
HS300:IF(DATE>=時間,SUM(HSL,if(上市日期<=時間,BARSLAST(DATE<=時間),0))>=300,0),linethick0;
HS400:IF(DATE>=時間,SUM(HSL,if(上市日期<=時間,BARSLAST(DATE<=時間),0))>=400,0),linethick0;
HS500:IF(DATE>=時間,SUM(HSL,if(上市日期<=時間,BARSLAST(DATE<=時間),0))>=500,0),linethick0;
HS600:IF(DATE>=時間,SUM(HSL,if(上市日期<=時間,BARSLAST(DATE<=時間),0))>=600,0),linethick0;
HS700:IF(DATE>=時間,SUM(HSL,if(上市日期<=時間,BARSLAST(DATE<=時間),0))>=700,0),linethick0;
HS800:IF(DATE>=時間,SUM(HSL,if(上市日期<=時間,BARSLAST(DATE<=時間),0))>=800,0),linethick0;
HS900:IF(DATE>=時間,SUM(HSL,if(上市日期<=時間,BARSLAST(DATE<=時間),0))>=900,0),linethick0;
HS1000:IF(DATE>=時間,SUM(HSL,if(上市日期<=時間,BARSLAST(DATE<=時間),0))>=1000,0),linethick0;
DRAWTEXT(CROSS(HS100,0.99),L*0.94,’換100′),COLORYELLOW;
DRAWICON(CROSS(HS100,0.99),L*0.98,1);
DRAWTEXT(CROSS(HS200,0.99),L*0.94,’換200′),COLORGREEN;
DRAWICON(CROSS(HS200,0.99),L*0.98,1);
DRAWTEXT(CROSS(HS300,0.99),L*0.94,’換300′),COLORWHITE;
DRAWICON(CROSS(HS300,0.99),L*0.98,1);
DRAWTEXT(CROSS(HS400,0.99),L*0.97,’換400′),COLORWHITE;
DRAWTEXT(CROSS(HS500,0.99),L*0.97,’換500′),COLORWHITE;
DRAWTEXT(CROSS(HS600,0.99),L*0.97,’換600′),COLORWHITE;
DRAWTEXT(CROSS(HS700,0.99),L*0.97,’換700′),COLORWHITE;
DRAWTEXT(CROSS(HS800,0.99),L*0.97,’換800′),COLORWHITE;
DRAWTEXT(CROSS(HS900,0.99),L*0.97,’換900′),COLORWHITE;
DRAWTEXT(CROSS(HS1000,0.99),L*0.97,’換1000′),COLORWHITE;
X1:=STRFIND(BKNAME,’自選股,’,1); x2:=STRFIND(BKNAME,’自選股1底部,’,1);
x3:=STRFIND(BKNAME,’自選股2平臺,’,1); x4:=STRFIND(BKNAME,’自選股A績優(yōu),’,1);
x5:=STRFIND(BKNAME,’自選股B績優(yōu)增倉,’,1);
x:=max(1,x1,x2,x3,x4,x5);
x1:= if(x=x1,7,if(x=x2 or x=x3 or x=x4,12,if(x=x5,16,0)));
{BK1:=STRMID(BKNAME,x+x1,8); X6:=if(STRFIND(BK1,’,’,1)<>0,STRFIND(BK1,’,’,1),9);
BK:=STRMID(BKNAME,x+x1,x6-1);}
BK:=STRMID(BKNAME,x+x1,200);
DRAWTEXTABS(0,10,’板塊名稱:’+BK),Color9DFFFF;