#!/usr/bin/perl -w #use strict; #多基因的遗传算法 use AI::Genetic; # benz_furan_MMTORSION open FH,benz_furan_mmenergyGA.tab or die can't find the file; my @qmenergies=FH; chomp(@qmenergies); map($_=~s/^\d+\s+//,@qmenergies); # #map($_*=627.5 ...
#!/usr/bin/perl -w #use strict; #多基因的遗传算法 use AI::Genetic; # benz_furan_MMTORSION open FH,benz_furan_mmenergyGA.tab or die can't find the file; my @qmenergies=FH; chomp(@qmenergies); map($_=~s/^\d+\s+//,@qmenergies); # #map($_*=627.5 ...