representa una función y crea una gráfica customizada

%Autor:
%Fecha 4/11/2008
clear all;clc;
% Definimos variable equiespaciada en el intervalo -2,2 con 1024 pts.
x=linspace(-2,2,1024);
%representamos la función f(x)=12*sin(5x^2-x/6)
f=(12* sin(5*x.^2-x/6));
graff=plot(x,f,'g:','lineWidth',2)
hold on;%para mantener
cm=sum(x.*f)/1024;
valormed=sum(f)/1024;
f1=plot(cm,valormed,'MarkerSize',9);
xlabel('eje x (ua)','FontName','Arial','FontSize',10) % etiqueta eje x, y la fuente y tamaño
ylabel('eje y (ua)','FontName','Arial','FontSize',10) % etiqueta eje x, y la fuente y tamaño
set(gca,'FontName','Verdana','FontSize',8)%da las propiedades al objeto gca, get current axes%de manera que elijo el tamaño y fuente de los ejes
grid %crea una red en la figura para ayudar a encontrar los puntos
axis square %crea una figura donde la parte hor y vert son iguales
% para cerrar todas las gráficas empleamos close all, deberiamos escribirla% al ppio%variamos las propiedades del gráfico
POS=[30 100 500 300];%posición donde va a salir
fig2=figure; set(fig2,'position',POS);%sale en la posicion pos
set(fig2,'Resize','off');
set(fig2,'MenuBar','none'); %elimina los botones auxiliares
set(fig2,'MenuBar','default'); %devuelve las propiedades anteriores