function s=sumasRdatos1(x,y,D)donde $x$ es la variable que guardará el vector de abscisas, $y$ es para el vector de ordenadas y $D$ para la matriz de datos. A continuación hemos de tener claro qué datos necesita esta función sumasRdatos1 para calcular la suma de Riemann. Piénsalo y pulsa en 'Ver'.
inc=abs([x(2)-x(1),y(2)-y(1)]); % vector con los incrementos en cada ejePiensa ahora cómo mandarle calcular la suma de Riemann.
s=prod(inc)*sum(D(:)); % suma de Riemanny sólo queda cerrar la función. Toda la función resulta
function s=sumasRdatos1(x,y,D) inc=abs([x(2)-x(1),y(2)-y(1)]); % vector con los incrementos en cada eje s=prod(inc)*sum(D(:)); % suma de Riemann endSiempre es conveniente escribir unas líneas de comentario tras la línea de declaración de la función. Eso dejamos que lo termines tú. No olvides tampoco que la función debe ir en un fichero llamado sumasRdatos1.m
x=0:.2: 1; y=1:.3:3.1; D=sin(x.*y.^2+x.^2);
x=0:.2: 1; y=1:.3:3.1; [X,Y]=meshgrid(x,y); D=sin(X.*Y.^2+X.^2);
s=sumasRdatos1(x,y,D);Nos devolverá $s=0.7366$.
syms xs ys double(int(int(sin(xs*ys^2+xs^2),xs,0,1.2),ys,1,3.4))que nos devuelve el valor $0.6606$.