图像优化
mathematica吧
全部回复
仅看楼主
level 4
MMYAK47 楼主
解方程画出来的双稳态图像有断点和锯点如图所示,哪里出问题了呢
2019年09月03日 03点09分 1
level 4
MMYAK47 楼主
二楼附上程序。
Clear["Global`*"]
\[Kappa]1 = 49079/(6.28*3.68); \[Kappa]c = 5.58/(4*6.28*3.68);
\[CapitalDelta]1 = 1; \[Gamma]0 = 1*10^(-7); J0 = 9.1/36800;
g1 = 0*727/(6.28*3.68); aa = 100^2;
p1 = ContourPlot[
na*((\[CapitalDelta]c - 2*J0^2*na -
g1^2*\[CapitalDelta]1/(\[CapitalDelta]1^2 + (\[Kappa]1/
2)^2))^2 + (g1^2*\[Kappa]1/(\[CapitalDelta]1^2 + (\
\[Kappa]1/2)^2) + \[Kappa]c)^2/4) == aa, {\[CapitalDelta]c, -1,
2}, {na, 0, 11000000}, ContourStyle -> {Blue},
PlotLegends -> {"g=0"}]
2019年09月03日 03点09分 2
level 1
点画的太少了吧,在你最后一句 {“g=0”} 后面加上 , PlotPoints -> 100
我电脑上试了一下,可以了,你可以试试。
2019年09月03日 16点09分 3
试了一下,确实可以了,这样美观多了,谢谢
2019年09月04日 07点09分
1