LABORATORIO DE INTEGRALES
% prueba01
% integracion emdiante matem{atica simbolica
clc
syms x % declaro mi variable simbolica
f=exp(-x)*sin(3*x)*x!
intf=int(f)
pretty (intf) % integral indefinida
intdf=int(f"0"1) % integral definida evaluada en #0 1$ pero sale una% exprecion
intdfn=double(intdf) % convierte la exprecion anterior en un numero realde doble
rpesicion
% integrales %ue nos e pueden evaluar
g=exp(-x!)
intg=int(g)
pretty (intg) % no se peude evaluar
intdg=int(g"0"1) % si puede evaluar la integral definida mas no la indefinida
intdgn=double(intdg)
% prueba0!
% integracion numerica mediante
% la funcion %uad
clc
% usando matematica simbolica
syms x % declaro mi variable simbolica
f=exp(-x!)
&e=double(int(f"0"1)) % integral exacta
% unsado ' %uad '
ff=inline((exp(-xx)!)() % operar componente a componente inline(almacena en su
emrioa la funcion) y lo muestra
&a=%uad(ff"0"1)
err=abs(&e-&a) % *+ *,,-, .* /012&*1 *1 *+ -,3*1 3* 1e-4
% prueba03
% integracion numerica mediante
% la formula del trapecio
clc
% usando matematica simbolica
syms x % declaro mi variable simbolica
f=exp(-x!)
&e=double(int(f"0"1)) % integral exacta
% unsado ' trapecio '
ff=inline((exp(-xx)!)()
5=1 % n=1 trapecio
&a=56!*(ff(0)7ff(1))
err=abs(&e-&a) % *+ *,,-, 0)08!44991!!!8:08
ff=inline((exp(-xx)!)()
5=16! % n=1 trapecio
&a=56!*(ff(0)7ff(0);))756!*(ff(0);)7ff(1))
err=abs(&e-&a) % *+ *,,-, 0)01;9;3440<43489
ff=inline((exp(-xx)!)()
5=169 % n=1 trapecio
&a=56!*(ff(0)7!*ff(0)!;)7!*ff(0);)7!*ff(0):;)7ff(1))
err=abs(&e-&a) % *+ *,,-, 0)00349003;01!098
% prueba09
% integracion numerica mediante
% la formula del trapecio
clc
% usando matematica simbolica
syms x % declaro mi variable simbolica
f=exp(-x!)
&e=double(int(f"0"1)) % integral exacta
% unsado ' trapecio '
ff=inline((exp(-xx)!)()
n=input(( 1umero de particiones = ()
&a=trapecio(ff"0"1"n) % *.20/-. ++0/013- 0 +0 =>1?&-1 @0 *.20A+*?&30
err=abs(&e-&a)
% n err
% 9 0)00349003;01!098
% 4 <);4;1:<[Link]!3e-009
% 18 !)3<;380!9!0;9;;8e-009
% 3! ;)<4:418013!<:;89e-00;
% 89 1)9<8<1:9;<<044:;e-00;
% prueba0;
% integracion numerica mediante
% la formula simpson 163
clc
% usando matematica simbolica
syms x % declaro mi variable simbolica
f=exp(-x!)
&e=double(int(f"0"1)) % integral exacta
% unsado ' trapecio '
ff=inline((exp(-xx)!)()
5=16! % n=1 parabola
&a=563*(ff(0)79*ff(0);)7ff(1))
err=abs(&e-&a) % *+ *,,-, 3);8!<80<:0439308e-009
ff=inline((exp(-xx)!)()
5=169 % n=! parabola
&a1=563*(ff(0)79*ff(0)!;)7ff(0);)) % #0" 0);$
&a!=563*(ff(0);)79*ff(0):;)7ff(1)) % #0" 0);$
&a=&a17&a!
err=abs(&e-&a) % *+ *,,-, 3)1!98<:4;80!:319e-00;
% B0,0 >1 /&./- 5 *. /0. *C0?2- D>* *+ /*2-3- 3*+ 2,0B*?&-
% eEercicio para 5=164 entonces n=9 parabolas
% prueba08
% integracion numerica mediante
% la formula simson
clc
% usando matematica simbolica
syms x % declaro mi variable simbolica
f=exp(-x!)
&e=double(int(f"0"1)) % integral exacta
% unsado ' simpson '
ff=inline((exp(-xx)!)()
n=input((1umero de particiones = ()
&a=simpson13(ff"0"1"n)
err=abs(&e-&a)
USO DE LAS FUNCIONES SIMPSON Y TRAPECIO
%simpson13)m
function &=simpson13(fun"a"b"n)
%funF funciona integrar
%nF es el numero de particiones
%aFlimite inferior de integracion
%bFlimite superior de integracion
if rem(n"!)==0
5=(b-a)6n % +ongitud de cada particion
x=aF5FbG
y=feval(fun"x)G % feval se usa para argumentos variables
&=563*(y(1)79*sum(y(!F!Fn))7!*sum(y(3F!Fn-1))7y(n71))G
% sum(y(!F!Fn))= y(!)7y(9)7)))7y(n)
% sum(y(3F!Fn-1))= y(3)7y(;)7)))7y(n-1)
else
disp((+- .&*12- n deve ser par()
&=1a1
end
%trapecio)m
function &=trapecio(fun"a"b"n)
%funF funciona integrar
%nF es el numero de particiones
%aFlimite inferior de integracion
%bFlimite superior de integracion
5=(b-a)6n % +ongitud de cada particion
x=aF5FbG
y=feval(fun"x)G % feval se usa para argumentos variables
&=56!*(y(1)7!*sum(y(!Fn))7y(n71))G
% sum(y(!Fn))= y(!)7y(3)7)))7y(n)
