Programa para generar ondas

 x=-%pi:0.1:%pi

i=length(x)
y=cos(x);//Esto es un comentario
plot(x,y)
/*comentario */
function y=a0fserie(x), y=x^2,
endfunction
a0=(1/(2*%pi))*intg(0,%pi,a0fserie)

funcprot(0)

//Calcular coeficientes a_n
for n=1:8
    function y=f(x), y=sin(x)*cos(x),endfunction
    an=(1/%pi)*intg(0,%pi,f) 
end

//Calcular coeficientes b_n
for n=1:8
    function y=f(x), y=x^2*sin(x),endfunction
    bn=(1/%pi)*intg(0,%pi,f) 
end

yfs=a0;
for n=1:8
    yfsp=an*cos(n*x)+bn*sin(n*x)
    yfs=yfs+yfsp;
end

plot(x, yfs);