【旗艦版】交易標(biāo)的的強(qiáng)弱排序策略，請(qǐng)教為什么不能成功運(yùn)行，如圖提示呢？
作者：開拓者 TB 來源：cxh99.com 發(fā)布時(shí)間：2020年11月16日
-
咨詢內(nèi)容：
http://www.tb18.net/software/v5037.html?tab=array
案例四】交易標(biāo)的的強(qiáng)弱排序策略
具體規(guī)則：選擇三大商品交易所交易比較活躍的主力商品合約作為候選交易標(biāo)的，以20根BAR的漲跌幅作為強(qiáng)弱比較的標(biāo)準(zhǔn)，再根據(jù)強(qiáng)弱排名制定交易策略。 代碼如下（交易部分省略…）：
Params
Numeric Length(20);? ? // 多少根BAR的漲跌幅
Vars
NumericArray ChangeRate;? ? // 保存漲跌幅的數(shù)組
NumericArray Rank;? ???// 保存數(shù)據(jù)源的數(shù)組
Numeric i;
Numeric j;
Numeric temp;
Begin
// 計(jì)算圖表所有品種Length根BAR以來的漲跌幅
For i = 0 to DataSourceSize - 1
{
// 漲跌幅數(shù)據(jù)保存到一個(gè)數(shù)組
ChangeRate = Round((Data.Close / Data.Close[Length] - 1)*100,2);
// 數(shù)據(jù)源編號(hào)保存到另一個(gè)數(shù)組
Rank = i;
}
// 冒泡排序（降序）
For i = 1 to DataSourceSize - 1
{
For j = 0 to DataSourceSize - 1 - i
{
If(ChangeRate[j] < ChangeRate[j+1])
{
// 漲跌幅數(shù)據(jù)交換順序
temp = ChangeRate[j];
ChangeRate[j] = ChangeRate[j+1];
ChangeRate[j+1] = temp;
// 對(duì)應(yīng)的數(shù)據(jù)源編號(hào)交換順序
temp = Rank[j];
Rank[j] = Rank[j+1];
Rank[j+1] = temp;
}
}
}
// 顯示排序后的排名
For i = 0 to DataSourceSize - 1
{
temp = Rank;
Commentary("【Rank"+Text(i+1)+"】： Data"+Text(temp)+" ， "+Data[temp].Symbol+" ， ChangeRate = "+Text(ChangeRate
}
End
在圖表中插入23個(gè)主力交易品種后運(yùn)行結(jié)果如下：
打印本文
關(guān)閉窗口