またまた、当たっちゃった！
マールボロの懸賞に当たってしまいました。前々回、「マールボロの懸賞」 って事で書いてました。この時は、「オリジナル・アイスクーラー」 で、その次が「ジェットライター」 でした。
～ 今回は…。 ～
ちょっと嬉しいかも。と言うのも「マルチユースバック」が当たったのでねぇ。こう言う物って、買う事がないからね。しかも、懸賞で当たったんだからね。前回の「ジェットライター」だと別に欲しくもない。ライターには困ってないから…。 （普段からジッポーライターなもんでね。）
～ 今回も大量投入 ～
暫く貯め込んでいたので、ここぞとばかりに応募したら当選した。今回も２０口に近い数を応募したと思う。やはり大量に応募するなら２０口近く貯め込んで応募する方が当たる可能性がありそうだ。
～ しかし…。 ～
何が当たるかが判らないので下手をすると同じものが当りそうだなぁ。早く今回のキャンペーンが終了して新しい景品にならないかなぁ。１口応募するごとに１ポイント貯まるので２０口も応募すると２０ポイント貯まる。しかし、ポイントで応募したい景品が無いのでポイントは貯まり放題。ポイントで懸賞に応募できるけども「これは！」って物がねぇ…。
～ こんなに懸賞に当る事は ～
今までにありませんでした。しかし、マールボロの懸賞については、かなりの高確率（俺の当選確率）で当っているような…。他の懸賞は、全くといって良いほど当たらないのになぁ。ひょっとして応募する人が少ない（賞品が良くないから）のかな？
航空祭に行ってきた。
一人で航空祭に出かけました。雨の予報も出ていたので長袖（当然、腕まくり状態ですが）を選んだのですけど…。
～ 炎天下 ～
暑すぎますよ！基地内の気温３０℃と何度も放送が入り、水分を補給するように注意されるんですが何処の出店も人だかりで物を買うにも長い行列に並ばないと駄目な状態。１１時の時点で俺は、日焼けしてまいました。
見通しが良い（滑走路があるんだから、当然かぁ）ので風が吹いてくれると気温が高くても涼しさの方が勝ります。しかし、たま～にしか風が吹いてくれません。ジュースを何とか購入して格納庫脇に直に座って休んでいると段々と俺の周りに真似するかのように人が座り始めました。（俺は、一人でのんびりと座って居たかったんだが…。）タバコを吸う為にわざわざ人の迷惑にならない所に座っていたのに後から真似して座ってきたおばさんに睨まれるし…。（気を使って誰もいない所にいたのに自分からタバコ吸う人の側に座るなよな！）
～ 雲行きが怪しい。 ～
12時を過ぎる頃になると分厚い黒い雲が多くなってきた。このままではブルーインパルスが飛ばない可能性が…。しかし、プログラムでは１３時４５分。まだまだ時間がある。そこで戦闘機以外の何か珍しいものは無いかと展示物を 見てたら…。
～ クラスター爆弾！？ ～
日本にもこんな爆弾があったのか？これの発射された時の映像ときたら…。兎に角こいつが着弾した地点には何も無くなるくらいの状態になるんだからなぁ。
例え戦争に使用する兵器だからと言われても、あまりにも適当すぎる散らばりようと破壊力を考えると地雷に匹敵するほどの惨さがあるような気がしてならない。
～ 戦闘機以外を見る事が少なかったなぁ ～
今まで戦闘機ばかりを見て来てたので、こう言った物まで注意してなかった。これから行く機会があれば、このような物もあるかもしれないので気を付けて見る事にしようと思いましたよ。
その他にも色々と見て回ったけどもブルーインパルス登場まで１時間以上。さて、どうするべきかと歩いていると…。
～ 雨だぁー ～
降って来ちゃったんですよねぇ。迷わず格納庫内に非難すると…。雨が直ぐに止んでしまいました。それならと外に出るとまた１５分ほどで雨が降ってきます。そんな事をしていると。プログラムにも存在しないF16とF-2の離陸が…。ん？スクランブルか？と思ったんだけども米軍機がスクランブルで飛び立つはずがない。なんなんだろう？？？全部で６機ほど飛んで行きました。
～ いよいよブルーインパルス登場！ ～
なんとか雨は持ちましたが、雲が低い。これは大幅な演技種目の変更があるなぁ。と思いながら見てました。するとブルーインパルスが滑走路に向かう為に移動を始めた時です。またもや米軍機が４機離陸して行く。おかしいですよ、ブルーインパルスが
滑走路に向かう時に、このような離陸があるってのは…。何か事件でも起きたの
か？と思ってしまいました。
～ 思った通りでした。 ～
ブルーインパルスの演技に高さを使った物が殆どありません。全てが水平方向への演技です。（楽しみにしてた空中開花が見れない！）演技時間も少なく簡単に終わった感じがしました。しかし、そのおかげか前方で陣取っていた観客がいなくなってくれて最前列まで出る事ができました。ブルーインパルスは、着陸後の滑走路上で行われる事までが一つ演技なのでそれを見ないで帰るのは勿体無い。（まぁ、殆どの観客がピクニック気分でいるのでしょうがないだろうけども。）
何年ぶりに最後まで見たかなぁ。今度は絶対に初めから終わりまで見たいなぁ…。（仲間が沢山いれば陣取りして過ごせるんだけどもねぇ）
暇潰し…。
暇な時間にプログラムを作ろうとしたのは良いのだが…。
～ 再勉強だぁ ～
久しぶりにビジュアルBASIC（Visual Basic 2005 Express Edition）を使って何かを作ってみようかと向かったんですけどもね。VB６に慣れきった俺にとっては、オブジェクトへの受け渡しなどが変わっていて一から再勉強しなきゃ解らない状態でした。
～ そんなこんなで１時間 ～
ま、それなりに使えるようになるもんですねぇ。VBから１年近く遠ざかっていたので忘れていた部分が多かったのが原因のようです。それも何とか解決して、それでは何を作ろうかと考えたんですが…。何も浮かびません。
～ ストックとして何かを作るか！ ～
って、事で乱数を作ることにしました。「Rnd関数があるじゃないか！」と言われそうですが、Rnd関数で1～10までの乱数を１０００個程取得し、その数値をグラフ化するとほぼ１～１０まで均一に発生している状態である事が判ります。つまり均一に全ての数字が前回発生した値と被らないように出現しているって事になるんだろう。（この場合は、一気に１０００個取得した場合。１回づつ取得し場合は、同じ値が出現する場合がある。）
俺が今回作っておこうと思っているのは、釣鐘型（グラフ化すると釣鐘に見える。正規分布図）の乱数値を発生させる物です。基本的には、そんなに難しくないので一気に作ろうとしたんだけども…。やっぱり高卒（それも工業系だから数学的な部分は相当レベルが低い。）だと平均偏差と標準偏差と言われても・・・？でした。
～ こう言う場合は、とりあえず作ってみる。 ～
こう言う場合は、プログラムを書くのだから難しい事を考えずに兎に角作って動かして見るに限る。実際に作って平均偏差と標準偏差を変更して見てどのようにグラフが変わるかを観察すれば良いのだ！と作って何度もグラフを確認しネットで標準偏差を調べて（調べた方が難しく解りにくかった。）再び値を変更して…。まぁ、仕事などで使う物で無いのである程度、期待した形になれば良かったので完成したと納得してます。
ちなみに釣鐘型の乱数を発生させる式は…。
平均偏差 ＋ （標準偏差 × （Sqr（２×Log（Rnd（）） × Cos（6.28×Rnd（）））
だそうです。（今、自分で書いていてやっと理解できる感じになった。）
しかし、こんな事の為に２時間も・・・。あ、暇潰しだったから丁度良かったのか。
Visual Basic 2005 Express Editionは無料で下記のマイクロソフトのページでダウンロードできます。
http://www.microsoft.com/japan/msdn/vstudio/express/