Calender

S M T W T F S
1234567
891011121314
15161718192021
22232425262728
293031    
<< December 2019 >>

Categories

Archives

Recent Entries

Recent Comment

Recent Trackback

w closet×JUGEM

-

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

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

地方競馬の情報抽出プログラムを。(^_^)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

-

リツイート・サービスを開始します

僕のツイートに、リツイートすると、オーケー馬での予想内容をブログにて公開します!

 

予想内容は、複勝の回収率110%以上、的中率10%以上、該当レース数10以上とします。

 

レース前日までに、開催年月日、開催場所、レース番号のツイートをします。

そのツイートに対して、リツイートをした人数が、100人を超えたら、ブログにて

無料公開をします。

 

100人というのは、とりあえず、適当な数字です。

あまり、集まらないようでしたら、減らします。

 

ツイッターのアドレスは

tuti@keibakyoujin

です。

 

よろしくお願いしま〜す!!

 

  • 2019.08.14 Wednesday
  • 11:29

-

オーケー馬の開発画面

開発時の画面デザイン画面です。

 

開発資料を作成することなく、作っているため、中央競馬バージョンが

どのようなデータを取得したり、作成方法がわからなかったり・・・。

集中して開発している時は、すべて頭に入っているんですが、あいだがあくと

このとおり。すっかり、忘れてしまいます。

 

ですので、地方競馬版のオーケー馬は、リハビリからスタートです。

今度は、きちんと、資料に残していきます。

できるかな?

 

オーケー馬の開発デザイン画面です。


 

  • 2019.08.13 Tuesday
  • 19:09

-

オーケー馬の予想サンプル結果

オッズを無視した結果ですので、締め切り前の複勝オッズ7番人気以降の馬券を買えば

おそらく、回収率100%は超えるかと思います。

ただし、オーケー馬は、短期での勝負をするソフトではありません。

長期で、確実に回収率を100%超えすることを目指したソフトです。

 

やはり、オーケー馬の結果検証をすると、わくわくしますね。

自分で作っておきながら、自画自賛ですが、すごいソフトですわ。

 

あとは、締め切り直前の複勝人気順を自動取得して、自動馬券購入ができれば

完全自動現金回収装置の完成ですね。

 

回収率105%以上

的中率10%以上

10年間で該当したレース50以上

上記の条件での結果です。

 

