PU-METALのブログ

日銀にはウンザリなので外貨専になりました

下準備完了のような気が

夕方ユーロドル高値で買い難平して帰れなくなり今2時半過ぎ

でポンドルシステムの続きをやってました

 

構想は日足の高値安値ブレイクアウト。それに5日間の平均値幅を組み合わせて・・・

 

そんな下準備のプロシージャが出来たので、とは云うものの時間がかかるかもしれないので実行は日中 日中やったら8分ほどでした

一応ここに残しとこうと

f:id:kohnodechu:20170127024730p:plain

Sub 日足4本値()
Dim Rp As Range 'rpは日付
Dim Hh As Single, Th As Single, Yh As Single, Oh As Single '日足
Dim Hk As Single, Tk As Single, Yk As Single, Ok As Single '日足計算中
Dim Wa As Single, Wb As Single, Wc As Single, Wd As Single, We As Single, Wh As Single '値幅
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
For Each Rp In Selection
With Rp
If .Offset(, 2).Value <> .Offset(-1, 2).Value Then '夜明け
Hh = Hk: Th = Tk: Yh = Yk: Oh = Ok
Hk = .Offset(, 3).Value
Tk = .Offset(, 4).Value
Yk = .Offset(, 5).Value
Wa = Wb: Wb = Wc: Wc = Wd: Wd = We: We = Th - Yh
Wh = (Wa + Wb + Wc + Wd + We) / 5
ElseIf .Offset(, 2).Value <> .Offset(1, 2).Value Then '夜明け前
If .Offset(, 4).Value > Tk Then
Tk = .Offset(, 4).Value
End If
If .Offset(, 5).Value < Yk Then
Yk = .Offset(, 5).Value
End If
Ok = .Offset(, 6).Value
Else
If .Offset(, 4).Value > Tk Then
Tk = .Offset(, 4).Value
End If
If .Offset(, 5).Value < Yk Then
Yk = .Offset(, 5).Value
End If
End If
.Offset(, 7).Value = Hh
.Offset(, 8).Value = Th
.Offset(, 9).Value = Yh
.Offset(, 10).Value = Oh
.Offset(, 11).Value = Wh
End With
Next
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
End Sub

 

 

 

 

 

Weekday関数メモ

ポンドル売り損切って買ったらまた損切りそうな

4時間足も完全に下向いたしな~どうする?

 

でさっきから昨日のForex Testerのデータを加工しだして嵌まったのでメモ

 

曜日を使うかもしれないので出しとこうとやり出したら悩んだ

プロシージャと表はこんな

 

f:id:kohnodechu:20170124153432p:plain

Sub 曜()
Dim Rp As Range 'rpは日付
For Each Rp In Selection
With Rp
' .Offset(, 2).Value = Weekday(Left(.Value, 4) / Mid(.Value, 5, 2) / Right(.Value, 2))
.Offset(, 2).Value = Weekday(Left(.Value, 4) & " /" & Mid(.Value, 5, 2) & " /" & Right(.Value, 2))
End With
Next
End Sub

 

間違ったのはこのコメントブロックにしているところ

これだと2001/1/3の割り算をしてしまうのね

 

久々Weekday関数使ったもので・・・

忘れないようここにメモ

 

ちなみにポンドルの買い損切った

 

 

FOREX TESTER用マクロ

225のシストレをやってきたが、この官製相場にはセオリーがどうにも通用しないと諦めた

今年からFX専業で行きます

通貨ペアはポンドル。以前はスプレッドが広くて手を出しかねていたが最近非常に狭くなり、17時には飲み出すアル中トレーダー用のよく動いてくれるドルストレートと云うわけです

で久々にFOREX TESTERからデータをエクスポートした

これを使い易く加工するマクロをここに記録しておきます。以前にもそんなの作ってるのですがもう何処行ったか分からずここに保存しようと

エクスポートする時のシフトタイムは+8h。これで標準時間は東京時間になります

あとサマータイムを東京時間にするマクロをば少々

 

Sub サマータイム()
Dim Rp As Range 'rpは日付
Dim T As Long '標準時間0夏時間1
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
For Each Rp In Selection
With Rp
If .Value - .Offset(-1).Value > 1 Then '週明け
If .Offset(, 1).Value = 60000 Then '6時なら
T = 1
ElseIf .Offset(, 1).Value = 70000 Then '7時なら
T = 0
End If
End If
If T = 1 And .Offset(, 1).Value < 230000 Then '夏で23時前
.Offset(, 1).Value = .Offset(, 1).Value + 10000
ElseIf T = 1 And .Offset(, 1).Value >= 230000 Then '夏で23時台
.Offset(, 1).Value = .Offset(, 1).Value - 230000

.Value = .Offset(4).Value'そのままだと日付ずれるので

End If
End With
Next
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
End Sub

ここに貼り付けるとTabが消えるのが難

 

無事1発で実行完了。東京時間に

40万行も有るから何十分も掛かるかと思いきや1分ほどでした

f:id:kohnodechu:20170123173145p:plain

 

 

エアコンをつけっ放しにすると電気代が下がる

遅ればせながら最近この話を知りました

ほんまかいなといろいろ調べたのですが、電気代が少し下がった気がするとかはっきり判らなくて、電力量計を付けて実験することにしました

 

結果この事務所では下がることが判りました

その表

f:id:kohnodechu:20160816135941p:plain

白は前の夕からつけっ放し。灰は前夕から朝まで消していた数字です

それとつけっ放しにした効果として体感温度が下がりました。これは壁や床、机などの温度が下がったためと思われ、8/8から設定温度を1度上げました。それでも以前より快適な気がします

次回は冬にまた実験してみます

 

あと一般的にはどうか?

ここみたいなRCのオフィスには何処でも有効だと思いますがS造は?

自宅は時間帯別電灯なので電力量は下がったとしても電気代は上がると思うのでパス

建物の構造や生活スタイルで変わってくるので何とも言えないってところなのです

 

 

 

 

 

 

 

 

 

 

 

 

EA

あれから板だけを見てやるトレードは難しいなと止めてしまった

裁量でやってるのは引け上がるのか下がるのか当てゲームだけ

戦績はまあまあ

 

今日は友人からメールが有り、素人でも儲かる投資手法無いかという事でEAやろなで、適当に動かしているEAの成績をまとめてみました

せっかくなのでここに残しとこうと

 

口座は外為ファイネスト

EAはSW-5Vを2Ver、RoCoCo、MysteriousFX

ProfitBoosterをEURUSD、USDCAD、GBPUSD

比較し難いのでそれぞれ10万通貨で動かしてるとして

f:id:kohnodechu:20160513145820p:plain

f:id:kohnodechu:20160513150157p:plain

以上ノーコメントで

 

 

 

 

 

今日は適当

今日は朝から渋い相場。高値で引けるとは予想だに出来ず、どうせレンジだろうとお昼休み中にじわじわ上がったところを適当売り。損切りとなりました

2敗-125円

f:id:kohnodechu:20160421162347p:plain

夜はシステム買いなんだけどまだ上がるの?