[Date Index]
[Thread Index]
[Author Index]
Re: Restriction on the domain of Plot3D
*To*: mathgroup at smc.vnet.net
*Subject*: [mg55407] Re: [mg55385] Restriction on the domain of Plot3D
*From*: "David Park" <djmp at earthlink.net>
*Date*: Tue, 22 Mar 2005 03:50:57 -0500 (EST)
*Sender*: owner-wri-mathgroup at wolfram.com
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
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
Prev by Date:
**Re: plotting weighted graphs**
Next by Date:
**Correct errors on fit parameter ?**
Previous by thread:
**Re: Restriction on the domain of Plot3D**
Next by thread:
**Re: Restriction on the domain of Plot3D**
| |