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

MathGroup Archive 2007

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

Search the Archive

Re: Hole/Disk function

  • To: mathgroup at smc.vnet.net
  • Subject: [mg76117] Re: Hole/Disk function
  • From: dimitris <dimmechan at yahoo.com>
  • Date: Wed, 16 May 2007 05:40:10 -0400 (EDT)
  • References: <f2bs7i$gc0$1@smc.vnet.net>

I guess you really mean

In[14]:=
DHole[x_, y_, HoleSize_] := If[Sqrt[x^2 + y^2] <= HoleSize, 1, 0];

What do you mean "a better way"?
The function looks ok.

In[16]:=
Plot3D[DHole[x, y, 3], {x, -3, 3}, {y, -3, 3}, PlotPoints -> 50,
ColorFunction -> (Hue[2*((1 - #1)/5)] & )]

Dimitris

=CF/=C7 Mathieu G =DD=E3=F1=E1=F8=E5:
> Hello,
> Is there a better way to define a Disk/Hole function than that?:
>
> DHole[x_, y_] := If[Sqrt[x^2 + y^2] <= HoleSize, 1, 0];
>
> I would like to use it for a convolution using the definition as shown
> in http://oldsite.vislab.usyd.edu.au/CP3/Four5/mod2-01.gif
>
> Best regards,
> MG



  • Prev by Date: Dynamic PlotLabel in Math6?
  • Next by Date: Re: Integrate[s^s(1-s)^(1-s)Sin[Pi s],{s,0,1}]
  • Previous by thread: Re: Hole/Disk function
  • Next by thread: Re: Hole/Disk function