05-58_09-47  Jyo 1  Race 3  Umaban 1 X   ret:105
03-60_08-49  Jyo 1  Race 3  Umaban 4 X   hit:10
02-72_06-57  Jyo 1  Race 3  Umaban 5 X   rac:50
01-79_02-65  Jyo 1  Race 4  Umaban 2 O 180
04-63_08-51  Jyo 1  Race 4  Umaban 11 X  
03-59_12-48  Jyo 1  Race 8  Umaban 11 X  
05-56_12-48  Jyo 1  Race 8  Umaban 11 X  
01-81_09-52  Jyo 1  Race 8  Umaban 14 X  
03-59_09-52  Jyo 1  Race 8  Umaban 14 X  
07-54_09-52  Jyo 1  Race 8  Umaban 14 X  
03-63_11-49  Jyo 1  Race 11  Umaban 1 X  
01-84_10-50  Jyo 1  Race 11  Umaban 10 X  
02-73_10-50  Jyo 1  Race 11  Umaban 10 X  
02-63_11-47  Jyo 1  Race 12  Umaban 4 X  
02-63_06-54  Jyo 1  Race 12  Umaban 6 O 390
01-84_10-50  Jyo 1  Race 12  Umaban 9 X  
02-69_10-48  Jyo 4  Race 1  Umaban 3 X  
02-73_10-50  Jyo 4  Race 4  Umaban 1 X  
04-57_11-49  Jyo 4  Race 4  Umaban 8 X  
07-54_11-49  Jyo 4  Race 4  Umaban 8 X  
08-53_11-49  Jyo 4  Race 4  Umaban 8 X  
05-56_12-48  Jyo 4  Race 4  Umaban 9 X  
01-74_09-52  Jyo 4  Race 4  Umaban 11 X  
07-54_09-52  Jyo 4  Race 4  Umaban 11 X  
02-73_08-53  Jyo 4  Race 4  Umaban 15 X  
01-90_09-48  Jyo 4  Race 6  Umaban 3 X  
04-60_13-47  Jyo 4  Race 9  Umaban 3 X  
02-62_08-52  Jyo 4  Race 9  Umaban 7 X  
01-82_11-49  Jyo 4  Race 9  Umaban 8 X  
03-61_11-49  Jyo 4  Race 9  Umaban 8 X  
05-59_14-46  Jyo 4  Race 9  Umaban 14 O 1950
02-62_09-51  Jyo 4  Race 9  Umaban 16 X  
02-67_10-50  Jyo 4  Race 11  Umaban 8 X  
01-82_11-49  Jyo 4  Race 11  Umaban 12 X  
03-61_11-49  Jyo 4  Race 11  Umaban 12 X  
07-54_11-49  Jyo 4  Race 11  Umaban 12 X  
05-57_12-48  Jyo 4  Race 11  Umaban 16 X  
04-58_13-47  Jyo 4  Race 11  Umaban 17 X  
05-57_13-47  Jyo 4  Race 11  Umaban 17 X  
03-63_09-52  Jyo 4  Race 12  Umaban 4 X  
04-59_09-52  Jyo 4  Race 12  Umaban 4 X  
05-58_09-52  Jyo 4  Race 12  Umaban 4 X  
07-54_09-52  Jyo 4  Race 12  Umaban 4 X  
02-64_09-49  Jyo 10  Race 4  Umaban 5 X  
01-86_11-45  Jyo 10  Race 4  Umaban 11 X  
01-73_08-51  Jyo 10  Race 5  Umaban 4 O 670
01-73_06-54  Jyo 10  Race 5  Umaban 15 O 240
08-53_09-51  Jyo 10  Race 9  Umaban 2 X  
02-67_10-50  Jyo 10  Race 9  Umaban 12 X  
02-67_08-47  Jyo 10  Race 11  Umaban 3 X  
05-57_08-47  Jyo 10  Race 11  Umaban 3 X  
07-52_08-47  Jyo 10  Race 11  Umaban 3 X  
01-86_09-51  Jyo 10  Race 12  Umaban 6 X  
03-64_12-48  Jyo 10  Race 12  Umaban 14 X  

 

 

回収率105%以上

的中率10%以上

10年間で該当したレース10以上

上記の条件での結果です。

該当レースが少ないという点に着目して、比較してみるとおもしろいですよ。

 

