2198395 ランダム
 HOME | DIARY | PROFILE 【フォローする】 【ログイン】

楽天ブログ 買っちゃった

全10件 (10件中 1-10件目)

1

toto

2016/04/11
XML
カテゴリ:toto
競馬のWIN5は2等,3等が無いから当たりにくいし仮に当たっても税金が掛かって面倒だし予想がランダムなBIGも当たりそうに無いし自分で予想できるtotoがいいよね。
でも自分で予想するのは結構面倒なので投票率からExcelで簡単にtoto予想できるようにしてみたよ。

さっかりん - toto 投票率グラフ
http://soccer.phew.homeip.net/toto/vote/
の表をコピーしてExcelに貼り付ける。

toto

ブラウザによってコピーのされかたが変わるね。
ChromeだとA1からJ28にコピーされるけどIEやEdgeだとA1からJ41になるからChromeがいいかな。

L4に =RAND() を入力

M4に =IF(L4<D4,"ホーム",IF(L4<(D4+E4),"引き分け","アウェイ"))
L4M4をコピーして1行置きに貼り付ける。

M1に ホーム を入力
M2に 引き分け を入力
M3に アウェイ を入力

N1に =COUNTIF(M4:M28,"ホーム") を入力
N2に =COUNTIF(M4:M28,"引き分け") を入力
N3に =COUNTIF(M4:M28,"アウェイ") を入力


乱数で適当に選ぶと当たりそうにないので投票率の高い方が選ばれる勝率を高くしてみたんだけどどうかな。
F9を押すと乱数が再計算されるからホーム、引き分け、アウェイの比率がいい感じになるまで何回かF9を押すといいよ。

どれぐらいの比率がいいのか分からないけど
 ホーム 5試合以上7試合以下
 引き分け 2試合以上4試合以下
 アウェイ 4試合以上6試合以下
がいいかな。

F9を何度も押すのが面倒な場合はVBAを使うといいね。

Sub toto()
Dim n As Long, f As Long

For n = 1 To 1000 '1000回で終了

  ActiveSheet.Calculate '再計算

  f = 0

  If Range("N1") >= 5 And Range("N1") <= 7 Then f = 1 'ホーム勝ちが5試合以上7試合以下
  If Range("N2") >= 2 And Range("N2") <= 4 Then f = f + 1 '引き分けが2試合以上4試合以下
  If Range("N3") >= 4 And Range("N3") <= 6 Then f = f + 1 'アウェイ勝ちが4試合以上6試合以下
  If Range("N1") > Range("N3") Then f = f + 1 'ホーム勝ちがアウェイ勝ちより多い

  If f = 4 Then Exit For '全部の条件を満たしたら終了

Next n
  If n = 1001 then MsgBox "条件が満たされませんでした"
End Sub


この方法で早速土曜日に買ってみたら9つ当たったよ。
toto2.jpg






Last updated  2016/04/11 09:15:58 PM
コメント(0) | コメントを書く


2010/04/12
カテゴリ:toto

試  合

結果

 

予 想

 

的 中

No

ホーム

 

アウェイ

 

 A

 B

 C

 D

 E

 

 A

 B

 C

 D

 E

1 京都サンガF.C.vs 名古屋グランパス2 01102     
2 大宮アルディージャvs ガンバ大阪2 11200     
3 サンフレッチェ広島vs 川崎フロンターレ2 11021     
4 横浜F・マリノスvs セレッソ大阪0 21112      
5 アルビレックス新潟vs 浦和レッズ2 22110    
6 湘南ベルマーレvs ジュビロ磐田0 21121      
7 FC東京vs 鹿島アントラーズ0 12121      
8 清水エスパルスvs ベガルタ仙台1 20211    
9 ヴィッセル神戸vs モンテディオ山形2 22001    
10 コンサドーレ札幌vs 柏レイソル0 20012    
11 ジェフユナイテッド千葉vs 横浜FC1 01011   
12 カターレ富山vs ギラヴァンツ北九州1 01221

平均

   
13 アビスパ福岡vs FC岐阜2 20101    
   勝ち3 376585.835234
   負け6 733434

的 中 数

   引き分け4 334423.2     


totoって意外と配当が低いね。
やっぱり6億狙って、次からBIGを買うことにするよ。






Last updated  2010/04/12 08:52:30 PM
コメント(0) | コメントを書く
2010/04/09
カテゴリ:toto

  合

結果

 

予 想

 

No

ホーム

 

アウェイ

 

 A

 B

 C

 D

 E

 
1 京都サンガF.C.vs 名古屋グランパス0 01102 
2 大宮アルディージャvs ガンバ大阪0 11200 
3 サンフレッチェ広島vs 川崎フロンターレ0 11021 
4 横浜F・マリノスvs セレッソ大阪0 21112 
5 アルビレックス新潟vs 浦和レッズ0 22110 
6 湘南ベルマーレvs ジュビロ磐田0 21121 
7 FC東京vs 鹿島アントラーズ0 12121 
8 清水エスパルスvs ベガルタ仙台0 20211 
9 ヴィッセル神戸vs モンテディオ山形0 22001 
10 コンサドーレ札幌vs 柏レイソル0 20012 
11 ジェフユナイテッド千葉vs 横浜FC0 01011 
12 カターレ富山vs ギラヴァンツ北九州0 01221

