5,LINETHICK1,Color0066EE;
AG:=STKCOUNT('A股板块')*1000000;
AA:=IF(C>Ema(C,7),AMOUNT,0);
BB:=IF(C<Ema(C,7),AMOUNT,0);
JJ:=AMOUNT/vol/100;
CC:=SUM((AA-BB),10)/IF(CAPITAL<1,JJ*AG,CAPITAL*JJ);
机构线:=EMA(CC,28);
PARTLINE(机构线>80,机构线),Color00FF00,LINETHICK1;
PARTLINE(机构线>40 and 机构线<80,机构线),Color0000FF,LINETHICK1;
PARTLINE(机构线>5 and 机构线<40,机构线),ColorFF33FF,LINETHICK1;
PARTLINE(机构线<5,机构线),ColorFFDD00,LINETHICK1;
bk:='板块指数';stksum:=STKCOUNT(bk);dcount:=DATACOUNT;yygs4:='涨幅引用.A0';
variable:dmstr[stksum]='',var_px[stksum]=0,var_indi[stksum]=0;
for k=1 to stksum do
begin
dm:=stkfromblk(bk,k);
dmstr[k]:=dm;
temp1:=stkindi(dm,yygs4,0,-1);
var_px[k]:=temp1[dcount];
var_indi[k]:=temp1[dcount];
end;
Num1:=sortpos(var_indi,1,1,stksum);
dm_max1:=var_indi[1]; dm_max2:=var_indi[2];dm_max3:=var_indi[3]; dm_max4:=var_indi[4];dm_max5:=var_indi[5];
max1:=var_px[dm_max1]; max2:=var_px[dm_max2]; max3:=var_px[dm_max3];max4:=var_px[dm_max4]; max5:=var_px[dm_max5];
DRAWTEXTEX(c,1,40,0,'【涨幅前五名】'),Color00FFFF;
DRAWTEXTEX(c,1,20,150,'1:'+STKNAMEEX(dmstr[dm_max1])+':'+NUMTOSTR(max1,2)),Color0000FF;
DRAWTEXTEX(c,1,20,300,'2:'+STKNAMEEX(dmstr[dm_max2])+':'+NUMTOSTR(max2,2)),Color0000FF;
DRAWTEXTEX(c,1,20,450,'3:'+STKNAMEEX(dmstr[dm_max3])+':'+NUMTOSTR(max3,2)),Color0000FF;
DRAWTEXTEX(c,1,20,600,'4:'+STKNAMEEX(dmstr[dm_max4])+':'+NUMTOSTR(max4,2)),Color0000FF;
DRAWTEXTEX(c,1,20,750,'5:'+STKNAMEEX(dmstr[dm_max5])+':'+NUMTOSTR(max5,2)),Color0000FF;
yygs5:='涨幅引用.A0';
variable:dmstr[stksum]='',var_px[stksum]=0,var_indi[stksum]=0;
for k=1 to stksum do
begin
dm:=stkfromblk(bk,k);
dmstr[k]:=dm;
temp1:=stkindi(dm,yygs5,0,-1);
var_px[k]:=temp1[dcount];
var_indi[k]:=temp1[dcount];
end;
Num1:=sortpos(var_indi,0,1,stksum);
dm_max1:=var_indi[1];dm_max2:=var_indi[2];dm_max3:=var_indi[3]; dm_max4:=var_indi[4];dm_max5:=var_indi[5];
max1:=var_px[dm_max1]; max2:=var_px[dm_max2]; max3:=var_px[dm_max3];max4:=var_px[dm_max4]; max5:=var_px[dm_max5];
DRAWTEXTEX(c,1,255,0,'【跌幅前五名】'),ColorFFFF00;
DRAWTEXTEX(c,1,240,150,'1:'+STKNAMEEX(dmstr[dm_max1])+':'+NUMTOSTR(max1,2)),colorgreen;
DRAWTEXTEX(c,1,240,300,'2:'+STKNAMEEX(dmstr[dm_max2])+':'+NUMTOSTR(max2,2)),colorgreen;
DRAWTEXTEX(c,1,240,450,'3:'+STKNAMEEX(dmstr[dm_max3])+':'+NUMTOSTR(max3,2)),colorgreen;
DRAWTEXTEX(c,1,240,600,'4:'+STKNAMEEX(dmstr[dm_max4])+':'+NUMTOSTR(max4,2)),colorgreen;
DRAWTEXTEX(c,1,240,750,'5:'+STKNAMEEX(dmstr[dm_max5])+':'+NUMTOSTR(max5,2)),colorgreen;
yygs:='涨幅引用.ZJA';stksum:=STKCOUNT(bk);dcount:=datacount;
variable:dmstr[stksum]='',var_px[stksum]=0,var_indi[stksum]=0;
for k=1 to stksum do
begin
dm:=stkfromblk(bk,k);
dmstr[k]:=dm;
temp1:=stkindi(dm,yygs,0,-1);
var_px[k]:=temp1[dcount];
var_indi[k]:=temp1[dcount];
end;
Num1:=sortpos(var_indi,1,1,stksum);
dm_max1:=var_indi[1];dm_max2:=var_indi[2];dm_max3:=var_indi[3]; dm_max4:=var_indi[4];dm_max5:=var_indi[5];
max1:=var_px[dm_max1]; max2:=var_px[dm_max2]; max3:=var_px[dm_max3]; max4:=var_px[dm_max4]; max5:=var_px[dm_max5];
DRAWTEXTEX(c,1,540,0,'【入场前五名】'),,Color00FFFF;
DRAWTEXTEX(c,1,520,150,'1:'+STKNAMEEX(dmstr[dm_max1])+':'+NUMTOSTR(max1,2)),color0000FF;
DRAWTEXTEX(c,1,520,300,'2:'+STKNAMEEX(dmstr[dm_max2])+':'+NUMTOSTR(max2,2)),color0000FF;
DRAWTEXTEX(c,1,520,450,'3:'+STKNAMEEX(dmstr[dm_max3])+':'+NUMTOSTR(max3,2)),color0000FF;
DRAWTEXTEX(c,1,520,600,'4:'+STKNAMEEX(dmstr[dm_max4])+':'+NUMTOSTR(max4,2)),color0000FF;
DRAWTEXTEX(c,1,520,750,'5:'+STKNAMEEX(dmstr[dm_max5])+':'+NUMTOSTR(max5,2)),color0000FF;
yygs2:='涨幅引用.ZJB';
variable:dmstr[stksum]='',var_px[stksum]=0,var_indi[stksum]=0;
for k=1 to stksum do
begin
dm:=stkfromblk(bk,k);
dmstr[k]:=dm;
temp1:=stkindi(dm,yygs2,0,-1);
var_px[k]:=temp1[dcount];
var_indi[k]:=temp1[dcount];
end;
Num1:=sortpos(var_indi,1,1,stksum);
dm_max1:=var_indi[1];dm_max2:=var_indi[2];dm_max3:=var_indi[3]; dm_max4:=var_indi[4];dm_max5:=var_indi[5];
max1:=var_px[dm_max1]; max2:=var_px[dm_max2]; max3:=var_px[dm_max3]; max4:=var_px[dm_max4]; max5:=var_px[dm_max5];
DRAWTEXTEX(c,1,795,0,'【退场前五名】'),colorFFFF00;
DRAWTEXTEX(c,1,770,150,'1:'+STKNAMEEX(dmstr[dm_max1])+':'+NUMTOSTR(max1,2)),colorgreen;
DRAWTEXTEX(c,1,770,300,'2:'+STKNAMEEX(dmstr[dm_max2])+':'+NUMTOSTR(max2,2)),colorgreen;
DRAWTEXTEX(c,1,770,450,'3:'+STKNAMEEX(dmstr[dm_max3])+':'+NUMTOSTR(max3,2)),colorgreen;
DRAWTEXTEX(c,1,770,600,'4:'+STKNAMEEX(dmstr[dm_max4])+':'+NUMTOSTR(max4,2)),colorgreen;
DRAWTEXTEX(c,1,770,750,'5:'+STKNAMEEX(dmstr[dm_max5])+':'+NUMTOSTR(max5,2)),colorgreen;
yygs6:='涨幅引用.AA';
variable:dmstr[stksum]='',var_px[stksum]=0,var_indi[stksum]=0;
for k=1 to stksum do
begin
dm:=stkfromblk(bk,k);
dmstr[k]:=dm;
temp1:=stkindi(dm,yygs6,0,-1);
var_px[k]:=temp1[dcount];
var_indi[k]:=temp1[dcount];
end;
Num1:=sortpos(var_indi,1,1,stksum);
dm_max1:=var_indi[1];dm_max2:=var_indi[2]; dm_max3:=var_indi[3]; dm_max4:=var_indi[4];dm_max5:=var_indi[5];
max1:=var_px[dm_max1]; max2:=var_px[dm_max2]; max3:=var_px[dm_max3];max4:=var_px[dm_max4]; max5:=var_px[dm_max5];
EXPLAIN(islastbar,'【周涨幅--前五名】'),Color00EEFF;
EXPLAINEX(islastbar,'1:'+STKNAMEEX(dmstr[dm_max1])+':',max1,2,0),Color0000FF;
EXPLAINEX(islastbar,'2:'+STKNAMEEX(dmstr[dm_max2])+':',max2,2,0),Color0000FF;
EXPLAINEX(islastbar,'3:'+STKNAMEEX(dmstr[dm_max3])+':',max3,2,0),Color0000FF;
EXPLAINEX(islastbar,'4:'+STKNAMEEX(dmstr[dm_max4])+':',max4,2,0),Color0000FF;
EXPLAINEX(islastbar,'5:'+STKNAMEEX(dmstr[dm_max5])+':',max5,2,1),Color0000FF;
yygs7:='涨幅引用.AA';
variable:dmstr[stksum]='',var_px[stksum]=0,var_indi[stksum]=0;
for k=1 to stksum do
begin
dm:=stkfromblk(bk,k);
dmstr[k]:=dm;
temp1:=stkindi(dm,yygs7,0,-1);
var_px[k]:=temp1[dcount];
var_indi[k]:=temp1[dcount];
end;
Num1:=sortpos(var_indi,0,1,stksum);
dm_max1:=var_indi[1];dm_max2:=var_indi[2];dm_max3:=var_indi[3]; dm_max4:=var_indi[4];dm_max5:=var_indi[5];
max1:=var_px[dm_max1]; max2:=var_px[dm_max2]; max3:=var_px[dm_max3];max4:=var_px[dm_max4]; max5:=var_px[dm_max5];
EXPLAIN(islastbar,'【周跌幅--前五名】'),ColorFFFF00;
EXPLAINEX(islastbar,'1:'+STKNAMEEX(dmstr[dm_max1])+':',max1,2,0),colorgreen;
EXPLAINEX(islastbar,'2:'+STKNAMEEX(dmstr[dm_max2])+':',max2,2,0),colorgreen;
EXPLAINEX(islastbar,'3:'+STKNAMEEX(dmstr[dm_max3])+':',max3,2,0),colorgreen;
EXPLAINEX(islastbar,'4:'+STKNAMEEX(dmstr[dm_max4])+':',max4,2,0),colorgreen;
EXPLAINEX(islastbar,'5:'+STKNAMEEX(dmstr[dm_max5])+':',max5,2,1),colorgreen;
yygs1:='涨幅引用.时段A';
variable:dmstr[stksum]='',var_px[stksum]=0,var_indi[stksum]=0;
for k=1 to stksum do
begin
dm:=stkfromblk(bk,k);
dmstr[k]:=dm;
temp1:=stkindi(dm,yygs1,0,-1);
var_px[k]:=temp1[dcount];
var_indi[k]:=temp1[dcount];
end;
Num1:=sortpos(var_indi,1,1,stksum);
dm_max1:=var_indi[1];dm_max2:=var_indi[2];dm_max3:=var_indi[3]; dm_max4:=var_indi[4];dm_max5:=var_indi[5];
max1:=var_px[dm_max1]; max2:=var_px[dm_max2]; max3:=var_px[dm_max3]; max4:=var_px[dm_max4]; max5:=var_px[dm_max5];
explain(islastbar,'【周资金流入前五名】'),color00FFFF;
EXPLAINex(islastbar,'1:'+STKNAMEEX(dmstr[dm_max1])+':',max1,2,0),color0000FF;
EXPLAINex(islastbar,'2:'+STKNAMEEX(dmstr[dm_max2])+':',max2,2,0),color0000FF;
EXPLAINex(islastbar,'3:'+STKNAMEEX(dmstr[dm_max3])+':',max3,2,0),color0000FF;
EXPLAINex(islastbar,'4:'+STKNAMEEX(dmstr[dm_max4])+':',max4,2,0),color0000FF;
EXPLAINex(islastbar,'5:'+STKNAMEEX(dmstr[dm_max5])+':',max5,2,1),color0000FF;
yygs3:='涨幅引用.时段B';
variable:dmstr[stksum]='',var_px[stksum]=0,var_indi[stksum]=0;
for k=1 to stksum do
begin
dm:=stkfromblk(bk,k);
dmstr[k]:=dm;
temp1:=stkindi(dm,yygs3,0,-1);
var_px[k]:=temp1[dcount];
var_indi[k]:=temp1[dcount];
end;
Num1:=sortpos(var_indi,1,1,stksum);
dm_max1:=var_indi[1]; dm_max2:=var_indi[2];dm_max3:=var_indi[3]; dm_max4:=var_indi[4]; dm_max5:=var_indi[5];
max1:=var_px[dm_max1]; max2:=var_px[dm_max2]; max3:=var_px[dm_max3]; max4:=var_px[dm_max4]; max5:=var_px[dm_max5];
explain(islastbar,'【周资金流出前五名】'),color00FF00;
EXPLAINEX(islastbar,'1:'+STKNAMEEX(dmstr[dm_max1])+':',max1,2,0),,ColorFFFF00;
EXPLAINEX(islastbar,'2:'+STKNAMEEX(dmstr[dm_max2])+':',max2,2,0),,ColorFFFF00;
EXPLAINEX(islastbar,'3:'+STKNAMEEX(dmstr[dm_max3])+':',max3,2,0),,ColorFFFF00;
EXPLAINEX(islastbar,'4:'+STKNAMEEX(dmstr[dm_max4])+':',max4,2,0),,ColorFFFF00;
EXPLAINEX(islastbar,'5:'+STKNAMEEX(dmstr[dm_max5])+':',max5,2,1),,ColorFFFF00;
DRAWTEXTEX(c,1,455,0,'一'),ColorFFFF00;DRAWTEXTEX(c,1,455,150,'发'),ColorFFFF00;
DRAWTEXTEX(c,1,455,300,'千'),ColorFFFF00;DRAWTEXTEX(c,1,455,450,'钧'),ColorFFFF00;
DRAWTEXTEX(c,1,455,600,'制'),ColorFFFF00;DRAWTEXTEX(c,1,455,750,'作'),ColorFFFF00;
DRAWTEXTEX(c,1,220,960,'========2008==【理想论坛荣誉出品】==0615========'),Color00FF00;
//
{点击看本软件截图： 58股票 公式网 http://www. 58gu. com 整理} |
