Plot[(4(Sin[2t] + Sin[3t] - Sin[5t] + Sin[6t]) - Tan[t])^2-23,{t,0,Pi}]