wWj:=' ';
wyy1:=WEEKDAY;
if C>0 then begin;
wWj:=' 星期';
IF wyy1=5 then wWj:= wWj+'五';
IF wyy1=4 then wWj:= wWj+'四';
IF wyy1=3 then wWj:= wWj+'三';
IF wyy1=2 then wWj:= wWj+'二';
IF wyy1=1 then wWj:= wWj+'一';
end;
wWl:='';
wWh:='';
wyy2:=LMONTH;
wyy3:=LDAY;
IF BARSTATUS=2 then wWw:=' 农历 '+NUMTOSTRN(wyy2,0)+'月 '+NUMTOSTRN(wyy3,0)+'日';
IF BARSTATUS=2 then wWh:=NUMTOSTRN(date+1000000,0);
IF BARSTATUS=2 then wWl:=wWj;
DRAWTEXTREL(10 ,10 ,' '+wWh+wWl+wWw),LINETHICK1,ColorFFFF80;
var1:=SUM(WINNER(CLOSE)*100,10)/10-(SUM(WINNER(CLOSE)*100,10)/20+10);
var2:=Dma(var1,vol/SUM(vol,13));
var3:=Dma(var1,vol/CAPITAL);
STICKLINE(var1>0,0,var1,10,0),Color0000FF;
STICKLINE(var1<0,0,var1,10,0),Color00FF00;
控盘拉升:IF(C>1000,var2,var3),ColorYELLOW,LINETHICK2,LAYER1;
顶:50,POINTDOT,ColorGREEN;
风险区:33,POINTDOT,ColorGREEN;
控盘区:20,POINTDOT,Color979390;
吸筹区:10,POINTDOT,Color979390;
无庄散户区:-5,POINTDOT,colorFFA6A6;
底部区:-15,POINTDOT,colorcc9900;
DRAWTEXTREL(1,5,'顶部区'),ColorGREEN;
DRAWTEXTREL(1,220,'风险区'),ColorGREEN;
DRAWTEXTREL(1,430,'控盘区'),Color00FFFF;
DRAWTEXTREL(1,590,'吸筹区'),Color00FFFF;
DRAWTEXTREL(1,790,'散户区'),Colorred;
DRAWTEXTREL(1,980,'底部区'),Colorred;
A:=BARSLAST(CROSS("kdj.k","kdj.d"))+1;
B:=A>REF(A,1);
D1:=BARSCOUNT(C);
板块:=IFS(INBLOCK('工程建筑'),'工程建筑',
IFS(INBLOCK('电力'),'电力',
IFS(INBLOCK('计算机'),'计算机',
IFS(INBLOCK('电子信息'),'电子信息',
IFS(INBLOCK('房地产'),'房地产',
IFS(INBLOCK('纺织服装'),'纺织服装',
IFS(INBLOCK('钢铁'),'钢铁',
IFS(INBLOCK('供水供气'),'供水供气',
IFS(INBLOCK('化工化纤'),'化工化纤',
IFS(INBLOCK('电器'),'电器',
IFS(INBLOCK('交通设施'),'交通设施',
IFS(INBLOCK('银行类'),'银行类',
IFS(INBLOCK('旅游酒店'),'旅游酒店',
IFS(INBLOCK('煤炭石油'),'煤炭石油',
IFS(INBLOCK('酿酒食品'),'酿酒食品',
IFS(INBLOCK('农林牧渔'),'农林牧渔',
IFS(INBLOCK('商业连锁'),'商业连锁',
IFS(INBLOCK('建材'),'建材',
IFS(INBLOCK('其他行业'),'其他行业',
IFS(INBLOCK('汽车类'),'汽车类',
IFS(INBLOCK('机械'),'机械',
IFS(INBLOCK('医药'),'医药',
IFS(INBLOCK('外贸'),'外贸',
IFS(INBLOCK('教育传媒'),'教育传媒',
IFS(INBLOCK('仪电仪表'),'仪电仪表',
IFS(INBLOCK('有色金属'),'有色金属',
IFS(INBLOCK('造纸印刷'),'造纸印刷',
IFS(INBLOCK('券商'),'券商',
IFS(INBLOCK('电力设备'),'电力设备',
IFS(INBLOCK('通信'),'通信',
IFS(INBLOCK('运输物流'),'运输物流',
IFS(INBLOCK('海峡西岸'),'海峡西岸',
IFS(INBLOCK('保险'),'保险','')
))))))))))))))))))))))))))))))));
DRAWTEXTABS(50,1,'所属: '+板块+'指数'),COLORYELLOW;
DRAWTEXTREL(80,20,''),colorcc9900,linethick1;
爱 查股网 www.a ichagu.com