;;; -*- Mode: LISP; Package: Macsyma; -*- Saved by gjc
(DSKSETQ $HARDI (QUOTE ((MTIMES SIMP) $%I $R ((%INTEGRATE SIMP) ((MTIMES SIMP) ((MEXPT SIMP) ((MPLUS SIMP) ((MTIMES SIMP) ((%SIN SIMP) $TH) $U) ((MTIMES SIMP) ((%COS SIMP) $TH) $V)) -1) ((MEXPT SIMP) $%E ((MTIMES SIMP) -1 $%I $R ((MPLUS SIMP) ((MTIMES SIMP) ((%SIN SIMP) $TH) $U) ((MTIMES SIMP) ((%COS SIMP) $TH) $V))))) $TH 0 ((MTIMES SIMP) 2 $%PI))))) 
(ADD2LNC (QUOTE $HARDI) $VALUES)