ReplaceAll[(A × (1 - E)) * ( 0.75 + T - D ), {A->1.6, E-> .2307692, C->0.95, T->1.0, D->0.0}]