|
- \[ScriptCapitalR]=ImplicitRegion[(2-Sqrt[x^2+z^2])^2+y^2<=1,{x,y,z}];
- RegionPlot[Evaluate[Resolve[\!\(
- \*SubscriptBox[\(\[Exists]\), \(z\)]\({x, y, z} \[Element] \[ScriptCapitalR]\)\), Reals]], {x, -3, 3}, {y, -3, 3}]
复制代码
\[\left(-\sqrt{-x^2+4 \sqrt{x^2}-3}\leq y\leq \sqrt{-x^2+4 \sqrt{x^2}-3}\land (-3<x<-2\lor 2<x<3)\right)\lor (-2\leq x\leq 2\land -1\leq y\leq 1)\] |
|