Graphics--If condition in Plot3D?????????

• To: mathgroup at smc.vnet.net
• Subject: [mg68982] Graphics--If condition in Plot3D?????????
• Date: Sat, 26 Aug 2006 02:04:13 -0400 (EDT)
• Sender: owner-wri-mathgroup at wolfram.com

```Hi All,

Actually i want to display a 3D plot of an Intensity in a Cylidrical volume. The intensity is calculated as follows.

I=P/2*Pi*r*L .; where P=10.3,L=0.45,r=dist. ,r0=0.025,T=0.9,d=0.1643;

r[xk_, yk_] := (Sqrt[(x - xk)^2 + (y - yk)^2]);
Intensity[xk_, yk_] := (P/(2*Pi*r[xk, yk]*l))*T^(r[xk, yk] - r0);
Imoy=[Integrate[Intensity[xk, yk]],{xk, -0.08215,0.08215}, {yk,-0.08215,0.08215}]
Plot3D[If[r[xk,yk]<=d/2 && r[xk,yk]>=r0/2,Intensity[xk, yk]],{xk,-0.08215,0.08215}, {yk, -0.08215,0.08215}]

Then i am getting following warnings:

1. Plot3D::"plnc" :

If[(r[x, y]<=d/2 && r[xk,yk]>=r0/2),I[x, y] is neither a machine-size real number at {x,y}=(-0.058,-0.08215) nor a list of a real number and a valid color directive.
2. General::"stop": Further output of Plot3D :: plnc will be suppressed during this calculation.
3. Plot3D::"gval": Function value (Null) at grid point xi = 1, yi = 1 is not a real number.

4. General::"stop": "Further output of Plot3D :: gval will be suppressed during this calculation."

Is there anything wrong in the syntax or range specification. I am clueless. Please provide me ur valuable suggestions.

Link to the forum page for this post:
http://www.mathematica-users.org/webMathematica/wiki/wiki.jsp?pageName=Special:Forum_ViewTopic&pid=12977#p12977
Posted through http://www.mathematica-users.org [[postId=12977]]

```

• Prev by Date: Re: Symmetric polynomials
• Next by Date: Re: Symmetric polynomials
• Previous by thread: Re: General--IF condition in Plot3D
• Next by thread: Re: Graphics--If condition in Plot3D?????????