Manipulate[ RegionPlot[(x/a)^2 + (y/b)^2 < 1， {x， -1， 1}， {y， -1， 1}， PlotRange -> {{-1， 1}， {-1， 1}}]， {a， 0.001， 1}， {b， 0.001， 1}]
