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