通达信极速板块指标公式

公式如下
{T，1，1000，20}
 DRAWGBK(1,RGB(100,0,0),RGB(0,100,0),0,0,0);
 Z1:=STRCAT('【',STRCAT(CODE,STKNAME));
 Z2:=STRCAT('  行业：',HYBLOCK);
 Z3:=STRCAT('  地域：',DYBLOCK);
 Z4:=STRCAT(STRCAT('  概念：',GNBLOCK),'】');
Z5:=STRCAT(Z1,Z2);
 Z6:=STRCAT(Z3,Z4);
 Z7:=STRCAT(Z5,Z6);
 DRAWTEXT_FIX(1,0,0.0,0,Z7),COLOR00EEEE;
 DRAWTEXT_FIX(1,0,0.15,0,STRCAT('【风格：',STRCAT(FGBLOCK,'】'))),COLOREEEE00;

DRAWTEXT_FIX(1,0,0.3,0,'流通股（亿）'),COLORAAEEEE;
 DRAWTEXT_FIX(1,0,0.45,0,CON2STR(FINANCE(7)/100000000,2)),COLORAAEEEE;
 DRAWTEXT_FIX(1,0.09,0.3,0,'流通比'),COLORAAEEEE;
 DRAWTEXT_FIX(1,0.09,0.45,0,CON2STR(FINANCE(7)/FINANCE(1),2)),COLORAAEEEE;
 DRAWTEXT_FIX(1,0.15,0.3,0,'人均持股（股）'),COLOR0000EE;
 DRAWTEXT_FIX(1,0.15,0.45,0,CON2STR(FINANCE(7)/FINANCE(8),2)),COLOR0000EE;
 DRAWTEXT_FIX(1,0.25,0.3,0,'市净率'),COLORAAEEEE;
 DRAWTEXT_FIX(1,0.25,0.45,0,CON2STR(C/FINANCE(34),2)),COLORAAEEEE;
 DRAWTEXT_FIX(1,0.3,0.3,0,'市盈率'),COLOR00EE00;
 DRAWTEXT_FIX(1,0.3,0.45,0,CON2STR(C/FINANCE(33),2)),COLOR00EE00;

 VAR1:=("880301$C"); VAR2:=("880305$C"); VAR3:=("880310$C"); VAR4:=("880318$C");
 VAR5:=("880324$C"); VAR6:=("880330$C"); VAR7:=("880335$C"); VAR8:=("880344$C");
 VAR9:=("880350$C");VAR10:=("880351$C");VAR11:=("880355$C");VAR12:=("999999$C");
 VAR13:=("880360$C");VAR14:=("880367$C");VAR15:=("880372$C");VAR16:=("880380$C");
 VAR17:=("880387$C");VAR18:=("880390$C");VAR19:=("880398$C");VAR20:=("880399$C");
 VAR21:=("880400$C");VAR22:=("800406$C");VAR23:=("880414$C");VAR24:=("880418$C");
 VAR25:=("880421$C");VAR26:=("880422$C");VAR27:=("880423$C");VAR28:=("880424$C");
 VAR29:=("880430$C");VAR30:=("880431$C");VAR31:=("880432$C");VAR32:=("880437$C");
 VAR33:=("880440$C");VAR34:=("880446$C");VAR35:=("880447$C");VAR36:=("880448$C");
 VAR37:=("880452$C");VAR38:=("880453$C");VAR39:=("880454$C");VAR40:=("880455$C");
 VAR41:=("880456$C");VAR42:=("800459$C");VAR43:=("880464$C");VAR44:=("880465$C");
 VAR45:=("880471$C");VAR46:=("880472$C");VAR47:=("880473$C");VAR48:=("880474$C");
 VAR49:=("880476$C");VAR50:=("880482$C");VAR51:=("800489$C");VAR52:=("800490$C");
 VAR53:=("880491$C");VAR54:=("880492$C");VAR55:=("880493$C");VAR56:=("880494$C");
 VAR57:=("880497$C");
 NOTEXT个股:SUM((C/REF(C,1)-1)*100,T)*2+100,COLORRED,LINETHICK2;
大盘:SUM((INDEXC/REF(INDEXC,1)-1)*100,T)*2+100,COLORMAGENTA,LINETHICK4;
 VAR83:=("880835$C");
绩优股:SUM((VAR83/REF(VAR83,1)-1)*100,T)*2+100,COLOR008800,LINETHICK2;
 {NOTEXT个股水平尺}
个股水平尺:CONST(NOTEXT个股),COLORRED,LINETHICK2;{COLOR336600}{COLORFF6600};

 NOTEXT行业:SUM((HY_INDEXC/REF(HY_INDEXC,1)-1)*100,T)*2+100,COLORYELLOW,LINETHICK3;
银行:IF(SUM((VAR45/REF(VAR45,1)-1)*100,T)*2+100<大盘,DRAWNULL,SUM((VAR45/REF(VAR45,1)-1)*100,T)*2+100),COLORCCCCCC;
证劵:IF(SUM((VAR46/REF(VAR46,1)-1)*100,T)*2+100<大盘,DRAWNULL,SUM((VAR46/REF(VAR46,1)-1)*100,T)*2+100),COLORYELLOW;
保险:IF(SUM((VAR47/REF(VAR47,1)-1)*100,T)*2+100<大盘,DRAWNULL,SUM((VAR47/REF(VAR47,1)-1)*100,T)*2+100),COLORLIRED;
煤炭:IF(SUM((VAR1/REF(VAR1,1)-1)*100,T)*2+100<大盘,DRAWNULL,SUM((VAR1/REF(VAR1,1)-1)*100,T)*2+100),COLORLICYAN;
环保:IF(SUM((VAR41/REF(VAR41,1)-1)*100,T)*2+100<大盘,DRAWNULL,SUM((VAR41/REF(VAR41,1)-1)*100,T)*2+100),COLORMAGENTA;
医保:IF(SUM((VAR19/REF(VAR19,1)-1)*100,T)*2+100<大盘,DRAWNULL,SUM((VAR19/REF(VAR19,1)-1)*100,T)*2+100),COLORCYAN;
互联网:IF(SUM((VAR56/REF(VAR56,1)-1)*100,T)*2+100<大盘,DRAWNULL,SUM((VAR56/REF(VAR56,1)-1)*100,T)*2+100),COLORBLUE;
 NOTEXT综合:IF(SUM((VAR57/REF(VAR57,1)-1)*100,T)*2+100<大盘,DRAWNULL,SUM((VAR57/REF(VAR57,1)-1)*100,T)*2+100),COLOR110000;
 VAR84:=("880801$C");
 NOTEXT基金重仓:IF(SUM((VAR84/REF(VAR84,1)-1)*100,T)*2+100<大盘,DRAWNULL,SUM((VAR84/REF(VAR84,1)-1)*100,T)*2+100),COLOR00CC00;