在mathematica里面绘制隐函数图
纪念一下画了一天的图,万事开头难嘛
x
=
2
−
1
p
[
1
−
(
1
−
y
)
3
]
y
=
2
−
1
p
[
1
−
(
1
−
x
)
3
]
x=2-\frac{1}{p[1-(1-y)^3]} \\ y=2-\frac{1}{p[1-(1-x)^3]}
x=2−p[1−(1−y)3]1y=2−p[1−(1−x)3]1
用到的主要是mathematica里面的等高线绘图ContourPlot这个函数
ContourPlot[{y - 2 + 1/(0.7588*(1 - (1 - x)^3)) == 0,
x - 2 + 1/(0.7588*(1 - (1 - y)^3)) == 0}, {x, 0, 1}, {y, 0, 1}]
中午画出来了,喜极而泣