plot round[x] * (100- max[49,round[(115.382 - 22.5265*0.682854*1.014495^(1000/x))]] )/(100-99.5) x = 20 to 70