読者です 読者をやめる 読者になる 読者になる

PU-METALのブログ

日銀にはウンザリなのでポンドル専になりました

ドル円完成

取り敢えずグラフ

f:id:kohnodechu:20170225142826p:plain

ポンドルと同様にやってみたら良いの出来ました

ポンドルはっぱ癖が悪い。ドル円は素直

良いわ~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