MultiCharts投资组合交易者策略范例（MultiCharts Portfolio Trader Strategy Examples，PT范例）：排序策略（Rank Strategy）

MultiCharts投资组合交易者策略范例（MultiCharts Portfolio Trader Strategy Examples，PT范例）：排序策略（Rank Strategy）

本策略由 Angelos Diamantis 提出。

策略描述

该策略基于计算一个指标，该指标适用于投资组合中的每个工具。确定所有指标值后，根据指标值从高到低进行排列。对于指标值最佳的投资工具建立多头头寸，而对于指标值最差的投资工具建立空头头寸。

让我们以一个由 35 只股票组成的投资组合为例，使用 5 分钟分辨率进行交易。同样的指标（% Chg），计算公式如下： "收盘价 - 收盘价[1]) / 收盘价"。对于指标值最高的 5 个交易品种，我们建立多头头寸。对于指标值最低的 5 个交易品种，我们建立空头头寸。

交易规模可设置为所有交易品种的固定合约数或投资组合总资本的百分比。

战略发展

投资组合排名信号基础（Portfolio Rank Signal Base）

该信号计算投资组合中所有工具的指定指标值，并使用工具策略指数保存这些值。

用于计算的指标公式和数据序列号由用户设置：

1. inputs:
   
2.         BasedOnData(2),
   
3.         Formula( (close - close[1]) / close ),
   
4.         TraceOutput(false);

复制代码

我们需要为我们的信号添加一些限制，使其只能用于组合交易；用于计算信号的数据序列应可用于开始计算：

1. // *** restrictions
   
2. once if barstatus(BasedOnData) < 0 then raiseruntimeerror("Portfolio Rank Signal Base needs datastream" + numtostr(BasedOnData, 0));
   
3. once if 1 <> getappinfo(aiisportfoliomode) then raiseruntimeerror("Portfolio Rank Signal Base can be applied to MCPortfolio application only.");
   
4. // ****************

复制代码

现在，我们将使用公式计算我们的指标，并保存每个品种的值：

1. BarN = BarNumber of data(BasedOnData);
   
2. 
   
3. if BarN > BarN[1] then begin
   
4.         R = Formula of data(BasedOnData);
   
5.         pmm_set_my_named_num("RankStrategyR", R);
   
6. end;

复制代码

要按投资组合资本的百分比而不是固定手数进行交易，每种工具都应返回每份合同的成本：

1. begin
   
2. var: MoneyCostForInvestPerCtrct(0), otential_entry_price(close);
   
3. MoneyCostForInvestPerCtrct = pmms_calc_money_cost_for_entry_per_cntrct(potential_entry_price, Portfolio_GetMarginPerContract) + pmms_calc_money_cost_for_entry_per_cntrct(potential_entry_price,Portfolio_GetMaxPotentialLossPerContract);
   
4.                
   
5.         if 0 > MoneyCostForInvestPerCtrct then raiseruntimeerror( text("Error! Price = ", potential_entry_price:0:6,
   
6. "PMargin = ", Portfolio_GetMarginPerContract, "PMaxPLoss = ", Portfolio_GetMarginPerContract) );
   
7.                
   
8.         // MoneyCostForInvestPerCtrct in currency of the symbol. Convert it to portfolio currency ...
   
9. pmm_set_my_named_num("MoneyCostForInvestPerCtrct", pmms_to_portfolio_currency(MoneyCostForInvestPerCtrct));
   
10. end;

复制代码

最后，我们将生成多单和空单。经过资金管理信号计算后，只会发送其中的几个（基于策略逻辑）：

1. buy next bar market;
   
2. sellshort next bar market;

复制代码

投资组合排名 MM 信号（Portfolio Rank MM Signal）

该信号用于资金管理。它将所有指标值整理成一个列表，并根据列表管理交易工具的开仓头寸。

下面是管理交易规模和开仓工具数量的用户输入：

1. inputs:
   
2.         ContractsNumber(10),
   
3.         IgnoreContractsNumberUsePcnt(false),
   
4.         PortfolioBalancePercent(1),
   
5.         BuyBestN(10),
   
6.         SellWorseN(10),
   
7.         TraceOutput(false);

复制代码

让我们对该信号进行一些限制：a) 只能在组合交易中使用；b) 组合规模不应超过 10 000 个交易品种；c) 交易品种的数量应与确定入场数量的用户输入一致：

