Plot[-D[x/(2*Sin[x/2]),x]^2*(D[D[x/(8*(Sin[x/2])^2)-1/4*Cotan[x/2],x],x]-1/(2*Sin[x/2])*D[D[x/(2*Sin[x/2]),x],x]),{x,0,Pi}]

Uh oh! Wolfram|Alpha doesn't run without JavaScript.

Please enable JavaScript. If you don't know how, you can find instructionshere.Once you've done that, refresh this page to start using Wolfram|Alpha.