Calender

S M T W T F S
    123
45678910
11121314151617
18192021222324
25262728293031
<< August 2019 >>

Categories

Archives

Recent Entries

Recent Comment

Recent Trackback

w closet×JUGEM

-

2019/08/24のオーケー馬の複勝予測

オーケー馬が算出した今日の中央競馬の予測結果です。

 

Jyoは、以下の通りです。

1
札幌
2
函館
3
福島
4
新潟
5
東京
6
中山
7
中京
8
京都
9
阪神
10
小倉

 

回収率120%以上

的中率10%以上

該当レース数10以上

 

01-70_03-64, Jyo: 01, Race: 06, Umaban: 03
01-70_04-64, Jyo: 01, Race: 10, Umaban: 09
01-77_11-49, Jyo: 01, Race: 03, Umaban: 08
01-77_12-48, Jyo: 01, Race: 03, Umaban: 07
01-79_02-65, Jyo: 04, Race: 04, Umaban: 04
01-79_09-41, Jyo: 01, Race: 09, Umaban: 05
01-80_08-48, Jyo: 10, Race: 10, Umaban: 01
01-84_10-50, Jyo: 10, Race: 04, Umaban: 12
01-85_03-68, Jyo: 10, Race: 09, Umaban: 06
01-85_04-55, Jyo: 10, Race: 09, Umaban: 11
01-86_10-49, Jyo: 01, Race: 11, Umaban: 01
01-86_11-48, Jyo: 01, Race: 11, Umaban: 02
01-88_08-49, Jyo: 04, Race: 05, Umaban: 04
01-88_08-49, Jyo: 10, Race: 11, Umaban: 02
01-88_09-48, Jyo: 04, Race: 05, Umaban: 02
01-88_09-48, Jyo: 10, Race: 11, Umaban: 10
02-63_10-49, Jyo: 10, Race: 06, Umaban: 12
02-63_11-48, Jyo: 10, Race: 06, Umaban: 16
02-65_03-60, Jyo: 10, Race: 04, Umaban: 06
02-68_08-54, Jyo: 04, Race: 03, Umaban: 01
02-69_08-48, Jyo: 10, Race: 01, Umaban: 06
02-69_08-48, Jyo: 10, Race: 10, Umaban: 01
02-69_10-48, Jyo: 01, Race: 10, Umaban: 08
02-69_10-48, Jyo: 04, Race: 07, Umaban: 11
02-70_08-53, Jyo: 04, Race: 12, Umaban: 09
02-70_11-49, Jyo: 01, Race: 03, Umaban: 08
02-70_11-49, Jyo: 10, Race: 08, Umaban: 13
02-75_10-46, Jyo: 01, Race: 08, Umaban: 12
02-78_07-50, Jyo: 01, Race: 05, Umaban: 01
03-60_08-48, Jyo: 01, Race: 08, Umaban: 01
03-60_11-49, Jyo: 04, Race: 10, Umaban: 11
03-60_11-49, Jyo: 10, Race: 04, Umaban: 08
03-61_11-49, Jyo: 01, Race: 03, Umaban: 08
03-64_07-55, Jyo: 04, Race: 04, Umaban: 09
03-67_07-55, Jyo: 01, Race: 12, Umaban: 04
03-67_07-55, Jyo: 04, Race: 03, Umaban: 09
03-67_10-45, Jyo: 04, Race: 03, Umaban: 06
03-67_10-50, Jyo: 10, Race: 08, Umaban: 05
03-67_11-42, Jyo: 04, Race: 12, Umaban: 04
03-68_10-48, Jyo: 01, Race: 10, Umaban: 08
03-68_10-48, Jyo: 10, Race: 09, Umaban: 07
04-60_07-55, Jyo: 04, Race: 03, Umaban: 09
04-60_13-47, Jyo: 01, Race: 03, Umaban: 05
04-63_08-51, Jyo: 04, Race: 02, Umaban: 11
05-58_08-54, Jyo: 04, Race: 03, Umaban: 01
05-58_09-47, Jyo: 01, Race: 08, Umaban: 04
05-59_14-46, Jyo: 01, Race: 03, Umaban: 03
05-60_07-52, Jyo: 04, Race: 01, Umaban: 12
05-62_06-54, Jyo: 04, Race: 11, Umaban: 06
06-56_08-48, Jyo: 01, Race: 12, Umaban: 06
06-57_13-47, Jyo: 01, Race: 03, Umaban: 05
07-55_08-48, Jyo: 01, Race: 12, Umaban: 06
07-55_11-40, Jyo: 01, Race: 12, Umaban: 09
 

