Mathematica 9 is now available
Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
2006
*January
*February
*March
*April
*May
*June
*July
*August
*September
*October
*November
*December
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 2006

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

Search the Archive

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

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

Hi All,

I am a stranger to Mathematica. Please help me in resolving my problem

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. 

Thanks in advance. 






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