[Protra-users 114] 週足日経 30 銘柄勝率 100%

Back to archive index

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
----------------------------------


 


 




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