MathGroup Archive 2005

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

Search the Archive

Re: Restriction on the domain of Plot3D


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
> 
> 


  • Prev by Date: Correct errors on fit parameter ?
  • Next by Date: Re: Do loop is faulty
  • Previous by thread: Re: Restriction on the domain of Plot3D
  • Next by thread: More J/Link examples pls