特发【板块量能】
-
相关简介:为庆祝祖国60华诞!!!又迎中秋 !!! 今天特发【板块量能】, 说明:【板块量能】其实就是板块成交量.大家一看就明白. 涨幅引用 C/C++ Code 复制内容到剪贴板 A:DYNAINFO(14),linethick0; CC:C,linethick0; CO:O,linethick0; CH:H,linethick0; CL:L,linethick0; CV:V,linethick0; CT:AMOUNT,linethick0; C/C++ Code
-
文章来源:择股网作者:股海网发布时间:2009-09-30浏览次数:
为庆祝祖国60华诞!!!又迎中秋 !!!
今天特发【板块量能】,
说明:【板块量能】其实就是板块成交量.大家一看就明白.
涨幅引用
C/C++ Code复制内容到剪贴板
- A:DYNAINFO(14),linethick0;
- CC:C,linethick0;
- CO:O,linethick0;
- CH:H,linethick0;
- CL:L,linethick0;
- CV:V,linethick0;
- CT:AMOUNT,linethick0;
C/C++ Code复制内容到剪贴板
- {板块量能 择股网 www.zegu.cn 整理}
- 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('稀缺资源')=1 THEN BEGIN M:='稀缺资源,';
- 版块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('9910160','涨幅引用.Cl');
- 版块O:=STKINDI('991016','涨幅引用.CO');
- 版块V:=STKINDI('991016','涨幅引用.Cv');
- 版块C:=STKINDI('991016','涨幅引用.CC');
- 版块涨幅:=STKINDI('991016','涨幅引用.A')*100;end;
- if inblock('银行类')=1 THEN BEGIN M:='银行类,';
- 版块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 M:='机械,';
- 版块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 BEGIN M:='医药,';
- 版块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 BEGIN M:='农业龙头,';
- 版块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 BEGIN M:='外贸,';
- 版块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 BEGIN M:='教育传媒,';
- 版块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 BEGIN M:='仪电仪表,';
- 版块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 BEGIN M:='有色金属,';
- 版块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 BEGIN M:='造纸印刷,';
- 版块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 BEGIN M:='券商,';
- 版块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 BEGIN M:='电力设备,';
- 版块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 BEGIN M:='数字电视,';
- 版块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 BEGIN M:='通信,';
- 版块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 BEGIN M:='运输物流,';
- 版块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 BEGIN M:='计算机,';
- 版块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 BEGIN M:='中字头,';
- 版块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 BEGIN M:='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 BEGIN M:='航天军工,';
- 版块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 BEGIN M:='节能环保,';
- 版块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 BEGIN M:='创投,';
- 版块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 BEGIN M:='煤化工,';
- 版块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;
下载链接:( 说明:股海资源如需解压密码的请输入本站域名:www.guhai.com.cn请仔细输入!)
|