So ersetzen Sie nur die isolierte Variable x

Question

Ich möchte die Variable xim Ergebnis ersetzen , nicht xin nicht verwandten x[i].

ω[n_] := Product[x - x[i - 1], {i, 1, n}]

D[ω[3], x] /. x -> x[k]

Im obigen Code möchte ich ein Ergebnis wie erhalten (x[k] - x[0])*(x[k] - x[1]) + (x[k] - x[2])*(x[k] - x[1]) + (x[k] - x[0])*(x[k] - x[2]). Wie kann ich dieses Problem geschickt lösen?

Answer 1

Sie können Replacemit der Option verwenden Heads -> False:

Replace[D[ω[3], x], x -> x[k], All, Heads -> False]

 (-x[0] + x[k]) (-x[1] + x[k]) + (-x[0] + x[k]) (-x[2] + x[k]) + 
  (-x[1] + x[k]) (-x[2] + x[k])

Alternativ können Sie ReplaceAllmit der Ersetzungsregel verwenden {p_x :> p, x -> x[k]}:

D[ω[3], x] /. { p_x :> p, x -> x[k]}

 (-x[0] + x[k]) (-x[1] + x[k]) + (-x[0] + x[k]) (-x[2] + x[k]) + 
  (-x[1] + x[k]) (-x[2] + x[k])