Расчет света для аквариума (немного математики)

[Starcomputer]

Поглощение света в дистилированной воде при нормальном падении светового потока по закону Бугера - Ламберта - Бера.
Сам закон:
I = Io * e^(-k*l), где
Io - входящий поток;
e - 2,718
k - к-т поглощения, зависящий от длины волны:
Красный свет - 0,675;
Желтый - 0,625
Оранжевый - 0,575
Желтый - 0,525
Синий - 0,475
Фиолетовый - 0,425
Т.к. нам нужно получить соотношение Io / I, то Io принимаем за единицу.
Таблица, графики и сам расчет во вложении.
В самой программе калькулятора это реализовано так:

BugerBox.Value := DnoLightBox.Value / Power(2.718281828, (-2 * AquaH / 10)); // к-т поглощения
BugerBox.Value := BugerBox.Value / 0.8; // за счет входа в воду
BugerBox.Value := BugerBox.Value * (AquaL * AquaW / 100); // на площадь
BugerBox.Value := BugerBox.Value / ((Arctan((AquaW / 2) / (LampHBox.Value/10)) * 2 * 180 / Pi) / 360); // угловой к-т
BugerBox.Value := BugerBox.Value / Kref; // отражатели

К-т поглощения 2 взят потому что в аквариуме вода не дистилированная.

Допис від oltrew

Starcomputer, ошибку в калькуляторе для значений глубины больше 97 см так и не подправил.

Я выложил исходники программы расчета. Где ошибка ? Я не использую таблицы, я использую формулы.