01-85_02-64  Jyo 1  Race 2  Umaban 10 O 120 ret:105
05-58_09-47  Jyo 1  Race 3  Umaban 1 X   hit:10
03-60_08-49  Jyo 1  Race 3  Umaban 4 X   rac:10
02-72_06-57  Jyo 1  Race 3  Umaban 5 X  
01-79_02-65  Jyo 1  Race 4  Umaban 2 X  
04-63_08-51  Jyo 1  Race 4  Umaban 11 X  
02-65_05-62  Jyo 1  Race 4  Umaban 12 X  
05-62_09-50  Jyo 1  Race 4  Umaban 13 X  
02-71_10-51  Jyo 1  Race 8  Umaban 1 O 250
03-59_12-48  Jyo 1  Race 8  Umaban 11 X  
05-56_12-48  Jyo 1  Race 8  Umaban 11 X  
01-81_09-52  Jyo 1  Race 8  Umaban 14 X  
03-59_09-52  Jyo 1  Race 8  Umaban 14 X  
07-54_09-52  Jyo 1  Race 8  Umaban 14 X  
03-63_10-44  Jyo 1  Race 9  Umaban 7 X  
03-63_11-49  Jyo 1  Race 11  Umaban 1 X 210
01-84_10-50  Jyo 1  Race 11  Umaban 10 X  
02-73_10-50  Jyo 1  Race 11  Umaban 10 X  
02-63_11-47  Jyo 1  Race 12  Umaban 4 X  
02-63_06-54  Jyo 1  Race 12  Umaban 6 X 920
01-84_10-50  Jyo 1  Race 12  Umaban 9 X  
02-69_10-48  Jyo 4  Race 1  Umaban 3 X  
02-73_10-50  Jyo 4  Race 4  Umaban 1 X  
04-57_11-49  Jyo 4  Race 4  Umaban 8 X  
07-54_11-49  Jyo 4  Race 4  Umaban 8 X  
08-53_11-49  Jyo 4  Race 4  Umaban 8 X  
05-56_12-48  Jyo 4  Race 4  Umaban 9 X  
01-74_09-52  Jyo 4  Race 4  Umaban 11 X  
07-54_09-52  Jyo 4  Race 4  Umaban 11 X  
02-73_08-53  Jyo 4  Race 4  Umaban 15 X  
02-77_03-57  Jyo 4  Race 5  Umaban 3 O 320
01-90_09-48  Jyo 4  Race 6  Umaban 3 X  
04-60_13-47  Jyo 4  Race 9  Umaban 3 X  
02-62_08-52  Jyo 4  Race 9  Umaban 7 X  
01-82_11-49  Jyo 4  Race 9  Umaban 8 X  
02-62_11-49  Jyo 4  Race 9  Umaban 8 X  
03-61_11-49  Jyo 4  Race 9  Umaban 8 X  
05-59_14-46  Jyo 4  Race 9  Umaban 14 O 1950
02-62_09-51  Jyo 4  Race 9  Umaban 16 X  
02-67_10-50  Jyo 4  Race 11  Umaban 8 X  
01-82_11-49  Jyo 4  Race 11  Umaban 12 X  
03-61_11-49  Jyo 4  Race 11  Umaban 12 X  
07-54_11-49  Jyo 4  Race 11  Umaban 12 X  
05-57_12-48  Jyo 4  Race 11  Umaban 16 X  
04-58_13-47  Jyo 4  Race 11  Umaban 17 X  
05-57_13-47  Jyo 4  Race 11  Umaban 17 X  
01-68_10-51  Jyo 4  Race 12  Umaban 2 X  
01-68_09-52  Jyo 4  Race 12  Umaban 4 X  
03-63_09-52  Jyo 4  Race 12  Umaban 4 X  
04-59_09-52  Jyo 4  Race 12  Umaban 4 X  
05-58_09-52  Jyo 4  Race 12  Umaban 4 X  
07-54_09-52  Jyo 4  Race 12  Umaban 4 X  
01-68_04-59  Jyo 4  Race 12  Umaban 10 X  
03-63_13-48  Jyo 4  Race 12  Umaban 13 X  
04-59_13-48  Jyo 4  Race 12  Umaban 13 X  
05-58_13-48  Jyo 4  Race 12  Umaban 13 X  
02-64_12-49  Jyo 4  Race 12  Umaban 16 O 1440
06-51_07-47  Jyo 10  Race 1  Umaban 3 X  
02-64_09-49  Jyo 10  Race 4  Umaban 5 X  
01-86_11-45  Jyo 10  Race 4  Umaban 11 X  
01-73_08-51  Jyo 10  Race 5  Umaban 4 O 670
01-73_04-56  Jyo 10  Race 5  Umaban 9 X  
01-73_06-54  Jyo 10  Race 5  Umaban 15 O 240
08-53_09-51  Jyo 10  Race 9  Umaban 2 O 750
02-67_10-50  Jyo 10  Race 9  Umaban 12 X  
02-67_08-47  Jyo 10  Race 11  Umaban 3 X  
05-57_08-47  Jyo 10  Race 11  Umaban 3 X  
07-52_08-47  Jyo 10  Race 11  Umaban 3 X  
01-86_09-51  Jyo 10  Race 12  Umaban 6 O 920
03-64_12-48  Jyo 10  Race 12  Umaban 14 X  

 

 