1. once if 1 <> getappinfo(aiisportfoliomode)
   
2. 
   
3. then raiseruntimeerror("Portfolio Rank Money Management Signal can be applied to MCPortfolio application only.");
   
4. 
   
5. once if pmms_strategies_count() > 10000
   
6. 
   
7. then raiseruntimeerror
   
8. 
   
9. ("Portfolio Rank Money Management Signal too much instruments, max value = " + numtostr(100000, 0));
   
10. 
    
11. once if pmms_strategies_count() < BuyBestN + SellWorseN
    
12. 
    
13. then raiseruntimeerror
    
14. 
    
15. ("Portfolio Rank Money Management Signal, please check inputs, BuyBestN + SellWorseN should be less or equal to tradable Instruments number");

复制代码

将投资组合中交易工具的数量保存为变量，并禁止为所有工具开仓：

1. once begin
   
2.         portfolioStrategies = pmms_strategies_count();
   
3.         array_setmaxindex(BaseR, portfolioStrategies);
   
4.         array_setmaxindex(ContractsForEntry, portfolioStrategies);
   
5. end;
   
6. 
   
7. pmms_strategies_deny_entries_all;

复制代码

提取每个品种的指标值：

1. for idx = 0 to portfolioStrategies - 1 begin
   
2.         BaseR[idx] = pmms_get_strategy_named_num(idx, "RankStrategyR");
   
3. end;

复制代码

策略指数和值存储在数组中，因此我们可以在对所有工具进行排序后，为具有相应指数的工具建仓。

然后，该策略会计算每个交易品种的建仓合约数。然后，按升序对指标值数组进行排序：

1. for idx = 0 to portfolioStrategies - 1 begin
   
2.         Value_Idx[1, idx + 1] = BaseR[idx];
   
3.         Value_Idx[2, idx + 1] = idx;
   
4. 
   
5.         if IgnoreContractsNumberUsePcnt then begin
   
6.                 ContractsForEntry[idx] = pmms_calc_contracts_for_entry(PortfolioBalancePercent, idx);
   
7.         end
   
8.         else
   
9.                 ContractsForEntry[idx] = ContractsNumber;
   
10. end;
    
11. 
    
12. Sort2DArray(Value_Idx, 2, portfolioStrategies, 1 {from high to low});

复制代码

对于指标值最高的工具，允许在指定的合约数内进行多头交易：

1. variables: inLong(0), inShort(0);
   
2. array: strategyIndexes[](0);
   
3. 
   
4. inLong = pmms_strategies_in_long_count(strategyIndexes);
   
5. for idx = 1 to BuyBestN - inLong begin
   
6.         strIdx = Value_Idx[2, idx];
   
7. pmms_strategy_set_entry_contracts(strIdx, ContractsForEntry[strIdx]);
   
8.         pmms_strategy_allow_long_entries(strIdx);
   
9. 
   
10.         if TraceOutput then
    
