evaluate(F=2k(sqrt((l/2)^2+d^2)-l/2)d/sqrt((l/2)^2+d^2)) for (F=200,k=600,l=3)