曜日に拘ったシステム
デスクトプーの断捨離もいよいよ終盤
以前作ったシステムの再発見を目論むが・・・
これは2013年に2001年から2011年迄の傾向を見て作ったシステム
色んなパラメーター使ってひじょーに時間かけた覚えが
捨てる前に記念写真
この寄り寄りも稼働させて暫くは良い感じだったのですが結構なDDきましてん
最後のDDは官製相場にやられてる気がしないでもないが
曜日フィルターってあまり意味ない様な気が
とにかくずっと使えるシステムはシンプルでなきゃと思った次第
日経先物PIVOTトレードシステム
去年までFXは人の作ったEAを片手間で動かしているだけの日経先物専業トレーダーでした
ここ2年負け、この官製相場のせいと思っておりました
それで今年からFXで再起をはかろうとしているところなのです
一生使えそうなEAが1つ出来一段落したところで、今日は朝からデスクトップの整理
でも中身じっくり見てしまって進まないんですよねぇ
そこで秋頃のDDで使うの止めてしまったシステムを見て、これ使っていたらどうだったのだろう?と日足データを入れて動かしてみました
何と官製相場ものともせず仕事してくれてたんです
ゴメンね~信じてやれなくってて感じ
グラフ
Pだけ外してまた使いだそと思っているところです
反省させられました
何があかんかったのか?他人が作ったシステムだったんですね
最後の方自分の使ってませんでしたから
思い出しましたがこのシステムは2001年から2013年迄の傾向を見て作ったシステムで1990年から2000年は過去ですがフォアードなんです
やっぱこんなのがずっと使えるんですよね
MAXDD2千円ぐらいみとかないといけないのが難
あと日経先物でイヤなこと思い出した。逆指値同値に刺さらんことが多いのね。逆指値成行にすると5円とか10円ロスするし。それが止めた原因のひとつ
まっ他のもやってみよっと
次回はドル円4時間足
この日足用に作ったEAを期待せず4時間足で動かしてみたのがこれ
あまり儲からないのは当然なのだがけっこう綺麗な損益累計曲線を
決済のタイミングを替えるだけでも良くなるはず
次の課題はドル円4時間足に決定
その前に確定申告。これやってたからほったらかしなのです
ドル円システムのEA化
ほんと良いのでEA化しようと思った
昔々fx-onがEAプログラミングセミナーをされていてそれを受けさせて頂きました。それから225に集中して触ってなかったのでほとんど忘れたような
でも簡単なロジックなので作れるだろうと、そのセミナー資料引っ張り出して作ってはみたもののどうしてもエントリーしてくれない
それでセミナーに無料質問チケットというのが10枚付いていて全く使ってなかったので使えるか聴いてみたところ、もうセミナーもやってないし・・・
でEAつくーるというソフトを紹介され、月1980円で使えますの、それを使ってみました
ロジック全て実装は出来ませんでしたが改造すれば良いやと
出て来たプログラムが難解・・・僕作ったの150行くらいだったのにこれは500行以上(汗
1日掛けてやっとこういう構造かと分かった程度。まだ改造するためには何日かかかりそうなのです
使えるサイトなんかここにメモしとこうと
ドル円完成
取り敢えずグラフ
ポンドルと同様にやってみたら良いの出来ました
ポンドルはっぱ癖が悪い。ドル円は素直
良いわ~DD小さいから1万で千通貨ってところか
複利でやったら年利100%目指せるかも?
捕らぬ狸の皮算用の可能性大だけどね
引き続きユーロドルやってみよう。きっと素直
追記
日単位でDDを計算してみた
2001ー2016のMAXDD6600円ほど
複利でやるんじゃ余裕見て1万3千円で千通貨てとこか
ついでにDD求めるプロシージャ置いとこう
Sub maxdd() 'MDDの計算。上から下へ横へ
Dim P As Long '縱
Dim Q As Long '横
Dim Pd As Single 'DD
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
For Q = 1 To 5
For P = 0 To Range("a1048576").End(xlUp).Row - 28 '都度変える
With Range("a28") '初日 都度変える
If .Offset(P, Q).Value <> "" Then
Pd = Pd + .Offset(P, Q).Value
If Pd >= 0 Then
Pd = 0
ElseIf Pd < Range("a15").Offset(, Q).Value Then 'MDD欄。都度変える
Range("a15").Offset(, Q).Value = Pd '都度変える
End If
End If
End With
Next
Next
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
End Sub