找了半天也没找到解决办法就想到了贴吧，之前有下标也删掉了，总是x赋值不上去，麻烦大佬帮帮忙：
b = 0.512264; V0 = 15; a = 5;
d[x] := (x D[BesselJ[0, X], x]/BesselJ[0, x] /.
x == (a b \[Sqrt]x)) - (x D[BesselK[0, X], x]/BesselK[0, x] /.
x == (a b \[Sqrt](V0 - x)));
d[x]
Plot[Evaluate[d[x]], {x, 0, V0},
PlotPoints -> 200, PlotPoints -> 100]
Clear["Global'*"]

d的错误定义应该仍未被清除。不知道你有没有执行那个包含Clear的单元。实在不行你就重启软件。
再就是，ReplaceAll用法错误