回収率120%以上

的中率10%以上

該当レース数50以上

 

01-70_03-64, Jyo: 01, Race: 06, Umaban: 03
01-70_04-64, Jyo: 01, Race: 10, Umaban: 09
01-77_11-49, Jyo: 01, Race: 03, Umaban: 08
01-77_12-48, Jyo: 01, Race: 03, Umaban: 07
01-79_02-65, Jyo: 04, Race: 04, Umaban: 04
01-80_08-48, Jyo: 10, Race: 10, Umaban: 01
01-84_10-50, Jyo: 10, Race: 04, Umaban: 12
01-85_04-55, Jyo: 10, Race: 09, Umaban: 11
01-86_10-49, Jyo: 01, Race: 11, Umaban: 01
01-86_11-48, Jyo: 01, Race: 11, Umaban: 02
01-88_08-49, Jyo: 04, Race: 05, Umaban: 04
01-88_08-49, Jyo: 10, Race: 11, Umaban: 02
01-88_09-48, Jyo: 04, Race: 05, Umaban: 02
01-88_09-48, Jyo: 10, Race: 11, Umaban: 10
02-63_10-49, Jyo: 10, Race: 06, Umaban: 12
02-63_11-48, Jyo: 10, Race: 06, Umaban: 16
02-65_03-60, Jyo: 10, Race: 04, Umaban: 06
02-68_08-54, Jyo: 04, Race: 03, Umaban: 01
02-69_08-48, Jyo: 10, Race: 01, Umaban: 06
02-69_08-48, Jyo: 10, Race: 10, Umaban: 01
02-69_10-48, Jyo: 01, Race: 10, Umaban: 08
02-69_10-48, Jyo: 04, Race: 07, Umaban: 11
02-70_08-53, Jyo: 04, Race: 12, Umaban: 09
02-70_11-49, Jyo: 01, Race: 03, Umaban: 08
02-70_11-49, Jyo: 10, Race: 08, Umaban: 13
02-75_10-46, Jyo: 01, Race: 08, Umaban: 12
02-78_07-50, Jyo: 01, Race: 05, Umaban: 01
03-60_08-48, Jyo: 01, Race: 08, Umaban: 01
03-60_11-49, Jyo: 04, Race: 10, Umaban: 11
03-60_11-49, Jyo: 10, Race: 04, Umaban: 08
03-61_11-49, Jyo: 01, Race: 03, Umaban: 08
03-64_07-55, Jyo: 04, Race: 04, Umaban: 09
03-67_07-55, Jyo: 01, Race: 12, Umaban: 04
03-67_07-55, Jyo: 04, Race: 03, Umaban: 09
03-67_10-50, Jyo: 10, Race: 08, Umaban: 05
03-67_11-42, Jyo: 04, Race: 12, Umaban: 04
03-68_10-48, Jyo: 01, Race: 10, Umaban: 08
03-68_10-48, Jyo: 10, Race: 09, Umaban: 07
04-60_07-55, Jyo: 04, Race: 03, Umaban: 09
04-60_13-47, Jyo: 01, Race: 03, Umaban: 05
04-63_08-51, Jyo: 04, Race: 02, Umaban: 11
05-58_08-54, Jyo: 04, Race: 03, Umaban: 01
05-58_09-47, Jyo: 01, Race: 08, Umaban: 04
05-59_14-46, Jyo: 01, Race: 03, Umaban: 03
05-60_07-52, Jyo: 04, Race: 01, Umaban: 12
05-62_06-54, Jyo: 04, Race: 11, Umaban: 06
06-56_08-48, Jyo: 01, Race: 12, Umaban: 06
06-57_13-47, Jyo: 01, Race: 03, Umaban: 05
 

  • 2019.08.24 Saturday
  • 10:54

-

スマホゲーム終了

スマホゲームを昨日でやめた。

 

当初の目標を達成したからだ。

 

娘の病気に良い影響があるかも、と思ったが、効果はなかった。

それ以外にも、スマホゲーム依存症の人の気分を体感して、電子書籍を

書くという裏目標がある。

 

