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