; Density of a sphere
(DEFUN SPHERE-DENSITY (RADIUS WEIGHT)

  (LET ( VOLUME
         (MASS (/ WEIGHT 9.88)) )

    (SETQ VOLUME (* 4/3 PI
                    (EXPT RADIUS 3)))

    (/ MASS VOLUME) ))

Contents    Page-10    Prev    Next    Page+10    Index