f[x_]:=x*Sin[x]

Plot[{f[x]},{x,0,.5},PlotStyle -> {Red}]

Plot[{f''[x]},{x,0,.5},PlotStyle -> {Red}]