sub FFactor
{
	my $numDimensions = shift;
	return sqrt($numDimensions+1) -1 / $numDimensions;
}
sub GFactor
{
	my $numDimensions = shift;
	return ($numDimensions+1 -sqrt($numDimensions+1))/($numDimensions*$numDimensions+1);
}