ReplaceAll[P * ((C + T) / (60 * (1+(0.15*R)-(0.011*R*(360-A)/30)))) , {P->3.5, T-> 48, C->2.57, R->30, A->360}]