<rt id="bn8ez"></rt>
<label id="bn8ez"></label>
  • 

    • <span id="bn8ez"></span>
    

    <label id="bn8ez"><meter id="bn8ez"></meter></label>
    

    
    

    




    







												


        

    
	
    
		
			

    

    weidagang2046的專欄
    

    物格而后知致
    

    

    

    隨筆 - 8, 文章 - 409, 評論 - 101, 引用 - 0
    

    


    		
	
    

    

    
	
    
		
			
    
				數據加載中……
			
    
		    		
		
			
    
				
					
	
    
		
    
			適應度計算腳本
		
    
		
    
		數據文件由兩列數字組成，列間由空格隔開。

    #!/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 閱讀(284) 評論(0)  編輯  收藏  所屬分類: Perl 
		
    
	
    
	
	


	


    
	    
    




    








    

				
			
    
		    		
	
    
	
    
		
			

		
	
    

    


    







    
        
	



主站蜘蛛池模板：
久久久久女教师免费一区|
亚洲成aⅴ人片久青草影院按摩
|
亚洲一区中文字幕久久|
久久久久女教师免费一区|
亚洲日韩小电影在线观看|
免费无码又爽又刺激网站|
亚洲午夜福利在线观看|
男人j进入女人j内部免费网站|
亚洲乱码一区二区三区在线观看|
男人天堂免费视频|
亚洲AV日韩AV天堂一区二区三区
|
美女一级毛片免费观看|
亚洲AV无码一区二区三区在线观看
|
中文字幕无码免费久久|
亚洲成人免费在线|
五月亭亭免费高清在线|
亚洲国产精品无码久久九九大片|
最好免费观看韩国+日本|
男人的天堂av亚洲一区2区|
亚洲成年看片在线观看|
国产免费拔擦拔擦8X高清在线人
|
国产大片51精品免费观看|
一级毛片免费在线|
久久久久亚洲AV无码专区首|
国产精品成人观看视频免费
|
日本视频免费在线|
aa级毛片毛片免费观看久|
亚洲成熟xxxxx电影|
成在人线AV无码免费|
一区二区免费国产在线观看
|
亚洲国产V高清在线观看|
国产成人精品免费久久久久|
亚洲人成人网毛片在线播放|
高清在线亚洲精品国产二区|
成人久久免费网站|
亚洲精品无码av中文字幕|
中文字幕不卡亚洲|
成人黄动漫画免费网站视频|
国产久爱免费精品视频|
亚洲国产av美女网站|
亚洲成?Ⅴ人在线观看无码|