| 查看: 426 | 回复: 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]]; |
回复此楼» 猜你喜欢
0805 316求调剂
已经有6人回复
-
085601求调剂总分293英一数二
已经有3人回复
-
考研调剂
已经有3人回复
-
08工学调剂
已经有17人回复
-
340求调剂
已经有4人回复
-
311求调剂
已经有3人回复
-
食品专硕 一志愿双一流 328
已经有4人回复
-
材料调剂
已经有6人回复
-
300分，材料，求调剂，英一数二
已经有5人回复
-
求调剂，一志愿:南京航空航天大学大学 ，080500材料科学与工程学硕，总分289分
已经有5人回复
2楼2015-01-06 16:50:07
5