关于等高线的标注问题

scqxaie

那么稍微复杂的标注呢?
例如sin(x*y),有:

a=Table[(i-10)/10,{i,0,20}]//N;
c={-.8,-.5,-0.1,0.1,.5,.8};
x1=Table[#,{i,Length[a]}]&/@c//Flatten;
y1=Nest[Join[#,a]&,a,Length[c]-1];
b=y/.MapThread[FindRoot[Sin[#2*y]==#1,{y,#1}]&,{y1,x1}];
z1=ContourPlot[Sin[x*y]//Evaluate,{x,-1.1,1.1},{y,-1.1,1.1},PlotPoints->1000, Contours->a,ContourShading->False,Epilog->MapThread[Text[ToString[#1],{#3,#2},Background->GrayLevel[1.0]]&,{y1,b,x1}]];

得到

[ 本帖最后由 scqxaie 于 2006-10-20 16:16 编辑 ]

scqxaie

注意这里sin对应有很简单的反函数arccos,对于反函数不简单的情况呢?
u[r_,θ_]:=3/8-1/2 r^2 Cos[2 θ]+1/8 r^4Cos[4 θ];
v[x_,y_]:=Module[{r,θ},r=Sqrt[x^2+y^2];θ=If[ArcTan[x,y]>0,ArcTan[x,y],2π+ArcTan[x,y]];u[r,θ]//Evaluate];
a=Table[(i-10)/10,{i,0,20}]//N;
c={-.8,-.5,-0.1,0.1,.5,.8};
x1=Table[#,{i,Length[a]}]&/@c//Flatten;
y1=Nest[Join[#,a]&,a,Length[c]-1];
b=y/.MapThread[FindRoot[v[#2,y]==#1,{y,-1,1}]&,{y1,x1}];
z1=ContourPlot[v[x,y]//Evaluate,{x,-1.1,1.1},{y,-1.1,1.1},PlotPoints->1000,Contours->a,ContourShading->False,Epilog->MapThread[Text[ToString[#1],{#3,#2},Background->GrayLevel[1.0]]&,{y1,b,x1}]];

得到:

[ 本帖最后由 scqxaie 于 2006-10-20 16:19 编辑 ]

scqxaie

从中可以看出:
       由于FindRoot算法不强健，所以对于这里的复杂函数计算所得的高程标志位置不十分准确。可以调整算法,进而得到:

[ 本帖最后由 scqxaie 于 2006-10-20 16:23 编辑 ]

scqxaie

前面由于在x=0 or y=0处计算有困难,因此,进一步调整算法,得到:

scqxaie

最后留下两个问题:
1.如何作出:"不仿把下面的回答作为精华贴(7) 、(8)"中的图?
2.如何在各等值线长度n等分点处标注文字?

[ 本帖最后由 scqxaie 于 2006-10-20 16:31 编辑 ]

scqxaie

"                                                             |                                                "
"                                                            /|\                                               "
"                  如是我言________________|                                                "

[ 本帖最后由 scqxaie 于 2006-10-20 16:34 编辑 ]

scqxaie

通过前面的方法, 最后有:)---->

FreddyMusic

数字太多了！一个圈一个数字就够了！

ryan_xu

对命令能加一些讲解就更好了　　　　　　　　　　　

changqing

在6.0版中，已经有加数字标记的功能。

lishhit

看到大家都用Text这个命令才能完成相应的抄作，但是使用Text有时会遮挡Text文字后面的网格，这种情况出现在既画网格又用Text的情况，不知道大家是如何避开这个问题的？

qiao_david

Mathematic6.0的等高线的标注问题终于解决了。
ContourLabels -> Automatic

现在就不知改变坐标轴的方向的问题是否解决了？如Z轴的正向默认的是向上的，现在画图时让它的正向向下。

[ 本帖最后由 qiao_david 于 2007-6-9 16:54 编辑 ]

scqxaie

当初就是觉得等高线跟标注数字交叉影响美观才进行了设置,使得数字背后有白色背景,记不太清了,应该是设置的Background->GrayLevel吧,如果取消这个设置可能就可以了.