说明:【板块量能】其实就是板块成交量.大家一看就明白.
涨幅引用
A:DYNAINFO(14),linethick0;
CC:C,linethick0;
CO:O,linethick0;
CH:H,linethick0;
CL:L,linethick0;
CV:V,linethick0;
CT:AMOUNT,linethick0;
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
【板块量能】
if inblock('工程建筑')=1 THENBEGINM:='工程建筑,';
版块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 BEGINM:='新能源,';
版块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 BEGINM:='电力,';
版块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 BEGINM:='电子信息,';
版块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 BEGINM:='房地产,';
版块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 BEGINM:='纺织服装,';
版块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 BEGINM:='钢铁,';
版块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 BEGINM:='供水供气,';
版块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 BEGINM:='化工化纤,';
版块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('稀缺资源')=1 THEN BEGINM:='稀缺资源,';
版块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 BEGINM:='电器,';
版块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 BEGINM:='新材料,';
版块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 BEGINM:='交通设施,';
版块H:=STKINDI('991016','涨幅引用.Ch');
版块L:=STKINDI('9910160','涨幅引用.Cl');
版块O:=STKINDI('991016','涨幅引用.CO');
版块V:=STKINDI('991016','涨幅引用.Cv');
版块C:=STKINDI('991016','涨幅引用.CC');
版块涨幅:=STKINDI('991016','涨幅引用.A')*100;end;
if inblock('银行类')=1 THEN BEGINM:='银行类,';
版块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 BEGINM:='旅游酒店,';
版块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 BEGINM:='煤炭石油,';
版块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 BEGINM:='酿酒食品,';
版块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 BEGINM:='农林牧渔,';
版块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 BEGINM:='商业连锁,';
版块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 BEGINM:='建材,';
版块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 BEGINM:='其他行业,';
版块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 BEGINM:='汽车类,';
版块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 BEGINM:='机械,';
版块H:=STKINDI('991027','涨幅引用.Ch');
版块L:=STKINDI('991027','涨幅引用.Cl');
版块O:=STKINDI('991027','涨幅引用.CO');
版块V:=STKINDI('991027','涨幅引用.Cv');
版块C:=STKINDI('991027','涨幅引用.CC');
版块涨幅:=STKINDI('991027','涨幅引用.A')*100;end;
if inblock('医药')=1 THEN BEGINM:='医药,';
版块H:=STKINDI('991028','涨幅引用.Ch');
版块L:=STKINDI('991028','涨幅引用.Cl');
版块O:=STKINDI('991028','涨幅引用.CO');
版块V:=STKINDI('991028','涨幅引用.Cv');
版块C:=STKINDI('991028','涨幅引用.CC');
版块涨幅:=STKINDI('991028','涨幅引用.A')*100;end;
if inblock('农业龙头')=1 THEN BEGINM:='农业龙头,';
版块H:=STKINDI('993128','涨幅引用.Ch');
版块L:=STKINDI('993128','涨幅引用.Cl');
版块O:=STKINDI('993128','涨幅引用.CO');
版块V:=STKINDI('993128','涨幅引用.Cv');
版块C:=STKINDI('993128','涨幅引用.CC');
版块涨幅:=STKINDI('993128','涨幅引用.A')*100;end;
if inblock('外贸')=1 THEN BEGINM:='外贸,';
版块H:=STKINDI('991031','涨幅引用.Ch');
版块L:=STKINDI('991031','涨幅引用.Cl');
版块O:=STKINDI('991031','涨幅引用.CO');
版块V:=STKINDI('991031','涨幅引用.Cv');
版块C:=STKINDI('991031','涨幅引用.CC');
版块涨幅:=STKINDI('991031','涨幅引用.A')*100;end;
if inblock('教育传媒')=1 THEN BEGINM:='教育传媒,';
版块H:=STKINDI('991032','涨幅引用.Ch');
版块L:=STKINDI('991032','涨幅引用.Cl');
版块O:=STKINDI('991032','涨幅引用.CO');
版块V:=STKINDI('991032','涨幅引用.Cv');
版块C:=STKINDI('991032','涨幅引用.CC');
版块涨幅:=STKINDI('991032','涨幅引用.A')*100;end;
if inblock('仪电仪表')=1 THEN BEGINM:='仪电仪表,';
版块H:=STKINDI('991033','涨幅引用.Ch');
版块L:=STKINDI('991033','涨幅引用.Cl');
版块O:=STKINDI('991033','涨幅引用.CO');
版块V:=STKINDI('991033','涨幅引用.Cv');
版块C:=STKINDI('991033','涨幅引用.CC');
版块涨幅:=STKINDI('991033','涨幅引用.A')*100;end;
if inblock('有色金属')=1 THEN BEGINM:='有色金属,';
版块H:=STKINDI('991034','涨幅引用.Ch');
版块L:=STKINDI('991034','涨幅引用.Cl');
版块O:=STKINDI('991034','涨幅引用.CO');
版块V:=STKINDI('991034','涨幅引用.Cv');
版块C:=STKINDI('991034','涨幅引用.CC');
版块涨幅:=STKINDI('991034','涨幅引用.A')*100;end;
if inblock('造纸印刷')=1 THEN BEGINM:='造纸印刷,';
版块H:=STKINDI('991035','涨幅引用.Ch');
版块L:=STKINDI('991035','涨幅引用.Cl');
版块O:=STKINDI('991035','涨幅引用.CO');
版块V:=STKINDI('991035','涨幅引用.Cv');
版块C:=STKINDI('991035','涨幅引用.CC');
版块涨幅:=STKINDI('991035','涨幅引用.A')*100;end;
if inblock('券商')=1 THEN BEGINM:='券商,';
版块H:=STKINDI('991036','涨幅引用.Ch');
版块L:=STKINDI('991036','涨幅引用.Cl');
版块O:=STKINDI('991036','涨幅引用.CO');
版块V:=STKINDI('991036','涨幅引用.Cv');
版块C:=STKINDI('991036','涨幅引用.CC');
版块涨幅:=STKINDI('991036','涨幅引用.A')*100;end;
if inblock('电力设备')=1 THEN BEGINM:='电力设备,';
版块H:=STKINDI('991037','涨幅引用.Ch');
版块L:=STKINDI('991037','涨幅引用.Cl');
版块O:=STKINDI('991037','涨幅引用.CO');
版块V:=STKINDI('991037','涨幅引用.Cv');
版块C:=STKINDI('991037','涨幅引用.CC');
版块涨幅:=STKINDI('991037','涨幅引用.A')*100;end;
if inblock('数字电视')=1 THEN BEGINM:='数字电视,';
版块H:=STKINDI('993129','涨幅引用.Ch');
版块L:=STKINDI('993129','涨幅引用.Cl');
版块O:=STKINDI('993129','涨幅引用.CO');
版块V:=STKINDI('993129','涨幅引用.Cv');
版块C:=STKINDI('993129','涨幅引用.CC');
版块涨幅:=STKINDI('993129','涨幅引用.A')*100;end;
if inblock('通信')=1 THEN BEGINM:='通信,';
版块H:=STKINDI('991135','涨幅引用.Ch');
版块L:=STKINDI('991135','涨幅引用.Cl');
版块O:=STKINDI('991135','涨幅引用.CO');
版块V:=STKINDI('991135','涨幅引用.Cv');
版块C:=STKINDI('991135','涨幅引用.CC');
版块涨幅:=STKINDI('991135','涨幅引用.A')*100;end;
if inblock('运输物流')=1 THEN BEGINM:='运输物流,';
版块H:=STKINDI('991136','涨幅引用.Ch');
版块L:=STKINDI('991136','涨幅引用.Cl');
版块O:=STKINDI('991136','涨幅引用.CO');
版块V:=STKINDI('991136','涨幅引用.Cv');
版块C:=STKINDI('991136','涨幅引用.CC');
版块涨幅:=STKINDI('991136','涨幅引用.A')*100;end;
if inblock('计算机')=1 THEN BEGINM:='计算机,';
版块H:=STKINDI('991004','涨幅引用.Ch');
版块L:=STKINDI('991004','涨幅引用.Cl');
版块O:=STKINDI('991004','涨幅引用.CO');
版块V:=STKINDI('991004','涨幅引用.Cv');
版块C:=STKINDI('991004','涨幅引用.CC');
版块涨幅:=STKINDI('991004','涨幅引用.A')*100;end;
if inblock('中字头')=1 THEN BEGINM:='中字头,';
版块H:=STKINDI('993795','涨幅引用.Ch');
版块L:=STKINDI('993795','涨幅引用.Cl');
版块O:=STKINDI('993795','涨幅引用.CO');
版块V:=STKINDI('993795','涨幅引用.Cv');
版块C:=STKINDI('993795','涨幅引用.CC');
版块涨幅:=STKINDI('993795','涨幅引用.A')*100;end;
if inblock('QFII持股')=1 THEN BEGINM:='QFII持股,';
版块H:=STKINDI('993625','涨幅引用.Ch');
版块L:=STKINDI('993625','涨幅引用.Cl');
版块O:=STKINDI('993625','涨幅引用.CO');
版块V:=STKINDI('993625','涨幅引用.Cv');
版块C:=STKINDI('993625','涨幅引用.CC');
版块涨幅:=STKINDI('993625','涨幅引用.A')*100;end;
if inblock('航天军工')=1 THEN BEGINM:='航天军工,';
版块H:=STKINDI('993665','涨幅引用.Ch');
版块L:=STKINDI('993665','涨幅引用.Cl');
版块O:=STKINDI('993665','涨幅引用.CO');
版块V:=STKINDI('993665','涨幅引用.Cv');
版块C:=STKINDI('993665','涨幅引用.CC');
版块涨幅:=STKINDI('993665','涨幅引用.A')*100;end;
if inblock('节能环保')=1 THEN BEGINM:='节能环保,';
版块H:=STKINDI('993645','涨幅引用.Ch');
版块L:=STKINDI('993645','涨幅引用.Cl');
版块O:=STKINDI('993645','涨幅引用.CO');
版块V:=STKINDI('993645','涨幅引用.Cv');
版块C:=STKINDI('993645','涨幅引用.CC');
版块涨幅:=STKINDI('993645','涨幅引用.A')*100;end;
if inblock('创投')=1 THEN BEGINM:='创投,';
版块H:=STKINDI('993695','涨幅引用.Ch');
版块L:=STKINDI('993695','涨幅引用.Cl');
版块O:=STKINDI('993695','涨幅引用.CO');
版块V:=STKINDI('993695','涨幅引用.Cv');
版块C:=STKINDI('993695','涨幅引用.CC');
版块涨幅:=STKINDI('993695','涨幅引用.A')*100;end;
if inblock('煤化工')=1 THEN BEGINM:='煤化工,';
版块H:=STKINDI('993798','涨幅引用.Ch');
版块L:=STKINDI('993798','涨幅引用.Cl');
版块O:=STKINDI('993798','涨幅引用.CO');
版块V:=STKINDI('993798','涨幅引用.Cv');
版块C:=STKINDI('993798','涨幅引用.CC');
版块涨幅:=STKINDI('993798','涨幅引用.A')*100;end;
DRAWTEXTREL(10,10,'所属板块及涨幅:'+M+NUMTOSTRN(版块涨幅,2)+'% '),LINETHICK2;
量5:MA(版块V,5);
量10:MA(版块V,10);
VAR1:=版块V/((版块H-版块L)*2-ABS(版块C-版块O));
成交:版块V,ColorCD52FF,STICK3D;
主买:IF(版块C>版块O,VAR1*(版块H-版块L),IF(版块C<版块O,VAR1*((版块H-版块O)+(版块C-版块L)),版块V/2)),Color0000FF,STICK3D;
主卖:IF(版块C>版块O,VAR1*((版块H-版块C)+(版块O-版块L)),IF(版块C<版块O,VAR1*(版块H-版块L),版块V/2)),Color00E521,STICK3D;
净入:主买-主卖,LINETHICK0;
{点击看本软件截图： 58股票 公式网 http://www. 58gu. com 整理} |
