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