Extract a part of expression

*To*: mathgroup at smc.vnet.net*Subject*: [mg124293] Extract a part of expression*From*: Miguel Gil <misvrne at gmail.com>*Date*: Mon, 16 Jan 2012 17:07:20 -0500 (EST)*Delivered-to*: l-mathgroup@mail-archive0.wolfram.com*Reply-to*: comp.soft-sys.math.mathematica at googlegroups.com

How I can extract the full numerator (or denominator) of an expression of the form g (x) / w (x)?. I tried to do with Numerator [expr], but returns a wrong result. I tried with the attribute HoldForm [expr] and can not get the correct result. For example: expr = (x ^ 2 Cos [x] (Sin [2x], Tan [x ]))/( E ^ x * x * Csc [x] ^ 2)

**Follow-Ups**:**Re: Extract a part of expression***From:*Bob Hanlon <hanlonr357@gmail.com>

**Re: Extract a part of expression***From:*"Scot T. Martin" <smartin@seas.harvard.edu>

**Re: Extract a part of expression***From:*DrMajorBob <btreat1@austin.rr.com>