MA Cross.pt システムを、 RCI に変更する。売値が、高すぎる。 (Protra-users 29) - Protra

お世話なってます。
pirompasと申します。
ご検討いただきありがとうございます。
試していただきたいです。
新規銘柄リストに
トヨタ自動車7203,1
を、登録していただき、
RCI15とRCI25のクロス買いで、
実行しますと、
成績計算サマリー
７５回
７４勝１敗９８．６７％
プロフィットファクター
２５８．１４
それで、
履歴検索
８月３日買い７１００円
８月６日売り７８１０円
ヤフー・ファイナンスで、
８月６日の始値が、７１００円
終値が、７１８０円
以後最高値は、８月９日７４１０円です。
７１８０円が、７８１０円に、
ひっくり返ってます。
他の銘柄も、売値が、
ひっくり返って、増えた架空の売値に、なってます。
どうでしょう。
------
#include <TIlib>

def Num(price)
	num = 1000000/price
	if num >= 1000
		num = (num/1000)*1000
	elsif num >= 100
		num = (num/100)*100
	elsif num == 0
		num = 1
	end
	return num
end

if !$__INIT__
	$RCI_fast = RCI_new(15)
	$RCI_slow = RCI_new(25)
	$Cross = Crossover_new(0, 0.0)
	$__INIT__ = 1
else
	RCI_next($RCI_fast)
	RCI_next($RCI_slow)
end

rci_fast = RCI_value($RCI_fast)
rci_slow = RCI_value($RCI_slow)
price = {+1}Open
if !price
	price = Close
end

if rci_fast == null || rci_slow == null || !price
else
	cross = Crossover_next($Cross, rci_fast, rci_slow)
	if !$long && cross > 0 && Close > 50 && Volume * Close >
10000
		$long = Num(price)
		Buy(price, $long)
		$loss_cut = Yobine(price * 0.75)
	elsif $long
		if Low > 0 && Low <= $loss_cut
			Sell(Min($loss_cut, Open), $long)
			$long = 0
		elsif cross < 0
			Sell(price, $long)
			$long = 0
		end
	end
end

// Local Variables:
// tab-width: 4
// End:
------

Protra

[Protra-users 29] MA Cross.pt システムを、 RCI に変更する。 売値が、高すぎる。

[Protra-users 29] MA Cross.pt システムを、 RCI に変更する。売値が、高すぎる。