# Navigator to help you find the 'c'
# Please note that any variables (as reported by the website) can only be used
# before the first renormalisation (usually about 30 minutes into a round)
#enter the hashrate (for either the pool or the miner) in Ghps, in this case
speed<-1194
sharesPerSec<-speed*10^9/2^32
#if total submitted shares and time since start of round are known, use that instead (more accurate)
sharesPerSec<-279
shares<-293639
#score for either the pool/miner
score<-2710990
c<- -(shares*score)/(sharesPerSec*(score*lambert_Wm1(-(shares*exp(-shares/score))/score)+shares))
print(paste('c is approximately',round(c)))
