板块KDJ
-
相关简介:C/C++ Code 复制内容到剪贴板 if inblock( '工程建筑' )=1THENBEGINM:= '工程建筑,' ; 版块H:=STKINDI( '991002' , '涨幅引用.Ch' ); 版块L:=STKINDI( '991002' , '涨幅引用.Cl' ); 版块O:=STKINDI( '991002' , '涨幅引用.CO' ); 版块V:=STKINDI( '991002' , '涨幅引用.Cv' ); 版块C:=STKINDI( '991002
-
文章来源:择股网作者:股海网发布时间:2009-10-03浏览次数:
C/C++ Code复制内容到剪贴板
- 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;
- REFLINE: 0, 20, 50, 80, 100;
- bRSV:=(版块C-LLV(版块L,9))/(HHV(版块H,9)-LLV(版块L,9))*100;
- bK:SMA(bRSV,3,1);
- bD:SMA(bK,3,1);
- bJ:3*bK-2*bD;
下载链接:( 说明:股海资源如需解压密码的请输入本站域名:www.guhai.com.cn请仔细输入!)
|
上一篇:换手能量(飞狐通用)
下一篇:资金净流指标,大智慧,同花顺(l2可用)