★热点板块全面升级！！！（大智慧L2源码）

1.先建引用公式

公式名（涨）

涨

A:DYNAINFO(14);
b1:DYNAINFO(6);
b2:DYNAINFO(5);
b3:DYNAINFO(4);
b4:DYNAINFO(3);
b5:DYNAINFO(7);

2.再建板块1公式
{板块1
参数名  缺省   ....  ....   ....
  F      2       1   200      1
  F1     6       1   200      1
  T      12      1   200      1
  D      12      1   200      1
  N      15      1   200      1
}


x1:=5+F ; x2:=380+F1;
y1:=5; y2:=y1+N; y3:=y2+N; y4:=y3+N; y5:=y4+N; y6:=y5+N; y7:=y6+N; y8:=y7+N; y9:=y8+N;
DRAWGBKLAST(CLOSE>0),COLOR656565
;M:=1500+10*D;
Z:=200+x1+5*T;
Z1:=200+x2+5*T;
DRAWTEXTABS(Z+(STKINDI('991017','涨.b3')-STKINDI('991017','涨.b4'))/STKINDI('991017','涨.b4')*M-5,y1,'|'),COLOR40FDFB;
DRAWRECTABS(Z+(STKINDI('991017','涨.b1')-STKINDI('991017','涨.b4'))/STKINDI('991017','涨.b4')*M,y1+12 ,Z+(STKINDI('991017','涨.b2')-STKINDI('991017','涨.b4'))/STKINDI('991017','涨.b4')*M ,y1+6 ,RGB(0,0,255)),colorblack;
IF STKINDI('991017','涨.A')*100>=0 THEN BEGIN DRAWRECTABS(Z+STKINDI('991017','涨.A')*M ,y1 ,Z ,y1+8 ,RGB(255,0,0)),colorblack;end;
IF STKINDI('991017','涨.A')*100<0 THEN BEGIN DRAWRECTABS(Z+STKINDI('991017','涨.A')*M ,y1 ,Z ,y1+8 ,RGB(0,255,0)),colorblack;end;
IF STKINDI('991017','涨.A')*100>=0 THEN BEGIN DRAWTEXTABS(x1,y1,'991017 银··行：' +NUMTOSTRN (STKINDI('991017','涨.A')*100,2)+'%'),COLOR56F6FF;end;
IF STKINDI('991017','涨.A')*100<0 THEN BEGIN DRAWTEXTABS(x1,y1,'991017 银··行：'+NUMTOSTRN(STKINDI('991017','涨.A')*100,2)+'%'),color52ff52;end;
DRAWTEXTABS(Z+(STKINDI('991036','涨.b3')-STKINDI('991036','涨.b4'))/STKINDI('991036','涨.b4')*M-5,y2,'|'),COLOR40FDFB;
DRAWRECTABS(Z+(STKINDI('991036','涨.b1')-STKINDI('991036','涨.b4'))/STKINDI('991036','涨.b4')*M,y2+12,Z+(STKINDI('991036','涨.b2')-STKINDI('991036','涨.b4'))/STKINDI('991036','涨.b4')*M ,y2+6 ,RGB(0,0,255)),colorblack;
IF STKINDI('991036','涨.A')*100>=0 THEN BEGIN DRAWRECTABS(Z+STKINDI('991036','涨.A')*M ,y2,Z ,y2+8 ,RGB(255,0,0)),colorblack;end;
IF STKINDI('991036','涨.A')*100<0 THEN BEGIN DRAWRECTABS(Z+STKINDI('991036','涨.A')*M ,y2,Z ,y2+8 ,RGB(0,255,0)),colorblack;end;
IF STKINDI('991036','涨.A')*100>=0 THEN BEGIN DRAWTEXTABS(x1,y2,'991036 券··商：' +NUMTOSTRN (STKINDI('991036','涨.A')*100,2)+'%'),COLOR56F6FF;end;
IF STKINDI('991036','涨.A')*100<0 THEN BEGIN DRAWTEXTABS(x1,y2,'991036 券··商：'+NUMTOSTRN(STKINDI('991036','涨.A')*100,2)+'%'),color52ff52;end;
DRAWTEXTABS(Z+(STKINDI('991009','涨.b3')-STKINDI('991009','涨.b4'))/STKINDI('991009','涨.b4')*M-5,y3,'|'),COLOR40FDFB;
DRAWRECTABS(Z+(STKINDI('991009','涨.b1')-STKINDI('991009','涨.b4'))/STKINDI('991009','涨.b4')*M,y3+12,Z+(STKINDI('991009','涨.b2')-STKINDI('991009','涨.b4'))/STKINDI('991009','涨.b4')*M ,y3+6 ,RGB(0,0,255)),colorblack;
IF STKINDI('991009','涨.A')*100>=0 THEN BEGIN DRAWRECTABS(Z+STKINDI('991009','涨.A')*M ,y3,Z ,y3+8 ,RGB(255,0,0)),colorblack;end;
IF STKINDI('991009','涨.A')*100<0 THEN BEGIN DRAWRECTABS(Z+STKINDI('991009','涨.A')*M ,y3,Z ,y3+8 ,RGB(0,255,0)),colorblack;end;
IF STKINDI('991009','涨.A')*100>=0 THEN BEGIN DRAWTEXTABS(x1,y3,'991009 钢··铁：' +NUMTOSTRN (STKINDI('991009','涨.A')*100,2)+'%'),COLOR56F6FF;end;
IF STKINDI('991009','涨.A')*100<0 THEN BEGIN DRAWTEXTABS(x1,y3,'991009 钢··铁：'+NUMTOSTRN(STKINDI('991009','涨.A')*100,2)+'%'),color52ff52;end;
DRAWTEXTABS(Z+(STKINDI('991024','涨.b3')-STKINDI('991024','涨.b4'))/STKINDI('991024','涨.b4')*M-5,y4,'|'),COLOR40FDFB;
DRAWRECTABS(Z+(STKINDI('991024','涨.b1')-STKINDI('991024','涨.b4'))/STKINDI('991024','涨.b4')*M,y4+12,Z+(STKINDI('991024','涨.b2')-STKINDI('991024','涨.b4'))/STKINDI('991024','涨.b4')*M ,y4+6 ,RGB(0,0,255)),colorblack;
IF STKINDI('991024','涨.A')*100>=0 THEN BEGIN DRAWRECTABS(Z+STKINDI('991024','涨.A')*M ,y4,Z ,y4+8 ,RGB(255,0,0)),colorblack;end;
IF STKINDI('991024','涨.A')*100<0 THEN BEGIN DRAWRECTABS(Z+STKINDI('991024','涨.A')*M ,y4,Z ,y4+8 ,RGB(0,255,0)),colorblack;end;
IF STKINDI('991024','涨.A')*100>=0 THEN BEGIN DRAWTEXTABS(x1,y4,'991024 建··材：' +NUMTOSTRN (STKINDI('991024','涨.A')*100,2)+'%'),COLOR56F6FF;end;
IF STKINDI('991024','涨.A')*100<0 THEN BEGIN DRAWTEXTABS(x1,y4,'991024 建··材：'+NUMTOSTRN(STKINDI('991024','涨.A')*100,2)+'%'),color52ff52;end;
DRAWTEXTABS(Z+(STKINDI('991027','涨.b3')-STKINDI('991027','涨.b4'))/STKINDI('991027','涨.b4')*M-5,y5,'|'),COLOR40FDFB;
DRAWRECTABS(Z+(STKINDI('991027','涨.b1')-STKINDI('991027','涨.b4'))/STKINDI('991027','涨.b4')*M,y5+12,Z+(STKINDI('991027','涨.b2')-STKINDI('991027','涨.b4'))/STKINDI('991027','涨.b4')*M ,y5+6 ,RGB(0,0,255)),colorblack;
IF STKINDI('991027','涨.A')*100>=0 THEN BEGIN DRAWRECTABS(Z+STKINDI('991027','涨.A')*M ,y5,Z ,y5+8 ,RGB(255,0,0)),colorblack;end;
IF STKINDI('991027','涨.A')*100<0 THEN BEGIN DRAWRECTABS(Z+STKINDI('991027','涨.A')*M ,y5,Z ,y5+8 ,RGB(0,255,0)),colorblack;end;
IF STKINDI('991027','涨.A')*100>=0 THEN BEGIN DRAWTEXTABS(x1,y5,'991027 机··械：' +NUMTOSTRN (STKINDI('991027','涨.A')*100,2)+'%'),COLOR56F6FF;end;
IF STKINDI('991027','涨.A')*100<0 THEN BEGIN DRAWTEXTABS(x1,y5,'991027 机··械：'+NUMTOSTRN(STKINDI('991027','涨.A')*100,2)+'%'),color52ff52;end;
DRAWTEXTABS(Z+(STKINDI('991028','涨.b3')-STKINDI('991028','涨.b4'))/STKINDI('991028','涨.b4')*M-5,y6,'|'),COLOR40FDFB;
DRAWRECTABS(Z+(STKINDI('991028','涨.b1')-STKINDI('991028','涨.b4'))/STKINDI('991028','涨.b4')*M,y6+12,Z+(STKINDI('991028','涨.b2')-STKINDI('991028','涨.b4'))/STKINDI('991028','涨.b4')*M ,y6+6 ,RGB(0,0,255)),colorblack;
IF STKINDI('991028','涨.A')*100>=0 THEN BEGIN DRAWRECTABS(Z+STKINDI('991028','涨.A')*M ,y6,Z ,y6+8 ,RGB(255,0,0)),colorblack;end;
IF STKINDI('991028','涨.A')*100<0 THEN BEGIN DRAWRECTABS(Z+STKINDI('991028','涨.A')*M ,y6,Z ,y6+8 ,RGB(0,255,0)),colorblack;end;
IF STKINDI('991028','涨.A')*100>=0 THEN BEGIN DRAWTEXTABS(x1,y6,'991028 医··药：' +NUMTOSTRN (STKINDI('991028','涨.A')*100,2)+'%'),COLOR56F6FF;end;
IF STKINDI('991028','涨.A')*100<0 THEN BEGIN DRAWTEXTABS(x1,y6,'991028 医··药：'+NUMTOSTRN(STKINDI('991028','涨.A')*100,2)+'%'),color52ff52;end;
DRAWTEXTABS(Z+(STKINDI('991007','涨.b3')-STKINDI('991007','涨.b4'))/STKINDI('991007','涨.b4')*M-5,y7,'|'),COLOR40FDFB;
DRAWRECTABS(Z+(STKINDI('991007','涨.b1')-STKINDI('991007','涨.b4'))/STKINDI('991007','涨.b4')*M,y7+12,Z+(STKINDI('991007','涨.b2')-STKINDI('991007','涨.b4'))/STKINDI('991007','涨.b4')*M ,y7+6 ,RGB(0,0,255)),colorblack;
IF STKINDI('991007','涨.A')*100>=0 THEN BEGIN DRAWRECTABS(Z+STKINDI('991007','涨.A')*M ,y7,Z ,y7+8 ,RGB(255,0,0)),colorblack;end;
IF STKINDI('991007','涨.A')*100<0 THEN BEGIN DRAWRECTABS(Z+STKINDI('991007','涨.A')*M ,y7,Z ,y7+8 ,RGB(0,255,0)),colorblack;end;
IF STKINDI('991007','涨.A')*100>=0 THEN BEGIN DRAWTEXTABS(x1,y7,'991007 房 地 产：' +NUMTOSTRN (STKINDI('991007','涨.A')*100,2)+'%'),COLOR56F6FF;end;
IF STKINDI('991007','涨.A')*100<0 THEN BEGIN DRAWTEXTABS(x1,y7,'991007 房 地 产：'+NUMTOSTRN(STKINDI('991007','涨.A')*100,2)+'%'),color52ff52;end;
DRAWTEXTABS(Z+(STKINDI('993120','涨.b3')-STKINDI('993120','涨.b4'))/STKINDI('993120','涨.b4')*M-5,y8,'|'),COLOR40FDFB;
DRAWRECTABS(Z+(STKINDI('993120','涨.b1')-STKINDI('993120','涨.b4'))/STKINDI('993120','涨.b4')*M,y8+12 ,Z+(STKINDI('993120','涨.b2')-STKINDI('993120','涨.b4'))/STKINDI('993120','涨.b4')*M ,y8+6 ,RGB(0,0,255)),colorblack;
IF STKINDI('993120','涨.A')*100>=0 THEN BEGIN DRAWRECTABS(Z+STKINDI('993120','涨.A')*M ,y8 ,Z ,y8+8 ,RGB(255,0,0)),colorblack;end;
IF STKINDI('993120','涨.A')*100<0 THEN BEGIN DRAWRECTABS(Z+STKINDI('993120','涨.A')*M ,y8 ,Z ,y8+8 ,RGB(0,255,0)),colorblack;end;
IF STKINDI('993120','涨.A')*100>=0 THEN BEGIN DRAWTEXTABS(x1,y8,'993120 新 材 料：' +NUMTOSTRN (STKINDI('993120','涨.A')*100,2)+'%'),COLOR56F6FF;end;
IF STKINDI('993120','涨.A')*100<0 THEN BEGIN DRAWTEXTABS(x1,y8,'993120 新 材 料：'+NUMTOSTRN(STKINDI('993120','涨.A')*100,2)+'%'),color52ff52;end;
DRAWTEXTABS(Z+(STKINDI('991026','涨.b3')-STKINDI('991026','涨.b4'))/STKINDI('991026','涨.b4')*M-5,y9,'|'),COLOR40FDFB;
DRAWRECTABS(Z+(STKINDI('991026','涨.b1')-STKINDI('991026','涨.b4'))/STKINDI('991026','涨.b4')*M,y9+12 ,Z+(STKINDI('991026','涨.b2')-STKINDI('991026','涨.b4'))/STKINDI('991026','涨.b4')*M ,y9+6 ,RGB(0,0,255)),colorblack;
IF STKINDI('991026','涨.A')*100>=0 THEN BEGIN DRAWRECTABS(Z+STKINDI('991026','涨.A')*M ,y9 ,Z ,y9+8 ,RGB(255,0,0)),colorblack;end;
IF STKINDI('991026','涨.A')*100<0 THEN BEGIN DRAWRECTABS(Z+STKINDI('991026','涨.A')*M ,y9 ,Z ,y9+8 ,RGB(0,255,0)),colorblack;end;
IF STKINDI('991026','涨.A')*100>=0 THEN BEGIN DRAWTEXTABS(x1,y9,'991026 汽 车 类：' +NUMTOSTRN (STKINDI('991026','涨.A')*100,2)+'%'),COLOR56F6FF;end;
IF STKINDI('991026','涨.A')*100<0 THEN BEGIN DRAWTEXTABS(x1,y9,'991026 汽 车 类：'+NUMTOSTRN(STKINDI('991026','涨.A')*100,2)+'%'),color52ff52;end;