Re: adding graphics and calibration to plot3d
- To: mathgroup at smc.vnet.net
- Subject: [mg107751] Re: adding graphics and calibration to plot3d
- From: dh <dh at metrohm.com>
- Date: Thu, 25 Feb 2010 01:54:41 -0500 (EST)
- References: <hm323b$m9r$1@smc.vnet.net>
Hi Guiseppe,
a cheap and dirty way to do this is to use the ColorFunction for this
purpose. The problem with this approach is, that the surface is not
sampled dense enough to give nice edges. We must therefore enforce a
denser sampling by PlotPoints:
f[x_] := x;
colfun = Function[{x, y}, t = N[Arg[f[x + y I]]];
If[t < 0, t = 2 Pi + t];
If[(Min @@ Table[Abs[t - i], {i, 0, 2 Pi, Pi/4}]) < 0.02,
GrayLevel[t/(2 Pi)], Hue[t/(2 Pi)]]];
Plot3D[Log[Abs[f[x + I y]]], {x, -2, 2}, {y, -2, 4},
ColorFunction -> colfun, ColorFunctionScaling -> False,
PlotPoints -> 100]
Daniel
On 24.02.2010 12:21, pippo p. wrote:
> 1) is there a way to add graphics to a 3d plot?
> which is the best?
>
> i use this piece of code to plot the module of a complex function.
> Plot3D[Log[ Abs[f[x + I y]]], {x, -2, 2}, {y, -2, 4},
> ColorFunction ->Function[{x, y},Hue[N[Arg[f[x + y I]]/(2 Pi)]]],
> ColorFunctionScaling -> False] .
>
> i would like to add to the plot the 8 graphics of the 8 loci (i 8
> different scale of gray) where the phase is 0 , 45 , 90 , 135 , 180 ,
> 225 , 270 , 325 .
>
> 2) is there a way to put automatically the calibration of loci?
> i mean: to write the string "0 " close to the locus of 0 and so
> on ...
> thanks
>
> giuseppe
>
--
Daniel Huber
Metrohm Ltd.
Oberdorfstr. 68
CH-9100 Herisau
Tel. +41 71 353 8585, Fax +41 71 353 8907
E-Mail:<mailto:dh at metrohm.com>
Internet:<http://www.metrohm.com>