function puntoFijo()
    deff('y=g(x)','y=cos(x);'); 
    //Se inicia con un error grande
    error=100; 
    //Se  inicializa el valor inicial xraiz, cercano a la raiz.
    xraiz=1.0; 
    //Se inicia la tolerancia al error
    tolerancia=0.00001;     
    while error>tolerancia
        //Se guarda el valor anterior
        aux=xraiz; 
        //Se aproxima un nuevo valor de la raiz
        xraiz=g(xraiz)
        //Se calcula el error para evaluar la condición de salida del while
        error=abs(xraiz-aux);  
    end
    //Se muestra raiz aproximada..
    disp(xraiz);
endfunction