Mathematica 中 怎样 在1张图形中，绘制2个隐函数的 较小者

jimogsh

10# waynebuaa

1. f[x_] := x^2 - 1; a = f[x] - y; b = Sin[x] - y; Show[
   
2. ContourPlot[{a, b}, {x, -3, 3}, {y, -2, 2}],
   
3. ContourStyle -> Directive[Gray, Dashed],
   
4. ContourPlot[Min[a, b] == 0, {x, -3, 3}, {y, -2, 2}]]

复制代码

这个怎么不能算？我是想把f[x]的显式函数改为隐式的，然而却不能作图，什么原因呢？

weichanghe2000

你的 综括号 的位置写错了。

1. f[x_] := x^2 - 1; a = f[x] - y; b = Sin[x] - y; Show[
   
2. ContourPlot[{a, b}, {x, -3, 3}, {y, -2, 2},
   
3.   ContourStyle -> Directive[Gray, Dashed]],
   
4. ContourPlot[Min[a, b] == 0, {x, -3, 3}, {y, -2, 2}]]

复制代码

weichanghe2000

19# ggggwhw ，我碰到的问题，比较复杂，我怕耽误大家来看代码。抱歉。

ggggwhw

虽然不完美,但是总算是解决了.
你给的变量形式不太好,我以源码形式贴上来后复制回去无法运行,只能是以附件形式上传了.

weichanghe2000

首先 感谢 24# ggggwhw  。
因为我是一个 Mathematica 新手，虽然看不太懂你 写的程序，但我知道：附件内的程序 非常地道，精炼而又 优美，呵呵。代码风格令人敬佩。