double A, e2. usw

A = A * 2;
e2 = d * H * H + b * t * t;
e2 = e2 / A;