しっかり、スマホゲームのかたにはめられて、抜け出すことができないギリギリまで

つかっていた。

ミイラ取りがミイラになる、を実体験しかけたのだ。

無事生還。

 

再び、娘の病気の研究に全てをかける。

 

  • 2019.08.22 Thursday
  • 08:42

-

等価交換

娘の病気が僕の体内に流れ込むように、祈っている。

アインシュタインがいったように、すべての物質は、目に見えない粒子で

繋がっている。

今、僕は、お腹がすかなくなっている。

これは、娘の病気の一部分。

なんとか、僕が病気を受け取りたい。

 

  • 2019.08.21 Wednesday
  • 08:43

-

明日がこなければいいのに・・・

娘は病気のため、一切の運動が禁止されている。

夕食前に、自宅前の道路で、15メートルほど、かけっこするだけ。

昨日は、地面が濡れていたので、散歩した。

 

娘が

「明日が来なければいいのに」と、つぶやいた。

明日の朝がきても、今日だったらいいのに、と。

 

娘の机の前のかべに「夏休みが勝負!」と書かれた貼り紙がある。

音楽会に、修学旅行。

この楽しみのために、毎日、娘は涙を流しながら、耐え抜いて頑張った。

 

だが、努力が実ることなく、また、じごくの日々が待ち受けようとしている。

僕が変わってやれるなら、変わってやりたい。

 

なんとかならないものか・・・。

  • 2019.08.20 Tuesday
  • 08:35

-

今週のオーケー馬の結果

久しぶりに、オーケー馬の複勝での結果を確認してみました。

対象外は、障害、新人、単勝オッズ人気1〜6、11〜位です。

回収率105%以上

的中率10%以上

該当レース数50以上

 

2019年8月17日(土)

回収率301%

 

2019年8月18日(日)

回収率147.3%

 

上記のようになりました。

 

ただし、単勝オッズの人気は、結果データなので、

実際に、締め切り寸前では、多少、データは変動するかもしれません。

このあたりが、現在の課題です。

 

時間があれば、今後も検証をしていきます。

 

  • 2019.08.18 Sunday
  • 17:39

-

オーケー馬の認証システム

MACアドレス認証で実装予定です。

そのためのアプリを作成中。

  • 2019.08.16 Friday
  • 12:30

-

オーケー馬無制限バージョンの方向性

オーケー馬無制限バージョンの方向性を考えてました。

僕自身もワクワクする内容でないと、続かないでしょう。

 

いろいろ検討した結果、仮想馬券投票によるランキングを行います。

そのランキングによって、オーケー馬の回収率の入力値の上限を決める!

 

  • 2019.08.16 Friday
  • 09:09

-

オーケー馬無制限バージョン

オーケー馬無制限バージョンを企画しています。

分析に使用するデータを無限に継ぎ足していけるバージョンです。

無料公開を予定しています。

 

お楽しみに!

  • 2019.08.15 Thursday
  • 15:17

-

地方競馬のデータ抽出プログラム

やはり、過去に作ってました。

地方競馬の情報抽出プログラムを。(^_^)v

 

2011年4月22日から2018年7月28日までのWebサイトの生データは既に

開発PCに保存していました。(^_^)v

 

これを情報抽出プログラムに、食わせてやれば、データはとれます。

あとは、そのデータをデータベースに食わせてやれば、準備は、8割できたも同然かな?(*^_^*)

 

盆休み中に、完成させたいなあ〜(^_^;)

 

 

抽出データは、以下のような感じです。

2011年4月22日
大井競馬場 払戻金

 

ファイル名:201104222015020500.txt.txt.result.txt

 

以下がファイルに出力されるデータ

 

201104222015020500,1,4/2/5/,130/160/160/
201104222015020500,2,8/13/15/,120/180/1,780/
201104222015020500,3,15/7/11/,650/760/600/
201104222015020500,4,12/15/6/,260/160/630/
201104222015020500,5,6/15/13/,130/540/840/
201104222015020500,6,8/13/11/,250/130/280/
201104222015020500,7,10/14/8/,230/290/1,160/
201104222015020500,8,4/8/2/,110/200/710/
201104222015020500,9,7/4/3/,190/190/490/
201104222015020500,10,16/4/3/,230/360/840/
201104222015020500,11,15/3/12/,240/170/210/
201104222015020500,12,8/1/14/,210/340/240/
 

  • 2019.08.14 Wednesday
  • 17:39

