复制内容到剪贴板
代码:
XS1:=FINANCE(7)*15/1000;
XS:=IF(XS1<100,100,XS1);
db:=stkindi('','lhkp.db',0,0)/10;
db1:=stkindi('','lhkp.db1',0,0);
ds:=stkindi('','lhkp.ds',0,0);
ds1:=stkindi('','lhkp.ds1',0,0);
sb:=stkindi('','lhkp.sb',0,0);
sb1:=stkindi('','lhkp.sb1',0,0);
ss:=stkindi('','lhkp.ss',0,0);
ss1:=stkindi('','lhkp.ss1',0,0);
总:=DYNAINFO( 8);
DRAWTEXT(BARSTATUS=2,总, STKLABEL+' '+STKNAME+' '),LINETHICK6,ColorFFFF80,ALIGN2;
yy1:=WEEKDAY;
DRAWTEXT(BARSTATUS=2 and yy1=5,总,'星期五 '),LINETHICK6,COLORffef40,ALIGN2;
DRAWTEXT(BARSTATUS=2 and yy1=4,总,'星期四 '),LINETHICK6,COLORffef40,ALIGN2;
DRAWTEXT(BARSTATUS=2 and yy1=3,总,'星期三 '),LINETHICK6,COLORffef40,ALIGN2;
DRAWTEXT(BARSTATUS=2 and yy1=2,总,'星期二 '),LINETHICK6,COLORffef40,ALIGN2;
DRAWTEXT(BARSTATUS=2 and yy1=1,总,'星期一 '),LINETHICK6,COLORffef40,ALIGN2;
DRAWTEXT(BARSTATUS=2 and yy1=6,总,'星期六 '),LINETHICK6,COLORffef40,ALIGN2;
DRAWTEXT(BARSTATUS=2 and yy1=0,总,'星期日 '),LINETHICK6,COLORffef40,ALIGN2;
DRAWTEXT(BARSTATUS=2 and 总,总,'大单标准： '),LINETHICK6,COLORred,ALIGN2;
DRAWTEXT(BARSTATUS=2 and 总,总,NUMTOSTR(XS,2)+' '),LINETHICK6,COLORred,ALIGN2;
DRAWTEXT(BARSTATUS=2 and 总,总,'流通盘： '),LINETHICK6,COLORffef40,ALIGN2;
DRAWTEXT(BARSTATUS=2 and 总,总,NUMTOSTR(Finance(7)/10000,4)+' '),LINETHICK6,COLORffef40,ALIGN2;
DRAWTEXT(BARSTATUS=2 and 总,总*0.8,'■■■总成交手： '),LINETHICK2,COLORccffcc,ALIGN2;
DRAWTEXT(BARSTATUS=2 and 总,总*0.8,NUMTOSTR(总,2)+' '),LINETHICK2,COLORccffcc,ALIGN2;
DRAWTEXT(BARSTATUS=2 and qt,总*0.66,'■■■总成交笔数： '),LINETHICK2,COLORffff54,ALIGN2;
DRAWTEXT(BARSTATUS=2 and qt,总*0.66,NUMTOSTR(qt,2)+' '),LINETHICK2,COLORffff54,ALIGN2;
DRAWTEXT(BARSTATUS=2 and db,总*0.8,'■大单买入： '),LINETHICK2,color5050FF,ALIGN2;
DRAWTEXT(BARSTATUS=2 and db,总*0.8,NUMTOSTR(db,2)+' '),LINETHICK2,color5050FF,ALIGN2;
DRAWTEXT(BARSTATUS=2 and db/总*100,总*0.8,'占： '),LINETHICK2,color5050FF,ALIGN2;
DRAWTEXT(BARSTATUS=2 and db/总*100,总*0.8,NUMTOSTR(db/总*100,2)+' '),LINETHICK2,color5050FF,ALIGN2;
DRAWTEXT(BARSTATUS=2 and ds,总*0.66,'■大单卖出： '),LINETHICK2,color00FF00,ALIGN2;
DRAWTEXT(BARSTATUS=2 and ds,总*0.66,NUMTOSTR(ds,2)+' '),LINETHICK2,color00FF00,ALIGN2;
DRAWTEXT(BARSTATUS=2 and ds/总*100,总*0.66,'占： '),LINETHICK2,color00FF00,ALIGN2;
DRAWTEXT(BARSTATUS=2 and ds/总*100,总*0.66,NUMTOSTR(ds/总*100,2)+' '),LINETHICK2,color00FF00,ALIGN2;
DRAWTEXT(BARSTATUS=2 and 总,总*0.5,'■■■每笔均量： '),LINETHICK2,COLORccffcc,ALIGN2;
DRAWTEXT(BARSTATUS=2 and 总,总*0.5,NUMTOSTR(总/qt,2)+' '),LINETHICK2,COLORccffcc,ALIGN2;
DRAWTEXT(BARSTATUS=2 and ds,总*0.5,'■大单买卖差： '),LINETHICK2,COLORccffcc,ALIGN2;
DRAWTEXT(BARSTATUS=2 and ds,总*0.5,NUMTOSTR(db-ds,2)+' '),LINETHICK2,COLORccffcc,ALIGN2;
DRAWTEXT(BARSTATUS=2 and db,总*0.34,'■小单买入： '),LINETHICK2,COLORFF00FF,ALIGN2;
DRAWTEXT(BARSTATUS=2 and db,总*0.34,NUMTOSTR(sb,2)+' '),LINETHICK2,COLORFF00FF,ALIGN2;
DRAWTEXT(BARSTATUS=2 and db/总*100,总*0.34,'占： '),LINETHICK2,COLORFF00FF,ALIGN2;
DRAWTEXT(BARSTATUS=2 and db/总*100,总*0.34,NUMTOSTR(sb/总*100,2)+' '),LINETHICK2,COLORFF00FF,ALIGN2;
DRAWTEXT(BARSTATUS=2 and db,总*0.20,'■小单买出： '),LINETHICK2,COLOR008000,ALIGN2;
DRAWTEXT(BARSTATUS=2 and db,总*0.20,NUMTOSTR(ss,2)+' '),LINETHICK2,COLOR008000,ALIGN2;
DRAWTEXT(BARSTATUS=2 and db/总*100,总*0.20,'占： '),LINETHICK2,COLOR008000,ALIGN2;
DRAWTEXT(BARSTATUS=2 and db/总*100,总*0.20,NUMTOSTR(ss/总*100,2)+' '),LINETHICK2,COLOR008000,ALIGN2;
散户跟风系数:=sb/(db*10+ds)*100;
ht:=if(c>o,1,-1);
DRAWTEXT(BARSTATUS=2 and 总,总*0.2,'■■■散户跟风系数： '),LINETHICK2,COLORccffcc,ALIGN2;
DRAWTEXT(BARSTATUS=2 and 总,总*0.2,NUMTOSTR(散户跟风系数*ht,2)+' '),LINETHICK2,COLORccffcc,ALIGN2;
STICKLINE((总 AND BARSTATUS=2),0,总,50,1),COLORFFFFFF;
STICKLINE((db+ds+sb+ss AND BARSTATUS=2),0,总,45,0),COLOR008000;
STICKLINE((db+ds+sb AND BARSTATUS=2),0,db+ds+sb,45,0),colorFF00FF;
STICKLINE((db+ds AND BARSTATUS=2),0,db+ds,45,0),color00FF00;
STICKLINE((db AND BARSTATUS=2),0,db,45,0),color5050FF;
{EXPLAINICON(c>0,'lhkp');
{EXPLAINEX(1,'□小单买入笔数：',sb1,0,0)colorred;
{EXPLAINEX(1,'□小单卖出笔数：',ss1,0,0)colorgreen;
{EXPLAINEX(1,'■■■■成交总笔数：',qt,0,0),coloryellow;
