自作システムの話なんでチラシの裏にでも書けばいい記事なんですが・・・ systemRからsystemQへのシグナルexport＆importができるようになった！ いや、これ結構感動もの 左上のcsvエディタの中身がストラテジーなんだけど、 _SG_IMP_ 9 って書いとけば、sys…

現在の自作システムの操作パネル systemQ2というのが、C言語で実装したシステムで現在稼働させているのですが・・ 昨年320万くらいもうかったありがたいシステムです これとは別にsystemR1というのがあって、これはC言語で実装した前処理部分のあとにR言語で…

まあ、簡単にシステムRで運用中の「逆張り暫定〇号」の成績を超簡単にまとめてみます まあストラテジーの名前からして投げやりなんですが、成績纏めも投げやりな感じでw 運用期間：2016/5/2~2016/8/15 トータル投入金額：￥9,925,800 確定損益：￥3,800 期待…

やけくそで逆張り暫定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ヵ月くらい、微益を積み上げており、好調のようです 縦軸は厳密ではないですが、あるポジションサイズをと…