やはり、スマホゲームより、現実に起こっているデータを眺める方がおもしろいですな。

 

ファイアーエムブレムヒーローズの方の進捗は、まずまずです。

結局、やることは、全キャラクタをレベルマックスにして、

花を取得したら、リーダーキャラクタに、覚醒素材として、使用する。

これの繰り返しのゲーム。

これは、レアリティー4の話。

 

これとは別に、1体、レアリティー5は育てておく。

そして、5の最強武器を4のリーダーにつける。

この方法が、無課金プレイヤーの最強軍団作成方法だと思う。

で、これを全キャラクタにあてはめると、10年以上かかると思われる。

やってられんわい。

しかし、弱い状態でも、詰め将棋的なおもしろさがあるので、やめられない。

スタミナゼロで、チャレンジできるステージが用意されているのは、そういうことだと思う。

このステージがなければ、即、やめていたが、これのおかげで、やめられない。

なので、スタミナゼロの難易度が高いステージ以外は、ほぼ、画面連打プレイで終わる。

そう考えると、やはり、販売されているファイアーエムブレムの方がおもしろいと思える。

つまり、どちらに転んでも、収益は得られる構造だろう。

無課金では、上位ランクに入れない→あきらめて、販売されてるものを買う、という流れ。

現に、僕は、DS版のファイアーエムブレムを購入しようとしている。

Wii版は、中古でも、値段が高くて、手が出ない。

誰か、ちょうだい。

 

ま、とりあえず、XBOX360のバイオニックコマンドーをプレイして、気持ちよくなろう。

たしか、ファミコン版の企画は、ヨツイさんという方が担当されたとか。

僕が、カプコンで、ロックマンXを担当していたころ、そんなことを聞いた記憶が・・・。

どうしているのだろうか・・・ヨツイさんは。

ちなみに、その元となる、トップシークレットというアーケード版は

当時、部長だった藤原さんが担当されたそうだ。

魔界村を作った人ね。

 

ヨツイさんは、まだ、現役ばりばりみたいですね。

 

その他

 

TAD

 

そうか。

なんで、JuJu伝説をカプコンが、という疑問が社員時代にあったが、少し納得。

 

  • 2019.08.13 Tuesday
  • 12:36

-

地方競馬のデータ収集プログラムの制作

競馬ソフトのオーケー馬の開発は、中央競馬をターゲットにしていました。

しかし、地方競馬に関しても、ターゲットにする予定でした。

ある程度、データ収集のプログラムが完成していましたが、家族の諸事情により、気力が失われました。

 

現在も、やる気は、あっても、行動がともないません。

ゆるい父親像を造るために、いろいろなゲームをプレイする姿を見せたり、漫画を読んだり・・・。

しかし、その効果はありませんでした。

 

昨日は、XBOX360のバイオニックコマンドーマスターD復活計画を購入しました。

こちらは、単に、プレイしたかっただけ。

ファミコンの名作「ヒットラーの復活」のリメイク版です。

やりこんだゲームなので、すぐにクリアできるかと思います。

ボスが新規なので、そこだけが、てこずるでしょう。

 

スマホゲームのにゃんこ大戦争は、来年春公開予定の映画Fateの完結編で、まちがいなく

コラボするでしょう。

ですので、そのコラボまで、レアチケット、ネコ缶は、温存です。

セイバー、アーチャー、桜をゲットするために。

 

同じく、来年夏公開予定のエヴァンゲリオンですが、こちらは、8回目で、最強の

零号機をゲットできたので、来年のコラボには、参加しないでしょう。

初号機は、ちょっと、ほしいけど。

 

地方競馬のデータ分析プログラムは、作成した記憶はありますが、そのプログラムの所在が

わかりません。

その探索から、作業はスタートです。

 

オーケー馬の地方競馬版が完成すれば、毎日、競馬予想のツイートができる。

誰か、オーケー馬を上手にプロデュースしてくれる人がいないものかなあ・・・。

 

