print "+++++++++++++++++++++++++++++++++++++++++++++++++++\n" h=10; n=1000; epsilon=0.01; r1 = 0.2; "h = "; h; "n = "; n; "k = "; k; "epsilon = "; epsilon; "r1 = "; r1 pi = 4*a(1) "pi = "; pi print "++++++++++++++++++++++++++++++++++++++++++++++++++++\n" define b(k1,k2) { auto i, aux, aux2, aux3, alpha, d_prime for (i=k1;i<=k2;i++) { aux2 = 1 + 1/i; d = h * (l((i+1)*n/h)+1) - l(epsilon); alpha = sqrt(pi/d)/2; aux3 = 1 - l(alpha)/(2*d) + alpha/sqrt(pi*d); d_prime = d * aux2 * aux2 * aux3 * aux3; aux = (r1 + d_prime/n + sqrt(2*d_prime*r1*(1-r1)/n + \ d_prime*d_prime/(n*n)))/(1 + 2*d_prime/n) print "B(r_1) = ", 1/(1 + 2*d_prime/n),"*(r1 + ", d_prime/n,\ " + sqrt( ", 2*d_prime/n,\ " *r1*(1-r1)+ ", d_prime*d_prime/(n*n),"))\n" print "d =", d, "\tb(",i,") = ", aux, "\n" } }