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