plot[1-(1-10^-8)^(450(24-t)), {t, 0, 24}]