Plot[{0.02*16*f/(0.0225 - 0.0025*f), 16*(1 - 0.02*f/(0.0225 - 0.0025*f))}, {f, 0, 1}]