clc 
%	Regla de Simpson de 3/8 sencilla con 4 segmentos
% 	Ing. Angel Hernández Corvera
%	Posgrado en Electrónica
% 	MC J. Gilberto Mateos Suárez
%	Noviembre de 1997
format long
echo on
% La función a evaluar esta contenida dentro del 
% archivo 'funcion.m' y se requiere introducir los valores
% de los límites, como se indica a continuación
% Pulsa una tecla...
pause
a= input('límite inferior:');
b= input('límite superior:');
h=(b-a)/3;
c=0;
xi=a;
% Algoritmo para la sumatoria en Simpson 3/8
% pulsa una tecla...
pause 
for J=1:3-1
	xi=xi+h
	c=c+funcion(xi);
end
% pulsa una tecla...
pause 

% Forma general de la regla de Simpson de 3/8 para 4 segmentos iguales
% para la integración de la función en el archivo 'funcion.m'.

s=(b-a)*((funcion(a)+3*c+funcion(b))/8)