calcroot.m

#==================================================
# Nth root approximation algorithm.
# Universidad de Costa Rica.
# Tarea # 1.
# Daniel Aguilar S (B40129).
#--------------------------------------------------
#                       USAGE
#
# Use "source("<script_path>/calcroot.m")" in order
# to use all the functions in this script.
#
#==================================================
1;

function approx = calcroot (startingPoint, degree, radicand)
  range = 0 : 19;
  
  if (startingPoint == "null" || startingPoint == 0)
    approx = radicand / degree;
  else
    approx = startingPoint;
  endif
  
  for x = range
    approx = ( ((degree - 1) / degree) * approx) + (radicand / (degree * (approx ^ (degree - 1)) ));
  endfor
 endfunction
 
 
 function retval = relerror (current, previus)
  retval = abs((current - previus) / current);
 endfunction