Pridano sledovani doby behu neuronove site.

master.pl

@@ -106,8 +106,10 @@
 	my %results = ();
 	for my $res (@{$result}) {
 		my @p = split(/\n/, $res);
-		$results{$p[1]} = { 'score' => $p[2],
-							'host' => $p[0] };
+		$results{$p[1]} = { 'score' => $p[4],
+							'host' => $p[0],
+							'time' => $p[3] - $p[2],
+	 };
 	}
 
 	# find the most predictable member
@@ -164,7 +166,7 @@
 	# print out information about iteration
 	print "$round\t$r\t$members{$r}{name}\t$results{$r}{score}\t$diffD\t$diffV\n";
 	for my $k (@sorted) { 
-		print "\tP\t$k\t$members{$k}{name}\t$results{$k}{score}\t$results{$k}{host}\n";
+		print "\tP\t$k\t$members{$k}{name}\t$results{$k}{score}\t$results{$k}{host}\t$results{$k}{time}\n";
 	}
 	for my $v (@wrongVoting) { 
 		print "\tV\t$v->{id}\t$v->{name}\t$v->{from}\t$v->{to}\n";	

node.sh

@@ -6,6 +6,7 @@ if [ x$1 = x ]; then
 	exit 1;
 fi;
 
+dateBegin=`date '+%s.%N'`;
 columnId=$1;
 fName=ga_$columnId;
 
@@ -23,8 +24,11 @@ echo "quit; " | nice -n 19 /afs/ms/@sys/bin/matlab -nodesktop -nosplash -r $fNam
 #perl -e 'print (("\n", rand()) x 3);' > res.$columnId.complete;
 kill $xb &> /dev/null;
 tail -n2 res.$columnId.complete | head -n1 > res.$columnId;
+dateEnd=`date '+%s.%N'`;
 hostname;
 echo $columnId;
+echo $dateBegin;
+echo $dateEnd;
 cat res.$columnId;
 
 rm -rf res.${columnId} res.${columnId}.complete $fName.m;