Gentleman

Author:
odinhg
Gentleman Sequence[If[p==0,Sequence[If[s<1,If[x>=-10&&x<=10,cos(-(x^(1 / 3))^2)-1],If[x>=-10&&x<=10,sin((x^(1 / 3))^2)]],s,0,1,1],If[p==1,Sequence[If[u<1,If[x>=2&&x<=5,sin(x-2)+5],If[x>=-5&&x<=-2,-sin(x+2)+5]],u,0,1,1],Sequence[If[qq==1,(-3.5,5),(3.5,5)],qq,0,1,1]]],p,0,2,1]