Bitte starten Sie Ihren Mathematica-Kernel neu. Sie haben einige der Symbole zuvor falsch eingestellt, da es keinen Grund gibt, dass Ihr Code nicht funktionieren sollte
f[x_] = (Cos[x])/(x^2 - 2*x - 3); d = Plot[f[x], ]; e = ListPlot[{}, PlotStyle -> PointSize[0.02]]; Show[d, e]