WolframAlpha computational knowledge AI
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}]