#! calc read "biblioteca.calc" ## define f(x) {return power(x,2);} define f(x) {return power(cos(x),2);} define f2(x) {return power(sin(x),2);} ## define f(x) {return power(x,2)*sin(x);} pi = 4*atan(1); ##a = -pi/4; b = pi/4; n = 10000; a=0; b=pi; n = 10000; define riemann(a,b,n){ local soma=0, delta = 1.0/n; while(a