选前10板块的前10的股，再指标降序排序选股

易得君1号

需求：
        1， 选出前10的板块，
        2， 再选各个板块前10的股
        3， 按指标线余粮线降序排序。
        4， 取余粮线数值最低的10个股票作为选股结果。
        
        
解决方法：


写两个公式，分别运行。不可2个公式的代码合在一起


第一个公式，将涨幅最高十个板块中每个板块前十涨幅的个股加入'我的池子'作为备选池

if (IsLastBar) then
begin
    a : HorCalc('板块指数', 105, 1, 2);
    if (a <= 10) then
    begin
        num := StkCount(StkName);
        num := min(10, num);
        for i = 1 to num do
        begin
            stkcode := StkFromBlk(StkName, i);
            AddToBlock(stkcode, '我的池子‘);
        end
    end
end

第一个公式执行参考：
如何将涨幅前3的板块的成分股全部加入一个池子，作为选...
http://www.ydmf.net/bbs/forum.php?mod=viewthread&tid=85&fromuid=3
(出处: 易得程序化交易技术论坛)


第二公式，将‘我的池子’板块中的股票，选余粮线数值最低的10个股票作为选股结果。

function strategy1
begin   
    V1:=LLV(LOW,10);
    V2:=HHV(H,25);
    余粮线:=EMA((C-V1)/(V2-V1)*4,4)*10;//值：0~35之间？
    排名 := Ranking(余粮线, 0);
    选股结果oolBetween(排名, 1, 10);
end

ILOVEYIDE

你好, 仔细看了好几遍程序, 在示例的第一个公式中, 好像并没有求出每个板块前十涨幅的个股, 加入股池的只是每个板块自然顺序的前10个股, 并不是按涨幅排序的前10名股票

易得君1号

ILOVEYIDE 发表于 2023-2-23 17:35
你好, 仔细看了好几遍程序, 在示例的第一个公式中, 好像并没有求出每个板块前十涨幅的个股, 加入股池的只是 ...

1. function strategy1
   
2. begin
   
3.     if (IsLastBar) then
   
4.     begin
   
5.         a := HorCalc('板块指数', 105, 1, 2);
   
6.         if (a <= 10) then
   
7.         begin
   
8.             num := StkCount(StkName);
   
9.             for i = 1 to num do
   
10.             begin
    
11.                 stkcode := StkFromBlk(StkName, i);
    
12.                 b := HorCalcEx(StkName, 105, 1, 2, stkcode, 0);
    
13.                 if (b <= 10) then
    
14.                     AddToBlock(stkcode, '我的池子‘);
    
15.             end
    
16.         end
    
17.     end
    
18. end
    
19. 
    
20. strategy1;

复制代码

使用3.1.9版本， 新增了一个HorCalcEx函数。

ILOVEYIDE

明白了, 谢谢! 易得的函数功能越来越强大了, 赞!!!

bcsunwww

不断改进，强大

shujukr

易得君1号 发表于 2023-3-1 00:01
使用3.1.9版本， 新增了一个HorCalcEx函数。

我用你这个代码怎么选不出股票来呀？我的池子这个板块里也没有数据。

笨企鹅

这个不错，方便筛选了

cheetor

为何提示我没有此权限。。