調子に乗ってw逆張り暫定3号も投入
#暫定3号
#125日移動平均乖離率が小さい順の下から0.1%
s$h125<-hei125(s)
ans<-tapply(s$h125,s$j,quantile,0.001)
ans0<-hei(ans,10)
q <- subset(s ,
#M5125
s5m(sp0m)+5*s125m(sp0m)<10 &
#
h125<ans0[j+1]&
h125< (-25)&
dai>100000000&
TRUE )
#ソートしていないので猿ダーツ
index<-tapply(-q$dai,q$j,order)
ans<-NULL
for (i in 1:length(index)) {
ans<-c(ans,indexi)
}
q$ord<-ans
p<-subset(q,ord<=10)
ほぼ「逆張り暫定1号の25日移動平均を125日移動平均に置き換えた」だけのルール
安易すぎるが、、、