2017-03-13

ドル円4時間足システム

安定のブレイクアウト

東京ロンドンニューヨーク時間でエントリー条件を変えてみて上手く行きました

５分足でやったためエクセルの２の２０乗行縛りで２００３年から２０１１年の傾向を見て作ってみました

いつものように使うのはロウソク足だけ

取り敢えずグラフ

f:id:kohnodechu:20170313152932p:plain

このまま安定して右肩上がりで行ってくれる気がします

でも本当はこっちのグラフ

f:id:kohnodechu:20170313153150p:plain

ロンドン時間の売りシステムが理由は不明ですがここ１年酷いDDに遭い、これから回復するか？でやむを得ず外した結果が上のグラフ

後出しじゃんけんみたいでイヤなのですが

あとは逆張り試してみたりしてまたEAかするんです

2017-03-08

Do Loop構文

デスクトプーに有った過去システム探訪も一段落し、日足ブレイクシステムの成功に気をよくして４時間足突入

ただ日足ブレイクEAこの糞レンジで３連敗中。過去１５年の最大連敗がなのにも拘わらずｗｗｗまあ平均が２なのですが

確定申告は後回しで今週中にやってやるぞと

Do Loop構文で昨日無限Loopにはまり今日って事で完成形置いておこう

いつものようにFor Eachで上から見ていくわけですが、これは日足と違って決済が足をまたぐ仕様にしたので、エントリーしたらその時間を記録しDo Loopを使って何時にいくらで決済されたかを探しに行きますの。そんなプロシージャ

シートtest

f:id:kohnodechu:20170308110524p:plain

シートsai

f:id:kohnodechu:20170308110554p:plain

Sub 最適化準備()
Dim Gyo As Long
Dim Rp As Range 'rpは日付
Dim Rq As Range
Dim P As Long, Q As Long '損益を探りに行くやつ
Dim St As Worksheet, Ss As Worksheet
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Set St = Worksheets("test")
Set Ss = Worksheets("sai")
For Each Rp In Selection
With Rp
If .Offset(, 2).Value <> .Offset(-1, 2).Value Then
Set Rq = Ss.Range("a" & Ss.Range("a1048576").End(xlUp).Row + 1)
Rq.Value = .Value
Rq.Offset(, 1).Value = .Offset(, 2).Value
Rq.Offset(, 2).Value = .Offset(, 13).Value
Rq.Offset(, 3).Value = .Offset(, 14).Value
Rq.Offset(, 4).Value = .Offset(, 15).Value
Rq.Offset(, 5).Value = Sgn(.Offset(, 12).Value - .Offset(, 11).Value)
End If
If .Offset(, 16).Value = 0 And .Offset(, 16).Value <> "" Then
Rq.Offset(, 6).Value = .Offset(, 1).Value / 100
P = 1
Do While .Offset(P, 16).Value = ""
P = P + 1
Loop
Rq.Offset(, 7).Value = .Offset(P, 1).Value / 100
Rq.Offset(, 8).Value = .Offset(P, 16).Value * 100
End If
If .Offset(, 17).Value = 0 And .Offset(, 17).Value <> "" Then
Rq.Offset(, 9).Value = .Offset(, 1).Value / 100
Q = 1
Do While .Offset(Q, 17).Value = ""
Q = Q + 1
Loop
Rq.Offset(, 10).Value = .Offset(Q, 1).Value / 100
Rq.Offset(, 11).Value = .Offset(Q, 17).Value * 100
End If
End With
Next
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
End Sub