mathematica中画二维不规则区域图——黑白图

最新推荐文章于 2024-04-28 23:44:23 发布

zhenyan_cy

最新推荐文章于 2024-04-28 23:44:23 发布

阅读量1.3k

点赞数

分类专栏： Mathematica经验画图文章标签：经验分享

本文链接：https://blog.csdn.net/zhenyancy1993/article/details/125798784

版权

Mathematica经验同时被 2 个专栏收录

15 篇文章 7 订阅

订阅专栏

画图

2 篇文章 1 订阅

订阅专栏

函数：RegionPlot

Clear["`*"];
RegionPlot[{x^2 < y^3 + 1, y^2 < x^3 + 1}, {x, -2, 5}, {y, -2, 5}, 
 PlotStyle -> White, PlotRangePadding -> 0, FrameLabel -> {"x", "y"}, 
 BoundaryStyle -> Directive[15, Thick, Black], 
 FrameTicks -> {{{-2, -1, 0, 1, 2, 3, 4, 5}, 
    None}, {{-2, -1, 0, 1, 2, 3, 4, 5}, None}}, Frame -> True, 
 FrameStyle -> Directive[15, Thick, Black], 
 Epilog -> {Text[
    Style["\!\(\*SuperscriptBox[\(x\), \(2\)]\)<\!\(\*SuperscriptBox[\
\(y\), \(3\)]\)+1", 24], {-0.01, 3}], 
   Text[Style["all", 24], {3.0, 2.9}], 
   Text[Style[
     "\!\(\*SuperscriptBox[\(y\), \
\(2\)]\)<\!\(\*SuperscriptBox[\(x\), \(3\)]\)+1", 24], {3, -0.07}]}]

结果展示：