function exm05811_1()
%exm05811_1.m

syms x;
IS=int('exp(-x*x)','x',0,1)
vpa(IS)  

fun=inline('exp(-x.*x)','x');
Isim=quad(fun,0,1),
I8=quad8(fun,0,1)  

Ig=gauss10(fun,0,1)  

xx=0:0.1:1.5;
ff=exp(-xx.^2);
pp=spline(xx,ff);
int_pp=fnint(pp);
Ssp=ppval(int_pp,[0,1])*[-1;1] 

disp('按任意鍵，打開SIMULINK求積窗')
pause
exm05811_1_5