PU-METALのブログ

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

1時間足から日中夜間の4本値を作る

最近岡三RSS使い出してるんだけど、あの日足は始値終値は判っても高値安値が判らない。これからも使うこと有るだろうから

こんなの

f:id:kohnodechu:20180105150233p:plain

 

プロシージャ

Sub 昼夜() '昼夜別4本値
Dim Rp As Range 'rpは日付
Dim Rq As Range
Dim Hi As Long, Hj As Long, Tk As Long, Ys As Long
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
For Each Rp In Selection
With Rp
If (.Offset(, 1).Value = 900 Or .Offset(, 1).Value = 845) And .Offset(-1, 1).Value < 800 Then
Set Rq = Range("h" & Range("h1048576").End(xlUp).Row + 1)
Rq.Value = Hi
Rq.Offset(, 1).Value = "夜間"
Rq.Offset(, 2).Value = Hj
Rq.Offset(, 3).Value = Tk
Rq.Offset(, 4).Value = Ys
Rq.Offset(, 5).Value = .Offset(-1, 5).Value
Hj = .Offset(, 2).Value
Tk = .Offset(, 3).Value
Ys = .Offset(, 4).Value
ElseIf .Value <> .Offset(-1).Value Then
Set Rq = Range("h" & Range("h1048576").End(xlUp).Row + 1)
Hi = .Offset(-1).Value
Rq.Value = Hi
Rq.Offset(, 1).Value = "日中"
Rq.Offset(, 2).Value = Hj
Rq.Offset(, 3).Value = Tk
Rq.Offset(, 4).Value = Ys
Rq.Offset(, 5).Value = .Offset(-1, 5).Value
Hj = .Offset(, 2).Value
Tk = .Offset(, 3).Value
Ys = .Offset(, 4).Value
ElseIf .Offset(, 3).Value > Tk Then
Tk = .Offset(, 3).Value
ElseIf .Offset(, 4).Value < Ys Then
Ys = .Offset(, 4).Value
End If
End With
Next
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
End Sub

ポイント&フィギュアユロドル・オージー円終了

ユロドル

2001年から今まで0.015ドルで反転

7時の終値利用

チャート

f:id:kohnodechu:20171225162908p:plain

f:id:kohnodechu:20171225162957p:plain

0.03ドルで反転も試した

f:id:kohnodechu:20171225163052p:plain

 

オージー円

2001年から今まで150円で反転

7時の終値利用

チャート

f:id:kohnodechu:20171225163221p:plain

f:id:kohnodechu:20171225163252p:plain

 

どっちもイマイチ。225だけか?

もうこの辺にしときます

 

ポイント&フィギュアポン終了

ポンドル

2001年から今まで0.03ドルで反転

7時の終値利用

 

チャート

f:id:kohnodechu:20171225144247p:plain

f:id:kohnodechu:20171225144330p:plain

 

ポン円

2001年から今まで300円で反転

7時の終値利用

 

チャート

f:id:kohnodechu:20171225144532p:plain

f:id:kohnodechu:20171225144616p:plain

 

使えん事も無いがあまり使いたくない感じ

 

あとオージーとユロドルくらい見てみよ

 

ポイント&フィギュアドル円終了

2001年から今まで1.5円で反転

15時の終値利用

 

チャート

f:id:kohnodechu:20171225122441p:plain

 

f:id:kohnodechu:20171225122526p:plain

 

ポン円とポンドル行ってみよ

ポイント&フィギュアTOPIX終了

2001年からのチャート

f:id:kohnodechu:20171222150509p:plain

見た感じ225そっくり

 

同様に損益計算してみた

f:id:kohnodechu:20171222150633p:plain

上段は30円で反転。下段は15円で反転もやってみた

 

期待外れ

TOPIXってブレイクアウト向きじゃないのかもね

 

次はドル円試してみる

 

明日どこ釣り行くか検討しよ

 

 

ポイント&フィギュア225完成

この前の表間違い直ししたのと持ち合いのところと出口検討してみたのと

f:id:kohnodechu:20171222100554p:plain

これから良いパターン採用して悪いの省いて作ってみた

f:id:kohnodechu:20171222100830p:plain

バブル崩壊プリーズって感じですが、4万から落ちるのと2万3千円から落ちるのとじゃスケール違うよね~

しかしこの近年の安定感使えそうです

年別集計

f:id:kohnodechu:20171222101425p:plain

DDから始まった年は仕方ないとして2千5百円浮いた時点でその年はもう休むなんて良いかも

MAXDD

f:id:kohnodechu:20171222102028p:plain

 

50万でmini1枚てとこでしょうか

採用

 

TOPIX行ってみよ

 

ポイント&フィギュア225

軽くやってみた

むっちゃ悩みましたが

 

指値は計算ややこしいし、チャート見ててあんまり意味ないんじゃと思って入れませんでした

f:id:kohnodechu:20171220174849p:plain

 

DD大きそうな気がするけど有効かも?

少しフィルター検討してみよう

 

じゃあ飲んで帰る