> hallo forum:
Versuch's mal mit Collect[]:
Collect[expr, x] collects together terms involving the same powers of
objects matching x. Collect[expr, {x1, x2, ... }] collects together terms
that involve the same powers of objects matching x1, x2, ... . Collect[expr,
var, h] applies h to the expression that forms the coefficient of each term
obtained.
Harald
--
______________________________________________________________________
Harald Berndt, Ph.D. Phone: 510.533.2198 haberndt@XXXXXXX.net
______________________________________________________________________
"I am not young enough to know everything." Oscar Wilde
>
> ich habe es mit "häßlich" langen brüchen zu tun, die
> ungefähr so aussehen wie der unten angezeigte, d.h.:
> d(\eta_{1}, \eta_{2}, \pi, i):= 4*\eta_{1}*\eta_{2} +
> i*2*\eta_{2} + i^{2} + \eta_{1}*\delta*0.5 + ...
> (siehe unten).
>
> nun möchte ich, dass die funktion nach vier speziellen
> variablen (i, \eta_{1}, \eta_{2}, \pi) ausgeklammert
> wird, d.h.
> d := (...)i + (...)\pi + (...)\eta_{1} + (...)
> \etal_{2}
>
> wie mache ich das?
> gibt es einen speziellen mathematica befehl hierzu?
>
> vielen dank
> nic
>
>
> d := \((ϕ\_1\ \((\(-4\)\ δ\^2\ ε\_3 -
> 8\ δ\^2\ ξ\ ε\_3 - 12\ δ\^2\
> η\ ξ\ ε\_3 - 4\ δ\^2\ η\^2\
> ξ\ ε\_3 - 4\ δ\^2\ ξ\^2\
> ε\_3 - 4\ δ\^2\ η\ ξ\^2\ ε\_3
> - 4\ δ\ ω\ ε\_3 - 4\ γ\ δ\
> ω\ \
> ε\_3 - 8\ δ\ ξ\ ω\ ε\_3 - 8\
> γ\ δ\ ξ\ ω\ ε\_3 - 8\ δ\
> η\ ξ\ ω\ ε\_3 - 16\ γ\
> δ\ η\ ξ\ ω\ ε\_3 - 4\ δ\
> η\^2\ ξ\ ω\ ε\_3 - 4\ γ\
> δ\
> η\^2\ ξ\ ω\ ε\_3 - 8\ δ\
> ξ\^2\ ω\ ε\_3 - 4\ δ\ η\
> ξ\^2\ ω\ \
> ε\_3 - 4\ γ\ δ\ η\ ξ\^2\
> ω\ ε\_3 - ω\^2\ ε\_3 - 2\ γ\
> ω\^2\ ε\_3 - γ\^2\ ω\^2\ ε\_3
> - 8\ δ\^2\ θ\ ω\^2\ ε\_3 - 8\
> γ\ ξ\ ω\^2\ ε\_3 -
> 4\ η\ ξ\ ω\^2\ ε\_3 - 8\
> γ\^2\ η\ ξ\ ω\^2\ ε\_3 - 4\
> γ\
> η\^2\ ξ\ ω\^2\ ε\_3 - 4\
> ξ\^2\ ω\^2\ ε\_3 - 4\ γ\ η\
> ξ\^2\ ω\^2\ ε\_3 - 8\ δ\ θ\
> ω\^3\ ε\_3 - 8\ γ\ δ\ θ\
> ω\^3\ ε\_3 - 8\ γ\ θ\ ω\^4\
> ε\_3 + 4\ δ\^2\ ε\_4 - 4\ γ\
> δ\^2\ ε\_4 + 8\ δ\^2\ ξ\ ε\_4
> - 8\ γ\δ\^2\ ξ\ ε\_4 + 12\
> δ\^2\ η\ ξ\ ε\_4 - 12\ γ\
> δ\^2\ η\
> ξ\ ε\_4 + 4\ δ\^2\ η\^2\ ξ\
> ε\_4 - 4\ γ\ δ\^2\ η\^2\ ξ\ \
> ε\_4 + 4\ δ\^2\ ξ\^2\ ε\_4 - 4\
> γ\ δ\^2\ ξ\^2\ ε\_4 +
> 4\ δ\^2\ η\ ξ\^2\ ε\_4 - 4\
> γ\ δ\^2\ η\ ξ\^2\ ε\_4 + 4\
> δ\ ω\ ε\_4 - 4\ γ\^2\ δ\
> ω\ ε\_4 + 8\ δ\ ξ\ ω\
> ε\_4 - 8\ \
> γ\^2\ δ\ ξ\ ω\ ε\_4 + 8\
> δ\ η\ ξ\ ω\ ε\_4 + 4\ γ\
> δ\
>
>
>
>
>
>
>
> ___________________________________________________________
> Telefonate ohne weitere Kosten vom PC zum PC: http://messenger.yahoo.de
>
>
>
DMUG-Archiv, http://www.mathematica.ch/archiv.html