hth9 mining simulator pseudo-code

[code]
maximumRounds<-100
Difficulty<-1200000
BitcoinReward<-50
hop<-0.25*D
minerHashrate<-1
poolHashrate<-1000
minerProp<-minerPPS<-0
totalRoundShares<-geom.random(maximumRounds, Difficulty)

for i in 1 to maximumRounds
	if totalRoundShares<=hop then minerProp<-minerProp+minerHashrate/poolHashrate
		and minerPPS<-minerPPS+minerHashrate/poolHashrate*totalRoundShares

	if totalRoundShares>hop then minerProp<-minerProp+minerHashrate/poolHashrate*hop/totalRoundShares
		and minerPPS<-minerPPS+minerHashrate/poolHashrate*hop

propEarnings<-minerProp*B
ppsEarnings<-minerPPS*B
[/code]