2016-06-05から1日間の記事一覧
やけくそで逆張り暫定5号も投入 #暫定5号#200日移動平均乖離率が小さい順の下から0.1%s$h200<-hei200(s)ans<-tapply(s$h200,s$j,quantile,0.001)ans0<-hei(ans,10) q <- subset(s ,#M5200s5m(sp0m)+5*s200m(sp0m)<(-10) &#h200<ans0[j+1]&h200< (-25)&dai>100000000& TRUE ) #ソートして</ans0[j+1]&h200<>…
更に調子に乗って、逆張り暫定4号も投入 ※注意は手仕舞いが4日後であること #暫定4号#15日移動平均乖離率が小さい順の下から0.1%s$h15<-hei15(s)ans<-tapply(s$h15,s$j,quantile,0.001)ans0<-hei(ans,10) q <- subset(s ,#M515s5m(sp0m)+5*s15m(sp0m)<(10) &…
調子に乗って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 ,#M5125s5m(sp0m)+5*s125m(sp0m)<10 &#h125<ans0[j+1]&h125< (-25)&dai>100000000& TRUE ) #ソートして</ans0[j+1]&h125<>…
逆張り暫定1号のルール(R言語ソース)を適当に弄ってみたら、結構いい結果が返ってきたので 早速来週より投入 #暫定2号#75日移動平均乖離率が小さい順の下から0.1%s$h75<-hei75(s)ans<-tapply(s$h75,s$j,quantile,0.001)ans0<-hei(ans,10) q <- subset(s ,#…
このところ好調の逆張り暫定1号ですが、たまにはバックテストでの確認を 新システムで稼働させているので、R言語環境でこんなグラフになります ここ1ヵ月くらい、微益を積み上げており、好調のようです 縦軸は厳密ではないですが、あるポジションサイズをと…