Re: Restriction on the domain of Plot3D

*To*: mathgroup at smc.vnet.net*Subject*: [mg55435] Re: Restriction on the domain of Plot3D*From*: yehuda ben-shimol <bsyehuda at gmail.com>*Date*: Wed, 23 Mar 2005 05:34:45 -0500 (EST)*References*: <200503220850.DAA23725@smc.vnet.net>*Reply-to*: yehuda ben-shimol <bsyehuda at gmail.com>*Sender*: owner-wri-mathgroup at wolfram.com

Hi David, If the solution you suggested to Steeve is somehow involved with tweaking Mathematica options I would be thankful to learn this as well. Can you send it to me too? thanks yehuda On Tue, 22 Mar 2005 03:50:57 -0500 (EST), David Park <djmp at earthlink.net> wrote: > Steeve, > > I replied to you once, privately, showing in detail how to do these plots > and even sent you .gif image examples. But I never received a reply. Perhaps > you didn't get the email? We can't include attachments to MathGroup > postings, which is why I replied privately. > > David Park > djmp at earthlink.net > http://home.earthlink.net/~djmp/ > > From: Steeve Brechmann (schumi) [mailto:steevebrechmann at yahoo.ca] To: mathgroup at smc.vnet.net > To: mathgroup at smc.vnet.net > > > 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))-(Co > s[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 > >

**References**:**Re: Restriction on the domain of Plot3D***From:*"David Park" <djmp@earthlink.net>