開発中のスクリーンキャプチャです。
 

とんでもない暑さですが、みなさん、冷房をしっかりきかせてくださいね。

我が家は、28度設定で、別の部屋で作業をしているので、扇風機もつけてます。

 

僕と同い年のカール(6種のブレンドチーズ味)を食べながら・・・

 

  • 2019.08.13 Tuesday
  • 11:15

-

競馬の予想ツイッターをはじめました

僕が企画、開発したオーケー馬を使って、中央競馬の予想を始めました。

ツイッターで公開しています。

 

tuti@keibakyoujin

です。

 

複勝で、回収率120%以上、的中率20%以上の可能性が高いものを選定しています。

フォロー数やリツイート数に応じて、提供情報も増していく予定です。

 

それでは、楽しい馬券ライフを!

ホースとともに、あらんことを^_^

  • 2019.08.11 Sunday
  • 10:17

-

グラディウス論

にゃんこ大戦争やファイアーエムブレムヒーローズ、その他諸々のスマホゲームをしてきた。

どれも、糞ゲーである。

なんでだろう?

 

ドラクエは、死ぬと金が半分減る。

グラディウスは、最弱。つまり、残機は意味をなさない。

ファイアーエムブレムは、死ぬとロスト。

だから、必死になる。

 

スマホゲームは、死んでも、デメリットがない。

金持ちほど、強くなれる。

将棋は、金持ちだろうが、貧乏人だろうが、公平だ。

グラディウスも、それに近い。

僕は、金持ちでなかったが、気合いで上手になれた。

そういう部分がスマホゲームにはない。

 

やはり、最高のゲームは、競馬だ。

生のデータで、闘うゲーム。

金持ち、貧乏人、関係なし。

デジタルのゲームは、しょせん、誰かの頭の中で作ったもの。

所ジョージさんがいってたんだけどね。

絵を描いたり、小説を書いたり、競馬を楽しむのは、別次元。

 

  • 2019.08.05 Monday
  • 21:50

-

コウノトリの郷へ

豊岡市に来ています。

 

  • 2019.08.03 Saturday
  • 05:57

-

面白いゲーム

ロックマンエックスのゲーム企画をしていた。

 

最終的に、最高のゲームは競馬だと思う。

でも、世間で人気のゲームは一通りする。

 

Skyrimとかパズドラ、にゃんこ大戦争、その他いろいろ。

 

競馬を除いて、何が今だに面白いか?

 

Xbox360で、レイディアントシルバーガンをしている。

もちろん、セガサターンでも、しこたまプレイした。

やはり、面白い。

にゃんこ大戦争には悪いが、次元が違う。

同じ条件で挑戦できるゲームは、気合いが入る。

 

スマホゲームは、しょせん、課金した人が有利。

30分ほどで、これほど満足感があるゲームなんて、そうない。

魂斗羅ハードコアも、エイリアンソルジャーも。

ロックマンは、最初からオールクリアまで時間がかかるのが欠点。

グラディウスなら、20分ほどで、大満足できる。

やはり、コナミのアニバーサリーのソフトは買いたい。

でも、資金がない。

仕方ないから、競馬で稼ぐか。

勝てる勝負は面白いとは言えないが背に腹はかえられぬ。

グラディウス、魂斗羅、ヒットラーの復活、悪魔城ドラキュラ。

最近、iPhone4で毎日、サントラを聴いている。

やはり、KONAMIサウンドはすごい。

ちなみに、iPhone4は、中古で2000円で買った。

会社のウェブ打刻システムは、iPhone4は使えない。

ウェブなのに、古いから使えないって、ダメじゃん!

ウェブの利点は、端末を選ばないことなのに。

古いandroid端末でもだめでした。

iPadはつかえたけど、仕事場は、iPad禁止なの。

これが、日本。

iPadより、スマホの方がセキュリティ的にやばいのにね。

便所の個室でサボるのにも、スマホの方が最適だろう。

 

  • 2019.08.01 Thursday
  • 22:34