版块导航: 正在加载中...

登录注册

应《网络安全法》要求，自2017年10月1日起，未进行实名认证将不得使用互联网跟帖服务。为保障您的帐号能够正常使用，请尽快对帐号进行手机号验证，感谢您的理解与支持！

24小时热门版块排行榜

北京石油化工学院2026年研究生招生接收调剂公告

返回列表

kabaisun

专家顾问 (正式写手)

应助: 20 (小学生)
金币: 1311.9
散金: 681
红花: 3
帖子: 315
在线: 113.8小时
虫号: 1990141
注册: 2012-09-10
性别: GG
专业: 交通运输经济学
管辖: 计算模拟区

[求助] mathematica中contourplot绘图时自变量取值区间有间断点怎么处理？已有1人参与

以下代码画出流网时，因为变量的取值区间包含使算式的分母为零的点，出图效果不佳，请问绘图区间应该如何调整？还是有其它的设置可以避免计算分母为零的点？除了把一张图分两张图来画的方法。

z1 = -(qv *0.5*Log[x^2 + y^2] - tao ArcTan[y/x])/(2 Pi);
z2 = -(qv*ArcTan[y/x] + 0.5*tao *Log[x^2 + y^2])/(2 Pi);
qv = 1; tao = 1;
ContourPlot[{z1}/50, {x, -10, 10}, {y, -10, 10},
ContourStyle -> {Red}, Frame -> False, Axes -> True,
ContourShading -> None, PlotLegends -> {"\[Psi](x,y)"}]
ContourPlot[{z2}/50, {x, -10, 10}, {y, -10, 10},
ContourStyle -> {Dashed}, Frame -> False, Axes -> True,
ContourShading -> None, PlotLegends -> {"\[Phi](x,y)"}]
Show[%%, %]

平面无旋流叠加图.png

回复此楼

» 猜你喜欢

» 本主题相关价值贴推荐，对您同样有帮助:

mathematica中ContourPlot函数绘图 legend不能显示已经有10人回复

严实诚勇

1楼 2015-01-07 17:08:08

已阅回复此楼关注TA 给TA发消息送TA红花 TA的回帖

xzczd

木虫 (小有名气)

应助: 72 (初中生)
金币: 1941.4
红花: 11
帖子: 290
在线: 144.2小时
虫号: 3305534
注册: 2014-07-03

【答案】应助回帖

★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★
感谢参与，应助指数 +1
kabaisun: 金币+15, ★★★★★最佳答案, 学习了，很感谢！ 2015-01-07 20:42:27

增加选项Exclusions -> {x == 0}即可，如果觉得间隙还是大那就把点数增加一点：

CODE:

contour[expr_, color_] := 

 ContourPlot[expr, {x, -10, 10}, {y, -10, 10}, ContourStyle -> color, 

  ContourShading -> None, Exclusions -> {x == 0}, PlotPoints -> 50]

z1 = -(qv*0.5*Log[x^2 + y^2] - tao ArcTan[y/x])/(2 Pi);

z2 = -(qv*ArcTan[y/x] + 0.5*tao*Log[x^2 + y^2])/(2 Pi);

Show@MapThread[contour, {{z1, z2}/50, {Red, Dashed}}] /. 

 Graphics[a__] :> 

  Legended[Graphics[a], 

   Placed[LineLegend[{Red, Dashed}, {"\[Psi](x,y)", "\[Phi](x,y)"}], 

    After]]

mathematica中contourplot绘图时自变量取值区间有间断点怎么处理？-1

未命名-2.png

赞一下(2人)