Area Of A Circle Segment By Height

function Area_Of_A_Circle_Segment_By_Height(r,h)=
    (r*r)*acos((r-h)/r)*((2*PI)/360)-(r-h)*sqrt((2*r*h)-(h*h));