cuadratura de gauus

clc
clear
f=inline('exp(-((2.3*z+0.7)^2)/8)')
w1=0.5555555;
w3=w1;
w2=0.8888888;
z1=-0.774596;
z2=0;
z3=-z1;
f1=f(z1);
f2=f(z2);
f3=f(z3);
i=w1*f1+w2*f2+w3*f3;
I=(2.3/2)*(1/sqrt(2*pi))*i;
I