これでは台湾以前に日本侵攻の危機

安倍首相、続投の意向表明…記者団の質問に「はい」(読売新聞) - goo ニュース

　これはもう反日マスコミ主導の反動選挙がものの見事に成就されたに等しい。今後、北朝鮮も中共も日本人の民度を見透かし、とことん攻勢をかけて来るだろう。この陣容では公務員改革も宙に浮くだろうし、日本の老人が受け取るべき年金など朝鮮人や中国人のための福祉に回ってしまって、日本の老後はミイラそのものとなるだろう。民主党の当選者など日教組や自治労の代表なのだ。皮肉にも、『小沢ちゃん痛くないように手術してね！』・・が実現してしまった。

　まあ、愚かな選択であったと私などは感じるのであるが、それが国民の総意だというなら結果として齎される果実がどんなものであろうと、食わされるのは国民一人一人なんだから、因果応報ということか。選挙の感想とは一億総ヒステリー選挙結果はクワバラ、クワバラになっちゃたね。

　この現実を見れば、アメリカも次期新鋭戦闘機など危なくて売れないという気に益々持ってなることだろう。返ってスパイ防止法の制定を強要されることになるのかもしれない。
　
　明日の株価はどうなるんだろうか。世界的に株安に振れている中、殊更心配である。
　

songzhaoのボケ封じ数学講座第３９講

　このコーナーは、かなり間が空いてしまいましたが、未だ数学に対する愛着を捨てた訳ではありません。

　今日は、確率と統計の接点を認識するために頑張ろうと思います。

　今日のお題は、ポケコンを楽しもうです。

　まず、次のプログラムを打ち込んでください。私が使った機種は昔懐かしのカシオ計算機のPB-７７０です。PB-７７０よ，よくも３０数年の風雪に耐えて今尚健在で、使用に耐えるとは恐れ入る。

　　１　ＣＬＳ：ＰＲＩＮＴ　”ガウスキョクセン&２コウブンプ”，”＜ｂｙ　ｓｏｎｇｚｈａｏ＞”
　　２　ＦＯＲ　Ｊ＝０　ＴＯ　２００：ＮＥＸＴ　Ｊ
　　５　ＲＥＭ＊＊ＧＡＵＳＳ　ＣＵＲＶＥ
　１０　ＣＬＥＡＲ：ＣＬＳ：ＤＩＭ　Ｄ（１３）
　２０　Ｉ＝０：ＦＯＲ　Ｚ＝－６　ＴＯ　６
　３０　Ｙ＝ＥＸＰ－（Ｚ＊Ｚ／２）／ＳＱＲ（２＊ＰＩ）
　４０　Ｉ＝Ｉ＋１：Ｄ（Ｉ）＝Ｙ
　５０　ＮＥＸＴ　Ｚ
　６０　Ｚ＝０：Ｉ＝０：ＦＯＲ　Ｊ＝１　ＴＯ　１２
　７０　Ｉ＝Ｉ＋１
　８０　ＤＲＡＷ（Ｉ＊７，３１）
　９０　ＤＲＡＷ（Ｊ＊７，３１－Ｄ（Ｉ）＊７＊１０）
１００　ＮＥＸＴ　Ｊ
１１０　ＦＯＲ　Ｊ＝－３　ＴＯ　２：Ｉ＝Ｊ＋０．５：Ｙ＝ＥＸＰ－（Ｉ＊Ｉ／２）／ＳＱＲ（２＊ＰＩ）
１２０　ＤＲＡＷ（（Ｉ＋７）＊７，３１－Ｙ＊７＊１０）：ＮＥＸＴ　Ｊ
１３０　Ａ＄＝ＩＮＫＥＹ＄：ＩＦ　Ａ＄＝””ＴＨＥＮ　１３０
１４０　ＲＥＭ＊＊ＰＲＩＮＴＯＵＴ　ＲＥＳＵＬＴＳ
１５０　ＦＯＲ　Ｊ＝－６　ＴＯ　６
１６０　ＰＲＩＮＴ　”Ｚ＝”；Ｊ，”Ｙ＝”；Ｄ（Ｊ＋７）　
１７０　Ａ＄＝ＩＮＫＥＹ＄：ＩＦ　Ａ＄＝””ＴＨＥＮ　１７０
１８０　ＮＥＸＴ　Ｊ
２００　ＲＥＭ＊＊２コウ　ブンプ　
２１０　ＣＬＳ：ＩＮＰＵＴ”コスウ　Ｎ”；Ｎ
２２０　Ｃ＝１：Ｅ＝１：Ｉ＝０
２３０　ＦＯＲ　Ｘ＝０　ＴＯ　Ｎ：Ｉ＝Ｉ＋１
２４０　ＩＦ　Ｘ＝０　ＴＨＥＮ　ＧＯＴＯ　２６０
２５０　Ｃ＝Ｃ＊Ｘ：Ｄ＝Ｎ－Ｘ＋１：Ｅ＝Ｅ＊Ｄ
２６０　Ｙ＝（Ｅ／Ｃ）＊０．３＾Ｘ＊０．７＾（Ｎ－Ｘ）
２７０　ＤＲＡＷ（Ｉ＊７，３１－Ｙ＊７＊１０）
２８０　ＮＥＸＴ　Ｘ
２９０　Ａ＄＝ＩＮＫＥＹ＄：ＩＦ　Ａ＄＝””　ＴＨＥＮ　２９０
３００　ＧＯＴＯ　２００

