(*Functions of class Q*)
Plot[0.,{x,-2,2},Epilog->Inset[Style["NO",40,FontWeight->"Bold"],{Right,Center},{Right,Bottom}],PlotStyle->Thickness[0.015]]
a[1]=Show[
Plot[0.,{x,-2,2},Epilog->Inset[Style["NO",40,FontWeight->"Bold"],{Right,Center},{Right,Bottom}]],
Plot[Sin[x],{x,-2,0},PlotStyle->Thickness[0.015]],
Plot[Cos[2x],{x,0,2},PlotStyle->Thickness[0.015]]
]
a[2]=Show[
Plot[0.,{x,-2,2},Epilog->Inset[Style["NO",40,FontWeight->"Bold"],{Right,Center},{Right,Bottom}]],
Plot[Exp[3x]/(Abs[x])^0.01,{x,-2,-0.001},PlotStyle->Thickness[0.015]],
Plot[Exp[-3x]/x^0.01,{x,0.001,2.},PlotStyle->Thickness[0.015]]
]
Table[a[i],{i,2}]
Plot[Exp[-Sqrt[x^2]],{x,-2,2},Epilog->Inset[Style["YES",40,FontWeight->"Bold"],{Right,Center},{Right,Bottom}],PlotStyle->Thickness[0.015]]
Show[
Plot3D[Exp[-Sqrt[x^2+y^2]],{x,-2,2},{y,-2,2},Boxed->False,Axes->False],
Graphics3D[{Black,Text[StyleForm["YES",FontSize->40,FontWeight->"Bold"],{1.,1,1.}]}]
]
Show[
Plot[0.,{x,-2,2},Epilog->Inset[Style["NO",40,FontWeight->"Bold"],{Right,Center},{Right,Bottom}]],
Plot[Exp[3x]/Abs[x],{x,-2,-0.01},PlotStyle->Thickness[0.015]],
Plot[Exp[-3x]/x,{x,0.01,2.},PlotStyle->Thickness[0.015]]
]
Plot[Exp[-x^2],{x,-2,2},Epilog->Inset[Style["YES",40,FontWeight->"Bold"],{Right,Center},{Right,Bottom}],PlotStyle->Thickness[0.015]]
Plot[Exp[x],{x,-2,2},Epilog->Inset[Style["NO",40,FontWeight->"Bold"],{Right,Center},{Right,Bottom}],PlotStyle->Thickness[0.015]]
E1=0.24(x+2)^2+0.1y^2 
E2=0.24(x-2)^2+0.1y^2 
Show[
Plot3D[-E2,{x,-3,0},{y,-5,5},Epilog->Inset[Style["NO",40,FontWeight->"Bold"],{Right,Center},{Right,Bottom}],PlotRange->{{-3,3},{-5,5}},RegionFunction->Function[{x,y,z},z>-3],Boxed->False,Axes->False,PlotPoints->61 ,PlotStyle->Directive[Opacity[0.80], RGBColor[1,1,1]]],
Plot3D[-E1,{x,0,3},{y,-5,5},RegionFunction->Function[{x,y,z},z>-3],Boxed->False,PlotPoints->61 ,PlotStyle->Directive[Opacity[0.80], RGBColor[1,1,1]]]
]
ParametricPlot[{Cos[u],Sin[u]},{u,0,2Pi-0.1},Epilog->Inset[Style["YES",40,FontWeight->"Bold"],{Right,Center},{Right,Bottom}],PlotStyle->Thickness[0.015]]
ParametricPlot[{Sqrt[u]*Cos[u],Sqrt[u]*Sin[u]},{u,0,2Pi},Epilog->Inset[Style["NO",40,FontWeight->"Bold"],{Right,Center},{Right,Bottom}],PlotStyle->Thickness[0.015]]
SphericalPlot3D[{1},{θ,0,Pi},{ϕ,0,2Pi},Epilog->Inset[Style["YES",40,FontWeight->"Bold"],{Right,Center},{Right,Bottom}]]
SphericalPlot3D[ϕ,{θ,0,Pi},{ϕ,0,3Pi},Epilog->Inset[Style["NO",40,FontWeight->"Bold"],{Right,Center},{Right,Bottom}]]
ParametricPlot3D[{1.16^v Cos[v](1+Cos[u]),-1.16^v Sin[v](1+Cos[u]),-2 1.16^v(1+Sin[u])},{u,0,2Pi},{v,-15,6},PlotStyle->{Thickness[0.015],Mesh->None,Opacity[0.8]},PlotRange->All,PlotPoints->75,Epilog->Inset[Style["NO",40,FontWeight->"Bold"],{Right,Center},{Right,Bottom}]]