平均

13 アビスパ福岡vs FC岐阜0 20101
   

勝ち

0 376585.8
   

負け

0 733434
   

引き分け

13 334423.2

toto乱数予想方法






Last updated  2010/04/09 08:31:39 PM
コメント(0) | コメントを書く
2010/04/05
カテゴリ:toto

試  合

結果

 

予 想

 

的 中

No

ホーム

 

アウェイ

 

 A

 B

 C

 D

 E

 

 A

 B

 C

 D

 E

1 セレッソ大阪vs 京都サンガF.C.1 11222    
2 横浜 F・マリノスvs 清水エスパルス2 00111      
3 アルビレックス新潟vs 大宮アルディージャ0 10122     
4 モンテディオ山形vs サンフレッチェ広島1 02222      
5 名古屋グランパスvs ヴィッセル神戸1 01011   
6 浦和レッズvs 湘南ベルマーレ1 11111 
7 ベガルタ仙台vs 鹿島アントラーズ1 00222      
8 ジュビロ磐田vs ガンバ大阪1 10210    
9 川崎フロンターレvs FC東京1 01102    
10 カターレ富山vs 横浜FC1 22020      
11 徳島ヴォルティスvs 大分トリニータ2 11101      
12 ギラヴァンツ北九州vs ジェフユナイテッド千葉2 01222

平均

  
13 柏レイソルvs 水戸ホーリーホック1 21111 
   

勝ち

9 576555.636454
   

負け

3 225664.2

的 中 数

   

引き分け

1 642223.2     

今回は最高で6試合的中。1等は遠いな。






Last updated  2010/04/05 07:47:02 PM
コメント(0) | コメントを書く
2010/04/01
カテゴリ:toto

試  合

結果

 

予 想

 

No

ホーム

 

アウェイ

 

 A

 B

 C

 D

 E

 
1 セレッソ大阪vs 京都サンガF.C.0 11222 
2 横浜 F・マリノスvs 清水エスパルス0 00111 
3 アルビレックス新潟vs 大宮アルディージャ0 10122 
4 モンテディオ山形vs サンフレッチェ広島0 02222 
5 名古屋グランパスvs ヴィッセル神戸0 01011 
6 浦和レッズvs 湘南ベルマーレ0 11111 
7 ベガルタ仙台vs 鹿島アントラーズ0 00222 
8 ジュビロ磐田vs ガンバ大阪0 10210 
9 川崎フロンターレvs FC東京0 01102 
10 カターレ富山vs 横浜FC0 22020 
11 徳島ヴォルティスvs 大分トリニータ0 11101 
12 ギラヴァンツ北九州vs ジェフユナイテッド千葉0 01222

平均

13 柏レイソルvs 水戸ホーリーホック0 21111
   

勝ち

0 576555.6
   

負け

0 225664.2
   

引き分け

13 642223.2

今回からチーム成績を反映させるようにしたよ。

toto乱数予想方法






Last updated  2010/04/01 09:47:21 PM
コメント(0) | コメントを書く
2010/03/29
カテゴリ:toto

試  合

結果

 

予 想

 

的 中

No

ホーム

 

アウェイ

 

 A

 B

 C

 D

 E

 

 A

 B

 C

 D

 E

1 川崎フロンターレvs 清水エスパルス0 10010   
2 鹿島アントラーズvs モンテディオ山形1 11120   
3 ヴィッセル神戸vs 横浜 F・マリノス0 01112     
4 ジュビロ磐田vs 京都サンガF.C.2 21221   
5 セレッソ大阪vs 浦和レッズ2 01211     
6 湘南ベルマーレvs アルビレックス新潟1 01212    
7 大宮アルディージャvs FC東京2 11110      
8 ガンバ大阪vs ベガルタ仙台0 22220     
9 ジェフユナイテッド千葉vs ザスパ草津1 12221    
10 横浜FCvs 徳島ヴォルティス2 00200     
11 ロアッソ熊本vs FC岐阜1 22121    
12 コンサドーレ札幌vs ファジアーノ岡山1 12101平均  
13 アビスパ福岡vs カターレ富山1 21201   
   

勝ち

6 575565.654726
   

負け

4 447524.4

的 中 数

   

引き分け

3 421353     


今回は最高で7レース的中か。

チームの成績を考慮しないとこれ以上的中させるのは難しいかな。






Last updated  2010/03/29 08:52:53 PM
コメント(0) | コメントを書く
2010/03/25
カテゴリ:toto

試  合

結果

 

予 想

 

No

ホーム

 

アウェイ

 

 A

 B

 C

 D

 E

 
