function A_ar=A_ar_functie(F,b,k,m);
%F
%b
%k
%m

A_ar=F./sqrt(b.^2.*((sqrt(k./m)).^2-(b.^2./(4.*m.^2))));
