【環境】京都議定書 基準年

基準年設定（１９９０年）は、現段階でEUに著しく有利なポジションを与えているが、これは数字遊びであり、一人当たりの排出量へ議論が進めばまったく意味がなくなるであろう。（ＥＵが有利でなくなる）
この株に似たシステムは、成立するのであろうか？

・１９９０年
東西ドイツ統合の年
英国：従来の石炭保護政策の転換で天然ガスへの移行が急速に進む

【自動車】エンジンオイルの消費

油が燃焼室に入り込み、排気管に排出されて消費される。
・主要因
①油下がり
バルブシステムの潤滑に使われた油が下がる
②油上がり
ピストン周りの潤滑に使われた油が上がる

【scilab】WAV読み込み

//初期化
x=[];
//wavファイルを読み込み
x=loadwave('c:\test.wav');
for i=1:length(x)/2;
L1(i)=x(i*2-1); //Lの音
R2(i)=x(i*2); //Rの音
end
plot(L1(1:100)); //表示

【perl】参考

Perl講座①
http://www.rfs.jp/sb/perl/index.html

Perl講座②
http://www.site-cooler.com/kwl/perl/

Perl入門
http://www.kent-web.com/perl/

Perl TIPS
http://ash.jp/perl/index.htm

Perlリファレンスマニュアル
http://www.nwt.jp/document/perlfunc/index.htm

【perl】scilab用データ変換

#ファイルオープン
open(READ_FILE,"＜abc2.txt");
#１行づつ読み込む
while($read_data = ＜READ_FILE＞)
{
#スペース区切りを分解
@foo = split (/￥s+/, $read_data);
#配列の長さを調べる
$length = @foo;
for ($xx = 1; $xx ＜= $length; $xx++) {
$yy = $xx -1;
#値の入っているもののみ、配列ａへ格納
unless($foo[$yy] == ""){
push(@a, $foo[$yy]);
}
}
}

#ファイルを閉じる
close(READ_FILE);

#配列の長さを調べる
$length = @a;
for ($xx = 1; $xx ＜= $length; $xx++) {
print $a[$xx-1];
#カンマを追加しcsv形式に変換
print ",";
#10項目ごとに改行
if( ($xx % 10) == 0 ) { print "\n"; }
}

【perl】スペース区切りデータ読み込み

#ファイルオープン
open(READ_FILE,"＜test.txt");
#１行読み込み
$read_data = ＜READ_FILE＞;
#スペースで分割
@foo = split (/￥s+/, $read_data);
#1つ目表示
print $foo[1];
#ファイルクローズ
close(READ_FILE);

【画像】EXIF

http://www2.airnet.ne.jp/kenshi/exif.html