大智慧控盘拉升指标公式

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;