circle3d[{a_,b_},r_][t_]:={a,b,0}+r*{Cos[t],Sin[t],0}

ParametricPlot3D[{
{Cos[t],Sin[t],0},
{Cos[t],Sin[t],-1}
},{t,0,2Pi},PlotRange->{{-3,3},{-3,3},{-3,3}}]

ParametricPlot3D[
{Cos[t],Sin[t],z},{t,0,2Pi},{z,-1,0},PlotRange->{{-3,3},{-3,3},{-3,3}}]

ParametricPlot3D[
{Cos[u],Sin[u],v},{u,0,2Pi},{v,-2,2},PlotRange->{{-3,3},{-3,3},{-3,3}},Mesh->None,PlotPoints->40]

Show[{ParametricPlot3D[
{Cos[u],Sin[u],v},{u,0,2Pi},{v,-2,2},PlotRange->{{-3,3},{-3,3},{-3,3}},Mesh->None],ParametricPlot3D[
{Cos[u],Sin[u],0},{u,0,2Pi},PlotStyle->{Red,Thickness[.01]}]}]

Show[{ParametricPlot3D[
{Cos[u],Sin[u],v},{u,0,2Pi},{v,-2,2},PlotRange->{{-3,3},{-3,3},{-3,3}},Mesh->None],ParametricPlot3D[
{Cos[u],Sin[u],v}/.v->0,{u,0,2Pi},PlotStyle->{Red,Thickness[.01]}]}]

Show[{ParametricPlot3D[
{Cos[u],Sin[u],v},{u,0,2Pi},{v,-2,2},PlotRange->{{-3,3},{-3,3},{-3,3}},Mesh->None],ParametricPlot3D[
{Cos[u],Sin[u],v}/.v->0,{u,0,2Pi},PlotStyle->{Red,Thickness[.01]}],ParametricPlot3D[
{Cos[u],Sin[u],v}/.u->0,{v,-2,2},PlotStyle->{Red,Thickness[.01]}]}]

Show[{
ParametricPlot3D[
{Cos[u],Sin[u],v},{u,0,2Pi},{v,-2,2},PlotRange->{{-3,3},{-3,3},{-3,3}},Mesh->None,PlotStyle->Opacity[0.5]],ParametricPlot3D[
{Cos[u],Sin[u],v}/.v->0,{u,0,2Pi},PlotStyle->{Red,Thickness[.01]}],
ParametricPlot3D[
{Cos[u],Sin[u],v}/.u->0,{v,-2,2},PlotStyle->{Red,Thickness[.01]}],
ParametricPlot3D[
{Cos[u],Sin[u],v}/.v->0.2u,{u,0,2Pi},PlotStyle->{Blue,Thickness[.01]}]}]

Show[{
ParametricPlot3D[
{Cos[u],Sin[u],v},{u,0,2Pi},{v,-2,2},PlotRange->{{-3,3},{-3,3},{-3,3}},Mesh->None,PlotStyle->Opacity[0.5]],ParametricPlot3D[
{Cos[u],Sin[u],v}/.v->0,{u,0,2Pi},PlotStyle->{Red,Thickness[.01]}],
ParametricPlot3D[
{Cos[u],Sin[u],v}/.u->0,{v,-2,2},PlotStyle->{Red,Thickness[.01]}],
ParametricPlot3D[
{Cos[u],Sin[u],v}/.v->0.2u+0.3,{u,0,2Pi},PlotStyle->{Blue,Thickness[.01]}]}]

Show[{
ParametricPlot3D[
{Cos[u],Sin[u],v},{u,0,2Pi},{v,-2,2},PlotRange->{{-3,3},{-3,3},{-3,3}},Mesh->None,PlotStyle->Opacity[0.5]],ParametricPlot3D[
{Cos[u],Sin[u],v}/.v->0,{u,0,2Pi},PlotStyle->{Red,Thickness[.01]}],
ParametricPlot3D[
{Cos[u],Sin[u],v}/.u->0,{v,-2,2},PlotStyle->{Red,Thickness[.01]}],
ParametricPlot3D[
{Cos[u],Sin[u],v}/.v->0.2u^2+0.3,{u,0,2Pi},PlotStyle->{Blue,Thickness[.01]}]}]

Show[{
ParametricPlot3D[
{Cos[u],Sin[u],v},{u,0,2Pi},{v,-2,2},PlotRange->{{-3,3},{-3,3},{-3,3}},Mesh->None,PlotStyle->Opacity[0.5]],ParametricPlot3D[
{Cos[u],Sin[u],v}/.v->0,{u,0,2Pi},PlotStyle->{Red,Thickness[.01]}],
ParametricPlot3D[
{Cos[u],Sin[u],v}/.u->0,{v,-2,2},PlotStyle->{Red,Thickness[.01]}],
ParametricPlot3D[
{Cos[u],Sin[u],v}/.v->0.4Sin[5u],{u,0,2Pi},PlotStyle->{Blue,Thickness[.01]}]}]

?otto

Show[{
ParametricPlot3D[
{Sin[u]Cos[u],Sin[u],v},{u,0,2Pi},{v,-2,2},PlotRange->{{-3,3},{-3,3},{-3,3}},Mesh->None,PlotStyle->Opacity[0.5]],ParametricPlot3D[
{Sin[u]Cos[u],Sin[u],v}/.v->0,{u,0,2Pi},PlotStyle->{Red,Thickness[.01]}],
ParametricPlot3D[
{Sin[u]Cos[u],Sin[u],v}/.u->0,{v,-2,2},PlotStyle->{Red,Thickness[.01]}],
ParametricPlot3D[
{Sin[u]Cos[u],Sin[u],v}/.v->0.4Sin[5u],{u,0,2Pi},PlotStyle->{Blue,Thickness[.01]}]}]

figura=Show[{
ParametricPlot3D[
{Sin[u]Cos[u],Sin[u],v},{u,0,2Pi},{v,-2,2},PlotRange->{{-3,3},{-3,3},{-3,3}},Mesh->None,PlotStyle->Opacity[0.5],RegionFunction->Function[{x,y,z,u,v},z<0.4Sin[5u]]],
ParametricPlot3D[
{Sin[u]Cos[u],Sin[u],v}/.v->0.4Sin[5u],{u,0,2Pi},PlotStyle->{Blue,Thickness[.01]}]}]

Export["figurasinotto.jpg",figura]

ParametricPlot3D[circle3d[{0,0},1][t],{t,0,2Pi},PlotRange->{{-3,3},{-3,3},{-3,3}}]