Baseball-Simulation
view release on metacpan or search on metacpan
lib/Baseball/Simulation.pm view on Meta::CPAN
# Walks
# Singles
# Doubles
# Triples
# Homers
# StolenBases
#
# Description: Calculates the averages for the batting statistics
#
# Returns: The array consisting the cumalitve averages for:
# WalkChance - The percentage for a walk
# SingleChance - The percentage that a single can be hit
# DoubleChance - The percentage that a single can be hit
# TripleChance - The percentage that a single can be hit
# HomerChance - The percentage that a single can be hit
# SacChance - The percentage that a sacrifice occurs
# StolenBaseChance - The percentage that a stolen base occurs
#
##################################################
sub CreateBatterArray(@) {
my ($AtBats, $Hits, $Doubles, $Triples, $Homers, $Walks, $Steals) = @_;
my $TotalAtBats = $AtBats + $Walks;
my $Singles = $Hits - $Doubles - $Triples - $Homers;
my $WalkChance = int (($Walks / $TotalAtBats) * 1000);
my $SinglesChance = int (($Singles / $TotalAtBats) * 1000);
my $DoublesChance = int (($Doubles / $TotalAtBats) * 1000);
my $TriplesChance = int (($Triples / $TotalAtBats) * 1000);
lib/Baseball/Simulation.pm view on Meta::CPAN
}
}
}
return @TotalStats;
}
##################################################
# AtBat
#
# Parameters: WalkChance - The percentage for a walk
# SingleChance - The percentage that a single can be hit
# DoubleChance - The percentage that a single can be hit
# TripleChance - The percentage that a single can be hit
# HomerChance - The percentage that a single can be hit
# SacChance - The percentage that a single can be hit
# StolenBaseChance - The percentage that a single can be hit
#
# Description: Simulates an at-bat
#
# Returns: The result - -1 = walk
# 0 = out
# 1 = single
# 2 = double
# 3 = triple
# 4 = home run
#
( run in 0.447 second using v1.01-cache-2.11-cpan-709fd43a63f )