;; | ----------------------------------------------------------------------------
;; | GE_GetRadiusHD
;; | ----------------------------------------------------------------------------
;; | Function : Returns the radius of an arc, given the H and D arguments
;; | Arguments:
;; |           'H' - Height of the arc (i.e distance between the midpoint of chord
;; |                 and midpoint (top) of arc)
;; |           'D' - Distance between ends of the Arc
;; | Action   : Returns a radius of the arc segment which is (sqr(D)/8H + H/2)
;; | Updated  : September 25, 2002
;; | e-mail   : rakesh.rao@4d-technologies.com
;; | Web      : www.4d-technologies.com
;; | ----------------------------------------------------------------------------


(defun GE_GetRadiusHD ( H D )

	(abs (+ (/ (* D D) (* 8.0 H)) (* 0.5 H)))
)