h=10; n=1000; epsilon=0.01; r1 = 0.2; "h = "; h; "n = "; n; "epsilon = "; epsilon; "r1 = "; r1 pi = 4*a(1) "pi = "; pi define b(k1,k2) { for (k=k1;k<=k2;k++) { print "\nk = ", k; d = h * l(e(1)*(k+1)*n/h) - l(epsilon) print " d = ", d; alpha = sqrt(pi/d)/2; aux1 = 1 + 1/k; aux2 = 1 + l(2*e(1)*sqrt(d/pi))/(2*d); dprime = d * aux1 * aux1 * aux2 * aux2; f1 = 1/(1 + 2*dprime/n); f2 = dprime / n; f3 = 2 * f2; f4 = f2 * f2; b4_2 = f1 * (r1 + f2 + sqrt(f3*r1*(1-r1)+f4)) print " b4_2 = ", b4_2; c = 2 * alpha * sqrt((d-l(alpha))/pi) + alpha*alpha/pi d1 = d - l(alpha) + aux1*aux1*c d2 = aux1*((d-l(alpha))*(1 - 2 * r1 / (1+k)) + aux1*c) d3 = aux1*aux1*(d - l(alpha) + c + 2*c*(d - l(alpha))/(n*k*k)) d4 = aux1*(d-l(alpha) + aux1*c) b4_3 = (r1 + d2/n + sqrt(2*d3*r1*(1-r1)/n + d4*d4/(n*n)))/(1 + 2*d1/n) print "\nb4_3 = ", b4_3; aux3 = 1 - l(alpha)/(2*d) + alpha / sqrt(pi * d); d4_4 = (1 + 1/k) * aux3 * aux3 * d; b4_4 = r1 + d4_4/n + sqrt(2*d4_4*r1/n + d4_4*d4_4/(n*n)) print " b4_4 = ", b4_4; } print "+++++++++++++++++++++++++++++++++++++++++++++++++++\n" k = 1; "k = "; k d = h * l(e(1)*(k+1)*n/h) - l(epsilon) "d = "; d alpha = sqrt(pi/d)/2; "alpha = "; alpha d4_5 = d - l(alpha); "d4_5 = "; d4_5 aux4 = (1 - 2*r1); b4_5 = (r1 + aux4*d4_5/n + 2*c/n + \ sqrt(4*(d4_5+c)*r1*(1-r1)/n + d4_5*d4_5*aux4*aux4/(n*n) + \ 4*c*(d4_5+c)/(n*n)))/(1 + 4*c/n) "b4_5 = ";b4_5 print "+++++++++++++++++++++++++++++++++++++++++++++++++++\n" }