-

オーケー馬のプログラムの一部を公開その1

オーケー馬のプログラムの一部を公開します。

このプログラムは、ボタンが押されたら、任意のファイルにデータを出力するものです。

個人で自由に作っているので、べたな書き方ですね。

仕事では、このようなプログラムは、最低な品質です。

いずれ、リファクタリングをしたいのですが、面倒くさいので・・・。(^^)/

 

データベース(Access)から情報を取得して、ファイルに書き出していますね。

10年分のデータを作成する、ベースの部分のデータ構築です。

では、そのデータベースの情報は、どのようにして作成したかというと・・・。

忘れました。(^_^)v

 

たぶん、Yahoo!競馬のWeb情報から取得したのだと思います。

その取得プログラムも、まだ、どこかに存在しているはずです。

みつかれば、公開する予定です。

まあ、そのような需要は、ないでしょうけどね・・・。(>_<)

 

 

'基本情報をバイナリファイルに書き込む
'基本情報:年月日、開催場所、レース番号、条件、トラックコード
Private Sub Command38_Click()
    Dim F As Integer
    Dim UDT() As BinX
    Dim cnt As Long
    
    Command38.Enabled = False
    
    F = FreeFile()
    Open "C:¥temp¥L1.Bin" For Binary As #F
    
    gstrSql = ""
    gstrSql = gstrSql + "SELECT "
    gstrSql = gstrSql + "count(*) as cnt "
    gstrSql = gstrSql + "FROM "
    gstrSql = gstrSql + "race "
    gstrSql = gstrSql + "where "
gstrSql = gstrSql + "year='" & areaY.Text & "' and "
gstrSql = gstrSql + "monthday='" & areaMD.Text & "' and "
    gstrSql = gstrSql + "JyoCD<='10' "
    
    ' テーブル名を指定してレコードセットを作成する
    Set Rs = db.OpenRecordset(gstrSql, dbOpenDynaset)
    
    cnt = 0
    
    If Rs.EOF = False Then
        cnt = Rs("cnt")
    End If
    
    Debug.Print cnt
    
    Rs.Close
    
    ReDim UDT(cnt - 1)
    
    gstrSql = ""
    gstrSql = gstrSql + "SELECT "
    gstrSql = gstrSql + "Year, MonthDay, JyoCD, RaceNum, JyokenCD5, TrackCD "
    gstrSql = gstrSql + "FROM "
    gstrSql = gstrSql + "race "
    gstrSql = gstrSql + "where "
gstrSql = gstrSql + "year='" & areaY.Text & "' and "
gstrSql = gstrSql + "monthday='" & areaMD.Text & "' and "
    gstrSql = gstrSql + "JyoCD<='10' "
    gstrSql = gstrSql + "ORDER BY "
    gstrSql = gstrSql + "Year, MonthDay, JyoCD, RaceNum"
    
    ' テーブル名を指定してレコードセットを作成する
    Set Rs = db.OpenRecordset(gstrSql, dbOpenDynaset)
    
    cnt = 0
    
    Do
        If Rs.EOF = False Then
            UDT(cnt).year = Rs("year")
            UDT(cnt).month = CInt(Left$(Rs("MonthDay"), 2))
            UDT(cnt).day = CInt(Right$(Rs("MonthDay"), 2))
            UDT(cnt).jyoCd = CInt(Rs("JyoCD"))
            UDT(cnt).raceNum = CInt(Rs("RaceNum"))
            
            If IsNull(Rs("JyokenCD5")) Or Rs("JyokenCD5") = "" Then
                UDT(cnt).JyokenCD5 = 0
            Else
                UDT(cnt).JyokenCD5 = CInt(Rs("JyokenCD5"))
            End If
            
            If IsNull(Rs("TrackCD")) Or Rs("TrackCD") = "" Then
                UDT(cnt).TrackCD = 0
            Else
                UDT(cnt).TrackCD = CInt(Rs("TrackCD"))
            End If
            
            cnt = cnt + 1
        Else
            Exit Do
        End If
        
        Rs.MoveNext
    
    Loop
    
    Rs.Close
    
    Put #F, , UDT
    
    Close #F

    Command38.Enabled = True
End Sub
 

  • 2019.08.14 Wednesday
  • 14:46