An ellipse tangent to the three branch curve.

A link to the DirectSearch package must be included in the worksheet below.

Ellipse.mw

@Rouben Rostamian  For your amusement, here is another procedure for creating surfaces of revolution.

CreateSofR.mw

Use a range of theta = 0..evalf(Pi/2)

u := a*x^2 + b*y^2;
a := 1;
b := 1;
plot3d(u, x = -2 .. 2, y = -2 .. 2);

Think of each character as composed of short, straight matchsticks. The Y removes all but one of them from the X

This command may be what you need.

Export to Rich Text Format nicely copies a Maple worksheet to a Word document

plot3d([100*(.15+0.35e-1*x)+100*(.15+0.35e-1*9), 100*(35*9)+(0.5e-1*(100-100*(.15+0.35e-1*x)))*(.15+9*y)], x = 2 .. 9, y = .1 .. .45, axes = boxed);