　所謂『ポケコン』なるものが現在発売されているか、私は知りませんが、機種によって、グラフィック機能の範囲が違ってきますので注意してください。例えばＦＸ－８９０Ｐなどでは、Ｘ軸の範囲が０＜＝Ｘ＜１９２、Ｙ軸の範囲が０＜＝Ｙ＜６４となりますので、２７０行のＤＲＡＷ文の単位あたりのドット数を７ドットから１５ドットに変更すれば更に見やすくなります。２７０　ＤＲＡＷ（Ｉ＊１５，６３－Ｙ＊１５＊１０）というふうに変更してみてください。８０行、９０行、１２０行も同様に変更対象となります。

　このプログラムをＲＵＮ（実行）すると、はじめに教科書等でおなじみのガウス曲線の姿を見ることができます。その数式は、Ｙ＝１／ＳＱＲ２＊ＰＩ＊ＥＸＰ－Ｚ＾２／２ですが、このプログラムでは、Ｙ＝ＥＸＰ－（Ｚ＊Ｚ／２）／ＳＱＲ（２＊ＰＩ）と変形して使用しています。因みに、教科書でもおなじみのガウス曲線はＹ軸方向に１０倍拡大されています。曲線が表示された後、キーを押していくと次々と標準偏差Ｚのマイナス６倍からプラス６倍の間のＹの値が表示されます。

　次に二項分布からのアプローチを試みます。「コスウ　Ｎ」を入力するように求めてきますので、標本数Ｎをさまざまに入力してみてください。Ｎの値が大きくなると、山が次第に左右対称となり高さが低くなり、画像が右に寄って行きます。この現象を『標準化』するために、２７０行を次のように変更してみます。２７０　ＤＲＡＷ（Ｉ＊７／ＳＱＲ（Ｎ＊０．２１），３１－Ｙ＊７＊１０＊ＳＱＲ（Ｎ＊Ｏ．２１））・・・変更してから、Ｎの値をいろいろと変えて図形の変化を検証して見てください。ほとんど図形が変化しないことが認識されるはずです。


　ところで、ＦＸ－８９０Ｐという機種では、ＮＣＲ（Ｎ，Ｘ）という組合せを計算できる関数が組み込まれているので、２３０行以下はとても簡単な文章で済みます。

２２０　Ｉ＝０
２３０　ＦＯＲ　Ｘ＝０　ＴＯ　Ｎ：Ｉ＝Ｉ＋１
２４０　Ｙ＝ＮＣＲ（Ｎ，Ｘ）＊０．３＾Ｘ＊０．７＾（Ｎ－Ｘ）
２５０　ＤＲＡＷ（Ｉ＊１５，６３－Ｙ＊１５＊１０）
２６０　ＮＥＸＴ　Ｘ
２７０　Ａ＄＝ＩＮＫＥＹ＄：ＩＦ　Ａ＄＝””ＴＨＥＮ　２７０
２８０　ＧＯＴＯ　２００

　と、このように簡単なプログラムで済んでしまいます。（それにしても、Ｎ個から０個取り出す組み合わせが『ある＝１』とした定義には結構煩わされますね。）