Like same it : http://luckyb.it or http://bitzillions.com or http://bitwars.org
any one can give me one same this scripts
Also I think these scripts are custom made.You'll need to hire a developer to make one for you.
It was the Bitcointalk forum that inspired us to create Bitcointalksearch.org - Bitcointalk is an excellent site that should be the default page for anybody dealing in cryptocurrency, since it is a virtual gold-mine of data. However, our experience and user feedback led us create our site; Bitcointalk's search is slow, and difficult to get the results you need, because you need to log in first to find anything useful - furthermore, there are rate limiters for their search functionality.
The aim of our project is to create a faster website that yields more results and faster without having to create an account and eliminate the need to log in - your personal data, therefore, will never be in jeopardy since we are not asking for any of your data and you don't need to provide them to use our site with all of its capabilities.
We created this website with the sole purpose of users being able to search quickly and efficiently in the field of cryptocurrency so they will have access to the latest and most accurate information and thereby assisting the crypto-community at large.
R version 2.15.1 (2012-06-22) -- "Roasted Marshmallows"
Copyright (C) 2012 The R Foundation for Statistical Computing
ISBN 3-900051-07-0
Platform: i386-apple-darwin9.8.0/i386 (32-bit)
R is free software and comes with ABSOLUTELY NO WARRANTY.
You are welcome to redistribute it under certain conditions.
Type 'license()' or 'licence()' for distribution details.
R is a collaborative project with many contributors.
Type 'contributors()' for more information and
'citation()' on how to cite R or R packages in publications.
Type 'demo()' for some demos, 'help()' for on-line help, or
'help.start()' for an HTML browser interface to help.
Type 'q()' to quit R.
[R.app GUI 1.52 (6188) i386-apple-darwin9.8.0]
>
>
> #reports strategy parameters
> strategy.func <- function(r, bets, max, p){
+ m <- 1 / (1 - 1 / r)
+ n <- round(-log (bets * p + 1)/log(1 - p))
+ init <- (max - n * 0.0005)/(sum(m^(1:n))*(1 - sum(m^(1:(n-1)))/(sum(m^(1:n)))*0.005))
+ pc.loss <- (1 - (init*m^n*r - 0.0005)/(init*m^n*r)) * 100
+ return(noquote(paste("m =",m," | init =",init," | percentage loss to fees =",pc.loss,"%.")))
+ }
>
>
> #reports order of martingale betting
> allbets.func <- function(r, bets, max, p){
+ m <- 1 / (1 - 1 / r)
+ n <- round(-log (bets * p + 1)/log(1 - p))
+ init <- (max - n * 0.0005)/(sum(m^(1:n))*(1 - sum(m^(1:(n-1)))/(sum(m^(1:n)))*0.005))
+ mat <- matrix(c(1:bets,round(init*m^(1:bets), 6)),bets,2)
+ colnames(mat)<-c("bet number", "bet amount" )
+ return(mat)
+ }
>
> #change these variables to suit
> r <- 8
> p <- 8000/65536
> bets <- 100
> max <- 1
>
> strategy.func(r, bets, max, p)
[1] m = 1.14285714285714 | init = 0.00924140314804633 | percentage loss to fees = 0.0468061760111049 %.
>
> allbets.func(r, bets, max, p)
bet number bet amount
[1,] 1 0.010562
[2,] 2 0.012070
[3,] 3 0.013795
[4,] 4 0.015765
[5,] 5 0.018018
[6,] 6 0.020592
[7,] 7 0.023533
[8,] 8 0.026895
[9,] 9 0.030737
[10,] 10 0.035128
[11,] 11 0.040147
[12,] 12 0.045882
[13,] 13 0.052436
[14,] 14 0.059927
[15,] 15 0.068488
[16,] 16 0.078272
[17,] 17 0.089454
[18,] 18 0.102233
[19,] 19 0.116838
[20,] 20 0.133529
[21,] 21 0.152605
[22,] 22 0.174406
[23,] 23 0.199321
[24,] 24 0.227795
[25,] 25 0.260337
[26,] 26 0.297528
[27,] 27 0.340033
[28,] 28 0.388609
[29,] 29 0.444124
[30,] 30 0.507570
[31,] 31 0.580081
[32,] 32 0.662949
[33,] 33 0.757656
[34,] 34 0.865893
[35,] 35 0.989592
[36,] 36 1.130962
[37,] 37 1.292528
[38,] 38 1.477175
[39,] 39 1.688200
[40,] 40 1.929371
[41,] 41 2.204996
[42,] 42 2.519995
[43,] 43 2.879994
[44,] 44 3.291422
[45,] 45 3.761625
[46,] 46 4.299000
[47,] 47 4.913143
[48,] 48 5.615021
[49,] 49 6.417167
[50,] 50 7.333905
[51,] 51 8.381605
[52,] 52 9.578978
[53,] 53 10.947403
[54,] 54 12.511318
[55,] 55 14.298649
[56,] 56 16.341313
[57,] 57 18.675786
[58,] 58 21.343756
[59,] 59 24.392864
[60,] 60 27.877558
[61,] 61 31.860067
[62,] 62 36.411505
[63,] 63 41.613148
[64,] 64 47.557884
[65,] 65 54.351867
[66,] 66 62.116420
[67,] 67 70.990194
[68,] 68 81.131650
[69,] 69 92.721886
[70,] 70 105.967870
[71,] 71 121.106137
[72,] 72 138.407014
[73,] 73 158.179444
[74,] 74 180.776508
[75,] 75 206.601723
[76,] 76 236.116255
[77,] 77 269.847149
[78,] 78 308.396741
[79,] 79 352.453419
[80,] 80 402.803907
[81,] 81 460.347323
[82,] 82 526.111226
[83,] 83 601.269972
[84,] 84 687.165683
[85,] 85 785.332209
[86,] 86 897.522524
[87,] 87 1025.740028
[88,] 88 1172.274317
[89,] 89 1339.742077
[90,] 90 1531.133802
[91,] 91 1749.867203
[92,] 92 1999.848232
[93,] 93 2285.540836
[94,] 94 2612.046670
[95,] 95 2985.196194
[96,] 96 3411.652793
[97,] 97 3899.031764
[98,] 98 4456.036301
[99,] 99 5092.612916
[100,] 100 5820.129047
>
>
>
> #reports strategy parameters
> strategy.func <- function(r, bets, max, p){
+ m <- 1 / (1 - 1 / r)
+ n <- round(-log (bets * p + 1)/log(1 - p))
+ init <- (max - n * 0.0005)/(sum(m^(1:n))*(1 - sum(m^(1:(n-1)))/(sum(m^(1:n)))*0.005))
+ pc.loss <- (1 - (init*m^n*r - 0.0005)/(init*m^n*r)) * 100
+ return(noquote(paste("m =",m," | init =",init," | percentage loss to fees =",pc.loss,"%.")))
+ }
>
>
> #reports order of martingale betting
> allbets.func <- function(r, bets, max, p){
+ m <- 1 / (1 - 1 / r)
+ n <- round(-log (bets * p + 1)/log(1 - p))
+ init <- (max - n * 0.0005)/(sum(m^(1:n))*(1 - sum(m^(1:(n-1)))/(sum(m^(1:n)))*0.005))
+ mat <- matrix(c(1:bets,round(init*m^(1:bets), 6)),bets,2)
+ colnames(mat)<-c("bet number", "bet amount" )
+ return(mat)
+ }
>
> #change these variables to suit
> r <- 2
> p <- 8000/65536
> bets <- 100
> max <- 1
>
> strategy.func(r, bets, max, p)
[1] m = 2 | init = 4.73252366609602e-07 | percentage loss to fees = 0.0503787399542377 %.
>
> allbets.func(r, bets, max, p)
bet number bet amount
[1,] 1 1.000000e-06
[2,] 2 2.000000e-06
[3,] 3 4.000000e-06
[4,] 4 8.000000e-06
[5,] 5 1.500000e-05
[6,] 6 3.000000e-05
[7,] 7 6.100000e-05
[8,] 8 1.210000e-04
[9,] 9 2.420000e-04
[10,] 10 4.850000e-04
[11,] 11 9.690000e-04
[12,] 12 1.938000e-03
[13,] 13 3.877000e-03
[14,] 14 7.754000e-03
[15,] 15 1.550800e-02
[16,] 16 3.101500e-02
[17,] 17 6.203000e-02
[18,] 18 1.240600e-01
[19,] 19 2.481210e-01
[20,] 20 4.962410e-01
[21,] 21 9.924820e-01
[22,] 22 1.984964e+00
[23,] 23 3.969929e+00
[24,] 24 7.939857e+00
[25,] 25 1.587971e+01
[26,] 26 3.175943e+01
[27,] 27 6.351886e+01
[28,] 28 1.270377e+02
[29,] 29 2.540754e+02
[30,] 30 5.081509e+02
[31,] 31 1.016302e+03
[32,] 32 2.032603e+03
[33,] 33 4.065207e+03
[34,] 34 8.130414e+03
[35,] 35 1.626083e+04
[36,] 36 3.252165e+04
[37,] 37 6.504331e+04
[38,] 38 1.300866e+05
[39,] 39 2.601732e+05
[40,] 40 5.203465e+05
[41,] 41 1.040693e+06
[42,] 42 2.081386e+06
[43,] 43 4.162772e+06
[44,] 44 8.325544e+06
[45,] 45 1.665109e+07
[46,] 46 3.330217e+07
[47,] 47 6.660435e+07
[48,] 48 1.332087e+08
[49,] 49 2.664174e+08
[50,] 50 5.328348e+08
[51,] 51 1.065670e+09
[52,] 52 2.131339e+09
[53,] 53 4.262678e+09
[54,] 54 8.525357e+09
[55,] 55 1.705071e+10
[56,] 56 3.410143e+10
[57,] 57 6.820285e+10
[58,] 58 1.364057e+11
[59,] 59 2.728114e+11
[60,] 60 5.456228e+11
[61,] 61 1.091246e+12
[62,] 62 2.182491e+12
[63,] 63 4.364983e+12
[64,] 64 8.729965e+12
[65,] 65 1.745993e+13
[66,] 66 3.491986e+13
[67,] 67 6.983972e+13
[68,] 68 1.396794e+14
[69,] 69 2.793589e+14
[70,] 70 5.587178e+14
[71,] 71 1.117436e+15
[72,] 72 2.234871e+15
[73,] 73 4.469742e+15
[74,] 74 8.939484e+15
[75,] 75 1.787897e+16
[76,] 76 3.575794e+16
[77,] 77 7.151588e+16
[78,] 78 1.430318e+17
[79,] 79 2.860635e+17
[80,] 80 5.721270e+17
[81,] 81 1.144254e+18
[82,] 82 2.288508e+18
[83,] 83 4.577016e+18
[84,] 84 9.154032e+18
[85,] 85 1.830806e+19
[86,] 86 3.661613e+19
[87,] 87 7.323226e+19
[88,] 88 1.464645e+20
[89,] 89 2.929290e+20
[90,] 90 5.858581e+20
[91,] 91 1.171716e+21
[92,] 92 2.343432e+21
[93,] 93 4.686864e+21
[94,] 94 9.373729e+21
[95,] 95 1.874746e+22
[96,] 96 3.749492e+22
[97,] 97 7.498983e+22
[98,] 98 1.499797e+23
[99,] 99 2.999593e+23
[100,] 100 5.999186e+23
>
> >
Error: unexpected '>' in ">"
>
> #reports strategy parameters
> strategy.func <- function(r, bets, max, p){
+ m <- 1 / (1 - 1 / r)
+ n <- round(-log (bets * p + 1)/log(1 - p))
+ init <- (max - n * 0.0005)/(sum(m^(1:n))*(1 - sum(m^(1:(n-1)))/(sum(m^(1:n)))*0.005))
+ pc.loss <- (1 - (init*m^n*r - 0.0005)/(init*m^n*r)) * 100
+ return(noquote(paste("m =",m," | init =",init," | percentage loss to fees =",pc.loss,"%.")))
+ }
>
>
> #reports order of martingale betting
> allbets.func <- function(r, bets, max, p){
+ m <- 1 / (1 - 1 / r)
+ n <- round(-log (bets * p + 1)/log(1 - p))
+ init <- (max - n * 0.0005)/(sum(m^(1:n))*(1 - sum(m^(1:(n-1)))/(sum(m^(1:n)))*0.005))
+ mat <- matrix(c(1:bets,round(init*m^(1:bets), 6)),bets,2)
+ colnames(mat)<-c("bet number", "bet amount" )
+ return(mat)
+ }
>
> #change these variables to suit
> r <- 2p <- 8000/65536
Error: unexpected symbol in "r <- 2p"
> bets <- 100
> max <- 100
>
> strategy.func(r, bets, max, p)
[1] m = 2 | init = 4.77984890275698e-05 | percentage loss to fees = 0.00049879940549058 %.
>
> allbets.func(r, bets, max, p)
bet number bet amount
[1,] 1 9.600000e-05
[2,] 2 1.910000e-04
[3,] 3 3.820000e-04
[4,] 4 7.650000e-04
[5,] 5 1.530000e-03
[6,] 6 3.059000e-03
[7,] 7 6.118000e-03
[8,] 8 1.223600e-02
[9,] 9 2.447300e-02
[10,] 10 4.894600e-02
[11,] 11 9.789100e-02
[12,] 12 1.957830e-01
[13,] 13 3.915650e-01
[14,] 14 7.831300e-01
[15,] 15 1.566261e+00
[16,] 16 3.132522e+00
[17,] 17 6.265044e+00
[18,] 18 1.253009e+01
[19,] 19 2.506017e+01
[20,] 20 5.012035e+01
[21,] 21 1.002407e+02
[22,] 22 2.004814e+02
[23,] 23 4.009628e+02
[24,] 24 8.019256e+02
[25,] 25 1.603851e+03
[26,] 26 3.207702e+03
[27,] 27 6.415405e+03
[28,] 28 1.283081e+04
[29,] 29 2.566162e+04
[30,] 30 5.132324e+04
[31,] 31 1.026465e+05
[32,] 32 2.052929e+05
[33,] 33 4.105859e+05
[34,] 34 8.211718e+05
[35,] 35 1.642344e+06
[36,] 36 3.284687e+06
[37,] 37 6.569374e+06
[38,] 38 1.313875e+07
[39,] 39 2.627750e+07
[40,] 40 5.255499e+07
[41,] 41 1.051100e+08
[42,] 42 2.102200e+08
[43,] 43 4.204400e+08
[44,] 44 8.408799e+08
[45,] 45 1.681760e+09
[46,] 46 3.363520e+09
[47,] 47 6.727039e+09
[48,] 48 1.345408e+10
[49,] 49 2.690816e+10
[50,] 50 5.381631e+10
[51,] 51 1.076326e+11
[52,] 52 2.152653e+11
[53,] 53 4.305305e+11
[54,] 54 8.610610e+11
[55,] 55 1.722122e+12
[56,] 56 3.444244e+12
[57,] 57 6.888488e+12
[58,] 58 1.377698e+13
[59,] 59 2.755395e+13
[60,] 60 5.510791e+13
[61,] 61 1.102158e+14
[62,] 62 2.204316e+14
[63,] 63 4.408632e+14
[64,] 64 8.817265e+14
[65,] 65 1.763453e+15
[66,] 66 3.526906e+15
[67,] 67 7.053812e+15
[68,] 68 1.410762e+16
[69,] 69 2.821525e+16
[70,] 70 5.643050e+16
[71,] 71 1.128610e+17
[72,] 72 2.257220e+17
[73,] 73 4.514440e+17
[74,] 74 9.028879e+17
[75,] 75 1.805776e+18
[76,] 76 3.611552e+18
[77,] 77 7.223103e+18
[78,] 78 1.444621e+19
[79,] 79 2.889241e+19
[80,] 80 5.778483e+19
[81,] 81 1.155697e+20
[82,] 82 2.311393e+20
[83,] 83 4.622786e+20
[84,] 84 9.245572e+20
[85,] 85 1.849114e+21
[86,] 86 3.698229e+21
[87,] 87 7.396458e+21
[88,] 88 1.479292e+22
[89,] 89 2.958583e+22
[90,] 90 5.917166e+22
[91,] 91 1.183433e+23
[92,] 92 2.366867e+23
[93,] 93 4.733733e+23
[94,] 94 9.467466e+23
[95,] 95 1.893493e+24
[96,] 96 3.786986e+24
[97,] 97 7.573973e+24
[98,] 98 1.514795e+25
[99,] 99 3.029589e+25
[100,] 100 6.059178e+25
>
> #reports strategy parameters
> strategy.func <- function(r, bets, max, p){
+ m <- 1 / (1 - 1 / r)
+ n <- round(-log (bets * p + 1)/log(1 - p))
+ init <- (max - n * 0.0005)/(sum(m^(1:n))*(1 - sum(m^(1:(n-1)))/(sum(m^(1:n)))*0.005))
+ pc.loss <- (1 - (init*m^n*r - 0.0005)/(init*m^n*r)) * 100
+ return(noquote(paste("m =",m," | init =",init," | percentage loss to fees =",pc.loss,"%.")))
+ }
>
>
> #reports order of martingale betting
> allbets.func <- function(r, bets, max, p){
+ m <- 1 / (1 - 1 / r)
+ n <- round(-log (bets * p + 1)/log(1 - p))
+ init <- (max - n * 0.0005)/(sum(m^(1:n))*(1 - sum(m^(1:(n-1)))/(sum(m^(1:n)))*0.005))
+ mat <- matrix(c(1:bets,round(init*m^(1:bets), 6)),bets,2)
+ colnames(mat)<-c("bet number", "bet amount" )
+ return(mat)
+ }
>
> #change these variables to suit
> r <- 8
> p <- 8000/65536
> bets <- 100
> max <- 1
>
> strategy.func(r, bets, max, p)
[1] m = 1.14285714285714 | init = 0.00924140314804633 | percentage loss to fees = 0.0468061760111049 %.
>
> allbets.func(r, bets, max, p)
bet number bet amount
[1,] 1 0.010562
[2,] 2 0.012070
[3,] 3 0.013795
[4,] 4 0.015765
[5,] 5 0.018018
[6,] 6 0.020592
[7,] 7 0.023533
[8,] 8 0.026895
[9,] 9 0.030737
[10,] 10 0.035128
[11,] 11 0.040147
[12,] 12 0.045882
[13,] 13 0.052436
[14,] 14 0.059927
[15,] 15 0.068488
[16,] 16 0.078272
[17,] 17 0.089454
[18,] 18 0.102233
[19,] 19 0.116838
[20,] 20 0.133529
[21,] 21 0.152605
[22,] 22 0.174406
[23,] 23 0.199321
[24,] 24 0.227795
[25,] 25 0.260337
[26,] 26 0.297528
[27,] 27 0.340033
[28,] 28 0.388609
[29,] 29 0.444124
[30,] 30 0.507570
[31,] 31 0.580081
[32,] 32 0.662949
[33,] 33 0.757656
[34,] 34 0.865893
[35,] 35 0.989592
[36,] 36 1.130962
[37,] 37 1.292528
[38,] 38 1.477175
[39,] 39 1.688200
[40,] 40 1.929371
[41,] 41 2.204996
[42,] 42 2.519995
[43,] 43 2.879994
[44,] 44 3.291422
[45,] 45 3.761625
[46,] 46 4.299000
[47,] 47 4.913143
[48,] 48 5.615021
[49,] 49 6.417167
[50,] 50 7.333905
[51,] 51 8.381605
[52,] 52 9.578978
[53,] 53 10.947403
[54,] 54 12.511318
[55,] 55 14.298649
[56,] 56 16.341313
[57,] 57 18.675786
[58,] 58 21.343756
[59,] 59 24.392864
[60,] 60 27.877558
[61,] 61 31.860067
[62,] 62 36.411505
[63,] 63 41.613148
[64,] 64 47.557884
[65,] 65 54.351867
[66,] 66 62.116420
[67,] 67 70.990194
[68,] 68 81.131650
[69,] 69 92.721886
[70,] 70 105.967870
[71,] 71 121.106137
[72,] 72 138.407014
[73,] 73 158.179444
[74,] 74 180.776508
[75,] 75 206.601723
[76,] 76 236.116255
[77,] 77 269.847149
[78,] 78 308.396741
[79,] 79 352.453419
[80,] 80 402.803907
[81,] 81 460.347323
[82,] 82 526.111226
[83,] 83 601.269972
[84,] 84 687.165683
[85,] 85 785.332209
[86,] 86 897.522524
[87,] 87 1025.740028
[88,] 88 1172.274317
[89,] 89 1339.742077
[90,] 90 1531.133802
[91,] 91 1749.867203
[92,] 92 1999.848232
[93,] 93 2285.540836
[94,] 94 2612.046670
[95,] 95 2985.196194
[96,] 96 3411.652793
[97,] 97 3899.031764
[98,] 98 4456.036301
[99,] 99 5092.612916
[100,] 100 5820.129047
>
>
>
>