[Date Index] [Thread Index] [Author Index]

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>