Perimeter Of A Ellipse By Radius

function Perimeter_Of_A_Ellipse_By_Radius(r1,r2)=
    PI*(3*(r1+r2)-sqrt((3*r1+r2)*(r1+3*r2)));