[Protra-users 33] エラーになります。

Back to archive index

pirom pas pirom****@yahoo*****
2007年 11月 11日 (日) 15:29:23 JST


こんにちわ。pirompasです。
エラーが、出てきます。
-------
RCI25<0。10日前終値<20日前終値。終値>20日前終値
。10日前終値>25日前終値。
-------
カギ型のブレイクアウトです。
10日前終値>25日前終値を、
10日前終値>45日前終値にしたいのですが、
銘柄数により、エラーが、でます。
ファイルの名前を、変えても、
エラーとなります。
日経225では、5714DOWAで、エラーとなります。
途中で、エラーとなるのは、
どういう原因でしょうか。
お教え願えませんでしょうか。
-------
#include <TIlib>

if ! $BB
	$BB = BB_new(20)
else
	BB_next($BB)
end
// RCIオブジェクトが無ければ生成を、あれば更新を行います
if ! $RCI
	$RCI = RCI_new(25)
else
	RCI_next($RCI)
end

// 買い条件を定義します
def Cond1
	if ! Close
		return
	end
	ma = BB_value($BB)
	if ! ma
		return
	end
	if ! Close
		return
	end
	rci_value = RCI_value($RCI)
	if ! rci_value
		return
	end
	r = 100*(Close - ma)/ma
	return Close >= 50 && Volume >= 100 && rci_value < 0 && 
{-20} Close < Close && {-20} Close > {-10} Close && {-10}
Close > {-25} Close
end

// 売り条件を定義します
def Cond2
	if ! Close
		return
	end
	ma = BB_value($BB)
	sigma = BB_deviation($BB)
	if ma && sigma
		if Close > 1.3*$buy
			return 1
		end
	end
	return Close < 0.5*$buy 
end

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 ! $hold && Cond1
	$hold = Num(Close)
	$buy = Close
	Buy(Close, $hold)
elsif $hold && Cond2
	Sell(Close, $hold)
	$hold = 0
end




Protra-users メーリングリストの案内
Back to archive index