Re: Restriction on the domain of Plot3D
- To: mathgroup at smc.vnet.net
- Subject: [mg55405] Re: Restriction on the domain of Plot3D
- From: dh <dh at metrohm.ch>
- Date: Tue, 22 Mar 2005 03:50:55 -0500 (EST)
- References: <d1lvkh$7sp$1@smc.vnet.net>
- Sender: owner-wri-mathgroup at wolfram.com
Hi Steeve, You may e.g. tell mathematica to plot zero at the unwanted positions: Plot3D[ If[2 z0 < d, Evaluate[eqt[1,10,10]], 0], {z0, 10^-6, 3}, {d, 1/10, 6}] If you do not like the zeros, you can specify something unplottable like Null Plot3D[ If[2 z0 < d, Evaluate[eqt[1,10,10]], 0], {z0, 10^-6, 3}, {d, 1/10, 6}] although you will get a lot of complaints, the final plot likes nice. Daniel Steeve Brechmann (schumi) wrote: > Hi everyone, > > I want to plot the following function with Plot3D : > > eqt[q_,N_,M_]:= - > (3*q/(8*Pi))*(Sum[(Cos[4*Pi*n*d]/(2*n*d))-(Sin[4*Pi*n*d]/(8*Pi*(n*d)^2))-(Cos[4*Pi*n*d]/(32*Pi^2*(n*d)^3)),{n,1,N}] - > Sum[(Cos[4*Pi*Abs[z0-m*d]]/Abs[z0-m*d])-(Sin[4*Pi*Abs[z0-m*d]]/(4*Pi*Abs[z0-m*d]^2))-(Cos[4*Pi*Abs[z0-m*d]]/(16*Pi^2*Abs[z0-m*d]^3)),{m,-M,M}]) > > Plot3D[Evaluate[eqt[1,10,10]],{z0,10^ - 6,3},{d,1/10,6},PlotPoints->50]; > > But, how can i specify to Mathematica, that i want just the plot for 2*zz0 < dd ? > > Thanks for the help ! > > Steeve Brechmann > Physics Department, Laval University > steevebrechmann at yahoo.ca > >