そろそろホンキ出す -8ページ目

シャツが

今日電車の窓ガラスに映った自分を見て気づいたんだけど、
自分のシャツだけ黄ばみが凄い。
いや周りの人たちのシャツが白すぎるのかも

と思って家に着いてから白そうなものと比べたら確かに尋常じゃないくらい黄ばんでた。

３枚中３枚とも同程度の黄ばみ進行中だった。
洗濯はしてるけど、長く着てるからもう限界なのか

漂泊的なものを一切したことがないからなのかな？

変え時がわからん。

急に真っ白なのに変えるのもなんだし、今週はコレでいくか。。

神の領域、神の所業　～確率を操る～

わたくしのような凡人が決して立ち入ってはならない、確率を操る世界へ一歩だけ足を踏み入れてみたいと思います。

前もって固定の値を決めておかずに、実行させた時にランダムな値を得たい時ってあるよね～ (あるあるぅ～)
ハイ、そんな時にはこのrand()関数が使えるのさ。

関数仕様はこんな感じ

int rand(int $min, int $max);

こう書けば1～10のうちいずれかを返してくれるぜぃ

$num = rand(1, 10);

条件式として0か1の真偽値を返すようにすれば５０％の確率で条件内容が処理されるわけさ

if (rand(0, 1)) {
    echo "夏だぜぃ！";
}

応用として、1/5の確率ならこう書けばよかろう

if (rand(1, 5) === 1) {

}

3/5ならこうか

if (rand(1, 5) > 2) {

}

ではこの関数がどれだけ乱れるかを実験してみるぞなもし

■乱数実験１　確率と回数

<?php

// 100回
$result = simulate(100);
print_s($result);

// 10000回
$result = simulate(10000);
print_s($result);

// 1000000回
$result = simulate(1000000);
print_s($result);


function simulate($n) {

    $result = array_fill(1, 10, 0); //配列添え字1～10を0初期化

    for ($i=0; $i<$n; $i++) { // $n回繰り返す

        //1～10のいずれが出たかをカウント
        $result[rand(1, 10)]++;
    }

    return $result;
}

function print_s($array) {

    printf("[%d回シミュレート]\n", array_sum($array));

    foreach ($array as $i => $count) {

        printf("%2d-> %6d\n", $i, $count);
    }
}

・結果

[100回シミュレート]
 1->     16
 2->      9
 3->     18
 4->      5
 5->      8
 6->     10
 7->      7
 8->      9
 9->     12
10->      6
[10000回シミュレート]
 1->    966
 2->    985
 3->    977
 4->   1027
 5->    975
 6->   1003
 7->    982
 8->   1055
 9->    977
10->   1053
[1000000回シミュレート]
 1-> 100022
 2-> 100006
 3-> 100055
 4->  99995
 5-> 100026
 6->  99988
 7-> 100025
 8->  99956
 9-> 100010
10->  99917

このように、回数多くやった方がより均等にバラつかせられることが分かる。
つまりできるだけいいサンプル採るには多めにやれってことだね。
これはゲームとかシミュレーションに使えるぞな！

■乱数実験２　確率を割り当てる

例えば１０％の確率でＡになって、３３％はＢになって、残りはＣになる・・・
みたいな感じで割り当てればよさそうなので、百分率という名のとおり、1～100が出るようにすれば割り当てがうまくできそうだ。

つまりザッとこんな感じで書けるだろう

$num = rand(1, 100);

if ($num <= 10) {  // 10%は
    echo 'A';
} else if ($num <= 10 + 33) { // 33%は
    echo 'B';
} else {           // 残りは
    echo 'C';
}

ではこれが果たして想定どおりの確率になっているかを確かめる。
より精度が上がるよう1000000回試す

<?php
define("SIMULATE_NUM", 1000000);

for ($i=0; $i<SIMULATE_NUM; $i++) {
    $result[simulate()]++;
}

asort($result);
foreach ($result as $Character => $count) {
    printf("%s-> %2.3f\n", $Character, $count / SIMULATE_NUM * 100);
}

// 設定確率でAかBかCを返す
function simulate() {

    $num = rand(1, 100);

    if ($num <= 10) {
        $result = 'A';
    } else if ($num <= 10 + 33) {
        $result = 'B';
    } else {
        $result = 'C';
    }

    return $result;
}

・結果

A-> 9.998
B-> 33.001
C-> 57.000

割とイケてる結果が出たんじゃないでしょうか？
何度やってもだいたいこれくらいの誤差で表示できました。

■乱数実験３　シミュレーション

最後にちょいとしたジャンケンのシミュレーションをば

ジャンケンは２人でやるものとして、人間クラスがまず必要。
あとはこの両者を登録して戦わせる為のバトルクラスを作ればうまくいきそうだね。

ってことで作って戦わせてみました。

<?php
define("GOO"  , "goo"  );
define("CHOKI", "choki");
define("PAA"  , "paa"  );


class Person
{
    private $_goo   = 33;
    private $_choki = 33;
    private $_paa   = 33;

    public function setGoo($per) {
        $this->_goo = $per;
    }
    public function setChoki($per) {
        $this->_choki = $per;
    }
    public function setPaa($per) {
        $this->_paa = $per;
    }
    //設定の確率でジャンケンを繰り出す
    public function janken() {
        $result = rand(1, 100);
        if ($result <= $this->_goo) {
            return GOO;
        } else if ($result <= $this->_goo + $this->_choki) {
            return CHOKI;
        } else {
            return PAA;
        }
    }
}


