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