打印本文
關閉窗口
在股票軟件中經常用到，用MC時，有時候會用到謝謝。
?
您好，您的需求可能需要一點時間，因為需要確定這兩個函數的執行邏輯，請您繼續關注論壇！
（未被解決的帖子都會一直置頂）
?
cost和winner兩個函數見如下代碼：
//winner
input: pricevalue(numericsimple);
var: var_down(0), var_total(0), max_back(0);
max_back=maxbarsback+currentbar-1;
var_total=0;
var_down=0;
for value1=0 to max_back begin
var_total=var_total+symbol_ticks[value1];
if pricevalue<=symbol_high[value1] and pricevalue>symbol_low[value1] then
var_down=var_down+symbol_ticks[value1]*(pricevalue-symbol_low[value1])/(symbol_high[value1]-symbol_low[value1])
else if pricevalue>symbol_high[value1] or (symbol_high[value1]=symbol_low[value1] and pricevalue=symbol_high[value1]) then
var_down=var_down+symbol_ticks[value1];
end;
winner=var_down/var_total;
?
//cost
input: ratio(numericsimple);
array: arr[](0), arr_p[](0);
var: max_back(0), price_ratio(0), cost_sum(0);
max_back=maxbarsback+currentbar;
array_setmaxindex(arr,max_back-1);
array_setmaxindex(arr_p,max_back-1);
if currentbar=1 then begin
for value1=max_back-1 downto 0 begin
arr[max_back-1-value1]=symbol_ticks[max_back-1-value1]*(symbol_open[max_back-1-value1]+symbol_close[max_back-1-value1])/2;
arr_p[max_back-1-value1]=(symbol_open[max_back-1-value1]+symbol_close[max_back-1-value1])/2;
end;
end
else begin
arr[max_back-1]=symbol_ticks*(symbol_open+symbol_close)/2;
arr_p[max_back-1]=(symbol_open+symbol_close)/2;
end;
?
for value4=0 to max_back-1 begin
for value5=value4+1 to max_back-1 begin
if arr_p[value4]>arr_p[value5] then begin
value6=arr_p[value5];
arr_p[value5]=arr_p[value4];
arr_p[value4]=value6;
value6=arr[value5];
arr[value5]=arr[value4];
arr[value4]=value6;
end;
end;
end;
price_ratio=0;
cost_sum=array_sum(arr,0,max_back-1);
for value1=0 to max_back-1 begin
price_ratio=price_ratio+arr[value1];
if price_ratio/cost_sum>=ratio*0.01 then begin
cost=arr_p[value1];
break;
end;
?
end;
簡要說明：
1.winner(price)函數主要是從圖表上最左邊的bar開始統計到當根bar，統計小于等于價格price的成交量與所有已經統計的bar的成交量之比。
2. cost(1)函數主要是從圖表上最左邊的bar開始統計到當根bar，每根bar取一個價格樣本（這里取的是開盤價與收盤價的中間價作為樣本）和成交量樣本，建立兩個數組分別存儲價格樣本、成交量樣本與價格樣本的乘積；之后對價格樣本進行排序，然后通過對價格樣本for循環來查找使1%的獲利盤的價格。
3.這里使用了symbol系列關鍵字，所以無論最大bar數量設置成多少，都不會提示出現最大bar數量錯誤；另外，使用了動態數組，使數組能動態的調整以便存儲當根bar的樣本。
4.函數中使用了較大的數組以及多次for循環，所以有一定的計算量，建議使用日線周期。
5.由于函數是從圖表上最左邊一根bar開始統計，所以圖表數據的初始日期有一定影響返回的值。
6.這兩個函數使用的算法和其它軟件上不太一樣，但是基本原理類似；沒有哪一個算法是準確的，只是一個對現實市場的建模。
7.下面的鏈接中提供了三個函數，除了上面兩個函數，還有一個是cost_expand，這個函數與cost相比，只是對每根bar取了三個價格樣本，使結果更精確，但是計算量也更大。
8.盡管沒有從股票上市那一天開始統計，但是隨著市場的進行，初始的值對這兩個函數的影響會越來越小，所以這兩個函數不用特別要求圖表的開始日期從股票的上市日開始。
?
cost和winner函數代碼下載鏈接：
http://dl.icetech.com.cn/download/forums/cost%20and%20winner.rar