Navigator1.0

#navigator 1.0
#finds the c

#most recent webpage updates here
shares<-367
currentScore<-1829.06812123
avhashrate<-702.12
currentSecs<-shares*2^32/avhashrate/10^6
sharesPerSec<-shares/currentSecs

#navigator. often fails badly.
score<-vector(shares,mode="numeric")
ctest<-300; j<-0
while(abs(log(round(currentScore/score[shares],digits=2)))>0.01){
    j<-j+1
    for(i in 2:shares){
        score[i]<-score[(i-1)]+exp((i/sharesPerSec)/ctest)}
        ctest<-ctest-ctest*log(currentScore/score[i],25)
            }
ctest