四虎永久在线,国产精品网址,日韩一区二区精品在线观看

適應度計算腳本

數據文件由兩列數字組成，列間由空格隔開。

#!/usr/bin/perl?-w

$arg_num?=?@ARGV;

$arg_num?>?0?||?die?"Usage:\nperl?$0?[file]\n";

open(FH,?$ARGV[0])?||?die?"Can't?open?file?$ARGV[0]\n";

@lines?=?<FH>;

foreach?$line?(@lines)

{

????chomp($line);

????@nums?=?split('?',?$line);

????$fitness?+=?1?-?abs($nums[1]?-?$nums[0])?/?(abs($nums[0])?+?1e-10);

????$count++;

}

if($count?>?0)

{

????$fitness?/=?$count;

????print?$fitness,?"\n";

}

else

{

????print?"0\n";

}

posted on 2006-03-24 00:06 weidagang2046 閱讀(288) 評論(0) 編輯收藏所屬分類: Perl


只有注冊用戶登錄后才能發表評論。




網站導航: 博客園 IT新聞 Chat2DB C++博客博問管理
相關文章: 統計工程的源代碼行數 Perl eval函數探討如何捕捉CGI程序exception 創建或刪除目錄 Perl Tips 2006/8/19 刪除用通配符匹配的一類文件列出目錄下的所有子目錄和文件名 perl自帶的介紹圖形界面的例子 windows 下的system命令的后臺運行求助 Perl處理Unix命令輸出