宝くじを買ってみる

年末ジャンボ宝くじの案内メールが来ていた。それによると、大金が当たる賞の割合は、発売総数が70ユニットのとき、

1等　2億円　70本

2等　1億円　140本

元気に2010年賞　100万円　7,000本

ということらしい。70ユニットは発売総額2,100億円になるので、1ユニット=1,000万枚である。当選確率を計算してみると、つぎのようになる。

2億円　1,000万分の1

1億円　500万分の1

100万円　10万分の1

つまり宝くじ一枚あたりの当選金期待値は 20 + 20 + 10 = 50円。ということは、宝くじへの投資平均リターンは-250円。実に「マイナス83％」！

ほぼ確実に損するわけだから、合理的な判断をするなら絶対に買わない。

けれども、今年は1枚買ってみようかと思う。なぜなら、株などと違って、必ず一定の確率で「当たり」があるから。株のリターンは未知だけれど、宝くじのリターンは既知なのだ。株を買うだけでも手数料で300円くらい取られる。どうせ300円を払うなら、宝くじ1枚のほうが価値がある。

という屁理屈をこねてみる。

コメント

コメントを投稿

このブログの人気の投稿

Gbps でなく GT/s

最近の通信速度の単位は、Gbps (Gigabits per second) でなく、GT/s (GigaTransfers per second) なのだそうです。 なにが違うのかと言うと実効速度。最近の高速シリアル通信では、8ビットのデータを転送するのに10ビット使う（8b/10bエンコーディング）など、冗長なエンコーディングを使っているため、GT/s で表示された値よりも実効速度は低くなるのです。例えば、8b/10bを使う160 GT/s の通信ケーブルにおける実際のデータ転送レートは、128Gbpsとなります。 なぜこのような「無駄」をするかというと、同じ通信経路上にデータとクロック信号（受信側でデータを読み取るタイミングを知らせる信号）を載せるためです。データとクロックを同じ配線に載せることによって、一本の通信路だけでデータを正しく読み取れるようになります。 参考文献 "What does GT/s mean anyway?", TMWorld.com "8b/10b", Wikipedia
続きを読む

PowerShellによるExcel/PowerPointの操作

PowerShellを使って，ExcelとPowerPointを操作してみた．これ自体は，RubyやVBなどでも実現できるのだが，PowerShellだと，シェルで実現できるのでとても自然に実現できるのが良い． ExcelでCSVファイルを読み込んでXLSファイルで保存する 次のスクリプトを実行すると，"test.csv"ファイルの内容をExcelワークブック形式のファイル"test.xls"として書き出す． $xl = New-Object -ComObject Excel.Application $wb = $xl.Workbooks.Open(".\test.csv") $wb.SaveAs(".\test.xls", [Microsoft.Office.Interop.Excel.XlFileFormat]::xlWorkbookNormal) $wb.Quit() PowerPointの全シートをPNG画像として保存する 次のスクリプトを実行すると，"test.ppt"を読み込んで，そのすべてのスライドをPNG形式の画像ファイルとして"test"ディレクトリに生成する．ただし，なぜか，最後にウィンドウが閉じないのが未解決の課題。 $ppt = New-Object -ComObject PowerPoint.Application $ppt.Visible = [Microsoft.Office.Core.MsoTriState]::msoTrue $pres = $ppt.Presentations.Open(".\test.ppt") $pres.SaveAs(".\test", [Microsoft.Office.Interop.PowerPoint.PpSaveAsFileType]::PpSaveAsPNG) $pres.Close() $ppt.Quit() 参考 Excelオブジェクト・モデル・リファレンス PowerPointオブジェクト・モデル・リファレンス
続きを読む

TV視聴サーバー

週末、EarthSoftのPT3が届いたので、月曜の晩からWindows7マシン上で試している。まず TVTest を使って PC 上で地デジ視聴および録画が出来るところまで確認した。そして Spinel で LAN 上で映像を配信することができ、今晩は EpgDataCap_Bon にてストリーミングし、VLC media player で表示することができた。 ネット上に設定方法からなにからなにまで全部手順が細かく紹介されているので、ほとんど労せずに手順を踏襲するだけでうまく行く。何がどうなっているのかはひとまず後で理解することにして、先に進む。 サーバーの起動まではうまくいったみたいなので、まずはローカルで接続してみたら、あっさり成功した。次は LAN上の別のPCから。 これがうまくつながらない。ファイアウォール設定をいろいろ試しても、つながらない。telnetでポートを指定してみても、localアドレスならばつながるが、リモートからではダメ。同じネットワークアドレスでもダメだった。 色々調べた結果（最終的には VC++ で socket プログラミングまでやってしまった。。。）、アンチウィルスソフトのファイアウォールがブロックしていたことが判明。これをうまく回避するようにしないとならないことが分かった。これも、ネットで調べるとあっさり方法が分かったので、すぐに解決した。 UDP ストリーミングでまたうまく受け取れずにつまづいたが、今度はなつかしの tcpdump も使って受信を確認すると、なんとか表示できた。Windows7 マシンから PT3 + Spinel で放送波からTSを抜いてネット配信。それをローカルで受け取った EDCB が、UDP でストリーミング、無線LANでつながっている Mac Book Air の VLC player 受け取って表示する。これで、フルHDの映像（もちろん音声も）が問題無く再生できた。 しかしながら、最終的には TV 視聴はあまり必要では無い。それよりも、TV 録画してとり貯めた映像をネットを通して iPad, iPhoneからでも見えるようにしたい。それに、録画予約もネット上から出来るようにしたい。つまりは、録画＋メディアサーバー＋HTPCという位置づけのものを構築したいと思っている。
続きを読む