ページ

2008年3月27日木曜日

【検索】google特別構文1

キーワードの除外   「-」
完全一致検索     「”キーワード”」
AND検索 OR検索 「AND OR」
キーワードのみ検索  「+」
ファイル種類指定   「filetype:」
ドメイン指定     「site:」
アドレス指定検索   「inurl:」
アドレス指定複数検索 「allinurl」
アドレス指定検索   「intitle:」
アドレス指定複数検索 「allintitle:」
英英辞典       「define:」

2008年3月21日金曜日

【力学】マグヌス力

ボールに回転を与えると、ボールの回転方向と空気の流れの方向が一致する側では、圧力が下がり、逆側では圧力が上がる。この圧力差により、飛翔方向に垂直な方向に揚力が働く。

2008年3月19日水曜日

【perl】基本正規表現

『¥』   ・・・特別な意味を失わせる
『.』   ・・・任意の1文字
『[abc]』・・・指定された文字の中のいずれかに一致
『*』   ・・・直前の文字と0文字以上一致
『$』   ・・・文字列の末尾
『^』   ・・・文字列の先頭

【perl】文字列を置換

$置換対象変数=~s/正規表現/置換文字列/モード修飾子

【perl】文字列に対するマッチ

$検索対象変数=~/正規表現/モード修飾子
$検索対象変数=~m/正規表現/モード修飾子

2008年3月15日土曜日

【scilab】WAV再生

//データを読み込む
-->[y,fs,bits]=wavread('test.wav');
//データ再生
-->playsnd(y,fs,bits)
Writing Wave file: Microsoft PCM format, 2 channels, 44100 samp/sec
176400 byte/sec, 4 block align, 16 bits/samp
Finished writing Wave file, 1031940 data bytes

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

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

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

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

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

2008年3月10日月曜日

【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)); //表示

2008年3月8日土曜日

【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");
#1行づつ読み込む
while($read_data = <READ_FILE>)
{
#スペース区切りを分解
@foo = split (/¥s+/, $read_data);
#配列の長さを調べる
$length = @foo;
for ($xx = 1; $xx <= $length; $xx++) {
$yy = $xx -1;
#値の入っているもののみ、配列aへ格納
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");
#1行読み込み
$read_data = <READ_FILE>;
#スペースで分割
@foo = split (/¥s+/, $read_data);
#1つ目表示
print $foo[1];
#ファイルクローズ
close(READ_FILE);