Calender

S M T W T F S
  12345
6789101112
13141516171819
20212223242526
2728293031  
<< October 2019 >>

Categories

Archives

Recent Entries

Recent Comment

Recent Trackback

w closet×JUGEM

-

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

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

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

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

 

お楽しみに!

  • 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

-

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

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

 

予想内容は、複勝の回収率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