板块KDJ 
 
 
if inblock('工程建筑')=1 THEN  BEGIN  M:='工程建筑,'; 
版块H:=STKINDI('991002','涨幅引用.Ch'); 
版块L:=STKINDI('991002','涨幅引用.Cl'); 
版块O:=STKINDI('991002','涨幅引用.CO'); 
版块V:=STKINDI('991002','涨幅引用.Cv'); 
版块C:=STKINDI('991002','涨幅引用.CC'); 
版块涨幅:=STKINDI('991002','涨幅引用.A')*100;end; 
if inblock('新能源')=1 THEN BEGIN  M:='新能源,'; 
版块H:=STKINDI('993585','涨幅引用.Ch'); 
版块L:=STKINDI('993585','涨幅引用.Cl'); 
版块O:=STKINDI('993585','涨幅引用.CO'); 
版块V:=STKINDI('993585','涨幅引用.Cv'); 
版块C:=STKINDI('993585','涨幅引用.CC'); 
版块涨幅:=STKINDI('993585','涨幅引用.A')*100;end; 
if inblock('电力')=1 THEN BEGIN  M:='电力,'; 
版块H:=STKINDI('991003','涨幅引用.Ch'); 
版块L:=STKINDI('991003','涨幅引用.Cl'); 
版块O:=STKINDI('991003','涨幅引用.CO'); 
版块V:=STKINDI('991003','涨幅引用.Cv'); 
版块C:=STKINDI('991003','涨幅引用.CC'); 
版块涨幅:=STKINDI('991003','涨幅引用.A')*100;end; 
if inblock('电子信息')=1 THEN BEGIN  M:='电子信息,'; 
版块H:=STKINDI('991006','涨幅引用.Ch'); 
版块L:=STKINDI('991006','涨幅引用.Cl'); 
版块O:=STKINDI('991006','涨幅引用.CO'); 
版块V:=STKINDI('991006','涨幅引用.Cv'); 
版块C:=STKINDI('991006','涨幅引用.CC'); 
版块涨幅:=STKINDI('991006','涨幅引用.A')*100;end; 
if inblock('房地产')=1 THEN BEGIN  M:='房地产,'; 
版块H:=STKINDI('991007','涨幅引用.Ch'); 
版块L:=STKINDI('991007','涨幅引用.Cl'); 
版块O:=STKINDI('991007','涨幅引用.CO'); 
版块V:=STKINDI('991007','涨幅引用.Cv'); 
版块C:=STKINDI('991007','涨幅引用.CC'); 
版块涨幅:=STKINDI('991007','涨幅引用.A')*100;end; 
if inblock('纺织服装')=1 THEN BEGIN  M:='纺织服装,'; 
版块H:=STKINDI('991008','涨幅引用.Ch'); 
版块L:=STKINDI('991008','涨幅引用.Cl'); 
版块O:=STKINDI('991008','涨幅引用.CO'); 
版块V:=STKINDI('991008','涨幅引用.Cv'); 
版块C:=STKINDI('991008','涨幅引用.CC'); 
版块涨幅:=STKINDI('991008','涨幅引用.A')*100;end; 
if inblock('钢铁')=1 THEN BEGIN  M:='钢铁,'; 
版块H:=STKINDI('991009','涨幅引用.Ch'); 
版块L:=STKINDI('991009','涨幅引用.Cl'); 
版块O:=STKINDI('991009','涨幅引用.CO'); 
版块V:=STKINDI('991009','涨幅引用.Cv'); 
版块C:=STKINDI('991009','涨幅引用.CC'); 
版块涨幅:=STKINDI('991009','涨幅引用.A')*100;end; 
if inblock('供水供气')=1 THEN BEGIN  M:='供水供气,'; 
版块H:=STKINDI('991010','涨幅引用.Ch'); 
版块L:=STKINDI('991010','涨幅引用.Cl'); 
版块O:=STKINDI('991010','涨幅引用.CO'); 
版块V:=STKINDI('991010','涨幅引用.Cv'); 
版块C:=STKINDI('991010','涨幅引用.CC'); 
版块涨幅:=STKINDI('991010','涨幅引用.A')*100;end; 
if inblock('化工化纤')=1 THEN BEGIN  M:='化工化纤,'; 
版块H:=STKINDI('991011','涨幅引用.Ch'); 
版块L:=STKINDI('991011','涨幅引用.Cl'); 
版块O:=STKINDI('991011','涨幅引用.CO'); 
版块V:=STKINDI('991011','涨幅引用.Cv'); 
版块C:=STKINDI('991011','涨幅引用.CC'); 
版块涨幅:=STKINDI('991011','涨幅引用.A')*100;end; 
if inblock('稀缺zi源')=1 THEN BEGIN  M:='稀缺zi源,'; 
版块H:=STKINDI('993745','涨幅引用.Ch'); 
版块L:=STKINDI('993745','涨幅引用.Cl'); 
版块O:=STKINDI('993745','涨幅引用.CO'); 
版块V:=STKINDI('993745','涨幅引用.Cv'); 
版块C:=STKINDI('993745','涨幅引用.CC'); 
版块涨幅:=STKINDI('993745','涨幅引用.A')*100;end; 
if inblock('电器')=1 THEN BEGIN  M:='电器,'; 
版块H:=STKINDI('991014','涨幅引用.Ch'); 
版块L:=STKINDI('991014','涨幅引用.Cl'); 
版块O:=STKINDI('991014','涨幅引用.CO'); 
版块V:=STKINDI('991014','涨幅引用.Cv'); 
版块C:=STKINDI('991014','涨幅引用.CC'); 
版块涨幅:=STKINDI('991014','涨幅引用.A')*100;end; 
if inblock('新材料')=1 THEN BEGIN  M:='新材料,'; 
版块H:=STKINDI('993120','涨幅引用.Ch'); 
版块L:=STKINDI('993120','涨幅引用.Cl'); 
版块O:=STKINDI('993120','涨幅引用.CO'); 
版块V:=STKINDI('993120','涨幅引用.Cv'); 
版块C:=STKINDI('993120','涨幅引用.CC'); 
版块涨幅:=STKINDI('993120','涨幅引用.A')*100;end; 
if inblock('交通设施')=1 THEN BEGIN  M:='交通设施,'; 
版块H:=STKINDI('991016','涨幅引用.Ch'); 
版块L:=STKINDI('991016','涨幅引用.Cl'); 
版块O:=STKINDI('991016','涨幅引用.CO'); 
版块V:=STKINDI('991016','涨幅引用.Cv'); 
版块C:=STKINDI('991016','涨幅引用.CC'); 
版块涨幅:=STKINDI('991016','涨幅引用.A')*100;end; 
if inblock('银hang类')=1 THEN BEGIN  M:='银hang类,'; 
版块H:=STKINDI('991017','涨幅引用.Ch'); 
版块L:=STKINDI('991017','涨幅引用.Cl'); 
版块O:=STKINDI('991017','涨幅引用.CO'); 
版块V:=STKINDI('991017','涨幅引用.Cv'); 
版块C:=STKINDI('991017','涨幅引用.CC'); 
版块涨幅:=STKINDI('991017','涨幅引用.A')*100;end; 
if inblock('旅游酒店')=1 THEN BEGIN  M:='旅游酒店,'; 
版块H:=STKINDI('991018','涨幅引用.Ch'); 
版块L:=STKINDI('991018','涨幅引用.Cl'); 
版块O:=STKINDI('991018','涨幅引用.CO'); 
版块V:=STKINDI('991018','涨幅引用.Cv'); 
版块C:=STKINDI('991018','涨幅引用.CC'); 
版块涨幅:=STKINDI('991018','涨幅引用.A')*100;end; 
if inblock('煤炭石油')=1 THEN BEGIN  M:='煤炭石油,'; 
版块H:=STKINDI('991019','涨幅引用.Ch'); 
版块L:=STKINDI('991019','涨幅引用.Cl'); 
版块O:=STKINDI('991019','涨幅引用.CO'); 
版块V:=STKINDI('991019','涨幅引用.Cv'); 
版块C:=STKINDI('991019','涨幅引用.CC'); 
版块涨幅:=STKINDI('991019','涨幅引用.A')*100;end; 
if inblock('酿酒食品')=1 THEN BEGIN  M:='酿酒食品,'; 
版块H:=STKINDI('991020','涨幅引用.Ch'); 
版块L:=STKINDI('991020','涨幅引用.Cl'); 
版块O:=STKINDI('991020','涨幅引用.CO'); 
版块V:=STKINDI('991020','涨幅引用.Cv'); 
版块C:=STKINDI('991020','涨幅引用.CC'); 
版块涨幅:=STKINDI('991020','涨幅引用.A')*100;end; 
if inblock('农林牧渔')=1 THEN BEGIN  M:='农林牧渔,'; 
版块H:=STKINDI('991021','涨幅引用.Ch'); 
版块L:=STKINDI('991021','涨幅引用.Cl'); 
版块O:=STKINDI('991021','涨幅引用.CO'); 
版块V:=STKINDI('991021','涨幅引用.Cv'); 
版块C:=STKINDI('991021','涨幅引用.CC'); 
版块涨幅:=STKINDI('991021','涨幅引用.A')*100;end; 
if inblock('商业连锁')=1 THEN BEGIN  M:='商业连锁,'; 
版块H:=STKINDI('991023','涨幅引用.Ch'); 
版块L:=STKINDI('991023','涨幅引用.Cl'); 
版块O:=STKINDI('991023','涨幅引用.CO'); 
版块V:=STKINDI('991023','涨幅引用.Cv'); 
版块C:=STKINDI('991023','涨幅引用.CC'); 
版块涨幅:=STKINDI('991023','涨幅引用.A')*100;end; 
if inblock('建材')=1 THEN BEGIN  M:='建材,'; 
版块H:=STKINDI('991024','涨幅引用.Ch'); 
版块L:=STKINDI('991024','涨幅引用.Cl'); 
版块O:=STKINDI('991024','涨幅引用.CO'); 
版块V:=STKINDI('991024','涨幅引用.Cv'); 
版块C:=STKINDI('991024','涨幅引用.CC'); 
版块涨幅:=STKINDI('991024','涨幅引用.A')*100;end; 
if inblock('其他行业')=1 THEN BEGIN  M:='其他行业,'; 
版块H:=STKINDI('991025','涨幅引用.Ch'); 
版块L:=STKINDI('991025','涨幅引用.Cl'); 
版块O:=STKINDI('991025','涨幅引用.CO'); 
版块V:=STKINDI('991025','涨幅引用.Cv'); 
版块C:=STKINDI('991025','涨幅引用.CC'); 
版块涨幅:=STKINDI('991025','涨幅引用.A')*100;end; 
if inblock('汽车类')=1 THEN BEGIN  M:='汽车类,'; 
版块H:=STKINDI('991026','涨幅引用.Ch'); 
版块L:=STKINDI('991026','涨幅引用.Cl'); 
版块O:=STKINDI('991026','涨幅引用.CO'); 
版块V:=STKINDI('991026','涨幅引用.Cv'); 
版块C:=STKINDI('991026','涨幅引用.CC'); 
版块涨幅:=STKINDI('991026','涨幅引用.A')*100;end; 
if inblock('机械')=1 THEN BEGIN &n  |