| 查看: 422 | 回复: 1 | ||
yssfighting铜虫 (初入文坛)
|
[求助]
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]]; |
» 猜你喜欢
为什么中国大学工科教授们水了那么多所谓的顶会顶刊,但还是做不出宇树机器人?
已经有9人回复
版面费该交吗
已经有9人回复
体制内长辈说体制内绝大部分一辈子在底层,如同你们一样大部分普通教师忙且收入低
已经有13人回复
面上可以超过30页吧?
已经有4人回复
“人文社科而论,许多学术研究还没有达到民国时期的水平”
已经有5人回复
什么是人一生最重要的?
已经有4人回复


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













回复此楼