pirom pas
pirom****@yahoo*****
2009年 11月 8日 (日) 11:12:06 JST
週足日経30銘柄勝率100% ----------------------------- 前前々週の安値が、低く、 前々週の高値を、前週の終値が、越え、 今週終値が、前週始値より高い場合 買値越えれば、すぐ、売り。 買値0.85倍でも、売り。 これで、10年間、 日経平均225銘柄から、勝率100%の30銘柄摘出する。 いいところは、 勝率100%が、出やすいところです。 ----------------------------- #include <TIlib> if ! $BB $BB = BB_new(20) else BB_next($BB) end if ! $MA $MA = MA_new(20) else MA_next($MA) end def Cond1 if ! Close return end ma = BB_value($BB) if ! ma return end ma_value = MA_value($MA) if ! ma_value return end r = 100*(Close - ma)/ma return ma_value > Close && {-1} Close > Open && {-1} Close > {-2} High && {-2} Low < {-3} Low && {-2} Low < {-4} Low && {-2} Low < {-5} Low && Close >= 50 && Volume >= 100 end def Cond2 if ! Close return end ma = BB_value($BB) sigma = BB_deviation($BB) if ma && sigma if Close > $buy return 1 end end return Close < 0.85*$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 ----------------------------------