Plot[{100*(1 - ( 1 + ((1 - 0.1 / (d/100)) / 0.95) * ((1 + (d/100))^(1/8760) - 1) )^8760 / (1 + (d/100))), 100*(1 - 1/(1+(d/100)))}, {d, 10, 100}]