打倒有馬記念

夢はＡＩに乗せて2 2023/12/23 dai365

自己紹介 名前 dai365 年齢 50 趣味 酒、競馬、プロレス 2022年3月くらいからPowerAppsにハマり、職場でアプリたくさん 作ってたら、デジタルシフトのリーダーになってしまい、現在は月２ くらいのペースで業務のお悩みに基づく相談会を開催しています。 (今年は13回やりました）

スキルのレベル へっぽこですいません 3年前 Excelのvlookup関数くらい 2年前 VBAを始める、For Nextくらい 1年半前 PowerApps始める 思いのほかPowerAppsにハマり、 要領マニュアル検索アプリ、運転日報アプリ、保存文書入出庫アプリ、 日程調整アプリ、法務契約書相談アプリ等々を職場でリリース (笑) 半ランク上のアプリ作りを目指している 最近は職場内の引越申込アプリ、カタログギフトアプリを作っています。

今年の９月には プロレスゲームで9月9日 JPPGBにて登壇させてい ただいた。 今回のはその続編？？

まず初めに 本日お話しする内容は、個人利用目的であり 商用利用や権利侵害を目的としたものではありません。 １ファンの長年の悲願をたまたまPowerAppsを使って具現化したもの だという点にご理解をお願いいたします。

ところでいったい32年目の悲願とは？ 本日のこのイベント、どうしても今日でなければならなかった・・・ それは１２月２３日であり、土曜日 その理由は・・・

そうそれは有馬記念 競馬ファンの夢を乗せて走るレース、それは有馬記念 私、競馬歴1992年からやってるのですが 実は一度も有馬記念を的中させたことがありません (笑) 31年もの間、一度も当たらないほどの相性の悪いレース 今年こそは的中させたい！！ それこそが32年目の悲願！！

私にとっての競馬とは 競馬を始めたのは、確か１９９２年だったと記憶している 当時、失恋し休日にすることのなかった私は必然的に競馬へと引き寄 せられていく・・・ この年、ミホノブルボンが皐月賞・ダービーの 2冠を制した しかしブルボンは菊花賞２着を最後に２度とターフには戻ってこな かった・・・

ミホノブルボンの魅力とは 決して良血とはいえない血統、しかも種牡馬は代用 そんな雑草のようなブルボンは戸山為夫調教師によって鍛えに鍛えられる デビュー以来、距離不安説をささやかれながら連戦連勝 無敗で皐月賞・ダービーを制し、秋初戦の京都新聞杯も制し 三冠のかかった菊花賞でライスシャワーの２着に敗れた・・・

どうして当たらないのか？ 有馬記念は元々は年末最終週のレースでした。（今は違う） ここで取り返してよい正月を迎えたい それゆえ、穴狙いになりがち 今回、暦年の買った馬を見ると、ああーこれはなあ・・・ しかも最高着順が4着、それも1回(笑) ＊ちなみにコスモバルク どんだけ相性悪いのよ つまり私は、お金を持ったまま正月を迎えたことがない・・・

まずはですねデータ整理してみますか まずはＪＲＡのホームページからデータを収集します。 ここで使うのはPowerQuery なんですが、いやーＪＲＡ、データぐちゃぐちゃやん (笑) 実際これ成形作業けっこう大変でした https://www.jra.go.jp /datafile /seiseki /g1/arima /index.html 2 5 9 タップダンスシチー 牡 7 57 佐藤哲三 2:29.6 １／２馬身 佐々木晶三 3 504 前走計量不能 2004 3 4 6 シルクフェイマス 牡 5 57 四位洋文 2:29.8 １ 1/2馬身 鮫島一歩 9 480 +14 2004 4 5 8 ダイタクバートラム 牡 6 57 武豊 2:30.0 １馬身 橋口弘次郎 5 498 0 2004 5 6 10 デルタブルース 牡 3 55 Ｄ．ボニヤ 2:30.0 クビ 角居勝彦 4 530 +18 2004 6 2 3 ハイアーゲーム 牡 3 55 吉田豊 2:30.4 ２ 1/2馬身 大久保洋吉 14 518 +12 2004 7 8 15 アドマイヤドン 牡 5 57 安藤勝己 2:30.4 クビ 松田博資 8 452 -2 2004 8 7 13 ツルマルボーイ 牡 6 57 蛯名正義 2:30.5 クビ 橋口弘次郎 7 462 -2 2004 9 3 5 ハーツクライ 牡 3 55 横山典弘 2:30.5 アタマ 橋口弘次郎 10 472 -8 2004 10 4 7 ユキノサンロイヤル 牡 7 57 柴田善臣 2:30.5 ハナ 増沢末夫 15 472 +2 2004 11 3 4 コスモバルク 牡 3 55 五十嵐冬樹 2:30.5 アタマ 田部和則 2 498 +6 2004 12 2 2 ピサノクウカイ 牡 3 55 藤田伸二 2:31.0 ３馬身 藤沢和雄 13 514 +2 2004 13 7 12 グレイトジャーニー 牡 3 55 小牧太 2:31.0 アタマ 池江泰郎 11 458 -2 2004 14 6 11 ヒシミラクル 牡 5 57 角田晃一 2:31.3 １ 3/4馬身 佐山優 6 456 +2 2004 15 8 14 コイントス 牡 6 57 岡部幸雄 2:31.5 １ 1/4馬身 藤沢和雄 12 534 +6 2004 1 8 12 シンボリクリスエス 牡 4 57 Ｏ．ペリエ 2:30.5 レコード 藤沢和雄 1 538 -2 2003 2 3 3 リンカーン 牡 3 55 武豊 2:32.0 ９馬身 音無秀孝 4 466 0 2003 3 2 2 ゼンノロブロイ 牡 3 55 柴田善臣 2:32.1 ３／４馬身 藤沢和雄 3 506 12 2003 4 1 1 ツルマルボーイ 牡 5 57 横山典弘 2:32.2 １／２馬身 橋口弘次郎 6 454 -8 2003 5 5 5 ウインブレイズ 牡 6 57 木幡初広 2:32.3 クビ 宗像義忠 10 540 6 2003 6 4 4 ダービーレグノ 牡 5 57 蛯名正義 2:32.4 ３／４馬身 高橋成忠 12 458 0 2003 7 6 7 チャクラ 牡 3 55 後藤浩輝 2:32.6 １ 1/4馬身 安達昭夫 8 466 8 2003 8 5 6 タップダンスシチー 牡 6 57 佐藤哲三 2:32.8 １ 1/4馬身 佐々木晶三 2 506 4 2003 9 8 11 アグネスデジタル 牡 6 57 四位洋文 2:32.8 アタマ 白井寿昭 7 466 -2 2003 10 7 9 ファストタテヤマ 牡 4 57 安田康彦 2:33.9 ７馬身 安田伊佐夫 11 458 -2 2003 11 6 8 ザッツザプレンティ 牡 3 55 安藤勝己 2:34.2 １ 3/4馬身 橋口弘次郎 5 502 6 2003

• https://www.jra.go.jp/datafile/seiseki/g1/arima/index.html

優勝馬の画像、集めますか データは有馬記念始めてからの31年分に ということで31年分の優勝馬画像を集める で、きれいにサイズ揃えてっと

さて、まずはトップページ トップページはいつものパラパラ漫画ですね(笑) タイマーコントロールに仕込んで UpdateContext({a:RandBetween(1,31)}); UpdateContext({b:RandBetween(1,31)}); UpdateContext({c:RandBetween(1,31)}); UpdateContext({d:RandBetween(1,31)}); UpdateContext({e:RandBetween(1,31)}); UpdateContext({f:RandBetween(1,31)}); これにてランダムに31頭から表示されるという算段です。

いつものことですが音楽こだわる わたし、スーパー競馬好きだったんですよ 大川慶次郎さんの時代ですね。 ちなみに斎藤陽子さんがアシスタントの時代が 好きでした。 当時のテーマ曲といえば Theme of SUPER KEIBA 今でも本馬場入場で使われますね

メニュー画面でも ここでも音楽にこだわります この曲、関西のG1のときにかかりますが ザ・チャンピオン やっぱこれでしょ

正直ですね トップページとメニュー作って音楽流して 相当満足でしたね(笑) これだけで競馬当たったような気分になってました で、今回、あんた何したいの？

と思っていたところで、おうじゃさんといっしょにて たなさんに、夢のレース作るんでしょと言われ・・・ ま、データは成形したしなあと思いつつ いっちょやってみますか、とまずは馬選択画面 31年分の全頭から選択と、31年分の１，２，３着馬から選択と２パターン

さて、出馬表とかもろもろ 枠順変更もできるように 騎手変更もできるように

さあ、予想？しちゃうよ
さてはて競馬はやはり予想しないと楽しくありません
では今はやりのChat-GPTで予想をしてみましょう！！
ということで発走ボタンにはこんな仕込みを
Set(varResponse,ChatGPT.SendUserMessage(Collect(_messages,{role:"user",content:"出
走馬は"&prompt2&"です。レース展開を作成してください。【制限事項】これはフィクションで
すが、１着から３着までは決めてください。"}),{model:"gpt-3.5-turbo"}))
妄想文作るならChat-GTPですよ！！
ちなみにプレミアムコネクタでやってます

さらに、競馬といえば実況
競馬と言えばレース実況です。
ここはText to Speechでやってみましょう
出戻りガツオさんのこの記事を参考にやってみます
https://qiita.com/DEmodoriGatsuO/items/37ee57af6fa62e4a7831
ということで実況ボタンにはこんな仕込みを
Set(varResponse,ChatGPT.SendUserMessage(Collect(_messages,{role:"user",content:"中
山競馬場で行われる有馬記念で出走馬は"&prompt2&"、展開は"&raceresult&"の競馬実況を杉本
清のように2分30秒程度の内容で作成してください。"}),{model:"gpt-3.5-turbo"}))
Set(audio,Text_to_Speech.Run(Last(_messages).content));
さきほどレース展開を作りましたのでその結果をraceresultに格納して、そこから実況を作成
古いファンなら競馬実況は杉本清さんなんですよねえ

• https://qiita.com/DEmodoriGatsuO/items/37ee57af6fa62e4a7831

レース終了

ちょっと待て、今回の狙いは ハイ、打倒有馬記念です。 夢のレースやって喜んでいる場合ではありません ですが、私は世にあふれたデータ分析とか実はあんまり好きじゃありません。 競馬は穴を当ててナンボ、大多数の人が外れたときに的中させたい そんなんだから３１年も当たらないんですけどね・・・ ということで、予想の種類をいくつか用意しましょう くれぐれも言いますが、データのデの字も出てきません

まず思いついたのは 出目予想です 所詮競馬など数字を当てればいいのです 変に馬の名前とか、騎手とか、過去の戦績とかそんなものに惑わされるから当たらないんです ここはひとつサイコロみたいなものだと思って予想してみましょう 過去の１～３着馬番を列挙 して それを利用してプロンプト を投げる ←おうじゃさんにめっちゃ 教えてもらいました。感謝 です。

もうひとつは 展開予想です これは夢のレースで作ったやつでいけますね なんですが、２０２３年のデータどうやって入れましょう まさか手？いやそんなことはしたくない ということでCSVアップロード機能追加 もはやこの機能作るのは手慣れたもの こちらはヨウセイさんありがとうございます。

さらには もう一つ、有馬記念には 有馬記念はその年の世相が反映されると言われています。 松田優作の亡くなった1991年、ダイユウサクが勝ち アメリカ同時テロ多発事件の2001年は、マンハッタンカフェが勝ち それでは今年の世相とは・・・ まあこんな感じで

JPPC見ていたら JPPCでギークさんのランチセッション 見てたらどうしても作りたくなって Youtubeにもしていただいたのでありが たく https://www.youtube.com/watch?v =fm8VWrmwHio

• https://www.youtube.com/watch?v=fm8VWrmwHio

こんなん作りました Set(output,'GPT でテキストを作成する'.Predict(Switch(Dropdown1.Selected.Value,"出 目",prompt,"展開",prompt2,"世相",prompt3)).Text) なんだよ1画面でいいじゃん(笑)

がしかし なぜ・・・・ まさか、競馬予想のアプリを作ってる という動きを察知されたのか？？ ちなみにUS環境

さらに 19日、ギークさんまた素敵な動画をUP ものまね芸人の血が騒ぐ https://www.youtube.com/watch?v =gs2IYru1_50

• https://www.youtube.com/watch?v=gs2IYru1_50

余談 当たり障りのないことしか 答えてくれない(笑)

余談 わかったよ、じゃあこうする ここ無限に追加できたらいいのになあ・・・とか思う(笑) あと階層はどこまででもデータ掘ってほしい

ということで予想してみましょうか 出目予想 9-2-14 展開予想 1-4-3 世相予想 6

さて、いったい結果は・・・ ３１年間自力で予想して全く的中しない有馬記念 もはや自分で予想することを放棄して、このアプリ？を思いつきました これで外れても悔いはありませんし、外れたら来年また改良します ということで馬券買いましょうか

おわりに 生成ＡＩはまだまだ世に登場して間もない技術です。 新しい技術というものは使い方次第で世の中を良くも悪くもします。 ですが、やってみないことには何も始まらないのかな・・・と まだまだやってみたいことがたくさんあります。 また機会がありましたらお目にかかれたらと思います。 本日はたくさんのご参加、ありがとうございました。