指标编写问答148学习的宝藏

股友量

659.问:
      取得深沪两市成交笔数及成交均量的排名位次,且可以在副图或主图中显示
     答(bajatje):
      用扩展数据中的横向排序功能就能解决问题　只是扩展数据资源有限　
      下面是南客老师写的帖子　你看看
      飞狐新增函数应用：股票代码遍历与横向排序
         一、如何进行板块股票代码遍历：
bk:='A股板块'; //bk赋值为字符串'A股板块'
stksum:=STKCOUNT(bk); //板块所包含证券数量
variable:dmstr[stksum]='';  //定义一个字符串数组用于记录股票代码，元素个数为stksum,初始值为空
for k=1 to stksum do  //以下循环,循环计数器k从1开始每次递增1，直到stksum
begin
    dm:=stkfromblk(bk,k);//板块bk中第k只证券的证券代码,赋值到字符串变量dm
    dmstr[k]:=dm;  //股票代码，记录到字符串数组dmstr的第k个元素中
end;

//以下是一些字符串函数及运算的综合应用
EXPLAIN(1,dmstr[1]);  //在解盘中，输出深圳A股第1只股票的代码
EXPLAIN(1,stknameex(dmstr[2]));//第2只股票的名称
EXPLAIN(1,dmstr[3]+stknameex(dmstr[3]));//第3只股票的代码及名称
EXPLAIN(1,bk+'第4只股票的代码是：'+dmstr[4]);
EXPLAIN(1,stkname+'最后收盘价:'+numtostr(close,2));
EXPLAIN(1,bk+'共有股票:'+numtostr(stksum,0)+'只');
        二、横向排序：
//本公式输出结果，请在解盘中查看，由于大量引用了其它指标，因此运算时间会稍长   
   bk:='A股板块'; //bk赋值为字符串'A股板块'
yygs:='macd.diff';//引用的指标，此处可修改为引用其它的指标

stksum:=STKCOUNT(bk); //板块所包含证券数量
dcount:=datacount; //K线图上，最后一根K线的位置
variable:dmstr[stksum]='',var_px[stksum]=0,var_indi[stksum]=0;  //定义一个字符串数组用于记录股票代码，元素个数为stksum,初始值为空
for k=1 to stksum do  //以下循环,循环计数器k从1开始每次递增1，直到stksum
begin
    dm:=stkfromblk(bk,k);//板块bk中第k只证券的证券代码,赋值到字符串变量dm
    dmstr[k]:=dm;  //股票代码，记录到字符串数组dmstr的第k个元素中
    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];
dm_max6:=var_indi[6];
dm_min1:=var_indi[stksum];  //最小值的对应位置
dm_min2:=var_indi[stksum-1];

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];
max6:=var_px[dm_max6];
min1:=var_px[dm_min1];
min2:=var_px[dm_min2];

explain(islastbar,yygs+'前6名:'),colorred;
EXPLAINex(islastbar,'1:'+dmstr[dm_max1]+STKNAMEEX(dmstr[dm_max1])+':',max1,2,0),colorred;
EXPLAINex(islastbar,'2:'+dmstr[dm_max2]+STKNAMEEX(dmstr[dm_max2])+':',max2,2,0),colorred;
EXPLAINex(islastbar,'3:'+dmstr[dm_max3]+STKNAMEEX(dmstr[dm_max3])+':',max3,2,0),colorred;
EXPLAINex(islastbar,'4:'+dmstr[dm_max4]+STKNAMEEX(dmstr[dm_max4])+':',max4,2,0),colorred;
EXPLAINex(islastbar,'5:'+dmstr[dm_max5]+STKNAMEEX(dmstr[dm_max5])+':',max5,2,0),colorred;
EXPLAINex(islastbar,'6:'+dmstr[dm_max6]+STKNAMEEX(dmstr[dm_max6])+':',max6,2,1),colorred;

explain(islastbar,yygs+'后2名:'),colorgreen;
EXPLAINex(islastbar,'2:'+dmstr[dm_min2]+STKNAMEEX(dmstr[dm_min2])+':',min2,2,0),colorgreen;
EXPLAINex(islastbar,'1:'+dmstr[dm_min1]+STKNAMEEX(dmstr[dm_min1])+':',min1,2,0),colorgreen;
这里给出的代码示例，请下载飞狐0916测试版后使用，否则将会出现语法等错误。
　　从上面代码示例可以看出，板块股票代码的遍历是基础，有了这个横向遍历，就可以实现横向排序、横向统计。
　　上面未给出横向统计的示例，大家可以参照上面示例，根据自己的需要进行设计。
　　几个关键函数：stkfromblk()，sortpos()，可进入公式编辑器，查看函数注释。
　　飞狐的循环、条件控制语句，可以任意访问的数据，将给处理问题带来极大的方便。
　　下面，再给一段代码，是利用循环、判断语句，设计一个鬼变脸的公式代码：
sensitivy:=-c;
direction:=c;
towero:=o;
towerc:=c;
fc:=c;
i:=2;
while i<=datacount do begin
  if towerc>towero and not(between(sensitivy,towero,towerc)) then
    direction:=1;
  else if towerc<towero and not(between(sensitivy,towero,towerc)) then
         direction:=0;
       else direction:=direction[i-1];
  if not(between(sensitivy[i-1],towero[i-1],towerc[i-1])) then begin
    towero:=towerc[i-1];towerc:=fc;
    sensitivy:=towero[i-1];
  end else begin
    towero:=towerc[i-1];towerc:=fc;
    sensitivy:=sensitivy[i-1];
  end;
  i:=i+1;
end;
tj:=between(sensitivy,towero,towerc);
stickline(tj,max(towero,towerc),sensitivy,7,0), colorred;
stickline(tj,min(towero,towerc),sensitivy,7,0), colorgreen;
stickline(sensitivy<towerc and not(tj),towero,towerc,7,0), colorred;
stickline(sensitivy>towerc and not(tj),towero,towerc,7,0), colorgreen;
stickline((towerc=towero or sensitivy=towerc) and direction=1,towero,towerc,7,0),colorred;
stickline((towerc=towero or sensitivy=towerc) and direction=0,towero,towerc,7,0),colorgreen;

李平西

沈建福

学习学习再学习！