Example 1

c1=ParametricPlot3D[{2Cos[t],3Sin[t],0},{t,0,2Pi},AxesLabel->{x,y,z},ViewPoint->{1,1,1}];s1=Plot3D[(x^2-y^2)/8,{x,-4,4},{y,-4,4}];comp1=ParametricPlot3D[{2Cos[t],3Sin[t],((2Cos[t])^2-(3Sin[t])^2)/8},{t,0,2Pi},PlotStyle->Red];
Show[c1,s1,comp1]