Plot[((d - 30) / (15 - 30)) ^ 2, {d, 15, 30}]