24小时热门版块排行榜

返回列表

yssfighting

铜虫 (初入文坛)

应助: 0 (幼儿园)
金币: 108
帖子: 14
在线: 7.2小时
虫号: 2721174
注册: 2013-10-13
性别: MM
专业: 光学和光电子材料

[求助] Mathematica实现施瓦兹映射问题已有1人参与

请教一下给位高手，这个Mathematica中的程序哪里有问题，本来是要画映射图的，可是画不出图。恳请给位指点！
f[z_] = -i/2 z^(1/2) (z - 3);
Needs["Graphics`Colors`"];
Needs["Graphics`ComplexMap`"];
g = CartesiaMap[f, {-3, 4, 0.5}, {0.00001, 2.00001, 0.2},
PlotStyle -> {Blue, Red},
Ticks -> {Range[-4, 2, 2], Range[0, 3, 3]}];
Graphics[PlotRange -> {{-2.5, 2.5}, {0, 1.5}},
AxesLabel -> {"u", "v"}, Ticks -> {Range[-2, 2, 1], Range[0, 2, 1]},
DisplayFunction -> $DisplayFunction]
Print["The image of the upper half plane Im[z]>0 under thte mapping"];
Print["w=f[z]=", f[z]];

回复此楼

» 猜你喜欢

我为自己代言

1楼 2014-07-09 21:47:34

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

xzczd

木虫 (小有名气)

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

【答案】应助回帖

……问题有很多。

1 Mathematica里虚数是大写I。
2 我不知道你是看了哪个年代的入门书，总之，你调用的两个程序包在新版里已经被取消了。
3 就算你居然是因为用的Mathematica版本非常老而使用了老的程序包，你的函数名也写错了。应该是CartesianMap。

总之，在现行版本下的写法（我感觉你加的那些选项反而把图弄难看了所以去掉了，你想加就加回去。注意，虽然我不知道早期Mathematica对画图的规定是怎么样的，但是，在新版里，所有的选项都要放在ParametricPlot里面）是：

CODE:

f[z_] = -I/2 z^(1/2) (z - 3);

ParametricPlot[Through[{Re, Im}[f[x + I*y]]], {x, -3, 4}, {y, 0, 2}, 

 PlotStyle -> None]

未命名-1.jpg

赞一下

回复此楼

小木虫Mathematica版块已毁（当然原本也不咋的），建议大家前往百度贴吧或Stackexchange。

2楼2015-01-06 16:50:07