2017-10-23

民主党相場を懐かしむシステム完成

家の選挙区は共産党か公明党２者択一と云う究極の選択みたいな

誠に残念ながら熱心な学会員の勝利

しかし恐い時代になったもんだ

アメリカと北朝鮮やり出したら絶対ミサイル飛んでくるで

損切りだけはしっかり入れて。土日またぐのは注意しよう

今朝は買いポジばかりでV決済でしたが

民主党時代の逆張り有利相場で使えるブレイクアウトならいつでも使えるだろうシステムその２か３

１１４円ブレイクしたら買い５０銭指値逆指値入れて刺さらなきゃ半日後か翌日決済な感じ

グラフ

f:id:kohnodechu:20171023110245p:plain

良い感じなので早速EA化してみる

2017-09-27

足の色だけ見たシステム

見るのは前日当日の日足の色と今と前回の4時間足の色あと30分足の色

エントリーするきっかけは30分足の反転で買いのみ

逆指値１円刺さらなければ翌朝決済

それといつもと違うのはミンス党時代の成績でパターンを選んでみたこと

あの糞相場に使えるんじゃいつでもいけるんじゃ？と思ったから

で損益累計曲線

f:id:kohnodechu:20170927164048p:plain

EA化してみよう

2017-09-13

フラクタルでシステム

使えそうなの1つ出来た気がする

こんな

f:id:kohnodechu:20170913111955p:plain

フラクタルとフラクタルの期間を１１にした物だけを使用

３０分足フラクタルの点灯でエントリーし逆指値は１円。逆指値に刺さらなきゃ翌朝決済

その条件で２０１０年迄のデータから良いパターンを選んでみました

民主党が政権取らない限り使えるでしょうlol

DDが少し大きいがEAにしてから逆指値を少し最適化してみようと思う

2017-09-08

マクロの実行を途中で止める

無限ループじゃCtrl＋Breakですが

処理量が膨大でいつまでも終わらず帰られへんやんけな時、それじゃまたいつになったら止まるか判らないのね。そんな時用

先ずタスクマネージャーからエディターを再起動して保存ボタンを

これで実行途中の状態が保存されます

エクセル本体はまだ固まったままなのでタスクマネージャーから終了

これで帰れます

昨夕やっちまった例

こんな表

f:id:kohnodechu:20170908132950p:plain

この水色の２０万行＊４列に有る価格で１行下の価格が同じならそれを消すマクロ

Sub 下が同じなら消す()

Dim Rp As Range 'rpはk-n全部
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
For Each Rp In Selection
With Rp
　If .Value = .Offset(1).Value Then
　　.Offset(1).ClearContents
　End If
End With
Next
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
End Sub

こんな簡単なやつですぐ終わるだろうと思ってたらところがどっこい

１時間２０分で９万行しか処理出来てませんでした

それでプロシージャに少し手を加えてみました

If .Value = .Offset(1).Value Then

　.Offset(1).ClearContents
End If

この部分を

If Rp <> "" Then
　If .Value = .Offset(1).Value Then
　　.Offset(1).ClearContents
　End If
End If

とそのレンジにデータが有れば処理するというのを追加

すると何と５分３０秒で終了

早く処理させるプロシージャ書くよう心がけましょうね