请南客兄帮忙编个公式！

gnxsy

请南客兄帮忙编个公式！

来自：MACD论坛(bbs.shudaoyoufang.com) 作者：gnxsy 浏览：2106 回复：2

数学没学好 求南客兄帮忙编个公式 指定板块 技术指标排序 比如指定A股板块 MACD指标中DIFF进行每日排序（例如：600000的 DIFF在A股板块每天的位置，可以是升序或降序排列）
补充一点：不要从扩展数据的横向排名导出数据，因为扩张数据每次都是收盘后更新，无法动态预警！

bibihead

参考这个去改一改就OK了，可惜最近忙，否则就帮你整一整。

bk:='A股板块'; //bk赋值为字符串'A股板块'
yygs:='bias.bias1';//引用的指标，此处可修改为引用其它的指标
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];
DRAWTEXTEX(ISLASTBAR,1,10,50,'前5名'),Color1080FA;
DRAWTEXTEX(ISLASTBAR,1,10,250,'① '+STKNAMEEX(dmstr[dm_max1])+':'+NUMTOSTR(max1,2)),Color0000FF;
DRAWTEXTEX(ISLASTBAR,1,10,400,'② '+STKNAMEEX(dmstr[dm_max2])+':'+NUMTOSTR(max2,2)),Color0000FF;
DRAWTEXTEX(ISLASTBAR,1,10,550,'③ '+STKNAMEEX(dmstr[dm_max3])+':'+NUMTOSTR(max3,2)),Color0000FF;
DRAWTEXTEX(ISLASTBAR,1,10,700,'④ '+STKNAMEEX(dmstr[dm_max4])+':'+NUMTOSTR(max4,2)),Color0000FF;
DRAWTEXTEX(ISLASTBAR,1,10,850,'⑤ '+STKNAMEEX(dmstr[dm_max5])+':'+NUMTOSTR(max5,2)),Color0000FF;

DRAWTEXTEX(ISLASTBAR,1,200,50,'后2名'),Color1080FA;
DRAWTEXTEX(ISLASTBAR,1,200,250,'① '+STKNAMEEX(dmstr[dm_min1])+':'+NUMTOSTR(min1,2)),colorgreen;
DRAWTEXTEX(ISLASTBAR,1,200,400,'② '+STKNAMEEX(dmstr[dm_min2])+':'+NUMTOSTR(min2,2)),colorgreen;

gnxsy

谢谢！公式不知怎改？望兄弟好人做到底，帮忙改改！