hotelling.profits: Calculates the profits of a hotelling game
In skranz/StratTourn: Tournament of game theoretic strategies

Description Usage Arguments

We consider a hotelling game where two firms set price and location at the same time. The Utility Function of the uniformly distributed customers is U = s - t.distance*|x-l|-p.

1 2	hotelling.profits(lower.bound = 0, upper.bound = 1, s = 1, t = 1, print.details = FALSE, choice1, choice2)

`lower.bound`	Customers are uniformly distributed in the intervall [lower.bound, upper.bound]
`upper.bound`	Customers are uniformly distributed in the intervall [lower.bound, upper.bound]
`s`	Prohibitive price of customer
`t`	Factor determining how much the customer loathes distance
`print.details`	When TRUE the function prints various details and intermediate calculations.
`choice1`	choice of first company. The choice has to have the structure list(p=<numerical price>, l=<numerical location>).
`choice2`	choice of first company. The choice has to have the structure list(p=<numerical price>, l=<numerical location>). Note that in contrast to some standard notations of the hotelling game the location choice of firm2 is given in absolute values and neither starting from the lower bound nor from the upper bound.