# 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)))