ReplaceAll[(D * (1 - ATAN(A * D) * 2/pi *B)), {D -> 0.4057, A -> 1.6, B-> 1}]