11.                 print("CurrentBar = ", currentbar:0:0, ".
    
12. 
    
13. Allow LONG for symbol ", pmms_strategy_symbol(strIdx), ", Contracts = ", ContractsForEntry[strIdx]);
    
14. end;

复制代码

对于指标值最低的金融工具，允许在规定的合约数量内做空：

1. inShort = pmms_strategies_in_short_count(strategyIndexes);
   
2. for idx = portfolioStrategies downto portfolioStrategies - SellWorseN + inShort + 1 begin
   
3.         strIdx = Value_Idx[2, idx];
   
4. pmms_strategy_set_entry_contracts(strIdx, ContractsForEntry[strIdx]);
   
5.         pmms_strategy_allow_short_entries(strIdx);
   
6. 
   
7.         if TraceOutput then
   
8. print("CurrentBar = ", currentbar:0:0, ". Allow SHORT for symbol ", pmms_strategy_symbol(strIdx), ", Contracts = ", ContractsForEntry[strIdx]);
   
9. end;

复制代码

其他工具不按现行计算方法进行交易。

附录

组合信号脚本默认添加到 MultiCharts 和 MultiCharts64 中。

Angelos Diamantis 的原始策略描述：

关于等级策略，这里有一个简短但通用的描述。

例如，AvgReturn= (R1+R2+R3+...+R500)/500；Sdev= AvgReturn 的标准偏差；其中 Ri = 第 i 只股票的日收益率 i=1 至 500，如果我们的范围是标准普尔的 500 只股票，那么根据该指标和适用的数据，例如 Data2= 日线，Data1=5 分钟线，将所有股票从高到低排序。

1. Vars= BarNo2(0),MyIndicator(0),R(0);
   
2. BarNo2= BarNumber of data2;
   
3. If BarNo2>BarNo2[1] then Begin
   
4. R = (C of data2 - C[1] of data2) / C[1] of data2;
   
5. MyIndicator= (R - AvgReturn ) / Sdev
   
6. end;
   
7. 
   
8. {Retrieve MyIndicator Rank. Rank is from 1 to 500 since our universe is 500 Stocks}
   
9. If Rank<=10 then Buy 200 contracts next bar at O; {Go Long the best 10 stocks}
   
10. Else If Rank>=490 then SellShort 200 contracts next bar at O; {Go Short the worse 10 stocks}

复制代码

以上是一个典型的股票相对业绩交易案例。MyIndicator 应该是通用的，这意味着用户可以根据自己的意愿更改该排名指标。另一个排名指标示例可能是：

1. MyIndicator = ADX of data2;

复制代码

然后只允许交易 ADX 最高的股票。

注意：这些信号主要供参考。如果收到的结果不一致，可以根据自己的需要修改信号。

Portfolio Rank Signal Base（signal）

1. inputs:
   
2.         BasedOnData(2),
   
3.         Formula( (close - close[1]) / close ),
   
4. 
   
5.         TraceOutput(false);
   
6. 
   
7. 
   
8. Vars: BarN(0), R(0);
   
9. 
   
10. 
    
11. // *** restrictions
    
12. once if barstatus(BasedOnData) < 0 then raiseruntimeerror("Portfolio Rank Signal Base needs datastream " + numtostr(BasedOnData, 0));
    
13. once if 1 <> getappinfo(aiisportfoliomode) then raiseruntimeerror("Portfolio Rank Signal Base can be applied to MCPortfolio application only.");
    
14. // ****************
    
15. 
    
16. 
    
17. once pmm_set_global_named_str("RankStrategyApplied", "true");
    
18. 
    
19. 
    
20. BarN = BarNumber of data(BasedOnData);
    
21. 
    
22. if BarN > BarN[1] then begin
    
23.         R = Formula of data(BasedOnData);
    
24.         pmm_set_my_named_num("RankStrategyR", R);
    
25. end;
    
26. 
    
27. if (TraceOutput) then begin
    
28.         print("CurrentBar = ", currentbar:0:0, ". Put MyIndicator value = ", R:0:5, " for symbol ", symbolname, ".");
    
29. end;
    
30. 
    
31. 
    
32. // *** Money management
    
33. begin
    
34.         var: MoneyCostForInvestPerCtrct(0), potential_entry_price(close);
    
35.         MoneyCostForInvestPerCtrct =
    
36.                 pmms_calc_money_cost_for_entry_per_cntrct(potential_entry_price, Portfolio_GetMarginPerContract)
    
37.                 +
    
38.                 pmms_calc_money_cost_for_entry_per_cntrct(potential_entry_price, Portfolio_GetMaxPotentialLossPerContract);
    
39.                
    
40.         if 0 > MoneyCostForInvestPerCtrct then
    
41.                 raiseruntimeerror( text("Error! Price = ", potential_entry_price:0:6, "PMargin = ", Portfolio_GetMarginPerContract, "PMaxPLoss = ",  Portfolio_GetMarginPerContract) );
    
42.                
    
43.         // MoneyCostForInvestPerCtrct in currency of the symbol. Convert it to portfolio currency ...
    
44.         pmm_set_my_named_num("MoneyCostForInvestPerCtrct", pmms_to_portfolio_currency(MoneyCostForInvestPerCtrct));
    
45. end;
    
46. // ********************
    
47. 
    
48. buy next bar market;
    
49. sellshort next bar market;

复制代码

Portfolio Rank MM Signal(信号)

1. inputs:
   
2.         ContractsNumber(200),
   
3. 
   
4.         IgnoreContractsNumberUsePcnt(false),
   
5.         PortfolioBalancePercent(1),
   
6. 
   
7.         StdDevLength(14),
   
8. 
   
9.         BuyBestN(10),
   
10.         SellWorseN(10),
    
11. 
    
12.         TraceOutput(false);
    
13. 
    
14. 
    
15. variables: AvgReturn(0), SDev(0), portfolioStrategies(0), idx(0), strIdx(0), lots(0);
    
16. array: BaseR[](0), ContractsForEntry[](0), Value_Idx[2, 10000](0);
    
17. 
    
18. 
    
19. // *** restrictions
    
20. once if 1 <> getappinfo(aiisportfoliomode) then raiseruntimeerror("Portfolio Rank Money Management Signal can be applied for MCPortfolio application only.");
    
21. //once if "true" <> pmm_get_global_named_str("RankStrategyApplied") then raiseruntimeerror("Portfolio Rank Monem Management Signal can be applied in pair with Portfolio Rank Signal Base only.");
    
22. once if pmms_strategies_count() > 10000 then raiseruntimeerror("Portfolio Rank Money Management Signal too much intruments, max value = " + numtostr(100000, 0));
    
23. once if pmms_strategies_count() < BuyBestN + SellWorseN then raiseruntimeerror("Portfolio Rank Monem Management Signal, please check inputs, BuyBestN + SellWorseN should be less or equal to tradable Instruments number");
    
24. // ****************
    
25. 
    
26. 
    
27. once begin
    
28.         portfolioStrategies = pmms_strategies_count();
    
29.         array_setmaxindex(BaseR, portfolioStrategies);
    
30.         array_setmaxindex(ContractsForEntry, portfolioStrategies);
    
31. end;
    
32. 
    
33. pmms_strategies_deny_entries_all;
    
34. 
    
35. AvgReturn = 0;
    
36. 
    
37. for idx = 0 to portfolioStrategies - 1 begin
    
38.         BaseR[idx] = pmms_get_strategy_named_num(idx, "RankStrategyR");
    
39.         AvgReturn += BaseR[idx];
    
40. end;
    
41. 
    
42. AvgReturn /= portfolioStrategies;
    
43. SDev = StandardDev(AvgReturn, StdDevLength, 1);
    
44. if (SDev = 0) then SDev = 1;
    
45. 
    
46. for idx = 0 to portfolioStrategies - 1 begin
    
47.         Value_Idx[1, idx + 1] = ( BaseR[idx] - AvgReturn ) / SDev;
    
48.         Value_Idx[2, idx + 1] = idx;
    
49. 
    
50.         if IgnoreContractsNumberUsePcnt then begin
    
51.                 ContractsForEntry[idx] = pmms_calc_contracts_for_entry(PortfolioBalancePercent, idx);
    
52.         end
    
53.         else
    
54.                 ContractsForEntry[idx] = ContractsNumber;
    
55. end;
    
56. 
    
57. Sort2DArray(Value_Idx, 2, portfolioStrategies, -1 {from low to high});
    
58. 
    
59. variables: inLong(0), inShort(0);
    
60. array: strategyIndexes[](0);
    
61. 
    
62. inLong = pmms_strategies_in_long_count(strategyIndexes);
    
63. for idx = 1 to BuyBestN - inLong begin
    
64.         strIdx = Value_Idx[2, idx];
    
65.         pmms_strategy_set_entry_contracts(strIdx, ContractsForEntry[strIdx]);
    
66.         pmms_strategy_allow_long_entries(strIdx);
    
67.         if TraceOutput then
    
68.                 print("CurrentBar = ", currentbar:0:0, ". Allow LONG for symbol ", pmms_strategy_symbol(strIdx), ", Contracts = ", ContractsForEntry[strIdx]);
    
69. end;
    
70. 
    
71. inShort = pmms_strategies_in_short_count(strategyIndexes);
    
72. for idx = portfolioStrategies downto portfolioStrategies - SellWorseN + inShort + 1 begin
    
73.         strIdx = Value_Idx[2, idx];
    
74.         pmms_strategy_set_entry_contracts(strIdx, ContractsForEntry[strIdx]);
    
75.         pmms_strategy_allow_short_entries(strIdx);
    
76.         if TraceOutput then
    
77.                 print("CurrentBar = ", currentbar:0:0, ". Allow SHORT for symbol ", pmms_strategy_symbol(strIdx), ", Contracts = ", ContractsForEntry[strIdx]);
    
78. end;

复制代码

为了防止中文表达不到位，下面附上英文原文

本帖隐藏的内容需要回复才可以浏览