1 川崎フロンターレvs 清水エスパルス  10010 
2 鹿島アントラーズvs モンテディオ山形  11120 
3 ヴィッセル神戸vs 横浜 F・マリノス  01112 
4 ジュビロ磐田vs 京都サンガF.C.  21221 
5 セレッソ大阪vs 浦和レッズ  01211 
6 湘南ベルマーレvs アルビレックス新潟  01212 
7 大宮アルディージャvs FC東京  11110 
8 ガンバ大阪vs ベガルタ仙台  22220 
9 ジェフユナイテッド千葉vs ザスパ草津  12221 
10 横浜FCvs 徳島ヴォルティス  00200 
11 ロアッソ熊本vs FC岐阜  22121 
12 コンサドーレ札幌vs ファジアーノ岡山  12101平均
13 アビスパ福岡vs カターレ富山  21201
   

勝ち

0 575565.6
   

負け

0 447524.4
   

引き分け

0 421353

totoを乱数で買おう






Last updated  2010/03/25 08:44:54 PM
コメント(0) | コメントを書く
2010/03/22
カテゴリ:toto

試  合

結果

 

予 想

 

的 中

No

ホーム

 

アウェイ

  A B C D E  A B C D E
1 湘南ベルマーレvs サンフレッチェ広島2 21020    
2 清水エスパルスvs ヴィッセル神戸1 21200     
3 京都サンガF.C.vs ベガルタ仙台1 12011   
4 大宮アルディージャvs 鹿島アントラーズ2 22122  
5 ガンバ大阪vs アルビレックス新潟0 21202     
6 横浜 F・マリノスvs 川崎フロンターレ1 21001    
7 FC東京vs セレッソ大阪0 02011    
8 モンテディオ山形vs 浦和レッズ0 21110     
9 名古屋グランパスvs ジュビロ磐田1 10022     
10 ファジアーノ岡山vs ロアッソ熊本0 11011     
11 カターレ富山vs 大分トリニータ2 11112     
12 FC岐阜vs ヴァンフォーレ甲府2 01100平均     
13 柏レイソルvs アビスパ福岡1 11222   
   

勝ち

5 594545.464245
   

負け

4 633454.2

的 中 数

   

引き分け

4 216443.4     


最高で6試合的中か。
13試合的中するのは大変だね。

ところで楽天ブログって10000文字までなんだね。
普通は十分だと思うけど表を使うと足りなくなるね。

上の表でも全セル中央揃えや文字の色を変えたりすると10000文字超えるよ。






Last updated  2010/03/22 08:49:47 AM
コメント(0) | コメントを書く
2010/03/18
カテゴリ:toto

試  合

結果 

予 想

 
No

ホーム

 

アウェイ

  A B C D E 
1 湘南ベルマーレvs サンフレッチェ広島  21020 
2 清水エスパルスvs ヴィッセル神戸  21200 
3 京都サンガF.C.vs ベガルタ仙台  12011 
4 大宮アルディージャvs 鹿島アントラーズ  22122 
5 ガンバ大阪vs アルビレックス新潟  21202 
6 横浜 F・マリノスvs 川崎フロンターレ  21001 
7 FC東京vs セレッソ大阪  02011 
8 モンテディオ山形vs 浦和レッズ  21110 
9 名古屋グランパスvs ジュビロ磐田  10022 
10 ファジアーノ岡山vs ロアッソ熊本  11011 
11 カターレ富山vs 大分トリニータ  11112 
12 FC岐阜vs ヴァンフォーレ甲府  01100平均
13 柏レイソルvs アビスパ福岡  11222
   

勝ち

  594545.4
   

負け

  633454.2
   

引き分け

  216443.4


totoを乱数で買おうで書いた方法で出した予想でしばらく試してみるよ。

勝ち、負け、引き分けの平均数が5:4:3ぐらいになるまで再計算して、
5口分予想を出したよ。






Last updated  2010/03/18 07:53:54 PM
コメント(0) | コメントを書く
2010/03/13
カテゴリ:toto
totoってネットで購入できるからいいよね。

でも予想が面倒だね。

予想のいらないtotoBIGを買えばいんだけど、1口100円のtotoも買いたいな。

じゃあExcelで乱数予想できるように作ってしまおう。


totoは勝ち、負け、引き分けの3通りだけど、出現頻度は均等じゃないので5:4:3にする。

5+4+3=12だから乱数で1から12まで発生させて、
5以下を勝ち(1)、6以上9以下を負け(2)、10以上を引き分け(0)にする。

Excelで1から12までの乱数を発生するには
 =INT(RAND()*(12-1+1)+1)
この式をA1からM1(13試合分)に入力

発生した乱数から勝敗を決めるのに2行目(A2からM2)に
 =IF(○1<6,1,IF(○1<10,2,0)) を入力
 ○はAからM

5口ぐらい購入したいので、上の2行を3行目以降にコピー

この方法は毎回5:4:3になるわけじゃないけど、その方がいいよね。

F9を押すと再計算されて予想が変わるよ。






Last updated  2010/03/14 09:52:12 AM
コメント(0) | コメントを書く

全10件 (10件中 1-10件目)

1

PR

X

© Rakuten Group, Inc.