Start3d();
Setparent(Cdyname()+"fig");
Xyzax3data("","x=[-5,5]","y=[-5,5]","z=[-5,5]");

fd1=[
 "z=4-(x^2+y^2)",
 "x=R*cos(T)","y=R*sin(T)",
 "R=[0,2]","T=[0,2*pi]","e"
];

if(Isangle(),
 Sf3data("1",fd1);
,
 Startsurf();
 Sfbdparadata("1",fd1);
 Crvsfparadata("1","ax3d","sfbd3d1",fd1);
 Wireparadata("1","sfbd3d1",fd1,5,2*pi/6*(0..5),
      ["Color=blue"]);
 if(Gccexists(),
   ExeccmdC("1",[""]);
 );
);
Windispg();