function a=potenza(x,n)
%calcola x^n, per n naturale
if n<0
   x=1/x;
   n=-n;
end
a=1; %accumulatore
for i=1:n
    a=a*x;
end

%(((x*x)*x)*x)*x