class Battle
{
    private $_person1;
    private $_person2;

    public function setPerson1($obj) {
        $this->_person1 = $obj;
    }
    public function setPerson2($obj) {
        $this->_person2 = $obj;
    }
    private function _judge($person1, $person2) {

        if ($person1 === GOO   && $person2 === CHOKI
         || $person1 === CHOKI && $person2 === PAA
         || $person1 === PAA   && $person2 === GOO) { // person1 win
            return '1win';
        } else if ($person1 === $person2) { // draw
            return 'draw';
        } else {
            return '2win';
        }
    }
    public function go() {
        return $this->_judge($this->_person1->janken(),$this->_person2->janken());
    }
}


// 人間オブジェクト１と２作成
$person1 = new Person();
$person2 = new Person();

// 第１バトルのタイトル表示
echo "Battle1): 1(33,33,34), 2(33,33,34)\n";
// 属性設定
$person1->setGoo(33);
$person1->setChoki(33);
$person1->setPaa(34);
$person2->setGoo(33);
$person2->setChoki(33);
$person2->setPaa(34);
// バトルオブジェクト作成
$battle = new Battle();
$battle->setPerson1($person1);
$battle->setPerson2($person2);
// バトル
for ($i=0; $i<1000000; $i++) {
    $result[$battle->go()]++;
}
// 結果表示
print_r($result);


// 第２バトル
echo "Battle2): 1(33,33,34), 2(10,10,80)\n";
$person2->setGoo(10);
$person2->setChoki(10);
$person2->setPaa(80);

$result = array();
for ($i=0; $i<1000000; $i++) {
    $result[$battle->go()]++;
}
print_r($result);


// 第３バトル
echo "Battle3): 1(33,33,34), 2(0,0,100)\n";
$person2->setGoo(0);
$person2->setChoki(0);
$person2->setPaa(100);

$result = array();
for ($i=0; $i<1000000; $i++) {
    $result[$battle->go()]++;
}
print_r($result);


// 第４バトル
echo "Battle4): 1(50,50,0), 2(0,50,50)\n";
$person1->setGoo(50);
$person1->setChoki(50);
$person1->setPaa(0);
$person2->setGoo(0);
$person2->setChoki(50);
$person2->setPaa(50);

$result = array();
for ($i=0; $i<1000000; $i++) {
    $result[$battle->go()]++;
}
print_r($result);

・結果

Battle1): 1(33,33,34), 2(33,33,34)
Array
(
    [draw] => 333298
    [2win] => 333196
    [1win] => 333506
)
Battle2): 1(33,33,34), 2(10,10,80)
Array
(
    [draw] => 338097
    [1win] => 330884
    [2win] => 331019
)
Battle3): 1(33,33,34), 2(0,0,100)
Array
(
    [1win] => 329962
    [draw] => 340029
    [2win] => 330009
)
Battle4): 1(50,50,0), 2(0,50,50)
Array
(
    [2win] => 249812
    [1win] => 500372
    [draw] => 249816
)

この結果を見ますと、

グー・チョキ・パー平均的に出す人同士はやはり勝ち負けあいこすべて同程度
片方だけが割合変えると、あいこは多くなるが勝ち負けは同程度
グー・チョキ・パーのうち、どれか１つを出さない者同士でジャンケンすると、かみ合わせいい方が倍勝てる

人間の場合はどれを最初に出すかだけ見ても癖があるし、感情動物なので熱くなると一定のパターンに陥ってそれが吉と出るか凶と出るかどちらかに傾くだろう。
つまり、ジャンケン強いと豪語する人に対しては何の感情も持たない乱数をうまく使えば対等な勝負ができそうだ。

ただ、ジャンケンは１００万回も繰り返すことはないので、短期決戦、出たとこ勝負。
そう考えると、相手のクセを見抜いて勝つほうが確率が上がるだろう。

地デジ化

本日の正午でテレビが地上波アナログ放送と地上デジタル放送の混在から、地上デジタル放送１本になる。

今、地デジ関連のＨＰ見ようとしたけど、重過ぎて開けない状態だ。

幸いわたしは２００５年からＰＣで地デジをずっと視聴してるので慌てることはなかった。

テレビは登場以来、娯楽の王様。

下手すると時間を吸い取る魔物。

ずっと後にインターネットが登場してネット放送がテレビに取って代わると言う人もいるが、相手にならないだろう。

ネット放送は見る側がわざわざ視聴したいものを探し出して視聴する手間がかかるのに対して、

テレビの場合、送り手が視聴者が見たいであろうものをまとめて、一方向で垂れ流してくれるから見る側はテレビという専用ハードさえあればなにも考えることなく楽しめてしまう。

テレビは、ずっと後に出てきたネットの究極最終形態の１つなのかも知れない。

電波を使えばネット上のサーバと違って、より多くの視聴者に対応できる。

今回の地デジ化によって空いた電波周波数帯の有効利用に注目だ。

シャツが

神の領域、神の所業 ～確率を操る～

地デジ化

神の領域、神の所業　～確率を操る～