- 金币:
-
- 奖励:
-
- 热心:
-
- 注册时间:
- 2008-3-12
|
|
全板块均线均额的公式如下(注意与板块的量比均线相互印证):
ss:=STKLABEL;
if category=1 then{个股}
begin
CJBS:IF(TICKCOUNT=0,SELFDATA('BS'),TICKCOUNT),linethick0;
end
else if category=0 and STRCMP(ss,'000001')=0 then{全部A股}
begin
drawtextrel(10,10,STKNAME);
cjbs:=SELFDATA('全A股笔数');
end
else if STRCMP(ss,'991036')=0 then{券商}
begin
drawtextrel(10,10,STKNAME);
cjbs:=SELFDATA('全券商');
end
else if STRCMP(ss,'991028')=0 then{医药}
begin
drawtextrel(10,10,STKNAME);
cjbs:=SELFDATA('全医药');
end
else if STRCMP(ss,'991255')=0 then{保险}
begin
drawtextrel(10,10,STKNAME);
cjbs:=SELFDATA('全保险');
end
else if STRCMP(ss,'991007')=0 then{房地产}
begin
drawtextrel(10,10,STKNAME);
cjbs:=SELFDATA('全房地产');
end
else if STRCMP(ss,'991019')=0 then{煤炭石油}
begin
drawtextrel(10,10,STKNAME);
cjbs:=SELFDATA('全煤炭石油');
end
else if STRCMP(ss,'991003')=0 then{电力}
begin
drawtextrel(10,10,STKNAME);
cjbs:=SELFDATA('全电力');
end
else if STRCMP(ss,'991004')=0 then{计算机}
begin
drawtextrel(10,10,STKNAME);
cjbs:=SELFDATA('全计算机');
end
else if STRCMP(ss,'991006')=0 then{电子信息}
begin
drawtextrel(10,10,STKNAME);
cjbs:=SELFDATA('全电子信息');
end
else if STRCMP(ss,'991008')=0 then{纺织服装}
begin
drawtextrel(10,10,STKNAME);
cjbs:=SELFDATA('全纺织服装');
end
else if STRCMP(ss,'991009')=0 then{钢铁}
begin
drawtextrel(10,10,STKNAME);
cjbs:=SELFDATA('全钢铁');
end
else if STRCMP(ss,'991010')=0 then{供水供气}
begin
drawtextrel(10,10,STKNAME);
cjbs:=SELFDATA('全供水供气');
end
else if STRCMP(ss,'991011')=0 then{化工化纤}
begin
drawtextrel(10,10,STKNAME);
cjbs:=SELFDATA('全化工化纤');
end
else if STRCMP(ss,'991014')=0 then{电器}
begin
drawtextrel(10,10,STKNAME);
cjbs:=SELFDATA('全电器');
end
else if STRCMP(ss,'991016')=0 then{交通设施}
begin
drawtextrel(10,10,STKNAME);
cjbs:=SELFDATA('全交通设施');
end
else if STRCMP(ss,'991017')=0 then{银行类}
begin
drawtextrel(10,10,STKNAME);
cjbs:=SELFDATA('全银行类');
end
else if STRCMP(ss,'991018')=0 then{旅游酒店}
begin
drawtextrel(10,10,STKNAME);
cjbs:=SELFDATA('全旅游酒店');
end
else if STRCMP(ss,'991020')=0 then{酿酒食品}
begin
drawtextrel(10,10,STKNAME);
cjbs:=SELFDATA('全酿酒食品');
end
else if STRCMP(ss,'991021')=0 then{农林牧渔}
begin
drawtextrel(10,10,STKNAME);
cjbs:=SELFDATA('全农林牧渔');
end
else if STRCMP(ss,'991023')=0 then{商业连锁}
begin
drawtextrel(10,10,STKNAME);
cjbs:=SELFDATA('全商业连锁');
end
else if STRCMP(ss,'991024')=0 then{建材}
begin
drawtextrel(10,10,STKNAME);
cjbs:=SELFDATA('全建材');
end
else if STRCMP(ss,'991026')=0 then{汽车类}
begin
drawtextrel(10,10,STKNAME);
cjbs:=SELFDATA('全汽车类');
end
else if STRCMP(ss,'991027')=0 then{机械}
begin
drawtextrel(10,10,STKNAME);
cjbs:=SELFDATA('全机械');
end
else if STRCMP(ss,'991002')=0 then{工程建筑}
begin
drawtextrel(10,10,STKNAME);
cjbs:=SELFDATA('全工程建筑');
end
else if STRCMP(ss,'991031')=0 then{外贸}
begin
drawtextrel(10,10,STKNAME);
cjbs:=SELFDATA('全外贸');
end
else if STRCMP(ss,'991032')=0 then{教育传媒}
begin
drawtextrel(10,10,STKNAME);
cjbs:=SELFDATA('全教育传媒');
end
else if STRCMP(ss,'991033')=0 then{仪电仪表}
begin
drawtextrel(10,10,STKNAME);
cjbs:=SELFDATA('全仪电仪表');
end
else if STRCMP(ss,'991034')=0 then{有色金属}
begin
drawtextrel(10,10,STKNAME);
cjbs:=SELFDATA('全有色金属');
end
else if STRCMP(ss,'991035')=0 then{造纸印刷}
begin
drawtextrel(10,10,STKNAME);
cjbs:=SELFDATA('全造纸印刷');
end
else if STRCMP(ss,'991037')=0 then{电力设备}
begin
drawtextrel(10,10,STKNAME);
cjbs:=SELFDATA('全电力设备');
end
else if STRCMP(ss,'991135')=0 then{通信}
begin
drawtextrel(10,10,STKNAME);
cjbs:=SELFDATA('全通信');
end
else if STRCMP(ss,'991136')=0 then{运输物流}
begin
drawtextrel(10,10,STKNAME);
cjbs:=SELFDATA('全运输物流');
end
每笔均额:amount/cjbs,COLORgray,linethick0;
每笔均额,stick,colorred,linethick0;
ma4:ma(每笔均额,4),colorred,linethick2;
ma10:ma(每笔均额,10),color0098ff, linethick1;
ma35:ma(每笔均额,35),colorwhite, linethick1;
[ 本帖最后由 jokeeer 于 2009-6-14 09:28 编辑 ] |
|
|