(*
 VL: Rechnernutzung in der Physik, WS12/13
 rpol.m
 p1(x,d)/p2(x,d): Ausmultiplizieren und ggT finden
*)

Timing[num = Expand[ d*      ((x + d + 2)^250 - 23*d + x^2) ];]

Timing[den = Expand[ (d - 1)*((x + d + 2)^250 - 23*d + x^2) ];]

(* Together: ~3s: *)
Timing[Together[num/den]]

(* Factor: ~3s: *)
Timing[Factor[num/den]]

(* Simplify: ~3s: *)
Timing[Simplify[num/den]]