# 方法1 use constant PI => (4 * atan2(1,1)); sub deg2rad { my $degrees = shift; return ($degrees / 180) * PI; } sub rad2deg { my $radians = shift; return ($radians / PI) * 180; } # 方法2 use Math::Trig; $radians = deg2rad($degrees); $degre…

生成される値の分布を不均一にしたい。 # 標準偏差1, 平均0の正規分布に従った乱数を生成する方法 sub gaussian_rand { my ($u1, $u2); # 均等に分布した乱数 my $w; # 偏差(重み) my ($g1, $g2); # ガウス分布の数値 do { $u1 = 2 * rand() -1; $u2 = 2 * r…

Perlの提供する乱数よりもさらにランダムな乱数を生成したい。 # 方法1 use Math::TrulyRandom; $random = truly_random_value(); # 方法2 use Math::Random; $random = random_uniform();

srand EXPR; # 同じ乱数シーケンスを生成したい場合は、定数を指定する。

$random = int( rand( $Y-$X+1 ) ) + $X;

日本企業とAppleの違いって何？ とりあえず思いつく限り挙げると、 タイミング。日本企業は、技術を先取りするけど、いまいちタイミングが悪い。Appleは既存の技術をタイムリに提供する。 捨てる技術。日本企業は、小さいものを作るときでも、フルスペックを…

昨日書いたとおり、今、日本が必死になって進めてるデジタルテレビ放送と次世代DVDはイノベーションのジレンマに陥ってる気がします。 id:yukichanko:20080218:1203349976 いわゆる、PS3状態、というべきものかな。大多数のユーザはそんなもん必要ないのに、…

最近、表情が作れるようになってきたからか、だんだんと流し目を始めました。ふてぶてしぃ(笑) そのときの様子をぜひ写真にとりたいのに、そのときに限って、普通の表情に戻るねんなぁ。めっちゃ反抗期やわ。