Plot[(a*0.06)/(1+0.06*a), {a, 0, 100}]