This function calculate the radial basis transfer function.
The algorithm used when the input is n is: radbas(n) = a = exp(-n^2).
Release Notes:
function RadBas input Real[:, :] n "Input of the function"; output Real[size(n, 1), size(n, 2)] a "Output of the function"; end RadBas;