convfun.m

function[fc]= convfun(f)
% primero los de potencia

cs=strfind(f,'^');
np=length(cs);
for i=1:np
    f=strcat(f(1:cs(i)-1),'.',f(cs(i):length(f)));
     if (i+1)<=np
        cs(i+1)=cs(i+1)+i;
    end
end
% segundo los de multiplicacin

cm=strfind(f,'*');
nl=length(cm);
for i=1:nl
    
    f=strcat(f(1:cm(i)-1),'.',f(cm(i):length(f)));
    if (i+1)<=nl 
        cm(i+1)=cm(i+1)+i;
    end
   
end

% tercero en divisin

cd=strfind(f,'/');
nd=length(cd);
for i=1:nd
    
    f=strcat(f(1:cd(i)-1),'.',f(cd(i):length(f)));
    if (i+1)<=nd
        cd(i+1)=cd(i+1)+i;
    end
   
end
fc=f;
return