User Portlet User Portlet

Discussions
FindRoot[{?^2 == g k Tanh[k D], H0^2==H^2 (1+ 2 k D/Sinh[k D]) Tanh[k D]},{k,0.02},{H,6}] I want to make this a function, which will solve for k and H for a given range of D. Can anyone help?